mIRC Hareketli Açılış
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
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 m drawtext @Acilis %renk Arial 100 70 25 $rand(a,z) halt :harf3 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 $rand(a,z) halt :harf4 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 $rand(a,z) halt :harf5 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 $rand(a,z) halt :harf6 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 H drawtext @Acilis %renk Arial 100 220 25 $rand(a,z) halt :harf7 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 H drawtext @Acilis %renk Arial 100 220 25 a drawtext @Acilis %renk Arial 100 235 25 $rand(a,z) halt :harf8 clear @Acilis drawtext @Acilis %renk Arial 100 5 25 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 H drawtext @Acilis %renk Arial 100 220 25 a 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 m drawtext @Acilis %renk Arial 100 70 25 I drawtext @Acilis %renk Arial 100 100 25 R drawtext @Acilis %renk Arial 100 150 25 C drawtext @Acilis %renk Arial 100 190 25 H drawtext @Acilis %renk Arial 100 220 25 A drawtext @Acilis %renk Arial 100 235 25 n drawtext @Acilis %renk Arial 100 285 25 e unset %xzy .timerdegistir off .timer 1 1 window -c @Acilis } |