2019-08-13 05:57:59 +03:00
|
|
|
Global thing_to_examine;
|
2019-08-12 13:54:47 +03:00
|
|
|
|
2019-08-14 13:33:29 +03:00
|
|
|
[ 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;
|
2019-08-12 14:24:53 +03:00
|
|
|
];
|
|
|
|
|
2019-08-13 05:57:59 +03:00
|
|
|
[ UnknownVerb word;
|
2019-08-14 13:33:29 +03:00
|
|
|
thing_to_examine = IdObj(word);
|
|
|
|
if (thing_to_examine) return 'unknown';
|
|
|
|
rfalse;
|
2019-08-12 14:24:53 +03:00
|
|
|
];
|
2019-08-14 13:33:29 +03:00
|
|
|
|
|
|
|
[ ExamineObjectSub;
|
|
|
|
<< Examine (thing_to_examine) >>;
|
|
|
|
];
|
|
|
|
|
|
|
|
verb 'unknown' * -> ExamineObject;
|