on *:snotice:*: {
  var %jeun = $1-
  if $regex(%jeun,/(G:Line|Z:Line|K:Line|Global Z:line) added for \*@(.+) on (.+) GMT \(from (.+)!(.+)@(.+) to expire at (.+) (.+): (.+)\)/i) {
    write baninfo.txt IP: $regml(2) Ban Türü: $regml(1) Banlayan: $regml(4) Kalan süre: $ctime($regml(7) $regml(8)) Sebep: $regml(9)
  }
  if $regex(%jeun,/(.+) removed (Shun|Z:Line|G:Line|K:Line|Global Z:Line) \*@(.+) (.)set /i)} && $read(baninfo.txt,s,IP: $regml(3)) { write $+(-dl,$readn) baninfo.txt }
  if $regex(%jeun,/Expiring (Shun|Z:Line|G:Line|K:Line|Global Z:Line) (.)\*@(.+)(.) made by/i) && $read(baninfo.txt,s,IP: $regml(3)) {  write $+(-dl,$readn) baninfo.txt }
}
raw *:*: {
  if $numeric == 223 || $numeric == 216 {
    var %turc $1-
    if $regex(%turc,^(G|s|Z|K) \*@(.+) (\d+) (\d+) (.+)!(.+)@(.+) (.+)/i) { write baninfo.txt IP: $regml(2) Ban Türü: $replace($regml(1),S,Shun,K,K:Line,G,G:Line,Z,Z:Line) Banlayan: $regml(5) Kalan süre:  $calc($regml(3) + $ctime) Sebep: $regml(6) }
  }
}

on *:text:*:#Cao:{
  if $1 == !ip && $2  {
    if $regex($read(baninfo.txt,w,IP: $2 $+ *),/IP: (.+) Ban Türü: (.+) Banlayan: (.+) Kalan süre: (.+) Sebep: (.+)/i) {
      var %z = msg #
      %z 2IP: $regml(1)
      %z 2Ban Türü: $regml(2)
      %z 2Banlayan: $regml(3)
      %z 2Kalan Süre: $replace($duration($calc(($regml(4) - $ctime)-28800),2),mins,dakika,min,dakika,hours,saat,hour,saat)
      %z 2Sebep: $regml(5)
    }
    if $1 == !ip && !$2  { msg # Komutu dogru kullan.!ip IP No }
    if !$read(baninfo.txt,w,IP: $2 $+ *) { msg # Aradığınız IP Adresine ilişkin ban sonucu bulunamadı. }
  }
  if $1 == !banac && $2 {
    if $regex($read(baninfo.txt,w,IP: $2 $+ *),/IP: (.+) Ban Türü: (.+) Banlayan: (.+) Kalan süre: (.+) Sebep: (.+)/i) {
      write $+(-dl,$readn) baninfo.txt
      var %a = $replace($remove($regml(2),:),Global Z:Line,gzline)
      %a  -*@ $+ $2
      msg # $2 adresine ait  %a  kaldırılmıştır.14( 4 $nick  )
    }
  }
}
on *:quit:{ if $nick == $me { write -c baninfo.txt } }
on *:disconnect:/write -c baninfo.txt
on *:connect:{ if $server == irc.mircturk.com { shun | gline | kline | zline  } }