mIRC Script Açılınca Efeckt

mIRC Script’iniz açılırken güzel bir efeckt verebilirsiniz. Aşagidaki kodu remotelere ekleyiniz. ( ALt+R )
Coderi : XcLusive ( Diye biliyorum 🙂 )

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 m
  drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)
  halt
  :harf3
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 i
  drawtext @Acilis %renk Arial 100 60 25 r
  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 c
  drawtext @Acilis %renk Arial 100 120 25 L
  drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)
  halt
  :harf5
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 u
  drawtext @Acilis %renk Arial 100 60 25 p
  drawtext @Acilis %renk Arial 100 120 25 .
  drawtext @Acilis %renk Arial 100 180 25 O
  drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)
  halt
  :harf6
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 R
  drawtext @Acilis %renk Arial 100 60 25 G
  drawtext @Acilis %renk Arial 100 120 25 :
  drawtext @Acilis %renk Arial 100 180 25 =
  drawtext @Acilis %renk Arial 100 240 25 )
  drawtext @Acilis %renk Arial 100 300 25 $rand(a,z)
  halt
  :harf7
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 60 25 i
  drawtext @Acilis %renk Arial 100 120 25 r
  drawtext @Acilis %renk Arial 100 180 25 c
  drawtext @Acilis %renk Arial 100 240 25 L
  drawtext @Acilis %renk Arial 100 300 25 u
  drawtext @Acilis %renk Arial 100 360 25 $rand(a,z)
  halt
  :harf8
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 60 25 i
  drawtext @Acilis %renk Arial 100 120 25 L
  drawtext @Acilis %renk Arial 100 180 25 C
  drawtext @Acilis %renk Arial 100 240 25 L
  drawtext @Acilis %renk Arial 100 300 25 u
  drawtext @Acilis %renk Arial 100 360 25 b
  drawtext @Acilis %renk Arial 100 420 25 $rand(a,z)
  halt
  :harf9
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 60 25 i
  drawtext @Acilis %renk Arial 100 120 25 R
  drawtext @Acilis %renk Arial 100 180 25 c
  drawtext @Acilis %renk Arial 100 240 25 L
  drawtext @Acilis %renk Arial 100 300 25 u
  drawtext @Acilis %renk Arial 100 360 25 B
  drawtext @Acilis %renk Arial 100 420 25 a
  drawtext @Acilis %renk Arial 100 480 25 $rand(a,z)
  halt
  :harf10
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 60 25 i
  drawtext @Acilis %renk Arial 100 120 25 R
  drawtext @Acilis %renk Arial 100 180 25 C
  drawtext @Acilis %renk Arial 100 240 25 c
  drawtext @Acilis %renk Arial 100 300 25 C
  drawtext @Acilis %renk Arial 100 360 25 L
  drawtext @Acilis %renk Arial 100 420 25 u
  drawtext @Acilis %renk Arial 100 480 25 b
  drawtext @Acilis %renk Arial 100 540 25 $rand(a,z)
  halt
  :end
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 60 25 i
  drawtext @Acilis %renk Arial 100 120 25 R
  drawtext @Acilis %renk Arial 100 180 25 C
  drawtext @Acilis %renk Arial 100 240 25 c
  drawtext @Acilis %renk Arial 100 300 25 L
  drawtext @Acilis %renk Arial 100 360 25 u
  drawtext @Acilis %renk Arial 100 420 25 b
  drawtext @Acilis %renk Arial 100 480 25 :
  drawtext @Acilis %renk Arial 100 540 25 )
  unset %xzy
  .timerdegistir off
  .timer 1 1 window -c @Acilis
}