Clone Taramasi - Hazır Kodlar


-
- 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 # kanaly için clone taramasy ba?latyldy...
echo -s -
.timer 1 1 .h_al #
}
alias h_al {
var %y = $hget(host,0).item
while %y {
if $hget(host,%y).data > 1 {
set %y_k yes
var %ç = $nick($1,0)
while %ç {
if $hget(host,%y).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
dec %ç
}
echo 12 -st 2Adres: $hget(host,%y).item --- 10Ba?ly kullanycy sayysy: $hget(host,%y).data --- 4Ba?ly rumuzlar: $gettok(%_cln,1-,32)
unset %_cln
}
dec %y
}
echo -s -
$iif($(%y_k,2) != yes,echo 4 -st $1 kanalynda clone bulunamady.,echo 4 -st $1 kanaly için clone taramasy tamamlandy.)
unset %y_k
hfree host
}
menu channel {
.-
.Clone Tara:.Clone #
}

aLıntıdır..