>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!