on *:start:acilis
alias acilis {
window -aCBdop +deL @Acilis 10 10 400 150
.timerdegistir 0 0 /degistir
}
alias degistir {
set %renk $rand(2,12)
inc %xzy 1
if (%xzy <= 30) { goto harf1 }
if (%xzy <= 60) { goto harf2 }
if (%xzy <= 90) { goto harf3 }
if (%xzy <= 120) { goto harf4 }
if (%xzy <= 150) { goto harf5 }
if (%xzy <= 180) { goto harf6 }
if (%xzy <= 210) { goto harf7 }
if (%xzy <= 250) { goto harf8 }
if (%xzy == 251) { set %renk 1 | goto end }
:harf1
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z)
halt
:harf2
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 m
drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)
halt
:harf3
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 m
drawtext @Acilis %renk Arial 100 70 25 I
drawtext @Acilis %renk Arial 100 100 25 $rand(a,z)
halt
:harf4
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 m
drawtext @Acilis %renk Arial 100 70 25 I
drawtext @Acilis %renk Arial 100 100 25 R
drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)
halt
:harf5
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 m
drawtext @Acilis %renk Arial 100 70 25 I
drawtext @Acilis %renk Arial 100 100 25 R
drawtext @Acilis %renk Arial 100 150 25 C
drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)
halt
:harf6
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 m
drawtext @Acilis %renk Arial 100 70 25 I
drawtext @Acilis %renk Arial 100 100 25 R
drawtext @Acilis %renk Arial 100 150 25 C
drawtext @Acilis %renk Arial 100 190 25 H
drawtext @Acilis %renk Arial 100 220 25 $rand(a,z)
halt
:harf7
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 m
drawtext @Acilis %renk Arial 100 70 25 I
drawtext @Acilis %renk Arial 100 100 25 R
drawtext @Acilis %renk Arial 100 150 25 C
drawtext @Acilis %renk Arial 100 190 25 H
drawtext @Acilis %renk Arial 100 220 25 a
drawtext @Acilis %renk Arial 100 235 25 $rand(a,z)
halt
:harf8
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 m
drawtext @Acilis %renk Arial 100 70 25 I
drawtext @Acilis %renk Arial 100 100 25 R
drawtext @Acilis %renk Arial 100 150 25 C
drawtext @Acilis %renk Arial 100 190 25 H
drawtext @Acilis %renk Arial 100 220 25 a
drawtext @Acilis %renk Arial 100 235 25 n
drawtext @Acilis %renk Arial 100 285 25 $rand(a,z)
halt
:end
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 m
drawtext @Acilis %renk Arial 100 70 25 I
drawtext @Acilis %renk Arial 100 100 25 R
drawtext @Acilis %renk Arial 100 150 25 C
drawtext @Acilis %renk Arial 100 190 25 H
drawtext @Acilis %renk Arial 100 220 25 A
drawtext @Acilis %renk Arial 100 235 25 n
drawtext @Acilis %renk Arial 100 285 25 e
unset %xzy
.timerdegistir off
.timer 1 1 window -c @Acilis
}