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 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.