* Check whether the tile is a forest.

 * @param tile the tile to investigate.

 * @return true if and only if the tile is a mine

 */

static bool CMSAForest(TileIndex tile)

{

	/* No industry */

	if (!IsTileType(tile, MP_INDUSTRY)) return false;

	const Industry *ind = GetIndustryByTile(tile);

	/* No extractive industry */

	if ((GetIndustrySpec(ind->type)->life_type & INDUSTRYLIFE_ORGANIC) == 0) return false;

	for (uint i = 0; i < lengthof(ind->produced_cargo); i++) {

		/* The industry produces wood. */

		if (ind->produced_cargo[i] != CT_INVALID && GetCargo(ind->produced_cargo[i])->label == 'WOOD') return true;

	}

	return false;

}

#define M(x) ((x) - STR_SV_STNAME)

static bool GenerateStationName(Station *st, TileIndex tile, int flag)

{

	static const uint32 _gen_station_name_bits[] = {

		0,                                      /* 0 */

		1 << M(STR_SV_STNAME_AIRPORT),          /* 1 */

		1 << M(STR_SV_STNAME_OILFIELD),         /* 2 */

		1 << M(STR_SV_STNAME_DOCKS),            /* 3 */

		0x1FF << M(STR_SV_STNAME_BUOY_1),       /* 4 */

		1 << M(STR_SV_STNAME_HELIPORT),         /* 5 */

	};

	Town *t = st->town;

	uint32 free_names = (uint32)-1;

	int found;

	unsigned long tmp;

	{

		Station *s;

		FOR_ALL_STATIONS(s) {

			if (s != st && s->town == t) {

				uint str = M(s->string_id);

				if (str <= 0x20) {

					if (str == M(STR_SV_STNAME_FOREST))

	if (st != NULL) {

		/* Reuse an existing station. */

		if (st->owner != _current_player)

			return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION);

		if (st->train_tile != 0) {

			/* check if we want to expanding an already existing station? */

			if (_is_old_ai_player || !_patches.join_stations)

				return_cmd_error(STR_3005_TOO_CLOSE_TO_ANOTHER_RAILROAD);

			if (!CanExpandRailroadStation(st, finalvalues, axis))

				return CMD_ERROR;

		}

		/* XXX can't we pack this in the "else" part of the if above? */

		if (!st->rect.BeforeAddRect(tile_org, w_org, h_org, StationRect::ADD_TEST)) return CMD_ERROR;

	} else {

		/* allocate and initialize new station */

		st = new Station(tile_org);

		if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING);

		/* ensure that in case of error (or no DC_EXEC) the station gets deleted upon return */

		st_auto_delete = st;

		st->town = ClosestTownFromTile(tile_org, (uint)-1);

		if (IsValidPlayer(_current_player) && (flags & DC_EXEC) != 0) {

			SETBIT(st->town->have_ratings, _current_player);

		}

	}

	/* Check if the given station class is valid */

	if (GB(p2, 8, 8) >= STAT_CLASS_MAX) return CMD_ERROR;

	/* Check if we can allocate a custom stationspec to this station */

	const StationSpec *statspec = GetCustomStationSpec((StationClassID)GB(p2, 8, 8), GB(p2, 16, 8));

	int specindex = AllocateSpecToStation(statspec, st, flags & DC_EXEC);

	if (specindex == -1) return CMD_ERROR;

	if (statspec != NULL) {

		/* Perform NewStation checks */

		/* Check if the station size is permitted */

		if (HASBIT(statspec->disallowed_platforms, numtracks - 1) || HASBIT(statspec->disallowed_lengths, plat_len - 1)) {

			return CMD_ERROR;

		}

		/* Check if the station is buildable */

		if (HASBIT(statspec->callbackmask, CBM_STATION_AVAIL) && GetStationCallback(CBID_STATION_AVAILABILITY, 0, 0, statspec, NULL, INVALID_TILE) == 0) {

			GetNumRoadStopsInStation(st, RoadStop::BUS) + GetNumRoadStopsInStation(st, RoadStop::TRUCK) >= RoadStop::LIMIT) {

		return_cmd_error(type ? STR_3008B_TOO_MANY_TRUCK_STOPS : STR_3008A_TOO_MANY_BUS_STOPS);

	}

	/* In case of new station if DC_EXEC is NOT set we still need to create the station

	 * to test if everything is OK. In this case we need to delete it before return. */

	AutoPtrT<Station> st_auto_delete;

	if (st != NULL) {

		if (st->owner != _current_player) {

			return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION);

		}

		if (!st->rect.BeforeAddTile(tile, StationRect::ADD_TEST)) return CMD_ERROR;

	} else {

		/* allocate and initialize new station */

		st = new Station(tile);

		if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING);

		/* ensure that in case of error (or no DC_EXEC) the new station gets deleted upon return */

		st_auto_delete = st;

		Town *t = st->town = ClosestTownFromTile(tile, (uint)-1);

		if (IsValidPlayer(_current_player) && (flags & DC_EXEC) != 0) {

			SETBIT(t->have_ratings, _current_player);

		}

		st->sign.width_1 = 0;

	}

	cost.AddCost((type) ? _price.build_truck_station : _price.build_bus_station);

	if (flags & DC_EXEC) {

		/* Insert into linked list of RoadStops */

		RoadStop **currstop = FindRoadStopSpot(type, st);

		*currstop = road_stop;

		/*initialize an empty station */

		st->AddFacility((type) ? FACIL_TRUCK_STOP : FACIL_BUS_STOP, tile);

		st->rect.BeforeAddTile(tile, StationRect::ADD_TRY);

		RoadStop::Type rs_type = type ? RoadStop::TRUCK : RoadStop::BUS;

		if (is_drive_through) {

			MakeDriveThroughRoadStop(tile, st->owner, st->index, rs_type, rts, (Axis)p1, town_owned_road);

		} else {

		if (!st->rect.BeforeAddRect(tile, w, h, StationRect::ADD_TEST)) return CMD_ERROR;

		if (st->airport_tile != 0)

			return_cmd_error(STR_300D_TOO_CLOSE_TO_ANOTHER_AIRPORT);

	} else {

		airport_upgrade = false;

		/* allocate and initialize new station */

		st = new Station(tile);

		if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING);

		/* ensure that in case of error (or no DC_EXEC) the station gets deleted upon return */

		st_auto_delete = st;

		st->town = t;

		if (IsValidPlayer(_current_player) && (flags & DC_EXEC) != 0) {

			SETBIT(t->have_ratings, _current_player);

		}

		st->sign.width_1 = 0;

		/* If only helicopters may use the airport generate a helicopter related (5)

		 * station name, otherwise generate a normal airport name (1) */

			return CMD_ERROR;

		}

	}

	cost.AddCost(_price.build_airport * w * h);

	if (flags & DC_EXEC) {

		st->airport_tile = tile;

		st->AddFacility(FACIL_AIRPORT, tile);

		st->airport_type = (byte)p1;

		st->airport_flags = 0;

		st->rect.BeforeAddRect(tile, w, h, StationRect::ADD_TRY);

		/* if airport was demolished while planes were en-route to it, the

		 * positions can no longer be the same (v->u.air.pos), since different

		 * airports have different indexes. So update all planes en-route to this

		 * airport. Only update if

		 * 1. airport is upgraded

		 * 2. airport is added to existing station (unfortunately unavoideable)

		 */

		if (airport_upgrade) UpdateAirplanesOnNewStation(st);

		{

/** Build a buoy.

 * @param tile tile where to place the bouy

 * @param flags operation to perform

 * @param p1 unused

 * @param p2 unused

 */

CommandCost CmdBuildBuoy(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

{

	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);

	if (!IsWaterTile(tile) || tile == 0) return_cmd_error(STR_304B_SITE_UNSUITABLE);

	if (MayHaveBridgeAbove(tile) && IsBridgeAbove(tile)) return_cmd_error(STR_5007_MUST_DEMOLISH_BRIDGE_FIRST);

	/* allocate and initialize new station */

	Station *st = new Station(tile);

	if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING);

	/* ensure that in case of error (or no DC_EXEC) the station gets deleted upon return */

	AutoPtrT<Station> st_auto_delete(st);

	st->town = ClosestTownFromTile(tile, (uint)-1);

	st->sign.width_1 = 0;

	if (flags & DC_EXEC) {

		st->dock_tile = tile;

		st->facilities |= FACIL_DOCK;

		/* Buoys are marked in the Station struct by this flag. Yes, it is this

		 * braindead.. */

		st->had_vehicle_of_type |= HVOT_BUOY;

		st->owner = OWNER_NONE;

		st->build_date = _date;

		MakeBuoy(tile, st->index);

		UpdateStationVirtCoordDirty(st);

		UpdateStationAcceptance(st, false);

		RebuildStationLists();

		InvalidateWindow(WC_STATION_LIST, st->owner);

		/* success, so don't delete the new station */

		st_auto_delete.Detach();

	}

	return CommandCost(_price.build_dock);

}

	if (st != NULL) {

		if (st->owner != _current_player)

			return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION);

		if (!st->rect.BeforeAddRect(tile, _dock_w_chk[direction], _dock_h_chk[direction], StationRect::ADD_TEST)) return CMD_ERROR;

		if (st->dock_tile != 0) return_cmd_error(STR_304C_TOO_CLOSE_TO_ANOTHER_DOCK);

	} else {

		/* allocate and initialize new station */

		st = new Station(tile);

		if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING);

		/* ensure that in case of error (or no DC_EXEC) the station gets deleted upon return */

		st_auto_delete = st;

		Town *t = st->town = ClosestTownFromTile(tile, (uint)-1);

		if (IsValidPlayer(_current_player) && (flags & DC_EXEC) != 0) {

			SETBIT(t->have_ratings, _current_player);

		}

		st->sign.width_1 = 0;

	}

	if (flags & DC_EXEC) {

		st->dock_tile = tile;

		st->AddFacility(FACIL_DOCK, tile);

		st->rect.BeforeAddRect(tile, _dock_w_chk[direction], _dock_h_chk[direction], StationRect::ADD_TRY);

		MakeDock(tile, st->owner, st->index, direction);

		UpdateStationVirtCoordDirty(st);

		UpdateStationAcceptance(st, false);

		RebuildStationLists();

		InvalidateWindow(WC_STATION_LIST, st->owner);

		/* success, so don't delete the new station */

		st_auto_delete.Detach();

	}

	return CommandCost(_price.build_dock);

}

