Kanal clone taraması
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
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 # |