[MENTION=40103]Bad[/MENTION]:NICK: { 

  var %i 1

  while %i <= $comchan($newnick,0) {

    if $comchan($newnick,%i) == #MUAFKANAL1 { halt }

    if $comchan($newnick,%i) == #MUAFKANAL2 { halt }

    else if $me isop $comchan($newnick,%i) || $me ishop $comchan($newnick,%i) { 

      mode $comchan($newnick,%i) +b $newnick | .timer 1 1 kick $comchan($newnick,%i) $newnick Kotu Nick veya Ident algilandi, Lutfen "/nick yeninick" komutu ile nickinizi degistirip yeniden geliniz.   

    }

    inc %i   

  }

}

ON [MENTION=40103]Bad[/MENTION]:JOIN:#: {

  if $chan == #MUAFKANAL1 { halt }

  if $chan == #MUAFKANAL2 { halt }

  else if $me isop $chan || $me ishop $chan {

    msg # !nick $nick 7Badnick Tespiti /nick YeniNick Yazıp Tekrar Giriş Yapınız ...1,1 14 \4-14_4-\ 1,1\\\\\\4•  10LordMaster Scrpit ™ •   1,1\\\\\\ 14/4-

  }

}

alias badekle {

  if $1 == $null { echo -a 8,1 ===> Hatali kullanim. "/badekle nick" seklinde deneyiniz. | halt }

  .write bad.txt bad: $+ $1 $+ !*@*.*

  .load -ru bad.txt

  echo -a 9,1 ===> $1 Badnick listesine eklendi. 

}

alias badsil {

  if $1 == $null { echo -a 8,1 ===> Hatali kullanim. "/badsil nick" seklinde deneyiniz. | halt }  

  if $read(bad.txt,w,* $+ $1 $+ *) {

    .write -dl $+ $readn bad.txt

    .load -ru bad.txt

    echo -a 15,1 ===> $1 Badnick listesinden silindi.

  }

  else { echo -a 8,1 ===> $1 Badnick listesinde bulunamadi }

}

alias badlist {

  echo -a 11,1 -- Bad nick listesi --

  var %i 1

  while %i <= $lines(bad.txt) {

    echo -a ===> %i -  $+ $gettok($gettok($read(bad.txt,%i),1,33),2,58)

    inc %i

  }