# HG changeset patch
# User bjarni <bjarni@openttd.org>
# Date 2005-11-06 01:15:10
# Node ID de33ca4db9368dccd6dd63588669f162d7e47be7
# Parent  793747627bcedbadb4ccbcda94df15eb67d39e9e

(svn r3144) -Fix: a new train is now made if the front unit is an engine and the former front engine is moved away (Meush)

diff --git a/train_cmd.c b/train_cmd.c
--- a/train_cmd.c
+++ b/train_cmd.c
@@ -953,6 +953,9 @@ int32 CmdMoveRailVehicle(int x, int y, u
 
 	/* do it? */
 	if (flags & DC_EXEC) {
+		Vehicle *new_front = GetNextVehicle(src);	//used if next in line should make a train on it's own
+		bool make_new_front = src->subtype == TS_Front_Engine;
+
 		if (HASBIT(p2, 0)) {
 			// unlink ALL wagons
 			if (src != src_head) {
@@ -1004,6 +1007,15 @@ int32 CmdMoveRailVehicle(int x, int y, u
 			dst->next = src;
 		}
 
+		/* If there is an engine behind first_engine we moved away, it should become new first_engine
+		 * To do this, CmdMoveRailVehicle must be called once more
+		 * since we set p2 to a condition that makes the statement false, we can't loop forever with this one */
+		if (make_new_front && new_front != NULL && !(HASBIT(p2, 0))) {
+			if (!(RailVehInfo(new_front->engine_type)->flags & RVI_WAGON)) {
+				CmdMoveRailVehicle(x, y, flags, new_front->index | (INVALID_VEHICLE << 16), 1);
+			}
+		}
+
 		if (src_head) {
 			TrainConsistChanged(src_head);
 			if (src_head->subtype == TS_Front_Engine) {