on *:text:!reklam*:*:{
  set %bilgikanalı #X
  if (!$chan) && ($3) {
    if (!$read(reklam.txt,w,$nick $2 $3-)) {
      write reklam.txt $nick $2 $3-
      msg $nick Reklam bildiriniz alınmıştır.
      msg $nick İlginiz için teşekkürler.
      msg %bilgikanalı $reklamal($lines(reklam.txt))
    }
    else { msg $nick Bu reklam bildirisini önceden yaptınız. }
  }
  elseif $chan == %bilgikanalı {
    if $1 == !reklamlist {
      if !$lines(reklam.txt) { msg # Reklam dosyası boş. | return }
      var %r 1
      while %r <= $lines(reklam.txt) {
        msg # $reklamal(%r)
        inc %r
      }
    }
    elseif ($1- == !reklam temizle) { 
      $iif($isfile(reklam.txt),.timer 1 0 .remove reklam.txt $(|) msg # Reklam dosyası temizlendi.,msg # Reklam dosyası boş.)
    }
  }
}

alias reklamal return [REKLAM] Bildiri yapan: $gettok($read(reklam.txt,$1),1,32) Reklam yapan: $gettok($read(reklam.txt,$1),2,32) Reklam mesajı: $gettok($read(reklam.txt,$1),3-,32)