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