Hazır kod Memo okuma

#memokuma on
on *:notice:*:*: {
  if $nick == Memoserv {
    if (*nick'inden yeni bir notunuz var* iswm $1-) {
      set -e %memonick $1
      $iif($window(@Memo),window -c @Memo)
      window -dk0po +let @Memo 200 170 490 85
      .titlebar @Memo mesajınız var...
      var %yeah,%red,%green,%blue,%di,%fuz,%yon
      %red = 255
      %green = 0
      %blue = 0
      %di = $calc(0 / 490)
      %fuz = $calc(255 / 490)
      %yon = $calc(0 / 490)
      %yeah = 0
      while (%yeah < 490) {
        drawrect -rn @Memo $rgb(%red,%green,%blue) 1 %yeah 0 1 85
        inc %red %di
        inc %green %fuz
        inc %blue %yon
        inc %yeah
      }
      drawdot @Memo
      drawtext @Memo 1 Verdana 11 8 1 Gönderen:
      drawtext -o @Memo 1 Verdana 11 75 1 $1
    }
    if (*msg MemoServ READ*yazarak okuyabilirsiniz* iswm $strip($1-)) {
      set -e %memono $strip($4)
      ms read $strip($4)
      .enable #memomesaj
      .disable #memokuma
    }
  }
}
#memokuma end
#memomesaj off
on *:notice:*:*: {
  if $nick == Memoserv && %memonick && %memono && (*numarali not*nick'inden*Silmek icin,* !iswm $strip($1-)) {
    if $len($1-) <= 90 { drawtext @Memo 1 Verdana 9 1 25 $1- }
    if $len($1-) <= 180 && $len($1-) > 90 { drawtext @Memo 1 Verdana 9 1 20 $mid($1-,1,90) | drawtext @Memo 1 Verdana 9 1 40 $mid($1-,91,$len($1-)) }
    if $len($1-) < 270 && $len($1-) > 180 { drawtext @Memo 1 Verdana 9 1 15 $mid($1-,1,90) | drawtext @Memo 1 Verdana 9 1 30 $mid($1-,91,182) | drawtext @Memo 1 Verdana 9 1 45 $mid($1-,183,$len($1-)) }
    unset %memonick %memono
    .enable #memokuma
    .disable #memomesaj
  }
}
#memomesaj end