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);
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)
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)
gotoxy(1,22);
write('#########################################################',
'#######################');writeln;
- TextColor(31);gotoxy(25,20);writeln('Y O U H A V E W O N ! ! !');
+ TextColor(31);gotoxy(25,20);writeln('\82 \82È \82½ \82Í \8f\9f \97\98 \82µ \82½ ! ! !');
Textcolor(m2);Textbackground(0);
gotoxy(1,23);DelLine;DelLine;writeln;
for x:=150 downto 1 do begin sound(x*55);delay(8);nosound;delay(20)end;
if(Sc>1000)then Sc:=1000;
- write('You finished with a score of ',Sc,', which makes you a ');
+ write('\82 \82È\82½\82Í\82±\82Ì\83Q\81[\83\80\82Å',Sc,'\93_\82ð\8al\93¾\82µ\81A');
if(Sc=1000)then
- begin writeln('Perfect Adventurer!!!');
+ begin writeln('\8a®àø\82È\96`\8c¯\8eÒ\82Æ\82È\82Á\82½!!!');
for y:=1 to 7 do
for o:=0 to 20 do
for x:= 99+(o*430)to 998+(o*430)do begin sound(25);sound(x)end
end
- else writeln('Master Adventurer!');
+ else writeln('\92B\90l\96`\8c¯\8eÒ\82Æ\82È\82Á\82½!');
for c:=1 to 999 do for b:=1 to 61 do sound(b*c);nosound;
writeln;nosound;
- writeln('Reboot your computer to regain control...')
+ writeln('\83R\83\93\83s\83\85\81[\83^\82ð\8dÄ\8bN\93®\82µ\82Ä\82\82¾\82³\82¢\81c')
end;
procedure Say(o : integer; p : Str16);
18:s('\8b·\82¢\93ü\82è\8cû');19:s('\8aâ\82Ì\8dâ\93¹');
21:s('\89~\94Õ\82Ì\92[');22:s('\89~\94Õ\82Ì\91¤');
23:s('\89~\94Õ\82Ì\8fã');24:s('\83G\83A\83\8d\83b\83N');16:s('\83\8d\81[\83v\82Ì\92[');
-76:s('Locked Cabin');25:s('\92\86\89\9b\83G\83\93\83g\83\89\83\93\83X');
+76:s('\95Â\82¶\82½\83L\83\83\83r\83\93');25:s('\92\86\89\9b\83G\83\93\83g\83\89\83\93\83X');
26:s('\89º\91w\83G\83\93\83g\83\89\83\93\83X');27:s('\91D\82Ì\93ª\94]');
30:s('\8e\9e\82Ì\95\94\89®');28:s('\8c¤\8b\86\8eº');34:s('\91D\8b´');
29:s('\83`\83\85\81[\83u\82Ì\92\86');31:s('\88ã\96±\8eº');58,69:s('\83V\83\83\83g\83\8b\82Ì\92\86');
32:s('\91q\8cÉ');33:s('\90Q\8eº');
35:s('\93®\97Í\8eº');36:s('1\8d\86\89Ý\95¨\8eº');37:s('2\8d\86\89Ý\95¨\8eº');
38:s('3\8d\86\89Ý\95¨\8eº');39:s('4\8d\86\89Ý\95¨\8eº');40:s('\91å\82«\82È\89Ý\95¨\82Ì\92\86');
-41:s('\96Ø\91¢\82Ì\91D\8b´');42:s('\94j\89ó\82³\82ê\82½\92[');43:s('\93ì\82Ì\92[');
+41:s('\96Ø\82Ì\8b´');42:s('\94j\89ó\82³\82ê\82½\92[');43:s('\93ì\82Ì\92[');
44..46:s('\8d»\82¾\82ç\82¯\82Ì\93¹\98H');47:s('\83N\83\8c\81[\83^\81[\82Ì\92[');48:s('\83N\83\8c\81[\83^\81[\82Ì\92\86');
49:s('\83r\83\8b\82Ì\91O');50:s('\83\8d\83r\81[');51..54:s('\83I\83t\83B\83X');
55:s('\92n\89º\8eº');56:s('\82Í\82µ\82²\82Ì\95\94\89®');57:s('\83r\83\8b\82Ì\89®\8fã');
writeln('\83h\83\89\83C\83uB:\82É\95Û\91¶\83f\83B\83X\83N\82ª\91}\93ü\82³\82ê\82Ä\82¢\82é\82©\8am\94F\82µ\82Ä\82\82¾\82³\82¢\81B');
writeln(' (\89½\82©\83L\81[\82ð\89\9f\82·\82Æ\91±\82¯\82Ü\82·\81c)');flag:=readkey;
writeln;writeln;
- write('Save under what name? ');readln(input);
+ write('\95Û\91¶\82·\82é\83t\83@\83C\83\8b\82Ì\83t\83@\83C\83\8b\96¼\82Í? ');readln(input);
while pos(' ',input)>0 do delete(input,pos(' ',input),1);
while pos('.',input)>0 do delete(input,pos('.',input),1);
if(input='')then input:='LastRoom';
writeln;writeln;input:=Drive+input;
while pos(':',input)>0 do input[pos(':',input)] := '_';
- writeln('If your SAVE/RESTORE disk is in drive ',Drive,
- ' then press any key to start.');
+ writeln('\95Û\91¶/\95\9c\8bA\82·\82é\83f\83B\83X\83N\82ð\83h\83\89\83C\83u',Drive,
+ '\82É\91}\93ü\82³\82ê\82Ä\82¢\82ê\82Î\81A\89½\82©\83L\81[\82ð\89\9f\82·\82Æ\8en\82Ü\82è\82Ü\82·\81B');
flag := readkey;
with DiskSave do
begin
OSDN Git Service
