examples/HeidiPlus.inf

   1 !% -SD\r
   2 \r
   3 !===============================================================================\r
   4 Constant Story "Heidi";\r
   5 Constant Headline\r
   6             "^A simple Inform example\r
   7              ^by Roger Firth and Sonja Kesserich.^";\r
   8 Constant MAX_CARRIED 1;\r
   9 \r
  10 Include "Parser";\r
  11 Include "VerbLib";\r
  12 \r
  13 !===============================================================================\r
  14 ! The game objects\r
  15 \r
  16 Object  before_cottage "In front of a cottage"\r
  17   with  description\r
  18             "You stand outside a cottage. The forest stretches east.",\r
  19         e_to forest,\r
  20         in_to "It's such a lovely day -- much too nice to go inside.",\r
  21         cant_go "The only path lies to the east.",\r
  22   has   light;\r
  23 \r
  24 Object  cottage "tiny cottage" before_cottage\r
  25   with  description "It's small and simple, but you're very happy here.",\r
  26         name 'tiny' 'cottage' 'home' 'house' 'hut' 'shed' 'hovel',\r
  27         before [;\r
  28           Enter:\r
  29             print_ret "It's such a lovely day -- much too nice to go inside.";\r
  30         ],\r
  31   has   scenery;\r
  32 \r
  33 Object  forest "Deep in the forest"\r
  34   with  description\r
  35             "Through the dense foliage, you glimpse a building to the west.\r
  36              A track heads to the northeast.",\r
  37         w_to before_cottage,\r
  38         ne_to clearing,\r
  39   has   light;\r
  40 \r
  41 Object  bird "baby bird" forest\r
  42   with  description "Too young to fly, the nestling tweets helplessly.",\r
  43         name 'baby' 'bird' 'nestling',\r
  44         before [;\r
  45           Listen:\r
  46             print "It sounds scared and in need of assistance.^";\r
  47             return true;\r
  48         ],\r
  49   has   ;\r
  50 \r
  51 Object  clearing "A forest clearing"\r
  52   with  description\r
  53             "A tall sycamore stands in the middle of this clearing.\r
  54              The path winds southwest through the trees.",\r
  55         sw_to forest,\r
  56         u_to top_of_tree,\r
  57   has   light;\r
  58 \r
  59 Object  nest "bird's nest" clearing\r
  60   with  description "The nest is carefully woven of twigs and moss.",\r
  61         name 'bird^s' 'nest' 'twigs' 'moss',\r
  62   has   container open;\r
  63 \r
  64 Object  tree "tall sycamore tree" clearing\r
  65   with  description\r
  66             "Standing proud in the middle of the clearing,\r
  67              the stout tree looks easy to climb.",\r
  68         name 'tall' 'sycamore' 'tree' 'stout' 'proud',\r
  69         before [;\r
  70           Climb:\r
  71             PlayerTo(top_of_tree);\r
  72             return true;\r
  73         ],\r
  74   has   scenery;\r
  75 \r
  76 Object  top_of_tree "At the top of the tree"\r
  77   with  description "You cling precariously to the trunk.",\r
  78         d_to clearing,\r
  79         after [;\r
  80           Drop:\r
  81             move noun to clearing;\r
  82             return false;\r
  83         ],\r
  84   has   light;\r
  85 \r
  86 Object  branch "wide firm bough" top_of_tree\r
  87   with  description "It's flat enough to support a small object.",\r
  88         name 'wide' 'firm' 'flat' 'bough' 'branch',\r
  89         each_turn [; if (bird in nest && nest in branch) deadflag = 2; ],\r
  90   has   static supporter;\r
  91 \r
  92 !===============================================================================\r
  93 ! Entry point routines\r
  94 \r
  95 [ Initialise; location = before_cottage; ];\r
  96 \r
  97 !===============================================================================\r
  98 ! Standard and extended grammar\r
  99 \r
 100 Include "Grammar";\r
 101 \r
 102 !===============================================================================\r