[Kasirga_]

Merhaba Arkadaslar

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. iyi kullanımlar..

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

  }

}