tron@2186: /* $Id$ */
tron@2186: 
truelight@0: #include "stdafx.h"
Darkvater@1891: #include "openttd.h"
tron@3144: #include "clear_map.h"
tron@4041: #include "rail_map.h"
tron@507: #include "table/strings.h"
tron@2163: #include "functions.h"
tron@679: #include "map.h"
tron@2154: #include "player.h"
tron@1209: #include "tile.h"
truelight@0: #include "viewport.h"
truelight@0: #include "command.h"
tron@3156: #include "tunnel_map.h"
tron@2153: #include "variables.h"
tron@2517: #include "table/sprites.h"
tron@3310: #include "unmovable_map.h"
truelight@4300: #include "genworld.h"
truelight@0: 
truelight@0: typedef struct TerraformerHeightMod {
truelight@0: 	TileIndex tile;
truelight@0: 	byte height;
truelight@0: } TerraformerHeightMod;
truelight@0: 
truelight@0: typedef struct TerraformerState {
truelight@0: 	int height[4];
truelight@0: 	uint32 flags;
truelight@0: 
truelight@0: 	int direction;
truelight@0: 	int modheight_count;
truelight@0: 	int tile_table_count;
truelight@193: 
truelight@0: 	int32 cost;
truelight@0: 
truelight@0: 	TileIndex *tile_table;
truelight@0: 	TerraformerHeightMod *modheight;
truelight@0: 
truelight@0: } TerraformerState;
truelight@0: 
truelight@0: static int TerraformAllowTileProcess(TerraformerState *ts, TileIndex tile)
truelight@0: {
truelight@0: 	TileIndex *t;
truelight@0: 	int count;
truelight@0: 
tron@2639: 	if (TileX(tile) == MapMaxX() || TileY(tile) == MapMaxY()) return -1;
truelight@0: 
truelight@0: 	t = ts->tile_table;
tron@2639: 	for (count = ts->tile_table_count; count != 0; count--, t++) {
tron@2639: 		if (*t == tile) return 0;
truelight@0: 	}
truelight@0: 
truelight@0: 	return 1;
truelight@0: }
truelight@0: 
truelight@0: static int TerraformGetHeightOfTile(TerraformerState *ts, TileIndex tile)
truelight@0: {
truelight@0: 	TerraformerHeightMod *mod = ts->modheight;
truelight@0: 	int count;
truelight@193: 
tron@2639: 	for (count = ts->modheight_count; count != 0; count--, mod++) {
tron@2639: 		if (mod->tile == tile) return mod->height;
truelight@0: 	}
truelight@0: 
tron@1044: 	return TileHeight(tile);
truelight@0: }
truelight@0: 
truelight@0: static void TerraformAddDirtyTile(TerraformerState *ts, TileIndex tile)
truelight@0: {
truelight@0: 	int count;
truelight@0: 	TileIndex *t;
truelight@0: 
truelight@0: 	count = ts->tile_table_count;
truelight@0: 
tron@2639: 	if (count >= 625) return;
truelight@0: 
tron@2952: 	for (t = ts->tile_table; count != 0; count--,t++) {
tron@2639: 		if (*t == tile) return;
truelight@0: 	}
truelight@0: 
truelight@0: 	ts->tile_table[ts->tile_table_count++] = tile;
truelight@0: }
truelight@0: 
truelight@0: static void TerraformAddDirtyTileAround(TerraformerState *ts, TileIndex tile)
truelight@0: {
tron@1981: 	TerraformAddDirtyTile(ts, tile + TileDiffXY( 0, -1));
tron@1981: 	TerraformAddDirtyTile(ts, tile + TileDiffXY(-1, -1));
tron@1981: 	TerraformAddDirtyTile(ts, tile + TileDiffXY(-1,  0));
truelight@0: 	TerraformAddDirtyTile(ts, tile);
truelight@0: }
truelight@0: 
tron@4067: static int TerraformProc(TerraformerState *ts, TileIndex tile, int mode)
truelight@0: {
truelight@0: 	int r;
tron@4067: 	int32 ret;
truelight@0: 
tron@863: 	assert(tile < MapSize());
truelight@193: 
tron@4068: 	r = TerraformAllowTileProcess(ts, tile);
tron@4068: 	if (r <= 0) return r;
truelight@193: 
tron@4067: 	if (IsTileType(tile, MP_RAILWAY)) {
tron@4068: 		static const TrackBits safe_track[] = { TRACK_BIT_LOWER, TRACK_BIT_LEFT, TRACK_BIT_UPPER, TRACK_BIT_RIGHT };
tron@4068: 		static const Slope unsafe_slope[] = { SLOPE_S, SLOPE_W, SLOPE_N, SLOPE_E };
truelight@0: 
tron@4069: 		Slope tileh;
tron@4069: 		uint z;
tron@4069: 
tron@4067: 		// Nothing could be built at the steep slope - this avoids a bug
tron@4067: 		// when you have a single diagonal track in one corner on a
tron@4067: 		// basement and then you raise/lower the other corner.
tron@4069: 		tileh = GetTileSlope(tile, &z);
tron@4068: 		if (tileh == unsafe_slope[mode] ||
tron@4068: 				tileh == ComplementSlope(unsafe_slope[mode])) {
peter1138@2686: 			_terraform_err_tile = tile;
tron@4067: 			_error_message = STR_1008_MUST_REMOVE_RAILROAD_TRACK;
peter1138@2686: 			return -1;
peter1138@2686: 		}
peter1138@2686: 
tron@4067: 		// If we have a single diagonal track there, the other side of
tron@4067: 		// tile can be terraformed.
tron@4068: 		if (IsPlainRailTile(tile) && GetTrackBits(tile) == safe_track[mode]) {
tron@4069: 			/* If terraforming downwards prevent damaging a potential tunnel below.
tron@4069: 			 * This check is only necessary for flat tiles, because if the tile is
tron@4069: 			 * non-flat, then the corner opposing the rail is raised. Only this corner
tron@4069: 			 * can be lowered and this is a safe action
tron@4069: 			 */
tron@4069: 			if (tileh == SLOPE_FLAT &&
tron@4069: 					ts->direction == -1 &&
tron@4069: 					IsTunnelInWay(tile, z - TILE_HEIGHT)) {
tron@4069: 				_terraform_err_tile = tile;
tron@4069: 				_error_message = STR_1002_EXCAVATION_WOULD_DAMAGE;
tron@4069: 				return -1;
tron@4069: 			}
tron@4067: 			return 0;
tron@4067: 		}
truelight@0: 	}
truelight@0: 
tron@4067: 	ret = DoCommand(tile, 0,0, ts->flags & ~DC_EXEC, CMD_LANDSCAPE_CLEAR);
tron@4067: 
tron@4067: 	if (ret == CMD_ERROR) {
tron@4067: 		_terraform_err_tile = tile;
tron@4067: 		return -1;
tron@4067: 	}
tron@4067: 
tron@4067: 	ts->cost += ret;
tron@4067: 
tron@2639: 	if (ts->tile_table_count >= 625) return -1;
truelight@0: 	ts->tile_table[ts->tile_table_count++] = tile;
truelight@0: 
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
tron@1977: static bool TerraformTileHeight(TerraformerState *ts, TileIndex tile, int height)
truelight@0: {
truelight@0: 	int nh;
truelight@0: 	TerraformerHeightMod *mod;
truelight@0: 	int count;
truelight@193: 
tron@863: 	assert(tile < MapSize());
truelight@0: 
truelight@0: 	if (height < 0) {
truelight@0: 		_error_message = STR_1003_ALREADY_AT_SEA_LEVEL;
truelight@0: 		return false;
truelight@0: 	}
truelight@0: 
truelight@0: 	_error_message = STR_1004_TOO_HIGH;
truelight@0: 
tron@2639: 	if (height > 15) return false;
truelight@193: 
truelight@0: 	nh = TerraformGetHeightOfTile(ts, tile);
tron@2639: 	if (nh < 0 || height == nh) return false;
truelight@193: 
tron@4067: 	if (TerraformProc(ts, tile, 0) < 0) return false;
tron@4067: 	if (TerraformProc(ts, tile + TileDiffXY( 0, -1), 1) < 0) return false;
tron@4067: 	if (TerraformProc(ts, tile + TileDiffXY(-1, -1), 2) < 0) return false;
tron@4067: 	if (TerraformProc(ts, tile + TileDiffXY(-1,  0), 3) < 0) return false;
truelight@0: 
truelight@0: 	mod = ts->modheight;
truelight@0: 	count = ts->modheight_count;
truelight@0: 
tron@2639: 	for (;;) {
truelight@0: 		if (count == 0) {
tron@4000: 			if (ts->modheight_count >= 576) return false;
truelight@0: 			ts->modheight_count++;
truelight@0: 			break;
truelight@0: 		}
tron@1986: 		if (mod->tile == tile) break;
truelight@0: 		mod++;
truelight@0: 		count--;
truelight@0: 	}
truelight@0: 
tron@1986: 	mod->tile = tile;
truelight@0: 	mod->height = (byte)height;
truelight@0: 
truelight@0: 	ts->cost += _price.terraform;
truelight@0: 
truelight@0: 	{
truelight@0: 		int direction = ts->direction, r;
tron@909: 		const TileIndexDiffC *ttm;
truelight@0: 
tron@909: 		static const TileIndexDiffC _terraform_tilepos[] = {
tron@909: 			{ 1,  0},
tron@909: 			{-2,  0},
tron@909: 			{ 1,  1},
tron@909: 			{ 0, -2}
tron@909: 		};
truelight@0: 
tron@2952: 		for (ttm = _terraform_tilepos; ttm != endof(_terraform_tilepos); ttm++) {
tron@909: 			tile += ToTileIndexDiff(*ttm);
truelight@0: 
truelight@0: 			r = TerraformGetHeightOfTile(ts, tile);
truelight@0: 			if (r != height && r-direction != height && r+direction != height) {
truelight@0: 				if (!TerraformTileHeight(ts, tile, r+direction))
truelight@0: 					return false;
truelight@0: 			}
truelight@0: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	return true;
truelight@0: }
truelight@0: 
Darkvater@1775: /** Terraform land
tron@3491:  * @param tile tile to terraform
Darkvater@1782:  * @param p1 corners to terraform.
Darkvater@1775:  * @param p2 direction; eg up or down
truelight@0:  */
tron@3491: int32 CmdTerraformLand(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	TerraformerState ts;
tron@4000: 	TileIndex t;
truelight@0: 	int direction;
truelight@0: 
truelight@0: 	TerraformerHeightMod modheight_data[576];
truelight@0: 	TileIndex tile_table_data[625];
truelight@0: 
truelight@0: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@0: 
truelight@0: 	_terraform_err_tile = 0;
truelight@0: 
truelight@0: 	ts.direction = direction = p2 ? 1 : -1;
truelight@0: 	ts.flags = flags;
truelight@0: 	ts.modheight_count = ts.tile_table_count = 0;
truelight@0: 	ts.cost = 0;
truelight@0: 	ts.modheight = modheight_data;
truelight@0: 	ts.tile_table = tile_table_data;
truelight@0: 
Darkvater@1878: 	/* Make an extra check for map-bounds cause we add tiles to the originating tile */
tron@2934: 	if (tile + TileDiffXY(1, 1) >= MapSize()) return CMD_ERROR;
Darkvater@1878: 
truelight@0: 	if (p1 & 1) {
tron@4000: 		t = tile + TileDiffXY(1, 0);
tron@4000: 		if (!TerraformTileHeight(&ts, t, TileHeight(t) + direction)) {
tron@4000: 			return CMD_ERROR;
tron@4000: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	if (p1 & 2) {
tron@4000: 		t = tile + TileDiffXY(1, 1);
tron@4000: 		if (!TerraformTileHeight(&ts, t, TileHeight(t) + direction)) {
tron@4000: 			return CMD_ERROR;
tron@4000: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	if (p1 & 4) {
tron@4000: 		t = tile + TileDiffXY(0, 1);
tron@4000: 		if (!TerraformTileHeight(&ts, t, TileHeight(t) + direction)) {
tron@4000: 			return CMD_ERROR;
tron@4000: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	if (p1 & 8) {
tron@4000: 		t = tile + TileDiffXY(0, 0);
tron@4000: 		if (!TerraformTileHeight(&ts, t, TileHeight(t) + direction)) {
tron@4000: 			return CMD_ERROR;
tron@4000: 		}
truelight@0: 	}
truelight@0: 
tron@4067: 	if (direction == -1) {
tron@4067: 		/* Check if tunnel would take damage */
truelight@0: 		int count;
truelight@0: 		TileIndex *ti = ts.tile_table;
truelight@193: 
Darkvater@1775: 		for (count = ts.tile_table_count; count != 0; count--, ti++) {
tron@4067: 			uint z, t;
tron@1977: 			TileIndex tile = *ti;
truelight@0: 
tron@4067: 			z = TerraformGetHeightOfTile(&ts, tile + TileDiffXY(0, 0));
tron@4067: 			t = TerraformGetHeightOfTile(&ts, tile + TileDiffXY(1, 0));
tron@4067: 			if (t <= z) z = t;
tron@4067: 			t = TerraformGetHeightOfTile(&ts, tile + TileDiffXY(1, 1));
tron@4067: 			if (t <= z) z = t;
tron@4067: 			t = TerraformGetHeightOfTile(&ts, tile + TileDiffXY(0, 1));
tron@4067: 			if (t <= z) z = t;
celestar@3279: 
tron@4067: 			if (IsTunnelInWay(tile, z * TILE_HEIGHT)) {
tron@4067: 				return_cmd_error(STR_1002_EXCAVATION_WOULD_DAMAGE);
tron@2639: 			}
truelight@0: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		/* Clear the landscape at the tiles */
truelight@0: 		{
truelight@0: 			int count;
truelight@0: 			TileIndex *ti = ts.tile_table;
Darkvater@1775: 			for (count = ts.tile_table_count; count != 0; count--, ti++) {
tron@3491: 				DoCommand(*ti, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
truelight@0: 			}
truelight@193: 		}
truelight@0: 
truelight@0: 		/* change the height */
truelight@0: 		{
truelight@0: 			int count;
truelight@0: 			TerraformerHeightMod *mod;
truelight@0: 
truelight@0: 			mod = ts.modheight;
Darkvater@1775: 			for (count = ts.modheight_count; count != 0; count--, mod++) {
tron@1979: 				TileIndex til = mod->tile;
truelight@193: 
tron@1059: 				SetTileHeight(til, mod->height);
truelight@0: 				TerraformAddDirtyTileAround(&ts, til);
truelight@0: 			}
truelight@0: 		}
truelight@0: 
truelight@0: 		/* finally mark the dirty tiles dirty */
truelight@0: 		{
truelight@0: 			int count;
truelight@0: 			TileIndex *ti = ts.tile_table;
Darkvater@1775: 			for (count = ts.tile_table_count; count != 0; count--, ti++) {
truelight@0: 				MarkTileDirtyByTile(*ti);
truelight@0: 			}
truelight@193: 		}
truelight@0: 	}
truelight@0: 	return ts.cost;
truelight@0: }
truelight@0: 
truelight@0: 
Darkvater@1796: /** Levels a selected (rectangle) area of land
tron@3491:  * @param tile end tile of area-drag
Darkvater@1796:  * @param p1 start tile of area drag
Darkvater@1796:  * @param p2 unused
truelight@0:  */
tron@3491: int32 CmdLevelLand(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	int size_x, size_y;
tron@3491: 	int ex;
tron@3491: 	int ey;
truelight@0: 	int sx, sy;
truelight@0: 	uint h, curh;
truelight@0: 	int32 ret, cost, money;
truelight@0: 
tron@2934: 	if (p1 >= MapSize()) return CMD_ERROR;
Darkvater@1796: 
darkvater@889: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
darkvater@889: 
truelight@0: 	// remember level height
tron@1044: 	h = TileHeight(p1);
truelight@0: 
truelight@0: 	// make sure sx,sy are smaller than ex,ey
tron@3491: 	ex = TileX(tile);
tron@3491: 	ey = TileY(tile);
tron@926: 	sx = TileX(p1);
tron@926: 	sy = TileY(p1);
truelight@0: 	if (ex < sx) intswap(ex, sx);
truelight@0: 	if (ey < sy) intswap(ey, sy);
tron@1981: 	tile = TileXY(sx, sy);
truelight@0: 
truelight@0: 	size_x = ex-sx+1;
truelight@0: 	size_y = ey-sy+1;
truelight@0: 
truelight@0: 	money = GetAvailableMoneyForCommand();
truelight@0: 	cost = 0;
truelight@0: 
Darkvater@1796: 	BEGIN_TILE_LOOP(tile2, size_x, size_y, tile) {
tron@1044: 		curh = TileHeight(tile2);
truelight@0: 		while (curh != h) {
tron@3491: 			ret = DoCommand(tile2, 8, (curh > h) ? 0 : 1, flags & ~DC_EXEC, CMD_TERRAFORM_LAND);
Darkvater@1796: 			if (CmdFailed(ret)) break;
truelight@0: 			cost += ret;
truelight@0: 
truelight@0: 			if (flags & DC_EXEC) {
truelight@0: 				if ((money -= ret) < 0) {
truelight@0: 					_additional_cash_required = ret;
truelight@0: 					return cost - ret;
truelight@0: 				}
tron@3491: 				DoCommand(tile2, 8, (curh > h) ? 0 : 1, flags, CMD_TERRAFORM_LAND);
truelight@0: 			}
truelight@0: 
truelight@0: 			curh += (curh > h) ? -1 : 1;
truelight@0: 		}
Darkvater@1796: 	} END_TILE_LOOP(tile2, size_x, size_y, tile)
truelight@0: 
Darkvater@1796: 	return (cost == 0) ? CMD_ERROR : cost;
truelight@0: }
truelight@0: 
Darkvater@1782: /** Purchase a land area. Actually you only purchase one tile, so
Darkvater@1782:  * the name is a bit confusing ;p
tron@3491:  * @param tile the tile the player is purchasing
Darkvater@1782:  * @param p1 unused
Darkvater@1782:  * @param p2 unused
truelight@0:  */
tron@3491: int32 CmdPurchaseLandArea(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	int32 cost;
truelight@193: 
truelight@0: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@193: 
Darkvater@1782: 	if (!EnsureNoVehicle(tile)) return CMD_ERROR;
truelight@0: 
tron@3310: 	if (IsOwnedLandTile(tile) && IsTileOwner(tile, _current_player)) {
truelight@0: 		return_cmd_error(STR_5807_YOU_ALREADY_OWN_IT);
tron@3310: 	}
truelight@0: 
tron@3491: 	cost = DoCommand(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
Darkvater@1782: 	if (CmdFailed(cost)) return CMD_ERROR;
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
tron@3310: 		MakeOwnedLand(tile, _current_player);
tron@3310: 		MarkTileDirtyByTile(tile);
truelight@0: 	}
truelight@0: 
truelight@0: 	return cost + _price.purchase_land * 10;
truelight@0: }
truelight@0: 
truelight@0: 
tron@1977: static int32 ClearTile_Clear(TileIndex tile, byte flags)
tron@1095: {
tron@2220: 	static const int32* clear_price_table[] = {
tron@2220: 		&_price.clear_1,
tron@2220: 		&_price.purchase_land,
tron@2220: 		&_price.clear_2,
tron@2220: 		&_price.clear_3,
tron@2220: 		&_price.purchase_land,
tron@2220: 		&_price.purchase_land,
tron@2955: 		&_price.clear_2, // XXX unused?
truelight@0: 	};
tron@2955: 	int32 price;
tron@2955: 
tron@3447: 	if (IsClearGround(tile, CLEAR_GRASS) && GetClearDensity(tile) == 0) {
tron@2955: 		price = 0;
tron@2955: 	} else {
tron@2955: 		price = *clear_price_table[GetClearGround(tile)];
tron@2955: 	}
truelight@0: 
tron@2220: 	if (flags & DC_EXEC) DoClearSquare(tile);
truelight@0: 
tron@2955: 	return price;
truelight@0: }
truelight@0: 
Darkvater@1782: /** Sell a land area. Actually you only sell one tile, so
Darkvater@1782:  * the name is a bit confusing ;p
tron@3491:  * @param tile the tile the player is selling
Darkvater@1782:  * @param p1 unused
Darkvater@1782:  * @param p2 unused
Darkvater@1782:  */
tron@3491: int32 CmdSellLandArea(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@0: 
tron@3310: 	if (!IsOwnedLandTile(tile)) return CMD_ERROR;
Darkvater@1878: 	if (!CheckTileOwnership(tile) && _current_player != OWNER_WATER) return CMD_ERROR;
Darkvater@1878: 
truelight@0: 
Darkvater@1782: 	if (!EnsureNoVehicle(tile)) return CMD_ERROR;
truelight@0: 
tron@4000: 	if (flags & DC_EXEC) DoClearSquare(tile);
truelight@0: 
Darkvater@1782: 	return - _price.purchase_land * 2;
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: #include "table/clear_land.h"
truelight@0: 
truelight@0: 
Darkvater@2436: void DrawClearLandTile(const TileInfo *ti, byte set)
truelight@0: {
tron@2517: 	DrawGroundSprite(SPR_FLAT_BARE_LAND + _tileh_to_sprite[ti->tileh] + set * 19);
truelight@0: }
truelight@0: 
Darkvater@2436: void DrawHillyLandTile(const TileInfo *ti)
truelight@0: {
tron@3636: 	if (ti->tileh != SLOPE_FLAT) {
tron@2517: 		DrawGroundSprite(SPR_FLAT_ROUGH_LAND + _tileh_to_sprite[ti->tileh]);
truelight@0: 	} else {
tron@2140: 		DrawGroundSprite(_landscape_clear_sprites[GB(ti->x ^ ti->y, 4, 3)]);
truelight@0: 	}
truelight@0: }
truelight@0: 
tron@2220: void DrawClearLandFence(const TileInfo *ti)
truelight@0: {
truelight@0: 	byte z = ti->z;
truelight@193: 
tron@3636: 	if (ti->tileh & SLOPE_S) {
tron@3645: 		z += TILE_HEIGHT;
tron@3645: 		if (ti->tileh == SLOPE_STEEP_S) z += TILE_HEIGHT;
truelight@0: 	}
truelight@0: 
tron@2979: 	if (GetFenceSW(ti->tile) != 0) {
tron@2979: 		DrawGroundSpriteAt(_clear_land_fence_sprites_1[GetFenceSW(ti->tile) - 1] + _fence_mod_by_tileh[ti->tileh], ti->x, ti->y, z);
truelight@0: 	}
truelight@0: 
tron@2979: 	if (GetFenceSE(ti->tile) != 0) {
tron@2979: 		DrawGroundSpriteAt(_clear_land_fence_sprites_1[GetFenceSE(ti->tile) - 1] + _fence_mod_by_tileh_2[ti->tileh], ti->x, ti->y, z);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: static void DrawTile_Clear(TileInfo *ti)
truelight@0: {
tron@3166: 	switch (GetClearGround(ti->tile)) {
tron@3447: 		case CLEAR_GRASS:
tron@3166: 			DrawClearLandTile(ti, GetClearDensity(ti->tile));
tron@2955: 			break;
truelight@0: 
tron@3447: 		case CLEAR_ROUGH:
tron@2955: 			DrawHillyLandTile(ti);
tron@2955: 			break;
truelight@0: 
tron@3447: 		case CLEAR_ROCKS:
tron@2955: 			DrawGroundSprite(SPR_FLAT_ROCKY_LAND_1 + _tileh_to_sprite[ti->tileh]);
tron@2955: 			break;
truelight@0: 
tron@3447: 		case CLEAR_FIELDS:
tron@2979: 			DrawGroundSprite(_clear_land_sprites_1[GetFieldType(ti->tile)] + _tileh_to_sprite[ti->tileh]);
tron@2955: 			break;
truelight@0: 
tron@3447: 		case CLEAR_SNOW:
tron@3166: 			DrawGroundSprite(_clear_land_sprites_2[GetClearDensity(ti->tile)] + _tileh_to_sprite[ti->tileh]);
tron@2955: 			break;
tron@2955: 
tron@3447: 		case CLEAR_DESERT:
tron@3166: 			DrawGroundSprite(_clear_land_sprites_3[GetClearDensity(ti->tile)] + _tileh_to_sprite[ti->tileh]);
tron@2955: 			break;
truelight@0: 	}
truelight@193: 
tron@2220: 	DrawClearLandFence(ti);
truelight@0: }
truelight@0: 
tron@4231: static uint GetSlopeZ_Clear(TileIndex tile, uint x, uint y)
tron@1095: {
tron@4231: 	uint z;
tron@4231: 	uint tileh = GetTileSlope(tile, &z);
tron@4231: 
tron@4231: 	return z + GetPartialZ(x & 0xF, y & 0xF, tileh);
tron@1095: }
truelight@0: 
tron@3636: static Slope GetSlopeTileh_Clear(TileIndex tile, Slope tileh)
dominik@39: {
tron@3418: 	return tileh;
dominik@39: }
dominik@39: 
tron@1977: static void GetAcceptedCargo_Clear(TileIndex tile, AcceptedCargo ac)
truelight@0: {
truelight@193: 	/* unused */
truelight@0: }
truelight@0: 
tron@1977: static void AnimateTile_Clear(TileIndex tile)
truelight@0: {
truelight@0: 	/* unused */
truelight@0: }
truelight@0: 
tron@1293: void TileLoopClearHelper(TileIndex tile)
truelight@0: {
tron@2221: 	byte self;
tron@2221: 	byte neighbour;
tron@1293: 	TileIndex dirty = INVALID_TILE;
truelight@0: 
tron@3447: 	self = (IsTileType(tile, MP_CLEAR) && IsClearGround(tile, CLEAR_FIELDS));
truelight@0: 
tron@3447: 	neighbour = (IsTileType(TILE_ADDXY(tile, 1, 0), MP_CLEAR) && IsClearGround(TILE_ADDXY(tile, 1, 0), CLEAR_FIELDS));
tron@2979: 	if (GetFenceSW(tile) == 0) {
tron@2221: 		if (self != neighbour) {
tron@2979: 			SetFenceSW(tile, 3);
truelight@0: 			dirty = tile;
truelight@193: 		}
truelight@0: 	} else {
tron@2221: 		if (self == 0 && neighbour == 0) {
tron@2979: 			SetFenceSW(tile, 0);
truelight@0: 			dirty = tile;
truelight@0: 		}
truelight@0: 	}
truelight@0: 
tron@3447: 	neighbour = (IsTileType(TILE_ADDXY(tile, 0, 1), MP_CLEAR) && IsClearGround(TILE_ADDXY(tile, 0, 1), CLEAR_FIELDS));
tron@2979: 	if (GetFenceSE(tile) == 0) {
tron@2221: 		if (self != neighbour) {
tron@2979: 			SetFenceSE(tile, 3);
truelight@0: 			dirty = tile;
truelight@193: 		}
truelight@0: 	} else {
tron@2221: 		if (self == 0 && neighbour == 0) {
tron@2979: 			SetFenceSE(tile, 0);
truelight@0: 			dirty = tile;
truelight@0: 		}
truelight@0: 	}
truelight@0: 
tron@2221: 	if (dirty != INVALID_TILE) MarkTileDirtyByTile(dirty);
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: /* convert into snowy tiles */
tron@1977: static void TileLoopClearAlps(TileIndex tile)
truelight@0: {
tron@4157: 	int k = GetTileZ(tile) - _opt.snow_line + TILE_HEIGHT;
truelight@193: 
tron@4157: 	if (k < 0) { // well below the snow line
tron@3447: 		if (!IsClearGround(tile, CLEAR_SNOW)) return;
tron@3447: 		if (GetClearDensity(tile) == 0) SetClearGroundDensity(tile, CLEAR_GRASS, 3);
truelight@0: 	} else {
tron@3447: 		if (!IsClearGround(tile, CLEAR_SNOW)) {
tron@3447: 			SetClearGroundDensity(tile, CLEAR_SNOW, 0);
tron@2955: 		} else {
tron@4157: 			uint density = min((uint)k / TILE_HEIGHT, 3);
tron@2955: 
tron@2955: 			if (GetClearDensity(tile) < density) {
tron@2955: 				AddClearDensity(tile, 1);
tron@2955: 			} else if (GetClearDensity(tile) > density) {
tron@2955: 				AddClearDensity(tile, -1);
tron@2955: 			} else {
tron@2955: 				return;
tron@2955: 			}
tron@2955: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	MarkTileDirtyByTile(tile);
truelight@0: }
truelight@0: 
tron@1977: static void TileLoopClearDesert(TileIndex tile)
truelight@0: {
tron@3447: 	if (IsClearGround(tile, CLEAR_DESERT)) return;
truelight@0: 
belugas@3379: 	if (GetTropicZone(tile) == TROPICZONE_DESERT) {
tron@3447: 		SetClearGroundDensity(tile, CLEAR_DESERT, 3);
truelight@0: 	} else {
belugas@3379: 		if (GetTropicZone(tile + TileDiffXY( 1,  0)) != TROPICZONE_DESERT &&
belugas@3379: 				GetTropicZone(tile + TileDiffXY(-1,  0)) != TROPICZONE_DESERT &&
belugas@3379: 				GetTropicZone(tile + TileDiffXY( 0,  1)) != TROPICZONE_DESERT &&
belugas@3379: 				GetTropicZone(tile + TileDiffXY( 0, -1)) != TROPICZONE_DESERT)
tron@1981: 			return;
tron@3447: 		SetClearGroundDensity(tile, CLEAR_DESERT, 1);
truelight@0: 	}
truelight@0: 
truelight@0: 	MarkTileDirtyByTile(tile);
truelight@0: }
truelight@0: 
tron@1977: static void TileLoop_Clear(TileIndex tile)
truelight@0: {
truelight@0: 	TileLoopClearHelper(tile);
truelight@193: 
tron@2989: 	switch (_opt.landscape) {
tron@2989: 		case LT_DESERT: TileLoopClearDesert(tile); break;
tron@2989: 		case LT_HILLY:  TileLoopClearAlps(tile);   break;
truelight@0: 	}
truelight@0: 
tron@2955: 	switch (GetClearGround(tile)) {
tron@3447: 		case CLEAR_GRASS:
tron@2955: 			if (GetClearDensity(tile) == 3) return;
truelight@193: 
tron@2955: 			if (_game_mode != GM_EDITOR) {
tron@2955: 				if (GetClearCounter(tile) < 7) {
tron@2955: 					AddClearCounter(tile, 1);
tron@2955: 					return;
tron@2955: 				} else {
tron@2955: 					SetClearCounter(tile, 0);
tron@2955: 					AddClearDensity(tile, 1);
tron@2955: 				}
tron@2955: 			} else {
tron@3447: 				SetClearGroundDensity(tile, GB(Random(), 0, 8) > 21 ? CLEAR_GRASS : CLEAR_ROUGH, 3);
truelight@0: 			}
tron@2955: 			break;
tron@2955: 
tron@3447: 		case CLEAR_FIELDS: {
tron@2955: 			uint field_type;
tron@2955: 
tron@2955: 			if (_game_mode == GM_EDITOR) return;
tron@2955: 
tron@2955: 			if (GetClearCounter(tile) < 7) {
tron@2955: 				AddClearCounter(tile, 1);
tron@2955: 				return;
tron@2955: 			} else {
tron@2955: 				SetClearCounter(tile, 0);
tron@2955: 			}
tron@2955: 
tron@2979: 			field_type = GetFieldType(tile);
tron@2955: 			field_type = (field_type < 8) ? field_type + 1 : 0;
tron@2979: 			SetFieldType(tile, field_type);
tron@2955: 			break;
truelight@0: 		}
tron@2955: 
tron@2955: 		default:
truelight@0: 			return;
truelight@0: 	}
truelight@0: 
truelight@0: 	MarkTileDirtyByTile(tile);
truelight@0: }
truelight@0: 
tron@1093: void GenerateClearTile(void)
truelight@0: {
truelight@4300: 	uint i, gi;
tron@1977: 	TileIndex tile;
truelight@0: 
truelight@4300: 	/* add rough tiles */
tron@2635: 	i = ScaleByMapSize(GB(Random(), 0, 10) + 0x400);
truelight@4300: 	gi = ScaleByMapSize(GB(Random(), 0, 7) + 0x80);
truelight@4300: 
truelight@4300: 	SetGeneratingWorldProgress(GWP_ROUGH_ROCKY, gi + i);
truelight@0: 	do {
truelight@4300: 		IncreaseGeneratingWorldProgress(GWP_ROUGH_ROCKY);
ludde@2051: 		tile = RandomTile();
truelight@4300: 		if (IsTileType(tile, MP_CLEAR) && !IsClearGround(tile, CLEAR_DESERT)) SetClearGroundDensity(tile, CLEAR_ROUGH, 3);
truelight@0: 	} while (--i);
truelight@0: 
truelight@4300: 	/* add rocky tiles */
truelight@4300: 	i = gi;
truelight@0: 	do {
tron@2150: 		uint32 r = Random();
ludde@2051: 		tile = RandomTileSeed(r);
truelight@4300: 
truelight@4300: 		IncreaseGeneratingWorldProgress(GWP_ROUGH_ROCKY);
truelight@4300: 		if (IsTileType(tile, MP_CLEAR) && !IsClearGround(tile, CLEAR_DESERT)) {
tron@2150: 			uint j = GB(r, 16, 4) + 5;
tron@2951: 			for (;;) {
tron@1977: 				TileIndex tile_new;
tron@1977: 
tron@3447: 				SetClearGroundDensity(tile, CLEAR_ROCKS, 3);
truelight@0: 				do {
truelight@0: 					if (--j == 0) goto get_out;
tron@2635: 					tile_new = tile + TileOffsByDir(GB(Random(), 0, 2));
truelight@4300: 				} while (!IsTileType(tile_new, MP_CLEAR) || IsClearGround(tile_new, CLEAR_DESERT));
truelight@0: 				tile = tile_new;
truelight@0: 			}
truelight@0: get_out:;
truelight@0: 		}
truelight@0: 	} while (--i);
truelight@0: }
truelight@0: 
tron@1977: static void ClickTile_Clear(TileIndex tile)
truelight@0: {
truelight@0: 	/* not used */
truelight@0: }
truelight@0: 
tron@1977: static uint32 GetTileTrackStatus_Clear(TileIndex tile, TransportType mode)
truelight@0: {
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
tron@2220: static const StringID _clear_land_str[] = {
tron@2955: 	STR_080D_GRASS,
truelight@0: 	STR_080B_ROUGH_LAND,
truelight@0: 	STR_080A_ROCKS,
truelight@0: 	STR_080E_FIELDS,
truelight@0: 	STR_080F_SNOW_COVERED_LAND,
tron@2955: 	STR_0810_DESERT
truelight@0: };
truelight@0: 
tron@1977: static void GetTileDesc_Clear(TileIndex tile, TileDesc *td)
truelight@0: {
tron@3447: 	if (IsClearGround(tile, CLEAR_GRASS) && GetClearDensity(tile) == 0) {
tron@2955: 		td->str = STR_080C_BARE_LAND;
tron@2955: 	} else {
tron@2955: 		td->str = _clear_land_str[GetClearGround(tile)];
tron@2955: 	}
tron@1901: 	td->owner = GetTileOwner(tile);
truelight@0: }
truelight@0: 
Darkvater@2436: static void ChangeTileOwner_Clear(TileIndex tile, PlayerID old_player, PlayerID new_player)
truelight@0: {
truelight@0: 	return;
truelight@0: }
truelight@0: 
tron@1093: void InitializeClearLand(void)
tron@1093: {
celestar@3422: 	_opt.snow_line = _patches.snow_line_height * TILE_HEIGHT;
truelight@0: }
truelight@0: 
truelight@0: const TileTypeProcs _tile_type_clear_procs = {
truelight@0: 	DrawTile_Clear,						/* draw_tile_proc */
truelight@0: 	GetSlopeZ_Clear,					/* get_slope_z_proc */
truelight@0: 	ClearTile_Clear,					/* clear_tile_proc */
truelight@0: 	GetAcceptedCargo_Clear,		/* get_accepted_cargo_proc */
truelight@0: 	GetTileDesc_Clear,				/* get_tile_desc_proc */
truelight@0: 	GetTileTrackStatus_Clear,	/* get_tile_track_status_proc */
truelight@0: 	ClickTile_Clear,					/* click_tile_proc */
truelight@0: 	AnimateTile_Clear,				/* animate_tile_proc */
truelight@0: 	TileLoop_Clear,						/* tile_loop_clear */
truelight@0: 	ChangeTileOwner_Clear,		/* change_tile_owner_clear */
truelight@0: 	NULL,											/* get_produced_cargo_proc */
truelight@0: 	NULL,											/* vehicle_enter_tile_proc */
dominik@39: 	GetSlopeTileh_Clear,			/* get_slope_tileh_proc */
truelight@0: };