Kod: Kodu kopyalamak için üzerine çift tıklayın!
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
}
msg #kanalismi 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) {
msg #kanalismi Clone Taraması Sonuçları Kanala 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 | msg #kanalismi $+([,%s,]) %a $+($chr(40),$regsubex($mid($str($chr(32),$v1),2),//g,$ialchan(%a, [ $1 ] ,\n).nick),$chr(41)) }
}
msg #kanalismi 4[Clones] $iif(!%s,Clone Bulunamadı . $1 $+ .,10Clon 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