1
0
Fork 0
inform6_examination/examine_en.h

22 lines
429 B
C

Global thing_to_examine;
[ UnknownVerb word thing n i;
objectloop ( thing provides name) {
if (TestScope(thing, player)) {
n = thing.#name / WORDSIZE;
for(i = 0 : i < n : i++)
if (thing.&name-->i == word) {
thing_to_examine = thing;
return 'unknown';
}
};
};
rfalse;
];
[ ExamineObjectSub;
<< Examine (thing_to_examine) >>;
];
verb 'unknown' * -> ExamineObject;