[ CorpseDropsAll o hasC;
print "As "; if (self has female) print "she"; else print "he";
print " dies, "; if (self has female) print "she"; else print "he";
print " drops everything to the floor";
hasC = 0;
for (o = child(self): o ~= 0: o = sibling(o))
{
if (o has clothing && o has worn) hasC = 1;
}
! Not too efficient, bleah.. but it works.
for (o = child(self): o ~= 0:)
{
if (o has clothing && o has worn)
o = sibling(o);
else
{
move o to parent(self);
o = child(self);
}
}
if (hasC == 0) print ".^";
else
{
print ", except ", (Poss) self, " clothing (";
WriteListFrom(child(self), ENGLISH_BIT + RECURSE_BIT + TERSE_BIT);
print ").^";
}
rtrue;
];
[ Poss o;
if (o hasnt animate) print "its";
else { if (o has female) print "her"; else print "his"; }
];
-- --- Sam Hulick ------------- shulick@indiana.edu --------------------- Systems Consultant | Homepage: Indiana College Placement | http://copper.ucs.indiana.edu/~shulick/ and Assessment Center | PGP public key available on request