18 lines
318 B
C
18 lines
318 B
C
Global thing_to_examine;
|
|
|
|
[ UnknownVerb thing;
|
|
objectloop ( thing provides name) {
|
|
if (TestScope(thing, player) && Refers(thing, 1)) {
|
|
thing_to_examine = thing;
|
|
return 'unknown';
|
|
};
|
|
};
|
|
rfalse;
|
|
];
|
|
|
|
[ ExamineObjectSub;
|
|
<< Examine (thing_to_examine) >>;
|
|
];
|
|
|
|
verb 'unknown' * -> ExamineObject;
|