alias scan {
  set %kanal $$?="Hangi Kanalda Clone Taraması Yapılacak?"
  unset %cs.*
  set %cs.chan %kanal
  who %kanal
  .timer 1 4 /scan2
}
alias scan2 {
  window -l @Clones
  set %cs.a $nick(#,0)
  :loop
  if ($ialchan($address($nick(#,%cs.a),2),#,0) > 1) && ($address($nick(#,%cs.a),2) !isin %cs.d) {
    set %cs.d %cs.d $address($nick(#,%cs.a),2)
    set %cs.c $ialchan($address($nick(#,%cs.a),2),#,0)
    :l
    aline @clones $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 $+ $address($nick(#,%cs.a),2) $+ )
    dec %cs.c 1
    if (%cs.c == 0) {  aline @clones - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }
    goto l
  }
  :next
  dec %cs.a 1
  if (%cs.a != 0) { goto loop }
  if (%cs.d == $null) { aline @clones hiç clone bulunamadı... }
  halt
}  
menu @clones {
  Kick:/kick %cs.chan $wildtok($sline(@clones,1), *, 1, 32) Clone bulunudu.
  -
  Kick/Ban:/kick %cs.chan $wildtok($sline(@clones,1), *, 1, 32) Clone  bulundu.- %kick.logo | /mode %cs.chan +b $address($wildtok($sline(@clones,1), *, 1, 32),2) | /dline @clones $sline(@clones,1).ln
}
#onjoin on
on *:join:#:{
  if (%clonelevel [ $+ [ $chan ] ] == 1) { set %naddress $address($nick,0) }
  if (%clonelevel [ $+ [ $chan ] ] == 2) { set %naddress $address($nick,1) }
  if (%clonelevel [ $+ [ $chan ] ] == 3) { set %naddress $address($nick,2) }
  if (%clonelevel [ $+ [ $chan ] ] == $null) { set %naddress $address($nick,2) }
  if (%clonelevel [ $+ [ $chan ] ] == 4) { set %naddress $address($nick,4) }
  if (%cs_maxclones [ $+ [ $chan ] ] == $null) { set %cs_maxclones [ $+ [ $chan ] ] 0 }
  if ($nick != $me) {
    if ($ialchan(%naddress ,$chan,0) > 1) {
      set %pointer 1
      unset %clones
      :nickanchor
      set %clones %clones $ialchan(%naddress,$chan,%pointer).nick
      inc %pointer 1
      if (%pointer <= $ialchan(%naddress,$chan,0)) { goto nickanchor }
      if (%cs_affectsregular [ $+ [ $chan ] ] != $null) { goto skip }
      if (thechosen isin $level($address($nick,5))) { goto skip }
      if ($gettok(%clones,0,32) <= $calc(( [ %cs_maxclones [ $+ [ $chan ] ] ] ) + 1 )) { goto skip }
      if (%cs_currentaction [ $+ [ $chan ] ] == echo) { echo $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) }
      if (%cs_currentaction [ $+ [ $chan ] ] == $null) { echo $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) }
      if ($mid($level($nick),1,4) == 1002) { .quote notice $nick :4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14) %kick.logo | .quote notice $nick :6Clone Protection Listemdesin %kick.logo | goto skip }
      if ($mid($level($address($nick,2)),1,4) == 1002) { .quote notice $nick :4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  | .quote notice $nick :6Clone Protection Listemdesin %kick.logo | goto skip }
      if (%cs_currentaction [ $+ [ $chan ] ] == say) { msg $chan 4Clone Tespit EdiLdi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if (%cs_currentaction [ $+ [ $chan ] ] == notice) { .notice $chan 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if (%cs_currentaction [ $+ [ $chan ] ] == onotice) { /opnot $chan 2 4Clone Tespit Edildi 14(12 $+ %clones $+ 14) (2 $+ %naddress $+ 14)  }
      if ($me isop $chan) {
        if (%naddress iswm $address($me,5)) { goto skip }
        if (%cs_currentaction [ $+ [ $chan ] ] == kick) { kick $chan $nick clone $+ $chr(2) $+ $chr(91) $+ $chr(2) $+ $chr(31) $+ Otomatik-Kick $+ $chr(31) $+ $chr(2) $+ $chr(93) $+ $chr(2) %kick.logo }
        if (%cs_currentaction [ $+ [ $chan ] ] == ban) { mode $chan +b %naddress }
        if (%cs_currentaction [ $+ [ $chan ] ] == kickban) { mode $chan +b %naddress | kick $chan $nick clone $+ $chr(2) $+ $chr(91) $+ $chr(2) $+ $chr(31) $+ Otomatik-KickBan $+ $chr(31) $+ $chr(2) $+ $chr(93) $+ $chr(2)  }
      }
      :skip
      unset %clones %naddress
    }
  }
  unset %clones %naddress
}
#onjoin end