Changeset 96 for trunk/UEngine.pas

Timestamp:

Sep 28, 2022, 1:54:11 AM (20 months ago)

Author:

chronos

Message:

• Added: Improvement selection dialog after new train dialog.

File:

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

trunk/UEngine.pas

@@ -148 +148 @@
   end;
 
-  TGameState = (gsNotStarted, gsRunning, gsPaused, gsGameOver, gsMenu, gsNewWeek);
+  TGameState = (gsNotStarted, gsRunning, gsPaused, gsGameOver, gsMenu, gsNewWeek,
+    gsNewImprovement);
+
+  TMetroImprovement = (miNone, miTunnel, miTerminal, miLine, miCarriage);
+  TMetroImprovementSet = set of TMetroImprovement;
 
   { TEngine }
@@ -188 +192 @@
     procedure DrawGameOver(Canvas: TCanvas; CanvasSize: TPoint);
     procedure DrawNewWeek(Canvas: TCanvas; CanvasSize: TPoint);
+    procedure DrawNewImprovement(Canvas: TCanvas; CanvasSize: TPoint);
     procedure DrawStationPassengerOverload(Canvas: TCanvas);
     procedure DrawLines(Canvas: TCanvas);
@@ -211 +216 @@
     procedure ButtonFastForward(Sender: TObject);
     procedure ButtonNewTrain(Sender: TObject);
+    procedure ButtonNewImprovement1(Sender: TObject);
+    procedure ButtonNewImprovement2(Sender: TObject);
     procedure ButtonBackClick(Sender: TObject);
     procedure DarkModeChanged(Sender: TObject);
@@ -217 +224 @@
     procedure UpdateInterface;
     procedure InitCities;
+    function GetImprovementText(Improvement: TMetroImprovement): string;
+    function GetImprovementBitmap(Improvement: TMetroImprovement): TBitmap;
+    procedure EvaluateImprovement(Improvement: TMetroImprovement);
   public
     Week: Integer;
@@ -243 +253 @@
     ImageFastForward: TImage;
     ImageCarriage: TImage;
+    ImageTerminal: TImage;
+    ImageTunnel: TImage;
+    ImageLine: TImage;
     ImageNewTrain: TImage;
+    ImageNewImprovement1: TImage;
+    ImageNewImprovement2: TImage;
+    AvailableImprovements: TMetroImprovementSet;
+    Improvement1: TMetroImprovement;
+    Improvement2: TMetroImprovement;
     HighestServedPassengerCount: Integer;
     HighestServedDaysCount: Integer;
@@ -324 +342 @@
   SStationWithoutMapStation = 'Station have to have MapStation';
   SNewTrain = 'You get a new train for your metro';
+  SNewImprovement = 'Select a new improvement for your metro';
   SWeek = 'week';
   STrain = 'Train';
@@ -339 +358 @@
   SContinue = 'Continue';
   SRestart = 'Try again';
+  STerminal = 'Terminal';
+  SLine = 'Line';
+  SCarriage = 'Carriage';
+  STunnel = 'Tunnel';
 
   // Cities
@@ -1686 +1709 @@
 
 procedure TEngine.ButtonNewTrain(Sender: TObject);
+var
+  Improvements: TList<TMetroImprovement>;
+  Improvement: TMetroImprovement;
+  Index: Integer;
 begin
   Trains.AddNew;