static CommandCost RemoveDock(Station *st, uint32 flags)

{

	if (!CheckOwnership(st->owner)) return CMD_ERROR;

	uint moved = 0;

	if (t != 0) {

		moved = t * best_rating / 256 + 1;

		amount -= t;

		UpdateStationWaiting(st1, type, moved);

	}

	if (amount != 0) {

		amount = amount * best_rating2 / 256 + 1;

		moved += amount;

		UpdateStationWaiting(st2, type, amount);

	}

	return moved;

}

void BuildOilRig(TileIndex tile)

{

	Station *st = new Station();

	if (st == NULL) {

		DEBUG(misc, 0, "Can't allocate station for oilrig at 0x%X, reverting to oilrig only", tile);

		return;

	}

		DEBUG(misc, 0, "Can't allocate station-name for oilrig at 0x%X, reverting to oilrig only", tile);

		return;

	}

	st->town = ClosestTownFromTile(tile, (uint)-1);

	st->sign.width_1 = 0;

	MakeOilrig(tile, st->index);

	st->owner = OWNER_NONE;

	st->airport_flags = 0;

	st->airport_type = AT_OILRIG;

	st->xy = tile;

	st->bus_stops = NULL;

	st->truck_stops = NULL;

	st->airport_tile = tile;

	st->dock_tile = tile;

	st->train_tile = 0;

	st->had_vehicle_of_type = 0;

	st->time_since_load = 255;

	st->time_since_unload = 255;

	st->delete_ctr = 0;

	st->last_vehicle_type = VEH_INVALID;

	st->facilities = FACIL_AIRPORT | FACIL_DOCK;