Changeset 101

Timestamp:

Sep 28, 2022, 9:38:10 PM (19 months ago)

Author:

chronos

Message:

• Added: Terminals as selectable user improvement on every week.

File:

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

trunk/UEngine.pas

@@ -33 +33 @@
     ShapeDistance: array[TStationShape] of Integer;
     OverloadDuration: TDateTime;
+    IsTerminal: Boolean;
+    function GetMaxPassengers: Integer;
     function IsBestStationForShape(Shape: TStationShape; Check, Current: TLineStation): Boolean;
     constructor Create;
@@ -185 +187 @@
     IconSize: Integer;
     LineColors: array of TColor;
+    CarriageCountVisible: Boolean;
+    TerminalCountVisible: Boolean;
     function GetServedDaysCount: Integer;
     procedure ResizeView;
@@ -207 +211 @@
     procedure DrawStations(Canvas: TCanvas);
     procedure DrawGameControls(Canvas: TCanvas; CanvasSize: TPoint);
+    procedure DrawGrabbed(Canvas: TCanvas; CanvasSize: TPoint);
     procedure ComputeShapeDistance;
     procedure ComputeShapeDistanceStation(Station: TMapStation;
@@ -239 +244 @@
     procedure EvaluateImprovement(Improvement: TMetroImprovement);
   public
+    AvailableTerminals: Integer;
     Week: Integer;
     Colors: TColors;
@@ -254 +260 @@
     SelectedTrain: TMetroTrain;
     SelectedCarriage: TMetroCarriage;
+    SelectedTerminal: Boolean;
     TrackStationDown: TTrackPoint;
     TrackStationUp: TTrackPoint;
@@ -314 +321 @@
   StationMaxDistance = 300;
   MaxWaitingPassengers = 10;
+  MaxWaitingPassengersTerminal = 16;
   MaxPassengersOveloadTime = 2;
   MetroLineThickness = 13;
@@ -968 +976 @@
 begin
   Lines.Sort(TComparer<TMetroLine>.Construct(MapStationCompareLine));
+end;
+
+function TMapStation.GetMaxPassengers: Integer;
+begin
+  if IsTerminal then Result := MaxWaitingPassengersTerminal
+    else Result := MaxWaitingPassengers;
 end;
 
@@ -1997 +2011 @@
     miCarriage: Carriages.AddNew;
     //miTunnel: Tunnels.AddNew;
-    //miTerminal: Terminals.AddNew;
+    miTerminal: Inc(AvailableTerminals);
   end;
 end;
@@ -2555 +2569 @@
   PassengerPos: TPoint;
   Direction: Integer;
+  UsedStationSize: Integer;
 begin
   Canvas.Pen.Width := 5;
@@ -2560 +2575 @@
   with MapStation do begin
     Canvas.Pen.Style := psSolid;
+    if IsTerminal then UsedStationSize := Round(StationSize * 1.5)
+      else UsedStationSize := StationSize;
+
     if Assigned(SelectedLine) and (Lines.IndexOf(SelectedLine) <> -1) then begin
       Canvas.Brush.Style := bsClear;
       Canvas.Pen.Color := SelectedLine.Color;
-      DrawShape(Canvas, Position, Shape, StationSize + Canvas.Pen.Width + 4, 0);
+      DrawShape(Canvas, Position, Shape, UsedStationSize + Canvas.Pen.Width + 4, 0);
     end;
 
@@ -2569 +2587 @@
     Canvas.Brush.Style := bsSolid;
     Canvas.Pen.Color := Colors.Text;
-    DrawShape(Canvas, Position, Shape, StationSize, 0);
+    DrawShape(Canvas, Position, Shape, UsedStationSize, 0);
 
     // Draw passengers
@@ -2658 +2676 @@
 
   // Draw unused carriages
-  Text := IntToStr(Carriages.GetUnusedCount);
-  ImageCarriage.Bounds := Bounds(X - IconSize, Y - IconSize div 2,
-    IconSize, IconSize);
-  ImageCarriage.Canvas := Canvas;
-  ImageCarriage.Paint;
-  X := X - IconSize - SeparatorSize div 3;
-
-  Canvas.Brush.Style := bsClear;
-  Canvas.Font.Size := 14;
-  Canvas.Font.Color := Colors.Text;
-  Canvas.TextOut(X - Canvas.TextWidth(Text),
-    Y - Canvas.TextHeight(Text) div 2, Text);
+  if Carriages.GetUnusedCount > 0 then CarriageCountVisible := True;
+  if CarriageCountVisible then begin
+    Text := IntToStr(Carriages.GetUnusedCount);
+    ImageCarriage.Bounds := Bounds(X - IconSize, Y - IconSize div 2,
+      IconSize, IconSize);
+    ImageCarriage.Canvas := Canvas;
+    ImageCarriage.Paint;
+    X := X - IconSize - SeparatorSize div 3;
+
+    Canvas.Brush.Style := bsClear;
+    Canvas.Font.Size := 14;
+    Canvas.Font.Color := Colors.Text;
+    Canvas.TextOut(X - Canvas.TextWidth(Text),
+      Y - Canvas.TextHeight(Text) div 2, Text);
+    X := X - Canvas.TextWidth(Text) - SeparatorSize;
+  end;
+
+  // Draw unused terminals
+  if AvailableTerminals > 0 then TerminalCountVisible := True;
+  if TerminalCountVisible then begin
+    Text := IntToStr(AvailableTerminals);
+    ImageTerminal.Bounds := Bounds(X - IconSize, Y - IconSize div 2,
+      IconSize, IconSize);
+    ImageTerminal.Canvas := Canvas;
+    ImageTerminal.Paint;
+    X := X - IconSize - SeparatorSize div 3;
+
+    Canvas.Brush.Style := bsClear;
+    Canvas.Font.Size := 14;
+    Canvas.Font.Color := Colors.Text;
+    Canvas.TextOut(X - Canvas.TextWidth(Text),
+      Y - Canvas.TextHeight(Text) div 2, Text);
+  end;
 
   // Passenger count
@@ -2720 +2759 @@
       Y - Round(1.5 * IconSize) - Canvas.TextHeight(Text) div 2, Text);
   end;
