memoserv :yeni mesajınız var diyaloğu hazır kod
alias memo dialog -m memo memo
dialog memo {
title \\\\\":�M e m o S e r v i s P a n e L i �\\\\\"
size -1 -1 199 100
option dbu
text \\\\\"\\\\\", 1, 0 11 132 8
button \\\\\"Oku\\\\\", 4, 10 56 52 20
button \\\\\"Notu SiL\\\\\", 5, 75 56 52 20
button \\\\\"Kapat\\\\\", 6, 136 56 52 20, ok
box \\\\\"\\\\\", 7, 2 48 195 33
link \\\\\"Memoserv Hakk?nda Geni? Bilgi\\\\\", 8, 123 88 74 8
text \\\\\"\\\\\", 2, 0 36 400 7
box \\\\\"Notunuz\\\\\", 3, 0 29 200 20
box \\\\\"\\\\\", 9, 0 4 200 20
}
on *:dialog:memo:init:*: {
did -a memo 1 %mnick
mdx MarkDialog $dname
set %text.w $gettok($mdxdll(MoveControl,$dname 1),4,32)
mdx MoveControl $dname 1 $dialog($dname).w *
mdx SetFont 1,2 +bu 16 600 arial
mdx SetFont 4,5,6 18 600 tohoma
mdx SetFont 3 15 600 arial
mdx SetColor $dname 8,4,5,6 background $rgb(102,204,255)
mdx SetDialog $dname Bgcolor $rgb(245,245,220)
mdx SetColor $dname 1 text $rgb(148,0,211)
mdx SetColor $dname 2 text $rgb(255,0,0)
mdx SetColor $dname 1,2,3 textbg $rgb(245,245,220)
mdx SetDialog $dname style title tool sysmenü
.timer1 $calc($len(%mnick)*9) 0 kaydir
}
on 1:dialog:memo:sclick:*: {
if ($did == 4) { .timer2 0 0 kaydir2 | did -a memo 2 %mnot }
if ($did == { /run http://www.cesuryurek.net/memoserv-komutlari-ve-kullanimi.html#more-178 }
if ($did == 5) { ms del %mnumara | unset %mn* | did -a memo 2 Son Notunuz Silindi. }
}
on *:notice:*:*: {
if ($nick == memoserv) && (*notunuz var* iswm $1-) { set %mnick $1- | .ms read new | .memo }
if ($nick == memoserv) && (*numarali not* iswm $1-) { set %mnumara $1 }
if ($nick == memoserv) {
.set %mnot $1-
}
}
alias mdx return $dll(mdx.dll,$1,$2-)
alias -l mdx dll mdx.dll $1-
alias -l mdxdll return $dll(mdx.dll,$1,$2-)
alias -l kaydir {
if ($dialog(memo)) {
set %text.x $gettok($mdxdll(MoveControl,memo 1),2,32)
if (%text.x == $+(-,%text.w)) set %text.x $dialog(memo).w
dec %text.x
mdx MoveControl memo 1 %text.x
}
else {
unset %text.x %text.w
.timer1 off
}
}
alias -l kaydir2 {
if ($dialog(memo)) {
set %text.x $gettok($mdxdll(MoveControl,memo 2),2,32)
if (%text.x == $+(-,%text.w)) set %text.x $dialog(memo).w
dec %text.x
mdx MoveControl memo 2 %text.x
}
else {
unset %text.x %text.w
.timer2 off
}
} |
