alias Clonescan {

  .unset %cs.*

  .set %cs.chan #

  .who #

  .timer 1 4 /scan2

}

alias scan2 {

  .echo -s # kanalı için clone scan...

  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

    .echo -s $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick (4 %4$s $address($nick(#,%cs.a),2) %4$s )

    .set %cs.eklenen $ialchan($address($nick(#,%cs.a),2),#,%cs.c).nick

    .set %cs.nickler $addtok(%cs.nickler,%cs.eklenen,32)    

    dec %cs.c 1

    if (%cs.c == 0) { echo -s - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | goto next }

    goto l

  }

  :next

  dec %cs.a 1

  if (%cs.a != 0) { goto loop }

  if (%cs.d == $null) { echo -s Hiç CLone buLunamadı... }

  .echo -s 4 Eğer cL0ne'u olanlara ceza vermek istiyorsanız (Kick+Ban), F5 e basınız!.. cL0ne'Lar:14 %cs.nickler 

  halt

} 

alias F5 { 

  %cs.i = 0

  while ($gettok(%cs.nickler,0,32) > %cs.i) {

    .inc %cs.i 1 

    %cs.atilan = $gettok(%cs.nickler,%cs.i,32)

    mode %cs.chan +b $address(%cs.atilan,2) 

    kick %cs.chan %cs.atilan cL0ne Yasak!..

  }

  halt

}