Kod: Kodu kopyalamak için üzerine çift tıklayın!
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
}
}
}
Bu kod IRCop düzeyinde olmayan,aynı zamanda sunucuda kullanıcıların default olarak +i modesine sahip olduğu varsayımıyla yazılmıştır.Haliyle aktif ekrandaki (#kanal) tüm kullanıcılara tek tek /userip komutunu uygulaması nedeniyle yorucu bir metoddur.Kullanıcı sayısının fazla olduğu bir kanalda uygulanması halinde aşırı veri istemi sebebiyle sunucudan bağlantınız kopabilir!
Şayet IRCop iseniz "belirtmeniz halinde" daha pratik bir yöntemler(örneğin, who +I parametresi) önerebiliriz.