alias badnicktara {
  if ($server == irc.sunucu.org) {
    if $me isop $1 {
      set %kanal $chan
      set %:bulunan 0
      var %s 1
      while %s <= $nick($1,0) {
        %:gnick = $nick($1,%s)
        if %:gnick isreg $1 && $ulist(%:gnick,8,0) && !$ulist(%:gnick,koruma,0) {        
          inc %:bulunan 1
          echo -a  4#3› 4BADNICK :1,0 %:gnick 0,1>> Koruma Ekle
        }
        inc %s
      }
      echo -a 0,7Badnickler tarandi: $1 - %:bulunan badnick bulundu.
    }
    else { echo -a 0,2 $1 kanalinda OP olmaniz gerekmektedir. }
  }
}
on *:nick: {
  if ($server == irc.sunucu.org) && $ulist($newnick,8,0) && !$ulist($newnick,koruma,0) { 
    var %2 = 1 | while $comchan($newnick,%2) { 
      if $me isop $comchan($newnick,%2) { echo #Turkiye 10Badnick olarak algılandı :0,7 $newnick >> 10Koruma Ekle } 
      inc %2
    } 
  }
}
on *:op:#turkiye:$iif(($server == irc.sunucu.org && $opnick == $me),badnicktara #)
on ^$*:hotlink:/Ekle$/S:*:if ($strip($1) == Ekle) { return } | halt
on *:hotlink:*:*:auser koruma $token($hotline,5,32)
on @*:join:#Turkiye: {
  if ($server == irc.sunucu.org) {
    if ($ulist($nick,koruma,0) >= 1) { return }
    if $ulist($nick,8,0) { echo # 10Badnick girişi yapıldı :1,0 $nick 10Badnick değilse >> 10Koruma Ekle }
  }
}

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 $ulist($address($nick,5),$ulevel,1)
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{ 
  if ($ulist($newnick,koruma,0) >= 1) { return }
  else {
    if ($level($newnick) == badnick) { 
      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 Dışarı!
        } 
        inc %Cnk 
      } 
    } 
  }
}

on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:*:{
  if ($ulist($nick,koruma,0) >= 1) { return }
  elseif !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...Bulunan mask: $ulist($nick,badnick,1)
  }
}
on *:NICK:{ 
  if ($ulist($newnick,koruma,0) >= 1) { return }
  else {
    if ($level($newnick) == badnick) { 
      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 Dışarı! Bulunan mask: $ulist($newnick,badnick,1)
        } 
        inc %Cnk 
      } 
    } 
  }
}

Nick Koruma eklemek için:
/nickkoruma gaye*
/nickkoruma *tugay*

------------------

İdent Koruma eklemek için:
/identkoruma msn
/identkoruma gaye*