Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing parserm.h

MultiSub (lines 2880-2896)

2880  !  The MultiSub routine deletes object "o" from the multiple-object-list.
2881  !
2882  !  It returns 0 if the object was there in the first place, and 9 (because
2883  !  this is the appropriate error number in Parser()) if it wasn't.
2884  ! ----------------------------------------------------------------------------
2885   
2886  [ MultiSub o i j k et;
2887    i=multiple_object-->0; et=0;
2888    for (j=1:j<=i:j++)
2889        if (o==multiple_object-->j)
2890        {   for (k=j:k<=i:k++)
2891                multiple_object-->k = multiple_object-->(k+1);
2892            multiple_object-->0 = --i;
2893            return et;
2894        }
2895    et=9; return et;
2896  ];


Last updated 27 February 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.