on *:text:*:#dj: {
  if ($regex($nick(#,$nick).pnick,[&.~])) {
    if $regex($1,/^[!.](saatekle$|saatler$|saatsil$)/i) {
      if ($regml(1) == saatekle) {
        if (!$2 ) { .msg $chan  $qt($nick) Hatalı Kullanım Not Belirtmediniz. | return }
        write notlist.txt $2-
        msg $chan DjSaat Listeye Eklendi.
      }
    }
    if ($regml(1) == saatler) {
      if !$lines(notlist.txt)  { msg $chan $qt($Nick) BiLgi BuLunamadı Liste bos | return }
      msg $chan $qt($Nick) BiLgi Listesi AktarıLıyor.
      var %:dj 1
      while (%:dj <= $lines(notlist.txt)) {
        msg $chan %:dj $read(notlist.txt,%:dj)
        inc %:dj
      }
    }
    if ($regml(1) == saatsil) {
      if (!$2 ) { .msg $chan  $qt($nick) Hatalı Kullanım Numara Belirtmediniz. | return }
      write $+(-dl,$2) notlist.txt
      msg $chan $qt($2) Numaralı Djsaat Silinmiştir..
    }
  }
}