-  if Random < 0.2 then Carriages.AddNew;
+  State := gsNewImprovement;
+  if Lines.Count <= (High(LineColors) - Low(LineColors)) then
+    AvailableImprovements := AvailableImprovements + [miLine]
+    else AvailableImprovements := AvailableImprovements - [miLine];
+
+  Improvements := TList<TMetroImprovement>.Create;
+  try
+    for Improvement := Low(TMetroImprovement) to High(TMetroImprovement) do
+    if Improvement in AvailableImprovements then begin
+      Improvements.Add(Improvement);
+    end;
+
+    Index := Random(Integer(Improvements.Count));
+    Improvement1 := Improvements[Index];
+    Improvements.Delete(Index);
+
+    if Improvements.Count > 0 then begin
+      Index := Random(Integer(Improvements.Count));
+      Improvement2 := Improvements[Index];
+    end else Improvement2 := miNone;
+
+    if Improvement1 <> miNone then
+      ImageNewImprovement1.Bitmap.Assign(GetImprovementBitmap(Improvement1));
+    ImageNewImprovement1.Enabled := Improvement1 <> miNone;
+
+    if Improvement2 <> miNone then
+      ImageNewImprovement2.Bitmap.Assign(GetImprovementBitmap(Improvement2));
+    ImageNewImprovement2.Enabled := Improvement2 <> miNone;
+  finally
+    Improvements.Free;
+  end;
+  Redraw;
+end;
+
+procedure TEngine.ButtonNewImprovement1(Sender: TObject);
+begin
+  EvaluateImprovement(Improvement1);
+  State := gsRunning;
+  Redraw;
+end;
+
+procedure TEngine.ButtonNewImprovement2(Sender: TObject);
+begin
+  EvaluateImprovement(Improvement2);
   State := gsRunning;
   Redraw;
@@ -1750 +1820 @@
     AddNew(SParis);
     AddNew(STokyo);
+  end;
+end;
+
+function TEngine.GetImprovementText(Improvement: TMetroImprovement): string;
+begin
+  case Improvement of
+    miCarriage: Result := SCarriage;
+    miTerminal: Result := STerminal;
+    miTunnel: Result := STunnel;
+    miLine: Result := SLine;
+  end;
+end;
+
+function TEngine.GetImprovementBitmap(Improvement: TMetroImprovement): TBitmap;
+begin
+  case Improvement of
+    miCarriage: Result := ImageCarriage.Bitmap;
+    miTerminal: Result := ImageTerminal.Bitmap;
+    miTunnel: Result := ImageTunnel.Bitmap;
+    miLine: Result := ImageLine.Bitmap;
+  end;
+end;
+
+procedure TEngine.EvaluateImprovement(Improvement: TMetroImprovement);
+begin
+  case Improvement of
+    miLine: Lines.AddNew;
+    miCarriage: Carriages.AddNew;
+    //miTunnel: Tunnels.AddNew;
+    //miTerminal: Terminals.AddNew;
   end;
 end;
@@ -2087 +2187 @@
     TextSize := TextExtent(Text);
     TextOut((CanvasSize.X - TextSize.Width) div 2, Y, Text);
+  end;
+end;
+
+procedure TEngine.DrawNewImprovement(Canvas: TCanvas; CanvasSize: TPoint);
+var
+  Text: string;
+  TextSize: TSize;
+  Y: Integer;
+  X: Integer;
+const
+  ImageZoom = 4;
+begin
+  with Canvas do begin
+    Pen.Color := Self.Colors.Text;
+    Pen.Style := psSolid;
+    Pen.Width := ScaleX(2, 96);
+    Brush.Color := Self.Colors.Background2;
+    Brush.Style := bsSolid;
+    Rectangle(Bounds(CanvasSize.X div 4, CanvasSize.Y div 4, CanvasSize.X div 2, CanvasSize.Y div 2));
+    Pen.Style := psClear;
+    X := CanvasSize.X div 4 + ScaleX(10, 96);
+    Y := CanvasSize.Y div 4 + ScaleX(10, 96);
+
+    Text := IntToStr(Week) + '. ' + SWeek;
+    Font.Size := 30;
+    Font.Color := Self.Colors.Text;
+    TextSize := TextExtent(Text);
+    TextOut(X, Y, Text);
+    Y := Y + Round(1.1 * TextSize.Height);
+
+    Text := SNewImprovement;
+    Font.Size := 14;
+    Font.Color := Self.Colors.Text;
+    TextSize := TextExtent(Text);
+    TextOut(X, Y, Text);
+    Y := Y + Round(1.1 * TextSize.Height);
+
+    if Improvement1 <> miNone then begin
+      ImageNewImprovement1.Canvas := Canvas;
+      ImageNewImprovement1.Bounds := Bounds(CanvasSize.X div 2 - CanvasSize.X div 8 -
+        ImageNewImprovement1.Bitmap.Width * ImageZoom div 2,
+        (CanvasSize.Y - ImageNewImprovement1.Bitmap.Height * ImageZoom) div 2,
+        ImageNewImprovement1.Bitmap.Width * ImageZoom,
+        ImageNewImprovement1.Bitmap.Height * ImageZoom);
+      ImageNewImprovement1.Paint;
+    end;
+
+    if Improvement2 <> miNone then begin
+      ImageNewImprovement2.Canvas := Canvas;
+      ImageNewImprovement2.Bounds := Bounds(CanvasSize.X div 2 + CanvasSize.X div 8 -
+        ImageNewImprovement2.Bitmap.Width * ImageZoom div 2,
+        (CanvasSize.Y - ImageNewImprovement2.Bitmap.Height * ImageZoom) div 2,
+        ImageNewImprovement2.Bitmap.Width * ImageZoom,
+        ImageNewImprovement2.Bitmap.Height * ImageZoom);
+     ImageNewImprovement2.Paint;
+    end;
+
+    Y := (CanvasSize.Y - ImageLocomotive.Bitmap.Height * ImageZoom) div 2 +
+      Round(ImageLocomotive.Bitmap.Height * ImageZoom * 1.1);
+
+    if Improvement1 <> miNone then begin
+      Text := GetImprovementText(Improvement1);
+      Font.Size := 20;
+      Font.Color := Self.Colors.Text;
+      TextSize := TextExtent(Text);
+      TextOut(CanvasSize.X div 2 - CanvasSize.X div 8 - TextSize.Width div 2, Y, Text);
+    end;
+
+    if Improvement2 <> miNone then begin
+      Text := GetImprovementText(Improvement2);
+      Font.Size := 20;
+      Font.Color := Self.Colors.Text;
+      TextSize := TextExtent(Text);
+      TextOut(CanvasSize.X div 2 + CanvasSize.X div 8 - TextSize.Width div 2, Y, Text);
+    end;
   end;
 end;
