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