Changeset 24

Timestamp:

Apr 9, 2015, 11:58:38 PM (10 years ago)

Author:

chronos

Message:

• Added: Passenger max count at map station overload signalization using pie graphic. If overload last too long then game over is set.

Location:

trunk

Files:

• BigMetro.lpi (modified) (2 diffs)
• UEngine.pas (modified) (9 diffs)

trunk/BigMetro.lpi

@@ -90 +90 @@
         <Filename Value="UGeometric.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="UGeometric"/>
       </Unit3>
     </Units>
@@ -118 +119 @@
         <StackChecks Value="True"/>
       </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
     </CodeGeneration>
     <Linking>

trunk/UEngine.pas

@@ -31 +31 @@
     Lines: TMetroLines;
     ShapeDistance: array[TStationShape] of Integer;
+    OverloadDuration: TDateTime;
     function IsBestStationForShape(Shape: TStationShape; Check, Current: TLineStation): Boolean;
     constructor Create;
@@ -174 +175 @@
     ImageLocomotive: TImage;
     FTime: TDateTime;
+    FLastTime: TDateTime;
     function GetExistStationShapes: TStationShapeSet;
     function GetStationOnPos(Pos: TPoint): TMapStation;
@@ -218 +220 @@
     clPurple, clGray, clOrange, clBrown);
   StationSize = 30;
+  StationOverloadSize = 60;
   PassengerSize = 15;
   TrainSize = 40;
@@ -228 +231 @@
   StationMaxDistance = 300;
   MaxWaitingPassengers = 10;
+  MaxPassengersOveloadTime = 1;
   MetroLineThickness = 13;
   TrackClickDistance = 20;
@@ -1171 +1175 @@
       while (Passenger.Shape = Passenger.Station.Shape) or not (Passenger.Shape in GetExistStationShapes) do
         Passenger.Shape := TStationShape((Integer(Passenger.Shape) + 1) mod Integer(ShapeCount));
+
+    end;
+  end;
+
+  for I := 0 to Stations.Count - 1 do
+  with TMapStation(Stations[I]) do begin
+    if Passengers.Count > MaxWaitingPassengers then begin
+      OverloadDuration := OverloadDuration + (FTime - FLastTime);
+      if OverloadDuration > MaxPassengersOveloadTime then
+        OverloadDuration := MaxPassengersOveloadTime;
+    end;
+    if Passengers.Count <= MaxWaitingPassengers then begin
+      OverloadDuration := OverloadDuration - (FTime - FLastTime);
+      if OverloadDuration < 0 then begin
+        OverloadDuration := 0;
+      end;
     end;
   end;
@@ -1179 +1199 @@
   for I := 0 to Stations.Count - 1 do
   with TMapStation(Stations[I]) do begin
-    if Passengers.Count > MaxWaitingPassengers then State := gsGameOver;
+    if OverloadDuration >= MaxPassengersOveloadTime then State := gsGameOver;
   end;
 
   end;
   LastTickTime := Now;
+  FLastTime := FTime;
 end;
 
@@ -1346 +1367 @@
   SelectedLine := nil;
   FTime := 0;
+  FLastTime := 0;
   LastNewStationTime := Time;
   LastNewPassengerTime := Time;
@@ -1404 +1426 @@
   Canvas.Brush.Style := bsSolid;
   Canvas.Clear;
+
+  // Draw station passenger overload
+  for I := 0 to Stations.Count - 1 do
+  with TMapStation(Stations[I]) do begin
+    if OverloadDuration > 0 then begin
+      Canvas.Brush.Color := clSilver;
+      Canvas.Brush.Style := bsSolid;
+      Canvas.Pen.Color := clSilver;
+      Canvas.Pen.Style := psSolid;
+      Angle := OverloadDuration / MaxPassengersOveloadTime * 2 * Pi;
+      Canvas.Pie(Position.X - StationOverloadSize, Position.Y - StationOverloadSize,
+      Position.X + StationOverloadSize, Position.Y + StationOverloadSize,
+        Trunc(Position.X + StationOverloadSize * Cos(Angle)),
+        Trunc(Position.Y + StationOverloadSize * Sin(Angle)), Position.X + StationOverloadSize, Position.Y);
+    end;
+  end;
 
   // Draw lines
@@ -1469 +1507 @@
       DrawShape(Canvas, Position, Shape, StationSize + Canvas.Pen.Width + 6, 0);
     end;
+
     Canvas.Brush.Color := clWhite;
     Canvas.Brush.Style := bsSolid;