Kod

#otozline on
on *:join:#Karantina:{
  var %dosya = yasaknickler.txt
  if (!$isfile(%dosya)) return
  var %nick = $lower($replace($nick,ç,c,Ç,c,ğ,g,Ğ,g,ı,i,İ,i,ö,o,Ö,o,ş,s,Ş,s,ü,u,Ü,u))
  var %say = 1, %bulundu, %yasak
  while (%say <= $lines(%dosya)) {
    %yasak = $read(%dosya,n,%say)
    if (%yasak != $null) {
      if ($pos(%nick,%yasak,1)) {
        %bulundu = %yasak
        break
      }
    }
    inc %say
  }
  if (%bulundu != $null) {
    ;$+(.timer,-at-,$nick) 1 10 gzline $nick - Yasak Nick
     $+(.timer,-at-,$nick) 1 10 shun $nick - Yasak Nick
    
  }
}
on *:text:*:#Log:{
  if ($nick != NickServ) return
  if $regex($1-,/ile sisteme login oldu/Si) {
    if $timer($+(-at-,$strip($4))) {
      $+(.timer,-at-,$strip($4)) off
    }
  }
}
on *:join:#: {
 if $gettok($address($nick,5),2,33) = $gettok($gettok($address($nick,5),2,33),1,64) {
  shun $nick
 }
}
#otozline end