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