;Bu Kod KBSC Ekibi tarafından yazılmıştır.
;coder@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].gen.tr


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ı Icin Clone taraması Baslatıldı... 
  echo -s Clone Taramasi
  .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 Taramasi
  .Clone Tara:.Clone # 
}