Версия 0.1

devapromix · Jun 11, 2022 · 73e5d85 · 73e5d85
1 parent 0a3691c
commit 73e5d85
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/Sources/Game/TransportTycoon.City.pas b/Sources/Game/TransportTycoon.City.pas
@@ -48,7 +48,7 @@ implementation
 function TCity.AirportCost: Integer;
 begin
   if (FAirport < 5) then
-    Result := (FAirport + 1) * 1000
+    Result := (FAirport + 1) * 8000
   else
     Result := 0;
 end;

diff --git a/Sources/Game/TransportTycoon.Game.pas b/Sources/Game/TransportTycoon.Game.pas
@@ -26,6 +26,7 @@   TGame = class(TObject)
   public const
     MaxLoan = 200000;
     StartMoney = MaxLoan div 2;
+    Version = '0.1';
   public
     IsClearLand: Boolean;
     IsPause: Boolean;

diff --git a/Sources/Scenes/TransportTycoon.Scene.BuildInCity.pas b/Sources/Scenes/TransportTycoon.Scene.BuildInCity.pas
@@ -23,8 +23,6 @@ implementation
   TransportTycoon.Game,
   TransportTycoon.City;
 
-{ TSceneBuildInCity }
-
 procedure TSceneBuildInCity.Render;
 var
   C: TCity;
@@ -34,7 +32,7 @@ procedure TSceneBuildInCity.Render;
 begin
   DrawMap(Self.Width, Self.Height - 1);
 
-  DrawFrame(10, 7, 60, 15);
+  DrawFrame(15, 7, 50, 15);
 
   C := Game.Map.City[Game.Map.CurrentCity];
   DrawTitle('BUILD IN ' + C.Name);
@@ -44,7 +42,7 @@ procedure TSceneBuildInCity.Render;
   S := '';
   if C.Airport < 5 then
     S := ' ($' + IntToStr(C.AirportCost) + ')';
-  DrawButton(12, 11, F, 'A', 'Build ' + AirportSizeStr[N] + S);
+  DrawButton(17, 11, F, 'A', 'Build ' + AirportSizeStr[N] + S);
 
   AddButton(19, 'Esc', 'Close');
 
@@ -62,7 +60,7 @@ procedure TSceneBuildInCity.Update(var Key: Word);
         19:
           Key := TK_ESCAPE;
       end;
-    if (MX >= 12) and (MX <= 67) then
+    if (MX >= 17) and (MX <= 62) then
       case MY of
         11:
           Key := TK_A;

diff --git a/Sources/TransportTycoon.dpr b/Sources/TransportTycoon.dpr
@@ -35,7 +35,8 @@ var
 begin
   Randomize;
   terminal_open();
-  terminal_set('window: size=80x30, title="Transport Tycoon";');
+  terminal_set('window: size=80x30, title="Transport Tycoon v.'
+    + Game.Version + '";');
   terminal_set('input: filter={keyboard, mouse+}');
   Scenes := TScenes.Create;
   Scenes.SetScene(scMainMenu);