|
alias Clonescan {
.unset %cs.*
.set %cs.chan #
.who #
.timer 1 4 /scan2
}
alias scan2 {
.echo -s # kanalı için clone scan...
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
.echo -s $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick ( 4 %4$s $address($nick(#,%cs.a),2) %4$s )
.set %cs.eklenen $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick
.set %cs.nickler $addtok(%cs.nickler,%cs.eklenen,32)
dec %cs.c 1
if (%cs.c == 0) { echo -s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }
goto l
}
:next
dec %cs.a 1
if (%cs.a != 0) { goto loop }
if (%cs.d == $null) { echo -s Hiç CLone buLunamadı... }
.echo -s 4 Eğer cL0ne'u olanlara ceza vermek istiyorsanız (Kick+Ban), F5 e basınız!.. cL0ne'Lar:14 %cs.nickler
halt
}
alias F5 {
%cs.i = 0
while ($gettok(%cs.nickler,0,32) > %cs.i) {
.inc %cs.i 1
%cs.atilan = $gettok(%cs.nickler,%cs.i,32)
mode %cs.chan +b $address(%cs.atilan,2)
kick %cs.chan %cs.atilan cL0ne Yasak!..
}
halt
Ben Cloneye Ayrı Bir Yorum getirmek İstiorum Mesela Cloneler Olduu Zaman Tek Bir KAnalda Bana Msg Olarak Gelsin Örneğin a Kanalında Ve Clone SAyısı 3 ü Geçtii Zaman Zline Atayım Sebebi Clonesin İşte
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Olsun Ama İdentinde Helper Yazanları Atmasın Ve Remote X Kanalında İşlemesin
|