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 } }