on *:voice:#:{ if $read(ceza.txt,w,$2) { mode # -v $2 | msg # $2 ceza listesinde oldugunuz için (+) prefixsini alamazsınız. } } }
on *:text:*:#kanal: {
  if $regex($1,/^([.!]ceza)/Si) {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. } 
    if !$2 { msg # 2Lütfen parametre belirtiniz.4 !ceza ekle|liste|sil | return }
  }
  if $2 == liste {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if $lines(ceza.txt) = 0 { msg # 2Ceza kayiti bulunamadi. | halt }
    msg # 2Ceza listesi siralaniyor.
    var %massacre 1
    while (%massacre <= $lines(ceza.txt)) {
      msg # %massacre $read(ceza.txt,%massacre)
      inc %massacre
    }
  }
  if $2 == ekle {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if !$3 { msg # 2Lütfen nick belirtiniz.4 !ceza ekle nick | return }
    if $read(ceza.txt,w,$nick) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. }
    write ceza.txt $3
    msg $chan 4 $+ $3 $+ , 2ceza listesine eklenmiştir.
  }
  if $2 == sil {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if !$3 { msg # 2Lütfen nick belirtiniz.4 !ceza sil numara | return }
    if !$read(ceza.txt,w,$3) { msg $chan 4 $+ $3 $+ , 2listede bulunamadı. }
    write -dw $+ $3 ceza.txt
    msg $chan 4 $+ $3 $+ , 2ceza listesinden silinmiştir.
  }
}