Dialog’unuzda kayan yazı örneğini nasıl uygulatabilirsiniz? Bu konuya dâir örnek bir kod. Bu kodu kullanabilmeniz için “mDX.DLL” Dosyasına ihtiyacınız olacaktır.
mdx.DLL dosyasini mIRC’inizde systemdlls klasörünün içerisinde olmalidir.
--
mdx.DLL dosyasini mIRC’inizde systemdlls klasörünün içerisinde olmalidir.
--
Kod:
dialog sky {
title "Kayan Yazı Denemesi"
size -1 -1 309 56
option dbu
text "Kayan Yazı Örneği - Yupphi! - SeRDaR406 - Kayan yazı denemesi - :D :P -! (o)", 1, 46 20 230 8
}
alias -l mdx dll system\dlls\mdx.dll $1-
alias -l mdxdll return $dll(system\dlls\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
}