on *:text:!haber*:#:{

  if $2 == ekle {

    write haberler.txt numarali haber $nick tarafindan eklendi: " $+ $3- $+ " $+(,$chr(40),$date,$chr(41),) 

    msg # Haber basariyla eklendi. !haber list yazarak haberleri listeleyebilirsiniz.

  }

  if $2 == sil {

    if $nick isop $chan {

      if !$3 {

        msg # Haber silmek icin numara belirtmelisiniz.

        halt

      }

      else {

        write $+(,-dl,$3,) haberler.txt

        msg # $3 numarali haber silindi.

      }

    }

    else {

      msg # Haberleri sadece yoneticiler silebilir.

      halt

    }

  }

  if $2 == list {

    if $lines(haberler.txt) = 0 { msg # Haber bulunamadi. | halt }

    msg # Haberler listeleniyor.

    var %massacre 1

    while (%massacre <= $lines(haberler.txt)) {

      msg # %massacre $read(haberler.txt,%massacre)

      inc %massacre

    }

  }

}