Inform - Resources - Examples

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing Adventureland.inf

GamePreRoutine and GamePostRoutine entry points (lines 78-101)

078  [ GamePreRoutine i c d;
079     if (action~=##Inv) rfalse;
080     c=0; d=0;
081     objectloop (i in player) c++;
082     if (c==0) "You're carrying nothing.";
083     print "You're carrying:^";
084     objectloop (i in player)
085     {   if (d++>0) print " - "; PrintShortName(i);
086     }
087     new_line; rtrue;
088  ];
089   
090  [ GamePostRoutine i;
091      if (action==##Look)
092          objectloop (i in location)
093              if (i ~= player && i has concealed)
094                  give i ~concealed;
095      rfalse;
096  ];
097   
098  ! ----------------------------------------------------------------------------
099  !   Into Adventureland...
100  ! ----------------------------------------------------------------------------
101   


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.