Changeset 34 for trunk

Timestamp:

Apr 19, 2015, 1:06:35 AM (10 years ago)

Author:

chronos

Message:

• Modified: Change train direction if train is manually repositioned.

File:

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

trunk/UEngine.pas

@@ -1525 +1525 @@
   TargetStationIndex: Integer;
   PosChange: Double;
+  TP: TTrackPoint;
 begin
   // Move trains
@@ -1530 +1531 @@
   with TMetroTrain(Trains[I]) do begin
     if not Assigned(TargetStation) and Assigned(BaseTrackPoint) then begin
-      Direction := 1;
-      TargetStation := BaseTrackPoint.GetUp.LineStation;
+      if (Direction <> 1) and (Direction <> -1) then Direction := 1
+        else Direction := -Direction;
+      TP := BaseTrackPoint.GetUp;
+      if Assigned(TP) then TargetStation := TP.LineStation
+      else begin
+        TP := BaseTrackPoint.GetDown;
+        if Assigned(TP) then TargetStation := TP.LineStation;
+      end;
     end;
     if Assigned(Line) then begin