IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:
#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