ShowVerbSub (lines 4298-4318)
Back to List
Browsing parserm.h
4298 [ ShowVerbSub address lines da meta i j;
4299 if (((noun->#dict_par1) & 1) == 0)
4300 "Try typing ~showverb~ and then the name of a verb.";
4301 meta=((noun->#dict_par1) & 2)/2;
4302 i = $ff-(noun->#dict_par2);
4303 address = (0-->7)-->i;
4304 lines = address->0;
4305 address++;
4306 print "Verb ";
4307 if (meta) print "meta ";
4308 da = 0-->4;
4309 for (j=0:j < (da+5)-->0:j++)
4310 if (da->(j*9 + 14) == $ff-i)
4311 print "'", (address) (da + 9*j + 7), "' ";
4312 new_line;
4313 if (lines == 0) "has no grammar lines.";
4314 for (:lines > 0:lines--)
4315 { address = UnpackGrammarLine(address);
4316 print " "; DebugGrammarLine(); new_line;
4317 }
4318 ];
Last updated 27 February 2004.
This site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation.
Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.