Inform - Resources - Examples

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing Ruins.inf

Treasure class (lines 48-88)

048  !       The TREASURE class definition.
049  !
050  !       Defined in DM4 5, modified in 23
051  Class   Treasure
052    with  before [;
053              Take, Remove:
054                  if (self in packing_case)
055                      "Unpacking such a priceless artifact had best wait until
056                       the Carnegie Institution can do it.";
057                  if (self.photographed_in_situ == false)
058                      "This is the 1930s, not the bad old days. Taking an
059                       artifact without recording its context is simply looting.";
060              Photograph:
061                  if (self has moved) "What, and fake the archaeological record?";
062                  if (self.photographed_in_situ) "Not again.";
063              ],
064          after [;
065              Insert:
066                  if (second == packing_case) {
067                      score = score + self.cultural_value;
068                      if (score == MAX_SCORE) {
069                          deadflag = 2;
070                          print_ret "As you carefully pack away ",
071                                    (the) noun,
072                                    " a red-tailed macaw flutters down from the
073                                     tree-tops, feathers heavy in the recent rain,
074                                     the sound of its beating wings almost
075                                     deafening, stone falling against stone...
076                                     As the skies clear, a crescent moon rises
077                                     above a peaceful jungle. It is the end of
078                                     March, 1938, and it is time to go home.";
079                          }
080                      "Safely packed away.";
081                      }
082              Photograph:
083                  self.photographed_in_situ = true;
084              ],
085          cultural_value 5,
086          photographed_in_situ false;
087   
088  ! ---------------------------------------------------------------------------- !


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.