Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing parserm.h

ShowVerbSub (lines 4298-4318)

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 web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.