GEvEZe-Sohbet.Org,GEvEzE,Geveze online,Geveze aşk

  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 #
    }

By-Joker