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 site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation. Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.