Changeset 62 for trunk/UEngine.pas

Timestamp:

Nov 25, 2020, 4:25:09 PM (3 years ago)

Author:

chronos

Message:

• Added: Main game menu.

File:

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

trunk/UEngine.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Graphics, Controls, ExtCtrls, Math, DateUtils,
-  UMetaCanvas, fgl;
+  UMetaCanvas, fgl, UMenu;
 
 type
@@ -259 +259 @@
   end;
 
-  TGameState = (gsNotStarted, gsRunning, gsPaused, gsGameOver);
+  TGameState = (gsNotStarted, gsRunning, gsPaused, gsGameOver, gsMenu);
 
   { TEngine }
@@ -276 +276 @@
     FLastTime: TDateTime;
     MetaCanvas: TMetaCanvas;
+    Menu: TMenu;
+    MenuMain: TMenu;
+    MenuOptions: TMenu;
     procedure ResizeView;
     function GetExistStationShapes: TStationShapeSet;
@@ -292 +295 @@
     function GetUnusedLine: TMetroLine;
     procedure ShiftTrackPoints;
+    procedure MenuItemExit(Sender: TObject);
+    procedure MenuItemPlay(Sender: TObject);
+    procedure MenuItemOptions(Sender: TObject);
+    procedure MenuItemBack(Sender: TObject);
+    procedure DarkModeChanged(Sender: TObject);
+    procedure LanguageChanged(Sender: TObject);
+    procedure InitMenus;
   public
     Passengers: TMetroPassengers;
@@ -312 +322 @@
     procedure MouseUp(Button: TMouseButton; Position: TPoint);
     procedure MouseDown(Button: TMouseButton; Position: TPoint);
-    procedure Reset;
+    procedure MainMenu;
+    procedure NewGame;
     procedure Redraw;
     constructor Create;
@@ -345 +356 @@
   EndStationLength = 50;
   ShowDistances = False;
-  //TimePerSecond = (60 * OneMinute);
-  TimePerSecond = (60 * OneMinute);
+  TimePerSecond = 60 * OneMinute;
   NewStationPeriod = 1;
   NewShapePeriod = 10;
@@ -354 +364 @@
   VisiblePassengersPerLine = 6;
 
+
 implementation
 
 uses
-  UGeometric;
+  UGeometric, UFormMain, ULanguages;
 
 resourcestring
@@ -375 +386 @@
   I := 0;
   while (I < 0) and
-  ((Items[I].Points.First <> Point1) or (Items[I].Points.Last <> Point2))
-  and ((Items[I].Points.First <> Point2) or (Items[I].Points.Last <> Point1)) do
+    ((Items[I].Points.First <> Point1) or (Items[I].Points.Last <> Point2)) and
+    ((Items[I].Points.First <> Point2) or (Items[I].Points.Last <> Point1)) do
   Inc(I);
   if I < 0 then Result := Items[I]
@@ -1536 +1547 @@
   Station: TMapStation;
 begin
-  // Reset all distances
+  // NewGame all distances
   for Station in Stations do
   with Station do begin
@@ -1578 +1589 @@
         end else begin
           // If circular then trains might go in single direction so passengers
-          // waiting for oposite directions are wrong
+          // waiting for opposite directions are wrong
           DirectionUp := False;
           DirectionDown := False;
@@ -1781 +1792 @@
   MapStation: TMapStation;
 begin
-  // Reset all trackpoints position shift
+  // NewGame all trackpoints position shift
   for MetroLine in Lines do
     for TrackPoint in MetroLine.Track.Points do
@@ -1839 +1850 @@
 end;
 
