#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
