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 -a # kanalı için klon taraması başlatıldı.
  echo -s -
  .timer 1 0 .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 -a Klon:4 $hget(host,%ı).data 1- Adres:4 $hget(host,%ı).item 1- Nick:4 $gettok(%_cln,1-,32)
      unset %_cln
    }
    dec %ı
  }
  echo -s -
  $iif($(%y_k,2) != yes,echo 4 -a $1 kanalında klon bulunamadı.,echo 4 -a $1 kanalı için klon taraması tamamlandı.)
  unset %y_k
  hfree host
}

alias klone { 
  if !%start { echo 4 -a # kanalı için klon taraması başlatıldı. | set -e %start $nick(#,0) }
  $iif($isid,userip $remove($1,.,~,&,@,%,+),filter -wkl # klone *) 
}
raw 340:*:{
  if %start {
    haltdef 
    dec -e %start
    set $+(%,clone,$token($1-,2,64)) $addtok($($+(%,clone,$token($1-,2,64)),2),$token($2-,1,61),32)
    if !%start { 
      var %stop 1 | while %stop <= $var(%clone*,0) {
        if $numtok($($var(%clone*,%stop),2),32) > 1 { echo -a 4CLONE: $remove($var(%clone*,%stop),%,clone) 02 $remove($($var(%clone*,%stop),2),$chr(42)) }
        inc %stop
      }
      echo -a Clone taraması sona erdi. | unset %clone* %start
    }
  }
}