一旦戻す

diff --git a/ADPARSER.PAS b/ADPARSER.PAS
index 9c5f686..59edbe6 100644 (file)
--- a/ADPARSER.PAS
+++ b/ADPARSER.PAS
@@ -148,7 +148,7 @@ procedure FindVerb (var input:Str80;var Word:Str16;var Verb:integer);
          k:=k+1;
          if v[r,k]=Word then
            Verb:=r;
-       until (v[r,k]=Q)or(k=10)
+       until (v[r,k]=Q)or(k=5)
      end;
 
    if(pos(' ',Word)<>0)and(Verb=Null)then
@@ -161,7 +161,7 @@ procedure FindVerb (var input:Str80;var Word:Str16;var Verb:integer);
              k:=k+1;
              if v[r,k]=Word then
                Verb:=r;
-           until (v[r,k]=Q)or(k=10)
+           until (v[r,k]=Q)or(k=5)
          end
      end;
      delete(input,length(input),1);
@@ -196,7 +196,7 @@ procedure FindNoun(var input:Str80;var Word:Str16;var Noun:integer);
          k:=k+1;
          if n[t,k]=Word then
            Noun:=t;
-       until (n[t,k]=Q)or(k=10)
+       until (n[t,k]=Q)or(k=5)
      end;
 
    if(pos(' ',Word)<>0)and(Noun=Null)then
@@ -209,7 +209,7 @@ procedure FindNoun(var input:Str80;var Word:Str16;var Noun:integer);
              k:=k+1;
              if n[t,k]=Word then
                Noun:=t;
-           until (n[t,k]=Q)or(k=10)
+           until (n[t,k]=Q)or(k=5)
          end
      end;
      delete(input,length(input),1);

diff --git a/BEYOND.PAS b/BEYOND.PAS
index afdf888..3f13d8d 100644 (file)
--- a/BEYOND.PAS
+++ b/BEYOND.PAS
@@ -77,8 +77,8 @@ var
      Input,
      Again,
      Line           : Str80;
-     V{erb}         : array [0..VMax,1..10] of Str16;
-     N{oun}         : array [0..NMax,1..10] of Str16;
+     V{erb}         : array [0..VMax,1..5] of Str16;
+     N{oun}         : array [0..NMax,1..5] of Str16;
      R{oom}         : array [0..NMax] of integer;
      P{lace}        : array [0..RMax] of PlayersObjects;
      RmSh           : set of 0..14;

diff --git a/COMMANDS.PAS b/COMMANDS.PAS
index defc4dc..47bde4b 100644 (file)
--- a/COMMANDS.PAS
+++ b/COMMANDS.PAS
@@ -267,7 +267,7 @@ procedure SAVE;
     for y:= 1 to 5 do
      write(WordList,n[x,y]);
    for x:= 0 to VMax do
-    for y:= 1 to 10 do
+    for y:= 1 to 5 do
      write(WordList,v[x,y]);
    close(WordList);
    assign(Things,input+'.d');
@@ -335,7 +335,7 @@ procedure RESTORE;
       for y:= 1 to 5 do
        read(WordList,n[x,y]);
      for x:= 0 to VMax do
-      for y:= 1 to 10 do
+      for y:= 1 to 5 do
        read(WordList,v[x,y]);
      close(WordList);
      assign(Things,input+'.d');

diff --git a/WORDLIST.PAS b/WORDLIST.PAS
index 531ee15..f1d6705 100644 (file)
--- a/WORDLIST.PAS
+++ b/WORDLIST.PAS
@@ -33,7 +33,7 @@
                        {VERB LIST:  GROUPS ALL SYNONYMS}
 procedure Assign1;
 begin
-for x:= 0 to VMax do for y:= 1 to 10 do v[x,y]:=Q;
+for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q;
 v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up';
 v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';
 v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in';
@@ -44,21 +44,20 @@ v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea';
    v[4,4]:='climb ne';
 v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe';
    v[5,4]:='climb sw';
