on *:voice:#:{ if $nick !isop # { if $read(ceza.txt,w,$2) { mode # -v $2 | msg # $2 ceza listesinde oldugunuz için (+) prefixsini alamazsınız. } } }
on *:text:*:#: {
  if $regex($1,/^([.!]ceza)/Si) {
    if $2 == $null {
      msg $chan 4HATA: 2Yetersiz ya da eksik kullanım. Lütfen seçenek belirtin; 4!ceza ekle|sil|list
    }
    else {
      if $2 == list {
        if $lines(ceza.txt) == 0 {
          msg $chan 2Ceza listesinde kullanıcı bulunamadı.
        }
        else {
          msg $chan 4Ceza listesi sıralanıyor.
          msg $chan $str(-,20)
          var %i 1
          while %i <= $lines(ceza.txt) {
            msg $chan %i - $read(ceza.txt,%i)
            inc %i
          }
        }
      }
      if $2 == ekle {
        if $3 == $null {
          msg $chan 2Lütfen bir nick seçiniz 4Kullanımı; !ceza ekle nick
          .halt
        }
        if $read(ceza.txt,w,$3) {
          msg $chan 4 $+ $3 $+ , 2zaten listede ekli.
        }
        else {
          write ceza.txt $3
          msg $chan 4 $+ $3 $+ , 2ceza listesine eklenmiştir.
        }
      }
      if $2 == sil {
        if $3 == $null {
          msg $chan 2Lütfen bir nick seçiniz 4Kullanımı; !ceza sil nick
          .halt
        }
        if !$read(ceza.txt,w,$3) {
          msg $chan 4 $+ $3 $+ , 2listede bulunamadı.
        }
        else {
          write -dw $+ $3 ceza.txt
          msg $chan 4 $+ $3 $+ , 2ceza listesinden silinmiştir.
        }

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.
  }
}