@@ -2501 +2676 @@
     if State = gsNewWeek then begin
       ImageNewTrain.MouseUp(Position);
+    end else
+    if State = gsNewImprovement then begin
+      ImageNewImprovement1.MouseUp(Position);
+      ImageNewImprovement2.MouseUp(Position);
     end
     else
@@ -2713 +2892 @@
 procedure TEngine.Clear;
 begin
-  Week := 0;
+  Week := 1;
   Trains.Clear;
   Passengers.Clear;
@@ -2728 +2907 @@
 begin
   Clear;
+  AvailableImprovements := [miCarriage, miLine];
   ShapeCount := 3;
   ServedPassengerCount := 0;
@@ -2812 +2992 @@
   Trains := TMetroTrains.Create;
   Carriages := TMetroCarriages.Create;
+  ImageTunnel := TImage.Create;
+  ImageLine := TImage.Create;
+  ImageTerminal := TImage.Create;
   ImagePassenger := TImage.Create;
   ImageLocomotive := TImage.Create;
@@ -2823 +3006 @@
   ImageNewTrain := TImage.Create;
   ImageNewTrain.OnClick := ButtonNewTrain;
+  ImageNewImprovement1 := TImage.Create;
+  ImageNewImprovement1.OnClick := ButtonNewImprovement1;
+  ImageNewImprovement2 := TImage.Create;
+  ImageNewImprovement2.OnClick := ButtonNewImprovement2;
   //if FileExists(ImagePassengerName) then
   //  ImagePassenger.Picture.LoadFromFile(ImagePassengerName);
@@ -2839 +3026 @@
   FreeAndNil(Trains);
   FreeAndNil(Carriages);
+  FreeAndNil(ImageTunnel);
+  FreeAndNil(ImageTerminal);
+  FreeAndNil(ImageLine);
+  FreeAndNil(ImageNewImprovement1);
+  FreeAndNil(ImageNewImprovement2);
   FreeAndNil(ImageNewTrain);
   FreeAndNil(ImagePlay);
@@ -2890 +3082 @@
     DrawNewWeek(Canvas, CanvasSize);
   end else
+  if State = gsNewImprovement then begin
+    DrawNewImprovement(Canvas, CanvasSize);
+  end else
   if State in [gsRunning, gsPaused] then begin
     DrawGameControls(Canvas, CanvasSize);