alias -l efekt.tit {
if ($dialog($1)) {
set %klen $calc(%klen + 1)
if (%pos == sol) { dialog -t $1 $left(%baslik,%klen) }
if (%pos == sag) { dialog -t $1 $right(%baslik,%klen) }
if (%klen == %kbaslik) {
if (%pos == sol) set %pos sag
elseif (%pos == sag) set %pos sol
set %klen 1
}
}
else { unset %pos %klen %kbaslik %baslik | .timereffect off }
}
alias efekt {
if (!$1) echo -a Dialog belirtilmedi.
elseif (!$dialog($1)) echo -a Dialog bulunamadı.
elseif (!$timer(effect)) {
set %baslik $dialog($1).title
set %kbaslik $len(%baslik)
set %klen 1 | set %pos sol
.timereffect -m 0 100 efekt.tit $1
}
}