Çevrimdışı

alias Clonescan {
unset %cs.*
set %cs.chan #
who #
timer 1 4 /scan2
}
alias scan2 {
window -l @Clones
titlebar @Clones in #
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
aline @clones $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 $+ $address($nick(#,%cs.a),2) $+ )
dec %cs.c 1
if (%cs.c == 0) { aline @clones - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }
goto l
}
:next
dec %cs.a 1
if (%cs.a != 0) { goto loop }
if (%cs.d == $null) { aline @clones Hiç CLone buLunamadı... }
halt
}


Kullandıgım Code Bu Yalnız VariabLe Yetersizliği Yüzünden ( Set line Too Long..) fln filan hata aliyorum Bu Kodu değiştirmeye çalıştım Ama Biraz Karışık Geldi..

 

Çevrimdışı

ms.org'da RG tarafından yazılan clone scannerın benim tarafımdan biraz değiştirilmiş hali, hash table kullandığı için set line too long gibi hatalar almazsın. Kullanmak istediğin kanalda /clonescan yaz ya da /clonescan #kanal-ismi komutuyla kullan. İşte kod:

alias clonescan {
var %ch = $iif(!$1 && $active ischan,$active,$1),%i = 1 ,%w,%tmp,%groups = 0,%ticks = $ticks
if $me !ison %ch { return }
if !$chan(%ch).ial { echo ial for %ch is not ready! Type /who %ch and try again | return }
hmake clones 100
%tmp = $ialchan(*,%ch,0)
while %i <= %tmp {
%w = $address($nick(%ch,%i),2)
hadd clones %w $addtok($hget(clones,%w),$nick(%ch,%i),44)
inc %i
}
%i = 1
window -aCldk0 -t20,25 @Clones -1 -1 600 300 Tahoma 11
aline @Clones Address: $chr(9) Number: $chr(9) Nicks:
aline @Clones -
while %i <= %tmp {
var %k = 1
%w = $null
if $numtok($hget(clones,%i).data,44) > 1 {
%k = $ifmatch
%w = $hget(clones,%i).data
inc %groups
aline @Clones $hget(clones,%i).item $chr(9) ( $+ %k $+ ) $chr(9) %w
}
inc %i
}
hfree clones
aline @Clones -
aline @Clones %groups group(s) of clones found in %ch $+ .Finished in $calc(($ticks - %ticks) / 1000) sec
}

Umarım işine yarar.

 

Çevrimdışı

Cok Teşekkür Ederim el33t
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
;oki