Changeset 95 for trunk/UEngine.pas

Timestamp:

Sep 28, 2022, 12:23:17 AM (20 months ago)

Author:

chronos

Message:

• Added: Show dialog about new train every start of new week.

File:

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

trunk/UEngine.pas

@@ -7 +7 @@
 uses
   {$IFDEF DARWIN}MacOSAll, CocoaAll, CocoaUtils,{$ENDIF}
-  Classes, SysUtils, Graphics, Controls, ExtCtrls, Math, DateUtils, URegistry,
-  UMetaCanvas, Generics.Collections, Generics.Defaults, UMenu, UControls,
-  UMetroPassenger, UColors, UView, URiver, UTrack, UCity, UGeometric;
+  Classes, SysUtils, Graphics, Controls, ExtCtrls, Math, DateUtils, Types,
+  URegistry, UMetaCanvas, Generics.Collections, Generics.Defaults, UMenu,
+  UControls, UMetroPassenger, UColors, UView, URiver, UTrack, UCity, UGeometric;
 
 type
@@ -148 +148 @@
   end;
 
-  TGameState = (gsNotStarted, gsRunning, gsPaused, gsGameOver, gsMenu);
+  TGameState = (gsNotStarted, gsRunning, gsPaused, gsGameOver, gsMenu, gsNewWeek);
 
   { TEngine }
@@ -187 +187 @@
     procedure DrawTrains(Canvas: TCanvas);
     procedure DrawGameOver(Canvas: TCanvas; CanvasSize: TPoint);
-    procedure DrawNewTrain(Canvas: TCanvas; CanvasSize: TPoint);
+    procedure DrawNewWeek(Canvas: TCanvas; CanvasSize: TPoint);
     procedure DrawStationPassengerOverload(Canvas: TCanvas);
     procedure DrawLines(Canvas: TCanvas);
@@ -210 +210 @@
     procedure ButtonPause(Sender: TObject);
     procedure ButtonFastForward(Sender: TObject);
+    procedure ButtonNewTrain(Sender: TObject);
     procedure ButtonBackClick(Sender: TObject);
     procedure DarkModeChanged(Sender: TObject);
@@ -217 +218 @@
     procedure InitCities;
   public
+    Week: Integer;
     Colors: TColors;
     Passengers: TMetroPassengers;
@@ -241 +243 @@
     ImageFastForward: TImage;
     ImageCarriage: TImage;
+    ImageNewTrain: TImage;
     HighestServedPassengerCount: Integer;
     HighestServedDaysCount: Integer;
@@ -320 +323 @@
   SNoOldStationToConnectNew = 'No old line station to connect new station';
   SStationWithoutMapStation = 'Station have to have MapStation';
+  SNewTrain = 'You get a new train for your metro';
+  SWeek = 'week';
+  STrain = 'Train';
+  SPlay = 'Play';
+  SOptions = 'Options';
+  SExit = 'Exit';
+  SBigMetro = 'Big Metro';
+  SDarkMode = 'Dark mode';
+  SLanguage = 'Language';
+  SCzech = 'Czech';
+  SEnglish = 'English';
+  SBack = 'Back';
+  SAutomatic = 'Automatic';
+  SFullScreen = 'Full screen';
+  SContinue = 'Continue';
+  SRestart = 'Try again';
 
   // Cities
@@ -1666 +1685 @@
 end;
 
+procedure TEngine.ButtonNewTrain(Sender: TObject);
+begin
+  Trains.AddNew;
+  if Random < 0.2 then Carriages.AddNew;
+  State := gsRunning;
+  Redraw;
+end;
+
 procedure TEngine.MenuItemGameContinue(Sender: TObject);
 begin
@@ -1832 +1859 @@
   I: Integer;
   Y: Integer;
+  IsDay: Boolean;
 const
   ClockSize = 20;
 begin
-  if (Time / OneHour > 6) and (Time / OneHour < 18) then begin
+  IsDay := (((Time / OneHour) mod 24) > 6) and (((Time / OneHour) mod 24) < 18);
+  if IsDay then begin
     Canvas.Brush.Style := bsSolid;
     Canvas.Brush.Color := Colors.Background;
@@ -1850 +1879 @@
   Canvas.Brush.Style := bsClear;
 
-  if (Time / OneHour > 6) and (Time / OneHour < 18) then begin
+  if IsDay then begin
     Canvas.Pen.Color := Colors.Text;
   end else begin
@@ -1899 +1928 @@
 procedure TEngine.DrawTrains(Canvas: TCanvas);
 var
-  I: Integer;
   P: Integer;
   Pos: TPoint;
@@ -1978 +2006 @@
     Brush.Color := Self.Colors.Background;
 
-    Y := 100;
+    Y := ScaleY(100, 96);
     Font.Size := 40;
     TextOut((CanvasSize.X - TextWidth(SGameOver)) div 2, Y, SGameOver);
@@ -1991 +2019 @@
     Y := Y + Round(TextHeight(SGameOverStatistic) * 1.1);
 
-    Y := Y + 16;
+    Y := Y + ScaleY(16, 96);
 
     // Calculate new highest score
