Bir Tarama Yardımı
 

Ben Şöyle Bir Clone Taraması İstiyorum. Mesela /clonescan Yazacam Tarayacak
sonra KArşıma Bir Ufak Kutu Gelsin #bilmemNe kanalında 6 Tane Clone TEspit Edildi Kanadan Uzaklaştırmak için f1 Tusuna Basınız. f1 Tusuna Bastıgımda ise

Clone Yasak! [ Clonelerin Ip si]

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
}


Not : Ben Yazmadım Alıntıdır Sanırım işini Görür..

işimi Görürde Atmak için Ne Yapmak Lazım. Yoksa Adamları Kanaldan Tek Tekmi Ayıklayacaz.

Verilen kod a göre ufak bi ayar yapıldığında sorun çözülüyor.. Umarım istediğin gibi olmuştur. Renk ve Konum ayarlarını istediğin gibi yapabilirsin Ör: echo -s yerine echo -a yada aline @bilmemne gibi...

Kod UOnur Tarafından PHP Tag'ları Arasına Alınmıştır... :p

Çok Saol Pek Makbule Geçti :D

önemli değil :p

Yanlız Bi Sorun Var. Çalışmadı :D incelebilirmisin bi codeyi falsolu ne var

Kodu al önce bir txt dosyasına kaydet... Satırların başlarındaqi boşlukları sil... Ve oradan remotelara ekle... Code bölümü içerisinden kopyalanan kodlarda sorun çıqıyor direq kopyalarsan... Sanırım senin sorununda bu yüzdendir... Saygılar...

kodlarda bir sorun yok dostum. kendim bizzat denedim. Son Mohikan kardeşimizin dediğine kulak vermeni tavsiye ederim.

Sevgiler... Saygılar...

Code Tag'ları ([code&/code]) Arasında Kodlar Zarar Görüyor... Yani Çalışmayabilir.
Kodları Buraya Normal Olarak Yapıştırırsanız yada PHP tagları içine Alırsanır Daha iyi olur...

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 :) Olsun Ama İdentinde Helper Yazanları Atmasın Ve Remote X Kanalında İşlemesin

yol göstermesi acısından sana yardımı olur..
if ($chan = #x && *help* iswm $address($nick,5)) { return }