on *:text:!haber*:#egitmen:{
if $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.
}
if $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
}
}
if $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
}
}
}