-v[6,1]:='\90Ø\82é';v[6,2]:='\82«\82é';
-   v[6,3]:='cut';v[6,4]:='slice';v[6,5]:='cut out';v[6,6]:='saw';
-   v[6,7]:='chop';
+v[6,1]:='cut';v[6,2]:='slice';v[6,3]:='cut out';v[6,4]:='saw';
+   v[6,5]:='chop';
 v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel';
 v[8,1]:='drink';v[8,2]:='drink from';v[8,3]:='drink some';
    v[8,4]:='drink lot';
 v[9,1]:='drop';v[9,2]:='get rid';v[9,3]:='put down';
 v[10,1]:='eat';v[10,2]:='swallow';
 v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search';
-   v[11,4]:='read';v[11,5]:='look at';v[11,6]:='\93Ç\82Þ';v[11,7]:='\82æ\82Þ';v[11,8]:='\92²\82×\82é';v[11,9]:='\82µ\82ç\82×\82é';
+   v[11,4]:='read';v[11,5]:='look at';
 v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check';
    v[12,5]:='chech for';
 v[13,1]:='repair';v[13,2]:='fix';
 v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal';
-   v[14,5]:='pick up';v[14,6]:='\8eæ\82é';v[14,7]:='\82Æ\82é';
+   v[14,5]:='pick up';
 v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay';
    v[15,5]:='give away';
 end;
@@ -72,7 +71,6 @@ v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off';
    v[19,5]:='jump in';
 v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row';
 v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area';
-v[22,5]:='\8c©\82é';v[22,6]:='\82Ý\82é';
 v[23,1]:='look above';v[23,2]:='ex on';v[23,3]:='look on';
    v[23,4]:='ex top';v[23,5]:='ex above';
 v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up';
@@ -108,26 +106,16 @@ v[40,1]:='unlock';
 v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest';
 v[42,1]:='wear';v[42,2]:='put on';
 v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across';
-   v[43,6]:='\96k';v[43,7]:='\82«\82½';
 v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a';
-   v[44,5]:='\93ì';v[44,6]:='\82Ý\82È\82Ý';
 v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st';
-   v[45,5]:='\93\8c';v[45,6]:='\82Ð\82ª\82µ';
 v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p';
-   v[46,5]:='\90¼';v[46,6]:='\82É\82µ';
 v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea';
-   v[47,4]:='\96k\93\8c';v[47,5]:='\82Ù\82­\82Æ\82¤';
 v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe';
-   v[48,4]:='\96k\90¼';v[48,5]:='\82Ù\82­\82¹\82¢';
 v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea';
-   v[49,4]:='\93ì\93\8c';v[49,5]:='\82È\82ñ\82Æ\82¤';
 v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe';
-   v[50,4]:='\93ì\90¼';v[50,5]:='\82È\82ñ\82¹\82¢';
 v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u';
-   v[51,5]:='\8fã';v[51,6]:='\82¤\82¦';
 v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d';
    v[52,5]:='lower';
-   v[52,6]:='\89º';v[52,7]:='\82µ\82½';
 v[53,1]:='type';v[53,2]:='type in';
 v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit';
 v[55,1]:='take off';v[55,2]:='remove';
@@ -152,22 +140,19 @@ v[65,1]:='restore';v[65,2]:='resume';
 
                      {NOUN LIST:  GROUPS ALL OBJECTS}
 
-for x:= 0 to NMax do for y:= 1 to 10 do n[x,y]:=Q;
+for x:= 0 to NMax do for y:= 1 to 5 do n[x,y]:=Q;
 n[0,1]:='alien';n[0,2]:='dead alien';n[0,3]:='body';n[0,4]:='alien body';
 n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects';
