16 lines
278 B
C
16 lines
278 B
C
Global thing_to_examine;
|
|
|
|
[ExamineScope thing;
|
|
if (thing ofclass Object && WordInProperty(thing_to_examine, thing, name)) {
|
|
<Examine thing_to_examine>;
|
|
rtrue;
|
|
}
|
|
rfalse;
|
|
];
|
|
|
|
[ UnknownVerb word;
|
|
thing_to_examine = word;
|
|
LoopOverScope(ExamineScope);
|
|
rfalse;
|
|
];
|