; SAMPLE.ADV ; ; This is a VERY simple sample adventure that uses the "BASIC.ADI" simple ; runtime support code. It isn't interesting to play, but does illustrate ; most of the features of the adventure authoring system. Try compiling ; it using the command: ; ; A>ADVCOM SAMPLE ; ; When the compile has finished, run the adventure using the command: ; ; A>ADVINT SAMPLE ; ; You should then see the initial welcome message and a description of ; your initial location. You can use the direction names to move from ; one location to the next (or the abreviations N,S,E,W). You should try ; manipulating objects using TAKE and DROP. You can manipulate more than ; one at a time by using the conjunction AND. You can also GIVE an object ; to another creature like the DOG or CAT. You can instruct another ; creature to perform an action like: ; ; CAT, GIVE THE DOG THE KEY ; ; You can also experiment with using adjectives to distinguish between ; objects (there is more than one KEY in this adventure). (adventure sample 1) (define welcome "Welcome to the sample adventure.\n") @objects.adi (actor adventurer (noun me) (property initial-location livingroom)) (actor dog (noun dog) (adjective small) (property description "There is a small dog here." short-description "a small dog" initial-location kitchen)) (actor cat (noun cat) (property description "There is a cat here." short-description "a cat" initial-location kitchen)) (location storage-room (property description "You are in a small storage room with many empty shelves. The only exit is a door to the west." short-description "You are in the storage room." west hallway) (method (leave obj dir) (if (send obj carrying? rusty-key) (send-super leave obj dir) (print "You seem to be missing something!\n")))) (location hallway (property description "You are in a long narrow hallway. There is a door to the east into a small dark room. There are also exits on both the north and south ends of the hall." short-description "You are in the hallway." east storage-room north kitchen south livingroom)) (location kitchen (property description "This is a rather dusty kitchen. There is a hallway to the south and a pantry to the west." short-description "You are in the kitchen." south hallway west pantry)) (location pantry (property description "This is the kitchen pantry. The kitchen is through a doorway to the east." short-description "You are in the pantry." east kitchen)) (location livingroom (property description "This appears to be the livingroom. There is a hallway to the north and a closet to the west." short-description "You are in the livingroom." north hallway west closet south front-door-1)) (location outside (property description "You are outside a small house. The front door is to the north." short-description "You are outside." north front-door-2)) (portal front-door (noun door) (adjective front) (class-property short-description "front door" closed t locked t key rusty-key)) (front-door front-door-1 (property initial-location livingroom other-side front-door-2)) (front-door front-door-2 (property initial-location outside other-side front-door-1)) (location closet (property description "This is the livingroom closet. The livingroom is through a doorway to the east." short-description "You are in the closet." east livingroom)) (thing rusty-key (noun key) (adjective rusty) (property description "There is a rusty key here." short-description "a rusty key" initial-location storage-room)) (thing silver-key (noun key) (adjective small silver) (property description "There is a small silver key here." short-description "a small silver key" initial-location closet))