home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 October / Chip_1996-10_cd.bin / share / truebas / animate.sc_ / animate.sc
Encoding:
Text File  |  1996-08-27  |  2.0 KB  |  125 lines
  1. rem * so entsteht eine Animation *
  2. rem ******************************
  3. rem * (c) P. Tiemann, 1994     *
  4. rem ******************************
  5.  
  6. rem german version, TrueScript 2.6
  7.  
  8. let SavePaths = off
  9.  
  10. window olga.bmp
  11.  
  12. mark 10 13 193 123
  13. sendkeys "\Alt+ID" /fast
  14.  
  15. select 0
  16. mark 15 18 198 128
  17. sendkeys "\Alt+ID" /fast
  18.  
  19. select 0
  20. mark 20 23 203 133
  21. sendkeys "\Alt+ID" /fast
  22.  
  23. select 0
  24. mark 25 28 208 138
  25. sendkeys "\Alt+ID" /fast
  26.  
  27. select 0
  28. mark 30 33 213 143
  29. sendkeys "\Alt+ID" /fast
  30.  
  31. select 0
  32. mark 35 38 218 148
  33. sendkeys "\Alt+ID" /fast
  34.  
  35. select 0
  36. mark 40 43 223 153
  37. sendkeys "\Alt+ID" /fast
  38.  
  39. select 0
  40. mark 45 48 228 158
  41. sendkeys "\Alt+ID" /fast
  42.  
  43. select 0
  44. mark 50 53 233 163
  45. sendkeys "\Alt+ID" /fast
  46.  
  47. select 0
  48. mark 55 58 238 168
  49. sendkeys "\Alt+ID" /fast
  50.  
  51. select 0
  52. mark 60 63 243 173
  53. sendkeys "\Alt+ID" /fast
  54.  
  55. select 0
  56. mark 65 68 248 178
  57. sendkeys "\Alt+ID" /fast
  58.  
  59. select 0
  60. mark 65 68 248 178
  61. sendkeys "\Alt+ID" /fast
  62.  
  63. select 0
  64. mark 60 68 252 182
  65. sendkeys "\Alt+ID" /fast
  66.  
  67. select 0
  68. mark 55 68 258 188
  69. sendkeys "\Alt+ID" /fast
  70.  
  71. select 0
  72. mark 50 68 263 193
  73. sendkeys "\Alt+ID" /fast
  74.  
  75. select 0
  76. mark 45 68 266 198
  77. sendkeys "\Alt+ID" /fast
  78.  
  79. :ende
  80.  
  81. select 0
  82. sendkeys "\Strg+\F04"
  83.  
  84. sendkeys "\ALt+OI"
  85. sendkeys "\Alt+D\Esc\Esc "
  86.  
  87. mouse move 75 125
  88. mouse rpress
  89.  
  90. let FadeIn = off
  91. let FadeOut = off
  92. let anifile = ".\neu.flc"
  93. let anispeed = 50
  94. rem eine Animation erstellen..
  95. sendkeys "\Alt+A\Enter\Alt+C\tab184\tab111\enter\enter"
  96.  
  97. rem alle Fenster schlie▀en
  98. sendkeys "\Alt+OS"
  99.  
  100. rem Animationen anzeigen lassen
  101. sendkeys "\Alt+DT\EnterN\Enter"
  102.  
  103. rem die Animation selektieren..
  104. sendkeys "\Up"
  105.  
  106. rem Information ⁿber das neue FLC anzeigen..
  107. mouse move 255 75
  108. mouse rdn
  109. delay 2
  110. mouse rup
  111. delay 1
  112.  
  113. rem die Animation anspielen
  114. sendkeys " \Alt+DF"
  115.  
  116. rem wieder Bitmaps anzeigen lassen
  117. sendkeys "\Alt+DT\EnterB\Enter"
  118.  
  119. newbox
  120. boxtext "Abspielbar als normale FLC-Datei."
  121. boxtext "Ganz nett, nicht wahr?"
  122. button "genug, ich registriere"
  123. box "die Animation lΣuft"
  124.  
  125. closewindow