ShowVerbSub (lines 5330-5351)
Back to List
Browsing parserm.h
5330 #Ifdef TARGET_ZCODE;
5331
5332 [ ShowVerbSub address lines da meta i j;
5333 if (noun == 0 || ((noun->#dict_par1) & 1) == 0)
5334 "Try typing ~showverb~ and then the name of a verb.";
5335 meta = ((noun->#dict_par1) & 2)/2;
5336 i = $ff-(noun->#dict_par2);
5337 address = (HDR_STATICMEMORY-->0)-->i;
5338 lines = address->0;
5339 address++;
5340 print "Verb ";
5341 if (meta) print "meta ";
5342 da = HDR_DICTIONARY-->0;
5343 for (j=0 : j<(da+5)-->0 : j++)
5344 if (da->(j*9 + 14) == $ff-i) print "'", (address) (da + 9*j + 7), "' ";
5345 new_line;
5346 if (lines == 0) "has no grammar lines.";
5347 for (: lines>0 : lines--) {
5348 address = UnpackGrammarLine(address);
5349 print " "; DebugGrammarLine(); new_line;
5350 }
5351 ];
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 assisted by C Knight.