(svn r7115) -Fix [FS#371]: Cloning a vehicle that has been refitted would incur the expense as running costs, not new vehicles.

This commit is contained in:
peter1138 2006-11-08 17:44:17 +00:00
parent 2c17c649af
commit 6a2583c43f
1 changed files with 4 additions and 0 deletions

View File

@ -1851,6 +1851,10 @@ int32 CmdCloneVehicle(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
// for trains this needs to be the front engine due to the callback function
_new_vehicle_id = w_front->index;
}
/* Set the expense type last as refitting will make the cost go towards
* running costs... */
SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES);
return total_cost;
}