From 911a8aa08d81a327a32f54ea9776b711fe6bd0d4 Mon Sep 17 00:00:00 2001
From: peter1138 <peter1138@openttd.org>
Date: Wed, 4 Jan 2006 16:53:00 +0000
Subject: [PATCH] (svn r3361) - Clone Vehicle: Disallow cloning of crashed rail
 vehicles after starting removal process.

---
 vehicle.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vehicle.c b/vehicle.c
index 9cef33051a..e82bcf66e0 100644
--- a/vehicle.c
+++ b/vehicle.c
@@ -1508,7 +1508,7 @@ int32 CmdCloneVehicle(int x, int y, uint32 flags, uint32 p1, uint32 p2)
 
 	if (!CheckOwnership(v->owner)) return CMD_ERROR;
 
-	if (v->type == VEH_Train && !IsFrontEngine(v)) return CMD_ERROR;
+	if (v->type == VEH_Train && (!IsFrontEngine(v) || v->u.rail.crash_anim_pos >= 4400)) return CMD_ERROR;
 
 	// check that we can allocate enough vehicles
 	if (!(flags & DC_EXEC)) {