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('Inside Shuttle');
+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[');
+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º');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')
+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';
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('',n[o,1],'\82ª\82 \82é\81B');
+ begin writeln('',m[o,1],'\82ª\82 \82é\81B');
if(here(ropecon))and(o=ropecon)and not(ropecon in inven)then
- writeln(' \83\8d\81[\83v\82ª',n[o,1],'\82É\8c\8b\82Ñ\95t\82¯\82ç\82ê\82Ä\82¢\82é\81B');
+ 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);
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 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');
if(o in inven)then
begin
r[o]:=Prm;
- inven:=inven-[o];writeln(n[o,1],': \92u\82¢\82½\81B');
+ 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(n[noun2,1],'\82Í\8c©\93\96\82½\82ç\82È\82¢\81B');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(n[noun,1],'\82Í\8c©\93\96\82½\82ç\82È\82¢\81B');Present:=false end
+ writeln(m[noun,1],'\82Í\8c©\93\96\82½\82ç\82È\82¢\81B');Present:=false end
else Present:=true
end;
{ *** 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
