EmRaH Administrator
Mesaj Sayısı : 1095 Nerden : FraNsa Kayıt tarihi : 14/11/08
| Konu: Clone Taraması C.tesi Kas. 15, 2008 12:51 pm | |
| - Kod:
-
alias Clone { var %ğ = $nick(#,0) while %ğ { if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 } else { hinc host $address($nick(#,%ğ),2) } dec %ğ } echo 4 -st # kanalı için clone taraması başlatıldı... echo -s - .timer 1 1 .h_al # } alias h_al { var %ı = $hget(host,0).item while %ı { if $hget(host,%ı).data > 1 { set %y_k yes var %ç = $nick($1,0) while %ç { if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) } dec %ç } echo 12 -st 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: $gettok(%_cln,1-,32) unset %_cln } dec %ı } echo -s - $iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.) unset %y_k hfree host } menu channel { .- .Clone Tara:.Clone # } Çalıştırmak İçin: /clone Yazm***z Yeterli... | |
|