home *** CD-ROM | disk | FTP | other *** search
/ World of Graphics / WOGRAPH.BIN / 642.PROMOTE1.SHW < prev    next >
Text File  |  1993-02-28  |  10KB  |  398 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  PROMOTE1.SHW                                          ;
  3. ; Date.......:  1st. Mar. 1993, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW v. 3.8A, as an example script. ;
  5. ;*********************************************************************;
  6.  
  7. ;Other files:
  8. ;************
  9. ; sound1.shw, scroll1.shw                  ; Tight loop files
  10. ; promote1.gra, chess.pcx, hugo1.gif       ; Graphic files
  11. ; entrance.snd                             ; DataShow Music file
  12. ; goodmorn.wav                             ; Wave Music file
  13. ; show1.scr - show8.scr                    ; Captured screen files
  14.  
  15. SET ESCAPEKEY 27                           ; Script can be stopped any time
  16. SET TIMEOUT 10                             ; Seconds to wait for keyboard
  17.  
  18. VARIABLE CREATE counttimes TYPE NUMBER 1   ; Counts number of runs
  19. IF counttimes NE 1 DO JUMPMARK 10          ; Jump if not 1st run
  20.  
  21. VARIABLE CREATE screentype TYPE NUMBER 0   ; Used to determine video mode
  22. SCREEN CLEAR
  23.  
  24. ;Check the graphics adapter
  25. IF GRAPH VGA DO
  26.    MATH screentype = 3
  27. END
  28. IF GRAPH EGA DO
  29.    MATH screentype = 2
  30. END
  31. IF GRAPH CGA DO
  32.    MATH screentype = 1
  33.    WRITE "THIS PRESENTATION IS MADE FOR VGA SCREENS!"
  34.    GOXY 1 3
  35.    WRITE "IT CAN BE RUN ON YOUR SCREEN BUT SOME FEATURES ARE LIMITED..."
  36.    GOXY 1 5
  37.    WAIT "PUSH ANY KEY..."
  38. END
  39. IF screentype EQ 0 DO
  40.    WRITE "THIS PRESENTATION IS MADE FOR VGA SCREENS!"
  41.    GOXY 1 3
  42.    WRITE "IT CAN BE RUN ON YOUR SCREEN BUT SOME FEATURES ARE LIMITED..."
  43.    GOXY 1 5
  44.    WAIT "PUSH ANY KEY..."
  45. END
  46.  
  47. MARK 10                                    ; Jump here if not 1st run
  48.  
  49. ;Make graphics at beginning of this script
  50. IF screentype GE 2 DO
  51.    SET GRAPHICS EGA1
  52. END
  53. IF screentype EQ 1 DO
  54.    SET GRAPHICS CGA
  55. END
  56.  
  57. COLOR ATTRIBUTE 31             ; Set to blue background, white forground
  58. COLOR BACKGROUND 1             ; Set the background to blue
  59. COLOR FOREGROUND 15            ; Set the foreground to white
  60. SCREEN CLEAR
  61.  
  62. SET DELAYFACTOR 5
  63. SET SHADOW 79
  64.  
  65. GOXY 28 2
  66. WRITE "Welcome to a presentation of"
  67.  
  68. EFFECT TEXTTYPE 3 6
  69. GOXY 28 3
  70. WRITE "DataShow"
  71. EFFECT TEXTTYPE 0 1
  72.  
  73. GOXY 10 12
  74. DRAW LINE 60
  75. GOXY 10 20
  76. DRAW LINE 60
  77.  
  78. GOXY 1 14
  79.  
  80. SPEAK "W-E-L-L-K-U-M-E"        ; Talk via system speaker
  81. SPEAK "T-OO D-A-TH-A-S-H-U-W"
  82.  
  83. DEFINE
  84. ///////    //////   ///////   //////    ///////  //    //  ///////  //  //  //
  85. //    //  //    //    //     //    //  //        //    //  //   //  //  //  //
  86. //    //  ////////    //     ////////  ////////  ////////  //   //  //  //  //
  87. //    //  //    //    //     //    //        //  //    //  //   //   // // //
  88. ///////   //    //    //     //    //  ///////   //    //  ///////    //////
  89. END
  90.  
  91. SET DELAYFACTOR 0              ; Set waiting period to zero
  92.  
  93. MOTION LEFT 0                  ; Move defined area across screen
  94. MOTION RIGHT 79                ; Move defined area partly back on screen
  95.  
  96. EFFECT TEXTTYPE 1 6
  97. GOXY 30 20
  98. WRITE "V. 3.8A"
  99. EFFECT TEXTTYPE 0 1
  100. WAIT 3
  101.  
  102. SET SHADOW OFF
  103. IF screentype NE 0 DO
  104.    SET GRAPHICS OFF
  105. END
  106. SET CURSOR OFF
  107.  
  108. SHOW SCREEN "show1.scr" TXT    ; Show screen saved with CAPTURE
  109.  
  110. MUSIC PROCESS "entrance.snd" SND
  111. WAIT 1
  112.  
  113. COLOR BACKGROUND 3             ; Set the background to cyan
  114. SCREEN CLEAR
  115.  
  116. GOXY 1 20
  117. WINDOW 79 4
  118. COLOR BACKGROUND 7
  119. SCREEN CLEAR
  120.  
  121. GOXY 1 1
  122. WINDOW 79 24
  123.  
  124. COLOR ATTRIBUTE 63             ; Set to cyan background, white forground
  125.  
  126. GOXY 6 2
  127. DRAW BOX 70 14
  128.  
  129. SET CURSOR ON
  130. SET DELAYFACTOR 5
  131.  
  132. GOXY 10 4
  133. WRITE "Together with the resident program CAPTURE, you can create pre-"
  134. GOXY 10 6
  135. WRITE "sentations fast and easy. You CAPTURE screens from programs and"
  136. GOXY 10 8
  137. WRITE "show them from DATASHOW like this screen to be shown here......"
  138. WAIT 2
  139.  
  140. SCREEN GET                     ; Save the current screen to a buffer
  141. SET CURSOR OFF
  142. SHOW SCREEN "show2.scr" TXT    ; Show screen saved with CAPTURE
  143. WAIT 2
  144. SPEAK "C-A-P-T-U-R-E"
  145. WAIT 1
  146. SPEAK "AE"
  147. SPEAK "S-K-R-EE-EE-N"
  148. WAIT 2
  149. SET CURSOR ON
  150. SCREEN PUT                     ; Retrieve saved screen from the buffer
  151.  
  152. GOXY 10 10
  153. WRITE "It is a simple task  to create scripts  and have them  shown on"
  154. GOXY 10 12
  155. WRITE "the screen  with encredible  flexibility.  Scripts are ordinary"
  156. GOXY 10 14
  157. WRITE "ASCII files.  Here the easy method to make scripts is shown..."
  158.  
  159. SPEAK "P-U-S-H"
  160. WAIT 1
  161. SPEAK "A-N-I"
  162. WAIT 1
  163. SPEAK "K-E-I"
  164.  
  165. GOXY 10 20
  166. WAIT "Push any key"            ; Wait for any key to be pushed or TIMEOUT
  167.  
  168. SET CURSOR OFF
  169. COLOR ATTRIBUTE 0
  170.  
  171. SHOW SCREEN "show3.scr" TXT    ; Show screen saved with CAPTURE
  172. WAIT 4
  173. SHOW SCREEN "show4.scr" TXT    ; Show screen saved with CAPTURE
  174. WAIT 4
  175. SHOW SCREEN "show5.scr" TXT    ; Show screen saved with CAPTURE
  176. WAIT 4
  177. EFFECT GLITTER
  178. WAIT 1
  179.  
  180. SCREEN CLEAR
  181. GOXY 10 4
  182. WRITE "It is also a simple task to create several slides and have them"
  183. GOXY 10 6
  184. WRITE "shown the screen with encredible flexibility and control.  Here"
  185. GOXY 10 8
  186. WRITE "the easy method to make slides is shown..."
  187. WAIT 3
  188.  
  189. SHOW SCREEN "show6.scr" TXT    ; Show screen saved with CAPTURE
  190. WAIT 4
  191.  
  192. SET TEXTSOUND ON
  193. COLOR BACKGROUND 4             ; Set the background to red
  194. SCREEN CLEAR
  195. GOXY 10 4
  196. WRITE "You can also write your scripts, slides or graphics to a printer!"
  197. WAIT 3
  198.  
  199. SHOW SCREEN "show7.scr" TXT    ; Show screen saved with CAPTURE
  200. WAIT 2
  201.  
  202. COLOR BACKGROUND 3             ; Set the background to cyan
  203. GOXY 13 5
  204. WRITE "PROMOTE1.SHW"
  205. WAIT 3
  206.  
  207. COLOR ATTRIBUTE 63
  208. SET TEXTSOUND OFF
  209. SET DELAYFACTOR 0
  210.  
  211. SCREEN CLEAR
  212. GOXY 10 10
  213. DRAW BOX 32 2
  214. GOXY 11 11
  215. WRITE "You can create single sounds..."
  216.  
  217. VARIABLE CREATE controlloop TYPE NUMBER 1  ; Variable to control loops
  218.  
  219. MARK 1                         ; Create a mark that can be jumped to
  220. VARIABLE CREATE soundloop TYPE NUMBER 1    ; Variable to control sound
  221. DO "sound1.shw"                ; Call another (sub) program
  222. VARIABLE RELEASE soundloop     ; Clean up after us, for next time round
  223. EFFECT SCROLL DOWN
  224. IF controlloop EQ 3 DO JUMPMARK 2
  225. VARIABLE INCREASE controlloop 1
  226. JUMPMARK 1
  227. MARK 2                         ; Create a mark that can be jumped to
  228.  
  229. VARIABLE RELEASE controlloop   ; Clean up after us, for next time round
  230. WAIT 1
  231.  
  232. GOXY 20 8
  233. WRITE "Or play songs, that you write yourself!"
  234. GOXY 20 9
  235. DRAW LINE 38
  236. MUSIC PROCESS "entrance.snd" SND
  237.  
  238. WAIT 1
  239. GOXY 20 19
  240. WRITE "Or play sounds in the WAV (windows) format!"
  241. GOXY 20 20
  242. DRAW LINE 42
  243. MUSIC PROCESS "beback.wav" WAV 33
  244. WAIT 2
  245.  
  246. COLOR BACKGROUND 2             ; Set the background to green
  247. SCREEN CLEAR
  248. GOXY 10 8
  249. WRITE "Besides this you can control a lot of things yourself.  You can"
  250. GOXY 10 10
  251. WRITE "draw your own pictures  or  devellop your own logo in DATASHOW."
  252. GOXY 10 12
  253. WRITE "For this purpose there is a menu for graphic drawing..."
  254. WAIT 6
  255.  
  256. SHOW SCREEN "show8.scr" TXT    ; Show screen saved with CAPTURE
  257. WAIT 4
  258.  
  259. SET DELAYFACTOR 5
  260. GOXY 26 12
  261. WINDOW 50 5
  262. SCREEN CLEAR
  263. COLOR FOREGROUND 1
  264. GOXY 26 12
  265. COLOR ATTRIBUTE 47             ; Set to green background, white forground
  266. DRAW BOX 50 5
  267. GOXY 3 3
  268. WRITE "By selecting F4 you can draw your own drawings,"
  269. GOXY 3 4
  270. WRITE "and then display them from a script like this.."
  271. WAIT 4
  272. GOXY 1 1
  273. WINDOW 79 24
  274.  
  275. IF screentype LT 2 DO
  276.    SCREEN CLEAR
  277.    WRITE "Here a number of graphic screens would have been show.  - These"
  278.    GOXY 1 3
  279.    WRITE "screens require a high graphic mode and cannot be shown on your"
  280.    GOXY 1 5
  281.    WRITE "screen. This demonstration just skips them and continues..."
  282.    GOXY 1 7
  283.    WAIT "Push any key"
  284. END
  285. IF screentype LT 2 DO JUMPMARK 50
  286.  
  287. SET GRAPHICS EGA1
  288. SHOW SCREEN "promote1.gra" GRA
  289. WAIT 4
  290.  
  291. EFFECT GLITTER
  292.  
  293. SCREEN CLEAR
  294. GOXY 10 10
  295. WRITE "You can also show GRAPHICs created from other programs."
  296. GOXY 10 12
  297. WRITE "Here DataShow display a screen saved in the PCX format -"
  298. GOXY 10 14
  299. WRITE "saved from e.g. the program PaintBrush (TM)."
  300. WAIT 4
  301. SHOW SCREEN "winscr.pcx" PCX
  302. WAIT 4
  303.  
  304. SET GRAPHICS EGA1
  305.  
  306. SCREEN CLEAR
  307. GOXY 10 10
  308. WRITE "AND here DataShow displays a screen saved in the GIF"
  309. GOXY 10 12
  310. WRITE "format; made by CompuServe; with a wealth of files."
  311. WAIT 4
  312. SHOW SCREEN "hugo1.gif" GIF
  313. WAIT 4
  314.  
  315. SET GRAPHICS EGA1
  316.  
  317. COLOR BACKGROUND 1
  318. COLOR FOREGROUND 12
  319. SCREEN CLEAR
  320.  
  321. SET DELAYFACTOR 4
  322.  
  323. GOXY 5 8
  324. WRITE "NEW in DataShow scripts:"
  325. GOXY 5 12
  326. WRITE "Now you can also stay in graphics mode"
  327. GOXY 5 16
  328. WRITE "- and most commands work as in text mode!"
  329. WAIT 3
  330.  
  331. COLOR BACKGROUND 6
  332. COLOR FOREGROUND 14
  333. SCREEN CLEAR
  334. GOXY 10 5
  335. WRITE "Remember to register DataShow. You'll then recieve:"
  336. WAIT 2
  337. SET DELAYFACTOR 0
  338. COLOR FOREGROUND 11
  339. GOXY 12 9
  340. WRITE "- A Runtime version called SHOWRUN for distribution of scripts"
  341. WAIT 3
  342. GOXY 12 11
  343. WRITE "- A Manual that can be printed on a printer for overview"
  344. WAIT 3
  345. GOXY 12 13
  346. WRITE "- A Utility package for making more music files"
  347. WAIT 3
  348. GOXY 12 15
  349. WRITE "- And more music and graphics files"
  350. WAIT 3
  351. COLOR FOREGROUND 14
  352. GOXY 10 19
  353. WRITE "See the NOTES.TXT ascii file for further information!"
  354. WAIT 4
  355.  
  356. SET GRAPHICS OFF
  357.  
  358. MARK 50                        ; Jump to here if insufficient graphics
  359.  
  360. VARIABLE CREATE COUNTTIMES TYPE NUMBER 1
  361. DO "scroll1.shw"               ; Call another (sub) program
  362.  
  363. COLOR FOREGROUND 15
  364. SET SHADOW 2
  365.  
  366. GOXY 1 8
  367. WRITE "This was run number: "
  368. GOXY 25 8
  369. WRITE counttimes
  370. SPEAK counttimes
  371. WAIT 1
  372. SPEAK "T-I-M-E-S"
  373. WAIT 1
  374.  
  375. GOXY 10 11
  376. WRITE "Now this presentation starts over again, but you can stop it at"
  377. GOXY 10 13
  378. WRITE "any time you wish by pressing the escape key.  Then in DATASHOW"
  379. GOXY 10 15
  380. WRITE "you can try all the marvelous things yourself!   Just type SHOW"
  381. GOXY 10 17
  382. WRITE "at the operating system prompt, and you can try out DataShow."
  383. WAIT 1
  384.  
  385. GOXY 10 20
  386. WRITE "That's all folks..."
  387.  
  388. SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S"
  389. SET SHADOW OFF
  390. WAIT 6
  391.  
  392. EFFECT FADE OUT
  393. SET CURSOR ON
  394.  
  395. VARIABLE INCREASE counttimes 1
  396.  
  397. CONTINUE
  398.