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 }
  }
}