3 !===============================================================================
\r
4 Constant Story "Heidi";
\r
6 "^A simple Inform example
\r
7 ^by Roger Firth and Sonja Kesserich.^";
\r
8 Constant MAX_CARRIED 1;
\r
13 !===============================================================================
\r
16 Object before_cottage "In front of a cottage"
\r
18 "You stand outside a cottage. The forest stretches east.",
\r
22 Object forest "Deep in the forest"
\r
24 "Through the dense foliage, you glimpse a building to the west.
\r
25 A track heads to the northeast.",
\r
26 w_to before_cottage,
\r
30 Object bird "baby bird" forest
\r
31 with description "Too young to fly, the nestling tweets helplessly.",
\r
32 name 'baby' 'bird' 'nestling',
\r
35 Object clearing "A forest clearing"
\r
37 "A tall sycamore stands in the middle of this clearing.
\r
38 The path winds southwest through the trees.",
\r
43 Object nest "bird's nest" clearing
\r
44 with description "The nest is carefully woven of twigs and moss.",
\r
45 name 'bird^s' 'nest' 'twigs' 'moss',
\r
48 Object tree "tall sycamore tree" clearing
\r
50 "Standing proud in the middle of the clearing,
\r
51 the stout tree looks easy to climb.",
\r
52 name 'tall' 'sycamore' 'tree' 'stout' 'proud',
\r
55 Object top_of_tree "At the top of the tree"
\r
56 with description "You cling precariously to the trunk.",
\r
60 Object branch "wide firm bough" top_of_tree
\r
61 with description "It's flat enough to support a small object.",
\r
62 name 'wide' 'firm' 'flat' 'bough' 'branch',
\r
63 each_turn [; if (nest in branch) deadflag = 2; ],
\r
64 has static supporter;
\r
66 !===============================================================================
\r
67 ! Entry point routines
\r
69 [ Initialise; location = before_cottage; ];
\r
71 !===============================================================================
\r
72 ! Standard and extended grammar
\r
76 !===============================================================================
\r