-n[2,1]:='\83o\83i\83i';n[2,2]:='banana';n[2,3]:='food';
-n[3,1]:='\82±\82¤\82à\82è';n[3,2]:='\83R\83E\83\82\83\8a';n[3,3]:='å\9eå\95';
-    n[3,4]:='bat';n[3,5]:='bats';
-n[4,1]:='\83x\83b\83h';
-    n[4,2]:='bed';n[4,3]:='bunk';n[4,4]:='beds';n[4,5]:='bunks';
+n[2,1]:='banana';n[2,2]:='food';
+n[3,1]:='bat';n[3,2]:='bats';
+n[4,1]:='bed';n[4,2]:='bunk';n[4,3]:='beds';n[4,4]:='bunks';
 n[5,1]:='blue button';n[5,2]:='blue';
 n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa';
    n[6,5]:='ship';
 end;
 procedure Assign5;
 begin
-n[7,1]:='\83r\83\93';
-   n[7,2]:='bottle';n[7,3]:='brown bottle';n[7,4]:='brown';
+n[7,1]:='bottle';n[7,2]:='brown bottle';n[7,3]:='brown';
 n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch';
    n[8,5]:='box switch';
 n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers';
@@ -196,29 +181,28 @@ n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door';
 n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire';
    n[27,4]:='mangled';n[27,5]:='piece wire';
 n[28,1]:='egg';n[28,2]:='eggs';
-n[29,1]:='\89ù\92\86\93d\93\94';n[29,2]:='\82©\82¢\82¿\82ã\82¤\82Å\82ñ\82Æ\82¤';n[29,3]:='flashlight';
-   n[29,4]:='light';n[29,5]:='flashli';n[29,6]:='hook';n[29,7]:='ring';
+n[29,1]:='flashlight';n[29,2]:='light';n[29,3]:='flashli';n[29,4]:='hook';
+   n[29,5]:='ring';
 end;
 procedure Assign6;
 begin
 n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck';
    n[30,5]:='bay';
 n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest';
-n[32,1]:='\96Ñ\94ç\82Ì\90Ø\82ê\92['; n[32,2]:='\96Ñ\94ç';
-   n[32,3]:='piece of fur';n[32,4]:='fur';n[32,5]:='piece fur';n[32,6]:='piece'; n[32,7]:='blue fur';
+n[32,1]:='piece of fur';n[32,2]:='fur';n[32,3]:='piece fur';n[32,4]:='piece';
+   n[32,5]:='blue fur';
 n[33,1]:='green button';n[33,2]:='green';
-n[34,1]:='\8fe';
-   n[34,2]:='gun';n[34,3]:='ray gun';n[34,4]:='gauge';n[34,5]:='orange'; n[34,6]:='laser gun';
-n[35,1]:='\88À\91S\83x\83\8b\83g';n[35,2]:='\83x\83\8b\83g';n[35,3]:='\82×\82é\82Æ';
-n[35,4]:='safety harness';n[35,5]:='safety';n[35,6]:='belt';
-   n[35,7]:='harness';n[35,8]:='strap';
+n[34,1]:='gun';n[34,2]:='ray gun';n[34,3]:='gauge';n[34,4]:='orange';
+   n[34,5]:='laser gun';
+n[35,1]:='safety harness';n[35,2]:='safety';n[35,3]:='belt';
+   n[35,4]:='harness';n[35,5]:='strap';
 n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean';
 n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood';
 n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric';
    n[38,4]:='numbers';
-n[39,1]:='\94 ';n[39,7]:='\82Í\82±';n[39,2]:='survival kit';n[39,3]:='kit';
-   n[39,4]:='surviva';n[39,5]:='red kit';n[39,6]:='surviva kit';
-n[40,1]:='\83i\83C\83t';n[40,2]:='knife';n[40,3]:='blade';
+n[39,1]:='survival kit';n[39,2]:='kit';n[39,3]:='surviva';n[39,4]:='red kit';
+   n[39,5]:='surviva kit';
+n[40,1]:='knife';n[40,2]:='blade';
 n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad';
    n[41,5]:='landing pad';
 n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand';
