trying to copy IDM

examine_en.h

@@ -1,15 +1,35 @@
-Global the_word_was = "";
+Global examine_verb_direction;
 
-[ UnknownVerb word i;
-  objectloop (i in location) {
+[ UnknownVerb direction;
+  objectloop (direction in real_location) {
     if (
-      !word == (i.&name) --> 0 &&
-      i has scenery
+      direction ofclass Object &&
+      direction has scenery
     ) {
-      the_word_was = i;
-      return 'examine';
+      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;
+];