Hazır Kod Mesaj Sistemi NOT/HABER

on *:text:*:#Egitmen: {
if $regex($1,/^[!.]Haber/Si) {
  elseif $2 = ekle {
    write haberler.txt 2numarali haber4 $nick 2tarafindan eklendi:4 ”12 $+ $3- $+ 4”5 $+(,$chr(40),$date,$chr(41),)
    msg # 2Haber basariyla eklendi. 4!haber list 2yazarak haberleri listeleyebilirsiniz.
  }
  elseif $2 = sil {
    if $nick isop $chan {
      if !$3 {
        msg # 4Haber silmek icin numara belirtmelisiniz.
        halt
      }
      else {
        write $+(,-dl,$3,) haberler.txt
        msg # $3 4numarali haber silindi.
      }
    }
    else {
      msg # 4Haberleri sadece yoneticiler silebilir.
      halt
    }
  }
  elseif $2 = list {
    if $lines(haberler.txt) = 0 { msg # 2Haber bulunamadi. | halt }
    msg # Haberler listeleniyor.
    var %massacre 1
    while (%massacre <= $lines(haberler.txt)) {
      msg # %massacre $read(haberler.txt,%massacre)
      inc %massacre
    }
  }
}