Bazen Arkadasımızdan, vs not gelir görmeyiz unuturuz veya gec görürüz ,bende bunu düşünerek "yeni notunuz var" hatırlatma kodunu dialoga cevirdim piyasada olan dialogda hareketli yazı kodunuda kullanarak bu dialoga uyarladım umarım işinize yarar.
yanlız kodun sorunsuz calısması icin mdx.dll nin mirc ana dizininde olması lazım mirc ana klasorunde ise sorun yok eger değilse ana klasorede kopyalayın aynısını. eger mdx.dll kesip ana klasore tasırsanız diger dialogların calısmamasına neden olabilir. sadece mdx.dll'yi kopyalayıp mirc ana klasorune atın ve alt+r yapıp remoteyiş acıyoruz kodu remoteye ekliyoruz bukadar.
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
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 == 8) { /run http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">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
}
}