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;
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('The rope is tied to the ',n[ropecon,1],'.')
+ writeln('\83\8d\81[\83v\82Í',n[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);
68:if(Prm=34)then
if(SlotCon=Null)then begin RL(186);Vanish(noun);
SlotCon:=Noun;r[noun]:=Prm;end
- else Say(68,'being used')
+ else Say(68,'\8eg\97p\92\86')
else
if(noun=63)and(Prm=58)then
begin RL(337);KeyHole:=True;r[63]:=Prm;inven:=inven-[63];end
30:if(noun=70)then
if not(en('d'))then
begin Ev:=Ev+['d'];RL(69);Vanish(70);r[70]:=Prm;end
- else Say(70,'in the dirt')
+ else Say(70,'\93D\82Ì\92\86')
else Crazy
end;{of case}
if(FlagSA<>'s')then Crazy;
end
end
- else writeln('First you must have the ',n[noun,1],'.')
+ else writeln('\82Ü\82¸',n[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¯\82ê\82Î\82È\82ç\82È\82¢\81B')
else Crazy;
end {of case}
case noun of
57:RL(259);
60:RL(260)
- else writeln('At the last moment you decide to spare',
- ' the ',n[noun,1],'''s life!')
+ 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½!')
end
else Crazy
else RL(83);
30 :if(noun in [39,43,12,26,6,22,47,49,68,78,17,11,
50,65,73,74,80,79,30])then RL(93) else RL(94);
-54 :begin write('Would you like to SAVE your game first (Y or N)? ');
- flag := readkey;if(upcase(flag)<>'N')then SAVE else writeln('No.');
- write('Are you still sure you want to quit? ');
+54 :begin write('\8fI\97¹\82·\82é\91O\82É\83Q\81[\83\80\82ð\95Û\91¶\82µ\82Ü\82·\82©? (Y \82Ü\82½\82Í N) ');
+ flag := readkey;if(upcase(flag)<>'N')then SAVE else writeln('\82¢\82¢\82¦\81B');
+ write('\96{\93\96\82É\83Q\81[\83\80\82ð\8fI\97¹\82µ\82Ü\82·\82©? ');
flag := readkey;if(upcase(flag)='Y')then
begin RL(367);delay(999);window(1,1,80,25);clrscr;close(rooms1);
close(rooms2);close(special1);close(special2);close(line1);
R[noun]:=Prm;
end
else
- writeln('You don''t have the ',n[noun,1],'.')
+ writeln(n[noun,1],'\82ð\8e\9d\82Á\82Ä\82¢\82È\82¢\81B')
else
begin
if(74 in inven)and(en('p'))then RL(170)else
else RL(122);
end; {of case}
-62 :begin write('You have ',Sc,' of 1000 points',
- ', giving you the rank of ');Tic:=Tic-1;
+62 :begin write('\82 \82È\82½\82Í1000\93_\92\86',Sc,'\93_\82ð\8al\93¾\82µ\81A');Tic:=Tic-1;
case Sc of
- 0..99:writeln('beginner.');
- 100..249:writeln('novice adventurer.');
- 250..399:writeln('adventurer third class.');
- 400..549:writeln('adventurer second class.');
- 550..699:writeln('adventurer first class.');
- 700..849:writeln('expert adventurer.');
- 850..999:writeln('master adventurer.')
- else writeln('dead adventurer!')
+ 0..99:writeln('\93ü\96å\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 100..249:writeln('\96`\8c¯\8f\89\90S\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 250..399:writeln('3\8b\89\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 400..549:writeln('2\8b\89\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 550..699:writeln('1\8b\89\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 700..849:writeln('\8fn\97û\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½\81B');
+ 850..999:writeln('\8dÅ\8d\82\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½!')
+ else writeln('\8e\80\82¹\82é\96`\8c¯\8eÒ\82Ì\83\89\83\93\83N\82É\92B\82µ\82½!')
end;
Attack:=False;
if(MnRm=Prm)then RL(370)
if(Stuff+1 < 7)then
begin
vanish(o);inven:=inven+[o];Stuff:=Stuff+1;
- writeln(n[o,1],': Taken.');flag:='1';
+ writeln(n[o,1],': \8eæ\82Á\82½\81B');flag:='1';
if(o=70)then Ev:=Ev-['d'];
end
else
begin flag:='1';
- writeln(n[o,1],': You have too many objects already!');end
+ writeln(n[o,1],': \82à\82¤\8e\9d\82Ä\82È\82¢!');end
end
else RL(234);
if(flag='0')then RL(49)
if not(en('i'))then
begin RL(20);inven:=inven+[74];r[74]:=Null;Ev:=Ev+['p'];end
else RL(320)
- else Say(74,'on');
+ else Say(74,'\92\85\82Ä\82¢\82é');
89:if not(en('i'))then
if not(en('p'))then
begin RL(319);vanish(89);inven:=inven+[89];Ev:=Ev+['i'];end
else RL(318)
- else Say(89,'on your head')
+ else Say(89,'\94í\82Á\82Ä\82¢\82é')
else RL(128);
end;
52:begin RL(34);Vanish(52);end;
23:if(noun2=null)then RL(369)
else begin Vanish(noun2);Attack:=False;
- writeln('The monster grabs the ',n[noun2,1],' and eats it!');
+ writeln('\89ö\95¨\82Í',n[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('At the last moment you decide to',
- ' spare the ',n[noun,1],'''s life!')
+ 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½!')
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('The ',n[noun,1],' vanishes in an explosion of light!');
+ writeln(n[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];
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],' out of mid-flight and eats it',
- ' in one giant gulp!')end;
+ writeln(n[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('The ',n[noun,1],' collides with the ',
- n[noun2,1],' but nothing interesting happens.');
+ 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');
Vanish(noun);r[noun]:=Prm;end
- else writeln('First you must have the ',n[noun,1],'.')
+ else writeln(n[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(en('o'))then
begin Ev:=Ev+['o'];RL(328); for o:=2 to 57 do
if(o in kitset)then r[o]:=Prm;end
- else Say(noun,'opened');
+ else Say(noun,'\8aJ\82¢\82Ä\82¢\82é');
3 :if(noun=39)then
if(en('o'))then
begin Ev:=Ev-['o'];RL(186); for o:=2 to 57 do
if(o in kitset)then r[o]:=Null;end
- else Say(noun,'shut');
+ else Say(noun,'\95Â\82¶\82Ä\82¢\82é');
17,28,27 :if(noun in [6,57,39,59])then RL(29);
24,11 :case noun of
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(' a ',n[o,1]);end
+ if(o in kitset)then writeln(' ',n[o,1]);end
else RL(331);
57 :RL(10);
73 :RL(19);
if(en('o'))then
begin Ev:=Ev-['o'];RL(186); for o:=0 to 57 do
if(o in kitset)then r[o]:=Null;end
- else Say(noun,'shut');
+ else Say(noun,'\95Â\82¶\82Ä\82¢\82é');
29,37 :if(noun=35)and(noun2=60)then begin
RL(8);Ev:=Ev+['B'];end;
26 :if(noun=35)and(en('B'))then begin RL(332);Ev:=Ev-['B'];end
if not(en('o'))then
begin Ev:=Ev+['o'];RL(328); for o:=0 to 57 do
if(o in kitset)then r[o]:=Prm;end
- else Say(noun,'opened');
+ else Say(noun,'\8aJ\82¢\82Ä\82¢\82é');
19,2:if(noun in[6,64])or(noun=Null)then
if(en('B'))then RL(9)
else begin RL(0);DEAD;end;
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(' a ',n[o,1]);end
+ if(o in kitset)then writeln(' ',n[o,1]);end
else RL(331);
35 :RL(12);
73 :RL(19);
43..47,49..52:if FlasOff then RL(14);
11:if(noun in [46,79])then RS(12)
else if(noun in [15,30])then RL(28);
- 38 :if(noun=46)then begin SA;writeln('It feels jagged.');end;
+ 38 :if(noun=46)then begin SA;writeln('\83M\83U\83M\83U\82¾\81B');end;
end; {of 8}
9 :case verb of
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],': Taken.');end;
+ else Ev:=Ev-['t'];SA;writeln(n[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)
43,48 :if(flasoff)then RL(14)else moveto(22);
44,45,47,49:RL(258);
26,27 :if(noun=26)then
- if(en('l'))then Say(26,'open')
+ if(en('l'))then Say(26,'\8aJ\82¢\82Ä\82¢\82é')
else begin RL(98);Ev:=Ev+['l'];p[23]:=p[23]+[69];end;
3 :if(noun=26)then
if(en('l'))then begin RL(171);Ev:=Ev-['l'];p[23]:=p[23]-[69];end
- else Say(26,'closed');
+ else Say(26,'\95Â\82¶\82Ä\82¢\82é');
2,52,57:if(en('l'))and((noun=69)or(noun=Null))then moveto(24)else RL(99);
24,25 :if(noun=26)then RL(151);
11 :if(noun=26)then if(en('l'))then RL(217)else RL(218)
30 :case verb of
46,58:if(en('e'))then RL(212) else moveto(25);
- 26,27,28,40:if(noun=49)then if(en('h'))then Say(49,'open') else RL(159)
+ 26,27,28,40:if(noun=49)then if(en('h'))then Say(49,'\8aJ\82¢\82Ä\82¢\82é') else RL(159)
else
if(noun in[10,76])and(verb=28)then
begin
35 :if(en('e'))then begin Ev:=Ev-['e'];RL(211);Attack:=False end;
17,0,6:if(noun=49)then RL(160);
53 :if(input=Code)then
- If(en('h'))then Say(49,'open')
+ If(en('h'))then Say(49,'\8aJ\82¢\82Ä\82¢\82é')
else
begin Ev:=Ev+['h'];RL(173);play(23,24,250);Sc:=Sc+30;
if(PanelCon<>Null)then begin r[PanelCon]:=30;Code:='R';
39 :case verb of
46,50,58:moveto(26);
45 :if(en('g'))then moveto(40);
- 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');
+ 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'\95Â\82¶\82Ä\82¢\82é');
43 :moveto(36);
44 :moveto(38);
57 :if(noun=12)then RL(215);
40 :case verb of
46,58 :if(en('g'))then moveto(39) else RL(221);
- 26 :if(noun=26)then if(en('g'))then Say(26,'open') else RL(221);
- 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');
+ 26 :if(noun=26)then if(en('g'))then Say(26,'\8aJ\82¢\82Ä\82¢\82é') else RL(221);
+ 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'\95Â\82¶\82Ä\82¢\82é');
11,14 :if(noun in[12,43,83])then RL(261);
end;
if(o in cabiset)then r[o]:=55;
if not(en('R'))then begin Ev:=Ev+['R'];Sc:=Sc+55;end;
end
- else Say(11,'open')
+ else Say(11,'\8aJ\82¢\82Ä\82¢\82é')
else if(SepWord='s')then RL(317);
29 :if(noun=27)and(noun2 in[45,26,11,68])and(SepWord='in')then
if not(en('k'))then
begin RL(314);play(30,32,30);Ev:=Ev-['k'];
for o:= 2 to NMax do if(o in cabiset)then r[o]:=Null;
end
- else Say(11,'shut & locked');
+ else Say(11,'\8c®\82ª\8a|\82©\82Á\82Ä\82¢\82é');
24,30 :if(noun in[26,11])then
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('a ',n[o,1])
+ for o:=0 to NMax do if(o in Cabiset)then writeln('',n[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('The slot contains a ',n[SlotCon,1],'.')end;
+ begin SA;writeln('\83X\83\8d\83b\83g\82Ì\92\86\82É\82Í',n[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)
end;
59 :case verb of
- 43..50:begin o:=random(8)+3;writeln('You travel about ',o,' miles...');
+ 43..50:begin o:=random(8)+3;writeln(o,'\83}\83C\83\8b\82Ù\82Ç\94ò\8ds\82µ\82½\81c');
if(random(4)=2)then ShRm:=13 else ShRm:=Random(15);moveto(59)end;
52,57:RL(341);
58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
OSDN Git Service
