英語の入力ができない問題の修正

[beyond-jp/beyond-jp.git] / COMMANDS.PAS

diff --git a/COMMANDS.PAS b/COMMANDS.PAS
index 47bde4b..15bc943 100644 (file)
--- a/COMMANDS.PAS
+++ b/COMMANDS.PAS
@@ -171,7 +171,7 @@ if((en('a'))and(here(29)))or not(Prm in [6..24])then begin
 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');
+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');
@@ -215,9 +215,9 @@ if((en('a'))and(here(29)))or not(Prm in [6..24])then begin
        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);
@@ -400,7 +400,7 @@ procedure DropAll;
        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}
@@ -507,10 +507,10 @@ function Present : Boolean;
       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;
 
@@ -552,21 +552,19 @@ procedure Initialize;
    {                      *** 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');
@@ -574,7 +572,7 @@ procedure Initialize;
    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;