!% -S~D ! ------------------------------------------------------------------------------ ! Advent 060321 A classic and one of the standard Inform 6 example games ! ! ! Adapted to Inform 5: 17.05.1994 to 24.05.1994 ! Modernised to Inform 5.5 and library 5/12 or later: 20.12.1995 ! Modernised to Inform 6 and library 6/1 or later: 11.11.1996 ! A few bugs removed and companion text rewritten: 09.12.1996 ! Some very minor bugs indeed removed: 24.02.1997 ! And another two: 04.09.1997 ! [RF] Source reformatted and very minor bug removed: 02.09.2004 ! [RF] Added teleportation, also minor bug fixes: 21.03.2006 ! ------------------------------------------------------------------------------ ! Constant TEST_VERSION; Constant Story "ADVENTURE"; Constant Headline "^The Interactive Original^ By Will Crowther (1976) and Don Woods (1977)^ Reconstructed in three steps by:^ Donald Ekman, David M. Baggett (1993) and Graham Nelson (1994)^ [In memoriam Stephen Bishop (1820?-1857): GN]^^"; Serial "060321"; Release 9; ! Adventure's IFID -- see http://babel.ifarchive.org/ Array UUID_ARRAY string "UUID://E9FD3D87-DD2F-4005-B332-23557780B64E//"; #Ifdef UUID_ARRAY; #Endif; Constant AMUSING_PROVIDED; Constant MAX_CARRIED = 7; Constant MAX_SCORE = 350; Constant MAX_TREASURES = 15; Include "Parser"; Include "VerbLib"; Attribute nodwarf; ! Room is no-go area for dwarves Attribute treasure_found; ! Treasure object has been found Attribute multitude; ! Used only by COUNT Global caves_closed; ! true when cave is closing Global canyon_from; ! Which canyon to return to Global treasures_found; ! Count of treasures found Global deaths; ! Counts of deaths/resurrections Global dark_warning; ! true after warning about dark pits Global feefie_count; ! fee/fie/foe/foo sequencer