home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 October / Chip_1996-10_cd.bin / share / truebas / main.sc_ / main.sc
Text File  |  1996-08-27  |  4KB  |  224 lines
  1. rem * Demo-Script fⁿr TrueBase    *
  2. rem *                *
  3. rem * (c) P. Tiemann, 1994    *
  4. rem *****************************
  5.  
  6.  
  7. ShowWindow maximized
  8.  
  9. rem Verzeichnis in das Clipboard kopieren
  10. sendkeys "\Alt+VW\Tab\Shift+\Tab\Shift+\Del\Esc" /fast
  11.  
  12. newbox
  13. boxtext "Wie schnell soll Diese Demo ablaufen?"
  14. boxtext ""
  15. button "&langsam"
  16. button "&mittel"
  17. button "&schnell"
  18. box "Ihre Geduld.."
  19.  
  20. if errorlevel 3 goto schnell
  21. if errorlevel 2 goto mittel
  22.  
  23. rem *********************************************
  24.  
  25. rem langsam
  26. let keyspeed = 1000
  27. goto start
  28.  
  29. rem *********************************************
  30.  
  31. :mittel
  32. Let keyspeed = 500
  33. goto start
  34.  
  35. rem *********************************************
  36.  
  37. :schnell
  38. let keyspeed = 10
  39.  
  40.  
  41. rem *********
  42. rem * START *
  43. rem *********
  44.  
  45. :start
  46.  
  47. newbox
  48. boxtext "Zuerst umschalten auf Dateityp 'BMP-Bilder'"
  49. boxtext "und zu dem Bild einen Kommentar ablegen."
  50. boxtext ""
  51. button "Ok"
  52. box "Laden eines Bildes"
  53.  
  54. sendkeys "\menuD\down\down\down\downT\enterB\enter"
  55. rem Verzeichnis wΣhlen
  56. sendkeys "\Alt+VW\Shift+\Insert\Enter"
  57.  
  58. sendkeys " \End\menuD\down\down\down\downErotes \Shift+GESTEIN\Tab\Enter"
  59.  
  60. newbox
  61. boxtext "ZunΣchst einmal wird ein Bild geladen"
  62. boxtext "                  ..warten.."
  63. box "Demonstration TrueBase"
  64.  
  65. let progress = circle
  66. let progress = on
  67.  
  68. mode full
  69. window olga.bmp
  70.  
  71. delay 1
  72.  
  73. newbox
  74. boxtext "Wir markieren einen Ausschnitt aus dem"
  75. boxtext "Bild, um ihn weiter zu bearbeiten."
  76. boxtext ""
  77. button    "markieren"
  78. button    "Abbruch"
  79. box "Bildbearbeitung mit TrueBase"
  80.  
  81. if errorlevel 2 goto ende
  82.  
  83. mark 180 26 380 85
  84. delay 1
  85.  
  86. let progress = bar
  87.  
  88. rem Graustufen
  89. sendkeys "\Alt+IGG\Enter"
  90. delay 1
  91.  
  92. save "himmel.bmp"
  93.  
  94. select 1
  95.  
  96. newbox
  97. boxtext "Wir markieren nun noch einen Ausschnitt"
  98. boxtext "aus dem Bild."
  99. boxtext "Statt eines Kreises einen Balken? Bitte"
  100. boxtext "sehr.."
  101. button    "markieren"
  102. button    "Abbruch"
  103. box "Bildbearbeitung mit TrueBase"
  104.  
  105. if errorlevel 2 goto ende
  106.  
  107. select 1
  108.  
  109. CloseWindow 1
  110.  
  111. mark 232 165 359 318
  112. sendkeys "\Alt+IG\right\down\enter"
  113.  
  114. save "bush.bmp"
  115.  
  116. delay 1
  117.  
  118.  
  119. sendkeys "\Alt+OS"
  120.  
  121. rem Verzeichnis neu einlesen
  122. sendkeys "\Alt+VW\Enter"
  123. sendkeys " \menuD\down\down\downE\shift+GEBUESCH\Tab\Enter"
  124. sendkeys "\down\menuD\downEeine \shift+WOLKE\Tab\Enter"
  125.  
  126.  
  127. newbox
  128. boxtext "Ein Klick auf die rechte Maustaste fⁿhrt"
  129. boxtext "stets eine kontextbezogen sinnvolle"
  130. boxtext "Funktion aus."
  131. button "gleich wird geklickt.."
  132. box "Rechte Maustaste"
  133.  
  134.  
  135. mouse move 20 40
  136. delay 1
  137. mouse rpress
  138.  
  139. rem ein bisschen die extended Info fuer die simplen BMPs anzeigen..
  140. mouse move 255 75
  141. mouse rdn
  142. delay 2
  143. mouse rup
  144. mouse move 255 95
  145. mouse rdn
  146. delay 2
  147. mouse rup
  148.  
  149.  
  150. rem **********************************
  151. rem
  152. rem  nun mal in der Datenbank browsen
  153. rem
  154. rem **********************************
  155.  
  156. newbox
  157. boxtext "Die Dateibeschreibungen k÷nnen auch"
  158. boxtext "tabellarisch betrachtet werden."
  159. boxtext ""
  160. button "mal ansehen"
  161. button "nein!"
  162. box "Beschreibungen"
  163.  
  164. if errorlevel 2 goto animation
  165.  
  166. sendkeys "\Alt+OA\Alt+ B\Enter"
  167. sendkeys "\down\down\down"
  168. delay 1
  169. sendkeys "\Alt+ L"
  170.  
  171.  
  172. rem **********************************
  173. rem
  174. rem  eine Animation erstellen
  175. rem
  176. rem **********************************
  177. :animation
  178. goto katalog
  179.  
  180. newbox
  181. boxtext "Mehrere Bilder k÷nnen zu einem"
  182. boxtext "Kurzfilm (Animation) zusammengefa▀t"
  183. boxtext "werden."
  184. boxtext ""
  185. button "ja, filmen"
  186. button "bitte nicht"
  187. box "'Filmstudio'"
  188.  
  189. if errorlevel 2 goto katalog
  190.  
  191. gosub animate.scr
  192.  
  193. rem **********************************
  194. rem
  195. rem  einen Katalog erstellen
  196. rem
  197. rem **********************************
  198. :katalog
  199.  
  200. newbox
  201. boxtext "Mehrere Bilder k÷nnen zu einem"
  202. boxtext "Katalog zusammengefa▀t werden."
  203. boxtext ""
  204. button "fassen!"
  205. button "nee.."
  206. box "Katalog"
  207.  
  208. if errorlevel 2 goto ende
  209.  
  210. rem Am Ende "Enter", um evtl. ▄berschreiben zu bestΣtigen
  211. sendkeys "\Alt+K\EnterTEST\tab\Shift+\Insert\Alt+G\Alt+K3 \Shift+BILDER\Tab120\Tab120\Enter\Enter"
  212.  
  213. :ende
  214.  
  215. newbox
  216. boxtext "Dieses Demo hat nur einen kleinen Teil"
  217. boxtext "der Funktionen von TrueBase gezeigt!"
  218. boxtext
  219. boxtext "Bitte lesen Sie die Online-Hilfe."
  220. boxtext
  221. boxtext "weiterhin viel Spa▀ && Erfolg mit TrueBase!"
  222. boxtext "(c) P. Tiemann"
  223. button    "Ok"
  224. box "Dies war ein Demo-Script"