Function ClearTile_Station

src/station_cmd.cpp:4904–4944

* Clear a single tile of a station. * @param tile The tile to clear. * @param flags The DoCommand flags related to the "command". * @return The cost, or error of clearing. */

 * @return The cost, or error of clearing.
 */
CommandCost ClearTile_Station(TileIndex tile, DoCommandFlags flags)
{
	if (flags.Test(DoCommandFlag::Auto)) {
		switch (GetStationType(tile)) {
			default: break;
			case StationType::Rail:     return CommandCost(STR_ERROR_MUST_DEMOLISH_RAILROAD);
			case StationType::RailWaypoint: return CommandCost(STR_ERROR_BUILDING_MUST_BE_DEMOLISHED);
			case StationType::Airport:  return CommandCost(STR_ERROR_MUST_DEMOLISH_AIRPORT_FIRST);
			case StationType::Truck:    return CommandCost(HasTileRoadType(tile, RTT_TRAM) ? STR_ERROR_MUST_DEMOLISH_CARGO_TRAM_STATION_FIRST : STR_ERROR_MUST_DEMOLISH_TRUCK_STATION_FIRST);
			case StationType::Bus:      return CommandCost(HasTileRoadType(tile, RTT_TRAM) ? STR_ERROR_MUST_DEMOLISH_PASSENGER_TRAM_STATION_FIRST : STR_ERROR_MUST_DEMOLISH_BUS_STATION_FIRST);
			case StationType::RoadWaypoint: return CommandCost(STR_ERROR_BUILDING_MUST_BE_DEMOLISHED);
			case StationType::Buoy:     return CommandCost(STR_ERROR_BUOY_IN_THE_WAY);
			case StationType::Dock:     return CommandCost(STR_ERROR_MUST_DEMOLISH_DOCK_FIRST);
			case StationType::Oilrig:
				return CommandCostWithParam(STR_ERROR_GENERIC_OBJECT_IN_THE_WAY, STR_INDUSTRY_NAME_OIL_RIG);
		}
	}

	switch (GetStationType(tile)) {
		case StationType::Rail:     return RemoveRailStation(tile, flags);
		case StationType::RailWaypoint: return RemoveRailWaypoint(tile, flags);
		case StationType::Airport:  return RemoveAirport(tile, flags);
		case StationType::Truck:    [[fallthrough]];
		case StationType::Bus:
			if (IsDriveThroughStopTile(tile)) {
				CommandCost remove_road = CanRemoveRoadWithStop(tile, flags);
				if (remove_road.Failed()) return remove_road;
			}
			return RemoveRoadStop(tile, flags);
		case StationType::RoadWaypoint: {
			CommandCost remove_road = CanRemoveRoadWithStop(tile, flags);
			if (remove_road.Failed()) return remove_road;
			return RemoveRoadWaypointStop(tile, flags);
		}
		case StationType::Buoy:     return RemoveBuoy(tile, flags);
		case StationType::Dock:     return RemoveDock(tile, flags);
		default: break;
	}

	return CMD_ERROR;
}

static CommandCost TerraformTile_Station(TileIndex tile, DoCommandFlags flags, int z_new, Slope tileh_new)
{