MircALem.gen.tr

alias dialoqon {
.dialog -m $1 $1
.hazirla $1
.timer 1 1 .play -s $+($1,.txt) 200
$+(.timer,$1) 0 1 .play -s $+($1,.txt) 200
}
on *:dialog:*:*:*:{
if ($devent == close) {
.play stop
$+(.timer,$dname) off
.remove $+($dname,.txt)
}
if ($devent == init) {
set %title $dialog($dname).title
}
}
alias hazirla {
var %i 1
while (%i < $calc($len(%title) + 1)) {
write $+($1,.txt) .dialog -t $1 $left(%title,%i)
if (%i == $len(%title)) { unset %title }
inc %i
}
}