>LOCAT 1 S This file is here just to show you how GAMESCAPE works. It is a VERY simple adventure with only 2 rooms. The object: go to room number 2 and pick up the object you find there (ie GET item). To go to room 2, enter S. Go ahead! < >LOCAT 2 NONE Well, you have made it to room 2. As you will notice, there is an object here. Just GET the object and you will win! Wanna know a secret? You can GET either a TROPHY or an AWARD... this adventure scenario recognizes BOTH words! WOWEE WOW WOW! Then you can check your INVentory, and END the game! < >MESSG 1 You have picked up the object and won the game! CONGRATULATIONS!!! < >MESSG 2 OK! You've got it! Now you can check your INVentory. Then if you LOOK at the room, you'll notice the trophy is gone! < >MESSG 3 This game is too simple to allow recognition of that move. Try again. < >OBJEC 1 2 TROPHY >WORDS LOOK < >WORDS N NORTH < >WORDS S SOUTH < >WORDS GET TAKE GRAB < >WORDS TROPHY AWARD < >WORDS I INV INVEN INVENTORY < >WORDS END < >WORDS Q QUIT < >WORDS SAVE < >WORDS LOAD < >COMND LOOK * EXAMINE ROOM DO SHOW < >COMND S * S AT 1 TO 2 IF AT 1 DO GOTO 2 SHOW < >COMND N * N FROM 2 TO 1 WITHOUT TROPHY IF AT 2 GONE 1 302 DO GOTO 1 SHOW < >COMND N * N FROM 2 TO 1 WITH TROPHY--WINS GAME IF EXIST 1 302 AT 2 DO GOTO 1 SHOW PRINT 1 END < >COMND END * END GAME IF ADVENTURER HAS TROPHY IF TELL HIM HE WON EXIST 1 302 DO PRINT 1 END >COMND END * JUST PLAIN END THE GAME ON COMMAND DO END < >COMND QUIT * QUIT THE GAME ON COMMAND DO QUIT < >COMND INV * SHOW INVENTORY CARRIED DO INVEN < >COMND GET TROPHY GET TROPHY/AWARD IF GONE 1 302 DO OBJ 1 302 INVEN < >COMND GET * GENERIC 'GET' FUNCTION-GETS ANYTHING DO THAT IS GETTABLE OBJ 0 302 INVEN < >COMND * * GENERIC GET-ALL 'I DON'T UNDERSTAND' DO PRINT 3 < >COMND SAVE * SAVE GAME FUNCTION DO SAVE < >COMND LOAD * LOAD GAME FUNCTION DO LOAD < >COMND GET * GENERIC GET FUNCTION DO OBJ 0 302 INVEN < >COMND * * GENERIC CATCH-ALL FUNCTION DO < >DONE!