tron@2186: /* $Id$ */
tron@2186: 
belugas@6449: /** @file clear_cmd.cpp */
belugas@6449: 
truelight@0: #include "stdafx.h"
Darkvater@1891: #include "openttd.h"
tron@3144: #include "clear_map.h"
rubidium@8612: #include "command_func.h"
rubidium@6486: #include "bridge.h"
maedhros@6669: #include "landscape.h"
tron@2153: #include "variables.h"
tron@3310: #include "unmovable_map.h"
truelight@4300: #include "genworld.h"
truelight@4328: #include "industry.h"
rubidium@7470: #include "water_map.h"
rubidium@8615: #include "tile_cmd.h"
rubidium@8627: #include "functions.h"
rubidium@8634: #include "economy_func.h"
rubidium@8760: #include "viewport_func.h"
rubidium@8766: #include "settings_type.h"
rubidium@8760: 
rubidium@8760: #include "table/strings.h"
rubidium@8760: #include "table/sprites.h"
rubidium@8706: #include "table/clear_land.h"
truelight@0: 
rubidium@7439: static CommandCost ClearTile_Clear(TileIndex tile, byte flags)
tron@1095: {
rubidium@7449: 	static const Money* clear_price_table[] = {
belugas@8473: 		&_price.clear_grass,
belugas@8473: 		&_price.clear_roughland,
belugas@8473: 		&_price.clear_rocks,
belugas@8473: 		&_price.clear_fields,
belugas@8473: 		&_price.clear_roughland,
belugas@8473: 		&_price.clear_roughland,
truelight@0: 	};
rubidium@8726: 	CommandCost price(EXPENSES_CONSTRUCTION);
tron@2955: 
rubidium@7446: 	if (!IsClearGround(tile, CLEAR_GRASS) || GetClearDensity(tile) != 0) {
rubidium@7446: 		price.AddCost(*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@2436: void DrawClearLandTile(const TileInfo *ti, byte set)
truelight@0: {
peter1138@5919: 	DrawGroundSprite(SPR_FLAT_BARE_LAND + _tileh_to_sprite[ti->tileh] + set * 19, PAL_NONE);
truelight@0: }
truelight@0: 
Darkvater@2436: void DrawHillyLandTile(const TileInfo *ti)
truelight@0: {
tron@3636: 	if (ti->tileh != SLOPE_FLAT) {
peter1138@5919: 		DrawGroundSprite(SPR_FLAT_ROUGH_LAND + _tileh_to_sprite[ti->tileh], PAL_NONE);
truelight@0: 	} else {
peter1138@5919: 		DrawGroundSprite(_landscape_clear_sprites[GB(ti->x ^ ti->y, 4, 3)], PAL_NONE);
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) {
peter1138@5919: 		DrawGroundSpriteAt(_clear_land_fence_sprites_1[GetFenceSW(ti->tile) - 1] + _fence_mod_by_tileh[ti->tileh], PAL_NONE, ti->x, ti->y, z);
truelight@0: 	}
truelight@0: 
tron@2979: 	if (GetFenceSE(ti->tile) != 0) {
peter1138@5919: 		DrawGroundSpriteAt(_clear_land_fence_sprites_1[GetFenceSE(ti->tile) - 1] + _fence_mod_by_tileh_2[ti->tileh], PAL_NONE, 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:
peter1138@5919: 			DrawGroundSprite(SPR_FLAT_ROCKY_LAND_1 + _tileh_to_sprite[ti->tileh], PAL_NONE);
tron@2955: 			break;
truelight@0: 
tron@3447: 		case CLEAR_FIELDS:
peter1138@5919: 			DrawGroundSprite(_clear_land_sprites_1[GetFieldType(ti->tile)] + _tileh_to_sprite[ti->tileh], PAL_NONE);
tron@2955: 			break;
truelight@0: 
tron@3447: 		case CLEAR_SNOW:
peter1138@5919: 			DrawGroundSprite(_clear_land_sprites_2[GetClearDensity(ti->tile)] + _tileh_to_sprite[ti->tileh], PAL_NONE);
tron@2955: 			break;
tron@2955: 
tron@3447: 		case CLEAR_DESERT:
peter1138@5919: 			DrawGroundSprite(_clear_land_sprites_3[GetClearDensity(ti->tile)] + _tileh_to_sprite[ti->tileh], PAL_NONE);
tron@2955: 			break;
truelight@0: 	}
truelight@193: 
tron@2220: 	DrawClearLandFence(ti);
celestar@5573: 	DrawBridgeMiddle(ti);
truelight@0: }
truelight@0: 
tron@4231: static uint GetSlopeZ_Clear(TileIndex tile, uint x, uint y)
tron@1095: {
tron@4231: 	uint z;
rubidium@5838: 	Slope tileh = GetTileSlope(tile, &z);
tron@4231: 
tron@4231: 	return z + GetPartialZ(x & 0xF, y & 0xF, tileh);
tron@1095: }
truelight@0: 
rubidium@7831: static Foundation GetFoundation_Clear(TileIndex tile, Slope tileh)
dominik@39: {
rubidium@7831: 	return FOUNDATION_NONE;
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: {
maedhros@6669: 	int k = GetTileZ(tile) - GetSnowLine() + 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) {
belugas@6683: 		case LT_TROPIC: TileLoopClearDesert(tile); break;
belugas@6683: 		case LT_ARCTIC: 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: 
truelight@4333: 			if (GetIndustryIndexOfField(tile) == INVALID_INDUSTRY && GetFieldType(tile) >= 7) {
truelight@4328: 				/* This farmfield is no longer farmfield, so make it grass again */
Darkvater@4815: 				MakeClear(tile, CLEAR_GRASS, 2);
truelight@4328: 			} else {
truelight@4328: 				field_type = GetFieldType(tile);
truelight@4328: 				field_type = (field_type < 8) ? field_type + 1 : 0;
truelight@4328: 				SetFieldType(tile, field_type);
truelight@4328: 			}
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: 
rubidium@6573: void GenerateClearTile()
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;
rubidium@7813: 					tile_new = tile + TileOffsByDiagDir((DiagDirection)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: 
frosch@9112: static TrackStatus GetTileTrackStatus_Clear(TileIndex tile, TransportType mode, uint sub_mode, DiagDirection side)
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: 
rubidium@6573: void InitializeClearLand()
tron@1093: {
celestar@3422: 	_opt.snow_line = _patches.snow_line_height * TILE_HEIGHT;
truelight@0: }
truelight@0: 
rubidium@7990: static CommandCost TerraformTile_Clear(TileIndex tile, uint32 flags, uint z_new, Slope tileh_new)
rubidium@7990: {
rubidium@7990: 	return DoCommand(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
rubidium@7990: }
rubidium@7990: 
rubidium@5838: extern const TileTypeProcs _tile_type_clear_procs = {
belugas@6449: 	DrawTile_Clear,           ///< draw_tile_proc
belugas@6449: 	GetSlopeZ_Clear,          ///< get_slope_z_proc
belugas@6449: 	ClearTile_Clear,          ///< clear_tile_proc
belugas@6449: 	GetAcceptedCargo_Clear,   ///< get_accepted_cargo_proc
belugas@6449: 	GetTileDesc_Clear,        ///< get_tile_desc_proc
belugas@6449: 	GetTileTrackStatus_Clear, ///< get_tile_track_status_proc
belugas@6449: 	ClickTile_Clear,          ///< click_tile_proc
belugas@6449: 	AnimateTile_Clear,        ///< animate_tile_proc
belugas@6449: 	TileLoop_Clear,           ///< tile_loop_clear
belugas@6449: 	ChangeTileOwner_Clear,    ///< change_tile_owner_clear
belugas@6449: 	NULL,                     ///< get_produced_cargo_proc
belugas@6449: 	NULL,                     ///< vehicle_enter_tile_proc
rubidium@7831: 	GetFoundation_Clear,      ///< get_foundation_proc
rubidium@7990: 	TerraformTile_Clear,      ///< terraform_tile_proc
truelight@0: };