-
+end;
+
+procedure TEngine.DrawGrabbed(Canvas: TCanvas; CanvasSize: TPoint);
+var
+  Pos: TPoint;
+  Angle: Double;
+begin
   // Show train grabbed by mouse
   if Assigned(SelectedTrain) then begin
@@ -2751 +2796 @@
       RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y + TrainSize div 3), Angle)
     ]);
+  end;
+
+  // Show grabbed terminal by mouse
+  if SelectedTerminal then begin
+    Canvas.Brush.Color := Colors.Text; //SelectedTrain.Line.Color;
+    Canvas.Brush.Style := bsSolid;
+    Canvas.Pen.Style := psClear;
+    Pos := LastMousePos;
+    Angle := 0;
+
+    Canvas.Ellipse(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 2,
+      Pos.X + TrainSize div 2, Pos.Y + TrainSize div 2);
   end;
 end;
@@ -2807 +2864 @@
     for MapStation in Stations do
     with MapStation do begin
-      if Passengers.Count > MaxWaitingPassengers then begin
+      if Passengers.Count > GetMaxPassengers then begin
         OverloadDuration := OverloadDuration + (FTime - FLastTime);
         if OverloadDuration > MaxPassengersOveloadTime then
@@ -2813 +2870 @@
         if OverloadDuration < MaxPassengersOveloadTime then Redraw;
       end;
-      if Passengers.Count <= MaxWaitingPassengers then begin
+      if Passengers.Count <= GetMaxPassengers then begin
         if OverloadDuration > 0 then Redraw;
         OverloadDuration := OverloadDuration - (FTime - FLastTime);
@@ -2855 +2912 @@
   end;
 
-  if Assigned(SelectedTrain) or Assigned(SelectedCarriage) then Redraw;
+  if Assigned(SelectedTrain) or Assigned(SelectedCarriage) or
+    SelectedTerminal then Redraw;
 
   LastMousePos := Position;
@@ -2908 +2966 @@
   FocusedTrack: TTrackLink;
   FocusedTrain: TMetroTrain;
+  FocusedStation: TMapStation;
 begin
   if Button = mbLeft then begin
@@ -2973 +3032 @@
       end;
 
+      if SelectedTerminal then begin
+        FocusedStation := GetStationOnPos(View.PointDestToSrc(Position));
+        if Assigned(FocusedStation) and not FocusedStation.IsTerminal then begin
+          FocusedStation.IsTerminal := True;
+          Dec(AvailableTerminals);
+          Redraw;
+        end;
+        SelectedTerminal := False;
+      end;
+
       // Line color selection
       for I := 0 to Lines.Count - 1 do
@@ -3036 +3105 @@
 
       // Select unused carriage
-      if (Distance(Position, ImageCarriage.Bounds.CenterPoint) < 30) and
+      if CarriageCountVisible and (Distance(Position, ImageCarriage.Bounds.CenterPoint) < 30) and
       (Carriages.GetUnusedCount > 0) then begin
         SelectedCarriage := Carriages.GetUnused;
+        Exit;
+      end;
+
+      // Select unused carriage
+      if TerminalCountVisible and (Distance(Position, ImageTerminal.Bounds.CenterPoint) < 30) and
+      (AvailableTerminals > 0) then begin
+        SelectedTerminal := True;
         Exit;
       end;
@@ -3094 +3170 @@
   KeyF6 = 117;
   KeyF7 = 118;
+  KeyF8 = 119;
   KeyT = 84;
   KeyC = 67;
@@ -3153 +3230 @@
       State := gsSuccess;
       Redraw;
+    end else
+    if Key = KeyF8 then begin
+      Inc(AvailableTerminals);
+      Redraw;
     end;
   end;
@@ -3166 +3247 @@
 procedure TEngine.Clear;
 begin
+  CarriageCountVisible := False;
+  TerminalCountVisible := False;
+  AvailableTerminals := 0;
   ServedPassengerCount := 0;
   Week := 1;
@@ -3188 +3272 @@
     InitialLineCount := City.InitialLineCount;
   end else begin
-    LineColors := [clBlue, clRed, clDarkYellow, clGreen,
-       clPurple, clGray, clOrange, clBrown, clCyan];
+    LineColors := [clBlue, clRed, clDarkYellow, clGreen, clPurple, clGray,
+      clOrange, clBrown, clCyan];
     InitialLineCount := 3;
   end;
-  AvailableImprovements := [miCarriage, miLine];
+  AvailableImprovements := [miCarriage, miLine, miTerminal];
   ShapeCount := 3;
 
@@ -3380 +3464 @@
   if State in [gsRunning, gsPaused] then begin
     DrawGameControls(Canvas, CanvasSize);
+    DrawGrabbed(Canvas, CanvasSize);
   end;