home *** CD-ROM | disk | FTP | other *** search
/ CD PowerPlay 6 / TheCompleteAdventureCollection1995 / CDPP6.ISO / utility / agtsrc / init.pa4 < prev    next >
Encoding:
Text File  |  1989-12-20  |  2.9 KB  |  99 lines
  1.  
  2.   {INIT.PA2}
  3.  
  4.  
  5.   { Init_Verbs }
  6.   {Set up the list of valid verbs}
  7.  
  8.   PROCEDURE Init_verbs;
  9.     {initialize verbs list}
  10.  
  11.   VAR i : Integer;
  12.   BEGIN
  13.     FOR i := 0 TO Num_Verbs DO V[i] := 'none';
  14.     FOR i := 0 TO Num_Verbs DO SYN[i] := 'none';
  15.     V[0] := 'ANY';
  16.     V[1] := 'NORTH';
  17.     V[2] := 'SOUTH';
  18.     V[3] := 'EAST';
  19.     V[4] := 'WEST';
  20.     V[5] := 'SOUTHEAST';
  21.     V[6] := 'SOUTHWEST';
  22.     V[7] := 'NORTHEAST';
  23.     V[8] := 'NORTHWEST';
  24.     V[9] := 'UP';
  25.     V[10] := 'DOWN';
  26.     V[11] := 'ENTER';
  27.     V[12] := 'EXIT';
  28.     V[13] := 'SPECIAL';
  29.     V[14] := 'THROW';
  30.     V[15] := 'OPEN';
  31.     V[16] := 'CLOSE';
  32.     V[17] := 'LOCK';
  33.     V[18] := 'UNLOCK';
  34.     V[19] := 'LOOK';
  35.     V[20] := 'EXAMINE';
  36.     V[21] := 'CHANGE_LOCATIONS';
  37.     V[22] := 'READ';
  38.     V[23] := 'EAT';
  39.     V[24] := 'DRINK';
  40.     V[25] := 'SCORE';
  41.     V[26] := 'ATTACK';
  42.     V[27] := 'WAIT';
  43.     V[28] := 'YELL';
  44.     V[29] := 'PUT';
  45.     V[30] := 'QUIT';
  46.     V[31] := 'TELL';
  47.     V[32] := 'INVENTORY';
  48.     V[33] := 'GET';
  49.     V[34] := 'ASK';
  50.     V[35] := 'TURN';
  51.     V[36] := 'PUSH';
  52.     V[37] := 'PULL';
  53.     V[38] := 'PLAY';
  54.     V[39] := 'LIST';
  55.     V[40] := 'SHOW';
  56.     V[41] := 'DROP';
  57.     V[42] := 'LIST_EXITS';
  58.     V[43] := 'BRIEF';
  59.     V[44] := 'VERBOSE';
  60.     V[45] := 'SAVE';
  61.     V[46] := 'RESTORE';
  62.     V[47] := 'LIGHT';
  63.     V[48] := 'EXTINGUISH';
  64.     V[49] := 'FIRE';
  65.     V[50] := 'HELP';
  66.     V[51] := 'WEAR';
  67.     V[52] := 'REMOVE';
  68.     V[53] := 'SCRIPT';
  69.     V[54] := 'UNSCRIPT';
  70.     V[55] := 'MAGIC_WORD';
  71.     V[56] := 'DUMMY_VERB1'; V[57] := 'DUMMY_VERB26';
  72.     V[58] := 'DUMMY_VERB2'; V[59] := 'DUMMY_VERB27';
  73.     V[60] := 'DUMMY_VERB3'; V[61] := 'DUMMY_VERB28';
  74.     V[62] := 'DUMMY_VERB4'; V[63] := 'DUMMY_VERB29';
  75.     V[64] := 'DUMMY_VERB5'; V[65] := 'DUMMY_VERB30';
  76.     V[66] := 'DUMMY_VERB6'; V[67] := 'DUMMY_VERB31';
  77.     V[68] := 'DUMMY_VERB7'; V[69] := 'DUMMY_VERB32';
  78.     V[70] := 'DUMMY_VERB8'; V[71] := 'DUMMY_VERB33';
  79.     V[72] := 'DUMMY_VERB9'; V[73] := 'DUMMY_VERB34';
  80.     V[74] := 'DUMMY_VERB10'; V[75] := 'DUMMY_VERB35';
  81.     V[76] := 'DUMMY_VERB11'; V[77] := 'DUMMY_VERB36';
  82.     V[78] := 'DUMMY_VERB12'; V[79] := 'DUMMY_VERB37';
  83.     V[80] := 'DUMMY_VERB13'; V[81] := 'DUMMY_VERB38';
  84.     V[82] := 'DUMMY_VERB14'; V[83] := 'DUMMY_VERB39';
  85.     V[84] := 'DUMMY_VERB15'; V[85] := 'DUMMY_VERB40';
  86.     V[86] := 'DUMMY_VERB16'; V[87] := 'DUMMY_VERB41';
  87.     V[88] := 'DUMMY_VERB17'; V[89] := 'DUMMY_VERB42';
  88.     V[90] := 'DUMMY_VERB18'; V[91] := 'DUMMY_VERB43';
  89.     V[92] := 'DUMMY_VERB19'; V[93] := 'DUMMY_VERB44';
  90.     V[94] := 'DUMMY_VERB20'; V[95] := 'DUMMY_VERB45';
  91.     V[96] := 'DUMMY_VERB21'; V[97] := 'DUMMY_VERB46';
  92.     V[98] := 'DUMMY_VERB22'; V[99] := 'DUMMY_VERB47';
  93.     V[100] := 'DUMMY_VERB23'; V[101] := 'DUMMY_VERB48';
  94.     V[102] := 'DUMMY_VERB24'; V[103] := 'DUMMY_VERB49';
  95.     V[104] := 'DUMMY_VERB25'; V[105] := 'DUMMY_VERB50';
  96.     MaxVerb := 105;
  97.   END;                            {initialize verbs}
  98.  
  99.