home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 15
/
CD_ASCQ_15_070894.iso
/
maj
/
2179
/
guide.exe
/
GUIDESCR.SHW
< prev
next >
Wrap
Text File
|
1994-06-01
|
7KB
|
236 lines
;*******************************************************************;
; Sciptname..: Guidescr.SHW ;
; Date.......: 1st. Feb. 1994, by RMP DATA. ;
; Purpose....: Part of the demonstration script GUIDE.SHW. ;
;*******************************************************************;
COLOR ATTRIBUTE 31
SCREEN WIPE SPLIT
SHOW SCREEN "SHOW1.SCR" TXT
WAIT 1
COLOR ATTRIBUTE 95
EFFECT POINT 5 7
GOXY 4 08 DRAW BOX 43 7
GOXY 5 09 WRITE "In this example you'll learn how to create"
GOXY 5 10 WRITE "your first simple script. Scripts are the"
GOXY 5 11 WRITE "the basis for all promotions/tutorials. "
GOXY 5 12 WRITE " "
GOXY 5 13 WRITE "You start in the main screen by selecting "
GOXY 5 14 WRITE "F3 to enter the Script Center. "
MARK 201
READ KEY inkey
CASE KEY inkey 461 DO JUMPMARK 202 ; F3 key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 201
MARK 202
SHOW SCREEN "SHOW3.SCR" TXT
WAIT 1
GOXY 4 08 DRAW BOX 46 7
GOXY 5 09 WRITE "In the Script Center you write commands to be"
GOXY 5 10 WRITE "be executed. The Script Center is suited for"
GOXY 5 11 WRITE "making scripts. With the many commands you"
GOXY 5 12 WRITE "can create powerful scripts. You either type"
GOXY 5 13 WRITE "in commands yourself or as in this case, use"
GOXY 5 14 WRITE "the F9 key to select between commands. "
MARK 203
READ KEY inkey
CASE KEY inkey 467 DO JUMPMARK 204 ; F9 key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 203
MARK 204
SHOW SCREEN "SHOW4.SCR" TXT
GOXY 4 08 DRAW BOX 43 4
GOXY 5 09 WRITE "First you select the Screen Command. It is"
GOXY 5 10 WRITE "already highlighted, so you can just hit"
GOXY 5 11 WRITE "the <Enter> key to select it. "
MARK 205
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 206 ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 205
MARK 206
SHOW SCREEN "GUIDE1.SCR" TXT
GOXY 4 08 DRAW BOX 40 5
GOXY 5 09 WRITE "Usually a script starts by erasing the"
GOXY 5 10 WRITE "current screen. So as a parameter to"
GOXY 5 11 WRITE "the SCREEN command you push <Enter> to"
GOXY 5 12 WRITE "select the highlighted CLEAR command. "
MARK 207
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 208 ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 207
MARK 208
SHOW SCREEN "GUIDE2.SCR" TXT
GOXY 4 08 DRAW BOX 46 6
GOXY 5 09 WRITE "So you can see, you can easily select between"
GOXY 5 10 WRITE "commands with the F9 key. But you can also "
GOXY 5 11 WRITE "write commands directly in the editor. On the"
GOXY 5 12 WRITE "current line write the following command: "
GOXY 5 13 WRITE 'GOXY 10 10 WRITE "HELLO WORLD" '
COLOR ATTRIBUTE 63
VARIABLE VALUE instr ""
MARK 209
GOXY 2 5 READ STRING UPPER instr 32
CASE STRING UPPER instr 'GOXY 10 10 WRITE "HELLO WORLD"' DO JUMPMARK 210
MUSIC SOUND A 2 200
JUMPMARK 209
MARK 210
SHOW SCREEN "GUIDE3.SCR" TXT
COLOR ATTRIBUTE 95
GOXY 4 08 DRAW BOX 43 5
GOXY 5 09 WRITE "And on line 3, you then want the script to"
GOXY 5 10 WRITE "halt a little bit before it finishes. This"
GOXY 5 11 WRITE "can be done with the command you enter: "
GOXY 5 12 WRITE "WAIT 4 "
COLOR ATTRIBUTE 63
VARIABLE VALUE instr ""
MARK 210
GOXY 2 6 READ STRING UPPER instr 7
CASE STRING UPPER instr "WAIT 4" DO JUMPMARK 211
MUSIC SOUND A 2 200
JUMPMARK 210
MARK 211
SCREEN GET
COLOR ATTRIBUTE 95
GOXY 4 08 DRAW BOX 43 5
GOXY 5 09 WRITE "Now you must save the file. You push the "
GOXY 5 10 WRITE "F2 key and select save file (since it is "
GOXY 5 11 WRITE "highlighted, you just press <Enter>. First"
GOXY 5 12 WRITE "F2 then <Enter> "
MARK 212
READ KEY inkey
CASE KEY inkey 460 DO JUMPMARK 213 ; F2 key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 212
MARK 213
SHOW SCREEN "GUIDE4.SCR" TXT
MARK 214
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 215 ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 214
MARK 215
SHOW SCREEN "GUIDE13.SCR" TXT
GOXY 3 08 DRAW BOX 44 4
GOXY 4 09 WRITE "To keep the names of files somewhat in line"
GOXY 4 10 WRITE "with each other, you should give the script"
GOXY 4 11 WRITE "a meaningfull name, here HELLO.SHW "
COLOR ATTRIBUTE 63
VARIABLE VALUE instr ""
MARK 216
GOXY 46 20 READ STRING instr 12
CASE STRING UPPER instr "HELLO.SHW" DO JUMPMARK 217
MUSIC SOUND A 2 200
JUMPMARK 216
MARK 217
SCREEN PUT
COLOR ATTRIBUTE 95
GOXY 4 08 DRAW BOX 44 5
GOXY 5 09 WRITE "The script has been saved and you can now"
GOXY 5 10 WRITE "run it from the main menu. To return to the"
GOXY 5 11 WRITE "main menu push F10 "
GOXY 5 12 WRITE " "
MARK 218
READ KEY inkey
CASE KEY inkey 468 DO JUMPMARK 219 ; F10 key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 218
MARK 219
SHOW SCREEN "SHOW1.SCR" TXT
GOXY 3 08 DRAW BOX 42 6
GOXY 4 09 WRITE "To run a script you must always be in the"
GOXY 4 10 WRITE "main menu. Also there's a runtime version"
GOXY 4 11 WRITE "that runs scripts. Scripts are executed"
GOXY 4 12 WRITE "from the 'Files' menu, so you push F2 and"
GOXY 4 13 WRITE "push <Enter> to run script from start. "
MARK 220
READ KEY inkey
CASE KEY inkey 460 DO JUMPMARK 221 ; F2 key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 220
MARK 221
SHOW SCREEN "GUIDE11.SCR" TXT
MARK 222
READ KEY inkey
CASE KEY inkey 13 DO JUMPMARK 223 ; <Enter> key
CASE KEY inkey 27 DO JUMPMARK 1 ; <Esc> key
MUSIC SOUND A 2 200
JUMPMARK 222
MARK 223
SHOW SCREEN "GUIDE12.SCR" TXT
GOXY 3 08 DRAW BOX 39 4
GOXY 4 09 WRITE "The script you must execute is the one"
GOXY 4 10 WRITE "we just saved in the Script Center. So"
GOXY 4 11 WRITE "you write HELLO.SHW "
COLOR ATTRIBUTE 63
VARIABLE VALUE instr ""
MARK 224
GOXY 46 20 READ STRING instr 12
CASE STRING UPPER instr "HELLO.SHW" DO JUMPMARK 225
MUSIC SOUND A 2 200
JUMPMARK 224
MARK 225
COLOR ATTRIBUTE 95
GOXY 3 08 DRAW BOX 40 4
GOXY 4 09 WRITE "The script will be executed right away."
GOXY 4 10 WRITE "When the script has finished GUIDE will"
GOXY 4 11 WRITE "return with a show message. "
WAIT 3
; Here we mimic the slide behavior.
SCREEN CLEAR
GOXY 10 10 WRITE "HELLO WORLD"
WAIT 4
COLOR ATTRIBUTE 111
SCREEN WIPE SPLIT
COLOR ATTRIBUTE 95
GOXY 3 08 DRAW BOX 41 7
GOXY 4 09 WRITE "This concludes the simple guided tour on"
GOXY 4 10 WRITE "how to make a very simple slide show u-"
GOXY 4 11 WRITE "sing the Script Center. There are very"
GOXY 4 12 WRITE "powerful features within all of many me-"
GOXY 4 13 WRITE "nues and Centers in DataShow. So play"
GOXY 4 14 WRITE "with it all and learn MultiMedia! "
; Place to jump to if <Esc> is pushed.
MARK 1