IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
;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 # 

}