Çevrimdışı

on *:start:acilis
alias acilis {
window -aCBdop +deL @Acilis 10 10 650 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 <= 210) { goto harf9 }
if (%xzy <= 250) { goto harf10 }
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 c
drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)
halt
:harf3
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 100 25 $rand(a,z)
halt
:harf4
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 120 25 u
drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)
halt
:harf5
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 120 25 u
drawtext @Acilis %renk Arial 100 180 25 P
drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)
halt
:harf6
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 120 25 u
drawtext @Acilis %renk Arial 100 180 25 P
drawtext @Acilis %renk Arial 100 240 25 S
drawtext @Acilis %renk Arial 100 300 25 $rand(a,z)
halt
:harf7
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 120 25 u
drawtext @Acilis %renk Arial 100 180 25 P
drawtext @Acilis %renk Arial 100 240 25 S
drawtext @Acilis %renk Arial 100 300 25 o
drawtext @Acilis %renk Arial 100 360 25 $rand(a,z)
halt
:harf8
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 120 25 u
drawtext @Acilis %renk Arial 100 180 25 P
drawtext @Acilis %renk Arial 100 240 25 S
drawtext @Acilis %renk Arial 100 300 25 o
drawtext @Acilis %renk Arial 100 360 25 h
drawtext @Acilis %renk Arial 100 420 25 $rand(a,z)
halt
:harf9
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 120 25 u
drawtext @Acilis %renk Arial 100 180 25 P
drawtext @Acilis %renk Arial 100 240 25 S
drawtext @Acilis %renk Arial 100 300 25 o
drawtext @Acilis %renk Arial 100 360 25 h
drawtext @Acilis %renk Arial 100 420 25 b
drawtext @Acilis %renk Arial 100 480 25 $rand(a,z)
halt
:harf10
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 120 25 u
drawtext @Acilis %renk Arial 100 180 25 P
drawtext @Acilis %renk Arial 100 240 25 S
drawtext @Acilis %renk Arial 100 300 25 o
drawtext @Acilis %renk Arial 100 360 25 h
drawtext @Acilis %renk Arial 100 420 25 b
drawtext @Acilis %renk Arial 100 480 25 e
drawtext @Acilis %renk Arial 100 540 25 $rand(a,z)
halt
:end
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 c
drawtext @Acilis %renk Arial 100 60 25 L
drawtext @Acilis %renk Arial 100 120 25 u
drawtext @Acilis %renk Arial 100 180 25 P
drawtext @Acilis %renk Arial 100 240 25 S
drawtext @Acilis %renk Arial 100 300 25 o
drawtext @Acilis %renk Arial 100 360 25 h
drawtext @Acilis %renk Arial 100 420 25 b
drawtext @Acilis %renk Arial 100 480 25 e
drawtext @Acilis %renk Arial 100 540 25 T
unset %xzy
.timerdegistir off
.timer 1 1 window -c @Acilis
}