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 S drawtext @Acilis %renk Arial 100 70 25 $rand(a,z) halt :harf3 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 $rand(a,z) halt :harf4 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 $rand(a,z) halt :harf5 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 $rand(a,z) halt :harf6 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 $rand(a,z) halt :harf7 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 $rand(a,z) halt :harf8 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i 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 S drawtext @Acilis %renk Arial 100 70 25 t drawtext @Acilis %renk Arial 100 100 25 a drawtext @Acilis %renk Arial 100 150 25 r drawtext @Acilis %renk Arial 100 190 25 t drawtext @Acilis %renk Arial 100 220 25 i drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 g unset %xzy .timerdegistir off .timer 1 1 window -c @Acilis }
