Game Killer/Game_Killer.bin/140.GSCAPE.ARC/TEST.ADV

Text File | 1991-10-25 | 8KB | 785 lines

>REMAR
This is a test of the adventure system.  It checks every available command
available to GAMESCAPE.
<

>LOCAT
1
S
MAIN ROOM #1.
You may now use any adventure command you wish.  This test adventure makes
use of EVERY GAMESCAPE FUNCTION.  If you are able to complete this
adventure, then everything works.  If something goes wrong, call us
immediately.  In all likelihood, someone has messed with the TEST.ADV
program and you will need a true copy of GAMESCAPE sent directly to you
from our offices.

The first thing you should probably do is GET any objects you find here.
<

>LOCAT
2
NS
ROOM #2
If you are here and reading this, then the GOTO command works!

If you just heard a bit of music, namely the CHARGE theme, then the
SOUND command works also!

Now go S to room 3.
<

>LOCAT
3
NS
ROOM #3
If you are here, then you know the AT GREATER command works!
Now go S to room 4.
<

>LOCAT
4
NS
ROOM #4
This room is designed to test flag settings.  You should now be able to go
to room 5, because all flags have been set. Ready?  Go S to room 5.
DO NOT return to room 3 before going to room 5, OK?
<

>LOCAT
5
NE
ROOM #5
This is the FLAG room.  All flags below should show a 1, except for the
fourth one which should be random (maybe 1, maybe 10, or anywhere in
between).  If everything shows properly, then you know that SHOWF, FLAGSET,
FLAGADD, FFLAGADD, FFLAGDEC, RANDSET, FLAG=,FLAG NOT =, FLAG GREATER,
FLAG LESS THAN, FFLAG=, FFLAG NOT EQUAL, FFLAG GREATER, and FFLAG LESS THAN
all work properly!!!
  NOTE:  This will only be the case on the FIRST TIME you come to room 5.
Following times will strand you here, so DO NOT RETURN to room 5 from room
4.  In fact, we won't let you... heh heh heh.
Right now you need to go E to room 6.
<

>LOCAT
6
EW
ROOM #6
There are lots of items here.  Pick them all up, enter INV to make sure you
have them all, LOOK to make sure they're gone from the room, then go E to
room #7.
<

>LOCAT
7
EW
ROOM #7
If you are here, then you know that PRESSKEY works.  Now we're going to
test the DROP function.  Type DROP TESTOBJ and I will drop it.  Check your
inventory and room to make sure I did it right.  Then enter DUMP and I'll
drop everything you have, showing you again your inventory and room.  If
everything looks right, then you know that DROP and DUMP work!
Then, go E to room 8.
<

>LOCAT
8
W
ROOM #8
This is the miracle room!  The only functions we have not yet tested (aside
from END,QUIT,LOAD, and SAVE, which you can test at any time) is RAND and
NOTEXIST.  We're going to test both of them.  RAND will be tested
invisibly; if you can do the following, then RAND works.  As you can see
there is nothing in this room.  Objects do NOTEXIST.  Just enter
    GET MIRACLE and if you do so, RAND and NOTEXIST work!
<

>MESSG
1
I do not understand that.  Try different words.
<

>MESSG
2
The IF/AT command works properly.
<

>MESSG
3
If you see this message, then you know 2 things work:
   a) the PRINT command works!
   b) the NOTAT command works!
<

>MESSG
4
If you're reading this, then you know the AT LESS THAN command works!
<

>MESSG
5
If you're reading this, and you now have the TESTOBJ in your inventory,
then you know EXIST GONE PRESENT OBJ INVEN and SHOW all work.

Now go S to room 2.
<

>MESSG
6
The SHOW command works just fine.
<

>MESSG
7
Sorry, you've already been to room 5.  Can't allow you to go again!
<

>MESSG
8
Well, if the screen is holding this message right now for 10 seconds before
going to room 6, and if the screen cleared before doing so, then you know
that CLS and PAUSE work!!!
<

>MESSG
9
OK!
<

>MESSG
10

RAND and NOTEXIST WORK!!!!  You have the MIRACLE!
During this test, we have also made use of preset-locations
301 (LIMBO) 302 (THE ADVENTURER) and 303 (CURRENT LOCATION), so we now
know those work as well.  If you can now make your way back to room 1,
<

>MESSG
11
you will find that EVERY IF and DO function of GAMESCAPE have been
tested and are working properly!!!!
<

>MESSG
12
CONGRATULATIONS!!!  You have completely tested GAMESCAPE and EVERYTHING
WORKS!!!!!
<

>OBJEC
1
1
TESTOBJ

>OBJEC
2
6
TESTOBJ2

>OBJEC
3
6
TESTOBJ3

>OBJEC
4
6
TESTOBJ4

>OBJEC
5
301
MIRACLE

>WORDS
TESTOBJ
<

>WORDS
MIRACLE
<
>WORDS
TESTOBJ2
<

>WORDS
TESTOBJ3
<

>WORDS
TESTOBJ4
<

>WORDS
N
<

>WORDS
E
<

>WORDS
S
<

>WORDS
W
<

>WORDS
U
<

>WORDS
D
<

>WORDS
NE
<

>WORDS
NW
<

>WORDS
SE
<

>WORDS
SW
<

>WORDS
SEARCH
EXAMINE
SEE
<

>WORDS
GET
TAKE
<

