Changeset 26

Timestamp:

Apr 12, 2015, 12:36:04 AM (10 years ago)

Author:

chronos

Message:

• Added: Limit per line length of visible waiting passengers at map station.

File:

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

trunk/UEngine.pas

@@ -273 +273 @@
   NewPassengerPeriod = 0.3 * OneSecond;
   NewPassengerProbability = 0.002;
+  VisiblePassengersPerLine = 6;
 
 implementation
@@ -1642 +1643 @@
   Angle: Double;
   EndPoint: TPoint;
+  PassengerPos: TPoint;
+  Direction: Integer;
 const
   GameOverText = 'Game Over';
@@ -1740 +1743 @@
     Canvas.Pen.Style := psClear;
     Canvas.Brush.Color := clBlack;
+    PassengerPos := Point(0, 0);
+    Direction := 1;
     for P := 0 to Passengers.Count - 1 do
     with TMetroPassenger(Passengers[P]) do begin
-      DrawShape(Canvas, Point(Position.X + StationSize + P * (PassengerSize + 2), Position.Y - StationSize div 2),
+      DrawShape(Canvas, Point(Position.X + StationSize + PassengerPos.X,
+        Position.Y - StationSize div 2 + PassengerPos.Y),
         Shape, PassengerSize, 0);
+      PassengerPos := Point(PassengerPos.X + Direction * (PassengerSize + 2), PassengerPos.Y);
+      if PassengerPos.X >= (PassengerSize + 2) * VisiblePassengersPerLine then begin
+        Direction := -Direction;
+        PassengerPos.X := PassengerPos.X - (PassengerSize + 2);
+        PassengerPos.Y := PassengerPos.Y + (PassengerSize + 2);
+      end;
+      if PassengerPos.X < 0 then begin
+        Direction := -Direction;
+        PassengerPos.X := 0;
+        PassengerPos.Y := PassengerPos.Y + (PassengerSize + 2);
+      end;
     end;