Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing verblibm.h

ListEqual (lines 139-151)

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