inform6_examination/examine_en.h

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;
];