Function CmdForceTrainProceed

src/train_cmd.cpp:2170–2190

* Force a train through a red signal * @param flags type of operation * @param veh_id train to ignore the red signal * @return the cost of this operation or an error */

 * @return the cost of this operation or an error
 */
CommandCost CmdForceTrainProceed(DoCommandFlags flags, VehicleID veh_id)
{
	Train *t = Train::GetIfValid(veh_id);
	if (t == nullptr) return CMD_ERROR;

	if (!t->IsPrimaryVehicle()) return CMD_ERROR;

	CommandCost ret = CheckOwnership(t->owner);
	if (ret.Failed()) return ret;


	if (flags.Test(DoCommandFlag::Execute)) {
		t->force_proceed = DetermineNextTrainForceProceeding(t);
		SetWindowDirty(WC_VEHICLE_VIEW, t->index);

		/* Unbunching data is no longer valid. */
		t->ResetDepotUnbunching();
	}

	return CommandCost();
}

/**
 * Try to find a depot nearby.