ListEqual (lines 139-151)
Back to List
Browsing verblibm.h
0139 [ ListEqual o1 o2;
0140 if (child(o1)~=0 && WillRecurs(o1)~=0) rfalse;
0141 if (child(o2)~=0 && WillRecurs(o2)~=0) rfalse;
0142
0143 if (c_style & (FULLINV_BIT + PARTINV_BIT) ~= 0)
0144 { if ((o1 hasnt worn && o2 has worn)
0145 || (o2 hasnt worn && o1 has worn)) rfalse;
0146 if ((o1 hasnt light && o2 has light)
0147 || (o2 hasnt light && o1 has light)) rfalse;
0148 }
0149
0150 return Identical(o1,o2);
0151 ];
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.