+procedure TEngine.MenuItemExit(Sender: TObject);
+begin
+  FormMain.Close;
+end;
+
+procedure TEngine.MenuItemPlay(Sender: TObject);
+begin
+  NewGame;
+end;
+
+procedure TEngine.MenuItemOptions(Sender: TObject);
+begin
+  Menu := MenuOptions;
+  Redraw;
+end;
+
+procedure TEngine.MenuItemBack(Sender: TObject);
+begin
+  if Assigned(Menu.Parent) then begin
+    Menu := Menu.Parent;
+    Redraw;
+  end;
+end;
+
+procedure TEngine.DarkModeChanged(Sender: TObject);
+begin
+
+end;
+
+procedure TEngine.LanguageChanged(Sender: TObject);
+var
+  NewLanguage: TLanguage;
+begin
+  NewLanguage := TLanguage(TMenuItemComboBox(MenuOptions.Items[0]).States.Objects[TMenuItemComboBox(MenuOptions.Items[0]).Index]);
+  if FormMain.Translator1.Language <> NewLanguage then begin
+    FormMain.Translator1.Language := NewLanguage;
+    FormMain.Translator1.Translate;
+    InitMenus;
+  end;
+end;
+
+procedure TEngine.InitMenus;
+begin
+  with MenuMain.Items do begin
+    Clear;
+    AddButton(SPlay, MenuItemPlay);
+    AddButton(SOptions, MenuItemOptions);
+    AddButton(SExit, MenuItemExit);
+  end;
+  MenuOptions.Parent := MenuMain;
+  with MenuOptions.Items do begin
+    Clear;
+    with AddComboBox(SLanguage, [], LanguageChanged) do begin
+      FormMain.Translator1.LanguageListToStrings(States);
+      Index := States.IndexOfObject(FormMain.Translator1.Language);
+      if Index = -1 then Index := 0;
+    end;
+    AddCheckBox(SDarkMode, DarkModeChanged);
+    AddButton(SBack, MenuItemBack);
+  end;
+end;
+
 procedure TEngine.DrawClock(Canvas: TCanvas);
 var
@@ -1878 +1951 @@
   Passenger: TMetroPassenger;
 begin
-  // Draw trains
   for Train in Trains do
   with Train do begin
@@ -1999 +2071 @@
   LineStationUp: TLineStation;
   CurrentTrackPoint: TTrackPoint;
-begin
+  I: Integer;
+begin
+  if State = gsMenu then begin
+    Menu.MouseMove(Position);
+    Redraw;
+  end;
+
   LastMousePos := Position;
   if MouseHold then begin
@@ -2052 +2130 @@
 begin
   if Button = mbLeft then begin
-    // Place selected train if focused track
-    if Assigned(SelectedTrain) then begin
-      SelectedTrain.TargetStation := nil;
-      SelectedTrain.BaseTrackPoint := nil;
-      if Assigned(SelectedTrain.Line) then begin
-        SelectedTrain.Line.Trains.Remove(SelectedTrain);
-        SelectedTrain.Line := nil;
-      end;
-      FocusedTrack := GetTrackOnPos(View.PointDestToSrc(Position));
-      if Assigned(FocusedTrack.Points[0]) then begin
-        SelectedTrain.Line := FocusedTrack.Points[0].Track.Line;
-        SelectedTrain.Line.Trains.Add(SelectedTrain);
-        SelectedTrain.BaseTrackPoint := FocusedTrack.Points[0];
-      end else
-      if Assigned(FocusedTrack.Points[1]) then begin
-        SelectedTrain.Line := FocusedTrack.Points[1].Track.Line;
-        SelectedTrain.Line.Trains.Add(SelectedTrain);
-        SelectedTrain.BaseTrackPoint := FocusedTrack.Points[1];
-      end;
-      FocusedTrack.Free;
-    end;
-
-    // Line color selection
-    for I := 0 to Lines.Count - 1 do
-      if Distance(Point(View.DestRect.Right div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
-        View.DestRect.Bottom - LineColorsDist), Position) < 20 then begin
-          SelectedLine := Lines[I];
-          Exit;
+    if State = gsMenu then begin
+      Menu.MouseUp(Button, Position);
+      Redraw;
+    end else begin
+        // Place selected train if focused track
+      if Assigned(SelectedTrain) then begin
+        SelectedTrain.TargetStation := nil;
+        SelectedTrain.BaseTrackPoint := nil;
+        if Assigned(SelectedTrain.Line) then begin
+          SelectedTrain.Line.Trains.Remove(SelectedTrain);
+          SelectedTrain.Line := nil;
         end;
