on *:snotice:*: {
  var %jeun = $1-
  if $regex(%jeun,/(G:Line|Z:Line|K:Line|Global Z:line|Shun) added for \*@(.+) on (.+) GMT \(from  ((.+).mircturk.com) to expire at (.+) (.+): (.+)\)/i) {
    write baninfo.txt IP: $regml(2) Ban Türü: $regml(1) Banlayan: $regml(4) Kalan süre: $ctime($regml(6) $regml(7)) Sebep: $regml(8)
  }
  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 $2-
    if $regex(%turc,/^(G|S|Z|K) \*@(.+) (\d+) (\d+) ((.+)mircturk.com) (.+)/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(7) }
  }
}

on *:text:*:#Caeo:{
  if $1 == !ip && $2  {
    if $regex($read(baninfo.txt,w,IP: $2 $+ *),/IP: (.+) Ban Türü: (.+) Banlayan: ((.+).mircturk.com) Kalan süre: (.+) Sebep: (.+)/i) {
      var %z = msg #
      %z 2IP: $regml(1)
      %z 2Ban Türü: $regml(2)
      %z 2Banlayan: $regml(3)
      var %p = $duration($calc(($regml(5) - $ctime)-28800),3)
      %z 2Kalan Süre: $gettok(%p,1,58) $+ Saat  $gettok(%p,2,58) $+ Dakika
      %z 2Sebep: $regml(6)
    }
    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  } }