23 lines
402 B
C
23 lines
402 B
C
Global thing_to_examine;
|
|
|
|
[ UnknownVerb o n i;
|
|
objectloop (o provides name) {
|
|
if (TestScope(o, player)) {
|
|
n = o.#name / WORDSIZE;
|
|
for(i = 0 : i < n : i++) {
|
|
if (Refers(o, 1)) {
|
|
thing_to_examine = o;
|
|
return 'unknown';
|
|
};
|
|
};
|
|
};
|
|
};
|
|
rfalse;
|
|
];
|
|
|
|
[ ExamineObjectSub;
|
|
<< Examine (thing_to_examine) >>;
|
|
];
|
|
|
|
verb 'unknown' * -> ExamineObject;
|