From: maruhiro <maruhiro@bridge.ocn.ne.jp>
Date: Sat, 9 May 2020 10:24:51 +0000 (+0900)
Subject: 修正
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;ds=sidebyside;h=bf4c4dee7559bd7feb33c536519e4f8d3cdd694c;p=beyond-jp%2Fbeyond-jp.git

修正
---

diff --git a/README.md b/README.md
index a2c14a5..13a9927 100644
--- a/README.md
+++ b/README.md
@@ -34,3 +34,11 @@ Beyond the Titanicは80x25ターミナルコンソールが最も適していま
 
 
 著者: Samuel Brian
+
+
+## 日本語版の注意点
+
+* Linuxでプレーする場合は, 端末エミュレータの文字コードをShiftJISに設定してく
+  ださい。
+* Windowsでビルドする場合は, crt.pas.win32のファイル名をcrt.pasに名前を変えて
+  からMake-Win32.batまたはMake-Win64.batを実行してください。
diff --git a/TRANS.PAS b/TRANS.PAS
index 4630537..537eb16 100644
--- a/TRANS.PAS
+++ b/TRANS.PAS
@@ -204,6 +204,7 @@ begin
 end;
 
 { Convert full width numbers/alphabets to half width }
+const hchrs : Str80 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
 procedure FullToHalf;
 var i, c : integer;
 begin
@@ -220,7 +221,7 @@ begin
       else
       begin
         Delete(Line, i, 2);
-        Insert('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'[Trunc(c / 2) + 1], Line, i);
+        Insert(hchrs[Trunc(c / 2) + 1], Line, i);
         i := i + 1;
       end;
     end;
diff --git a/WORDLIST.PAS b/WORDLIST.PAS
index ca2dc07..8b98af9 100644
--- a/WORDLIST.PAS
+++ b/WORDLIST.PAS
@@ -35,7 +35,7 @@ procedure Assign1;
 begin
 for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q;
 v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up';
-d[0,1]:='‚ðUŒ‚';d[0,2]:='‚ðŽE';d[0,3]:='‚ð“|';
+d[0,1]:='UŒ‚';d[0,2]:='ŽE';d[0,3]:='“|';
 prep[0]:='with';
 v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';
 d[1,1]:='‹Lq';
diff --git a/crt.pas b/crt.pas.win32
similarity index 99%
rename from crt.pas
rename to crt.pas.win32
index 40e8b69..8df1476 100644
--- a/crt.pas
+++ b/crt.pas.win32
@@ -1,5 +1,3 @@
-{$ifdef WIN32}
-
 unit crt;
 
 interface
@@ -387,10 +385,8 @@ finalization
 	TextColor(7);
 end.
 
-{$endif}
-
 {
-	Copyright 2019 maruhiro
+	Copyright 2020 maruhiro
 	All rights reserved. 
 
 	Redistribution and use in source and binary forms,