inform6_examination/examine_en.h

! Alternative way: with BeforeParsing

Global thing_to_examine = "";

[ ExamineScope thing;
  print thing_to_examine, " - ", thing, ": ", (a) thing, "^";
  if (thing == thing_to_examine) {
    buffer->0 = 'examine';
    buffer->1 = thing_to_examine;
    Tokenise__(buffer, parse);
    rtrue;
  }
];

[ BeforeParsing;
  if (num_words > 1) {
    rfalse;
  }
  thing_to_examine = NextWord();

  ! WARNING: will catch compass directions
  LoopOverScope(ExamineScope);
];