alias klon {
  if ($2) {
    var %* = $nick($1,0)
    while (%*) {
      $iif(!$hget(host,$address($nick($1,%*),2)),hadd -m,hinc) host $address($nick($1,%*),2)
     dec %ğ
    }
    .msg $2 4 $1 kanalı için clone taraması başlatıldı.
    .msg $2 -
    .timer 1 1 $yeah($1,$2)
  }
}
alias -l yeah var %½ = $hget(host,0).item | while (%½) { if ($hget(host,%½).data > 1) { var %- = ok,%$ = $nick($1,0) | while (%$) { if ($istok($hget(host,%½).item,$address($nick($1,%$),2),32)) { var %^ = $addtok(%^,$nick($1,%$),32) } | dec %$ } | .msg $2 12 2Adres: $hget(host,%½).item - 10Bağlı kullanıcı sayısı: $hget(host,%½).data - 4Bağlı rumuzlar: $gettok(%^,1-,32) } | dec %½ } | .msg $2 - | .msg $2 $1 $iif($(%-,2) != ok,kanalında clone bulunamadı.,kanalı için clone taraması tamamlandı.) | hfree host
on *:text:!clone &:#:$klon(#,$2)