gotoxy(1,22);
write('*********************************************************',
'***********************');writeln;
- TextColor(m0);gotoxy(32,20);writeln('YOU HAVE DIED!!!');
+ TextColor(m0);gotoxy(27,20);writeln('\82 \82È\82½\82Í\8e\80\82ñ\82Å\82µ\82Ü\82Á\82½!!!');
Textcolor(m2);Textbackground(0);
for c:=700 downto 20 do for b:=70 downto 1 do sound(b*c);nosound;
close(Rooms1);close(rooms2);close(special1);close(special2);close(line1);
- gotoxy(1,23);DelLine;DelLine;writeln;write('Do you wish to play again? ');
+ gotoxy(1,23);DelLine;DelLine;writeln;write('\82â\82è\92¼\82µ\82Ü\82·\82©? ');
flag := readkey;
if(upcase(flag)<>'N')then
begin
- writeln('Restarting...');window(1,1,80,25);
+ writeln('\82à\82¤\88ê\93x\81c');window(1,1,80,25);
halt(executeProcess(ParamStr(0), '', []));
end
else
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);
begin
- writeln('The ',n[o,1],' is already ',p,'.'); SA
+ writeln(n[o,1],'\82Í\8aù\82É',p,'\81B'); SA
end;
procedure Diagnose;
if((en('a'))and(here(29)))or not(Prm in [6..24])then begin
case Prm of
0:s('\91D\82Ì\91O\95û');1:s('\91D\82Ì\92\86\89\9b');2:s('\91D\82Ì\8cã\95û');
-3:s('\8b~\96½\83{\81[\83g');4:s('Ocean Surface');5:s('Huge Cavern');
-6:s('Cave of Pins');7:s('Ocean Bottom');8:s('Squeaky Cave');
-9:s('Stream Bend');10:s('Waterfall');13:s('Sloppy Cave');
-11:s('Hex Cave');12:s('Shallow Cleft');20:s('Zoo');
-14:s('Winding Tunnel');15:s('Chasm');17:s('Chasm Bottom');
-18:s('Tiny Opening');19:s('Etched Stairs');
-21:s('Edge of Saucer');22:s('Side of Saucer');
-23:s('Top of Saucer');24:s('Airlock');16:s('End of Rope');
-76:s('Locked Cabin');25:s('Central Entry');
-26:s('Lower Entry');27:s('Ship''s Systems');
-30:s('Time Chamber');28:s('Ship''s Lab');34:s('Bridge');
-29:s('Inside Tube');31:s('Life Support');58,69:s('Inside Shuttle');
-32:s('Supply Chamber');33:s('Sleep Chamber');
-35:s('Engine Room');36:s('Cargo Deck #1');37:s('Cargo Deck #2');
-38:s('Cargo Deck #3');39:s('Cargo Deck #4');40:s('Large Cage');
-41:s('Wooden Bridge');42:s('Broken End');43:s('South End');
-44..46:s('Deserted Road');47:s('Crater Edge');48:s('Crater Floor');
-49:s('Building Front');50:s('Lobby');51..54:s('Office Room');
-55:s('Basement');56:s('Ladder Room');57:s('Building Roof');
-59:case ShRm of 0:s('Above Mud Lake');
-1:s('Above Rubble');2:s('Above Desert');3:s('Above Pits');
-4:s('Above River');5:s('Above Stream');6:s('Above Town');
-7:s('Above Mountain');8:s('Above Crator');9:s('Above Hills');
-10:s('Above Canyon');11:s('Above Flatland');12:s('Above Dry Lake');
-13:s('Above Desert');14:s('Above Bridge')end;{of Above Rooms}
-63,64:s('Above Clouds');65..68:s('Outside City');70:s('Landing Bay');
-71:s('Power Plant');72..74:s('Dark Corridor');75:s('Food Supply')
+3:s('\8b~\96½\83{\81[\83g');4:s('\8aC\82Ì\8fã');5:s('\8dL\82¢\93´\8cA');
+6:s('\9e\99\82Ì\93´\8cA');7:s('\8aC\82Ì\92ê');8:s('\8db\8d\82\82¢\89¹\82Ì\93´\8cA');
+9:s('\90ì\82Ì\8bÈ\82ª\82è\8ap');10:s('\91ê');13:s('\93D\82¾\82ç\82¯\82Ì\93´\8cA');
+11:s('\98Z\8ap\8c`\82Ì\93´\8cA');12:s('\90ó\82¢\92J\8aÔ');20:s('\93®\95¨\89\80');
+14:s('\95\97\82Ì\90\81\82\83g\83\93\83l\83\8b');15:s('\92J\8aÔ');17:s('\92J\92ê');
+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('\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È\9fB\82Ì\92\86');
+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ã');
+59:case ShRm of 0:s('\8fÀ\82Ì\8fã\8bó');
+1:s('\8a¢âI\82Ì\8fã\8bó');2:s('\8d»\94\99\82Ì\8fã\8bó');3:s('\83N\83\8c\81[\83^\81[\82Ì\8fã\8bó');
+4:s('\90ì\82Ì\8fã\8bó');5:s('\8f¬\90ì\82Ì\8fã\8bó');6:s('\92¬\82Ì\8fã\8bó');
+7:s('\8eR\82Ì\8fã\8bó');8:s('\83N\83\8c\81[\83^\81[\82Ì\8fã\8bó');9:s('\8bu\82Ì\8fã\8bó');
+10:s('\92J\82Ì\8fã\8bó');11:s('\95½\92n\82Ì\8fã\8bó');12:s('\8a±\8fã\82ª\82Á\82½\92r\82Ì\8fã\8bó');
+13:s('\8d»\94\99\82Ì\8fã\8bó');14:s('\8b´\82Ì\8fã\8bó')end;{of Above Rooms}
+63,64:s('\89_\82Ì\8fã');65..68:s('\93s\8es\82Ì\8aO');70:s('\8d`');
+71:s('\94\93d\90Ý\94õ');72..74:s('\94\96\88Ã\82¢\92Ê\98H');75:s('\90H\97¿\8cÉ')
end; {of case}
if Verbose then begin FlagSA:='r';
case Prm of
2 :if(40 in p[2])then begin RR(2);RL(416)end;
4 :if(en('B'))then RR(4)else begin RR(4);
- writeln('There is a safety harness here.')end;
+ writeln(' \88À\91S\83x\83\8b\83g\82ª\8c©\82¦\82é\81B')end;
11:if(en('C'))then RS(15);
40:if(en('g'))then RS(17);
12:if not(en('G'))then begin RR(12);RL(146)end;
begin RmSh:=RmSh+[ShRm];RS(ShRm+46)end
else if(Prm<>59)then RR(Prm);
if KeyHole and here(63)then
- writeln('The shiny key is in the keyhole.')
+ writeln('\8bP\82\8c®\82Í\8c®\8c\8a\82É\82³\82³\82Á\82Ä\82¢\82é\81B')
end
else RR(Prm)
end; {of case}
if(o in Mov)then
if(r[o]=Prm)then
if not((Prm in[59..69])and(KeyHole)and(o=63))then
- begin writeln('There is a ',n[o,1],' here.');
+ begin writeln('',m[o,1],'\82ª\82 \82é\81B');
if(here(ropecon))and(o=ropecon)and not(ropecon in inven)then
- writeln(' The rope is attatched to the ',n[o,1],'.');
+ writeln(' \83\8d\81[\83v\82ª',m[o,1],'\82É\8c\8b\82Ñ\95t\82¯\82ç\82ê\82Ä\82¢\82é\81B');
if(en('d'))and(o=70)and(here(70))then RL(147);
if(o=SlotCon)and(here(o))then RL(388);
if(o in CabiSet)and(here(o))then RL(389);
window(1,3,80,25);
gotoxy(1,4);
if(Drive='A:')then
- writeln('Remove the GAME disk and insert your SAVE/RESTORE disk ',
- 'in drive A:')else
- writeln('Make sure your SAVE/RESTORE disk is in drive B:');
- writeln(' (Press any key to continue...)');flag:=readkey;
+ writeln('\83h\83\89\83C\83uA:\82©\82ç\83Q\81[\83\80\83f\83B\83X\83N\82ð\94²\82«\81A\95Û\91¶\83f\83B\83X\83N\82ð\91}\93ü\82µ\82Ä\82\82¾\82³\82¢\81B')else
+ 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
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');
for x:= 0 to NMax do write(Things,r[x]);
close(Things);
writeln; delete(input,1,2);
- writeln('Your present game location is now',
- ' SAVED to disk under the name ''',input,'.''');
+ writeln('\83Q\81[\83\80\82Ì\8fó\91Ô\82Í\83t\83@\83C\83\8b''',input,'''\82É\95Û\91¶\82³\82ê\82Ü\82µ\82½\81B');
if(Drive='A:')then begin writeln;
- writeln('Remove the SAVE/RESTORE disk and insert your GAME disk.')end;
- writeln(' (Press any key to continue...)');flag := readkey;
+ writeln('\95Û\91¶\83f\83B\83X\83N\82ð\94²\82«\81A\83Q\81[\83\80\83f\83B\83X\83N\82ð\91}\93ü\82µ\82Ä\82\82¾\82³\82¢\81B')end;
+ writeln(' (\89½\82©\83L\81[\82ð\89\9f\82·\82Æ\91±\82¯\82Ü\82·\81c)');flag := readkey;
writeln;writeln;
- if(Verb<>54)then writeln('You may now resume your game...');
+ if(Verb<>54)then writeln('\83Q\81[\83\80\82É\96ß\82è\82Ü\82·\81c');
if(Line='')then Line:='look';Tic:=Tic-2;Back:=True;
if(Prm in[59..68])then sound(20);
window(1,2,80,25)
begin SA; for x:=1 to 24 do writeln; nosound;
window(1,3,80,25);gotoxy(1,4);
if(Drive='A:')then
- writeln('Remove the GAME disk and insert your SAVE/RESTORE disk ',
- 'in drive ',Drive)else
- writeln('Make sure your SAVE/RESTORE disk is in drive B:');
- writeln(' (Press any key to continue...)');flag := readkey;
+ writeln('\83h\83\89\83C\83u',Drive,'\82©\82ç\83Q\81[\83\80\83f\83B\83X\83N\82ð\94²\82«\81A\95Û\91¶\83f\83B\83X\83N\82ð\91}\93ü\82µ\82Ä\82\82¾\82³\82¢\81B')else
+ 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('Which file name do you want to RESTORE? ');readln(input);
+ write('\95\9c\8bA\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 now in drive ',Drive,
- ' then press any key to start.');
+ writeln('\83h\83\89\83C\83u',Drive,'\82É\95Û\91¶\83f\83B\83X\83N\82ª\91}\93ü\82³\82ê\82Ä\82¢\82ê\82Î',
+ '\89½\82©\83L\81[\82ð\89\9f\82µ\82Ä\82\82¾\82³\82¢\81B');
flag := readkey;
if Exist then
begin
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');
for x:= 0 to NMax do read(Things,r[x]);
close(Things);
writeln; delete(input,1,2);
- writeln('Your previously SAVED game location is now',
- ' RESTORED from the file ''',input,'.''');
+ writeln('\83t\83@\83C\83\8b',input,'\82É\95Û\91¶\82³\82ê\82½\8fó\91Ô\82É\95\9c\8bA\82µ\82Ü\82µ\82½\81B');
if(Drive='A:')then begin writeln;
- writeln('Remove the SAVE/RESTORE disk and insert your GAME disk.')end;
- writeln(' (Press any key to continue...)');flag := readkey;
+ writeln('\95Û\91¶\83f\83B\83X\83N\82ð\94²\82¢\82Ä\83Q\81[\83\80\83f\83B\83X\83N\82ð\91}\93ü\82µ\82Ä\82\82¾\82³\82¢\81B')end;
+ writeln(' (\89½\82©\83L\81[\82ð\89\9f\82·\82Æ\91±\82¯\82Ü\82·\81c)');flag := readkey;
end
else
begin writeln;TextColor(28);
- writeln(' That name does not exist on this',
- ' SAVE/RESTORE disk.',^g);
+ writeln(' \82»\82Ì\96¼\91O\82Ì\83t\83@\83C\83\8b\82Í\95Û\91¶\83f\83B\83X\83N\82É\91¶\8dÝ\82µ\82Ü\82¹\82ñ\81B',^g);
TextColor(m2);writeln;
if(Drive='A:')then
- writeln('Put your GAME disk back in the disk drive and press any key.')
- else writeln(' (Press any key to continue...)');
+ writeln('\83Q\81[\83\80\83f\83B\83X\83N\82É\96ß\82µ\82Ä\89½\82©\83L\81[\82ð\89\9f\82µ\82Ä\82\82¾\82³\82¢\81B')
+ else writeln(' (\89½\82©\83L\81[\82ð\89\9f\82·\82Æ\91±\82¯\82Ü\82·\81c)');
flag := readkey;
end;
- writeln;writeln;writeln('You may now resume you game...');
+ writeln;writeln;writeln('\83Q\81[\83\80\82É\96ß\82è\82Ü\82·\81c');
if(Line='')then Line:='look';Tic:=Tic-2;Back:=True;
if(Prm in[59..68])then sound(20);
window(1,2,80,25)
if(o in inven)then
begin
r[o]:=Prm;
- inven:=inven-[o];writeln(n[o,1],': Dropped.');
+ inven:=inven-[o];writeln(m[o,1],': \92u\82¢\82½\81B');
end;
RL(106);
end; {of DropAll}
if(noun2<>Null)then
if(here(noun2))then Present:=true
else begin
- writeln('You can''t see any ',n[noun2,1],' here.');Present:=false end
+ writeln(m[noun2,1],'\82Í\8c©\93\96\82½\82ç\82È\82¢\81B');Present:=false end
else Present:=true
else begin
- writeln('You can''t see any ',n[noun,1],' here.');Present:=false end
+ writeln(m[noun,1],'\82Í\8c©\93\96\82½\82ç\82È\82¢\81B');Present:=false end
else Present:=true
end;
if(upcase(flag)='O')or(flag='1')then
begin Drive:='A:';writeln('1\82Â\82Å\82·\81B')end else
writeln('2\82Â\82Å\82·\81B');
- delay(999);clrscr;textcolor(15);gotoxy(1,5);writeln;textcolor(7);
- cn('Beyond the Titanic');textcolor(6);cn('------------------');writeln;
+ delay(999);clrscr;textcolor(15);gotoxy(1,4);writeln;textcolor(7);
+ cn('Beyond the Titanic');cn('\83^\83C\83^\83j\83b\83N\82ð\89z\82¦\82Ä');textcolor(6);cn('------------------');writeln;
textcolor(7);
cn('A Text & Sound Adventure Fantasy');writeln;writeln;
cn('An Apogee Software Production');writeln;writeln;writeln;
{ *** SHAREWARE SCREEN *** }
textcolor(15);
- writeln('Please note that Beyond the Titanic is a SHAREWARE game.');
- writeln;
- textcolor(7);
- writeln('This game has been placed in the public domain for your enjoyment.');
writeln;
- writeln('If you like the game the author (Scott Miller) asks that you please');
- writeln('contribute $5 or $10 (your discretion) to him. This minimal payment');
- writeln('will help compensent the author for the year of work that went into');
- writeln('Beyond the Titanic. It will also encourage the author to make new and');
- writeln('better games, like Supernova and Kingdom of Kroz, both of which are');
- writeln('also shareware games recently released.');
+ writeln('Beyond the Titanic\82Í\83V\83F\83A\83E\83F\83A\82Å\82·\81B');
writeln;
- writeln('This fee also registers the payer for telephone support and clues.');
+ textcolor(7);
+ writeln('\82±\82Ì\83Q\81[\83\80\82ÍGPL2\83I\81[\83v\83\93\83\\81[\83X\83\\83t\83g\83E\83F\83A\82É\82È\82è\82Ü\82µ\82½\81B');
writeln;writeln;
- writeln('Please make checks payable to Scott Miller.');
+ writeln('\82à\82µ\82±\82Ì\83Q\81[\83\80\82ð\8ay\82µ\82ñ\82¾\82È\82ç\82Î\81A\8dì\8eÒ(Scott Miller)\82É$5\82©$10\82ð\82¨\8ex\95¥\82¢\82\82¾\82³\82¢\81B');
+ writeln('\82±\82Ì\82í\82¸\82©\82È\97¿\8bà\82Í\8dì\8eÒ\82ÌBeyond the Titanic\82Ì\90§\8dì\82Ö\82Ì\91Î\89¿\82Æ\82È\82è\82Ü\82·\81B\82³\82ç\82É\8dÅ\8bß');
+ writeln('\94\95\\82³\82ê\82½\83V\83F\83A\83E\83F\83A\82ÌSupernova\82âKingdom of Kroz\82Ì\82æ\82¤\82È\90V\8dì\82É\82à\82Â\82È\82ª\82è\82Ü\82·\81B');
+ writeln;
+ writeln('\82Ü\82½\81A\82±\82Ì\97¿\8bà\82Í\93d\98b\83T\83|\81[\83g\8cW\82Ö\82Ì\92À\8bà\82É\82à\82È\82è\82Ü\82·\81B');
+ writeln;writeln;writeln;
+ writeln('\8ex\95¥\90æ\82ÍScott Miller\82Å\82¨\8aè\82¢\82µ\82Ü\82·\81B');
writeln;
textcolor(15);
writeln(' Scott Miller (214) 240-0614');
writeln(' Garland, TX 75043');
writeln;
textcolor(7);
- writeln('Thanks, enjoy the game...');
+ writeln('\82 \82è\82ª\82Æ\82¤\82²\82´\82¢\82Ü\82µ\82½\81B\83Q\81[\83\80\82ð\82¨\8ay\82µ\82Ý\82\82¾\82³\82¢\81c');
gotoxy(23,25);
delay(3000);
while keypressed do readkey;
OSDN Git Service
