23 lines
437 B
C
23 lines
437 B
C
Global thing_to_examine;
|
|
|
|
[ IdObj name_o o n i;
|
|
objectloop (o in location && o provides name) {
|
|
n = o.#name / WORDSIZE;
|
|
for(i = 0 : i < n : i++)
|
|
if (o.&name-->i == name_o) return o;
|
|
}
|
|
rfalse;
|
|
];
|
|
|
|
[ UnknownVerb word;
|
|
thing_to_examine = IdObj(word);
|
|
if (thing_to_examine) return 'unknown';
|
|
rfalse;
|
|
];
|
|
|
|
[ ExamineObjectSub;
|
|
<< Examine (thing_to_examine) >>;
|
|
];
|
|
|
|
verb 'unknown' * -> ExamineObject;
|