truelight@0: #include "stdafx.h"
Darkvater@1891: #include "openttd.h"
tron@1363: #include "table/sprites.h"
tron@507: #include "table/strings.h"
tron@1009: #include "gfx.h"
tron@679: #include "map.h"
tron@1209: #include "tile.h"
truelight@0: #include "vehicle.h"
truelight@0: #include "viewport.h"
truelight@0: #include "command.h"
truelight@0: #include "pathfind.h"
truelight@0: #include "town.h"
tron@337: #include "sound.h"
celestar@389: #include "station.h"
darkvater@405: #include "sprite.h"
truelight@1313: #include "depot.h"
truelight@1542: #include "waypoint.h"
truelight@0: 
dominik@415: extern uint16 _custom_sprites_base;
dominik@415: 
truelight@0: void ShowTrainDepotWindow(uint tile);
truelight@0: 
darkvater@22: enum { /* These values are bitmasks for the map5 byte */
truelight@0: 	RAIL_TYPE_NORMAL = 0,
truelight@0: 	RAIL_TYPE_SIGNALS = 0x40,
truelight@0: 	RAIL_TYPE_SPECIAL = 0x80, // If this bit is set, then it's not a regular track.
truelight@0: 	RAIL_TYPE_DEPOT = 0xC0,
truelight@0: 	RAIL_TYPE_MASK = 0xC0,
truelight@0: 
truelight@0: 	RAIL_BIT_DIAG1 = 1,  // 0
truelight@0: 	RAIL_BIT_DIAG2 = 2,  // 1
truelight@0: 	RAIL_BIT_UPPER = 4,  // 2
truelight@0: 	RAIL_BIT_LOWER = 8,  // 3
truelight@0: 	RAIL_BIT_LEFT  = 16, // 4
truelight@0: 	RAIL_BIT_RIGHT = 32, // 5
truelight@0: 	RAIL_BIT_MASK = 0x3F,
truelight@0: 
truelight@0: 	RAIL_DEPOT_TRACK_MASK = 1,
truelight@0: 	RAIL_DEPOT_DIR = 3,
truelight@0: 
tron@1534: 	RAIL_SUBTYPE_MASK     = 0x3C,
tron@1534: 	RAIL_SUBTYPE_DEPOT    = 0x00,
tron@1534: 	RAIL_SUBTYPE_WAYPOINT = 0x04
truelight@0: };
truelight@0: 
tron@1535: static inline bool IsRailDepot(byte m5)
tron@1535: {
tron@1535: 	return
tron@1535: 		(m5 & RAIL_TYPE_MASK) == RAIL_TYPE_DEPOT &&
tron@1535: 		(m5 & RAIL_SUBTYPE_MASK) == RAIL_SUBTYPE_DEPOT;
tron@1535: }
tron@1535: 
truelight@0: /* Format of rail map5 byte.
truelight@0:  * 00 abcdef  => Normal rail
truelight@0:  * 01 abcdef  => Rail with signals
truelight@0:  * 10 ??????  => Unused
truelight@0:  * 11 ????dd  => Depot
darkvater@22:  *
darkvater@22:  * abcdef is a bitmask, which contains ones for all present tracks. Below the
truelight@201:  * value for each track is given.
truelight@0:  */
truelight@0: 
truelight@0: /*         4
truelight@0:  *     ---------
truelight@0:  *    |\       /|
truelight@0:  *    | \    1/ |
truelight@0:  *    |  \   /  |
truelight@0:  *    |   \ /   |
truelight@0:  *  16|    \    |32
truelight@201:  *    |   / \2  |
truelight@0:  *    |  /   \  |
truelight@0:  *    | /     \ |
truelight@0:  *    |/       \|
truelight@0:  *     ---------
truelight@0:  *         8
truelight@0:  */
truelight@0: 
truelight@0: 
truelight@0: // Constants for lower part of Map2 byte.
truelight@201: enum RailMap2Lower4 {
truelight@0: 	RAIL_MAP2LO_GROUND_MASK = 0xF,
truelight@0: 	RAIL_GROUND_BROWN = 0,
truelight@0: 	RAIL_GROUND_GREEN = 1,
truelight@0: 	RAIL_GROUND_FENCE_NW = 2,
truelight@0: 	RAIL_GROUND_FENCE_SE = 3,
truelight@0: 	RAIL_GROUND_FENCE_SENW = 4,
truelight@0: 	RAIL_GROUND_FENCE_NE = 5,
truelight@0: 	RAIL_GROUND_FENCE_SW = 6,
truelight@0: 	RAIL_GROUND_FENCE_NESW = 7,
truelight@0: 	RAIL_GROUND_FENCE_VERT1 = 8,
truelight@0: 	RAIL_GROUND_FENCE_VERT2 = 9,
truelight@0: 	RAIL_GROUND_FENCE_HORIZ1 = 10,
truelight@0: 	RAIL_GROUND_FENCE_HORIZ2 = 11,
truelight@0: 	RAIL_GROUND_ICE_DESERT = 12,
truelight@0: };
truelight@0: 
truelight@0: 
darkvater@22: /* MAP2 byte:    abcd???? => Signal On? Same coding as map3lo
truelight@201:  * MAP3LO byte:  abcd???? => Signal Exists?
darkvater@22:  *				 a and b are for diagonals, upper and left,
darkvater@22:  *				 one for each direction. (ie a == NE->SW, b ==
darkvater@22:  *				 SW->NE, or v.v., I don't know. b and c are
darkvater@22:  *				 similar for lower and right.
truelight@0:  * MAP2 byte:    ????abcd => Type of ground.
truelight@0:  * MAP3LO byte:  ????abcd => Type of rail.
truelight@0:  * MAP5:         00abcdef => rail
truelight@0:  *               01abcdef => rail w/ signals
truelight@0:  *               10uuuuuu => unused
truelight@201:  *               11uuuudd => rail depot
truelight@0:  */
truelight@0: 
tron@1627: static bool CheckTrackCombination(uint map5, uint trackbits, uint flags)
truelight@0: {
truelight@0: 	_error_message = STR_1001_IMPOSSIBLE_TRACK_COMBINATION;
truelight@0: 
tron@1591: 	switch (map5 & RAIL_TYPE_MASK) {
tron@1591: 		case RAIL_TYPE_NORMAL:
tron@1591: 			if (map5 & trackbits) {
tron@1591: 				_error_message = STR_1007_ALREADY_BUILT;
tron@1591: 				return false;
tron@1591: 			}
truelight@0: 
tron@1591: 			if (flags & DC_NO_RAIL_OVERLAP) {
tron@1591: 				// Computer players are not allowed to intersect pieces of rail.
tron@1591: 				map5 |= trackbits;
tron@1591: 				return
tron@1591: 					map5 == (RAIL_BIT_UPPER | RAIL_BIT_LOWER) ||
tron@1591: 					map5 == (RAIL_BIT_LEFT  | RAIL_BIT_RIGHT);
tron@1591: 			} else {
tron@1591: 				return true;
tron@1591: 			}
truelight@201: 
tron@1591: 		case RAIL_TYPE_SIGNALS:
tron@1591: 			if (map5 & trackbits) {
tron@1591: 				_error_message = STR_1007_ALREADY_BUILT;
tron@1591: 				return false;
tron@1591: 			}
truelight@201: 
tron@1591: 			map5 |= trackbits;
tron@1591: 			return
tron@1591: 				map5 == (RAIL_TYPE_SIGNALS | RAIL_BIT_UPPER | RAIL_BIT_LOWER) ||
tron@1591: 				map5 == (RAIL_TYPE_SIGNALS | RAIL_BIT_LEFT  | RAIL_BIT_RIGHT);
tron@1591: 
tron@1591: 		default:
tron@1591: 			return false;
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: 
dominik@13: static const byte _valid_tileh_slopes[4][15] = {
truelight@0: 
truelight@0: // set of normal ones
truelight@0: {
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_UPPER,
truelight@0: 	RAIL_BIT_DIAG1,
truelight@0: 
truelight@0: 	RAIL_BIT_LEFT,
truelight@0: 	0,
truelight@0: 	RAIL_BIT_DIAG2,
truelight@0: 	RAIL_BIT_LOWER,
truelight@201: 
truelight@0: 	RAIL_BIT_LOWER,
truelight@0: 	RAIL_BIT_DIAG2,
truelight@0: 	0,
truelight@0: 	RAIL_BIT_LEFT,
truelight@201: 
truelight@0: 	RAIL_BIT_DIAG1,
truelight@0: 	RAIL_BIT_UPPER,
truelight@0: 	RAIL_BIT_RIGHT,
truelight@0: },
truelight@0: 
truelight@0: // allowed rail for an evenly raised platform
truelight@0: {
truelight@0: 	0,
truelight@0: 	RAIL_BIT_LEFT,
truelight@0: 	RAIL_BIT_LOWER,
truelight@0: 	RAIL_BIT_DIAG2 | RAIL_BIT_LOWER | RAIL_BIT_LEFT,
truelight@0: 
truelight@0: 	RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1 | RAIL_BIT_LOWER | RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 
truelight@0: 	RAIL_BIT_UPPER,
truelight@0: 	RAIL_BIT_DIAG1 | RAIL_BIT_UPPER | RAIL_BIT_LEFT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 
truelight@0: 	RAIL_BIT_DIAG2 | RAIL_BIT_UPPER | RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: },
truelight@0: 
truelight@0: // allowed rail on coast tile
truelight@0: {
truelight@0: 	0,
truelight@0: 	RAIL_BIT_LEFT,
truelight@0: 	RAIL_BIT_LOWER,
truelight@0: 	RAIL_BIT_DIAG2|RAIL_BIT_LEFT|RAIL_BIT_LOWER,
truelight@201: 
truelight@0: 	RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_RIGHT|RAIL_BIT_LOWER,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 
truelight@0: 	RAIL_BIT_UPPER,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_LEFT|RAIL_BIT_UPPER,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 
truelight@0: 	RAIL_BIT_DIAG2|RAIL_BIT_RIGHT|RAIL_BIT_UPPER,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
truelight@0: 	RAIL_BIT_DIAG1|RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LOWER|RAIL_BIT_LEFT|RAIL_BIT_RIGHT,
dominik@13: 	},
dominik@13: 
dominik@13: 	// valid railway crossings on slopes
dominik@13: 	{
dominik@13: 		1, 0, 0, // 0, 1, 2
dominik@13: 		0, 0, 1, // 3, 4, 5
dominik@13: 		0, 1, 0, // 6, 7, 8
dominik@13: 		0, 1, 1, // 9, 10, 11
dominik@13: 		0, 1, 1, // 12, 13, 14
truelight@0: 	}
truelight@0: };
truelight@0: 
truelight@84: uint GetRailFoundation(uint tileh, uint bits)
truelight@0: {
truelight@0: 	int i;
truelight@0: 
truelight@0: 	if ((~_valid_tileh_slopes[0][tileh] & bits) == 0)
truelight@0: 		return 0;
truelight@0: 
truelight@0: 	if ((~_valid_tileh_slopes[1][tileh] & bits) == 0)
truelight@0: 		return tileh;
truelight@0: 
truelight@201: 	if ( ((i=0, tileh == 1) || (i+=2, tileh == 2) || (i+=2, tileh == 4) || (i+=2, tileh == 8)) && (bits == RAIL_BIT_DIAG1 || (i++, bits == RAIL_BIT_DIAG2)))
truelight@0: 		return i + 15;
truelight@0: 
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
truelight@0: //
tron@1627: static uint32 CheckRailSlope(uint tileh, uint rail_bits, uint existing, TileIndex tile)
truelight@0: {
truelight@0: 	// never allow building on top of steep tiles
truelight@0: 	if (!(tileh & 0x10)) {
truelight@0: 		rail_bits |= existing;
truelight@0: 
truelight@0: 		// don't allow building on the lower side of a coast
tron@1627: 		if (IsTileType(tile, MP_WATER) &&
tron@1627: 				~_valid_tileh_slopes[2][tileh] & rail_bits) {
truelight@0: 			return_cmd_error(STR_3807_CAN_T_BUILD_ON_WATER);
truelight@0: 		}
truelight@0: 
truelight@0: 		// no special foundation
truelight@0: 		if ((~_valid_tileh_slopes[0][tileh] & rail_bits) == 0)
truelight@0: 			return 0;
truelight@201: 
tron@1627: 		if ((~_valid_tileh_slopes[1][tileh] & rail_bits) == 0 || ( // whole tile is leveled up
tron@1627: 					(rail_bits == RAIL_BIT_DIAG1 || rail_bits == RAIL_BIT_DIAG2) &&
tron@1627: 					(tileh == 1 || tileh == 2 || tileh == 4 || tileh == 8)
tron@1627: 				)) { // partly up
tron@1627: 			if (existing != 0) {
tron@1627: 				return 0;
tron@1627: 			} else if (!_patches.build_on_slopes ||
tron@1627: 					(_is_ai_player && !_patches.ainew_active)) {
tron@1627: 				return_cmd_error(STR_1000_LAND_SLOPED_IN_WRONG_DIRECTION);
tron@1627: 			} else {
tron@1627: 				return _price.terraform;
tron@1627: 			}
truelight@0: 		}
truelight@0: 	}
truelight@0: 	return_cmd_error(STR_1000_LAND_SLOPED_IN_WRONG_DIRECTION);
truelight@0: }
truelight@0: 
Darkvater@1775: /* Validate functions for rail building */
Darkvater@1781: static inline bool ValParamTrackOrientation(uint32 rail) {return rail <= 5;}
Darkvater@1775: 
Darkvater@1775: /** Build a single piece of rail
Darkvater@1775:  * @param x,y coordinates on where to build
Darkvater@1775:  * @param p1 railtype of being built piece (normal, mono, maglev)
Darkvater@1775:  * @param p2 rail combination to build
Darkvater@1775:  */
Darkvater@1775: int32 CmdBuildSingleRail(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
tron@1627: 	TileIndex tile;
tron@1627: 	uint tileh;
tron@1627: 	uint m5;
tron@1627: 	uint rail_bit;
tron@1627: 	int32 cost = 0;
tron@1627: 	int32 ret;
tron@1627: 
Darkvater@1781: 	if (!ValParamRailtype(p1) || !ValParamTrackOrientation(p2)) return CMD_ERROR;
tron@1627: 
tron@1627: 	tile = TILE_FROM_XY(x, y);
tron@1627: 	tileh = GetTileSlope(tile, NULL);
tron@1627: 	m5 = _map5[tile];
Darkvater@1775: 	rail_bit = 1 << p2;
truelight@0: 
truelight@0: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@0: 
tron@1627: 	switch (GetTileType(tile)) {
tron@1627: 		case MP_TUNNELBRIDGE:
tron@1627: 			if ((m5 & 0xC0) != 0xC0 || // not bridge middle part?
tron@1630: 					(m5 & 0x01 ? 1 : 2) != rail_bit) { // wrong direction?
tron@1627: 				// Get detailed error message
tron@1627: 				return DoCommandByTile(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
tron@1627: 			}
truelight@0: 
tron@1630: 			switch (m5 & 0x38) { // what's under the bridge?
tron@1630: 				case 0x00: // clear land
tron@1630: 					ret = CheckRailSlope(tileh, rail_bit, 0, tile);
tron@1691: 					if (CmdFailed(ret)) return ret;
tron@1630: 					cost += ret;
truelight@0: 
tron@1630: 					if (flags & DC_EXEC) {
tron@1902: 						SetTileOwner(tile, _current_player);
tron@1630: 						_map3_lo[tile] &= ~0x0F;
Darkvater@1775: 						_map3_lo[tile] |= p1;
tron@1630: 						_map5[tile] = (m5 & 0xC7) | 0x20; // railroad under bridge
tron@1630: 					}
tron@1630: 					break;
tron@1630: 
tron@1630: 				case 0x20: // rail already there
tron@1630: 					return_cmd_error(STR_1007_ALREADY_BUILT);
tron@1630: 
tron@1630: 				default:
tron@1630: 					// Get detailed error message
tron@1630: 					return DoCommandByTile(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
tron@1627: 			}
tron@1627: 			break;
truelight@0: 
tron@1627: 		case MP_RAILWAY:
tron@1627: 			if (!CheckTrackCombination(m5, rail_bit, flags) ||
tron@1627: 					!EnsureNoVehicle(tile)) {
tron@1627: 				return CMD_ERROR;
tron@1627: 			}
tron@1627: 			if (m5 & RAIL_TYPE_SPECIAL ||
tron@1627: 					_map_owner[tile] != _current_player ||
Darkvater@1775: 					(_map3_lo[tile] & 0xFU) != p1) {
tron@1627: 				// Get detailed error message
tron@1627: 				return DoCommandByTile(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
tron@1627: 			}
tron@1627: 
tron@1627: 			ret = CheckRailSlope(tileh, rail_bit, m5 & RAIL_BIT_MASK, tile);
tron@1691: 			if (CmdFailed(ret)) return ret;
truelight@0: 			cost += ret;
truelight@0: 
tron@1719: 			if (flags & DC_EXEC) {
tron@1719: 				_map2[tile] &= ~RAIL_MAP2LO_GROUND_MASK; // Bare land
tron@1719: 				_map5[tile] = m5 | rail_bit;
tron@1719: 			}
tron@1627: 			break;
truelight@0: 
tron@1627: 		case MP_STREET:
tron@1627: 			if (!_valid_tileh_slopes[3][tileh]) // prevent certain slopes
tron@1627: 				return_cmd_error(STR_1000_LAND_SLOPED_IN_WRONG_DIRECTION);
tron@1627: 			if (!EnsureNoVehicle(tile)) return CMD_ERROR;
truelight@0: 
tron@1627: 			if ((m5 & 0xF0) == 0 && ( // normal road?
tron@1627: 						(rail_bit == 1 && m5 == 0x05) ||
tron@1627: 						(rail_bit == 2 && m5 == 0x0A) // correct direction?
tron@1627: 					)) {
tron@1627: 				if (flags & DC_EXEC) {
tron@1901: 					_map3_lo[tile] = GetTileOwner(tile);
tron@1902: 					SetTileOwner(tile, _current_player);
Darkvater@1775: 					_map3_hi[tile] = p1;
tron@1627: 					_map5[tile] = 0x10 | (rail_bit == 1 ? 0x08 : 0x00); // level crossing
tron@1627: 				}
tron@1627: 				break;
tron@1627: 			}
tron@1627: 
tron@1627: 			if ((m5 & 0xF0) == 0x10 && (m5 & 0x08 ? 1 : 2) == rail_bit)
tron@1627: 				return_cmd_error(STR_1007_ALREADY_BUILT);
tron@1627: 			/* FALLTHROUGH */
tron@1627: 
tron@1627: 		default:
tron@1627: 			ret = CheckRailSlope(tileh, rail_bit, 0, tile);
tron@1691: 			if (CmdFailed(ret)) return ret;
tron@1627: 			cost += ret;
tron@1627: 
tron@1627: 			ret = DoCommandByTile(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
tron@1691: 			if (CmdFailed(ret)) return ret;
tron@1627: 			cost += ret;
tron@1627: 
tron@1627: 			if (flags & DC_EXEC) {
tron@1627: 				SetTileType(tile, MP_RAILWAY);
tron@1902: 				SetTileOwner(tile, _current_player);
tron@1627: 				_map2[tile] = 0; // Bare land
Darkvater@1775: 				_map3_lo[tile] = p1; // No signals, rail type
tron@1627: 				_map5[tile] = rail_bit;
tron@1627: 			}
tron@1627: 			break;
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		MarkTileDirtyByTile(tile);
Darkvater@1775: 		SetSignalsOnBothDir(tile, p2);
truelight@0: 	}
truelight@0: 
truelight@0: 	return cost + _price.build_rail;
truelight@0: }
truelight@0: 
truelight@0: static const byte _signals_table[] = {
truelight@0: 	0x40, 0x40, 0x40, 0x10, 0x80, 0x20, 0, 0, // direction 1
truelight@0: 	0x80, 0x80, 0x80, 0x20, 0x40, 0x10, 0, 0  // direction 2
truelight@0: };
truelight@0: 
truelight@0: static const byte _signals_table_other[] = {
truelight@0: 	0x80, 0x80, 0x80, 0x20, 0x40, 0x10, 0, 0, // direction 1
truelight@0: 	0x40, 0x40, 0x40, 0x10, 0x80, 0x20, 0, 0  // direction 2
truelight@0: };
truelight@0: 
truelight@0: static const byte _signals_table_both[] = {
truelight@201: 	0xC0, 0xC0, 0xC0, 0x30, 0xC0, 0x30, 0, 0,	// both directions combined
truelight@0: 	0xC0, 0xC0, 0xC0, 0x30, 0xC0, 0x30, 0, 0
truelight@0: };
truelight@0: 
truelight@0: 
Darkvater@1775: /** Remove a single piece of track
Darkvater@1775:  * @param x,y coordinates for removal of track
Darkvater@1775:  * @param p1 unused
Darkvater@1775:  * @param p2 rail orientation
truelight@0:  */
truelight@0: int32 CmdRemoveSingleRail(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	TileInfo ti;
Darkvater@1775: 	TileIndex tile;
truelight@0: 	byte rail_bit = 1 << p2;
Darkvater@1775: 
Darkvater@1775: 	if (!ValParamTrackOrientation(p2)) return CMD_ERROR;
truelight@0: 
truelight@0: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@0: 
truelight@0: 	FindLandscapeHeight(&ti, x, y);
truelight@0: 
truelight@0: 	tile = ti.tile;
truelight@0: 
truelight@0: 	if (!((1<<ti.type) & ((1<<MP_TUNNELBRIDGE)|(1<<MP_STREET)|(1<<MP_RAILWAY))))
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	if (_current_player != OWNER_WATER && !CheckTileOwnership(tile))
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	// allow building rail under bridge
truelight@201: 	if (ti.type != MP_TUNNELBRIDGE && !EnsureNoVehicle(tile))
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	if (ti.type == MP_TUNNELBRIDGE) {
tron@1041: 		if (!EnsureNoVehicleZ(tile, TilePixelHeight(tile)))
truelight@0: 			return CMD_ERROR;
truelight@0: 
truelight@0: 		if ((ti.map5 & 0xF8) != 0xE0)
truelight@0: 			return CMD_ERROR;
truelight@0: 
truelight@0: 		if ( ((ti.map5 & 1) ? 1 : 2) != rail_bit )
truelight@0: 			return CMD_ERROR;
truelight@0: 
truelight@0: 		if (!(flags & DC_EXEC))
truelight@0: 			return _price.remove_rail;
truelight@201: 
tron@1902: 		SetTileOwner(tile, OWNER_NONE);
truelight@0: 		_map5[tile] = ti.map5 & 0xC7;
truelight@0: 	} else if (ti.type == MP_STREET) {
Darkvater@1775: 		byte m5;
truelight@0: 		if (!(ti.map5 & 0xF0))
truelight@0: 			return CMD_ERROR;
truelight@0: 
truelight@0: 		if (ti.map5 & 0xE0)
truelight@0: 			return CMD_ERROR;
truelight@0: 
truelight@0: 		if (ti.map5 & 8) {
truelight@0: 			m5 = 5;
truelight@0: 			if (rail_bit != 1)
truelight@0: 				return CMD_ERROR;
truelight@0: 		} else {
truelight@0: 			m5 = 10;
truelight@0: 			if (rail_bit != 2)
truelight@0: 				return CMD_ERROR;
truelight@0: 		}
truelight@0: 
truelight@0: 		if (!(flags & DC_EXEC))
truelight@0: 			return _price.remove_rail;
truelight@0: 
truelight@0: 		_map5[tile] = m5;
tron@1902: 		SetTileOwner(tile, _map3_lo[tile]);
truelight@0: 		_map2[tile] = 0;
truelight@0: 	} else {
truelight@0: 		assert(ti.type == MP_RAILWAY);
truelight@0: 
truelight@0: 		if (ti.map5 & RAIL_TYPE_SPECIAL)
truelight@0: 			return CMD_ERROR;
truelight@0: 
truelight@0: 		if (!(ti.map5 & rail_bit))
truelight@0: 			return CMD_ERROR;
truelight@0: 
truelight@0: 		// don't allow remove if there are signals on the track
truelight@0: 		if (ti.map5 & RAIL_TYPE_SIGNALS) {
truelight@0: 			if (_map3_lo[tile] & _signals_table_both[p2])
truelight@0: 				return CMD_ERROR;
truelight@0: 		}
truelight@0: 
truelight@0: 		if (!(flags & DC_EXEC))
truelight@0: 			return _price.remove_rail;
truelight@0: 
truelight@0: 		if ( (_map5[tile] ^= rail_bit) == 0) {
truelight@0: 			DoClearSquare(tile);
truelight@0: 			goto skip_mark_dirty;
truelight@0: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	/* mark_dirty */
truelight@0: 	MarkTileDirtyByTile(tile);
truelight@0: 
truelight@0: skip_mark_dirty:;
truelight@0: 
truelight@0: 	SetSignalsOnBothDir(tile, (byte)p2);
truelight@201: 
truelight@0: 	return _price.remove_rail;
truelight@0: }
truelight@0: 
truelight@0: static const struct {
truelight@0: 	int8 xinc[16];
truelight@0: 	int8 yinc[16];
truelight@0: } _railbit = {{
darkvater@1227: //  0   1   2   3   4   5
darkvater@1227: 	-16,  0,-16,  0, 16,  0,    0,  0,
darkvater@1227: 	 16,  0,  0, 16,  0,-16,    0,  0,
truelight@0: },{
darkvater@1227: 	  0, 16,  0, 16,  0, 16,    0,  0,
darkvater@1227: 	  0,-16,-16,  0,-16,  0,    0,  0,
truelight@0: }};
truelight@0: 
Darkvater@1775: static int32 ValidateAutoDrag(byte *railbit, int x, int y, int ex, int ey)
darkvater@1227: {
darkvater@1227: 	int dx, dy, trdx, trdy;
truelight@0: 
Darkvater@1775: 	if (!ValParamTrackOrientation(*railbit)) return CMD_ERROR;
darkvater@1227: 
darkvater@1227: 	// calculate delta x,y from start to end tile
darkvater@1227: 	dx = ex - x;
darkvater@1227: 	dy = ey - y;
darkvater@1227: 
darkvater@1227: 	// calculate delta x,y for the first direction
darkvater@1227: 	trdx = _railbit.xinc[*railbit];
darkvater@1227: 	trdy = _railbit.yinc[*railbit];
darkvater@1227: 
darkvater@1227: 	if (*railbit & 0x6) {
darkvater@1227: 		trdx += _railbit.xinc[*railbit ^ 1];
darkvater@1227: 		trdy += _railbit.yinc[*railbit ^ 1];
darkvater@1227: 	}
darkvater@1227: 
darkvater@1227: 	// validate the direction
darkvater@1227: 	while (((trdx <= 0) && (dx > 0)) || ((trdx >= 0) && (dx < 0)) ||
darkvater@1227: 	       ((trdy <= 0) && (dy > 0)) || ((trdy >= 0) && (dy < 0))) {
Darkvater@1796: 		if (!HASBIT(*railbit, 3)) { // first direction is invalid, try the other
Darkvater@1796: 			SETBIT(*railbit, 3); // reverse the direction
darkvater@1227: 			trdx = -trdx;
darkvater@1227: 			trdy = -trdy;
darkvater@1227: 		} else // other direction is invalid too, invalid drag
darkvater@1227: 			return CMD_ERROR;
darkvater@1227: 	}
darkvater@1227: 
darkvater@1227: 	// (for diagonal tracks, this is already made sure of by above test), but:
darkvater@1227: 	// for non-diagonal tracks, check if the start and end tile are on 1 line
darkvater@1227: 	if (*railbit & 0x6) {
darkvater@1227: 		trdx = _railbit.xinc[*railbit];
darkvater@1227: 		trdy = _railbit.yinc[*railbit];
darkvater@1227: 		if ((abs(dx) != abs(dy)) && (abs(dx) + abs(trdy) != abs(dy) + abs(trdx)))
darkvater@1227: 			return CMD_ERROR;
darkvater@1227: 	}
darkvater@1227: 
darkvater@1227: 	return 0;
darkvater@1227: }
darkvater@1227: 
Darkvater@1775: /** Build a stretch of railroad tracks.
Darkvater@1775:  * @param x,y start tile of drag
Darkvater@1775:  * @param p1 end tile of drag
Darkvater@1775:  * @param p2 various bitstuffed elements
Darkvater@1775:  * - p2 = (bit 0-3) - railroad type normal/maglev (0 = normal, 1 = mono, 2 = maglev)
Darkvater@1775:  * - p2 = (bit 4-6) - track-orientation, valid values: 0-5
Darkvater@1775:  * - p2 = (bit 7)   - 0 = build, 1 = remove tracks
truelight@0:  */
darkvater@1227: static int32 CmdRailTrackHelper(int x, int y, uint32 flags, uint32 p1, uint32 p2)
darkvater@1227: {
darkvater@1227: 	int ex, ey;
darkvater@1227: 	int32 ret, total_cost = 0;
Darkvater@1775: 	byte railbit = (p2 >> 4) & 7;
darkvater@1227: 	byte mode = HASBIT(p2, 7);
truelight@0: 
Darkvater@1781: 	if (!ValParamRailtype(p2 & 0x3) || !ValParamTrackOrientation(railbit)) return CMD_ERROR;
Darkvater@1781: 	if (p1 > MapSize()) return CMD_ERROR;
Darkvater@1775: 
darkvater@1227: 	/* unpack end point */
darkvater@1227: 	ex = TileX(p1) * 16;
darkvater@1227: 	ey = TileY(p1) * 16;
truelight@0: 
darkvater@889: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
darkvater@889: 
Darkvater@1775: 	if (CmdFailed(ValidateAutoDrag(&railbit, x, y, ex, ey))) return CMD_ERROR;
truelight@201: 
Darkvater@1775: 	if (flags & DC_EXEC) SndPlayTileFx(SND_20_SPLAT_2, TILE_FROM_XY(x,y));
truelight@0: 
truelight@0: 	for(;;) {
Darkvater@1775: 		ret = DoCommand(x, y, p2 & 0x3, railbit & 7, flags, (mode == 0) ? CMD_BUILD_SINGLE_RAIL : CMD_REMOVE_SINGLE_RAIL);
truelight@0: 
Darkvater@1775: 		if (CmdFailed(ret)) {
darkvater@1227: 			if ((_error_message != STR_1007_ALREADY_BUILT) && (mode == 0))
truelight@0: 				break;
truelight@0: 		} else
truelight@0: 			total_cost += ret;
truelight@0: 
darkvater@1227: 		if (x == ex && y == ey)
truelight@0: 			break;
truelight@0: 
truelight@0: 		x += _railbit.xinc[railbit];
truelight@0: 		y += _railbit.yinc[railbit];
truelight@201: 
darkvater@1227: 		// toggle railbit for the non-diagonal tracks
truelight@0: 		if (railbit & 0x6) railbit ^= 1;
truelight@201: 	}
truelight@0: 
Darkvater@1775: 	return (total_cost == 0) ? CMD_ERROR : total_cost;
truelight@0: }
truelight@0: 
Darkvater@1796: /** Build rail on a stretch of track.
Darkvater@1796:  * Stub for the unified rail builder/remover
Darkvater@1796:  * @see CmdRailTrackHelper
Darkvater@1796:  */
darkvater@1227: int32 CmdBuildRailroadTrack(int x, int y, uint32 flags, uint32 p1, uint32 p2)
darkvater@1227: {
Darkvater@1775: 	return CmdRailTrackHelper(x, y, flags, p1, CLRBIT(p2, 7));
darkvater@1227: }
truelight@0: 
Darkvater@1796: /** Build rail on a stretch of track.
Darkvater@1796:  * Stub for the unified rail builder/remover
Darkvater@1796:  * @see CmdRailTrackHelper
Darkvater@1796:  */
truelight@0: int32 CmdRemoveRailroadTrack(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
darkvater@1227: 	return CmdRailTrackHelper(x, y, flags, p1, SETBIT(p2, 7));
truelight@0: }
truelight@0: 
Darkvater@1775: /** Build a train depot
Darkvater@1775:  * @param x,y position of the train depot
Darkvater@1775:  * @param p1 rail type
Darkvater@1775:  * @param p2 depot direction (0 through 3), where 0 is NW, 1 is NE, etc.
truelight@0:  */
truelight@0: int32 CmdBuildTrainDepot(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
Darkvater@1775: 	Depot *d;
Darkvater@1775: 	TileIndex tile = TILE_FROM_XY(x,y);
truelight@0: 	int32 cost, ret;
truelight@0: 	uint tileh;
truelight@0: 
truelight@0: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@0: 
truelight@0: 	if (!EnsureNoVehicle(tile)) return CMD_ERROR;
Darkvater@1775: 	/* check railtype and valid direction for depot (0 through 3), 4 in total */
Darkvater@1775: 	if (!ValParamRailtype(p1) || p2 > 3) return CMD_ERROR;
truelight@0: 
truelight@0: 	tileh = GetTileSlope(tile, NULL);
truelight@0: 	if (tileh != 0) {
truelight@84: 		if ((!_patches.ainew_active && _is_ai_player) || !_patches.build_on_slopes || (tileh & 0x10 || !((0x4C >> p2) & tileh) ))
truelight@0: 			return_cmd_error(STR_0007_FLAT_LAND_REQUIRED);
truelight@0: 	}
truelight@0: 
truelight@0: 	ret = DoCommandByTile(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
Darkvater@1775: 	if (CmdFailed(ret)) return CMD_ERROR;
truelight@0: 	cost = ret;
truelight@0: 
Darkvater@1775: 	d = AllocateDepot();
Darkvater@1775: 	if (d == NULL)
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		if (_current_player == _local_player)
truelight@0: 			_last_built_train_depot_tile = (TileIndex)tile;
truelight@201: 
truelight@201: 		ModifyTile(tile,
truelight@0: 			MP_SETTYPE(MP_RAILWAY) |
truelight@0: 			MP_MAP3LO | MP_MAPOWNER_CURRENT | MP_MAP5,
truelight@0: 			p1, /* map3_lo */
truelight@0: 			p2 | RAIL_TYPE_DEPOT /* map5 */
truelight@0: 		);
truelight@201: 
Darkvater@1775: 		d->xy = tile;
Darkvater@1775: 		d->town_index = ClosestTownFromTile(tile, (uint)-1)->index;
truelight@0: 
truelight@0: 		SetSignalsOnBothDir(tile, (p2&1) ? 2 : 1);
truelight@0: 
truelight@0: 	}
truelight@0: 
truelight@0: 	return cost + _price.build_train_depot;
truelight@0: }
truelight@0: 
Darkvater@1775: /** Build signals, alternate between double/single, signal/semaphore,
Darkvater@1775:  * pre/exit/combo-signals, and what-else not
Darkvater@1775:  * @param x,y coordinates where signals is being built
Darkvater@1775:  * @param p1 various bitstuffed elements
Darkvater@1775:  * - p1 = (bit 0-2) - track-orientation, valid values: 0-5
Darkvater@1775:  * - p1 = (bit 3)   - choose semaphores/signals or cycle normal/pre/exit/combo depending on context
Darkvater@1775:  * @param p2 used for CmdBuildManySignals() to copy style of first signal
darkvater@58:  */
darkvater@1227: int32 CmdBuildSingleSignal(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
tron@1084: 	TileIndex tile = TILE_FROM_XY(x, y);
tron@1084: 	bool semaphore;
tron@1084: 	bool pre_signal;
tron@1084: 	uint track = p1 & 0x7;
truelight@0: 	byte m5;
truelight@0: 	int32 cost;
truelight@201: 
Darkvater@1775: 	if (!ValParamTrackOrientation(track) || !IsTileType(tile, MP_RAILWAY) || !EnsureNoVehicle(tile))
truelight@0: 		return CMD_ERROR;
truelight@0: 
Darkvater@1775: 	/* Protect against invalid signal copying */
Darkvater@1775: 	if (p2 != 0 && (p2 & _signals_table_both[track]) == 0) return CMD_ERROR;
truelight@0: 
tron@1084: 	m5 = _map5[tile];
tron@1084: 
Darkvater@1775: 	/* You can't build signals in a depot, and the selected track must exist */
Darkvater@1775: 	if (m5 & 0x80 || !HASBIT(m5, track)) return CMD_ERROR;
tron@1084: 
tron@1084: 	if (!CheckTileOwnership(tile)) return CMD_ERROR;
tron@1084: 
darkvater@58: 	_error_message = STR_1005_NO_SUITABLE_RAILROAD_TRACK;
darkvater@58: 
truelight@0: 	{
truelight@0: 		byte m = m5 & RAIL_BIT_MASK;
tron@1084: 		if (m != RAIL_BIT_DIAG1 &&
tron@1084: 				m != RAIL_BIT_DIAG2 &&
tron@1084: 				m != RAIL_BIT_UPPER &&
tron@1084: 				m != RAIL_BIT_LOWER &&
tron@1084: 				m != RAIL_BIT_LEFT &&
tron@1084: 				m != RAIL_BIT_RIGHT &&
tron@1084: 				m != (RAIL_BIT_UPPER | RAIL_BIT_LOWER) &&
tron@1084: 				m != (RAIL_BIT_LEFT | RAIL_BIT_RIGHT))
truelight@0: 			return CMD_ERROR;
truelight@0: 	}
truelight@0: 
tron@1084: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@0: 
tron@1084: 	// Same bit, used in different contexts
tron@1084: 	semaphore = pre_signal = HASBIT(p1, 3);
darkvater@1066: 
tron@1084: 	if ((_map3_lo[tile] & _signals_table_both[track]) == 0) {
tron@1084: 		// build new signals
truelight@0: 		cost = _price.build_signals;
darkvater@1066: 	} else {
tron@1084: 		if (p2 != 0 &&
tron@1084: 				((semaphore && !HASBIT(_map3_hi[tile], 2)) ||
tron@1084: 				(!semaphore && HASBIT(_map3_hi[tile], 2)))) {
tron@1084: 			// convert signals <-> semaphores
tron@1084: 			cost = _price.build_signals + _price.remove_signals;
tron@1084: 		} else {
tron@1084: 			// it is free to change orientation/pre-exit-combo signals
tron@1084: 			cost = 0;
tron@1084: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
tron@1084: 		if (!(m5 & RAIL_TYPE_SIGNALS)) {
tron@1084: 			// there are no signals at all on this tile yet
truelight@0: 			_map5[tile] |= RAIL_TYPE_SIGNALS; // change into signals
truelight@0: 			_map2[tile] |= 0xF0;              // all signals are on
truelight@0: 			_map3_lo[tile] &= ~0xF0;          // no signals built by default
tron@1084: 			_map3_hi[tile] = semaphore ? 4 : 0;
truelight@0: 		}
truelight@0: 
tron@1084: 		if (p2 == 0) {
tron@1084: 			if ((_map3_lo[tile] & _signals_table_both[track]) == 0) {
tron@1084: 				// build new signals
tron@1084: 				_map3_lo[tile] |= _signals_table_both[track];
tron@1084: 			} else {
tron@1084: 				if (pre_signal) {
tron@1084: 					// cycle between normal -> pre -> exit -> combo -> ...
tron@1084: 					byte type = (_map3_hi[tile] + 1) & 0x03;
tron@1084: 					_map3_hi[tile] &= ~0x03;
tron@1084: 					_map3_hi[tile] |= type;
tron@1084: 				} else {
tron@1084: 					// cycle between two-way -> one-way -> one-way -> ...
tron@1084: 					switch (track) {
tron@1084: 						case 3:
tron@1084: 						case 5: {
tron@1084: 							byte signal = (_map3_lo[tile] - 0x10) & 0x30;
tron@1084: 							if (signal == 0) signal = 0x30;
tron@1084: 							_map3_lo[tile] &= ~0x30;
tron@1084: 							_map3_lo[tile] |= signal;
tron@1084: 							break;
tron@1084: 						}
darkvater@58: 
tron@1084: 						default: {
tron@1084: 							byte signal = (_map3_lo[tile] - 0x40) & 0xC0;
tron@1084: 							if (signal == 0) signal = 0xC0;
tron@1084: 							_map3_lo[tile] &= ~0xC0;
tron@1084: 							_map3_lo[tile] |= signal;
tron@1084: 							break;
tron@1084: 						}
tron@1084: 					}
tron@1084: 				}
tron@1084: 			}
darkvater@58: 		} else {
tron@1084: 			/* If CmdBuildManySignals is called with copying signals, just copy the
tron@1084: 			 * style of the first signal given as parameter by CmdBuildManySignals */
tron@1084: 			_map3_lo[tile] &= ~_signals_table_both[track];
tron@1084: 			_map3_lo[tile] |= p2 & _signals_table_both[track];
darkvater@58: 			// convert between signal<->semaphores when dragging
tron@1084: 			if (semaphore)
tron@1084: 				SETBIT(_map3_hi[tile], 2);
tron@1084: 			else
tron@1084: 				CLRBIT(_map3_hi[tile], 2);
truelight@0: 		}
truelight@201: 
truelight@0: 		MarkTileDirtyByTile(tile);
truelight@0: 		SetSignalsOnBothDir(tile, track);
truelight@0: 	}
truelight@0: 
truelight@0: 	return cost;
truelight@0: }
truelight@0: 
Darkvater@1796: /**	Build many signals by dragging; AutoSignals
Darkvater@1796:  * @param x,y start tile of drag
Darkvater@1796:  * @param p1  end tile of drag
Darkvater@1796:  * @param p2 various bitstuffed elements
Darkvater@1796:  * - p2 = (bit  0)    - 0 = build, 1 = remove signals
Darkvater@1796:  * - p2 = (bit  3)    - 0 = signals, 1 = semaphores
Darkvater@1796:  * - p2 = (bit  4- 6) - track-orientation, valid values: 0-5
Darkvater@1796:  * - p2 = (bit 24-31) - user defined signals_density
darkvater@58:  */
darkvater@1227: static int32 CmdSignalTrackHelper(int x, int y, uint32 flags, uint32 p1, uint32 p2)
darkvater@58: {
darkvater@1227: 	int ex, ey;
darkvater@58: 	int32 ret, total_cost, signal_ctr;
Darkvater@1796: 	byte m5, signals;
Darkvater@1796: 	TileIndex tile = TILE_FROM_XY(x, y);
Darkvater@1796: 	bool error = true;
Darkvater@1796: 
darkvater@1227: 	int mode = p2 & 0x1;
Darkvater@1796: 	byte semaphores = (HASBIT(p2, 3)) ? 8 : 0;
Darkvater@1796: 	byte railbit = (p2 >> 4) & 0x7;
Darkvater@1796: 	byte signal_density = (p2 >> 24);
Darkvater@1796: 
Darkvater@1796: 	if (p1 > MapSize()) return CMD_ERROR;
Darkvater@1796: 	if (signal_density == 0 || signal_density > 20) return CMD_ERROR;
darkvater@58: 
darkvater@889: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
darkvater@889: 
Darkvater@1796: 	/* for vertical/horizontal tracks, double the given signals density
Darkvater@1796: 	* since the original amount will be too dense (shorter tracks) */
Darkvater@1796: 	if (railbit & 0x6) signal_density *= 2;
Darkvater@1796: 
darkvater@1227: 	// unpack end tile
tron@926: 	ex = TileX(p1) * 16;
tron@926: 	ey = TileY(p1) * 16;
darkvater@58: 
Darkvater@1796: 	if (CmdFailed(ValidateAutoDrag(&railbit, x, y, ex, ey))) return CMD_ERROR;
darkvater@58: 
darkvater@58: 	// copy the signal-style of the first rail-piece if existing
darkvater@58: 	m5 = _map5[tile];
darkvater@58: 	if (!(m5 & RAIL_TYPE_SPECIAL) && (m5 & RAIL_BIT_MASK) && (m5 & RAIL_TYPE_SIGNALS)) {
darkvater@1227: 		signals = _map3_lo[tile] & _signals_table_both[railbit];
darkvater@1227: 		if (signals == 0) signals = _signals_table_both[railbit];
darkvater@58: 
darkvater@58: 		semaphores = (_map3_hi[tile] & ~3) ? 8 : 0; // copy signal/semaphores style (independent of CTRL)
Darkvater@1796: 	} else // no signals exist, drag a two-way signal stretch
darkvater@1227: 		signals = _signals_table_both[railbit];
darkvater@58: 
darkvater@58: 	/* signal_density_ctr	- amount of tiles already processed
darkvater@58: 	 * signals_density		- patch setting to put signal on every Nth tile (double space on |, -- tracks)
darkvater@58: 	 **********
darkvater@58: 	 * railbit		- direction of autorail
darkvater@58: 	 * semaphores	- semaphores or signals
truelight@201: 	 * signals		- is there a signal/semaphore on the first tile, copy its style (two-way/single-way)
darkvater@58: 									and convert all others to semaphore/signal
darkvater@58: 	 * mode				- 1 remove signals, 0 build signals */
darkvater@58: 	signal_ctr = total_cost = 0;
Darkvater@1796: 	for (;;) {
darkvater@58: 		// only build/remove signals with the specified density
darkvater@58: 		if ((signal_ctr %	signal_density) == 0 ) {
darkvater@58: 			ret = DoCommand(x, y, (railbit & 7) | semaphores, signals, flags, (mode == 1) ? CMD_REMOVE_SIGNALS : CMD_BUILD_SIGNALS);
darkvater@58: 
miham@826: 			/* Abort placement for any other error than NOT_SUITABLE_TRACK
darkvater@58: 			 * This includes vehicles on track, competitor's tracks, etc. */
Darkvater@1796: 			if (CmdFailed(ret)) {
Darkvater@1796: 				if (_error_message != STR_1005_NO_SUITABLE_RAILROAD_TRACK && mode != 1) return CMD_ERROR;
darkvater@58: 			} else {
darkvater@58: 				error = false;
darkvater@58: 				total_cost += ret;
darkvater@58: 			}
darkvater@58: 		}
darkvater@58: 
Darkvater@1796: 		if (ex == x && ey == y) break; // reached end of drag
darkvater@58: 
darkvater@58: 		x += _railbit.xinc[railbit];
truelight@201: 		y += _railbit.yinc[railbit];
darkvater@58: 		signal_ctr++;
truelight@201: 
darkvater@1227: 		// toggle railbit for the non-diagonal tracks (|, -- tracks)
darkvater@58: 		if (railbit & 0x6) railbit ^= 1;
darkvater@58: 	}
darkvater@58: 
darkvater@58: 	return (error) ? CMD_ERROR : total_cost;
darkvater@58: }
darkvater@58: 
Darkvater@1796: /** Build signals on a stretch of track.
Darkvater@1796:  * Stub for the unified signal builder/remover
Darkvater@1796:  * @see CmdSignalTrackHelper
Darkvater@1796:  */
darkvater@1227: int32 CmdBuildSignalTrack(int x, int y, uint32 flags, uint32 p1, uint32 p2)
darkvater@1227: {
darkvater@1227: 	return CmdSignalTrackHelper(x, y, flags, p1, p2);
darkvater@1227: }
darkvater@1227: 
Darkvater@1775: /** Remove signals
Darkvater@1775:  * @param x,y coordinates where signal is being deleted from
Darkvater@1775:  * @param p1 track combination to remove signal from
truelight@0:  */
darkvater@1227: int32 CmdRemoveSingleSignal(int x, int y, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
tron@1518: 	TileIndex tile = TILE_FROM_XY(x, y);
tron@1518: 	uint track = p1 & 0x7;
tron@1518: 
Darkvater@1775: 	if (!ValParamTrackOrientation(track) || !IsTileType(tile, MP_RAILWAY) || !EnsureNoVehicle(tile))
tron@1518: 		return CMD_ERROR;
tron@1518: 
tron@1518: 	if ((_map5[tile] & RAIL_TYPE_MASK) != RAIL_TYPE_SIGNALS ||
tron@1518: 			(_map3_lo[tile] & _signals_table_both[track]) == 0) // signals on track?
tron@1518: 		return CMD_ERROR;
tron@1518: 
Darkvater@1775: 	/* Only water can remove signals from anyone */
Darkvater@1775: 	if (_current_player != OWNER_WATER && !CheckTileOwnership(tile)) return CMD_ERROR;
truelight@0: 
truelight@0: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
truelight@0: 
truelight@0: 	/* Do it? */
truelight@0: 	if (flags & DC_EXEC) {
tron@1518: 		_map3_lo[tile] &= ~_signals_table_both[track];
truelight@201: 
darkvater@1066: 		/* removed last signal from tile? */
darkvater@1066: 		if ((_map3_lo[tile] & 0xF0) == 0) {
darkvater@1066: 			_map5[tile] &= ~RAIL_TYPE_SIGNALS;
darkvater@1066: 			_map2[tile] &= ~0xF0;
darkvater@1066: 			CLRBIT(_map3_hi[tile], 2); // remove any possible semaphores
darkvater@1066: 		}
tron@1109: 
darkvater@1066: 		SetSignalsOnBothDir(tile, track);
truelight@0: 
truelight@0: 		MarkTileDirtyByTile(tile);
truelight@0: 	}
truelight@201: 
truelight@0: 	return _price.remove_signals;
truelight@0: }
truelight@0: 
Darkvater@1796: /** Remove signals on a stretch of track.
Darkvater@1796:  * Stub for the unified signal builder/remover
Darkvater@1796:  * @see CmdSignalTrackHelper
Darkvater@1796:  */
darkvater@1227: int32 CmdRemoveSignalTrack(int x, int y, uint32 flags, uint32 p1, uint32 p2)
darkvater@1227: {
darkvater@1229: 	return CmdSignalTrackHelper(x, y, flags, p1, SETBIT(p2, 0));
darkvater@1227: }
darkvater@1227: 
truelight@201: typedef int32 DoConvertRailProc(uint tile, uint totype, bool exec);
truelight@0: 
truelight@0: static int32 DoConvertRail(uint tile, uint totype, bool exec)
truelight@0: {
truelight@0: 	if (!CheckTileOwnership(tile) || !EnsureNoVehicle(tile))
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	// tile is already of requested type?
truelight@0: 	if ( (uint)(_map3_lo[tile] & 0xF) == totype)
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	// change type.
truelight@0: 	if (exec) {
truelight@0: 		_map3_lo[tile] = (_map3_lo[tile] & 0xF0) + totype;
truelight@0: 		MarkTileDirtyByTile(tile);
truelight@0: 	}
truelight@0: 
truelight@0: 	return _price.build_rail >> 1;
truelight@0: }
truelight@0: 
truelight@0: extern int32 DoConvertStationRail(uint tile, uint totype, bool exec);
truelight@0: extern int32 DoConvertStreetRail(uint tile, uint totype, bool exec);
truelight@0: extern int32 DoConvertTunnelBridgeRail(uint tile, uint totype, bool exec);
truelight@0: 
Darkvater@1782: /** Convert one rail type to the other. You can convert normal rail to
Darkvater@1782:  * monorail/maglev easily or vice-versa.
Darkvater@1782:  * @param ex,ey end tile of rail conversion drag
Darkvater@1782:  * @param p1 start tile of drag
Darkvater@1782:  * @param p2 new railtype to convert to
Darkvater@1782:  */
truelight@0: int32 CmdConvertRail(int ex, int ey, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	int32 ret, cost, money;
Darkvater@1782: 	int sx, sy, x, y;
truelight@0: 
darkvater@889: 	SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
darkvater@889: 
Darkvater@1782: 	if (!ValParamRailtype(p2)) return CMD_ERROR;
Darkvater@1782: 	if (p1 > MapSize()) return CMD_ERROR;
Darkvater@1782: 
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@201: 
truelight@0: 	money = GetAvailableMoneyForCommand();
truelight@0: 	cost = 0;
truelight@201: 
Darkvater@1782: 	for (x = sx; x <= ex; x += 16) {
Darkvater@1782: 		for (y = sy; y <= ey; y += 16) {
Darkvater@1782: 			TileIndex tile = TILE_FROM_XY(x,y);
Darkvater@1782: 			DoConvertRailProc *proc;
Darkvater@1782: 
Darkvater@1782: 			if (IsTileType(tile, MP_RAILWAY)) proc = DoConvertRail;
Darkvater@1782: 			else if (IsTileType(tile, MP_STATION)) proc = DoConvertStationRail;
Darkvater@1782: 			else if (IsTileType(tile, MP_STREET)) proc = DoConvertStreetRail;
Darkvater@1782: 			else if (IsTileType(tile, MP_TUNNELBRIDGE)) proc = DoConvertTunnelBridgeRail;
truelight@0: 			else continue;
truelight@201: 
Darkvater@1782: 			ret = proc(tile, p2, false);
Darkvater@1782: 			if (CmdFailed(ret)) continue;
truelight@0: 			cost += ret;
truelight@0: 
truelight@0: 			if (flags & DC_EXEC) {
truelight@0: 				if ( (money -= ret) < 0) { _additional_cash_required = ret; return cost - ret; }
Darkvater@1782: 				proc(tile, p2, true);
truelight@0: 			}
truelight@0: 		}
truelight@0: 	}
Darkvater@1782: 
Darkvater@1782: 	return (cost == 0) ? CMD_ERROR : cost;
truelight@0: }
truelight@0: 
truelight@0: static int32 RemoveTrainDepot(uint tile, uint32 flags)
truelight@0: {
darkvater@149: 	if (!CheckTileOwnership(tile) && _current_player != OWNER_WATER)
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	if (!EnsureNoVehicle(tile))
truelight@0: 		return CMD_ERROR;
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
truelight@0: 		int track = _map5[tile] & RAIL_DEPOT_TRACK_MASK;
truelight@0: 
truelight@0: 		DoDeleteDepot(tile);
truelight@0: 		SetSignalsOnBothDir(tile, track);
truelight@0: 	}
truelight@0: 
truelight@0: 	return _price.remove_train_depot;
truelight@0: }
truelight@0: 
tron@1534: static int32 ClearTile_Track(TileIndex tile, byte flags)
tron@1534: {
tron@1534: 	int32 cost;
tron@1534: 	int32 ret;
truelight@0: 	byte m5;
truelight@0: 
truelight@0: 	m5 = _map5[tile];
truelight@0: 
truelight@0: 	if (flags & DC_AUTO) {
truelight@0: 		if (m5 & RAIL_TYPE_SPECIAL)
truelight@0: 			return_cmd_error(STR_2004_BUILDING_MUST_BE_DEMOLISHED);
truelight@0: 
tron@1901: 		if (!IsTileOwner(tile, _current_player))
truelight@0: 			return_cmd_error(STR_1024_AREA_IS_OWNED_BY_ANOTHER);
truelight@0: 
truelight@0: 		return_cmd_error(STR_1008_MUST_REMOVE_RAILROAD_TRACK);
truelight@0: 	}
truelight@0: 
truelight@0: 	cost = 0;
truelight@201: 
tron@1534: 	switch (m5 & RAIL_TYPE_MASK) {
tron@1534: 		case RAIL_TYPE_SIGNALS:
tron@1534: 			if (_map3_lo[tile] & _signals_table_both[0]) {
tron@1534: 				ret = DoCommandByTile(tile, 0, 0, flags, CMD_REMOVE_SIGNALS);
tron@1534: 				if (ret == CMD_ERROR) return CMD_ERROR;
truelight@0: 				cost += ret;
truelight@0: 			}
tron@1534: 			if (_map3_lo[tile] & _signals_table_both[3]) {
tron@1534: 				ret = DoCommandByTile(tile, 3, 0, flags, CMD_REMOVE_SIGNALS);
tron@1534: 				if (ret == CMD_ERROR) return CMD_ERROR;
tron@1534: 				cost += ret;
tron@1534: 			}
truelight@0: 
tron@1534: 			m5 &= RAIL_BIT_MASK;
tron@1598: 			if (!(flags & DC_EXEC)) {
tron@1598: 				for (; m5 != 0; m5 >>= 1) if (m5 & 1) cost += _price.remove_rail;
tron@1598: 				return cost;
tron@1598: 			}
tron@1534: 			/* FALLTHROUGH */
tron@1109: 
tron@1534: 		case RAIL_TYPE_NORMAL: {
tron@1534: 			uint i;
tron@1534: 
tron@1534: 			for (i = 0; m5 != 0; i++, m5 >>= 1) {
tron@1534: 				if (m5 & 1) {
tron@1598: 					ret = DoCommandByTile(tile, 0, i, flags, CMD_REMOVE_SINGLE_RAIL);
tron@1598: 					if (ret == CMD_ERROR) return CMD_ERROR;
tron@1534: 					cost += ret;
tron@1534: 				}
tron@1534: 			}
tron@1534: 			return cost;
tron@1534: 		}
tron@1534: 
tron@1534: 		case RAIL_TYPE_DEPOT:
tron@1534: 			switch (m5 & RAIL_SUBTYPE_MASK) {
tron@1534: 				case RAIL_SUBTYPE_DEPOT:
tron@1534: 					return RemoveTrainDepot(tile, flags);
tron@1534: 
tron@1534: 				case RAIL_SUBTYPE_WAYPOINT:
tron@1534: 					return RemoveTrainWaypoint(tile, flags, false);
tron@1534: 
tron@1534: 				default:
tron@1534: 					return CMD_ERROR;
tron@1534: 			}
tron@1534: 
tron@1534: 		default:
tron@1534: 			return CMD_ERROR;
tron@1534: 	}
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: 
truelight@0: #include "table/track_land.h"
truelight@0: 
truelight@0: // used for presignals
truelight@0: static const SpriteID _signal_base_sprites[16] = {
truelight@0: 	0x4FB,
truelight@0: 	0x1323,
truelight@0: 	0x1333,
truelight@0: 	0x1343,
truelight@0: 
truelight@0: 	// use semaphores instead of signals?
truelight@0: 	0x1353,
truelight@0: 	0x1363,
truelight@0: 	0x1373,
truelight@0: 	0x1383,
truelight@0: 
truelight@0: 	// mirrored versions
truelight@0: 	0x4FB,
truelight@0: 	0x1323,
truelight@0: 	0x1333,
truelight@0: 	0x1343,
truelight@201: 
truelight@0: 	0x13C6,
truelight@0: 	0x13D6,
truelight@0: 	0x13E6,
truelight@0: 	0x13F6,
truelight@0: };
truelight@0: 
truelight@0: // used to determine the side of the road for the signal
truelight@0: static const byte _signal_position[24] = {
truelight@0: 	/* original: left side position */
truelight@0: 	0x58,0x1E,0xE1,0xB9,0x01,0xA3,0x4B,0xEE,0x3B,0xD4,0x43,0xBD,
truelight@0: 	/* patch: ride side position */
truelight@0: 	0x1E,0xAC,0x64,0xE1,0x4A,0x10,0xEE,0xC5,0xDB,0x34,0x4D,0xB3
truelight@0: };
truelight@0: 
truelight@0: static void DrawSignalHelper(TileInfo *ti, byte condition, uint32 image_and_pos)
truelight@0: {
truelight@0: 	bool otherside = _opt.road_side & _patches.signal_side;
truelight@0: 
truelight@0: 	uint v = _signal_position[(image_and_pos & 0xF) + (otherside ? 12 : 0)];
truelight@0: 	uint x = ti->x | (v&0xF);
truelight@0: 	uint y = ti->y | (v>>4);
truelight@0: 	uint sprite = _signal_base_sprites[(_map3_hi[ti->tile] & 7) + (otherside ? 8 : 0)] + (image_and_pos>>4) + ((condition != 0) ? 1 : 0);
truelight@0: 	AddSortableSpriteToDraw(sprite, x, y, 1, 1, 10, GetSlopeZ(x,y));
truelight@0: }
truelight@0: 
truelight@0: static uint32 _drawtile_track_palette;
truelight@0: 
truelight@0: 
truelight@0: static void DrawTrackFence_NW(TileInfo *ti)
truelight@0: {
truelight@0: 	uint32 image = 0x515;
truelight@0: 	if (ti->tileh != 0) {
truelight@0: 		image = 0x519;
truelight@0: 		if (!(ti->tileh & 2)) {
truelight@0: 			image = 0x51B;
truelight@0: 		}
truelight@0: 	}
truelight@201: 	AddSortableSpriteToDraw(image | _drawtile_track_palette,
truelight@0: 		ti->x, ti->y+1, 16, 1, 4, ti->z);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_SE(TileInfo *ti)
truelight@0: {
truelight@0: 	uint32 image = 0x515;
truelight@0: 	if (ti->tileh != 0) {
truelight@0: 		image = 0x519;
truelight@0: 		if (!(ti->tileh & 2)) {
truelight@0: 			image = 0x51B;
truelight@0: 		}
truelight@0: 	}
truelight@201: 	AddSortableSpriteToDraw(image | _drawtile_track_palette,
truelight@0: 		ti->x, ti->y+15, 16, 1, 4, ti->z);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_NW_SE(TileInfo *ti)
truelight@0: {
truelight@0: 	DrawTrackFence_NW(ti);
truelight@0: 	DrawTrackFence_SE(ti);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_NE(TileInfo *ti)
truelight@0: {
truelight@0: 	uint32 image = 0x516;
truelight@0: 	if (ti->tileh != 0) {
truelight@0: 		image = 0x51A;
truelight@0: 		if (!(ti->tileh & 2)) {
truelight@0: 			image = 0x51C;
truelight@0: 		}
truelight@0: 	}
truelight@201: 	AddSortableSpriteToDraw(image | _drawtile_track_palette,
truelight@0: 		ti->x+1, ti->y, 1, 16, 4, ti->z);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_SW(TileInfo *ti)
truelight@0: {
truelight@0: 	uint32 image = 0x516;
truelight@0: 	if (ti->tileh != 0) {
truelight@0: 		image = 0x51A;
truelight@0: 		if (!(ti->tileh & 2)) {
truelight@0: 			image = 0x51C;
truelight@0: 		}
truelight@0: 	}
truelight@201: 	AddSortableSpriteToDraw(image | _drawtile_track_palette,
truelight@0: 		ti->x+15, ti->y, 1, 16, 4, ti->z);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_NE_SW(TileInfo *ti)
truelight@0: {
truelight@0: 	DrawTrackFence_NE(ti);
truelight@0: 	DrawTrackFence_SW(ti);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_NS_1(TileInfo *ti)
truelight@0: {
truelight@0: 	int z = ti->z;
truelight@0: 	if (ti->tileh & 1)
truelight@0: 		z += 8;
truelight@0: 	AddSortableSpriteToDraw(0x517 | _drawtile_track_palette,
truelight@0: 		ti->x + 8, ti->y + 8, 1, 1, 4, z);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_NS_2(TileInfo *ti)
truelight@0: {
truelight@0: 	int z = ti->z;
truelight@0: 	if (ti->tileh & 4)
truelight@0: 		z += 8;
truelight@0: 	AddSortableSpriteToDraw(0x517 | _drawtile_track_palette,
truelight@0: 		ti->x + 8, ti->y + 8, 1, 1, 4, z);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_WE_1(TileInfo *ti)
truelight@0: {
truelight@0: 	int z = ti->z;
truelight@0: 	if (ti->tileh & 8)
truelight@0: 		z += 8;
truelight@0: 	AddSortableSpriteToDraw(0x518 | _drawtile_track_palette,
truelight@0: 		ti->x + 8, ti->y + 8, 1, 1, 4, z);
truelight@0: }
truelight@0: 
truelight@0: static void DrawTrackFence_WE_2(TileInfo *ti)
truelight@0: {
truelight@0: 	int z = ti->z;
truelight@0: 	if (ti->tileh & 2)
truelight@0: 		z += 8;
truelight@0: 	AddSortableSpriteToDraw(0x518 | _drawtile_track_palette,
truelight@0: 		ti->x + 8, ti->y + 8, 1, 1, 4, z);
truelight@0: }
truelight@0: 
truelight@0: static void DetTrackDrawProc_Null(TileInfo *ti)
truelight@0: {
truelight@0: 	/* nothing should be here */
truelight@0: }
truelight@0: 
truelight@0: typedef void DetailedTrackProc(TileInfo *ti);
truelight@0: DetailedTrackProc * const _detailed_track_proc[16] = {
truelight@0: 	DetTrackDrawProc_Null,
truelight@0: 	DetTrackDrawProc_Null,
truelight@201: 
truelight@0: 	DrawTrackFence_NW,
truelight@0: 	DrawTrackFence_SE,
truelight@0: 	DrawTrackFence_NW_SE,
truelight@201: 
truelight@0: 	DrawTrackFence_NE,
truelight@0: 	DrawTrackFence_SW,
truelight@0: 	DrawTrackFence_NE_SW,
truelight@201: 
truelight@0: 	DrawTrackFence_NS_1,
truelight@0: 	DrawTrackFence_NS_2,
truelight@201: 
truelight@0: 	DrawTrackFence_WE_1,
truelight@0: 	DrawTrackFence_WE_2,
truelight@201: 
truelight@0: 	DetTrackDrawProc_Null,
truelight@0: 	DetTrackDrawProc_Null,
truelight@0: 	DetTrackDrawProc_Null,
truelight@0: 	DetTrackDrawProc_Null,
truelight@0: };
truelight@0: 
celestar@389: static void DrawSpecialBuilding(uint32 image, uint32 tracktype_offs,
celestar@389:                                 TileInfo *ti,
celestar@389:                                 byte x, byte y, byte z,
celestar@389:                                 byte xsize, byte ysize, byte zsize)
celestar@389: {
celestar@389: 	if (image & 0x8000)
celestar@389: 		image |= _drawtile_track_palette;
celestar@389: 	image += tracktype_offs;
tron@497: 	if (_display_opt & DO_TRANS_BUILDINGS) // show transparent depots
celestar@389: 		image = (image & 0x3FFF) | 0x3224000;
celestar@389: 	AddSortableSpriteToDraw(image, ti->x + x, ti->y + y, xsize, ysize, zsize, ti->z + z);
celestar@389: }
celestar@389: 
truelight@0: static void DrawTile_Track(TileInfo *ti)
truelight@0: {
truelight@0: 	uint32 tracktype_offs, image;
truelight@0: 	byte m5;
truelight@0: 
tron@1901: 	_drawtile_track_palette = SPRITE_PALETTE(PLAYER_SPRITE_COLOR(GetTileOwner(ti->tile)));
truelight@0: 
truelight@0: 	tracktype_offs = (_map3_lo[ti->tile] & 0xF) * TRACKTYPE_SPRITE_PITCH;
truelight@0: 
truelight@0: 	m5 = (byte)ti->map5;
truelight@0: 	if (!(m5 & RAIL_TYPE_SPECIAL)) {
truelight@0: 		bool special;
truelight@0: 
truelight@0: 		m5 &= RAIL_BIT_MASK;
truelight@201: 
truelight@0: 		special = false;
truelight@0: 
truelight@0: 		// select the sprite to use based on the map5 byte.
truelight@0: 		(image = 0x3F3, m5 == RAIL_BIT_DIAG2) ||
truelight@0: 		(image++,				m5 == RAIL_BIT_DIAG1) ||
truelight@0: 		(image++,				m5 == RAIL_BIT_UPPER) ||
truelight@0: 		(image++,				m5 == RAIL_BIT_LOWER) ||
truelight@0: 		(image++,				m5 == RAIL_BIT_RIGHT) ||
truelight@0: 		(image++,				m5 == RAIL_BIT_LEFT) ||
truelight@0: 		(image++,				m5 == (RAIL_BIT_DIAG1|RAIL_BIT_DIAG2)) ||
truelight@201: 
truelight@0: 		(image = 0x40B, m5 == (RAIL_BIT_UPPER|RAIL_BIT_LOWER)) ||
truelight@0: 		(image++,				m5 == (RAIL_BIT_LEFT|RAIL_BIT_RIGHT)) ||
truelight@201: 
truelight@0: 		(special=true, false) ||
truelight@0: 
truelight@0: 		(image = 0x3FA, !(m5 & (RAIL_BIT_RIGHT|RAIL_BIT_UPPER|RAIL_BIT_DIAG1))) ||
truelight@0: 		(image++,				!(m5 & (RAIL_BIT_LEFT|RAIL_BIT_LOWER|RAIL_BIT_DIAG1))) ||
truelight@0: 		(image++,				!(m5 & (RAIL_BIT_LEFT|RAIL_BIT_UPPER|RAIL_BIT_DIAG2))) ||
truelight@0: 		(image++,				!(m5 & (RAIL_BIT_RIGHT|RAIL_BIT_LOWER|RAIL_BIT_DIAG2))) ||
truelight@0: 		(image++, true);
truelight@0: 
truelight@0: 		if (ti->tileh != 0) {
truelight@0: 			int f = GetRailFoundation(ti->tileh, ti->map5 & 0x3F);
truelight@0: 			if (f) DrawFoundation(ti, f);
truelight@201: 
truelight@0: 			// default sloped sprites..
truelight@0: 			if (ti->tileh != 0) image = _track_sloped_sprites[ti->tileh - 1] + 0x3F3;
truelight@0: 		}
truelight@0: 
truelight@0: 		if ((_map2[ti->tile] & RAIL_MAP2LO_GROUND_MASK)==RAIL_GROUND_BROWN)
truelight@0: 			image = (image & 0xFFFF) | 0x3178000; // use a brown palette
truelight@0: 		else if ((_map2[ti->tile] & RAIL_MAP2LO_GROUND_MASK)==RAIL_GROUND_ICE_DESERT)
truelight@0: 			image += 26;
truelight@0: 
truelight@0: 		DrawGroundSprite(image + tracktype_offs);
truelight@0: 
truelight@0: 		if (special) {
truelight@0: 			if (m5 & RAIL_BIT_DIAG1) DrawGroundSprite(0x3ED + tracktype_offs);
truelight@0: 			if (m5 & RAIL_BIT_DIAG2) DrawGroundSprite(0x3EE + tracktype_offs);
truelight@0: 			if (m5 & RAIL_BIT_UPPER) DrawGroundSprite(0x3EF + tracktype_offs);
truelight@0: 			if (m5 & RAIL_BIT_LOWER) DrawGroundSprite(0x3F0 + tracktype_offs);
truelight@0: 			if (m5 & RAIL_BIT_LEFT)  DrawGroundSprite(0x3F2 + tracktype_offs);
truelight@0: 			if (m5 & RAIL_BIT_RIGHT) DrawGroundSprite(0x3F1 + tracktype_offs);
truelight@0: 		}
truelight@0: 
truelight@0: 		if (_display_opt & DO_FULL_DETAIL) {
truelight@0: 			_detailed_track_proc[_map2[ti->tile] & RAIL_MAP2LO_GROUND_MASK](ti);
truelight@0: 		}
truelight@0: 
truelight@0: 		/* draw signals also? */
truelight@0: 		if (!(ti->map5 & RAIL_TYPE_SIGNALS))
truelight@0: 			return;
truelight@0: 
truelight@0: 		{
truelight@0: 			byte m23;
truelight@0: 
truelight@0: 			m23 = (_map3_lo[ti->tile] >> 4) | (_map2[ti->tile] & 0xF0);
truelight@0: 
truelight@0: #define HAS_SIGNAL(x) (m23 & (byte)(0x1 << (x)))
truelight@0: #define ISON_SIGNAL(x) (m23 & (byte)(0x10 << (x)))
truelight@0: #define MAYBE_DRAW_SIGNAL(x,y,z) if (HAS_SIGNAL(x)) DrawSignalHelper(ti, ISON_SIGNAL(x), ((y-0x4FB) << 4)|(z))
truelight@0: 
truelight@0: 		if (!(m5 & RAIL_BIT_DIAG2)) {
truelight@0: 			if (!(m5 & RAIL_BIT_DIAG1)) {
truelight@0: 				if (m5 & RAIL_BIT_LEFT) {
truelight@0: 					MAYBE_DRAW_SIGNAL(2, 0x509, 0);
truelight@0: 					MAYBE_DRAW_SIGNAL(3, 0x507, 1);
truelight@0: 				}
truelight@0: 				if (m5 & RAIL_BIT_RIGHT) {
truelight@0: 					MAYBE_DRAW_SIGNAL(0, 0x509, 2);
truelight@0: 					MAYBE_DRAW_SIGNAL(1, 0x507, 3);
truelight@0: 				}
truelight@0: 				if (m5 & RAIL_BIT_UPPER) {
truelight@0: 					MAYBE_DRAW_SIGNAL(3, 0x505, 4);
truelight@0: 					MAYBE_DRAW_SIGNAL(2, 0x503, 5);
truelight@0: 				}
truelight@0: 				if (m5 & RAIL_BIT_LOWER) {
truelight@0: 					MAYBE_DRAW_SIGNAL(1, 0x505, 6);
truelight@0: 					MAYBE_DRAW_SIGNAL(0, 0x503, 7);
truelight@0: 				}
truelight@0: 			} else {
truelight@0: 				MAYBE_DRAW_SIGNAL(3, 0x4FB, 8);
truelight@0: 				MAYBE_DRAW_SIGNAL(2, 0x4FD, 9);
truelight@0: 			}
truelight@0: 		} else {
truelight@0: 			MAYBE_DRAW_SIGNAL(3, 0x4FF, 10);
truelight@0: 			MAYBE_DRAW_SIGNAL(2, 0x501, 11);
truelight@0: 		}
truelight@0: 		}
truelight@0: 	} else {
darkvater@395: 		/* draw depots / waypoints */
truelight@0: 		const DrawTrackSeqStruct *drss;
darkvater@395: 		byte type = m5 & 0x3F; // 0-3: depots, 4-5: waypoints
truelight@0: 
truelight@0: 		if (!(m5 & (RAIL_TYPE_MASK&~RAIL_TYPE_SPECIAL)))
truelight@0: 			return;
truelight@201: 
truelight@0: 		if (ti->tileh != 0) { DrawFoundation(ti, ti->tileh); }
truelight@0: 
tron@1535: 		if (IsRailWaypoint(m5) && _map3_lo[ti->tile] & 16) {
celestar@389: 			// look for customization
tron@1477: 			StationSpec *stat = GetCustomStation(STAT_CLASS_WAYP, _map3_hi[ti->tile]);
celestar@389: 
darkvater@403: 			if (stat) {
celestar@389: 				DrawTileSeqStruct const *seq;
darkvater@403: 				// emulate station tile - open with building
darkvater@403: 				DrawTileSprites *cust = &stat->renderdata[2 + (m5 & 0x1)];
darkvater@413: 				uint32 relocation = GetCustomStationRelocation(stat, ComposeWaypointStation(ti->tile), 0);
dominik@415: 				int railtype=(_map3_lo[ti->tile] & 0xF);
celestar@389: 
celestar@447: 				/* We don't touch the 0x8000 bit. In all this
celestar@447: 				 * waypoint code, it is used to indicate that
celestar@447: 				 * we should offset by railtype, but we always
celestar@447: 				 * do that for custom ground sprites and never
celestar@447: 				 * for station sprites. And in the drawing
celestar@447: 				 * code, it is used to indicate that the sprite
celestar@447: 				 * should be drawn in company colors, and it's
celestar@447: 				 * up to the GRF file to decide that. */
celestar@447: 
dominik@417: 				image = cust->ground_sprite;
dominik@417: 				image += railtype*((image<_custom_sprites_base)?TRACKTYPE_SPRITE_PITCH:1);
dominik@415: 
celestar@389: 				DrawGroundSprite(image);
celestar@389: 
celestar@389: 				foreach_draw_tile_seq(seq, cust->seq) {
darkvater@403: 					uint32 image = seq->image + relocation;
celestar@447: 					DrawSpecialBuilding(image, 0, ti,
celestar@389: 					                    seq->delta_x, seq->delta_y, seq->delta_z,
celestar@389: 					                    seq->width, seq->height, seq->unk);
celestar@389: 				}
celestar@389: 				return;
celestar@389: 			}
celestar@389: 		}
celestar@389: 
tron@1399: 		drss = _track_depot_layout_table[type];
truelight@0: 
tron@1399: 		image = drss++->image;
truelight@0: 		if (image & 0x8000) image = (image & 0x7FFF) + tracktype_offs;
truelight@0: 
truelight@0: 		// adjust ground tile for desert
dominik@283: 		// (don't adjust for arctic depots, because snow in depots looks weird)
dominik@283: 		if ((_map2[ti->tile] & RAIL_MAP2LO_GROUND_MASK)==RAIL_GROUND_ICE_DESERT && (_opt.landscape == LT_DESERT || type>=4))
truelight@0: 		{
truelight@0: 			if(image!=3981)
truelight@0: 				image += 26; // tile with tracks
truelight@0: 			else
truelight@0: 				image = 4550; // flat ground
truelight@0: 		}
truelight@0: 
truelight@0: 		DrawGroundSprite(image);
truelight@0: 
truelight@0: 		while ((image=drss->image) != 0) {
celestar@389: 			DrawSpecialBuilding(image, type < 4 ? tracktype_offs : 0, ti,
celestar@389: 			                    drss->subcoord_x, drss->subcoord_y, 0,
celestar@389: 			                    drss->width, drss->height, 0x17);
truelight@0: 			drss++;
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: void DrawTrainDepotSprite(int x, int y, int image, int railtype)
truelight@0: {
truelight@0: 	uint32 ormod, img;
truelight@0: 	const DrawTrackSeqStruct *dtss;
truelight@0: 
truelight@0: 	/* baseimage */
truelight@0: 	railtype *= TRACKTYPE_SPRITE_PITCH;
truelight@0: 
truelight@0: 	ormod = PLAYER_SPRITE_COLOR(_local_player);
truelight@0: 
tron@1399: 	dtss = _track_depot_layout_table[image];
truelight@0: 
truelight@0: 	x+=33;
truelight@0: 	y+=17;
truelight@0: 
tron@1399: 	img = dtss++->image;
truelight@201: 	if (img & 0x8000) img = (img & 0x7FFF) + railtype;
truelight@0: 	DrawSprite(img, x, y);
truelight@0: 
tron@1399: 	for (; dtss->image != 0; dtss++) {
truelight@0: 		Point pt = RemapCoords(dtss->subcoord_x, dtss->subcoord_y, 0);
truelight@0: 		image = dtss->image;
truelight@0: 		if (image & 0x8000) image |= ormod;
truelight@0: 		DrawSprite(image + railtype, x + pt.x, y + pt.y);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: #define NUM_SSD_ENTRY 256
truelight@0: #define NUM_SSD_STACK 32
truelight@0: 
truelight@0: typedef struct SetSignalsData {
truelight@0: 	int cur;
truelight@0: 	int cur_stack;
truelight@0: 	bool stop;
truelight@0: 	bool has_presignal;
truelight@201: 
truelight@0: 	// presignal info
truelight@0: 	int presignal_exits;
truelight@0: 	int presignal_exits_free;
truelight@0: 
truelight@0: 	// these are used to keep track of the signals that change.
truelight@0: 	byte bit[NUM_SSD_ENTRY];
truelight@0: 	TileIndex tile[NUM_SSD_ENTRY];
truelight@0: 
truelight@0: 	// these are used to keep track of the stack that modifies presignals recursively
truelight@0: 	TileIndex next_tile[NUM_SSD_STACK];
truelight@0: 	byte next_dir[NUM_SSD_STACK];
truelight@0: 
truelight@0: } SetSignalsData;
truelight@0: 
truelight@0: static bool SetSignalsEnumProc(uint tile, SetSignalsData *ssd, int track, uint length, byte *state)
truelight@0: {
truelight@0: 	// the tile has signals?
tron@1035: 	if (IsTileType(tile, MP_RAILWAY)) {
truelight@0: 		if ((_map5[tile]&RAIL_TYPE_MASK) == RAIL_TYPE_SIGNALS) {
truelight@0: 			if ((_map3_lo[tile] & _signals_table_both[track]) != 0) {
truelight@201: 
truelight@0: 				// is the signal pointing in to the segment existing?
truelight@0: 				if ((_map3_lo[tile] & _signals_table[track]) != 0) {
truelight@0: 					// yes, add the signal to the list of signals
truelight@0: 					if (ssd->cur != NUM_SSD_ENTRY) {
truelight@0: 						ssd->tile[ssd->cur] = tile; // remember the tile index
truelight@0: 						ssd->bit[ssd->cur] = track; // and the controlling bit number
truelight@0: 						ssd->cur++;
truelight@0: 					}
truelight@0: 
truelight@0: 					// remember if this block has a presignal.
truelight@0: 					ssd->has_presignal |= (_map3_hi[tile]&1);
truelight@0: 				}
truelight@201: 
truelight@0: 				// is this an exit signal that points out from the segment?
truelight@0: 				if ((_map3_hi[tile]&2) && _map3_lo[tile]&_signals_table_other[track]) {
truelight@0: 					ssd->presignal_exits++;
truelight@0: 					if ((_map2[tile]&_signals_table_other[track]) != 0)
truelight@0: 						ssd->presignal_exits_free++;
truelight@0: 				}
truelight@0: 
truelight@0: 				return true;
truelight@0: 			}
tron@1535: 		} else if (IsRailDepot(_map5[tile]))
truelight@0: 			return true; // don't look further if the tile is a depot
truelight@0: 	}
truelight@0: 	return false;
truelight@0: }
truelight@0: 
truelight@1555: /* Struct to parse data from VehicleFromPos to SignalVehicleCheckProc */
truelight@1555: typedef struct SignalVehicleCheckStruct {
truelight@1555: 	TileIndex tile;
truelight@1555: 	uint track;
truelight@1555: } SignalVehicleCheckStruct;
truelight@1555: 
truelight@1555: static void *SignalVehicleCheckProc(Vehicle *v, void *data)
truelight@1555: {
truelight@1555: 	SignalVehicleCheckStruct *dest = data;
truelight@1555: 	TileIndex tile;
truelight@1555: 
truelight@1609: 	if (v->type != VEH_Train)
truelight@1609: 		return NULL;
truelight@1609: 
truelight@1555: 	/* Find the tile outside the tunnel, for signalling */
truelight@1609: 	if (v->u.rail.track == 0x40)
truelight@1555: 		tile = GetVehicleOutOfTunnelTile(v);
truelight@1609: 	else
truelight@1555: 		tile = v->tile;
truelight@1555: 
truelight@1555: 	/* Wrong tile, or no train? Not a match */
truelight@1609: 	if (tile != dest->tile)
truelight@1555: 		return NULL;
truelight@1555: 
truelight@1555: 	/* Are we on the same piece of track? */
truelight@1555: 	if (dest->track & (v->u.rail.track + (v->u.rail.track<<8)))
truelight@1555: 		return v;
truelight@1555: 
truelight@1555: 	return NULL;
truelight@1555: }
truelight@1555: 
truelight@1555: /* Special check for SetSignalsAfterProc, to see if there is a vehicle on this tile */
truelight@1555: bool SignalVehicleCheck(TileIndex tile, uint track)
truelight@1555: {
truelight@1555: 	SignalVehicleCheckStruct dest;
truelight@1555: 
truelight@1555: 	dest.tile = tile;
truelight@1555: 	dest.track = track;
truelight@1555: 
Darkvater@1818: 	/** @todo "Hackish" fix for the tunnel problems. This is needed because a tunnel
Darkvater@1818: 	 * is some kind of invisible black hole, and there is some special magic going
Darkvater@1818: 	 * on in there. This 'workaround' can be removed once the maprewrite is done.
Darkvater@1818: 	 */
matthijs@1816: 	if (GetTileType(tile)==MP_TUNNELBRIDGE && ((_map5[tile] & 0xF0)==0)) {
matthijs@1816: 		// It is a tunnel we're checking, we need to do some special stuff
matthijs@1816: 		// because VehicleFromPos will not find the vihicle otherwise
matthijs@1816: 		byte direction = _map5[tile] & 3;
matthijs@1816: 		FindLengthOfTunnelResult flotr;
matthijs@1816: 		flotr = FindLengthOfTunnel(tile, direction);
matthijs@1816: 		dest.track = 1 << (direction & 1); // get the trackbit the vehicle would have if it has not entered the tunnel yet (ie is still visible)
matthijs@1816: 
matthijs@1816: 		// check for a vehicle with that trackdir on the start tile of the tunnel
Darkvater@1818: 		if (VehicleFromPos(tile, &dest, SignalVehicleCheckProc) != NULL) return true;
matthijs@1816: 
matthijs@1816: 		// check for a vehicle with that trackdir on the end tile of the tunnel
Darkvater@1818: 		if (VehicleFromPos(flotr.tile, &dest, SignalVehicleCheckProc) != NULL) return true;
matthijs@1816: 
matthijs@1816: 		// now check all tiles from start to end for a "hidden" vehicle
matthijs@1816: 		// NOTE: the hashes for tiles may overlap, so this could maybe be optimised a bit by not checking every tile?
matthijs@1816: 		dest.track = 0x40; // trackbit for vehicles "hidden" inside a tunnel
matthijs@1816: 		for (; tile != flotr.tile; tile += TileOffsByDir(direction)) {
matthijs@1816: 			if (VehicleFromPos(tile, &dest, SignalVehicleCheckProc) != NULL)
matthijs@1816: 				return true;
matthijs@1816: 		}
matthijs@1816: 
matthijs@1816: 		// no vehicle found
matthijs@1816: 		return false;
Darkvater@1818: 	}
Darkvater@1818: 
Darkvater@1818: 	return VehicleFromPos(tile, &dest, SignalVehicleCheckProc) != NULL;
truelight@1555: }
truelight@1555: 
truelight@0: static void SetSignalsAfterProc(TrackPathFinder *tpf)
truelight@0: {
truelight@0: 	SetSignalsData *ssd = tpf->userdata;
truelight@0: 	TrackPathFinderLink *link;
truelight@1555: 	uint offs;
truelight@1555: 	uint i;
truelight@0: 
truelight@0: 	ssd->stop = false;
truelight@201: 
truelight@1555: 	/* Go through all the PF tiles */
truelight@1555: 	for (i = 0; i < lengthof(tpf->hash_head); i++) {
truelight@1555: 		/* Empty hash item */
truelight@1555: 		if (tpf->hash_head[i] == 0)
truelight@0: 			continue;
truelight@0: 
truelight@1555: 		/* If 0x8000 is not set, there is only 1 item */
truelight@1555: 		if (!(tpf->hash_head[i] & 0x8000)) {
truelight@1555: 			/* Check if there is a vehicle on this tile */
truelight@1555: 			if (SignalVehicleCheck(tpf->hash_tile[i], tpf->hash_head[i])) {
truelight@1555: 				ssd->stop = true;
truelight@1555: 				return;
truelight@1555: 			}
truelight@0: 		} else {
truelight@1555: 			/* There are multiple items, where hash_tile points to the first item in the list */
truelight@1555: 			offs = tpf->hash_tile[i];
truelight@0: 			do {
truelight@1555: 				/* Find the next item */
truelight@0: 				link = PATHFIND_GET_LINK_PTR(tpf, offs);
truelight@1555: 				/* Check if there is a vehicle on this tile */
truelight@1555: 				if (SignalVehicleCheck(link->tile, link->flags)) {
truelight@1555: 					ssd->stop = true;
truelight@1555: 					return;
truelight@0: 				}
truelight@1555: 				/* Goto the next item */
truelight@0: 			} while ((offs=link->next) != 0xFFFF);
truelight@0: 		}
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: static const byte _dir_from_track[14] = {
truelight@0: 	0,1,0,1,2,1, 0,0,
truelight@0: 	2,3,3,2,3,0,
truelight@0: };
truelight@0: 
truelight@0: 
truelight@0: static void ChangeSignalStates(SetSignalsData *ssd)
truelight@0: {
truelight@0: 	int i;
truelight@0: 
truelight@0: 	// thinking about presignals...
truelight@0: 	// the presignal is green if,
truelight@0: 	//   if no train is in the segment AND
truelight@0: 	//   there is at least one green exit signal OR
truelight@0: 	//   there are no exit signals in the segment
truelight@0: 
truelight@0: 	// then mark the signals in the segment accordingly
truelight@0: 	for(i=0; i!=ssd->cur; i++) {
truelight@0: 		uint tile = ssd->tile[i];
truelight@0: 		byte bit = _signals_table[ssd->bit[i]];
truelight@817: 		uint16 m2 = _map2[tile];
truelight@0: 
truelight@0: 		// presignals don't turn green if there is at least one presignal exit and none are free
truelight@0: 		if (_map3_hi[tile] & 1) {
truelight@0: 			int ex = ssd->presignal_exits, exfree = ssd->presignal_exits_free;
truelight@0: 
truelight@0: 			// subtract for dual combo signals so they don't count themselves
truelight@0: 			if (_map3_hi[tile]&2 && _map3_lo[tile]&_signals_table_other[ssd->bit[i]]) {
truelight@0: 				ex--;
truelight@0: 				if ((_map2[tile]&_signals_table_other[ssd->bit[i]]) != 0) exfree--;
truelight@0: 			}
truelight@0: 
truelight@0: 			// if we have exits and none are free, make red.
truelight@0: 			if (ex && !exfree) goto make_red;
truelight@0: 		}
truelight@0: 
truelight@0: 		// check if the signal is unaffected.
truelight@0: 		if (ssd->stop) {
truelight@0: make_red:
truelight@0: 			// turn red
truelight@0: 			if ( (bit&m2) == 0 )
truelight@201: 				continue;
truelight@0: 		} else {
truelight@0: 			// turn green
truelight@0: 			if ( (bit&m2) != 0 )
truelight@0: 				continue;
truelight@0: 		}
truelight@0: 
Darkvater@1813: 		/* Update signals on the other side of this exit-combo signal; it changed. */
Darkvater@1813: 		if (_map3_hi[tile] & 2 ) {
truelight@0: 			if (ssd->cur_stack != NUM_SSD_STACK) {
truelight@0: 				ssd->next_tile[ssd->cur_stack] = tile;
truelight@0: 				ssd->next_dir[ssd->cur_stack] = _dir_from_track[ssd->bit[i]];
truelight@0: 				ssd->cur_stack++;
truelight@0: 			} else {
Darkvater@1813: 				printf("NUM_SSD_STACK too small\n"); /// @todo WTF is this???
truelight@0: 			}
truelight@0: 		}
truelight@201: 
truelight@0: 		// it changed, so toggle it
truelight@0: 		_map2[tile] = m2 ^ bit;
truelight@0: 		MarkTileDirtyByTile(tile);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: 
truelight@0: bool UpdateSignalsOnSegment(uint tile, byte direction)
truelight@0: {
truelight@0: 	SetSignalsData ssd;
truelight@0: 	int result = -1;
truelight@0: 
truelight@0: 	ssd.cur_stack = 0;
truelight@0: 	direction>>=1;
truelight@0: 
truelight@0: 	for(;;) {
truelight@0: 		// go through one segment and update all signals pointing into that segment.
truelight@0: 		ssd.cur = ssd.presignal_exits = ssd.presignal_exits_free = 0;
truelight@0: 		ssd.has_presignal = false;
truelight@0: 
truelight@159: 		FollowTrack(tile, 0xC000 | TRANSPORT_RAIL, direction, (TPFEnumProc*)SetSignalsEnumProc, SetSignalsAfterProc, &ssd);
truelight@0: 		ChangeSignalStates(&ssd);
truelight@0: 
truelight@0: 		// remember the result only for the first iteration.
truelight@0: 		if (result < 0) result = ssd.stop;
truelight@201: 
truelight@0: 		// if any exit signals were changed, we need to keep going to modify the stuff behind those.
truelight@0: 		if(!ssd.cur_stack)
truelight@0: 			break;
truelight@0: 
truelight@0: 		// one or more exit signals were changed, so we need to update another segment too.
truelight@0: 		tile = ssd.next_tile[--ssd.cur_stack];
truelight@0: 		direction = ssd.next_dir[ssd.cur_stack];
truelight@0: 	}
truelight@201: 
truelight@0: 	return (bool)result;
truelight@0: }
truelight@0: 
truelight@0: void SetSignalsOnBothDir(uint tile, byte track)
truelight@0: {
truelight@0: 	static const byte _search_dir_1[6] = {1, 3, 1, 3, 5, 3};
truelight@0: 	static const byte _search_dir_2[6] = {5, 7, 7, 5, 7, 1};
truelight@0: 
truelight@0: 	UpdateSignalsOnSegment(tile, _search_dir_1[track]);
truelight@0: 	UpdateSignalsOnSegment(tile, _search_dir_2[track]);
truelight@0: }
truelight@0: 
tron@410: static uint GetSlopeZ_Track(TileInfo *ti)
truelight@0: {
truelight@0: 	uint z = ti->z;
truelight@0: 	int th = ti->tileh;
dominik@13: 
truelight@0: 	// check if it's a foundation
truelight@0: 	if (ti->tileh != 0) {
truelight@0: 		if ((ti->map5 & 0x80) == 0) {
truelight@0: 			uint f = GetRailFoundation(ti->tileh, ti->map5 & 0x3F);
truelight@0: 			if (f != 0) {
truelight@0: 				if (f < 15) {
truelight@0: 					// leveled foundation
truelight@0: 					return z + 8;
truelight@0: 				}
truelight@0: 				// inclined foundation
truelight@0: 				th = _inclined_tileh[f - 15];
truelight@0: 			}
truelight@0: 		} else if ((ti->map5 & 0xC0) == 0xC0) {
darkvater@395: 			// depot or waypoint
truelight@0: 			return z + 8;
truelight@0: 		}
truelight@0: 		return GetPartialZ(ti->x&0xF, ti->y&0xF, th) + z;
truelight@0: 	}
truelight@0: 	return z;
truelight@0: }
truelight@0: 
tron@1095: static uint GetSlopeTileh_Track(TileInfo *ti)
dominik@39: {
dominik@39: 	// check if it's a foundation
dominik@39: 	if (ti->tileh != 0) {
dominik@39: 		if ((ti->map5 & 0x80) == 0) {
dominik@39: 			uint f = GetRailFoundation(ti->tileh, ti->map5 & 0x3F);
dominik@39: 			if (f != 0) {
dominik@39: 				if (f < 15) {
dominik@39: 					// leveled foundation
dominik@39: 					return 0;
dominik@39: 				}
dominik@39: 				// inclined foundation
dominik@39: 				return _inclined_tileh[f - 15];
dominik@39: 			}
dominik@39: 		} else if ((ti->map5 & 0xC0) == 0xC0) {
darkvater@395: 			// depot or waypoint
dominik@39: 			return 0;
dominik@39: 		}
dominik@39: 	}
dominik@39: 	return ti->tileh;
dominik@39: }
dominik@39: 
tron@473: static void GetAcceptedCargo_Track(uint tile, AcceptedCargo ac)
truelight@0: {
truelight@0: 	/* not used */
truelight@0: }
truelight@0: 
truelight@0: static void AnimateTile_Track(uint tile)
truelight@0: {
truelight@0: 	/* not used */
truelight@0: }
truelight@0: 
truelight@0: static void TileLoop_Track(uint tile)
truelight@0: {
truelight@0: 	byte a2;
truelight@0: 	byte rail;
truelight@817: 	uint16 m2;
truelight@0: 	byte owner;
truelight@0: 
truelight@0: 	m2 = _map2[tile] & 0xF;
truelight@0: 
truelight@0: 	/* special code for alps landscape */
truelight@0: 	if (_opt.landscape == LT_HILLY) {
truelight@0: 		/* convert into snow? */
truelight@0: 		if (GetTileZ(tile) > _opt.snow_line) {
truelight@0: 			a2 = RAIL_GROUND_ICE_DESERT;
truelight@0: 			goto modify_me;
truelight@0: 		}
truelight@0: 
truelight@0: 	/* special code for desert landscape */
truelight@0: 	} else if (_opt.landscape == LT_DESERT) {
truelight@0: 		/* convert into desert? */
truelight@0: 		if (GetMapExtraBits(tile) == 1) {
truelight@0: 			a2 = RAIL_GROUND_ICE_DESERT;
truelight@0: 			goto modify_me;
truelight@0: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	// Don't continue tile loop for depots
truelight@0: 	if (_map5[tile] & RAIL_TYPE_SPECIAL)
truelight@0: 		return;
truelight@0: 
truelight@0: 	a2 = RAIL_GROUND_GREEN;
truelight@0: 
truelight@0: 	if (m2 != RAIL_GROUND_BROWN) { /* wait until bottom is green */
truelight@0: 		/* determine direction of fence */
truelight@0: 		rail = _map5[tile] & RAIL_BIT_MASK;
truelight@201: 
truelight@0: 		if (rail == RAIL_BIT_UPPER) {
truelight@0: 			a2 = RAIL_GROUND_FENCE_HORIZ1;
truelight@0: 		} else if (rail == RAIL_BIT_LOWER) {
truelight@0: 			a2 = RAIL_GROUND_FENCE_HORIZ2;
truelight@0: 		} else if (rail == RAIL_BIT_LEFT) {
truelight@0: 			a2 = RAIL_GROUND_FENCE_VERT1;
truelight@0: 		} else if (rail == RAIL_BIT_RIGHT) {
truelight@0: 			a2 = RAIL_GROUND_FENCE_VERT2;
truelight@0: 		} else {
tron@1901: 			owner = GetTileOwner(tile);
truelight@0: 
truelight@0: 			if ( (!(rail&(RAIL_BIT_DIAG2|RAIL_BIT_UPPER|RAIL_BIT_LEFT)) && (rail&RAIL_BIT_DIAG1)) || rail==(RAIL_BIT_LOWER|RAIL_BIT_RIGHT)) {
tron@1035: 				if (!IsTileType(tile + TILE_XY(0,-1), MP_RAILWAY) ||
tron@1901: 						!IsTileOwner(tile + TILE_XY(0, -1), owner) ||
truelight@0: 						(_map5[tile + TILE_XY(0,-1)]==RAIL_BIT_UPPER || _map5[tile + TILE_XY(0,-1)]==RAIL_BIT_LEFT))
truelight@201: 							a2 = RAIL_GROUND_FENCE_NW;
truelight@0: 			}
truelight@0: 
truelight@0: 			if ( (!(rail&(RAIL_BIT_DIAG2|RAIL_BIT_LOWER|RAIL_BIT_RIGHT)) && (rail&RAIL_BIT_DIAG1)) || rail==(RAIL_BIT_UPPER|RAIL_BIT_LEFT)) {
tron@1035: 				if (!IsTileType(tile + TILE_XY(0,1), MP_RAILWAY) ||
tron@1901: 						!IsTileOwner(tile + TILE_XY(0, 1), owner) ||
truelight@0: 						(_map5[tile + TILE_XY(0,1)]==RAIL_BIT_LOWER || _map5[tile + TILE_XY(0,1)]==RAIL_BIT_RIGHT))
truelight@0: 							a2 = (a2 == RAIL_GROUND_FENCE_NW) ? RAIL_GROUND_FENCE_SENW : RAIL_GROUND_FENCE_SE;
truelight@0: 			}
truelight@0: 
truelight@0: 			if ( (!(rail&(RAIL_BIT_DIAG1|RAIL_BIT_UPPER|RAIL_BIT_RIGHT)) && (rail&RAIL_BIT_DIAG2)) || rail==(RAIL_BIT_LOWER|RAIL_BIT_LEFT)) {
tron@1035: 				if (!IsTileType(tile + TILE_XY(-1,0), MP_RAILWAY) ||
tron@1901: 						!IsTileOwner(tile + TILE_XY(-1, 0), owner) ||
truelight@0: 						(_map5[tile + TILE_XY(-1,0)]==RAIL_BIT_UPPER || _map5[tile + TILE_XY(-1,0)]==RAIL_BIT_RIGHT))
truelight@0: 							a2 = RAIL_GROUND_FENCE_NE;
truelight@0: 			}
truelight@0: 
truelight@0: 			if ( (!(rail&(RAIL_BIT_DIAG1|RAIL_BIT_LOWER|RAIL_BIT_LEFT)) && (rail&RAIL_BIT_DIAG2)) || rail==(RAIL_BIT_UPPER|RAIL_BIT_RIGHT)) {
tron@1035: 				if (!IsTileType(tile + TILE_XY(1,0), MP_RAILWAY) ||
tron@1901: 						!IsTileOwner(tile + TILE_XY(1, 0), owner) ||
truelight@0: 						(_map5[tile + TILE_XY(1,0)]==RAIL_BIT_LOWER || _map5[tile + TILE_XY(1,0)]==RAIL_BIT_LEFT))
truelight@0: 							a2 = (a2 == RAIL_GROUND_FENCE_NE) ? RAIL_GROUND_FENCE_NESW : RAIL_GROUND_FENCE_SW;
truelight@0: 			}
truelight@0: 		}
truelight@0: 	}
truelight@0: 
truelight@0: modify_me:;
truelight@0: 	/* tile changed? */
truelight@0: 	if ( m2 != a2) {
truelight@0: 		_map2[tile] = (_map2[tile] & ~RAIL_MAP2LO_GROUND_MASK) | a2;
truelight@0: 		MarkTileDirtyByTile(tile);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: 
truelight@159: static uint32 GetTileTrackStatus_Track(uint tile, TransportType mode) {
truelight@817: 	byte m5, a;
truelight@817: 	uint16 b;
truelight@0: 	uint32 ret;
truelight@0: 
truelight@159: 	if (mode != TRANSPORT_RAIL)
truelight@0: 		return 0;
truelight@0: 
truelight@0: 	m5 = _map5[tile];
truelight@0: 
truelight@0: 	if (!(m5 & RAIL_TYPE_SPECIAL)) {
truelight@0: 		ret = (m5 | (m5 << 8)) & 0x3F3F;
truelight@0: 		if (!(m5 & RAIL_TYPE_SIGNALS)) {
truelight@0: 			if ( (ret & 0xFF) == 3)
darkvater@22: 			/* Diagonal crossing? */
truelight@0: 				ret |= 0x40;
truelight@0: 		} else {
truelight@0: 			/* has_signals */
truelight@0: 
truelight@0: 			a = _map3_lo[tile];
truelight@0: 			b = _map2[tile];
truelight@0: 
truelight@0: 			b &= a;
truelight@0: 
darkvater@22: 			/* When signals are not present (in neither
darkvater@22: 			 * direction), we pretend them to be green. (So if
darkvater@22: 			 * signals are only one way, the other way will
darkvater@22: 			 * implicitely become `red' */
truelight@0: 			if ((a & 0xC0) == 0) { b |= 0xC0; }
truelight@0: 			if ((a & 0x30) == 0) { b |= 0x30; }
truelight@0: 
truelight@0: 			if ( (b & 0x80) == 0)	ret |= 0x10070000;
truelight@0: 			if ( (b & 0x40) == 0)	ret |= 0x7100000;
truelight@0: 			if ( (b & 0x20) == 0)	ret |= 0x20080000;
truelight@0: 			if ( (b & 0x10) == 0)	ret |= 0x8200000;
truelight@0: 		}
truelight@0: 	} else if (m5 & 0x40) {
truelight@0: 		static const byte _train_spec_tracks[6] = {1,2,1,2,1,2};
truelight@0: 		m5 = _train_spec_tracks[m5 & 0x3F];
truelight@0: 		ret = (m5 << 8) + m5;
truelight@0: 	} else
truelight@0: 		return 0;
truelight@0: 	return ret;
truelight@0: }
truelight@0: 
truelight@0: static void ClickTile_Track(uint tile)
truelight@0: {
tron@1535: 	if (IsRailDepot(_map5[tile]))
truelight@0: 		ShowTrainDepotWindow(tile);
tron@1535: 	else if (IsRailWaypoint(_map5[tile]))
truelight@1542: 		ShowRenameWaypointWindow(GetWaypointByTile(tile));
truelight@201: 
truelight@0: }
truelight@0: 
tron@1590: static void GetTileDesc_Track(TileIndex tile, TileDesc *td)
truelight@0: {
tron@1901: 	td->owner = GetTileOwner(tile);
tron@1590: 	switch (_map5[tile] & RAIL_TYPE_MASK) {
tron@1590: 		case RAIL_TYPE_NORMAL:
truelight@0: 			td->str = STR_1021_RAILROAD_TRACK;
tron@1590: 			break;
tron@1590: 
tron@1590: 		case RAIL_TYPE_SIGNALS: {
tron@1590: 			const StringID signal_type[] = {
tron@1590: 				STR_RAILROAD_TRACK_WITH_NORMAL_SIGNALS,
tron@1590: 				STR_RAILROAD_TRACK_WITH_PRESIGNALS,
tron@1590: 				STR_RAILROAD_TRACK_WITH_EXITSIGNALS,
tron@1590: 				STR_RAILROAD_TRACK_WITH_COMBOSIGNALS
tron@1590: 			};
tron@1590: 
tron@1590: 			td->str = signal_type[_map3_hi[tile] & 0x03];
tron@1590: 			break;
truelight@0: 		}
tron@1590: 
tron@1590: 		case RAIL_TYPE_DEPOT:
tron@1590: 		default:
tron@1590: 			td->str = ((_map5[tile] & RAIL_SUBTYPE_MASK) == RAIL_SUBTYPE_DEPOT) ?
tron@1590: 				STR_1023_RAILROAD_TRAIN_DEPOT : STR_LANDINFO_WAYPOINT;
tron@1590: 			break;
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: static void ChangeTileOwner_Track(uint tile, byte old_player, byte new_player)
truelight@0: {
tron@1901: 	if (!IsTileOwner(tile, old_player)) return;
truelight@201: 
truelight@0: 	if (new_player != 255) {
tron@1902: 		SetTileOwner(tile, new_player);
truelight@0: 	}	else {
truelight@0: 		DoCommandByTile(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR);
truelight@0: 	}
truelight@0: }
truelight@0: 
truelight@0: static const byte _fractcoords_behind[4] = { 0x8F, 0x8, 0x80, 0xF8 };
truelight@0: static const byte _fractcoords_enter[4] = { 0x8A, 0x48, 0x84, 0xA8 };
truelight@0: static const byte _fractcoords_leave[4] = { 0x81, 0xD8, 0x8D, 0x18 };
truelight@0: static const byte _enter_directions[4] = {5, 7, 1, 3};
truelight@0: static const byte _leave_directions[4] = {1, 3, 5, 7};
truelight@0: static const byte _depot_track_mask[4] = {1, 2, 1, 2};
truelight@0: 
tron@410: static uint32 VehicleEnter_Track(Vehicle *v, uint tile, int x, int y)
truelight@0: {
truelight@0: 	byte fract_coord;
truelight@0: 	int dir;
truelight@201: 
truelight@0: 	// this routine applies only to trains in depot tiles
tron@1535: 	if (v->type != VEH_Train || !IsRailDepot(_map5[tile]))
truelight@0: 		return 0;
truelight@0: 
truelight@0: 	/* depot direction */
truelight@0: 	dir = _map5[tile] & RAIL_DEPOT_DIR;
truelight@201: 
truelight@0: 	fract_coord = (x & 0xF) + ((y & 0xF) << 4);
truelight@0: 	if (_fractcoords_behind[dir] == fract_coord) {
truelight@0: 		/* make sure a train is not entering the tile from behind */
truelight@0: 		return 8;
truelight@0: 	} else if (_fractcoords_enter[dir] == fract_coord) {
truelight@0: 		if (_enter_directions[dir] == v->direction) {
truelight@0: 			/* enter the depot */
truelight@0: 			v->u.rail.track = 0x80,
truelight@0: 			v->vehstatus |= VS_HIDDEN; /* hide it */
truelight@0: 			v->direction ^= 4;
truelight@0: 			if (v->next == NULL)
truelight@0: 				TrainEnterDepot(v, tile);
truelight@0: 			v->tile = tile;
truelight@0: 			InvalidateWindow(WC_VEHICLE_DEPOT, tile);
truelight@0: 			return 4;
truelight@0: 		}
truelight@0: 	} else if (_fractcoords_leave[dir] == fract_coord) {
truelight@0: 		if (_leave_directions[dir] == v->direction) {
truelight@0: 			/* leave the depot? */
truelight@0: 			if ((v=v->next) != NULL) {
truelight@0: 				v->vehstatus &= ~VS_HIDDEN;
truelight@0: 				v->u.rail.track = _depot_track_mask[dir];
matthijs@1330: 				assert(v->u.rail.track);
truelight@0: 			}
truelight@0: 		}
truelight@0: 	}
truelight@0: 
truelight@0: 	return 0;
truelight@0: }
truelight@0: 
tron@1093: void InitializeRail(void)
truelight@0: {
truelight@0: 	_last_built_train_depot_tile = 0;
truelight@0: }
truelight@0: 
truelight@0: const TileTypeProcs _tile_type_rail_procs = {
truelight@0: 	DrawTile_Track,						/* draw_tile_proc */
truelight@0: 	GetSlopeZ_Track,					/* get_slope_z_proc */
truelight@0: 	ClearTile_Track,					/* clear_tile_proc */
truelight@0: 	GetAcceptedCargo_Track,		/* get_accepted_cargo_proc */
truelight@0: 	GetTileDesc_Track,				/* get_tile_desc_proc */
truelight@0: 	GetTileTrackStatus_Track,	/* get_tile_track_status_proc */
truelight@0: 	ClickTile_Track,					/* click_tile_proc */
truelight@0: 	AnimateTile_Track,				/* animate_tile_proc */
truelight@0: 	TileLoop_Track,						/* tile_loop_clear */
truelight@0: 	ChangeTileOwner_Track,		/* change_tile_owner_clear */
truelight@0: 	NULL,											/* get_produced_cargo_proc */
truelight@0: 	VehicleEnter_Track,				/* vehicle_enter_tile_proc */
truelight@0: 	NULL,											/* vehicle_leave_tile_proc */
dominik@39: 	GetSlopeTileh_Track,			/* get_slope_tileh_proc */
truelight@0: };