|
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 ?
|