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

  }

}