tron@2186: /* $Id$ */
tron@2186: 
truelight@0: #include "stdafx.h"
Darkvater@1891: #include "openttd.h"
tron@2163: #include "functions.h"
tron@679: #include "map.h"
tron@2154: #include "player.h"
tron@1349: #include "spritecache.h"
tron@1363: #include "table/sprites.h"
tron@1209: #include "tile.h"
truelight@0: #include <stdarg.h>
truelight@0: #include "viewport.h"
truelight@0: #include "command.h"
truelight@0: #include "vehicle.h"
tron@2159: #include "variables.h"
truelight@0: 
truelight@183: extern const TileTypeProcs
truelight@0: 	_tile_type_clear_procs,
truelight@0: 	_tile_type_rail_procs,
truelight@0: 	_tile_type_road_procs,
truelight@0: 	_tile_type_town_procs,
truelight@0: 	_tile_type_trees_procs,
truelight@0: 	_tile_type_station_procs,
truelight@0: 	_tile_type_water_procs,
truelight@0: 	_tile_type_dummy_procs,
truelight@0: 	_tile_type_industry_procs,
truelight@0: 	_tile_type_tunnelbridge_procs,
truelight@0: 	_tile_type_unmovable_procs;
truelight@0: 
truelight@0: const TileTypeProcs * const _tile_type_procs[16] = {
truelight@0: 	&_tile_type_clear_procs,
truelight@0: 	&_tile_type_rail_procs,
truelight@0: 	&_tile_type_road_procs,
truelight@0: 	&_tile_type_town_procs,
truelight@0: 	&_tile_type_trees_procs,
truelight@0: 	&_tile_type_station_procs,
truelight@0: 	&_tile_type_water_procs,
truelight@0: 	&_tile_type_dummy_procs,
truelight@0: 	&_tile_type_industry_procs,
truelight@0: 	&_tile_type_tunnelbridge_procs,
truelight@0: 	&_tile_type_unmovable_procs,
truelight@0: };
truelight@0: 
truelight@0: /* landscape slope => sprite */
truelight@0: const byte _tileh_to_sprite[32] = {
truelight@0: 	0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,0,
truelight@0: 	0,0,0,0,0,0,0,16,0,0,0,17,0,15,18,0,
truelight@0: };
truelight@0: 
tron@1958: const byte _inclined_tileh[] = {
tron@1958: 	3, 9, 3, 6, 12, 6, 12, 9
tron@1958: };
tron@1958: 
truelight@0: 
tron@1193: void FindLandscapeHeightByTile(TileInfo *ti, TileIndex tile)
truelight@0: {
tron@1193: 	assert(tile < MapSize());
truelight@0: 
truelight@0: 	ti->tile = tile;
tron@2049: 	ti->map5 = _m[tile].m5;
tron@1214: 	ti->type = GetTileType(tile);
truelight@0: 	ti->tileh = GetTileSlope(tile, &ti->z);
truelight@0: }
truelight@0: 
truelight@0: /* find the landscape height for the coordinates x y */
truelight@0: void FindLandscapeHeight(TileInfo *ti, uint x, uint y)
truelight@0: {
truelight@0: 	ti->x = x;
truelight@0: 	ti->y = y;
truelight@0: 
tron@856: 	if (x >= MapMaxX() * 16 - 1 || y >= MapMaxY() * 16 - 1) {
truelight@0: 		ti->tileh = 0;
dominik@925: 		ti->type = MP_VOID;
truelight@0: 		ti->tile = 0;
truelight@0: 		ti->map5 = 0;
truelight@0: 		ti->z = 0;
truelight@0: 		return;
truelight@0: 	}
truelight@0: 
tron@1980: 	FindLandscapeHeightByTile(ti, TileVirtXY(x, y));
truelight@0: }
truelight@0: 
truelight@0: uint GetPartialZ(int x, int y, int corners)
truelight@0: {
truelight@0: 	int z = 0;
truelight@0: 
truelight@0: 	switch(corners) {
truelight@0: 	case 1:
truelight@0: 		if (x - y >= 0)
truelight@0: 			z = (x - y) >> 1;
truelight@0: 		break;
truelight@183: 
truelight@0: 	case 2:
truelight@0: 		y^=0xF;
truelight@0: 		if ( (x - y) >= 0)
truelight@0: 			z = (x - y) >> 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 3:
truelight@0: 		z = (x>>1) + 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 4:
truelight@0: 		if (y - x >= 0)
truelight@0: 			z = (y - x) >> 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 5:
truelight@0: 	case 10:
truelight@0: 	case 15:
truelight@0: 		z = 4;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 6:
truelight@0: 		z = (y>>1) + 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 7:
truelight@0: 		z = 8;
truelight@0: 		y^=0xF;
truelight@0: 		if (x - y < 0)
truelight@0: 			z += (x - y) >> 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 8:
truelight@0: 		y ^= 0xF;
truelight@0: 		if (y - x >= 0)
truelight@0: 			z = (y - x) >> 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 9:
truelight@0: 		z = (y^0xF)>>1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 11:
truelight@0: 		z = 8;
truelight@0: 		if (x - y < 0)
truelight@0: 			z += (x - y) >> 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 12:
truelight@0: 		z = (x^0xF)>>1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 13:
truelight@0: 		z = 8;
truelight@0: 		y ^= 0xF;
truelight@0: 		if (y - x < 0)
truelight@0: 			z += (y - x) >> 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 14:
truelight@0: 		z = 8;
truelight@0: 		if (y - x < 0)
truelight@0: 			z += (y - x) >> 1;
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 23:
truelight@0: 		z = 1 + ((x+y)>>1);
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 27:
truelight@0: 		z = 1 + ((x+(y^0xF))>>1);
truelight@0: 		break;
truelight@0: 
truelight@0: 	case 29:
truelight@0: 		z = 1 + (((x^0xF)+(y^0xF))>>1);
truelight@0: 		break;
truelight@183: 
truelight@0: 	case 30:
truelight@0: 		z = 1 + (((x^0xF)+(y^0xF))>>1);
truelight@0: 		break;
truelight@0: 	}
truelight@0: 
truelight@0: 	return z;
truelight@0: }
truelight@0: 
truelight@0: uint GetSlopeZ(int x,  int y)
truelight@0: {
truelight@0: 	TileInfo ti;
truelight@0: 
truelight@0: 	FindLandscapeHeight(&ti, x, y);
truelight@0: 
truelight@0: 	return _tile_type_procs[ti.type]->get_slope_z_proc(&ti);
truelight@0: }
truelight@0: 
dominik@39: // direction=true:  check for foundation in east and south corner
dominik@39: // direction=false: check for foundation in west and south corner
tron@2548: static bool hasFoundation(const TileInfo* ti, bool direction)
dominik@37: {
dominik@39: 	bool south, other; // southern corner and east/west corner
dominik@39: 	uint slope = _tile_type_procs[ti->type]->get_slope_tileh_proc(ti);
dominik@50: 	uint tileh = ti->tileh;
dominik@50: 
tron@2548: 	if (slope == 0 && slope != tileh) tileh = 15;
dominik@50: 	south = (tileh & 2) != (slope & 2);
dominik@39: 
tron@2548: 	if (direction) {
dominik@50: 		other = (tileh & 4) != (slope & 4);
tron@2548: 	} else {
dominik@50: 		other = (tileh & 1) != (slope & 1);
tron@2548: 	}
dominik@50: 	return south || other;
dominik@37: }
dominik@37: 
truelight@0: void DrawFoundation(TileInfo *ti, uint f)
truelight@0: {
dominik@37: 	uint32 sprite_base = SPR_SLOPES_BASE-14;
dominik@39: 
dominik@39: 	TileInfo ti2;
tron@2639: 	FindLandscapeHeight(&ti2, ti->x, ti->y - 1);
tron@2639: 	if (hasFoundation(&ti2, true)) sprite_base += 22;		// foundation in NW direction
tron@2639: 	FindLandscapeHeight(&ti2, ti->x - 1, ti->y);
tron@2639: 	if (hasFoundation(&ti2, false)) sprite_base += 22 * 2;	// foundation in NE direction
dominik@37: 
truelight@0: 	if (f < 15) {
truelight@183: 		// leveled foundation
tron@2535: 		if (sprite_base < SPR_SLOPES_BASE) sprite_base = SPR_FOUNDATION_BASE + 1; // use original slope sprites
dominik@37: 
tron@2639: 		AddSortableSpriteToDraw(f - 1 + sprite_base, ti->x, ti->y, 16, 16, 7, ti->z);
truelight@0: 		ti->z += 8;
truelight@0: 		ti->tileh = 0;
truelight@0: 		OffsetGroundSprite(31, 1);
truelight@0: 	} else {
truelight@0: 		// inclined foundation
dominik@37: 		sprite_base += 14;
truelight@183: 
truelight@0: 		AddSortableSpriteToDraw(
tron@2535: 			HASBIT((1<<1) | (1<<2) | (1<<4) | (1<<8), ti->tileh) ? sprite_base + (f - 15) : SPR_FOUNDATION_BASE + ti->tileh,
truelight@0: 			ti->x, ti->y, 1, 1, 1, ti->z
truelight@0: 		);
truelight@183: 
truelight@0: 		ti->tileh = _inclined_tileh[f - 15];
truelight@0: 		OffsetGroundSprite(31, 9);
truelight@0: 	}
truelight@0: }
truelight@0: 
tron@1589: void DoClearSquare(TileIndex tile)
truelight@0: {
truelight@0: 	ModifyTile(tile,
truelight@0: 		MP_SETTYPE(MP_CLEAR) |
truelight@0: 		MP_MAP2_CLEAR | MP_MAP3LO_CLEAR | MP_MAP3HI_CLEAR | MP_MAPOWNER | MP_MAP5,
truelight@0: 		OWNER_NONE, /* map_owner */
truelight@0: 		_generating_world ? 3 : 0 /* map5 */
truelight@0: 	);
truelight@0: }
truelight@0: 
tron@1589: uint32 GetTileTrackStatus(TileIndex tile, TransportType mode)
truelight@0: {
tron@1214: 	return _tile_type_procs[GetTileType(tile)]->get_tile_track_status_proc(tile, mode);
truelight@0: }
truelight@0: 
tron@1589: void ChangeTileOwner(TileIndex tile, byte old_player, byte new_player)
truelight@0: {
tron@1214: 	_tile_type_procs[GetTileType(tile)]->change_tile_owner_proc(tile, old_player, new_player);
truelight@0: }
truelight@0: 
tron@1589: void GetAcceptedCargo(TileIndex tile, AcceptedCargo ac)
truelight@0: {
truelight@0: 	memset(ac, 0, sizeof(AcceptedCargo));
tron@1214: 	_tile_type_procs[GetTileType(tile)]->get_accepted_cargo_proc(tile, ac);
truelight@0: }
truelight@0: 
tron@1589: void AnimateTile(TileIndex tile)
truelight@0: {
tron@1214: 	_tile_type_procs[GetTileType(tile)]->animate_tile_proc(tile);
truelight@0: }
truelight@0: 
tron@1589: void ClickTile(TileIndex tile)
truelight@0: {
tron@1214: 	_tile_type_procs[GetTileType(tile)]->click_tile_proc(tile);
truelight@0: }
truelight@0: 
truelight@0: void DrawTile(TileInfo *ti)
truelight@0: {
truelight@0: 	_tile_type_procs[ti->type]->draw_tile_proc(ti);
truelight@0: }
truelight@0: 
tron@1589: void GetTileDesc(TileIndex tile, TileDesc *td)
truelight@0: {
tron@1214: 	_tile_type_procs[GetTileType(tile)]->get_tile_desc_proc(tile, td);
truelight@0: }
truelight@0: 
Darkvater@1775: /** Clear a piece of landscape
Darkvater@1775:  * @param x,y coordinates of clearance
Darkvater@1775:  * @param p1 unused
Darkvater@1775:  * @param p2 unused
truelight@0:  */
truelight@0: int32 CmdLandscapeClear(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
tron@1980: 	TileIndex tile = TileVirtXY(x, y);
tron@1589: 
truelight@0: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@0: 
tron@1214: 	return _tile_type_procs[GetTileType(tile)]->clear_tile_proc(tile, flags);
truelight@0: }
truelight@0: 
Darkvater@1793: /** Clear a big piece of landscape
Darkvater@1793:  * @param x,y end coordinates of area dragging
Darkvater@1793:  * @param p1 start tile of area dragging
Darkvater@1793:  * @param p2 unused
Darkvater@1793:  */
truelight@0: int32 CmdClearArea(int ex, int ey, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
Darkvater@1793: 	int32 cost, ret, money;
truelight@0: 	int sx,sy;
truelight@0: 	int x,y;
truelight@0: 	bool success = false;
truelight@0: 
tron@2934: 	if (p1 >= MapSize()) return CMD_ERROR;
Darkvater@1793: 
darkvater@889: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
darkvater@889: 
truelight@0: 	// make sure sx,sy are smaller than ex,ey
tron@926: 	sx = TileX(p1) * 16;
tron@926: 	sy = TileY(p1) * 16;
truelight@0: 	if (ex < sx) intswap(ex, sx);
truelight@0: 	if (ey < sy) intswap(ey, sy);
truelight@0: 
truelight@0: 	money = GetAvailableMoneyForCommand();
truelight@0: 	cost = 0;
truelight@0: 
Darkvater@1793: 	for (x = sx; x <= ex; x += 16) {
Darkvater@1793: 		for (y = sy; y <= ey; y += 16) {
tron@1980: 			ret = DoCommandByTile(TileVirtXY(x, y), 0, 0, flags & ~DC_EXEC, CMD_LANDSCAPE_CLEAR);
Darkvater@1793: 			if (CmdFailed(ret)) continue;
truelight@0: 			cost += ret;
truelight@0: 			success = true;
truelight@0: 
truelight@0: 			if (flags & DC_EXEC) {
Darkvater@1793: 				if (ret > 0 && (money -= ret) < 0) {
truelight@0: 					_additional_cash_required = ret;
truelight@0: 					return cost - ret;
truelight@0: 				}
tron@1980: 				DoCommandByTile(TileVirtXY(x, y), 0, 0, flags, CMD_LANDSCAPE_CLEAR);
truelight@0: 
truelight@0: 				// draw explosion animation...
Darkvater@1793: 				if ((x == sx || x == ex) && (y == sy || y == ey)) {
truelight@0: 					// big explosion in each corner, or small explosion for single tiles
tron@1359: 					CreateEffectVehicleAbove(x + 8, y + 8, 2,
tron@1359: 						sy == ey && sx == ex ? EV_EXPLOSION_SMALL : EV_EXPLOSION_LARGE
tron@1359: 					);
truelight@0: 				}
truelight@0: 			}
truelight@0: 		}
truelight@0: 	}
truelight@0: 
Darkvater@1793: 	return (success) ? cost : CMD_ERROR;
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: /* utility function used to modify a tile */
tron@1589: void CDECL ModifyTile(TileIndex tile, uint flags, ...)
truelight@0: {
truelight@0: 	va_list va;
truelight@0: 	int i;
truelight@0: 
truelight@0: 	va_start(va, flags);
truelight@0: 
tron@2140: 	if ((i = GB(flags, 8, 4)) != 0) {
tron@1059: 		SetTileType(tile, i - 1);
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & (MP_MAP2_CLEAR | MP_MAP2)) {
truelight@0: 		int x = 0;
truelight@0: 		if (flags & MP_MAP2) x = va_arg(va, int);
tron@2049: 		_m[tile].m2 = x;
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & (MP_MAP3LO_CLEAR | MP_MAP3LO)) {
truelight@0: 		int x = 0;
truelight@0: 		if (flags & MP_MAP3LO) x = va_arg(va, int);
tron@2049: 		_m[tile].m3 = x;
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & (MP_MAP3HI_CLEAR | MP_MAP3HI)) {
truelight@0: 		int x = 0;
truelight@0: 		if (flags & MP_MAP3HI) x = va_arg(va, int);
tron@2049: 		_m[tile].m4 = x;
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & (MP_MAPOWNER|MP_MAPOWNER_CURRENT)) {
tron@2498: 		PlayerID x = _current_player;
truelight@0: 		if (flags & MP_MAPOWNER) x = va_arg(va, int);
tron@2360: 		_m[tile].m1 = x;
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & MP_MAP5) {
tron@2049: 		_m[tile].m5 = va_arg(va, int);
truelight@0: 	}
truelight@0: 
truelight@0: 	va_end(va);
truelight@0: 
truelight@0: 	if (!(flags & MP_NODIRTY))
truelight@0: 		MarkTileDirtyByTile(tile);
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: #define TILELOOP_BITS 4
truelight@0: #define TILELOOP_SIZE (1 << TILELOOP_BITS)
tron@927: #define TILELOOP_ASSERTMASK ((TILELOOP_SIZE-1) + ((TILELOOP_SIZE-1) << MapLogX()))
tron@927: #define TILELOOP_CHKMASK (((1 << (MapLogX() - TILELOOP_BITS))-1) << TILELOOP_BITS)
truelight@0: 
tron@1093: void RunTileLoop(void)
truelight@0: {
tron@1589: 	TileIndex tile;
truelight@0: 	uint count;
truelight@0: 
truelight@0: 	tile = _cur_tileloop_tile;
truelight@0: 
truelight@0: 	assert( (tile & ~TILELOOP_ASSERTMASK) == 0);
tron@863: 	count = (MapSizeX() / TILELOOP_SIZE) * (MapSizeY() / TILELOOP_SIZE);
truelight@0: 	do {
tron@1214: 		_tile_type_procs[GetTileType(tile)]->tile_loop_proc(tile);
truelight@0: 
tron@926: 		if (TileX(tile) < MapSizeX() - TILELOOP_SIZE) {
truelight@0: 			tile += TILELOOP_SIZE; /* no overflow */
truelight@0: 		} else {
tron@1981: 			tile = TILE_MASK(tile - TILELOOP_SIZE * (MapSizeX() / TILELOOP_SIZE - 1) + TileDiffXY(0, TILELOOP_SIZE)); /* x would overflow, also increase y */
truelight@0: 		}
truelight@0: 	} while (--count);
truelight@0: 	assert( (tile & ~TILELOOP_ASSERTMASK) == 0);
truelight@0: 
truelight@0: 	tile += 9;
truelight@0: 	if (tile & TILELOOP_CHKMASK)
tron@863: 		tile = (tile + MapSizeX()) & TILELOOP_ASSERTMASK;
truelight@0: 	_cur_tileloop_tile = tile;
truelight@0: }
truelight@0: 
ludde@2055: void InitializeLandscape(void)
truelight@0: {
tron@1218: 	uint map_size;
tron@959: 	uint i;
truelight@0: 
tron@1218: 
tron@2049: 	map_size = MapSize();
tron@2049: 	for (i = 0; i < map_size; i++) {
tron@2049: 		_m[i].type_height = MP_CLEAR << 4;
tron@2360: 		_m[i].m1          = OWNER_NONE;
tron@2049: 		_m[i].m2          = 0;
tron@2049: 		_m[i].m3          = 0;
tron@2049: 		_m[i].m4          = 0;
tron@2049: 		_m[i].m5          = 3;
tron@2049: 		_m[i].extra       = 0;
tron@2049: 	}
truelight@0: 
tron@1181: 	// create void tiles at the border
tron@1181: 	for (i = 0; i < MapMaxY(); ++i)
tron@1181: 		SetTileType(i * MapSizeX() + MapMaxX(), MP_VOID);
tron@1181: 	for (i = 0; i < MapSizeX(); ++i)
tron@1181: 		SetTileType(MapSizeX() * MapMaxY() + i, MP_VOID);
truelight@0: }
truelight@0: 
tron@1093: void ConvertGroundTilesIntoWaterTiles(void)
truelight@0: {
tron@1275: 	TileIndex tile = 0;
tron@1335: 	uint h;
truelight@0: 
tron@1275: 	for (tile = 0; tile < MapSize(); ++tile) {
tron@1035: 		if (IsTileType(tile, MP_CLEAR) && GetTileSlope(tile, &h) == 0 && h == 0) {
tron@1059: 			SetTileType(tile, MP_WATER);
tron@2049: 			_m[tile].m5 = 0;
tron@1902: 			SetTileOwner(tile, OWNER_WATER);
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: static const byte _genterrain_tbl_1[5] = { 10, 22, 33, 37, 4 };
truelight@0: static const byte _genterrain_tbl_2[5] = { 0, 0, 0, 0, 33 };
truelight@0: 
truelight@0: static void GenerateTerrain(int type, int flag)
truelight@0: {
truelight@0: 	uint32 r;
tron@1275: 	uint x;
tron@1275: 	uint y;
tron@1275: 	uint w;
tron@1275: 	uint h;
tron@1384: 	const Sprite* template;
tron@1275: 	const byte *p;
tron@2049: 	Tile* tile;
truelight@0: 	byte direction;
truelight@0: 
truelight@0: 	r = Random();
tron@1384: 	template = GetSprite((((r >> 24) * _genterrain_tbl_1[type]) >> 8) + _genterrain_tbl_2[type] + 4845);
truelight@0: 
tron@856: 	x = r & MapMaxX();
tron@927: 	y = (r >> MapLogX()) & MapMaxY();
truelight@0: 
truelight@0: 
truelight@0: 	if (x < 2 || y < 2)
truelight@0: 		return;
truelight@0: 
tron@2140: 	direction = GB(r, 22, 2);
tron@1275: 	if (direction & 1) {
tron@1384: 		w = template->height;
tron@1384: 		h = template->width;
tron@1275: 	} else {
tron@1384: 		w = template->width;
tron@1384: 		h = template->height;
tron@1275: 	}
tron@1384: 	p = template->data;
truelight@0: 
truelight@0: 	if (flag & 4) {
tron@1273: 		uint xw = x * MapSizeY();
tron@1273: 		uint yw = y * MapSizeX();
tron@1273: 		uint bias = (MapSizeX() + MapSizeY()) * 16;
tron@1273: 
tron@1273: 		switch (flag & 3) {
tron@1273: 			case 0:
tron@1273: 				if (xw + yw > MapSize() - bias) return;
tron@1273: 				break;
tron@1273: 
tron@1273: 			case 1:
tron@1273: 				if (yw < xw + bias) return;
tron@1273: 				break;
tron@1273: 
tron@1273: 			case 2:
tron@1273: 				if (xw + yw < MapSize() + bias) return;
tron@1273: 				break;
tron@1273: 
tron@1273: 			case 3:
tron@1273: 				if (xw < yw + bias) return;
tron@1273: 				break;
truelight@0: 		}
truelight@0: 	}
truelight@0: 
tron@856: 	if (x + w >= MapMaxX() - 1)
truelight@0: 		return;
truelight@0: 
tron@856: 	if (y + h >= MapMaxY() - 1)
truelight@0: 		return;
truelight@0: 
tron@2049: 	tile = &_m[TileXY(x, y)];
truelight@0: 
tron@1275: 	switch (direction) {
tron@1275: 		case 0:
truelight@0: 			do {
tron@2049: 				Tile* tile_cur = tile;
tron@1275: 				uint w_cur;
tron@1275: 
tron@1275: 				for (w_cur = w; w_cur != 0; --w_cur) {
tron@2049: 					if (*p >= tile_cur->type_height) tile_cur->type_height = *p;
tron@1275: 					p++;
tron@1275: 					tile_cur++;
tron@1275: 				}
tron@1981: 				tile += TileDiffXY(0, 1);
tron@1275: 			} while (--h != 0);
tron@1275: 			break;
tron@1275: 
tron@1275: 		case 1:
truelight@0: 			do {
tron@2049: 				Tile* tile_cur = tile;
tron@1275: 				uint h_cur;
tron@1275: 
tron@1275: 				for (h_cur = h; h_cur != 0; --h_cur) {
tron@2049: 					if (*p >= tile_cur->type_height) tile_cur->type_height = *p;
tron@1275: 					p++;
tron@1981: 					tile_cur += TileDiffXY(0, 1);
tron@1275: 				}
tron@1275: 				tile++;
tron@1275: 			} while (--w != 0);
tron@1275: 			break;
tron@1275: 
tron@1275: 		case 2:
tron@1981: 			tile += TileDiffXY(w - 1, 0);
truelight@0: 			do {
tron@2049: 				Tile* tile_cur = tile;
tron@1275: 				uint w_cur;
tron@1275: 
tron@1275: 				for (w_cur = w; w_cur != 0; --w_cur) {
tron@2049: 					if (*p >= tile_cur->type_height) tile_cur->type_height = *p;
tron@1275: 					p++;
tron@1275: 					tile_cur--;
tron@1275: 				}
tron@1981: 				tile += TileDiffXY(0, 1);
tron@1275: 			} while (--h != 0);
tron@1275: 			break;
tron@1275: 
tron@1275: 		case 3:
tron@1981: 			tile += TileDiffXY(0, h - 1);
tron@1275: 			do {
tron@2049: 				Tile* tile_cur = tile;
tron@1275: 				uint h_cur;
tron@1275: 
tron@1275: 				for (h_cur = h; h_cur != 0; --h_cur) {
tron@2049: 					if (*p >= tile_cur->type_height) tile_cur->type_height = *p;
tron@1275: 					p++;
tron@1981: 					tile_cur -= TileDiffXY(0, 1);
tron@1278: 				}
tron@1275: 				tile++;
tron@1275: 			} while (--w != 0);
tron@1275: 			break;
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: #include "table/genland.h"
truelight@0: 
tron@1093: static void CreateDesertOrRainForest(void)
truelight@0: {
tron@1275: 	TileIndex tile;
tron@909: 	const TileIndexDiffC *data;
tron@1275: 	uint i;
truelight@0: 
tron@909: 	for (tile = 0; tile != MapSize(); ++tile) {
tron@909: 		for (data = _make_desert_or_rainforest_data;
tron@909: 				data != endof(_make_desert_or_rainforest_data); ++data) {
tron@1184: 			TileIndex t = TILE_MASK(tile + ToTileIndexDiff(*data));
tron@1044: 			if (TileHeight(t) >= 4 || IsTileType(t, MP_WATER)) break;
tron@909: 		}
tron@909: 		if (data == endof(_make_desert_or_rainforest_data))
tron@909: 			SetMapExtraBits(tile, 1);
tron@909: 	}
truelight@183: 
tron@1275: 	for (i = 0; i != 256; i++)
truelight@0: 		RunTileLoop();
truelight@0: 
tron@909: 	for (tile = 0; tile != MapSize(); ++tile) {
tron@909: 		for (data = _make_desert_or_rainforest_data;
tron@909: 				data != endof(_make_desert_or_rainforest_data); ++data) {
tron@909: 			TileIndex t = TILE_MASK(tile + ToTileIndexDiff(*data));
tron@2049: 			if (IsTileType(t, MP_CLEAR) && (_m[t].m5 & 0x1c) == 0x14) break;
tron@909: 		}
tron@909: 		if (data == endof(_make_desert_or_rainforest_data))
tron@909: 			SetMapExtraBits(tile, 2);
tron@909: 	}
truelight@0: }
truelight@0: 
tron@1093: void GenerateLandscape(void)
truelight@0: {
tron@1275: 	uint i;
tron@1275: 	uint flag;
truelight@0: 	uint32 r;
truelight@183: 
truelight@0: 	if (_opt.landscape == LT_HILLY) {
tron@1275: 		for (i = ScaleByMapSize((Random() & 0x7F) + 950); i != 0; --i)
truelight@0: 			GenerateTerrain(2, 0);
truelight@183: 
truelight@0: 		r = Random();
tron@2140: 		flag = GB(r, 0, 2) | 4;
tron@2140: 		for (i = ScaleByMapSize(GB(r, 16, 7) + 450); i != 0; --i)
truelight@0: 			GenerateTerrain(4, flag);
truelight@0: 	} else if (_opt.landscape == LT_DESERT) {
tron@1275: 		for (i = ScaleByMapSize((Random()&0x7F) + 170); i != 0; --i)
truelight@0: 			GenerateTerrain(0, 0);
truelight@183: 
truelight@0: 		r = Random();
tron@2140: 		flag = GB(r, 0, 2) | 4;
tron@2140: 		for (i = ScaleByMapSize(GB(r, 16, 8) + 1700); i != 0; --i)
truelight@0: 			GenerateTerrain(0, flag);
truelight@0: 
truelight@0: 		flag ^= 2;
truelight@0: 
tron@1275: 		for (i = ScaleByMapSize((Random() & 0x7F) + 410); i != 0; --i)
truelight@183: 			GenerateTerrain(3, flag);
truelight@0: 	} else {
tron@1202: 		i = ScaleByMapSize((Random() & 0x7F) + (3 - _opt.diff.quantity_sea_lakes) * 256 + 100);
tron@1275: 		for (; i != 0; --i)
truelight@0: 			GenerateTerrain(_opt.diff.terrain_type, 0);
truelight@0: 	}
truelight@0: 
truelight@0: 	ConvertGroundTilesIntoWaterTiles();
truelight@0: 
truelight@0: 	if (_opt.landscape == LT_DESERT)
truelight@0: 		CreateDesertOrRainForest();
truelight@0: }
truelight@0: 
tron@1093: void OnTick_Town(void);
tron@1093: void OnTick_Trees(void);
tron@1093: void OnTick_Station(void);
tron@1093: void OnTick_Industry(void);
truelight@0: 
tron@1093: void OnTick_Players(void);
tron@1093: void OnTick_Train(void);
truelight@0: 
tron@1093: void CallLandscapeTick(void)
truelight@0: {
truelight@0: 	OnTick_Town();
truelight@0: 	OnTick_Trees();
truelight@0: 	OnTick_Station();
truelight@0: 	OnTick_Industry();
truelight@0: 
truelight@0: 	OnTick_Players();
truelight@0: 	OnTick_Train();
truelight@0: }
truelight@0: 
truelight@0: TileIndex AdjustTileCoordRandomly(TileIndex a, byte rng)
truelight@0: {
truelight@0: 	int rn = rng;
truelight@0: 	uint32 r = Random();
truelight@0: 
tron@1981: 	return TILE_MASK(TileXY(
tron@2150: 		TileX(a) + (GB(r, 0, 8) * rn * 2 >> 8) - rn,
tron@2150: 		TileY(a) + (GB(r, 8, 8) * rn * 2 >> 8) - rn
tron@1174: 	));
truelight@0: }
truelight@0: 
tron@1589: bool IsValidTile(TileIndex tile)
truelight@0: {
tron@926: 	return (tile < MapSizeX() * MapMaxY() && TileX(tile) != MapMaxX());
truelight@0: }