>WORDS
DROP
<

>WORDS
END
<

>WORDS
QUIT
Q
<

>WORDS
I
INV
INVEN
INVENTORY
<

>WORDS
LOAD
<

>WORDS
SAVE
<

>WORDS
LOOK
SHOW
SEE
<

>WORDS
PUSH
POKE
<

>WORDS
PULL
MOVE
<

>WORDS
OPEN
<

>WORDS
CLOSE
<

>WORDS
DUMP
<

>REMAR
WARNING!!!!!!!!   REMEMBER TO NEVER NEVER NEVER NEVER
USE COMMAS SEMICOLONS OR COLONS OR QUOTATION MARKS IN YOUR
COMMAND SEQUENCE COMMENTS.  DOING SO WILL CAUSE YOU A WORLD OF TROUBLE!
<

>COMND
W *
IF
AT
8
DO
GOTO
7
SHOW
<

>COMND
N *
IF
AT
2
FLAG=
12
1
DO
CLS
PRINT
12
END
<

>COMND
E *
IF
AT
7
DO
GOTO
8
SHOW
<

>COMND
GET MIRACLE
IF
AT
8
RAND
1
1
DO
OBJ
5
302
SHOW
INVEN
PRINT
10
PRINT
11
<

>COMND
W *
IF
AT
7
DO
GOTO
6
SHOW
FLAGSET
12
1
<

>COMND
W *
IF
AT
6
DO
GOTO
5
SHOW
<

>COMND
DROP *
DO
DROP
SHOW
INVEN
<

>COMND
DUMP *
DO
DUMP
SHOW
INVEN
<

>COMND
E *
IF
AT
6
DO
PRESSKEY
GOTO
7
SHOW
<

>COMND
E *
IF
AT
5
DO
CLS
PRINT
8
PAUSE
10
GOTO
6
SHOW
<

>COMND
N *
IF
AT
5
DO
GOTO
4
SHOW
<

>COMND
N *
IF
AT
4
DO
GOTO
3
SHOW
<

>COMND
S *
IF
AT
4
FLAG=                             FLAG6 INDICATES ROOM 5 ALREADY
6                                 VISITED AND WILL NOT ALLOW ANOTHER
1                                 VISIT, BECAUSE ALL THE FLAGS ARE
DO                                ALREADY SET.
PRINT
7
<

>COMND
S *
IF
AT
4
FLAG=
2                                 FLAGS 1-3 ARE CHECKER FLAGS TO SEE
1                                 IF THEY = 1.  FLAG 4 IS A RANDOMLY
FLAG<>                            GENERATED NUMBER.
1
2
FLAG>
1
0
FLAG<
1
2
FFLAG=
1
2
FFLAG<>
1
5
FFLAG>
1
5
FFLAG<
5
1
DO
GOTO
5
SHOW
FLAGSET
6
1
SHOWF
1
SHOWF
2
SHOWF
3
SHOWF
4
<

>COMND
S *
IF
AT
3
DO
GOTO
4
FLAGSET
1
1
FLAGADD
2
1
FFLAGADD
3
1
FFLAGADD
3
2
FFLAGDEC
3
1
RANDSET
10
4
SHOW
<

>COMND
N *
IF
AT<
4
AT
3
DO
GOTO
2
SHOW
PRINT
4
SOUND
130
2
174
2
220
2
261
4
220
2
261
8
0
0
<

>COMND
LOOK *
IF
AT
1
DO
SHOW
PRINT
6
<

>COMND
S *
IF
AT
1
DO
GOTO
2
SHOW
SOUND
130
2
174
2
220
2
261
4
220
2
261
8
0
0
PRINT
2
<

>COMND
N *
IF
NOTAT
1
AT
2
DO
GOTO
1
SHOW
PRINT
3
<

>COMND
S *
IF
AT>
1
AT
2
DO
GOTO
3
SHOW
<

>COMND
GET TESTOBJ
IF
EXIST
1
303
DO
OBJ
1
302
SHOW
INVEN
PRINT
5
<

>COMND
GET TESTOBJ2
IF
EXIST
2
303
DO
OBJ
2
302
PRINT
9
<

>COMND
GET TESTOBJ3
IF
EXIST
3
303
DO
OBJ
3
302
PRINT
9
<

>COMND
GET TESTOBJ4
IF
EXIST
4
303
DO
OBJ
4
302
PRINT
9
<

>COMND
GET TESTOBJ
IF
AT
1
EXIST
1
1
GONE
1
302
PRESENT
1
DO
OBJ
1
302
SHOW
INVEN
PRINT
5
<

>COMND
QUIT *                                   QUIT GAME
DO
QUIT
<

>COMND
END *                                   END GAME
DO
END
<

>COMND
I *                                   CHECK INVENTORY
DO
INVEN
<

>COMND
LOAD *                                   LOAD PREVIOUSLY SAVED GAME
DO
LOAD
<

>COMND
SAVE *                                   SAVE CURRENT GAME
DO
SAVE
<

>COMND
LOOK *                                   LOOK AT PRESENT SURROUNDINGS
DO
SHOW
<

>COMND
* *                            THIS COMMAND ***MUST*** BE THE LAST COMMAND IN
DO                             EACH ADVENTURE.  IT TAKES ILLOGICAL INPUT AND
PRINT                          TELLS THE USER ABOUT IT!
1
<
>DONE!