Çevrimdışı

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 -a # 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 -a 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: 5 $gettok(%_cln,1-,32)
unset %_cln
}
dec %ı
}
echo -s -
$iif($(%y_k,2) != yes,echo 4 -a $1 kanalında clone bulunamadı.,echo 4 -a $1 kanalı için clone taraması tamamlandı.)
unset %y_k
hfree host
}
menu channel {
.-
.Clone Tara:.Clone #
}


Sniper ,
işine Yarıcağına Eminim.

 

Çevrimdışı

Skys Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 -a # 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 -a 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: 5 $gettok(%_cln,1-,32) unset %_cln } dec %ı } echo -s - $iif($(%y_k,2) != yes,echo 4 -a $1 kanalında clone bulunamadı.,echo 4 -a $1 kanalı için clone taraması tamamlandı.) unset %y_k hfree host } menu channel { .- .Clone Tara:.Clone # } Sniper , işine Yarıcağına Eminim.

En Mantıklısı