!**************************************************************** ! Room ! A short example by Max Kalus ! ! This is the basic room with one item to manipulate - boring! ! ! Date: 2001-09-20 !**************************************************************** !Constants needed in the game: Constant Story "ROOM"; Constant Headline "^^A short example^ Copyright (c) 2001 by Maximilian Kalus^^"; Release 1; Serial "010920"; !YYMMDD; !Abbreviations here: !*********************************************************** !Parser und stuff !*********************************************************** Include "Parser"; Include "VerbLib"; !*********************************************************** !*********************************************************** !Objects of the map !*********************************************************** !*********************************************************** ! the room: Object TheRoom "The Room" with description "You are in this room, which seems frightlingly plain and common." has light; !This object makes the room a little bit more complex: Object -> Stein "Bavarian beer stein" with name "stein" "bavarian" "mug" "beer" "beermug" "jug" "jar" "glass" "tumbler" "beaker" "cup" "oktoberfest" "munich", description "Your basic Oktoberfest beer mug, holding two liters of strong beer at its best. Regretably empty it is right now, though.", has transparent; !glass !*********************************************************** !Initialise-Routine, etc. !*********************************************************** [ Initialise; !The starting room: location = TheRoom; !Move things to player: !start Daemons !Say hello: print_ret "^Slowly you awake from your dreams...^^"; ]; !*********************************************************** !Library-Routines !*********************************************************** !*********************************************************** !Other Routines !*********************************************************** !*********************************************************** !Help menus !*********************************************************** !*********************************************************** !Grammar !*********************************************************** !------------------ Subs for new Verbs ------------------- !----------------------- New Verbs ------------------------ Include "Grammar"; !------------------ Extended Verbs ------------------------ end;