Çevrimdışı

Dipnot Mesajı:

on *:load:{
if ($ial == $true) {
var %a = 1, %b
while ($scon(%a)) {
.scid $v1
var %x = 1, %y
while ($chan(%x)) { %y = $v1 | if ($chan(%y).ial == $false) { who %y } | inc %x }
inc %a
}
.scid -r
}
echo -a 4[Clonescan] 1Tarama verileri yüklendi .
}
on me:*:join:#:{ who # }
raw 352:*:{ halt }
raw 315:*:{ halt }
;

#thetara on

menu channel {
-
$iif($server,Clone Tarayıcı) { thetara # }
-
}

alias thetara {
tokenize 32 $iif($1 ischan,$1,$iif($active ischan,$active))
if ($1 && $server) {
echo -a Clone Taraması sonuçları yansıtılıyor : $1 $+ ...
var %x 0 , %s 0 , %c 0
while ($nick($1,%x)) {
var %x %x + 1 , %n $v1 , %a $address($v1,2)
if (!$var($+(%,Match.,%a),1) && $ialchan(%a,$1,0) > 1) { var %s %s + 1 , %c %c + $v1 , % $+ [ Match. $+ [ %a ] ] 1 | echo -a $+([,%s,]) %a $+($chr(40),$regsubex($mid($str($chr(32),$v1),2),//g,$ialchan(%a, [ $1 ] ,\n).nick),$chr(41)) }
}
echo -a 4[Clones] $iif(!%s,Clone Bulunamadı . $1 $+ .,10Clone Bulundu :4 %c - 10Clone Bulunan Uzantı:4 %s - 2 $1 10kanalındaki ortalama :4 %c $+ / $+ $nick($1,0) $+($chr(40),$round($calc(%c / $nick($1,0) * 100),2),%,$chr(41)) The Control Systems)
}
}
#thetara end

Arkadaşlar KOD kime ait bilgim yok. Eski bi Clone taraması kodu. Bu Kod normalde kanala yansıtıyor idi taramayı. echo -a yaparak kendim görüyorum fakat istediğim. Bu KOD'a muaf host eklemek ve tarama sonuçlarını CloneList adı altında ayrı pencere de göstermesi. Şimdiden teşekkürler.