Again,
Line : Str80;
V{erb} : array [0..VMax,1..5] of Str16;
+ D{oushi} : array [0..VMax,1..5] of Str16;
N{oun} : array [0..NMax,1..5] of Str16;
+ M{eishi} : array [0..NMAX,1..5] of Str16;
+ Prep{osition} : array [0..VMax] of Str16;
R{oom} : array [0..NMax] of integer;
P{lace} : array [0..RMax] of PlayersObjects;
RmSh : set of 0..14;
{$I Objects.PAS }{ <----- CALLS UP THE VERBS & NOUNS <*******************}
+{$I Trans.PAS }
+
+
{===================}
procedure DefaultAnswers1;
begin
begin
if(o in inven)then
if(o=74)then
- writeln('',n[o,1])else writeln('',n[o,1]);
+ writeln('',m[o,1])else writeln('',m[o,1]);
if(ropecon in inven)and(o=ropecon)then
- writeln(' ',n[o,1],'\82É\8c\8b\82Î\82ê\82½\83\8d\81[\83v');
+ writeln(' ',m[o,1],'\82É\8c\8b\82Î\82ê\82½\83\8d\81[\83v');
if(o=74)and(en('p'))then RL(174);
if(o=89)and(en('i'))then RL(321);
end;
2:if(en('b'))then RL(198) else RL(199);
29:begin RL(89);if(en('a'))then RL(200) else RL(201);end;
57:if(ropecon<>Null)then
- writeln('\83\8d\81[\83v\82Í',n[ropecon,1],'\82É\8c\8b\82Î\82ê\82Ä\82¢\82é\81B')
+ writeln('\83\8d\81[\83v\82Í',m[ropecon,1],'\82É\8c\8b\82Î\82ê\82Ä\82¢\82é\81B')
else RL(133);
65:if(Prm in[59..68])then RS(84)else Line:='l';
8:RL(202);
54,67,69,73,79,80,84,87,88])and(random(3)=1)then
case random(3) of
0 :RL(407);
- 1 :writeln('\82»\82¤\81A\82±\82ê\82Í',n[noun,1],'\82¾!');
- 2 :writeln('\95\81\92Ê\82Ì',n[noun,1],'\82Ì\82æ\82¤\82¾\81B');
+ 1 :writeln('\82»\82¤\81A\82±\82ê\82Í',m[noun,1],'\82¾!');
+ 2 :writeln('\95\81\92Ê\82Ì',m[noun,1],'\82Ì\82æ\82¤\82¾\81B');
end
- else writeln(n[noun,1],'\82É\95Ï\82í\82Á\82½\82±\82Æ\82Í\82È\82¢\81B')
+ else writeln(m[noun,1],'\82É\95Ï\82í\82Á\82½\82±\82Æ\82Í\82È\82¢\81B')
end;
41 :begin writeln('\8e\9e\82ª\89ß\82¬\82Ä\82ä\82');y:=wherey;for o:=1 to 6 do
if(FlagSA<>'s')then Crazy;
end
end
- else writeln('\82Ü\82¸',n[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\82È\82ç\82È\82¢\81B')
+ else writeln('\82Ü\82¸',m[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\82È\82ç\82È\82¢\81B')
else Crazy;
end {of case}
57:RL(259);
60:RL(260)
else writeln('\82 \82Æ\8f\82µ\82Ì\82Æ\82±\82ë\82Å\81A',
- n[noun,1],'\82Ì\96½\82ð\92D\82¤\82Ì\82ð\8e~\82ß\82½!')
+ m[noun,1],'\82Ì\96½\82ð\92D\82¤\82Ì\82ð\8e~\82ß\82½!');
end
else Crazy
else RL(83);
if(noun=74)and(en('p'))then RL(170)
else if(noun=89)and(en('i'))then RL(335)
else begin
- inven:=inven-[noun];writeln(n[noun,1],': \92u\82¢\82½\81B');
+ inven:=inven-[noun];writeln(m[noun,1],': \92u\82¢\82½\81B');
R[noun]:=Prm;
end
else
- writeln(n[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¢\81B')
+ writeln(m[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¢\81B')
else
begin
if(74 in inven)and(en('p'))then RL(170)else
57:if(ropecon<>Null)and not(ropecon in inven)
and(r[ropecon]<>Prm)then
if(ropecon in mov)then begin
- RL(57);writeln('\81c',n[ropecon,1],'\82¾!');
+ RL(57);writeln('\81c',m[ropecon,1],'\82¾!');
r[ropecon]:=Prm;Ev:=Ev-['u'];
if(ropecon=29)and not(flasoff)then DescribeRm;end
else RL(56)
if(en('r'))and(inven<>[])then RL(87)
else begin
Vanish(Noun);inven:=inven+[noun];
- writeln(n[noun,1],': \8eæ\82Á\82½\81B');
+ writeln(m[noun,1],': \8eæ\82Á\82½\81B');
if(noun=70)then Ev:=Ev-['d'];
end
else RL(234)
end
- else writeln(n[noun,1],'\82Í\8aù\82É\8e\9d\82Á\82Ä\82¢\82é\81B')
+ else writeln(m[noun,1],'\82Í\8aù\82É\8e\9d\82Á\82Ä\82¢\82é\81B')
else Crazy
else if(en('r'))then RL(88) else
begin flag:='0';Stuff:=0;
if(Stuff+1 < 7)then
begin
vanish(o);inven:=inven+[o];Stuff:=Stuff+1;
- writeln(n[o,1],': \8eæ\82Á\82½\81B');flag:='1';
+ writeln(m[o,1],': \8eæ\82Á\82½\81B');flag:='1';
if(o=70)then Ev:=Ev-['d'];
end
else
begin flag:='1';
- writeln(n[o,1],': \82à\82¤\8e\9d\82Ä\82È\82¢!');end
+ writeln(m[o,1],': \82à\82¤\8e\9d\82Ä\82È\82¢!');end
end
else RL(234);
if(flag='0')then RL(49)
Vanish(2);Sc:=Sc+10;end
else RL(46)
else begin RL(47);Ev:=Ev+['n'];Sc:=Sc+15;Vanish(52);end
- else writeln('\82 \82È\82½\82ª',n[noun,1],
+ else writeln('\82 \82È\82½\82ª',m[noun,1],
'\82ð\8fÁ\89»\82Å\82«\82é\82Æ\82Í\8ev\82¦\82È\82¢!');
42 :case noun of
52:begin RL(34);Vanish(52);end;
23:if(noun2=null)then RL(369)
else begin Vanish(noun2);Attack:=False;
- writeln('\89ö\95¨\82Í',n[noun2,1],'\82ð\92Í\82Ý\90H\82×\82½!');
+ writeln('\89ö\95¨\82Í',m[noun2,1],'\82ð\92Í\82Ý\90H\82×\82½!');
end;
7:begin RL(35);Vanish(7);r[52]:=Prm;Ev:=Ev+['I'];end
else if(verb=0)then writeln('\82 \82Æ\8f\82µ\82Ì\82Æ\82±\82ë\82Å',
- n[noun,1],'\82Ì\96½\82ð\92D\82¤\82Ì\82ð\8e~\82ß\82½!')
+ m[noun,1],'\82Ì\96½\82ð\92D\82¤\82Ì\82ð\8e~\82ß\82½!')
else RL(216);
end{of case}
else Crazy;
case noun of
1:begin;Crazy;Shots:=Shots+1;end;
2,7,8,13,27,29,32,40,51,52,63,74,77,89:begin vanish(noun);
- writeln(n[noun,1],'\82Í\94\9a\94\82µ\81A\91M\8cõ\82Ì\92\86\82É\8fÁ\82¦\82½!');
+ writeln(m[noun,1],'\82Í\94\9a\94\82µ\81A\91M\8cõ\82Ì\92\86\82É\8fÁ\82¦\82½!');
if(noun=74)and(en('p'))then begin RL(232);DEAD;end;
end;
48:begin RL(222);RL(223);Ev:=Ev+['g'];p[40]:=p[40]-[48];
end;
45:RL(315);
60,56,44:begin RL(233);DEAD;end
- else writeln('\82Ü\82Î\82ä\82¢\8cõ\90ü\82ª',n[noun,1],'\82É\96½\92\86\82µ\82½\82ª\81A',
+ else writeln('\82Ü\82Î\82ä\82¢\8cõ\90ü\82ª',m[noun,1],'\82É\96½\92\86\82µ\82½\82ª\81A',
'\8d\95\82\8fÅ\82°\82½\82¾\82¯\82¾\82Á\82½\81B');
end {of shoot case}
else if(noun=34)and(noun2=Null)then RL(213)
if(Prm in[0..6,9,10,13,41..43])and(noun2 in[73,53,47])then
begin RL(306);vanish(noun);end;
if(noun2=23)then begin Attack:=False;Vanish(noun);RL(379);
- writeln(n[noun,1],'\82ð\83L\83\83\83b\83`\82µ\82Ä\90H\82×\81A',
+ writeln(m[noun,1],'\82ð\83L\83\83\83b\83`\82µ\82Ä\90H\82×\81A',
'\91å\82«\82È\83Q\83b\83v\82ð\82µ\82½!')end;
end
- else begin writeln(n[noun,1],'\82Æ',
- n[noun2,1],'\82ð\82Ô\82Â\82¯\82½\82ª\89½\82à\8bN\82±\82ç\82È\82©\82Á\82½\81B');
+ else begin writeln(m[noun,1],'\82Æ',
+ m[noun2,1],'\82ð\82Ô\82Â\82¯\82½\82ª\89½\82à\8bN\82±\82ç\82È\82©\82Á\82½\81B');
Vanish(noun);r[noun]:=Prm;end
- else writeln(n[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\82È\82ç\82È\82¢!')
+ else writeln(m[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\82È\82ç\82È\82¢!')
else Crazy;
37 :if(noun=57)then
if not(noun2 in[1,15,17,22,30,46,47,50,52,72,73,79,80,83])then
if(ropecon=Null)then begin
ropecon:=noun2;
- writeln('\83\8d\81[\83v\82ð',n[noun2,1],'\82É\82µ\82Á\82©\82è\82Æ\8c\8b\82Ñ\95t\82¯\82½\81B');
+ writeln('\83\8d\81[\83v\82ð',m[noun2,1],'\82É\82µ\82Á\82©\82è\82Æ\8c\8b\82Ñ\95t\82¯\82½\81B');
if(noun2=57)then RL(48);end
- else writeln('\83\8d\81[\83v\82Í\82à\82¤',n[ropecon,1],'\82É\8c\8b\82Î\82ê\82Ä\82¢\82é\81B')
+ else writeln('\83\8d\81[\83v\82Í\82à\82¤',m[ropecon,1],'\82É\8c\8b\82Î\82ê\82Ä\82¢\82é\81B')
else RL(50)
else Crazy
else Crazy;
39 :if(en('o'))then
if kitset=[] then begin RL(329);end
else begin RL(330);for o:= 0 to 57 do
- if(o in kitset)then writeln(' ',n[o,1]);end
+ if(o in kitset)then writeln(' ',m[o,1]);end
else RL(331);
57 :RL(10);
73 :RL(19);
39 :if(en('o'))then
if kitset=[] then begin RL(329);end
else begin RL(330);for o:= 0 to 57 do
- if(o in kitset)then writeln(' ',n[o,1]);end
+ if(o in kitset)then writeln(' ',m[o,1]);end
else RL(331);
35 :RL(12);
73 :RL(19);
7 :RL(65);
14 :if(noun in[57,70])then begin inven:=inven+[noun];r[noun]:=Null;
if(noun=70)then Ev:=Ev-['d']
- else Ev:=Ev-['t'];SA;writeln(n[noun,1],': \8eæ\82Á\82½\81B');end;
+ else Ev:=Ev-['t'];SA;writeln(m[noun,1],': \8eæ\82Á\82½\81B');end;
45,49 :if(flasoff)then RL(14) else moveto(14);
44 :RL(73);
24,11:if(noun=17)and not(en('u'))then RL(74)
begin Ev:=Ev+['h'];RL(173);play(23,24,250);Sc:=Sc+30;
if(PanelCon<>Null)then begin r[PanelCon]:=30;Code:='R';
writeln('\83p\83l\83\8b\82Ì\89\9c\82É',
- n[PanelCon,1],'\82ª\82 \82é\81B');end
+ m[PanelCon,1],'\82ª\82 \82é\81B');end
else RL(183);
end
else RL(172);
end;
11,24:case noun of
49:begin SA;if(en('h'))then if(PanelCon=Null)then RL(183)
- else writeln('\83p\83l\83\8b\82Ì\89\9c\82É',n[PanelCon,1],'\82ª\82 \82é\81B')
+ else writeln('\83p\83l\83\8b\82Ì\89\9c\82É',m[PanelCon,1],'\82ª\82 \82é\81B')
else RL(184);end;
82:begin SA;writeln('\94N\83_\83C\83\84\83\8b\82Í',YearDial,'\82É\83Z\83b\83g\82³\82ê\82Ä\82¢\82é\81B');end;
24:begin SA;writeln('\93ú\83_\83C\83\84\83\8b\82Í',DayDial,'\82É\83Z\83b\83g\82³\82ê\82Ä\82¢\82é\81B');end;
if(en('k'))then
begin RL(324);
if(cabiset=[])then RL(339)else
- for o:=0 to NMax do if(o in Cabiset)then writeln('',n[o,1])
+ for o:=0 to NMax do if(o in Cabiset)then writeln(' ',m[o,1])
end
else RL(299);
end; {of 55}
25:RL(418);
21:begin;RL(140);RL(141);end;
68:if(SlotCon=Null)then RL(143) else
- begin SA;writeln('\83X\83\8d\83b\83g\82Ì\92\86\82É\82Í',n[SlotCon,1],'\82ª\82 \82é\81B')end;
+ begin SA;writeln('\83X\83\8d\83b\83g\82Ì\92\86\82É\82Í',m[SlotCon,1],'\82ª\82 \82é\81B')end;
58:if(SlotCon=77)and not(en('x'))then
begin Ev:=Ev+['x'];Sc:=Sc+5;RS(75)end
else if(SlotCon=77)then RS(77)else RL(385)
43,57 :moveto(3);
6,17 :if(noun=57)and(here(40))and((noun2=40)or(noun2=Null))then
begin RS(16);Sc:=-500;
- Loc:='Locked Cabin';Verbose:=True;inven:=[];KitSet:=KitSet-[57];
+ Loc:='\95Â\82¶\82½\83L\83\83\83r\83\93';Verbose:=True;inven:=[];KitSet:=KitSet-[57];
n[57,1]:='plastic card';n[57,2]:='card';n[57,3]:='plastic';
- n[57,4]:='elevato card';n[57,5]:='elevato';r[57]:=76;moveto(76)
+ n[57,4]:='elevato card';n[57,5]:='elevato';m[57,1]:='\83J\81[\83h';r[57]:=76;moveto(76)
end;
33,19,2 :if(noun in[6,53,64])then moveto(3)
end;
if(Loc<>'Civilization!')then READLN(LINE)else repeat;until false;
if(Line='r')or(Line='repeat')then Line:=Again
else Again:=Line;
+ Translate;
gotoxy(1,23);TextColor(m3);writeln(chr_p(175));TextColor(m2);
end;
begin
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';
+d[0,1]:='\82ð\8dU\8c\82';d[0,2]:='\82ð\8eE';d[0,3]:='\82ð\93|';
+prep[0]:='with';
v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';
+d[1,1]:='\8aÈ\88Õ';
v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in';
v[2,5]:='climb over';
+d[2,1]:='\82É\93o';
v[3,1]:='close';v[3,2]:='shut';v[3,3]:='fasten';v[3,4]:='connect';
v[3,5]:='hook';
+d[3,1]:='\95Â';
v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea';
v[4,4]:='climb ne';
+d[4,1]:='\96k\90¼\82É\94\87';d[4,2]:='\96k\90¼\82É\82Í';d[4,3]:='\96k\90¼\82ð\90ö';d[4,4]:='\96k\90¼\82ð\90ö';
v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe';
v[5,4]:='climb sw';
+d[5,1]:='\93ì\90¼\82É\94\87';d[5,2]:='\93ì\90¼\82É\82Í';d[5,3]:='\93ì\90¼\82ð\90ö';d[5,4]:='\93ì\90¼\82ð\82';
v[6,1]:='cut';v[6,2]:='slice';v[6,3]:='cut out';v[6,4]:='saw';
v[6,5]:='chop';
+d[6,1]:='\90Ø';
v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel';
+v[7,1]:='\8c@';
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';
+d[9,1]:='\92u';d[9,2]:='\8eÌ';d[9,3]:='\97\8e';d[9,4]:='\93ü\82ê';d[9,5]:='\90\82';
+prep[9]:='into';
v[10,1]:='eat';v[10,2]:='swallow';
+d[10,1]:='\90H';d[10,2]:='\88ù';
v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search';
v[11,4]:='read';v[11,5]:='look at';
+d[11,1]:='\92²';d[11,2]:='\82ð\8c©';d[11,3]:='\93Ç';
v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check';
v[12,5]:='chech for';
+d[12,1]:='\92T';
v[13,1]:='repair';v[13,2]:='fix';
+d[13,1]:='\92¼';d[13,2]:='\8fC\97\9d';
v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal';
v[14,5]:='pick up';
+d[14,1]:='\8eæ';d[14,2]:='\8fE';
v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay';
v[15,5]:='give away';
+d[15,1]:='\82É\97^';d[15,2]:='\82É\93n';
+prep[15]:='to';
end;
procedure Assign2;
begin
v[16,1]:='help';v[16,2]:='pray';
+d[16,1]:='\83w\83\8b\83v';
v[17,1]:='hit';v[17,2]:='punch';v[17,3]:='knock';v[17,4]:='break';
v[17,5]:='destroy';
+d[17,1]:='\92@';d[17,2]:='\89£';d[17,3]:='\89ó';d[17,4]:='\8a\84';
v[18,1]:='invento';v[18,2]:='i';
+d[18,1]:='\8e\9d\82¿\95¨';
v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off';
v[19,5]:='jump in';
+d[19,1]:='\83W\83\83\83\93\83v';d[19,2]:='\94ò\82Ñ\8d~';d[19,3]:='\92µ';
v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row';
+d[20,1]:='\91\86';d[20,2]:='\94\90i';d[20,3]:='\8fo\94';
v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area';
+d[22,1]:='\8c©';d[22,2]:='\95Ó\82è\82ð\8c©';d[22,2]:='\8eü\82è\82ð\8c©';
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';
+d[23,1]:='\8fã\82ð\8c©';
v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up';
v[24,5]:='search in ';
+d[24,1]:='\92\86\82ð\8c©';d[24,1]:='\94`';
v[25,1]:='look under';v[25,2]:='ex underne';v[25,3]:='ex under';
v[25,4]:='look underne';v[25,5]:='ex below';
+d[25,1]:='\89º\82ð\8c©';
v[21,1]:='burn';v[21,2]:='ignite';v[21,3]:='light';
+d[21,1]:='\94R';
v[26,1]:='open';v[26,2]:='unfaste';v[26,3]:='peel';v[26,4]:='hatch';
v[26,5]:='untie';
+d[26,1]:='\8aJ';d[26,3]:='\89ð';d[26,4]:='\94\8d';d[26,5]:='\82Ì\94ç\82ð\94\8d';
v[27,1]:='pull';v[27,2]:='flick';v[27,3]:='pull on';v[27,4]:='flip';
v[27,5]:='flip on';
+d[27,1]:='\88ø';
v[28,1]:='push';v[28,2]:='move';v[28,3]:='press';v[28,4]:='turn on';
v[28,5]:='turn off';
+d[28,1]:='\89\9f';d[28,2]:='\93_';d[28,3]:='\8fÁ';d[28,4]:='\82Â\82¯\82é';
v[29,1]:='put';v[29,2]:='pour';v[29,3]:='lay';v[29,4]:='fill';
v[29,5]:='insert';
+d[29,1]:='\82ð\93ü';d[29,2]:='\91}';d[29,3]:='\8eh';d[29,4]:='\8d·';d[29,5]:='\97§\82Ä\82é';
+prep[29]:='into';
v[30,1]:='reach';v[30,2]:='reach in';v[30,3]:='feel in';
v[31,1]:='say';v[31,2]:='yell';v[31,3]:='shout';v[31,4]:='compute';
v[31,5]:='think';
+d[31,1]:='\82Æ\8c¾';d[31,2]:='\8c¾';d[31,3]:='\8b©';d[31,4]:='\82µ\82á\82×\82é';
end;
procedure Assign3;
begin
v[32,1]:='shoot';v[32,2]:='blast';v[32,3]:='fire at';v[32,4]:='fire';
v[32,5]:='shoot at';
+d[32,1]:='\8c\82';
v[33,1]:='sit';v[33,2]:='sit in';v[33,3]:='get in';v[33,4]:='sit down';
v[33,5]:='sit on';
+d[33,1]:='\8dÀ';
+prep[33]:='on';
v[34,1]:='sleep';v[34,2]:='lie down';v[34,3]:='sleep on';v[34,4]:='sleep in';
+d[34,1]:='\96°';d[34,2]:='\90Q';
v[35,1]:='stand';v[35,2]:='stand up';v[35,3]:='get up';v[35,4]:='stand in';
+d[35,1]:='\97§';d[35,2]:='\8bN';
v[36,1]:='throw';v[36,2]:='toss';
+d[36,1]:='\93\8a';d[36,2]:='\93\96';
+prep[36]:='to';
v[37,1]:='tie';v[37,2]:='hook';v[37,3]:='wrap';
+d[37,1]:='\8c\8b';d[37,2]:='\8aª';
+prep[37]:='to';
v[38,1]:='touch';v[38,2]:='feel';v[38,3]:='touch in';v[38,4]:='rub';
+d[38,1]:='\90G';
v[39,1]:='turn';v[39,2]:='rotate';v[39,3]:='set';
+d[39,1]:='\8d\87';d[39,2]:='\89ñ';d[39,3]:='\83Z\83b\83g';d[39,4]:='\82·\82é';
+prep[39]:='to';
v[40,1]:='unlock';
+d[40,1]:='\8c®\82ð\8aJ';d[40,2]:='\8c®\82ð\8aO';
v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest';
+d[41,1]:='\91Ò';
v[42,1]:='wear';v[42,2]:='put on';
+d[42,1]:='\92\85';d[42,2]:='\94í';d[42,3]:='\92÷';d[42,4]:='\95t';d[42,5]:='\91\95\94õ';
v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across';
+d[43,1]:='\96k';d[43,2]:='\90i';d[43,3]:='\91O';d[43,4]:='\93n';
v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a';
+d[44,1]:='\93ì';d[44,2]:='\96ß';d[44,3]:='\8cã';
v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st';
+d[45,1]:='\93\8c';d[45,2]:='\89E';
v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p';
+d[46,1]:='\90¼';d[46,2]:='\8d¶';
v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea';
+d[47,1]:='\96k\93\8c';d[47,2]:='\93\8c\96k';
v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe';
+d[48,1]:='\96k\90¼';d[48,2]:='\90¼\96k';
v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea';
+d[49,1]:='\93ì\93\8c';d[49,2]:='\93\8c\93ì';
v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe';
+d[50,1]:='\93ì\90¼';d[50,2]:='\90¼\93ì';
v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u';
+d[51,1]:='\8fã';d[51,2]:='\93o';
v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d';
v[52,5]:='lower';
+d[52,1]:='\89º';d[52,2]:='\8d~';
v[53,1]:='type';v[53,2]:='type in';
+prep[53]:='on';
+d[53,1]:='\91Å';d[53,2]:='\83^\83C\83v';d[53,3]:='\82ð\93ü\97Í';d[53,4]:='\82Æ\93ü\97Í';
v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit';
+d[54,1]:='\8fI\97¹';
v[55,1]:='take off';v[55,2]:='remove';
+d[55,1]:='\92E';d[55,2]:='\8aO';
v[56,1]:='shake';v[56,2]:='bogie';v[56,3]:='dance';
+d[56,1]:='\90U';d[56,2]:='\97x';
end;
procedure Assign4;
begin
v[57,1]:='enter';v[57,2]:='in';v[57,3]:='land in';v[57,4]:='land on';
v[57,5]:='land';
+d[57,1]:='\93ü';d[57,2]:='\8fæ';d[57,3]:='\92\85\92n';d[57,4]:='\92\85\97¤';
v[58,1]:='exit';v[58,2]:='out';v[58,3]:='leave';v[58,4]:='retreat';
v[58,5]:='escape';
+d[58,1]:='\8fo';d[58,2]:='\92E\8fo';
v[59,1]:='diagnos';
+d[59,1]:='\8fó\91Ô';
v[60,1]:='look behind';v[60,2]:='ex behind';v[60,3]:='examine behind';
v[60,4]:='ex beside';v[60,5]:='look beside';
+d[60,1]:='\8cã\82ë\82ð\8c©';d[60,2]:='\8cã\82ð\8c©';
v[61,1]:='restart';v[61,2]:='let';v[61,3]:='fall from';v[61,4]:='drop from';
v[61,5]:='fall';
+d[61,1]:='\82â\82è\92¼\82·';d[61,1]:='\82â\82è\82È\82¨\82·';
v[62,1]:='score';v[62,2]:='rank';
+d[62,1]:='\93¾\93_';
v[63,1]:='creatur';v[63,2]:='alien monster';v[63,3]:='monster';
v[63,4]:='alien creatur';
v[64,1]:='save';
+d[64,1]:='\95Û\91¶';
v[65,1]:='restore';v[65,2]:='resume';
+d[65,1]:='\95\9c\8bA';
{NOUN LIST: GROUPS ALL OBJECTS}
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';
+m[0,1]:='\83G\83C\83\8a\83A\83\93';
n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects';
+m[1,1]:='\91S';m[1,2]:='\89½';
n[2,1]:='banana';n[2,2]:='food';
+m[2,1]:='\83o\83i\83i';
n[3,1]:='bat';n[3,2]:='bats';
+m[3,1]:='\83R\83E\83\82\83\8a';m[3,2]:='\82±\82¤\82à\82è';m[3,3]:='å\9eå\95';m[3,4]:='\91«\90Õ';
n[4,1]:='bed';n[4,2]:='bunk';n[4,3]:='beds';n[4,4]:='bunks';
+m[4,1]:='\83x\83b\83h';
n[5,1]:='blue button';n[5,2]:='blue';
+m[5,1]:='\90Â\82¢\83{\83^\83\93';m[5,2]:='\90Â';
n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa';
n[6,5]:='ship';
+m[6,1]:='\91D';m[6,2]:='\83{\81[\83g';m[6,3]:='\83^\83C\83^\83j\83b\83N';
end;
procedure Assign5;
begin
n[7,1]:='bottle';n[7,2]:='brown bottle';n[7,3]:='brown';
+m[7,1]:='\92\83\90F\82Ì\83r\83\93';m[7,2]:='\83r\83\93';
n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch';
n[8,5]:='box switch';
+m[8,1]:='\8d\95\82¢\94 ';m[8,2]:='\94 ';m[8,3]:='\83X\83C\83b\83`';
n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers';
+m[9,1]:='\83r\83\8b';m[9,2]:='\8c\9a\95¨';
n[10,1]:='button';n[10,2]:='buttons';
+m[10,1]:='\83{\83^\83\93';
n[11,1]:='cabinet';n[11,2]:='file';n[11,3]:='blue cabinet';
+m[11,1]:='\83L\83\83\83r\83l\83b\83g';
n[12,1]:='cages';n[12,2]:='bars';
+m[12,1]:='\93®\95¨\82Ì\9fB';m[12,2]:='\9fB';
n[13,1]:='coin';n[13,2]:='quarter';n[13,3]:='25';n[13,4]:='money';
+m[13,1]:='\83R\83C\83\93';
n[14,1]:='containers';n[14,2]:='crate';n[14,3]:='crates';n[14,4]:='cargo';
n[14,5]:='contain';
+m[14,1]:='\83R\83\93\83e\83i';m[14,2]:='\89×\95¨';m[14,3]:='\89Ý\95¨';m[14,4]:='\90Ï\89×';
n[15,1]:='ceiling';n[15,2]:='roof';
+m[15,1]:='\93V\88ä';m[15,2]:='\8bó';
n[16,1]:='chair';n[16,2]:='time chair';n[16,3]:='time';n[16,4]:='seat';
n[16,5]:='metal chair';
+m[16,1]:='\8bà\91®\82Ì\88Ö\8eq';m[16,2]:='\88Ö\8eq';m[16,3]:='\82¢\82·';m[16,4]:='\83C\83X';
n[17,1]:='chasm';n[17,2]:='canyon';
+m[17,1]:='\92J';m[17,2]:='\8c\8a';
n[18,1]:='city';n[18,2]:='floatin city';n[18,3]:='floatin';n[18,4]:='town';
+m[18,1]:='\93s\8es';m[18,2]:='\92¬';m[18,3]:='\8d\\91¢\95¨';
n[19,1]:='clouds';n[19,2]:='cloud';
+m[19,1]:='\89_';
n[20,1]:='computer';n[20,2]:='termina';n[20,3]:='compute';n[20,4]:='typewri';
+m[20,1]:='\83^\83C\83v\83\89\83C\83^\81[';
n[21,1]:='controls';n[21,2]:='machine';n[21,3]:='equipme';n[21,4]:='devices';
n[21,5]:='control';
+m[21,1]:='\91\80\8dì\94Õ';m[21,2]:='\8b@\8aB';m[21,3]:='\90Ý\94õ';m[21,4]:='\91\95\92u';
n[22,1]:='crater';n[22,2]:='pit';n[22,3]:='stove';
+m[22,1]:='\83N\83\8c\81[\83^\81[';m[22,2]:='\83X\83g\81[\83u';
n[23,1]:='creature';n[23,2]:='creatur';n[23,3]:='monster';
n[23,4]:='alien creatur';n[23,5]:='it';
+m[23,1]:='\89ö\95¨';
n[24,1]:='silver dial';n[24,2]:='day dial';n[24,3]:='day';n[24,4]:='silver';
+m[24,1]:='\8bâ\82Ì\83_\83C\83\84\83\8b';m[24,2]:='\8bâ';m[24,3]:='\93ú';
n[25,1]:='dial';n[25,2]:='knob';n[25,3]:='dials';n[25,4]:='knobs';
+m[25,1]:='\83_\83C\83\84\83\8b';
n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door';
n[26,5]:='sliding';
+m[26,1]:='\94à';m[26,2]:='\83h\83A';m[26,3]:='\83n\83b\83`';
n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire';
n[27,4]:='mangled';n[27,5]:='piece wire';
+m[27,1]:='\90j\8bà';
n[28,1]:='egg';n[28,2]:='eggs';
+m[28,1]:='\97\91';
n[29,1]:='flashlight';n[29,2]:='light';n[29,3]:='flashli';n[29,4]:='hook';
n[29,5]:='ring';
+m[29,1]:='\89ù\92\86\93d\93\94';m[29,2]:='\93d\93\94';m[29,3]:='\83\89\83C\83g';m[29,4]:='\96¾\82©\82è';
end;
procedure Assign6;
begin
n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck';
n[30,5]:='bay';
+m[30,1]:='\92n\96Ê';m[30,2]:='\8f°';m[30,3]:='\92n\8fã';m[30,4]:='\83f\83b\83L';m[30,5]:='\8d`';
n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest';
+m[31,1]:='\96Ø';
n[32,1]:='piece of fur';n[32,2]:='fur';n[32,3]:='piece fur';n[32,4]:='piece';
n[32,5]:='blue fur';
+m[32,1]:='\90Â\82¢\96Ñ\94ç';m[32,2]:='\96Ñ\94ç';
n[33,1]:='green button';n[33,2]:='green';
+m[33,1]:='\97Î\82Ì\83{\83^\83\93';
n[34,1]:='gun';n[34,2]:='ray gun';n[34,3]:='gauge';n[34,4]:='orange';
n[34,5]:='laser gun';
+m[34,1]:='\8fe';
n[35,1]:='safety harness';n[35,2]:='safety';n[35,3]:='belt';
n[35,4]:='harness';n[35,5]:='strap';
+m[35,1]:='\88À\91S\83x\83\8b\83g';m[35,2]:='\83x\83\8b\83g';m[35,3]:='\8aâ';
n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean';
+m[36,1]:='\95X';m[36,2]:='\8aC';m[36,3]:='\83\8c\83o\81[';
n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood';
+m[37,1]:='\8a¢âI';m[37,2]:='\82ª\82ê\82«';m[37,3]:='\82²\82Ý';m[37,4]:='\83S\83~';m[37,5]:='\94j\95Ð';
n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric';
n[38,4]:='numbers';
+m[38,1]:='\83L\81[\83{\81[\83h';
n[39,1]:='survival kit';n[39,2]:='kit';n[39,3]:='surviva';n[39,4]:='red kit';
n[39,5]:='surviva kit';
+m[39,1]:='\8f¬\94 ';m[39,2]:='\83L\83b\83g';
n[40,1]:='knife';n[40,2]:='blade';
+m[40,1]:='\83i\83C\83t';
n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad';
n[41,5]:='landing pad';
+m[41,1]:='\83R\83\93\83N\83\8a\81[\83g';
n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand';
n[42,5]:='landing bay';
+m[42,1]:='\8fÀ';m[42,2]:='\8d»';
n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage';
+m[43,1]:='\9fB';
n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand';
+m[44,1]:='\8d¶\8eè';
n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty';
+m[45,1]:='\8fù\91O';
n[46,1]:='message';n[46,2]:='chisele';n[46,3]:='writing';n[46,4]:='marking';
n[46,5]:='chisele marking';
+m[46,1]:='\95¶\8e\9a';
n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop';
+m[47,1]:='\93D';
n[48,1]:='chain';n[48,2]:='thick chain';n[48,3]:='metal chain';
+m[48,1]:='\8d½';
n[49,1]:='panel';n[49,2]:='compart';
+m[49,1]:='\83p\83l\83\8b';
n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road';
n[50,5]:='tubes';
+m[50,1]:='\93¹';
n[51,1]:='banana peel';n[51,2]:='peel';n[51,3]:='skin';
+m[51,1]:='\94ç';
n[52,1]:='glowing pill';n[52,2]:='pill';n[52,3]:='glowing';
+m[52,1]:='\8cõ\82é\96ò';m[52,2]:='\96ò';
n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail';
+m[53,1]:='\8eè\82·\82è';
n[54,1]:='reactor';n[54,2]:='core';
+m[54,1]:='\98F';m[54,2]:='\93®\97Í';
n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled';
n[55,5]:='mangled door';
+m[55,1]:='\90Ô\82¢\83{\83^\83\93';
n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms';
+m[56,1]:='\89E\98r';
end;
procedure Assign7;
begin
n[57,1]:='rope';n[57,2]:='thick';n[57,3]:='thick rope';
+m[57,1]:='\83\8d\81[\83v';m[57,2]:='\83p\83\89\83V\83\85\81[\83g';
n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens';
+m[58,1]:='\83X\83N\83\8a\81[\83\93';m[58,2]:='\89æ\96Ê';
n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches';
n[59,5]:='metalli';
+m[59,1]:='\83x\83\93\83`';
n[60,1]:='player';n[60,2]:='self';n[60,3]:='waist';n[60,4]:='me';
n[60,5]:='myself';
+m[60,1]:='\83v\83\8c\83C\83\84\81[';m[60,2]:='\8e©\95ª';
n[61,1]:='shelf';n[61,2]:='shelves';
+m[61,1]:='\92I';
n[62,1]:='reactor shield';n[62,2]:='barrier';n[62,3]:='shield';
n[62,4]:='plate';n[62,5]:='radiati shield';
+m[62,1]:='\83v\83\8c\81[\83g';m[62,2]:='\83V\81[\83\8b\83h';
n[63,1]:='shiny key';n[63,2]:='shiny';n[63,3]:='key';
+m[63,1]:='\8bP\82\8c®';m[63,2]:='\8c®';m[63,3]:='\83L\81[';
n[64,1]:='alien saucer';n[64,2]:='alien ship';n[64,3]:='hull';
n[64,4]:='saucer';
+m[64,1]:='\89~\94Õ';
n[65,1]:='shuttle';n[65,2]:='car';n[65,3]:='vehicle';n[65,4]:='engine';
+m[65,1]:='\83V\83\83\83g\83\8b';m[65,2]:='\8fæ\82è\95¨';
n[66,1]:='sign';n[66,2]:='note';n[66,3]:='red sign';
+m[66,1]:='\8aÅ\94Â';m[66,2]:='\83T\83C\83\93';
n[67,1]:='bones';n[67,2]:='bone';n[67,3]:='skeleto';n[67,4]:='animals';
n[67,5]:='remains';
+m[67,1]:='\8e\80\8a[';
n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole';
n[68,5]:='keyhole';
+m[68,1]:='\8c®\8c\8a';m[68,2]:='\83X\83\8d\83b\83g';
n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder';
n[69,5]:='step';
+m[69,1]:='\8aK\92i';m[69,2]:='\82Í\82µ\82²';m[69,3]:='\92ò\8eq';m[69,4]:='\8dâ';
n[70,1]:='metal stake';n[70,2]:='stake';n[70,3]:='metal';n[70,4]:='pole';
n[70,5]:='rod';
+m[70,1]:='\8bà\91®\82Ì\96_';m[70,2]:='\96_';m[70,3]:='\90l\89e';m[70,4]:='\83~\83\85\81[\83^\83\93\83g';
n[71,1]:='rock feature';n[71,2]:='stalagt';
+m[71,1]:='\8fß\93û\90Î';
n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon';
n[72,4]:='shapes';
+m[72,1]:='\8fá\8aQ\95¨';n[72,2]:='\98Z\8ap\8c`';m[72,3]:='\83t\83F\83\93\83X';
end;
procedure Assign8;
begin
n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher';
n[73,5]:='lake';
+m[73,1]:='\90\85';m[73,2]:='\90ì';
n[74,1]:='alien suit';n[74,2]:='suit';n[74,3]:='space suit';
n[74,4]:='uniform';
+m[74,1]:='\83X\81[\83c';
n[75,1]:='table';n[75,2]:='tables';
+m[75,1]:='\83e\81[\83u\83\8b';
n[76,1]:='tan button';n[76,2]:='tan';
+m[76,1]:='\92\83\90F\82Ì\83{\83^\83\93';
n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape';
+m[77,1]:='\83e\81[\83v';
n[78,1]:='healing tube';n[78,2]:='tube';n[78,3]:='healing';
n[78,4]:='glass tube';n[78,5]:='glass';
+m[78,1]:='\83`\83\85\81[\83u';
n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall';
n[79,4]:='east wall';n[79,5]:='west wall';
+m[79,1]:='\95Ç';
n[80,1]:='waterfall';n[80,2]:='waterfa';
+m[80,1]:='\91ê';
n[81,1]:='white button';n[81,2]:='white';
+m[81,1]:='\94\92\82¢\83{\83^\83\93';
n[82,1]:='gold dial';n[82,2]:='year';n[82,3]:='gold';n[82,4]:='year dial';
+m[82,1]:='\8bà\82Ì\83_\83C\83\84\83\8b';m[82,2]:='\8bà';m[82,3]:='\94N';
n[83,1]:='slime';n[83,2]:='jelly';
+m[83,1]:='\94S\89t';
n[84,1]:='vent';n[84,2]:='vents';
+m[84,1]:='\92Ê\8bC\8cû';
n[85,1]:='lamp';
+m[85,1]:='\83\89\83\93\83v';
n[86,1]:='microphone';n[86,2]:='mic';n[86,3]:='speaker';n[86,4]:='microph';
+m[86,1]:='\83}\83C\83N';
n[87,1]:='bridge';n[87,2]:='wooden bridge';n[87,3]:='wooden';
+m[87,1]:='\96Ø\82Ì\8b´';m[87,2]:='\8b´';
n[88,1]:='beams';n[88,2]:='orange beams';n[88,3]:='beam';
n[88,4]:='electri';n[88,5]:='orange';
+m[88,1]:='\8cõ\90ü';m[88,2]:='\8cõ';
n[89,1]:='helmet';n[89,2]:='control helmet';n[89,3]:='hat';
+m[89,1]:='\83w\83\8b\83\81\83b\83g';
end;
{====================================END======================================}
\1a
\ No newline at end of file
OSDN Git Service
