PHP- Kodu:
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 
-# 1kanalı için clone taraması başlatıldı...
  
.h_al #
}
alias h_al {
  var %
ı $hget(host,0).item
  
while %ı {
    if 
$hget(host,%ı).data {
      
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 2Clone sayısı:4 $hget(host,%ı).data 2Address:10 $hget(host,%ı).item 2Nickler:3 $gettok(%_cln,1-,32
      unset %
_cln
    
}
    
dec %ı
  
}
  
$iif($(%y_k,2) != yes,echo -$1 1kanalında clone bulunamadı.,echo -$1 1kanalı için clone taraması tamamlandı.)
  unset %
y_k
  hfree host
}
menu channel {
  .CLONE 
TARAMASI YAP:.who # | .timer 1 1 .Clone #
}
--------------------------------------