on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:*:{
  if ($ulist($fulladdress,koruma,0) >= 1) { 
return }
  elseif !$istok(#kanal1 #kanal2 #kanal3 #kanal4 
#kanal5,$chan,32) {
    mode $chan +b 
$nick
    kick $chan $nick 5Rumunuz kanal seviyesine uygun 
degildir , 4/nick YENINICK 5 seklinde rumunuzu degistirip oyle kanala giris 
yapabilirsiniz.12
  }
}
alias tara {
  set %:bulunan 
0
  var %s 1
  while %s <= $nick(#,0) {
 
%:gnick = $nick(#,%s)
    if ($ulist($+($nick(#,%s), !*@*),koruma,0) 
>= 1) || ($ulist($+(*!, 
$regsubex($address($nick(#,%s),1),/^\*[!]\*(\S+)[@].+/S,\1), @*), koruma,0) 
>= 1) { return }
    If %:gnick isreg # && 
$level(%:gnick $+ !*@*) == badnick {
      inc 
%:bulunan 1
      mode # +b %:gnick | kick # %:gnick 
5Rumunuz kanal seviyesine uygun degildir , 4/nick YENINICK 5 seklinde 
rumunuzu degistirip oyle kanala giris yapabilirsiniz.12
 
}
    inc %s
  }
  echo -a 2 Badnickler 
tarandi: # - %:bulunan badnick bulundu.
}
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 
5Rumunuz kanal seviyesine uygun degildir , 4/nick YENINICK 5 seklinde 
rumunuzu degistirip oyle kanala giris 
yapabilirsiniz.12
        } 
 
        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 $+ @*
}