@@ -2010 +2038 @@
 end;
 
-procedure TEngine.DrawNewTrain(Canvas: TCanvas; CanvasSize: TPoint);
-begin
-
+procedure TEngine.DrawNewWeek(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 := SNewTrain;
+    Font.Size := 14;
+    Font.Color := Self.Colors.Text;
+    TextSize := TextExtent(Text);
+    TextOut(X, Y, Text);
+    Y := Y + Round(1.1 * TextSize.Height);
+
+    ImageNewTrain.Canvas := Canvas;
+    ImageNewTrain.Bounds := Bounds((CanvasSize.X - ImageLocomotive.Bitmap.Width * ImageZoom) div 2,
+      (CanvasSize.Y - ImageLocomotive.Bitmap.Height * ImageZoom) div 2,
+      ImageLocomotive.Bitmap.Width * ImageZoom,
+      ImageLocomotive.Bitmap.Height * ImageZoom);
+    ImageNewTrain.Paint;
+
+    Y := (CanvasSize.Y - ImageLocomotive.Bitmap.Height * ImageZoom) div 2 +
+      Round(ImageLocomotive.Bitmap.Height * ImageZoom * 1.1);
+
+    Text := STrain;
+    Font.Size := 20;
+    Font.Color := Self.Colors.Text;
+    TextSize := TextExtent(Text);
+    TextOut((CanvasSize.X - TextSize.Width) div 2, Y, Text);
+  end;
 end;
 
@@ -2280 +2355 @@
     Redraw; // Redraw on every tick because engine time is changed so clock should be redrawn
 
-  // Add new trains
-  if (Time - LastNewWeekTime) > NewTrainPeriod then begin
-    LastNewWeekTime := Time;
-    Trains.AddNew;
-    if Random < 0.2 then Carriages.AddNew;
-    // TODO: Show notification screen with confirmation
-    Redraw;
-  end;
-
-  // Add new shape
-  if (Time - LastNewShapeTime) > NewShapePeriod then begin
-    LastNewShapeTime := Time;
-    if ShapeCount <= Integer(High(TStationShape)) then Inc(ShapeCount);
-    Redraw;
-  end;
-
-  // Add new stations
-  if (Time - LastNewStationTime) > NewStationPeriod then begin
-    LastNewStationTime := Time;
-    Stations.AddNew;
-    ResizeView;
-    Redraw;
-  end;
-
-  // Add new passengers
-  if (Time - LastNewPassengerTime) > NewPassengerPeriod then begin
-    LastNewPassengerTime := Time;
+    // Add new trains
+    if (Time - LastNewWeekTime) > NewTrainPeriod then begin
+      LastNewWeekTime := Time;
+      Inc(Week);
+      State := gsNewWeek;
+      Redraw;
+    end;
+
+    // Add new shape
+    if (Time - LastNewShapeTime) > NewShapePeriod then begin
+      LastNewShapeTime := Time;
+      if ShapeCount <= Integer(High(TStationShape)) then Inc(ShapeCount);
+      Redraw;
+    end;
+
+    // Add new stations
+    if (Time - LastNewStationTime) > NewStationPeriod then begin
+      LastNewStationTime := Time;
+      Stations.AddNew;
+      ResizeView;
+      Redraw;
+    end;
+
+    // Add new passengers
+    if (Time - LastNewPassengerTime) > NewPassengerPeriod then begin
+      LastNewPassengerTime := Time;
+      for MapStation in Stations do
+      with MapStation do
+      if Random < NewPassengerProbability then begin
+        Passenger := Self.Passengers.AddNew;
+        Passenger.Shape := TStationShape(Random(Integer(ShapeCount)));
+        Passengers.Add(Passenger);
+
+        // Passenger is not allowed to have same shape
+        while (Passenger.Shape = Shape) or
+        not (Passenger.Shape in GetExistStationShapes) do
+          Passenger.Shape := TStationShape((Integer(Passenger.Shape) + 1) mod Integer(ShapeCount));
+        Redraw;
+      end;
+    end;
+
+    // Check station passenger overload state
     for MapStation in Stations do
-    with MapStation do
-    if Random < NewPassengerProbability then begin
-      Passenger := Self.Passengers.AddNew;
-      Passenger.Shape := TStationShape(Random(Integer(ShapeCount)));
-      Passengers.Add(Passenger);
-
-      // Passenger is not allowed to have same shape
-      while (Passenger.Shape = Shape) or
-      not (Passenger.Shape in GetExistStationShapes) do
-        Passenger.Shape := TStationShape((Integer(Passenger.Shape) + 1) mod Integer(ShapeCount));
-      Redraw;
-    end;
-  end;
-
-  // Check station passenger overload state
-  for MapStation in Stations do
-  with MapStation do begin
-    if Passengers.Count > MaxWaitingPassengers then begin
-      OverloadDuration := OverloadDuration + (FTime - FLastTime);
-      if OverloadDuration > MaxPassengersOveloadTime then
-        OverloadDuration := MaxPassengersOveloadTime;
-      if OverloadDuration < MaxPassengersOveloadTime then Redraw;
-    end;
-    if Passengers.Count <= MaxWaitingPassengers then begin
-      if OverloadDuration > 0 then Redraw;
-      OverloadDuration := OverloadDuration - (FTime - FLastTime);
-      if OverloadDuration < 0 then begin
-        OverloadDuration := 0;
-      end;
-    end;
-  end;
-
-  TrainMovement;
-
-  // Game over
-  for MapStation in Stations do
-  with MapStation do begin
-    if OverloadDuration >= MaxPassengersOveloadTime then begin
-      State := gsGameOver;
-      Redraw;
-    end;
-  end;
-
+    with MapStation do begin
+      if Passengers.Count > MaxWaitingPassengers then begin
+        OverloadDuration := OverloadDuration + (FTime - FLastTime);
+        if OverloadDuration > MaxPassengersOveloadTime then
+          OverloadDuration := MaxPassengersOveloadTime;
+        if OverloadDuration < MaxPassengersOveloadTime then Redraw;
+      end;
+      if Passengers.Count <= MaxWaitingPassengers then begin
+        if OverloadDuration > 0 then Redraw;
+        OverloadDuration := OverloadDuration - (FTime - FLastTime);
+        if OverloadDuration < 0 then begin
+          OverloadDuration := 0;
+        end;
+      end;
+    end;
+
+    TrainMovement;
+
+    // Game over
+    for MapStation in Stations do
+    with MapStation do begin
+      if OverloadDuration >= MaxPassengersOveloadTime then begin
+        State := gsGameOver;
+        Redraw;
+      end;
+    end;
   end;
   LastTickTime := Now;
@@ -2425 +2498 @@
       Menu.MouseUp(Button, Position);
       Redraw;
-    end else begin
-      // Back button
-      if ButtonBack.Bounds.Contains(Position) then begin
-        if Assigned(ButtonBack.OnClick) then
-          ButtonBack.OnClick(ButtonBack);
-      end;
-
-      // Pause button
-      if ImagePause.Bounds.Contains(Position) then begin
-        if Assigned(ImagePause.OnClick) then
-          ImagePause.OnClick(ImagePause);
-      end;
-
-      // Play button
-      if ImagePlay.Bounds.Contains(Position) then begin
-        if Assigned(ImagePlay.OnClick) then
-          ImagePlay.OnClick(ImagePlay);
-      end;
-
-      // Fast forward button
-      if ImageFastForward.Bounds.Contains(Position) then begin
-        if Assigned(ImageFastForward.OnClick) then
-          ImageFastForward.OnClick(ImageFastForward);
-      end;
+    end else
+    if State = gsNewWeek then begin
+      ImageNewTrain.MouseUp(Position);
+    end
+    else
+    if State = gsRunning then begin
+      ButtonBack.MouseUp(Position);
+      ImagePause.MouseUp(Position);
+      ImagePlay.MouseUp(Position);
+      ImageFastForward.MouseUp(Position);
 
       // Place selected train if focused track
@@ -2608 +2667 @@
   KeyF3 = 114;
   KeyF4 = 115;
+  KeyF5 = 116;
 begin
   if Key = KeyEsc then begin
@@ -2635 +2695 @@
       Redraw;
     end;
+  end else
+  if Key = KeyF5 then begin
+    if State = gsRunning then begin
+      State := gsNewWeek;
+      Redraw;
+    end;
   end;
   {$ENDIF}
@@ -2647 +2713 @@
 procedure TEngine.Clear;
 begin
+  Week := 0;
   Trains.Clear;
   Passengers.Clear;
@@ -2673 +2740 @@
   end;
 
-  for I := 0 to 8 do begin
+  for I := 0 to 2 do begin
     Lines.AddNew;
     NewTrain := TMetroTrain.Create;
@@ -2754 +2821 @@
   ImageFastForward := TImage.Create;
   ImageFastForward.OnClick := ButtonFastForward;
+  ImageNewTrain := TImage.Create;
+  ImageNewTrain.OnClick := ButtonNewTrain;
   //if FileExists(ImagePassengerName) then
   //  ImagePassenger.Picture.LoadFromFile(ImagePassengerName);
@@ -2770 +2839 @@
   FreeAndNil(Trains);
   FreeAndNil(Carriages);
+  FreeAndNil(ImageNewTrain);
   FreeAndNil(ImagePlay);
   FreeAndNil(ImageFastForward);
@@ -2809 +2879 @@
   MetaCanvas.DrawTo(Canvas);
 
-  if State <> gsMenu then begin
-    DrawGameControls(Canvas, CanvasSize);
-  end;
-
   // Game over
   if State = gsGameOver then
@@ -2820 +2886 @@
   if State = gsMenu then begin
     Menu.Paint(Canvas, CanvasSize);
+  end else
+  if State = gsNewWeek then begin
+    DrawNewWeek(Canvas, CanvasSize);
+  end else
+  if State in [gsRunning, gsPaused] then begin
+    DrawGameControls(Canvas, CanvasSize);
   end;