36 lines
807 B
C
36 lines
807 B
C
Global examine_verb_direction;
|
|
|
|
[ UnknownVerb direction;
|
|
objectloop (direction in real_location) {
|
|
if (
|
|
direction ofclass Object &&
|
|
direction has scenery
|
|
) {
|
|
examine_verb_direction = direction;
|
|
return 'examine.verb';
|
|
}
|
|
rfalse;
|
|
}
|
|
rfalse;
|
|
];
|
|
|
|
[ Examine_VerbSub;
|
|
if (examine_verb_direction ofclass String)
|
|
print_ret (string) examine_verb_direction;
|
|
<<Examine examine_verb_direction>>;
|
|
];
|
|
Verb 'examine.verb' * -> Examine_Verb;
|
|
|
|
! Fix "I only understood you as far as wanting to examine.verb." message
|
|
[ PrintVerb word;
|
|
if (word == 'examine.verb') {
|
|
if (examine_verb_direction ofclass String) {
|
|
print "examine something";
|
|
} else {
|
|
print "examine", (name) real_location.(examine_verb_direction.name);
|
|
}
|
|
rtrue;
|
|
}
|
|
rfalse;
|
|
];
|