raw 352:*:{
  if $read(yasakip.txt,w,$+(*,$4,*)) { gzline $+(*@,$4) 1Yasaklı 4IP 1Girişi Algılandı. | return }
}
on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    who +I %_nick
  }
}
on *:input:#:{
  if $regex($1,/^[.!]yekle$/Si) { 
    if (!$2)  { msg # IP adresi Belirtmedin. | return }
    write yasakip.txt $2
    msg # $2 Yasak ip Olarak eklendi.
    gzline $+(*@,$2) 4 IP Adresiniz 1Yasaklandı..
  }
  if $regex($1,/^[.!]ysil$/Si) {
    if (!$2)  { msg # IP adresi Belirtmedin. | return }
    .write $+(,-dl,$readn,) yasakip.txt
    msg # Ip silindi: $2
  }
}

on *:input:#:{

on *:text:*:#:{