Inform - Resources - Examples

Back to List

Inventory
Complete

At Start
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing Advent.inf

1. Advent.inf begins (lines 1-50)

0001  !% -S~D
0002   
0003  ! ------------------------------------------------------------------------------
0004  !  Advent 060321        A classic and one of the standard Inform 6 example games
0005  !
0006  !
0007  !                                  Adapted to Inform 5: 17.05.1994 to 24.05.1994
0008  !                 Modernised to Inform 5.5 and library 5/12 or later: 20.12.1995
0009  !                    Modernised to Inform 6 and library 6/1 or later: 11.11.1996
0010  !                    A few bugs removed and companion text rewritten: 09.12.1996
0011  !                                Some very minor bugs indeed removed: 24.02.1997
0012  !                                                    And another two: 04.09.1997
0013  !                 [RF] Source reformatted and very minor bug removed: 02.09.2004
0014  !                     [RF] Added teleportation, also minor bug fixes: 21.03.2006
0015  ! ------------------------------------------------------------------------------
0016   
0017  ! Constant TEST_VERSION;
0018   
0019  Constant Story "ADVENTURE";
0020  Constant Headline
0021      "^The Interactive Original^
0022        By Will Crowther (1976) and Don Woods (1977)^
0023        Reconstructed in three steps by:^
0024        Donald Ekman, David M. Baggett (1993) and Graham Nelson (1994)^
0025        [In memoriam Stephen Bishop (1820?-1857): GN]^^";
0026  Serial "060321";
0027  Release 9;
0028   
0029  ! Adventure's IFID -- see http://babel.ifarchive.org/
0030  Array UUID_ARRAY string "UUID://E9FD3D87-DD2F-4005-B332-23557780B64E//"; #Ifdef UUID_ARRAY; #Endif;
0031   
0032  Constant AMUSING_PROVIDED;
0033  Constant MAX_CARRIED   = 7;
0034  Constant MAX_SCORE     = 350;
0035  Constant MAX_TREASURES = 15;
0036   
0037  Include "Parser";
0038  Include "VerbLib";
0039   
0040  Attribute nodwarf;                      ! Room is no-go area for dwarves
0041  Attribute treasure_found;               ! Treasure object has been found
0042  Attribute multitude;                    ! Used only by COUNT
0043   
0044  Global caves_closed;                    ! true when cave is closing
0045  Global canyon_from;                     ! Which canyon to return to
0046  Global treasures_found;                 ! Count of treasures found
0047  Global deaths;                          ! Counts of deaths/resurrections
0048  Global dark_warning;                    ! true after warning about dark pits
0049  Global feefie_count;                    ! fee/fie/foe/foo sequencer
0050   


Last updated 23 June 2004. This web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.