Çevrimdışı

hehehe Çok GüzeL ELine SağLık Kardeş de
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
desi ne dersen şu canım sıkıldı uğraş uğraş bu çıktı ortaya biraz değiştirdim şimdiden özürdiLiyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Matrak OLsun Diye oynadım codenin üzerinde
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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 15 25 S
drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)
halt
:harf3
clear @Acilis
drawtext @Acilis %renk Arial 100 1 25 S
drawtext @Acilis %renk Arial 100 55 25 =
drawtext @Acilis %renk Arial 100 100 25 $rand(a,z)
halt
:harf4
clear @Acilis
drawtext @Acilis %renk Arial 100 15 25 S
drawtext @Acilis %renk Arial 100 88 25 =
drawtext @Acilis %renk Arial 100 118 25 =
drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)
halt
:harf5
clear @Acilis
drawtext @Acilis %renk Arial 100 1 25 S
drawtext @Acilis %renk Arial 100 55 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)
halt
:harf6
clear @Acilis
drawtext @Acilis %renk Arial 100 15 25 S
drawtext @Acilis %renk Arial 100 88 25 =
drawtext @Acilis %renk Arial 100 118 25 =
drawtext @Acilis %renk Arial 100 135 25 =
drawtext @Acilis %renk Arial 100 135 25 =
drawtext @Acilis %renk Arial 100 220 25 $rand(a,z)
halt
:harf7
clear @Acilis
drawtext @Acilis %renk Arial 100 1 25 S
drawtext @Acilis %renk Arial 100 55 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 85 25 =
drawtext @Acilis %renk Arial 100 208 25 =
drawtext @Acilis %renk Arial 100 235 25 $rand(a,z)
halt
:harf8
clear @Acilis
drawtext @Acilis %renk Arial 100 15 25 S
drawtext @Acilis %renk Arial 100 88 25 =
drawtext @Acilis %renk Arial 100 118 25 =
drawtext @Acilis %renk Arial 100 135 25 =
drawtext @Acilis %renk Arial 100 190 25 =
drawtext @Acilis %renk Arial 100 240 25 >
drawtext @Acilis %renk Arial 100 250 25 ))
drawtext @Acilis %renk Arial 100 285 25 $rand(a,z)
halt
:end
clear @Acilis
drawtext @Acilis %renk Arial 100 5 25 o
drawtext @Acilis %renk Arial 100 70 25 v
drawtext @Acilis %renk Arial 100 100 25 v
drawtext @Acilis %renk Arial 100 150 25 y
drawtext @Acilis %renk Arial 100 200 25 e
drawtext @Acilis %renk Arial 100 250 25 a
drawtext @Acilis %renk Arial 100 310 25 h
drawtext @Acilis %renk Arial 100 400 25 ^(o_o)^
unset %xzy
.timerdegistir off
.timer 1 1 window -c @Acilis
}

_________________________________