on *:text:*:#işlemkanalı: {
  if ($regex($1,/^[!.]b[iı]lg[iı]ek.e$/Si)) {
    if (!$2) { msg # hatalı kullanım mesaj giriniz, kullanım; !bilgiekle mesajınız. | return }
    else if ($nick !isreg #) {
      ms send seninnickinburaya Notunuz var: $nick Mesajı: $2- 
      msg # notunuz gönderildi.
    }
  }
}

/memoserv set forward on

 ms send seninnickinburaya Notunuz var: $nick Mesajı: $2-

 ms send baskabirNick Notunuz var: $nick Mesajı: $2-

on *:text:*:?: {
  if ($regex($1,/^[!.]b[iı]lg[iı]ekle$/Si)) {
    if (!$2) { msg $nick hatalı kullanım mesaj giriniz, kullanım; !bilgiekle mesajınız. | return }
    if ($nick ison #kanalismi) { .write memolist.txt $nick Mesajı: $2-
      ms send seninnickin Notunuz var: $nick Mesajı: $2-
      ms send birbaskanick Notunuz var: $nick Mesajı: $2- | .msg $nick - $nick Notunuz Gönderilmistir.. 
    }
    else { .msg $nick #kanalismi kanalında olmadığınız için komut kullanamıyorsunuz. }
  }
  if ($regex($1,/^[!.]b[iı]lg[iı]l[iı]st$/Si)) {
    if !$istok(seninnickinburaya,$nick,32) { .msg $nick Bu komutu kullanmaya yetkili degilsiniz | return }
    if ($nick ison #kanalismi) { mlistesi } 
    else { .msg $nick #kanalismi kanalında olmadığınız için komut kullanamıyorsunuz. }
  }
  if ($regex($1,/^[!.]b[iı]lg[iı]s[iı]l$/Si)) {
    if !$istok(seninnickinburaya,$nick,32) { .msg $nick Bu komutu kullanmaya yetkili degilsiniz | return }
    if ($nick ison #kanalismi) { .msg $nick - $nick memo mesaj listesi Silindi.. | .remove memolist.txt } 
    else { .msg $nick #kanalismi kanalında olmadığınız için komut kullanamıyorsunuz. }
  }
}
alias mlistesi { var %:aLn = 1,%:aLns = $lines(memolist.txt) | while %:aLn <= %:aLns {  .msg $nick  $read(memolist.txt,%:aLn) | inc %:aLn } }

on *:text:$($+(*,$me,*)):#: {
  hinc -mu10 _sz $nick 1
  $iif(!$fopen(_sz),.fopen _sz Kurallar.txt)
  $iif($feof,.fseek -l _sz 1)
if ($hget(_sz,$nick) < 2) msg $nick $fread(_sz) }