on *:NICK: {
  var %/ = 1
  while ($ulist(*,Nick,%/)) {
    if ($remove($ulist(*,Nick,%/),*,@,!) isin $newnick)) {
      var %i = 1
      while ($comchan($newnick,%i)) {
        mode $comchan($newnick,%i) +b $newnick
        kick $comchan($newnick,%i) $newnick Badnick
        inc %i 1
      }
    }
    inc %/ 1
  }
}

on *:NICK:{ 
  if $ulist($+($newnick,!*@*),Nick,0) {
    var %/ = 1 
    while $comchan($newnick,%/) { 
      mode $v1 +b $newnick 
      kick $v1 $newnick Badnick
      inc %/ 
    } 
  } 
}

on @badnick:JOIN:*:{
  if ($ulist($fulladdress,koruma,0) >= 1) { return }
  elseif !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick 5[ 4K2ÖTÜ 4R2UMUZ 4N2ICK 4İ2DENT 4E2MAİL 5] 4S12ebebinden 4 D12oLayı 4 U12zakLaştırıLdınız. 4/nick yeninick 12 Yaparak Giriş yapa biLirsiniz 4Z14aiL 4S14cript 4®
  }
}
on *:NICK:{ 
  if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
  else {
    if $ulist($+($newnick,!*@*),badnick,0) {
      var %Cnk = 1 
      while $comchan($newnick,%Cnk) { 
        var %e = $v1 
        if $me isop %e && !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,%e,32) { 
          mode %e +b $newnick 
          kick %e $newnick 2Şuanda Kanal Seviyesinde Düşürecek ßir Nick Seçtiniz Lütfen 4/Nick Yeninick 2Komutuyla Nickinizi Deyiştirip Tekrar Giriniz.
        } 
        inc %Cnk 
      } 
    } 
  }
}
alias badnickekle {
  auser badnick $1 $+ !*@*
}
alias badnicksil {
  ruser badnick $1 $+ !*@*
}
alias nickkoruma {
  auser koruma $1 $+ !*@*
}
alias badidentekle {
  auser badnick *! $+ $1 $+ @*
}
alias badidentsil {
  ruser badnick *! $+ $1 $+ @*
}
alias identkoruma {
  auser koruma *! $+ $1 $+ @*
}