restore UnknownVerb

examine_en.h

@@ -1,24 +1,17 @@
 Global thing_to_examine;
 
-[ BeforeParsing thing n i;
-  if (num_words > 1) {
-    rfalse;
-  }
-  thing_to_examine = NextWord();
-  ! Check that such thing exists in scope, so that we don't catch
-  ! compass directions or gibberish.
+[ UnknownVerb thing;
   objectloop ( thing provides name) {
-    if (TestScope(thing, player)) {
-      n = thing.#name / WORDSIZE;
-      for(i = 0 : i < n : i++)
-        if (thing.&name-->i == thing_to_examine) {
-          ! At least one such thing exists, we can alter the input
-          buffer->0 = 'examine';
-          buffer->1 = thing_to_examine;
-          Tokenise__(buffer, parse);
-          rtrue;
-        }
+    if (TestScope(thing, player) && Refers(thing, 1)) {
+      thing_to_examine = thing;
+      return 'unknown';
     };
   };
   rfalse;
 ];
+
+[ ExamineObjectSub;
+  << Examine (thing_to_examine) >>;
+];
+
+verb 'unknown' * -> ExamineObject;