MultiSub (lines 2880-2896)
Back to List
Browsing parserm.h
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.