IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   @clone Penceresinde Nick1 Nick2 Nick3 gibi Clone'ları Göstersin. (https://www.ircforumlari.net/mirc-scripting-sorunlari/4140-clone-penceresinde-nick1-nick2-nick3-gibi-clonelari-gostersin.html)

DarK^ 13 Haziran 2005 16:56

@clone Penceresinde Nick1 Nick2 Nick3 gibi Clone'ları Göstersin.
 
Arkadaşlar belki Clone'ler üzerine çok konu açıldı diye düşünebilirsiniz ama napım her yeri aradım bulamadım düşündüğüm gibi bi$i . Kendim yazmaya kalktım bi yere kadar gelip tıkandım. istiyorumki Clone taraması yapılsın ama Clones adında bi pencere açılsın ve taranan cloneler o pencerede gösterilsin.
Ör :
Ankara KanaLında 2 cLone buLunda : NickLeri - a-b-c-
izmir kanalında 3 cLone buLunda : NickLeri - d-e-f

Bu $ekilde yani ..

Ayrıca o pencerede sağ mauseye tıklayınca

Banla
Kline at
Kill'le gibi secenekler bulunsun istiyorum

Bunlar başarılabilirmi ?

UOnur 13 Haziran 2005 17:59

tabiki Başarılabilir...
Bana Örnek Bi Clone Koruması Göster Ama Sade bi koruma Olsun...
Ben sana Nasıl Yapacağını Anlatayım ?

DarK^ 13 Haziran 2005 18:29

#cl on
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
/echo # 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane }
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}
#cl end

bunu hallettik ama kanalda tarıyor :)

UOnur 13 Haziran 2005 20:05

#cl on
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count
}
if ($window(@Clones)) {
aline @clones 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane
}
else {
window -ea @clones
aline @clones 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane
}
}
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}
#cl end

DarK^ 14 Haziran 2005 10:28

uOnur tşkürler yardımın için takır takır çalışıyor ama diğer o acılan pencerede nick'in üstünü tıkladıgımızda sağ mausede gline at banla uyar gibi şeyler cıkabilirmi ?

djiNn 14 Haziran 2005 12:13

alias CloneTara {
unset %cs.*
set %cs.chan #
who #
timer 1 4 /scan2
}
alias scan2 {
msg #dj @Cloneler..
set %cs.a $nick(#,0)
:loop
if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) {
set %cs.d %cs.d $address($nick(#,%cs.a),2)
set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0)
:l
msg #dj $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 $+ $address($nick(#,%cs.a),2) $+ )
dec %cs.c 1
if (%cs.c == 0) { msg #dj - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }
goto l
}
:next
dec %cs.a 1
if (%cs.a != 0) { goto loop }
if (%cs.d == $null) { msg #dj Hiç CLone buLunamadı... $nick }
halt
}

Ben Bu Clone Taramasını Kanala Yansıtmasını Istiyorum Ama :next te GElince Sonsuz Donguye TAkiliyor Nerede Hata Var ?

aSii_GeNc 16 Haziran 2005 10:02

Kod:

on *:join:*: {
  %clones = $ialchan($wildsite,#,0)
  if ( %clones > 1 ) {
        var %count = 1
        set %clone.nicks -->
        while (%count <= %clones) {
          %clone.nicks = %clone.nicks $ial($wildsite,%count).nick
          inc %count
        }
  c.yaz 4Clone Tesbit Edildi %clones tane: Kanal: # Nickler: 3 $remove(%clone.nicks,-->) 4Ceza: K-Ban Kline }
  set %change $read -s %4$s $address($nick,4) notes.ini
  if (%change == $null) {
        haltdef
        write notes.ini $address($nick,4) $nick
        halt
  }
}
alias C.yaz { if !$window(@clone) { window @clone } | aline @clone $1- }
on ^*:HOTLINK:*KLine*:@clone: return
on ^*:HOTLINK:*K-Ban*:@clone: return
on *:HOTLINK:*:@clone: {
  if ($1 == K-Ban) {
        tokenize 32 $hotline
        var %~ = $4
        ban $7 $gettok($gettok($10-,1,67),1,32) 2
        while %~ { kick $7 $gettok($gettok($10-,1,67),%~,32) Clone %~ | dec %~ }
  }
  if ($1 == Kline) { kline $gettok($gettok($10-,1,67),1,32) Clone tespit edildi!!! }
}

Ne güzel dimi ?
Burası ircforumları ama Scripting başlıkları boş lak lak başlıkları gereğinden fazla dolu..
Işığı görseydim neler yapabileceğimi yaptıklarım bilir...

kerimogluu 22 Ekim 2008 00:20

Cevap: @clone Penceresinde Nick1 Nick2 Nick3 gibi Clone'ları Göstersin.
 
mirc de kanala ve özele değilde ekranda nik uyarıcı mirc varmı

Rohit 22 Ekim 2008 17:13

Cevap: @clone Penceresinde Nick1 Nick2 Nick3 gibi Clone'ları Göstersin.
 
Alıntı:

kerimogluu Nickli Üyeden Alıntı (Mesaj 578377)
mirc de kanala ve özele değilde ekranda nik uyarıcı mirc varmı


IrCbaStarD'in X-One Script'i.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:33.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net