Adventure in VMS command language

[Martin Minow]

Recently, net.unix was treated to an "adventure shell," showing
how the sentence structure of adventure could be used in a
Unix user context.

Here is the other side of the story -- a script from adventure
as it might appear if you were interacting with the VMS command
language.

It was written by my collegue Jeff Lomicka.  You can send
rotten vegetables to him at decvax!decwrl!rhea!regina!lomickaj

Martin Minow
decvax!minow



$ play advent
%ADV-I-WELCOM, Welcome to Adventure!!  Would you like instructions?
_$ no

%ADV-I-UARE, You are standing at the end of a road before a small brick
 building. Around you is a forest. A small stream flows out of the
 building and down a gully.

$ SET ADVENTURER/MOTION=INTO_BUILDING
 
%ADV-I-UARE, You are inside a building, a well house for a large spring. 
 
%ADV-I-THEREIS, There are some keys on the ground here. 

%ADV-I-THEREIS, There is a shiny brass lamp nearby. 

%ADV-I-THEREIS, There is food here. 

%ADV-I-THEREIS, There is a bottle of water here.
 
$ TAKE/OBJECT=(KEYS,LAMP,FOOD,WATER)

%ADV-I-TAKEN, Ok.

$ SET ADVENTURER/MOTION=OUT_OF_BUILDING

%ADV-I-UAGAIN, You're at end of road again.

$ SHOW SURROUNDINGS

%ADV-E-SOSORRY, Sorry, but I am not allowed to give more detail.

$ SHOW SURROUNDINGS/AGAIN

%ADV-I-UARE, You are standing at the end of a road before a small brick
 building. Around you is a forest. A small stream flows out of the
 building and down a gully.

$ SET ADVENTURER/MOTION=DOWNSTREAM/REPEAT=3

%ADV-I-UARE, You are in a valley in the forest beside a stream tumbling
 along a rocky bed.

%ADV-I-UARE, At your feet all the water of the stream splashes into a
 2-inch slit in the rock. Downstream the streambed is bare rock.

%ADV-I-UARE, You are in a 20-foot depression floored with bare dirt. Set
 into the dirt is a strong steel grate mounted in concrete. A dry
 streambed leads into the depression.

%ADV-W-LCK, The grate is locked.

$ SET GRATE/UNLOCKED/DEVICE=KEYS

%ADV-S-UNLK, The grate is now unlocked.  

$ SET ADVENTURER/MOTION=DOWN

%ADV-I-UARE, You are in a small chamber beneath a 3X3 steel grate to the
 surface. A low crawl over cobbles leads inward to the west.

%ADV-W-OPE, The grate is open.  

$ SET ADVENTURER/MOTION=WEST

%ADV-I-UARE, You are crawling over cobbles in a low passage. There is a
 dim light at the east end of the passage.

%ADV-I-THEREIS, There is a small wicker cage discarded nearby.  

$ TAKE/OBJECT=CAGE

%ADV-I-TAKEN, Ok.

$ ^Z
%FOR-F-ENDDURREA, end-of-file during read

(You get the general idea...)