-
-    // Remove single line station on line
-    if Assigned(TrackStationDown) and (TrackStationDown.Track.Line.LineStations.Count = 1) then begin
-      TrackStationDown.Track.Line.DisconnectStation(TrackStationDown.Track.Line.LineStations.First);
-    end;
-    if Assigned(TrackStationUp) and (TrackStationUp.Track.Line.LineStations.Count = 1) then begin
-      TrackStationUp.Track.Line.DisconnectStation(TrackStationUp.Track.Line.LineStations.First);
+        FocusedTrack := GetTrackOnPos(View.PointDestToSrc(Position));
+        if Assigned(FocusedTrack.Points[0]) then begin
+          SelectedTrain.Line := FocusedTrack.Points[0].Track.Line;
+          SelectedTrain.Line.Trains.Add(SelectedTrain);
+          SelectedTrain.BaseTrackPoint := FocusedTrack.Points[0];
+        end else
+        if Assigned(FocusedTrack.Points[1]) then begin
+          SelectedTrain.Line := FocusedTrack.Points[1].Track.Line;
+          SelectedTrain.Line.Trains.Add(SelectedTrain);
+          SelectedTrain.BaseTrackPoint := FocusedTrack.Points[1];
+        end;
+        FocusedTrack.Free;
+      end;
+
+      // Line color selection
+      for I := 0 to Lines.Count - 1 do
+        if Distance(Point(View.DestRect.Right div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
+          View.DestRect.Bottom - LineColorsDist), Position) < 20 then begin
+            SelectedLine := Lines[I];
+            Exit;
+          end;
+
+      // Remove single line station on line
+      if Assigned(TrackStationDown) and (TrackStationDown.Track.Line.LineStations.Count = 1) then begin
+        TrackStationDown.Track.Line.DisconnectStation(TrackStationDown.Track.Line.LineStations.First);
+      end;
+      if Assigned(TrackStationUp) and (TrackStationUp.Track.Line.LineStations.Count = 1) then begin
+        TrackStationUp.Track.Line.DisconnectStation(TrackStationUp.Track.Line.LineStations.First);
+      end;
     end;
   end else
@@ -2164 +2247 @@
 end;
 
-procedure TEngine.Reset;
+procedure TEngine.MainMenu;
+begin
+  State := gsMenu;
+  Redraw;
+end;
+
+procedure TEngine.NewGame;
 var
   NewTrain: TMetroTrain;
@@ -2214 +2303 @@
 constructor TEngine.Create;
 begin
+  MenuMain := TMenu.Create;
+  MenuOptions := TMenu.Create;
+  Menu := MenuMain;
+  InitMenus;
   Stations := TMapStations.Create;
   Stations.Engine := Self;
@@ -2243 +2336 @@
   FreeAndNil(Stations);
   FreeAndNil(Lines);
+  FreeAndNil(MenuMain);
+  FreeAndNil(MenuOptions);
   inherited;
 end;
@@ -2342 +2437 @@
     *)
   end;
+
   // Draw design time lines
   if Assigned(TrackStationDown) and Assigned(TrackStationDown.LineStation) then begin
@@ -2405 +2501 @@
   end;
 
-  // Clear background
+  // MainMenu background
   TargetCanvas.Brush.Color := $eff0e0;
   TargetCanvas.Brush.Style := bsSolid;
@@ -2416 +2512 @@
   MetaCanvas.DrawTo(TargetCanvas);
 
