Function TownActionBuildStatue

src/town_cmd.cpp:3493–3544

* Perform a 9x9 tiles circular search from the center of the town * in order to find a free tile to place a statue * @param t town to search in * @param flags Used to check if the statue must be built or not. * @return Empty cost or an error. */

 * @return Empty cost or an error.
 */
static CommandCost TownActionBuildStatue(Town *t, DoCommandFlags flags)
{
	if (!Object::CanAllocateItem()) return CommandCost(STR_ERROR_TOO_MANY_OBJECTS);

	static const int STATUE_NUMBER_INNER_TILES = 25; // Number of tiles int the center of the city, where we try to protect houses.

	TileIndex best_position = INVALID_TILE; ///< Best position found so far.
	uint tile_count = 0; ///< Number of tiles tried.
	for (auto tile : SpiralTileSequence(t->xy, 9)) {
		tile_count++;

		/* Statues can be build on slopes, just like houses. Only the steep slopes is a no go. */
		if (IsSteepSlope(GetTileSlope(tile))) continue;
		/* Don't build statues under bridges. */
		if (IsBridgeAbove(tile)) continue;

		/* A clear-able open space is always preferred. */
		if ((IsTileType(tile, MP_CLEAR) || IsTileType(tile, MP_TREES)) && CheckClearTile(tile)) {
			best_position = tile;
			break;
		}

		bool house = IsTileType(tile, MP_HOUSE);

		/* Searching inside the inner circle. */
		if (tile_count <= STATUE_NUMBER_INNER_TILES) {
			/* Save first house in inner circle. */
			if (house && best_position == INVALID_TILE && CheckClearTile(tile)) {
				best_position = tile;
			}

			/* If we have reached the end of the inner circle, and have a saved house, terminate the search. */
			if (tile_count == STATUE_NUMBER_INNER_TILES && best_position != INVALID_TILE) break;
		}

		/* Searching outside the circle, just pick the first possible spot. */
		if (!house || !CheckClearTile(tile)) continue;
		best_position = tile;
		break;
	}
	if (best_position == INVALID_TILE) return CommandCost(STR_ERROR_STATUE_NO_SUITABLE_PLACE);

	if (flags.Test(DoCommandFlag::Execute)) {
		Backup<CompanyID> cur_company(_current_company, OWNER_NONE);
		Command<CMD_LANDSCAPE_CLEAR>::Do(DoCommandFlag::Execute, best_position);
		cur_company.Restore();
		BuildObject(OBJECT_STATUE, best_position, _current_company, t);
		t->statues.Set(_current_company); // Once found and built, "inform" the Town.
		MarkTileDirtyByTile(best_position);
	}
	return CommandCost();
}

/**
 * Perform the "fund new buildings" town action.