Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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
}

KırmızıyLa gösterdiğim yerlere bakarsan anlıyacaksın Kolay Gelsin.