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