dialog sky {
  title "Kayan Yazı Denemesi | mIRCdb.com"
  size -1 -1 309 56
  option dbu
  text "Kayan Yazı Örneği - mIRCdb.com - Yupphi! -  SeRDaR406 -  Kayan yazı denemesi - :D :P -! (o)", 1, 46 20 230 8
}

alias -l mdx dll mdx.dll $1-
alias -l mdxdll return $dll(mdx.dll,$1,$2-)
alias -l kaydir {
  if ($dialog(sky)) {
    set %text.x $gettok($mdxdll(MoveControl,sky 1),2,32)
    if (%text.x == $+(-,%text.w)) set %text.x $dialog(sky).w
    dec %text.x
    mdx MoveControl sky 1 %text.x *
  }
  else {
    unset %text.x %text.w
    .timersky off
  }
}
alias sky if (!$dialog(sky)) dialog -mdo sky sky
on *:dialog:sky:init:*: {
  mdx MarkDialog $dname
  set %text.w $gettok($mdxdll(MoveControl,$dname 1),4,32)
  mdx MoveControl $dname 1 $dialog($dname).w *
  .timersky 0 0 kaydir
}