-  // Line selection
-  TargetCanvas.Pen.Width := 4;
-  for I := 0 to High(LineColors) do begin
-    if Assigned(Lines.SearchByColor(LineColors[I])) then begin
-      TargetCanvas.Brush.Color := LineColors[I];
-      Size := 15;
-    end else begin
-      TargetCanvas.Brush.Color := clSilver;
-      Size := 5;
-    end;
-    TargetCanvas.Pen.Color := clBlack;
-    if Assigned(SelectedLine) and (SelectedLine.Color = LineColors[I]) then begin
-      TargetCanvas.Pen.Style := psSolid;
-    end else begin
-      TargetCanvas.Pen.Style := psClear;
-    end;
-
-    TargetCanvas.EllipseC(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
-      TargetCanvas.Height - LineColorsDist, Size, Size);
-  end;
-
-  // Draw unused trains
-  Text := IntToStr(Trains.GetUnusedCount);
-  TargetCanvas.Draw(Canvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 100,
-    TargetCanvas.Height - LineColorsDist - ImageLocomotive.Picture.Bitmap.Height div 2, ImageLocomotive.Picture.Bitmap);
-  TargetCanvas.Brush.Style := bsClear;
-  TargetCanvas.Font.Size := 14;
-  TargetCanvas.Font.Color := clBlack;
-  TargetCanvas.TextOut(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 50 - TargetCanvas.TextWidth(Text),
-    TargetCanvas.Height - LineColorsDist - TargetCanvas.TextHeight(Text) div 2, Text);
-
-  // Status interface
-  Text := IntToStr(ServedPassengerCount);
-  TargetCanvas.Draw(TargetCanvas.Width - 50, TargetCanvas.Height - 60, ImagePassenger.Picture.Bitmap);
-  TargetCanvas.Brush.Style := bsClear;
-  TargetCanvas.Font.Size := 14;
-  TargetCanvas.Font.Color := clBlack;
-  TargetCanvas.TextOut(TargetCanvas.Width - 70 - TargetCanvas.TextWidth(Text), TargetCanvas.Height - 55, Text);
-
-  DrawClock(TargetCanvas);
-
-  // Show grabbed train by mouse
+  if State <> gsMenu then begin
+    // Line selection
+    TargetCanvas.Pen.Width := 4;
+    for I := 0 to High(LineColors) do begin
+      if Assigned(Lines.SearchByColor(LineColors[I])) then begin
+        TargetCanvas.Brush.Color := LineColors[I];
+        Size := 15;
+      end else begin
+        TargetCanvas.Brush.Color := clSilver;
+        Size := 5;
+      end;
+      TargetCanvas.Pen.Color := clBlack;
+      if Assigned(SelectedLine) and (SelectedLine.Color = LineColors[I]) then begin
+        TargetCanvas.Pen.Style := psSolid;
+      end else begin
+        TargetCanvas.Pen.Style := psClear;
+      end;
+
+      TargetCanvas.EllipseC(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
+        TargetCanvas.Height - LineColorsDist, Size, Size);
+    end;
+
+    // Draw unused trains
+    Text := IntToStr(Trains.GetUnusedCount);
+    TargetCanvas.Draw(Canvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 100,
+      TargetCanvas.Height - LineColorsDist - ImageLocomotive.Picture.Bitmap.Height div 2, ImageLocomotive.Picture.Bitmap);
+    TargetCanvas.Brush.Style := bsClear;
+    TargetCanvas.Font.Size := 14;
+    TargetCanvas.Font.Color := clBlack;
+    TargetCanvas.TextOut(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 50 - TargetCanvas.TextWidth(Text),
+      TargetCanvas.Height - LineColorsDist - TargetCanvas.TextHeight(Text) div 2, Text);
+
+    // Status interface
+    Text := IntToStr(ServedPassengerCount);
+    TargetCanvas.Draw(TargetCanvas.Width - 50, TargetCanvas.Height - 60, ImagePassenger.Picture.Bitmap);
+    TargetCanvas.Brush.Style := bsClear;
+    TargetCanvas.Font.Size := 14;
+    TargetCanvas.Font.Color := clBlack;
+    TargetCanvas.TextOut(TargetCanvas.Width - 70 - TargetCanvas.TextWidth(Text), TargetCanvas.Height - 55, Text);
+
+    DrawClock(TargetCanvas);
+  end;
+
+  // Show train grabbed by mouse
   if Assigned(SelectedTrain) then begin
     TargetCanvas.Brush.Color := clBlack; //SelectedTrain.Line.Color;
@@ -2483 +2581 @@
     Text := Format(SGameOverStatistic, [ServedPassengerCount, Trunc(Time)]);
     TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(Text)) div 2, 180, Text);
-  end;
+  end else
+  if State = gsMenu then begin
+    Menu.Paint(TargetCanvas);
+  end;
+
   RedrawPending := False;
 end;