@@ -226,18 +210,15 @@ n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand';
 n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage';
 n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand';
 n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty';
-n[46,1]:='\95¶\8e\9a';n[46,2]:='\82à\82¶';n[46,3]:='message';n[46,4]:='chisele';
-   n[46,5]:='writing';n[46,6]:='marking';n[46,7]:='chisele marking';
+n[46,1]:='message';n[46,2]:='chisele';n[46,3]:='writing';n[46,4]:='marking';
+   n[46,5]:='chisele marking';
 n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop';
-n[48,1]:='\8d½';
-   n[48,2]:='chain';n[48,3]:='thick chain';n[48,4]:='metal chain';
+n[48,1]:='chain';n[48,2]:='thick chain';n[48,3]:='metal chain';
 n[49,1]:='panel';n[49,2]:='compart';
 n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road';
    n[50,5]:='tubes';
-n[51,1]:='\83o\83i\83i\82Ì\94ç';n[51,2]:='\94ç';n[51,3]:='\82©\82í';
-   n[51,4]:='banana peel';n[51,5]:='peel';n[51,6]:='skin';
-n[52,1]:='\8cõ\82é\96ò'; n[52,2]:='\96ò';
-   n[52,3]:='glowing pill';n[52,4]:='pill';n[52,5]:='glowing';
+n[51,1]:='banana peel';n[51,2]:='peel';n[51,3]:='skin';
+n[52,1]:='glowing pill';n[52,2]:='pill';n[52,3]:='glowing';
 n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail';
 n[54,1]:='reactor';n[54,2]:='core';
 n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled';
@@ -246,7 +227,7 @@ n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms';
 end;
 procedure Assign7;
 begin
-n[57,1]:='\83\8d\81[\83v';n[57,2]:='rope';n[57,3]:='thick';n[57,4]:='thick rope';
+n[57,1]:='rope';n[57,2]:='thick';n[57,3]:='thick rope';
 n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens';
 n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches';
    n[59,5]:='metalli';
@@ -266,8 +247,8 @@ n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole';
    n[68,5]:='keyhole';
 n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder';
    n[69,5]:='step';
-n[70,1]:='\96_';n[70,2]:='metal stake';n[70,3]:='stake';n[70,4]:='metal';
-   n[70,5]:='pole';n[70,6]:='rod';
+n[70,1]:='metal stake';n[70,2]:='stake';n[70,3]:='metal';n[70,4]:='pole';
+   n[70,5]:='rod';
 n[71,1]:='rock feature';n[71,2]:='stalagt';
 n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon';
    n[72,4]:='shapes';
@@ -276,13 +257,13 @@ procedure Assign8;
 begin
 n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher';
    n[73,5]:='lake';
-n[74,1]:='\83G\83C\83\8a\83A\83\93\82Ì\83X\81[\83c'; n[74,2]:='\83X\81[\83c';
-   n[74,3]:='alien suit';n[74,4]:='suit';n[74,5]:='space suit'; n[74,6]:='uniform';
+n[74,1]:='alien suit';n[74,2]:='suit';n[74,3]:='space suit';
+   n[74,4]:='uniform';
 n[75,1]:='table';n[75,2]:='tables';
 n[76,1]:='tan button';n[76,2]:='tan';
 n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape';
-n[78,1]:='\83`\83\85\81[\83u';
-   n[78,2]:='healing tube';n[78,3]:='tube';n[78,4]:='healing'; n[78,5]:='glass tube';n[78,6]:='glass';
+n[78,1]:='healing tube';n[78,2]:='tube';n[78,3]:='healing';
+   n[78,4]:='glass tube';n[78,5]:='glass';
 n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall';
    n[79,4]:='east wall';n[79,5]:='west wall';
 n[80,1]:='waterfall';n[80,2]:='waterfa';