Changeset 61 for trunk/UEngine.pas

Timestamp:

Nov 25, 2020, 12:23:23 PM (3 years ago)

Author:

chronos

Message:

• Added: Activated multi-language support in the project file.

File:

• trunk/UEngine.pas (modified) (5 diffs)

trunk/UEngine.pas

@@ -361 +361 @@
 resourcestring
   SZeroZoomNotAlowed = 'Zero zoom not allowed';
+  SAlreadyConnectedTrackPoint = 'Trying to connect already connected track point';
+  SAlreadyDisconnectedTrackPoint = 'Trying to disconnect not connected track point';
+  SGameOver = 'Game Over';
+  SGameOverReason = 'Overcrowding at this station has forced you to resign as metro manager.';
+  SGameOverStatistic = '%d passengers travelled on your metro over %d days.';
 
 { TTrackLinks }
@@ -567 +572 @@
     TrackPoint.NeighLinks.Add(NewLink);
     Track.Links.Add(NewLink);
-  end else raise Exception.Create('Trying to connect already connected track point');
+  end else raise Exception.Create(SAlreadyConnectedTrackPoint);
 end;
 
@@ -585 +590 @@
     TrackPoint.NeighLinks.Remove(Link);
     Track.Links.Remove(Link);
-  end else raise Exception.Create('Trying to disconnect not connected track point');
+  end else raise Exception.Create(SAlreadyDisconnectedTrackPoint);
 end;
 
@@ -2256 +2261 @@
   MapStation: TMapStation;
   Passenger: TMetroPassenger;
-const
-  GameOverText = 'Game Over';
-  GameOverReason = 'Overcrowding at this station has forced you to resign as metro manager.';
-  GameOverStatistic = '%d passengers travelled on your metro over %d days.';
 begin
   Canvas := MetaCanvas;
@@ -2477 +2478 @@
     TargetCanvas.Font.Size := 40;
     TargetCanvas.Font.Color := clBlack;
-    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(GameOverText)) div 2, 100, GameOverText);
+    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(SGameOver)) div 2, 100, SGameOver);
     TargetCanvas.Font.Size := 14;
-    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(GameOverReason)) div 2, 160, GameOverReason);
-    Text := Format(GameOverStatistic, [ServedPassengerCount, Trunc(Time)]);
+    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(SGameOverReason)) div 2, 160, SGameOverReason);
+    Text := Format(SGameOverStatistic, [ServedPassengerCount, Trunc(Time)]);
     TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(Text)) div 2, 180, Text);
   end;