--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/src/station_cmd.cpp Wed Jan 10 18:12:09 2007 +0000
@@ -0,0 +1,3285 @@
+/* $Id$ */
+
+/** @file station_cmd.c */
+
+#include "stdafx.h"
+#include "openttd.h"
+#include "bridge_map.h"
+#include "debug.h"
+#include "functions.h"
+#include "station_map.h"
+#include "table/sprites.h"
+#include "table/strings.h"
+#include "map.h"
+#include "tile.h"
+#include "station.h"
+#include "gfx.h"
+#include "window.h"
+#include "viewport.h"
+#include "command.h"
+#include "town.h"
+#include "vehicle.h"
+#include "news.h"
+#include "saveload.h"
+#include "economy.h"
+#include "player.h"
+#include "airport.h"
+#include "sprite.h"
+#include "depot.h"
+#include "train.h"
+#include "water_map.h"
+#include "industry_map.h"
+#include "newgrf_callbacks.h"
+#include "newgrf_station.h"
+#include "yapf/yapf.h"
+#include "date.h"
+
+typedef enum StationRectModes
+{
+ RECT_MODE_TEST = 0,
+ RECT_MODE_TRY,
+ RECT_MODE_FORCE
+} StationRectMode;
+
+static void StationRect_Init(Station *st);
+static bool StationRect_IsEmpty(Station *st);
+static bool StationRect_BeforeAddTile(Station *st, TileIndex tile, StationRectMode mode);
+static bool StationRect_BeforeAddRect(Station *st, TileIndex tile, int w, int h, StationRectMode mode);
+static bool StationRect_AfterRemoveTile(Station *st, TileIndex tile);
+static bool StationRect_AfterRemoveRect(Station *st, TileIndex tile, int w, int h);
+
+
+/**
+ * Called if a new block is added to the station-pool
+ */
+static void StationPoolNewBlock(uint start_item)
+{
+ Station *st;
+
+ /* We don't use FOR_ALL here, because FOR_ALL skips invalid items.
+ * TODO - This is just a temporary stage, this will be removed. */
+ for (st = GetStation(start_item); st != NULL; st = (st->index + 1U < GetStationPoolSize()) ? GetStation(st->index + 1U) : NULL) st->index = start_item++;
+}
+
+static void StationPoolCleanBlock(uint start_item, uint end_item)
+{
+ uint i;
+
+ for (i = start_item; i <= end_item; i++) {
+ Station *st = GetStation(i);
+ free(st->speclist);
+ st->speclist = NULL;
+ }
+}
+
+/**
+ * Called if a new block is added to the roadstop-pool
+ */
+static void RoadStopPoolNewBlock(uint start_item)
+{
+ RoadStop *rs;
+
+ /* We don't use FOR_ALL here, because FOR_ALL skips invalid items.
+ * TODO - This is just a temporary stage, this will be removed. */
+ for (rs = GetRoadStop(start_item); rs != NULL; rs = (rs->index + 1U < GetRoadStopPoolSize()) ? GetRoadStop(rs->index + 1U) : NULL) rs->index = start_item++;
+}
+
+DEFINE_OLD_POOL(Station, Station, StationPoolNewBlock, StationPoolCleanBlock)
+DEFINE_OLD_POOL(RoadStop, RoadStop, RoadStopPoolNewBlock, NULL)
+
+
+extern void UpdateAirplanesOnNewStation(Station *st);
+
+static bool TileBelongsToRailStation(const Station *st, TileIndex tile)
+{
+ return IsTileType(tile, MP_STATION) && GetStationIndex(tile) == st->index && IsRailwayStation(tile);
+}
+
+void MarkStationTilesDirty(const Station *st)
+{
+ TileIndex tile = st->train_tile;
+ int w, h;
+
+ // XXX No station is recorded as 0, not INVALID_TILE...
+ if (tile == 0) return;
+
+ for (h = 0; h < st->trainst_h; h++) {
+ for (w = 0; w < st->trainst_w; w++) {
+ if (TileBelongsToRailStation(st, tile)) {
+ MarkTileDirtyByTile(tile);
+ }
+ tile += TileDiffXY(1, 0);
+ }
+ tile += TileDiffXY(-w, 1);
+ }
+}
+
+static void MarkStationDirty(const Station* st)
+{
+ if (st->sign.width_1 != 0) {
+ InvalidateWindowWidget(WC_STATION_VIEW, st->index, 1);
+
+ MarkAllViewportsDirty(
+ st->sign.left - 6,
+ st->sign.top,
+ st->sign.left + (st->sign.width_1 << 2) + 12,
+ st->sign.top + 48);
+ }
+}
+
+static void InitializeRoadStop(RoadStop *road_stop, RoadStop *previous, TileIndex tile, StationID index)
+{
+ road_stop->xy = tile;
+ road_stop->used = true;
+ road_stop->status = 3; //stop is free
+ road_stop->next = NULL;
+ road_stop->prev = previous;
+ road_stop->station = index;
+ road_stop->num_vehicles = 0;
+}
+
+RoadStop* GetPrimaryRoadStop(const Station* st, RoadStopType type)
+{
+ switch (type) {
+ case RS_BUS: return st->bus_stops;
+ case RS_TRUCK: return st->truck_stops;
+ default: NOT_REACHED();
+ }
+
+ return NULL;
+}
+
+RoadStop* GetRoadStopByTile(TileIndex tile, RoadStopType type)
+{
+ const Station* st = GetStationByTile(tile);
+ RoadStop* rs;
+
+ for (rs = GetPrimaryRoadStop(st, type); rs->xy != tile; rs = rs->next) {
+ assert(rs->next != NULL);
+ }
+
+ return rs;
+}
+
+uint GetNumRoadStopsInStation(const Station* st, RoadStopType type)
+{
+ uint num = 0;
+ const RoadStop *rs;
+
+ assert(st != NULL);
+ for (rs = GetPrimaryRoadStop(st, type); rs != NULL; rs = rs->next) num++;
+
+ return num;
+}
+
+RoadStop *AllocateRoadStop(void)
+{
+ RoadStop *rs;
+
+ /* We don't use FOR_ALL here, because FOR_ALL skips invalid items.
+ * TODO - This is just a temporary stage, this will be removed. */
+ for (rs = GetRoadStop(0); rs != NULL; rs = (rs->index + 1U < GetRoadStopPoolSize()) ? GetRoadStop(rs->index + 1U) : NULL) {
+ if (!IsValidRoadStop(rs)) {
+ RoadStopID index = rs->index;
+
+ memset(rs, 0, sizeof(*rs));
+ rs->index = index;
+
+ return rs;
+ }
+ }
+
+ /* Check if we can add a block to the pool */
+ if (AddBlockToPool(&_RoadStop_pool)) return AllocateRoadStop();
+
+ return NULL;
+}
+
+/* Calculate the radius of the station. Basicly it is the biggest
+ * radius that is available within the station */
+static uint FindCatchmentRadius(const Station* st)
+{
+ uint ret = 0;
+
+ if (st->bus_stops != NULL) ret = max(ret, CA_BUS);
+ if (st->truck_stops != NULL) ret = max(ret, CA_TRUCK);
+ if (st->train_tile) ret = max(ret, CA_TRAIN);
+ if (st->dock_tile) ret = max(ret, CA_DOCK);
+
+ if (st->airport_tile) {
+ switch (st->airport_type) {
+ case AT_OILRIG: ret = max(ret, CA_AIR_OILPAD); break;
+ case AT_SMALL: ret = max(ret, CA_AIR_SMALL); break;
+ case AT_HELIPORT: ret = max(ret, CA_AIR_HELIPORT); break;
+ case AT_LARGE: ret = max(ret, CA_AIR_LARGE); break;
+ case AT_METROPOLITAN: ret = max(ret, CA_AIR_METRO); break;
+ case AT_INTERNATIONAL: ret = max(ret, CA_AIR_INTER); break;
+ case AT_COMMUTER: ret = max(ret, CA_AIR_COMMUTER); break;
+ case AT_HELIDEPOT: ret = max(ret, CA_AIR_HELIDEPOT); break;
+ case AT_INTERCON: ret = max(ret, CA_AIR_INTERCON); break;
+ case AT_HELISTATION: ret = max(ret, CA_AIR_HELISTATION); break;
+ }
+ }
+
+ return ret;
+}
+
+#define CHECK_STATIONS_ERR ((Station*)-1)
+
+static Station* GetStationAround(TileIndex tile, int w, int h, StationID closest_station)
+{
+ // check around to see if there's any stations there
+ BEGIN_TILE_LOOP(tile_cur, w + 2, h + 2, tile - TileDiffXY(1, 1))
+ if (IsTileType(tile_cur, MP_STATION)) {
+ StationID t = GetStationIndex(tile_cur);
+ {
+ Station *st = GetStation(t);
+ // you cannot take control of an oilrig!!
+ if (st->airport_type == AT_OILRIG && st->facilities == (FACIL_AIRPORT|FACIL_DOCK))
+ continue;
+ }
+
+ if (closest_station == INVALID_STATION) {
+ closest_station = t;
+ } else if (closest_station != t) {
+ _error_message = STR_3006_ADJOINS_MORE_THAN_ONE_EXISTING;
+ return CHECK_STATIONS_ERR;
+ }
+ }
+ END_TILE_LOOP(tile_cur, w + 2, h + 2, tile - TileDiffXY(1, 1))
+ return (closest_station == INVALID_STATION) ? NULL : GetStation(closest_station);
+}
+
+static Station *AllocateStation(void)
+{
+ Station *st = NULL;
+
+ /* We don't use FOR_ALL here, because FOR_ALL skips invalid items.
+ * TODO - This is just a temporary stage, this will be removed. */
+ for (st = GetStation(0); st != NULL; st = (st->index + 1U < GetStationPoolSize()) ? GetStation(st->index + 1U) : NULL) {
+ if (!IsValidStation(st)) {
+ StationID index = st->index;
+
+ memset(st, 0, sizeof(Station));
+ st->index = index;
+
+ return st;
+ }
+ }
+
+ /* Check if we can add a block to the pool */
+ if (AddBlockToPool(&_Station_pool)) return AllocateStation();
+
+ _error_message = STR_3008_TOO_MANY_STATIONS_LOADING;
+ return NULL;
+}
+
+
+/**
+ * Counts the numbers of tiles matching a specific type in the area around
+ * @param tile the center tile of the 'count area'
+ * @param type the type of tile searched for
+ * @param industry when type == MP_INDUSTRY, the type of the industry,
+ * in all other cases this parameter is ignored
+ * @result the noumber of matching tiles around
+ */
+static int CountMapSquareAround(TileIndex tile, TileType type, IndustryType industry)
+{
+ TileIndex cur_tile;
+ int dx, dy;
+ int num = 0;
+
+ for (dx = -3; dx <= 3; dx++) {
+ for (dy = -3; dy <= 3; dy++) {
+ cur_tile = TILE_MASK(tile + TileDiffXY(dx, dy));
+
+ if (IsTileType(cur_tile, type)) {
+ switch (type) {
+ case MP_INDUSTRY:
+ if (GetIndustryType(cur_tile) == industry)
+ num++;
+ break;
+
+ case MP_WATER:
+ if (!IsWater(cur_tile))
+ break;
+ /* FALL THROUGH WHEN WATER TILE */
+ case MP_TREES:
+ num++;
+ break;
+
+ default:
+ break;
+ }
+ }
+ }
+ }
+
+ return num;
+}
+
+#define M(x) ((x) - STR_SV_STNAME)
+
+static bool GenerateStationName(Station *st, TileIndex tile, int flag)
+{
+ static const uint32 _gen_station_name_bits[] = {
+ 0, /* 0 */
+ 1 << M(STR_SV_STNAME_AIRPORT), /* 1 */
+ 1 << M(STR_SV_STNAME_OILFIELD), /* 2 */
+ 1 << M(STR_SV_STNAME_DOCKS), /* 3 */
+ 0x1FF << M(STR_SV_STNAME_BUOY_1), /* 4 */
+ 1 << M(STR_SV_STNAME_HELIPORT), /* 5 */
+ };
+
+ Town *t = st->town;
+ uint32 free_names = (uint32)-1;
+ int found;
+ uint z,z2;
+ unsigned long tmp;
+
+ {
+ Station *s;
+
+ FOR_ALL_STATIONS(s) {
+ if (s != st && s->town==t) {
+ uint str = M(s->string_id);
+ if (str <= 0x20) {
+ if (str == M(STR_SV_STNAME_FOREST))
+ str = M(STR_SV_STNAME_WOODS);
+ CLRBIT(free_names, str);
+ }
+ }
+ }
+ }
+
+ /* check default names */
+ tmp = free_names & _gen_station_name_bits[flag];
+ if (tmp != 0) {
+ found = FindFirstBit(tmp);
+ goto done;
+ }
+
+ /* check mine? */
+ if (HASBIT(free_names, M(STR_SV_STNAME_MINES))) {
+ if (CountMapSquareAround(tile, MP_INDUSTRY, IT_COAL_MINE) >= 2 ||
+ CountMapSquareAround(tile, MP_INDUSTRY, IT_IRON_MINE) >= 2 ||
+ CountMapSquareAround(tile, MP_INDUSTRY, IT_COPPER_MINE) >= 2 ||
+ CountMapSquareAround(tile, MP_INDUSTRY, IT_GOLD_MINE) >= 2 ||
+ CountMapSquareAround(tile, MP_INDUSTRY, IT_DIAMOND_MINE) >= 2) {
+ found = M(STR_SV_STNAME_MINES);
+ goto done;
+ }
+ }
+
+ /* check close enough to town to get central as name? */
+ if (DistanceMax(tile,t->xy) < 8) {
+ found = M(STR_SV_STNAME);
+ if (HASBIT(free_names, M(STR_SV_STNAME))) goto done;
+
+ found = M(STR_SV_STNAME_CENTRAL);
+ if (HASBIT(free_names, M(STR_SV_STNAME_CENTRAL))) goto done;
+ }
+
+ /* Check lakeside */
+ if (HASBIT(free_names, M(STR_SV_STNAME_LAKESIDE)) &&
+ DistanceFromEdge(tile) < 20 &&
+ CountMapSquareAround(tile, MP_WATER, 0) >= 5) {
+ found = M(STR_SV_STNAME_LAKESIDE);
+ goto done;
+ }
+
+ /* Check woods */
+ if (HASBIT(free_names, M(STR_SV_STNAME_WOODS)) && (
+ CountMapSquareAround(tile, MP_TREES, 0) >= 8 ||
+ CountMapSquareAround(tile, MP_INDUSTRY, IT_FOREST) >= 2)
+ ) {
+ found = _opt.landscape == LT_DESERT ?
+ M(STR_SV_STNAME_FOREST) : M(STR_SV_STNAME_WOODS);
+ goto done;
+ }
+
+ /* check elevation compared to town */
+ z = GetTileZ(tile);
+ z2 = GetTileZ(t->xy);
+ if (z < z2) {
+ found = M(STR_SV_STNAME_VALLEY);
+ if (HASBIT(free_names, M(STR_SV_STNAME_VALLEY))) goto done;
+ } else if (z > z2) {
+ found = M(STR_SV_STNAME_HEIGHTS);
+ if (HASBIT(free_names, M(STR_SV_STNAME_HEIGHTS))) goto done;
+ }
+
+ /* check direction compared to town */
+ {
+ static const int8 _direction_and_table[] = {
+ ~( (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_EAST)) | (1<<M(STR_SV_STNAME_NORTH)) ),
+ ~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_NORTH)) ),
+ ~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_EAST)) | (1<<M(STR_SV_STNAME_NORTH)) ),
+ ~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_EAST)) ),
+ };
+
+ free_names &= _direction_and_table[
+ (TileX(tile) < TileX(t->xy)) +
+ (TileY(tile) < TileY(t->xy)) * 2];
+ }
+
+ tmp = free_names & ((1<<1)|(1<<2)|(1<<3)|(1<<4)|(1<<6)|(1<<7)|(1<<12)|(1<<26)|(1<<27)|(1<<28)|(1<<29)|(1<<30));
+ if (tmp == 0) {
+ _error_message = STR_3007_TOO_MANY_STATIONS_LOADING;
+ return false;
+ }
+ found = FindFirstBit(tmp);
+
+done:
+ st->string_id = found + STR_SV_STNAME;
+ return true;
+}
+#undef M
+
+static Station* GetClosestStationFromTile(TileIndex tile, uint threshold, PlayerID owner)
+{
+ Station* best_station = NULL;
+ Station* st;
+
+ FOR_ALL_STATIONS(st) {
+ if ((owner == PLAYER_SPECTATOR || st->owner == owner)) {
+ uint cur_dist = DistanceManhattan(tile, st->xy);
+
+ if (cur_dist < threshold) {
+ threshold = cur_dist;
+ best_station = st;
+ }
+ }
+ }
+
+ return best_station;
+}
+
+static void StationInitialize(Station *st, TileIndex tile)
+{
+ GoodsEntry *ge;
+
+ st->xy = tile;
+ st->airport_tile = st->dock_tile = st->train_tile = 0;
+ st->bus_stops = st->truck_stops = NULL;
+ st->had_vehicle_of_type = 0;
+ st->time_since_load = 255;
+ st->time_since_unload = 255;
+ st->delete_ctr = 0;
+ st->facilities = 0;
+
+ st->last_vehicle_type = VEH_Invalid;
+
+ for (ge = st->goods; ge != endof(st->goods); ge++) {
+ ge->waiting_acceptance = 0;
+ ge->days_since_pickup = 0;
+ ge->enroute_from = INVALID_STATION;
+ ge->rating = 175;
+ ge->last_speed = 0;
+ ge->last_age = 0xFF;
+ ge->feeder_profit = 0;
+ }
+
+ st->random_bits = Random();
+ st->waiting_triggers = 0;
+
+ StationRect_Init(st);
+}
+
+// Update the virtual coords needed to draw the station sign.
+// st = Station to update for.
+static void UpdateStationVirtCoord(Station *st)
+{
+ Point pt = RemapCoords2(TileX(st->xy) * TILE_SIZE, TileY(st->xy) * TILE_SIZE);
+
+ pt.y -= 32;
+ if (st->facilities & FACIL_AIRPORT && st->airport_type == AT_OILRIG) pt.y -= 16;
+
+ SetDParam(0, st->index);
+ SetDParam(1, st->facilities);
+ UpdateViewportSignPos(&st->sign, pt.x, pt.y, STR_305C_0);
+}
+
+// Update the virtual coords needed to draw the station sign for all stations.
+void UpdateAllStationVirtCoord(void)
+{
+ Station* st;
+
+ FOR_ALL_STATIONS(st) {
+ UpdateStationVirtCoord(st);
+ }
+}
+
+// Update the station virt coords while making the modified parts dirty.
+static void UpdateStationVirtCoordDirty(Station *st)
+{
+ MarkStationDirty(st);
+ UpdateStationVirtCoord(st);
+ MarkStationDirty(st);
+}
+
+// Get a mask of the cargo types that the station accepts.
+static uint GetAcceptanceMask(const Station *st)
+{
+ uint mask = 0;
+ uint i;
+
+ for (i = 0; i != NUM_CARGO; i++) {
+ if (st->goods[i].waiting_acceptance & 0x8000) mask |= 1 << i;
+ }
+ return mask;
+}
+
+// Items contains the two cargo names that are to be accepted or rejected.
+// msg is the string id of the message to display.
+static void ShowRejectOrAcceptNews(const Station *st, uint32 items, StringID msg)
+{
+ if (items) {
+ SetDParam(2, GB(items, 16, 16));
+ SetDParam(1, GB(items, 0, 16));
+ SetDParam(0, st->index);
+ AddNewsItem(msg + (GB(items, 16, 16) ? 1 : 0), NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_TILE, NT_ACCEPTANCE, 0), st->xy, 0);
+ }
+}
+
+// Get a list of the cargo types being produced around the tile.
+void GetProductionAroundTiles(AcceptedCargo produced, TileIndex tile,
+ int w, int h, int rad)
+{
+ int x,y;
+ int x1,y1,x2,y2;
+ int xc,yc;
+
+ memset(produced, 0, sizeof(AcceptedCargo));
+
+ x = TileX(tile);
+ y = TileY(tile);
+
+ // expand the region by rad tiles on each side
+ // while making sure that we remain inside the board.
+ x2 = min(x + w + rad, MapSizeX());
+ x1 = max(x - rad, 0);
+
+ y2 = min(y + h + rad, MapSizeY());
+ y1 = max(y - rad, 0);
+
+ assert(x1 < x2);
+ assert(y1 < y2);
+ assert(w > 0);
+ assert(h > 0);
+
+ for (yc = y1; yc != y2; yc++) {
+ for (xc = x1; xc != x2; xc++) {
+ if (!(IS_INSIDE_1D(xc, x, w) && IS_INSIDE_1D(yc, y, h))) {
+ GetProducedCargoProc *gpc;
+ TileIndex tile = TileXY(xc, yc);
+
+ gpc = _tile_type_procs[GetTileType(tile)]->get_produced_cargo_proc;
+ if (gpc != NULL) {
+ CargoID cargos[2] = { CT_INVALID, CT_INVALID };
+
+ gpc(tile, cargos);
+ if (cargos[0] != CT_INVALID) {
+ produced[cargos[0]]++;
+ if (cargos[1] != CT_INVALID) {
+ produced[cargos[1]]++;
+ }
+ }
+ }
+ }
+ }
+ }
+}
+
+// Get a list of the cargo types that are accepted around the tile.
+void GetAcceptanceAroundTiles(AcceptedCargo accepts, TileIndex tile,
+ int w, int h, int rad)
+{
+ int x,y;
+ int x1,y1,x2,y2;
+ int xc,yc;
+
+ memset(accepts, 0, sizeof(AcceptedCargo));
+
+ x = TileX(tile);
+ y = TileY(tile);
+
+ // expand the region by rad tiles on each side
+ // while making sure that we remain inside the board.
+ x2 = min(x + w + rad, MapSizeX());
+ y2 = min(y + h + rad, MapSizeY());
+ x1 = max(x - rad, 0);
+ y1 = max(y - rad, 0);
+
+ assert(x1 < x2);
+ assert(y1 < y2);
+ assert(w > 0);
+ assert(h > 0);
+
+ for (yc = y1; yc != y2; yc++) {
+ for (xc = x1; xc != x2; xc++) {
+ TileIndex tile = TileXY(xc, yc);
+
+ if (!IsTileType(tile, MP_STATION)) {
+ AcceptedCargo ac;
+ uint i;
+
+ GetAcceptedCargo(tile, ac);
+ for (i = 0; i < lengthof(ac); ++i) accepts[i] += ac[i];
+ }
+ }
+ }
+}
+
+typedef struct ottd_Rectangle {
+ uint min_x;
+ uint min_y;
+ uint max_x;
+ uint max_y;
+} ottd_Rectangle;
+
+static inline void MergePoint(ottd_Rectangle* rect, TileIndex tile)
+{
+ uint x = TileX(tile);
+ uint y = TileY(tile);
+
+ if (rect->min_x > x) rect->min_x = x;
+ if (rect->min_y > y) rect->min_y = y;
+ if (rect->max_x < x) rect->max_x = x;
+ if (rect->max_y < y) rect->max_y = y;
+}
+
+// Update the acceptance for a station.
+// show_msg controls whether to display a message that acceptance was changed.
+static void UpdateStationAcceptance(Station *st, bool show_msg)
+{
+ uint old_acc, new_acc;
+ const RoadStop *cur_rs;
+ int i;
+ ottd_Rectangle rect;
+ int rad;
+ AcceptedCargo accepts;
+
+ rect.min_x = MapSizeX();
+ rect.min_y = MapSizeY();
+ rect.max_x = rect.max_y = 0;
+ // Don't update acceptance for a buoy
+ if (IsBuoy(st)) return;
+
+ /* old accepted goods types */
+ old_acc = GetAcceptanceMask(st);
+
+ // Put all the tiles that span an area in the table.
+ if (st->train_tile != 0) {
+ MergePoint(&rect, st->train_tile);
+ MergePoint(&rect,
+ st->train_tile + TileDiffXY(st->trainst_w - 1, st->trainst_h - 1)
+ );
+ }
+
+ if (st->airport_tile != 0) {
+ const AirportFTAClass* afc = GetAirport(st->airport_type);
+
+ MergePoint(&rect, st->airport_tile);
+ MergePoint(&rect,
+ st->airport_tile + TileDiffXY(afc->size_x - 1, afc->size_y - 1)
+ );
+ }
+
+ if (st->dock_tile != 0) MergePoint(&rect, st->dock_tile);
+
+ for (cur_rs = st->bus_stops; cur_rs != NULL; cur_rs = cur_rs->next) {
+ MergePoint(&rect, cur_rs->xy);
+ }
+
+ for (cur_rs = st->truck_stops; cur_rs != NULL; cur_rs = cur_rs->next) {
+ MergePoint(&rect, cur_rs->xy);
+ }
+
+ rad = (_patches.modified_catchment) ? FindCatchmentRadius(st) : 4;
+
+ // And retrieve the acceptance.
+ if (rect.max_x >= rect.min_x) {
+ GetAcceptanceAroundTiles(
+ accepts,
+ TileXY(rect.min_x, rect.min_y),
+ rect.max_x - rect.min_x + 1,
+ rect.max_y - rect.min_y + 1,
+ rad
+ );
+ } else {
+ memset(accepts, 0, sizeof(accepts));
+ }
+
+ // Adjust in case our station only accepts fewer kinds of goods
+ for (i = 0; i != NUM_CARGO; i++) {
+ uint amt = min(accepts[i], 15);
+
+ // Make sure the station can accept the goods type.
+ if ((i != CT_PASSENGERS && !(st->facilities & (byte)~FACIL_BUS_STOP)) ||
+ (i == CT_PASSENGERS && !(st->facilities & (byte)~FACIL_TRUCK_STOP)))
+ amt = 0;
+
+ SB(st->goods[i].waiting_acceptance, 12, 4, amt);
+ }
+
+ // Only show a message in case the acceptance was actually changed.
+ new_acc = GetAcceptanceMask(st);
+ if (old_acc == new_acc)
+ return;
+
+ // show a message to report that the acceptance was changed?
+ if (show_msg && st->owner == _local_player && st->facilities) {
+ uint32 accept=0, reject=0; /* these contain two string ids each */
+ const StringID *str = _cargoc.names_s;
+
+ do {
+ if (new_acc & 1) {
+ if (!(old_acc & 1)) accept = (accept << 16) | *str;
+ } else {
+ if (old_acc & 1) reject = (reject << 16) | *str;
+ }
+ } while (str++,(new_acc>>=1) != (old_acc>>=1));
+
+ ShowRejectOrAcceptNews(st, accept, STR_3040_NOW_ACCEPTS);
+ ShowRejectOrAcceptNews(st, reject, STR_303E_NO_LONGER_ACCEPTS);
+ }
+
+ // redraw the station view since acceptance changed
+ InvalidateWindowWidget(WC_STATION_VIEW, st->index, 4);
+}
+
+static void UpdateStationSignCoord(Station *st)
+{
+ Rect *r = &st->rect;
+
+ if (StationRect_IsEmpty(st)) return; // no tiles belong to this station
+
+ // clamp sign coord to be inside the station rect
+ st->xy = TileXY(clampu(TileX(st->xy), r->left, r->right), clampu(TileY(st->xy), r->top, r->bottom));
+ UpdateStationVirtCoordDirty(st);
+}
+
+// This is called right after a station was deleted.
+// It checks if the whole station is free of substations, and if so, the station will be
+// deleted after a little while.
+static void DeleteStationIfEmpty(Station* st)
+{
+ if (st->facilities == 0) {
+ st->delete_ctr = 0;
+ RebuildStationLists();
+ InvalidateWindow(WC_STATION_LIST, st->owner);
+ }
+ /* station remains but it probably lost some parts - station sign should stay in the station boundaries */
+ UpdateStationSignCoord(st);
+}
+
+static int32 ClearTile_Station(TileIndex tile, byte flags);
+
+// Tries to clear the given area. Returns the cost in case of success.
+// Or an error code if it failed.
+int32 CheckFlatLandBelow(TileIndex tile, uint w, uint h, uint flags, uint invalid_dirs, StationID* station)
+{
+ int32 cost = 0, ret;
+
+ Slope tileh;
+ uint z;
+ int allowed_z = -1;
+ int flat_z;
+
+ BEGIN_TILE_LOOP(tile_cur, w, h, tile)
+ if (MayHaveBridgeAbove(tile_cur) && IsBridgeAbove(tile_cur)) {
+ return_cmd_error(STR_5007_MUST_DEMOLISH_BRIDGE_FIRST);
+ }
+
+ if (!EnsureNoVehicle(tile_cur)) return CMD_ERROR;
+
+ tileh = GetTileSlope(tile_cur, &z);
+
+ /* Prohibit building if
+ * 1) The tile is "steep" (i.e. stretches two height levels)
+ * -OR-
+ * 2) The tile is non-flat if
+ * a) the player building is an "old-school" AI
+ * -OR-
+ * b) the build_on_slopes switch is disabled
+ */
+ if (IsSteepSlope(tileh) ||
+ ((_is_old_ai_player || !_patches.build_on_slopes) && tileh != SLOPE_FLAT)) {
+ return_cmd_error(STR_0007_FLAT_LAND_REQUIRED);
+ }
+
+ flat_z = z;
+ if (tileh != SLOPE_FLAT) {
+ // need to check so the entrance to the station is not pointing at a slope.
+ if ((invalid_dirs&1 && !(tileh & SLOPE_NE) && (uint)w_cur == w) ||
+ (invalid_dirs&2 && !(tileh & SLOPE_SE) && h_cur == 1) ||
+ (invalid_dirs&4 && !(tileh & SLOPE_SW) && w_cur == 1) ||
+ (invalid_dirs&8 && !(tileh & SLOPE_NW) && (uint)h_cur == h)) {
+ return_cmd_error(STR_0007_FLAT_LAND_REQUIRED);
+ }
+ cost += _price.terraform;
+ flat_z += TILE_HEIGHT;
+ }
+
+ // get corresponding flat level and make sure that all parts of the station have the same level.
+ if (allowed_z == -1) {
+ // first tile
+ allowed_z = flat_z;
+ } else if (allowed_z != flat_z) {
+ return_cmd_error(STR_0007_FLAT_LAND_REQUIRED);
+ }
+
+ // if station is set, then we have special handling to allow building on top of already existing stations.
+ // so station points to INVALID_STATION if we can build on any station. or it points to a station if we're only allowed to build
+ // on exactly that station.
+ if (station != NULL && IsTileType(tile_cur, MP_STATION)) {
+ if (!IsRailwayStation(tile_cur)) {
+ return ClearTile_Station(tile_cur, DC_AUTO); // get error message
+ } else {
+ StationID st = GetStationIndex(tile_cur);
+ if (*station == INVALID_STATION) {
+ *station = st;
+ } else if (*station != st) {
+ return_cmd_error(STR_3006_ADJOINS_MORE_THAN_ONE_EXISTING);
+ }
+ }
+ } else {
+ ret = DoCommand(tile_cur, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
+ if (CmdFailed(ret)) return ret;
+ cost += ret;
+ }
+ END_TILE_LOOP(tile_cur, w, h, tile)
+
+ return cost;
+}
+
+static bool CanExpandRailroadStation(Station* st, uint* fin, Axis axis)
+{
+ uint curw = st->trainst_w, curh = st->trainst_h;
+ TileIndex tile = fin[0];
+ uint w = fin[1];
+ uint h = fin[2];
+
+ if (_patches.nonuniform_stations) {
+ // determine new size of train station region..
+ int x = min(TileX(st->train_tile), TileX(tile));
+ int y = min(TileY(st->train_tile), TileY(tile));
+ curw = max(TileX(st->train_tile) + curw, TileX(tile) + w) - x;
+ curh = max(TileY(st->train_tile) + curh, TileY(tile) + h) - y;
+ tile = TileXY(x, y);
+ } else {
+ // check so the orientation is the same
+ if (GetRailStationAxis(st->train_tile) != axis) {
+ _error_message = STR_306D_NONUNIFORM_STATIONS_DISALLOWED;
+ return false;
+ }
+
+ // check if the new station adjoins the old station in either direction
+ if (curw == w && st->train_tile == tile + TileDiffXY(0, h)) {
+ // above
+ curh += h;
+ } else if (curw == w && st->train_tile == tile - TileDiffXY(0, curh)) {
+ // below
+ tile -= TileDiffXY(0, curh);
+ curh += h;
+ } else if (curh == h && st->train_tile == tile + TileDiffXY(w, 0)) {
+ // to the left
+ curw += w;
+ } else if (curh == h && st->train_tile == tile - TileDiffXY(curw, 0)) {
+ // to the right
+ tile -= TileDiffXY(curw, 0);
+ curw += w;
+ } else {
+ _error_message = STR_306D_NONUNIFORM_STATIONS_DISALLOWED;
+ return false;
+ }
+ }
+ // make sure the final size is not too big.
+ if (curw > _patches.station_spread || curh > _patches.station_spread) {
+ _error_message = STR_306C_STATION_TOO_SPREAD_OUT;
+ return false;
+ }
+
+ // now tile contains the new value for st->train_tile
+ // curw, curh contain the new value for width and height
+ fin[0] = tile;
+ fin[1] = curw;
+ fin[2] = curh;
+ return true;
+}
+
+static inline byte *CreateSingle(byte *layout, int n)
+{
+ int i = n;
+ do *layout++ = 0; while (--i);
+ layout[((n-1) >> 1)-n] = 2;
+ return layout;
+}
+
+static inline byte *CreateMulti(byte *layout, int n, byte b)
+{
+ int i = n;
+ do *layout++ = b; while (--i);
+ if (n > 4) {
+ layout[0-n] = 0;
+ layout[n-1-n] = 0;
+ }
+ return layout;
+}
+
+static void GetStationLayout(byte *layout, int numtracks, int plat_len, const StationSpec *statspec)
+{
+ if (statspec != NULL && statspec->lengths >= plat_len &&
+ statspec->platforms[plat_len - 1] >= numtracks &&
+ statspec->layouts[plat_len - 1][numtracks - 1]) {
+ /* Custom layout defined, follow it. */
+ memcpy(layout, statspec->layouts[plat_len - 1][numtracks - 1],
+ plat_len * numtracks);
+ return;
+ }
+
+ if (plat_len == 1) {
+ CreateSingle(layout, numtracks);
+ } else {
+ if (numtracks & 1) layout = CreateSingle(layout, plat_len);
+ numtracks >>= 1;
+
+ while (--numtracks >= 0) {
+ layout = CreateMulti(layout, plat_len, 4);
+ layout = CreateMulti(layout, plat_len, 6);
+ }
+ }
+}
+
+/** Build railroad station
+ * @param tile_org starting position of station dragging/placement
+ * @param p1 various bitstuffed elements
+ * - p1 = (bit 0) - orientation (p1 & 1)
+ * - p1 = (bit 8-15) - number of tracks
+ * - p1 = (bit 16-23) - platform length
+ * @param p2 various bitstuffed elements
+ * - p2 = (bit 0- 3) - railtype (p2 & 0xF)
+ * - p2 = (bit 8-15) - custom station class
+ * - p2 = (bit 16-23) - custom station id
+ */
+int32 CmdBuildRailroadStation(TileIndex tile_org, uint32 flags, uint32 p1, uint32 p2)
+{
+ Station *st;
+ int w_org, h_org;
+ int32 cost, ret;
+ StationID est;
+ int plat_len, numtracks;
+ Axis axis;
+ uint finalvalues[3];
+ const StationSpec *statspec;
+ int specindex;
+
+ SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
+ /* Does the authority allow this? */
+ if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile_org)) return CMD_ERROR;
+ if (!ValParamRailtype(p2 & 0xF)) return CMD_ERROR;
+
+ /* unpack parameters */
+ axis = p1 & 1;
+ numtracks = GB(p1, 8, 8);
+ plat_len = GB(p1, 16, 8);
+ /* w = length, h = num_tracks */
+ if (axis == AXIS_X) {
+ w_org = plat_len;
+ h_org = numtracks;
+ } else {
+ h_org = plat_len;
+ w_org = numtracks;
+ }
+
+ if (h_org > _patches.station_spread || w_org > _patches.station_spread) return CMD_ERROR;
+
+ // these values are those that will be stored in train_tile and station_platforms
+ finalvalues[0] = tile_org;
+ finalvalues[1] = w_org;
+ finalvalues[2] = h_org;
+
+ // Make sure the area below consists of clear tiles. (OR tiles belonging to a certain rail station)
+ est = INVALID_STATION;
+ // If DC_EXEC is in flag, do not want to pass it to CheckFlatLandBelow, because of a nice bug
+ // for detail info, see: https://sourceforge.net/tracker/index.php?func=detail&aid=1029064&group_id=103924&atid=636365
+ ret = CheckFlatLandBelow(tile_org, w_org, h_org, flags & ~DC_EXEC, 5 << axis, _patches.nonuniform_stations ? &est : NULL);
+ if (CmdFailed(ret)) return ret;
+ cost = ret + (numtracks * _price.train_station_track + _price.train_station_length) * plat_len;
+
+ // Make sure there are no similar stations around us.
+ st = GetStationAround(tile_org, w_org, h_org, est);
+ if (st == CHECK_STATIONS_ERR) return CMD_ERROR;
+
+ // See if there is a deleted station close to us.
+ if (st == NULL) {
+ st = GetClosestStationFromTile(tile_org, 8, _current_player);
+ if (st != NULL && st->facilities) st = NULL;
+ }
+
+ if (st != NULL) {
+ // Reuse an existing station.
+ if (st->owner != OWNER_NONE && st->owner != _current_player)
+ return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION);
+
+ if (st->train_tile != 0) {
+ // check if we want to expanding an already existing station?
+ if (_is_old_ai_player || !_patches.join_stations)
+ return_cmd_error(STR_3005_TOO_CLOSE_TO_ANOTHER_RAILROAD);
+ if (!CanExpandRailroadStation(st, finalvalues, axis))
+ return CMD_ERROR;
+ }
+
+ //XXX can't we pack this in the "else" part of the if above?
+ if (!StationRect_BeforeAddRect(st, tile_org, w_org, h_org, RECT_MODE_TEST)) return CMD_ERROR;
+ } else {
+ // Create a new station
+ st = AllocateStation();
+ if (st == NULL) return CMD_ERROR;
+
+ st->town = ClosestTownFromTile(tile_org, (uint)-1);
+ if (IsValidPlayer(_current_player) && (flags & DC_EXEC))
+ SETBIT(st->town->have_ratings, _current_player);
+
+ if (!GenerateStationName(st, tile_org, 0)) return CMD_ERROR;
+
+ if (flags & DC_EXEC) StationInitialize(st, tile_org);
+ }
+
+ /* Check if the given station class is valid */
+ if (GB(p2, 8, 8) >= STAT_CLASS_MAX) return CMD_ERROR;
+
+ /* Check if we can allocate a custom stationspec to this station */
+ statspec = GetCustomStationSpec(GB(p2, 8, 8), GB(p2, 16, 8));
+ specindex = AllocateSpecToStation(statspec, st, flags & DC_EXEC);
+ if (specindex == -1) return CMD_ERROR;
+
+ if (statspec != NULL) {
+ /* Perform NewStation checks */
+
+ /* Check if the station size is permitted */
+ if (HASBIT(statspec->disallowed_platforms, numtracks - 1) || HASBIT(statspec->disallowed_lengths, plat_len - 1)) {
+ return CMD_ERROR;
+ }
+
+ /* Check if the station is buildable */
+ if (HASBIT(statspec->callbackmask, CBM_STATION_AVAIL) && GetStationCallback(CBID_STATION_AVAILABILITY, 0, 0, statspec, NULL, INVALID_TILE) == 0) {
+ return CMD_ERROR;
+ }
+ }
+
+ if (flags & DC_EXEC) {
+ TileIndexDiff tile_delta;
+ byte *layout_ptr;
+ byte numtracks_orig;
+ Track track;
+
+ // Now really clear the land below the station
+ // It should never return CMD_ERROR.. but you never know ;)
+ // (a bit strange function name for it, but it really does clear the land, when DC_EXEC is in flags)
+ ret = CheckFlatLandBelow(tile_org, w_org, h_org, flags, 5 << axis, _patches.nonuniform_stations ? &est : NULL);
+ if (CmdFailed(ret)) return ret;
+
+ st->train_tile = finalvalues[0];
+ if (!st->facilities) st->xy = finalvalues[0];
+ st->facilities |= FACIL_TRAIN;
+ st->owner = _current_player;
+
+ st->trainst_w = finalvalues[1];
+ st->trainst_h = finalvalues[2];
+
+ st->build_date = _date;
+
+ StationRect_BeforeAddRect(st, tile_org, w_org, h_org, RECT_MODE_TRY);
+
+ tile_delta = (axis == AXIS_X ? TileDiffXY(1, 0) : TileDiffXY(0, 1));
+ track = AxisToTrack(axis);
+
+ layout_ptr = alloca(numtracks * plat_len);
+ GetStationLayout(layout_ptr, numtracks, plat_len, statspec);
+
+ numtracks_orig = numtracks;
+
+ do {
+ TileIndex tile = tile_org;
+ int w = plat_len;
+ do {
+ byte layout = *layout_ptr++;
+ MakeRailStation(tile, st->owner, st->index, axis, layout, GB(p2, 0, 4));
+ SetCustomStationSpecIndex(tile, specindex);
+ SetStationTileRandomBits(tile, GB(Random(), 0, 4));
+
+ if (statspec != NULL) {
+ /* Use a fixed axis for GetPlatformInfo as our platforms / numtracks are always the right way around */
+ uint32 platinfo = GetPlatformInfo(AXIS_X, 0, plat_len, numtracks_orig, plat_len - w, numtracks_orig - numtracks, false);
+ uint16 callback = GetStationCallback(CBID_STATION_TILE_LAYOUT, platinfo, 0, statspec, st, tile);
+ if (callback != CALLBACK_FAILED && callback < 8) SetStationGfx(tile, callback + axis);
+ }
+
+ tile += tile_delta;
+ } while (--w);
+ SetSignalsOnBothDir(tile_org, track);
+ YapfNotifyTrackLayoutChange(tile_org, track);
+ tile_org += tile_delta ^ TileDiffXY(1, 1); // perpendicular to tile_delta
+ } while (--numtracks);
+
+ MarkStationTilesDirty(st);
+ UpdateStationVirtCoordDirty(st);
+ UpdateStationAcceptance(st, false);
+ RebuildStationLists();
+ InvalidateWindow(WC_STATION_LIST, st->owner);
+ }
+
+ return cost;
+}
+
+static void MakeRailwayStationAreaSmaller(Station *st)
+{
+ uint w = st->trainst_w;
+ uint h = st->trainst_h;
+ TileIndex tile = st->train_tile;
+ uint i;
+
+restart:
+
+ // too small?
+ if (w != 0 && h != 0) {
+ // check the left side, x = constant, y changes
+ for (i = 0; !TileBelongsToRailStation(st, tile + TileDiffXY(0, i));) {
+ // the left side is unused?
+ if (++i == h) {
+ tile += TileDiffXY(1, 0);
+ w--;
+ goto restart;
+ }
+ }
+
+ // check the right side, x = constant, y changes
+ for (i = 0; !TileBelongsToRailStation(st, tile + TileDiffXY(w - 1, i));) {
+ // the right side is unused?
+ if (++i == h) {
+ w--;
+ goto restart;
+ }
+ }
+
+ // check the upper side, y = constant, x changes
+ for (i = 0; !TileBelongsToRailStation(st, tile + TileDiffXY(i, 0));) {
+ // the left side is unused?
+ if (++i == w) {
+ tile += TileDiffXY(0, 1);
+ h--;
+ goto restart;
+ }
+ }
+
+ // check the lower side, y = constant, x changes
+ for (i = 0; !TileBelongsToRailStation(st, tile + TileDiffXY(i, h - 1));) {
+ // the left side is unused?
+ if (++i == w) {
+ h--;
+ goto restart;
+ }
+ }
+ } else {
+ tile = 0;
+ }
+
+ st->trainst_w = w;
+ st->trainst_h = h;
+ st->train_tile = tile;
+}
+
+/** Remove a single tile from a railroad station.
+ * This allows for custom-built station with holes and weird layouts
+ * @param tile tile of station piece to remove
+ * @param p1 unused
+ * @param p2 unused
+ */
+int32 CmdRemoveFromRailroadStation(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
+{
+ Station *st;
+
+ SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
+ // make sure the specified tile belongs to the current player, and that it is a railroad station.
+ if (!IsTileType(tile, MP_STATION) || !IsRailwayStation(tile) || !_patches.nonuniform_stations) return CMD_ERROR;
+ st = GetStationByTile(tile);
+ if (_current_player != OWNER_WATER && (!CheckOwnership(st->owner) || !EnsureNoVehicle(tile))) return CMD_ERROR;
+
+ // if we reached here, it means we can actually delete it. do that.
+ if (flags & DC_EXEC) {
+ uint specindex = GetCustomStationSpecIndex(tile);
+ Track track = GetRailStationTrack(tile);
+ DoClearSquare(tile);
+ StationRect_AfterRemoveTile(st, tile);
+ SetSignalsOnBothDir(tile, track);
+ YapfNotifyTrackLayoutChange(tile, track);
+
+ DeallocateSpecFromStation(st, specindex);
+
+ // now we need to make the "spanned" area of the railway station smaller if we deleted something at the edges.
+ // we also need to adjust train_tile.
+ MakeRailwayStationAreaSmaller(st);
+ MarkStationTilesDirty(st);
+ UpdateStationSignCoord(st);
+
+ // if we deleted the whole station, delete the train facility.
+ if (st->train_tile == 0) {
+ st->facilities &= ~FACIL_TRAIN;
+ UpdateStationVirtCoordDirty(st);
+ DeleteStationIfEmpty(st);
+ }
+ }
+ return _price.remove_rail_station;
+}
+
+// determine the number of platforms for the station
+uint GetStationPlatforms(const Station *st, TileIndex tile)
+{
+ TileIndex t;
+ TileIndexDiff delta;
+ Axis axis;
+ uint len;
+ assert(TileBelongsToRailStation(st, tile));
+
+ len = 0;
+ axis = GetRailStationAxis(tile);
+ delta = (axis == AXIS_X ? TileDiffXY(1, 0) : TileDiffXY(0, 1));
+
+ // find starting tile..
+ t = tile;
+ do {
+ t -= delta;
+ len++;
+ } while (TileBelongsToRailStation(st, t) && GetRailStationAxis(t) == axis);
+
+ // find ending tile
+ t = tile;
+ do {
+ t += delta;
+ len++;
+ } while (TileBelongsToRailStation(st, t) && GetRailStationAxis(t) == axis);
+
+ return len - 1;
+}
+
+/** Determines the REMAINING length of a platform, starting at (and including)
+ * the given tile.
+ * @param tile the tile from which to start searching. Must be a railway station tile
+ * @param dir The direction in which to search.
+ * @return The platform length
+ */
+uint GetPlatformLength(TileIndex tile, DiagDirection dir)
+{
+ TileIndex start_tile = tile;
+ uint length = 0;
+ assert(IsRailwayStationTile(tile));
+ assert(dir < DIAGDIR_END);
+
+ do {
+ length ++;
+ tile += TileOffsByDiagDir(dir);
+ } while (IsCompatibleTrainStationTile(tile, start_tile));
+
+ return length;
+}
+
+
+static int32 RemoveRailroadStation(Station *st, TileIndex tile, uint32 flags)
+{
+ int w,h;
+ int32 cost = 0;
+
+ /* if there is flooding and non-uniform stations are enabled, remove platforms tile by tile */
+ if (_current_player == OWNER_WATER && _patches.nonuniform_stations)
+ return DoCommand(tile, 0, 0, DC_EXEC, CMD_REMOVE_FROM_RAILROAD_STATION);
+
+ /* Current player owns the station? */
+ if (_current_player != OWNER_WATER && !CheckOwnership(st->owner))
+ return CMD_ERROR;
+
+ /* determine width and height of platforms */
+ tile = st->train_tile;
+ w = st->trainst_w;
+ h = st->trainst_h;
+
+ assert(w != 0 && h != 0);
+
+ /* clear all areas of the station */
+ do {
+ int w_bak = w;
+ do {
+ // for nonuniform stations, only remove tiles that are actually train station tiles
+ if (TileBelongsToRailStation(st, tile)) {
+ if (!EnsureNoVehicle(tile))
+ return CMD_ERROR;
+ cost += _price.remove_rail_station;
+ if (flags & DC_EXEC) {
+ Track track = GetRailStationTrack(tile);
+ DoClearSquare(tile);
+ SetSignalsOnBothDir(tile, track);
+ YapfNotifyTrackLayoutChange(tile, track);
+ }
+ }
+ tile += TileDiffXY(1, 0);
+ } while (--w);
+ w = w_bak;
+ tile += TileDiffXY(-w, 1);
+ } while (--h);
+
+ if (flags & DC_EXEC) {
+ StationRect_AfterRemoveRect(st, st->train_tile, st->trainst_w, st->trainst_h);
+
+ st->train_tile = 0;
+ st->trainst_w = st->trainst_h = 0;
+ st->facilities &= ~FACIL_TRAIN;
+
+ free(st->speclist);
+ st->num_specs = 0;
+ st->speclist = NULL;
+
+ UpdateStationVirtCoordDirty(st);
+ DeleteStationIfEmpty(st);
+ }
+
+ return cost;
+}
+
+int32 DoConvertStationRail(TileIndex tile, RailType totype, bool exec)
+{
+ const Station* st = GetStationByTile(tile);
+
+ if (!CheckOwnership(st->owner) || !EnsureNoVehicle(tile)) return CMD_ERROR;
+
+ // tile is not a railroad station?
+ if (!IsRailwayStation(tile)) return CMD_ERROR;
+
+ if (GetRailType(tile) == totype) return CMD_ERROR;
+
+ // 'hidden' elrails can't be downgraded to normal rail when elrails are disabled
+ if (_patches.disable_elrails && totype == RAILTYPE_RAIL && GetRailType(tile) == RAILTYPE_ELECTRIC) return CMD_ERROR;
+
+ if (exec) {
+ SetRailType(tile, totype);
+ MarkTileDirtyByTile(tile);
+ YapfNotifyTrackLayoutChange(tile, GetRailStationTrack(tile));
+ }
+
+ return _price.build_rail >> 1;
+}
+
+/** Heavy wizardry used to add a roadstop to a station.
+ * To understand the function, lets first look at what is passed around,
+ * especially the last two parameters. CmdBuildRoadStop allocates a road
+ * stop and needs to put that stop into the linked list of road stops.
+ * It (CmdBuildRoadStop) has a **currstop pointer which points to element
+ * in the linked list of stops (each element in this list being a pointer
+ * in itself, hence the double pointer). We (FindRoadStopSpot) need to
+ * modify this pointer (**currstop) thus we need to pass by reference,
+ * obtaining a triple pointer (***currstop). When finished, **currstop
+ * in CmdBuildRoadStop will contain the address of the pointer which will
+ * then point into the global roadstop array. *prev (in CmdBuildRoadStop)
+ * is the pointer tino the global roadstop array which has *currstop in
+ * its ->next element.
+ * @param[in] truck_station Determines whether a stop is RS_BUS or RS_TRUCK
+ * @param[in] station The station to do the whole procedure for
+ * @param[out] currstop See the detailed function description
+ * @param prev See the detailed function description
+ */
+static void FindRoadStopSpot(bool truck_station, Station* st, RoadStop*** currstop, RoadStop** prev)
+{
+ RoadStop **primary_stop = (truck_station) ? &st->truck_stops : &st->bus_stops;
+ assert(*prev == NULL);
+
+ if (*primary_stop == NULL) {
+ //we have no roadstop of the type yet, so write a "primary stop"
+ *currstop = primary_stop;
+ } else {
+ //there are stops already, so append to the end of the list
+ *prev = *primary_stop;
+ *currstop = &(*primary_stop)->next;
+ while (**currstop != NULL) {
+ *prev = (*prev)->next;
+ *currstop = &(**currstop)->next;
+ }
+ }
+}
+
+/** Build a bus or truck stop
+ * @param tile tile to build the stop at
+ * @param p1 entrance direction (DiagDirection)
+ * @param p2 0 for Bus stops, 1 for truck stops
+ */
+int32 CmdBuildRoadStop(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
+{
+ Station *st;
+ RoadStop *road_stop;
+ RoadStop **currstop;
+ RoadStop *prev = NULL;
+ int32 cost;
+ int32 ret;
+ bool type = !!p2;
+
+ /* Saveguard the parameters */
+ if (!IsValidDiagDirection(p1)) return CMD_ERROR;
+
+ SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
+ if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile))
+ return CMD_ERROR;
+
+ ret = CheckFlatLandBelow(tile, 1, 1, flags, 1 << p1, NULL);
+ if (CmdFailed(ret)) return ret;
+ cost = ret;
+
+ st = GetStationAround(tile, 1, 1, -1);
+ if (st == CHECK_STATIONS_ERR) return CMD_ERROR;
+
+ /* Find a station close to us */
+ if (st == NULL) {
+ st = GetClosestStationFromTile(tile, 8, _current_player);
+ if (st != NULL && st->facilities != 0) st = NULL;
+ }
+
+ //give us a road stop in the list, and check if something went wrong
+ road_stop = AllocateRoadStop();
+ if (road_stop == NULL) {
+ return_cmd_error(type ? STR_3008B_TOO_MANY_TRUCK_STOPS : STR_3008A_TOO_MANY_BUS_STOPS);
+ }
+
+ if (st != NULL &&
+ GetNumRoadStopsInStation(st, RS_BUS) + GetNumRoadStopsInStation(st, RS_TRUCK) >= ROAD_STOP_LIMIT) {
+ return_cmd_error(type ? STR_3008B_TOO_MANY_TRUCK_STOPS : STR_3008A_TOO_MANY_BUS_STOPS);
+ }
+
+ if (st != NULL) {
+ if (st->owner != OWNER_NONE && st->owner != _current_player) {
+ return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION);
+ }
+
+ if (!StationRect_BeforeAddTile(st, tile, RECT_MODE_TEST)) return CMD_ERROR;
+
+ FindRoadStopSpot(type, st, &currstop, &prev);
+ } else {
+ Town *t;
+
+ st = AllocateStation();
+ if (st == NULL) return CMD_ERROR;
+
+ st->town = t = ClosestTownFromTile(tile, (uint)-1);
+
+ FindRoadStopSpot(type, st, &currstop, &prev);
+
+ if (IsValidPlayer(_current_player) && (flags & DC_EXEC)) {
+ SETBIT(t->have_ratings, _current_player);
+ }
+
+ st->sign.width_1 = 0;
+
+ if (!GenerateStationName(st, tile, 0)) return CMD_ERROR;
+
+ if (flags & DC_EXEC) StationInitialize(st, tile);
+ }
+
+ cost += (type) ? _price.build_truck_station : _price.build_bus_station;
+
+ if (flags & DC_EXEC) {
+ //point to the correct item in the _busstops or _truckstops array
+ *currstop = road_stop;
+
+ //initialize an empty station
+ InitializeRoadStop(road_stop, prev, tile, st->index);
+ if (!st->facilities) st->xy = tile;
+ st->facilities |= (type) ? FACIL_TRUCK_STOP : FACIL_BUS_STOP;
+ st->owner = _current_player;
+
+ st->build_date = _date;
+
+ StationRect_BeforeAddTile(st, tile, RECT_MODE_TRY);
+
+ MakeRoadStop(tile, st->owner, st->index, type, p1);
+
+ UpdateStationVirtCoordDirty(st);
+ UpdateStationAcceptance(st, false);
+ RebuildStationLists();
+ InvalidateWindow(WC_STATION_LIST, st->owner);
+ }
+ return cost;
+}
+
+// Remove a bus station
+static int32 RemoveRoadStop(Station *st, uint32 flags, TileIndex tile)
+{
+ RoadStop **primary_stop;
+ RoadStop *cur_stop;
+ bool is_truck = IsTruckStop(tile);
+
+ if (_current_player != OWNER_WATER && !CheckOwnership(st->owner)) {
+ return CMD_ERROR;
+ }
+
+ if (is_truck) { // truck stop
+ primary_stop = &st->truck_stops;
+ cur_stop = GetRoadStopByTile(tile, RS_TRUCK);
+ } else {
+ primary_stop = &st->bus_stops;
+ cur_stop = GetRoadStopByTile(tile, RS_BUS);
+ }
+
+ assert(cur_stop != NULL);
+
+ if (!EnsureNoVehicle(tile)) return CMD_ERROR;
+
+ if (flags & DC_EXEC) {
+ //we only had one stop left
+ if (cur_stop->next == NULL && cur_stop->prev == NULL) {
+ //so we remove ALL stops
+ *primary_stop = NULL;
+ st->facilities &= (is_truck) ? ~FACIL_TRUCK_STOP : ~FACIL_BUS_STOP;
+ } else if (cur_stop == *primary_stop) {
+ //removed the first stop in the list
+ //need to set the primary element to the next stop
+ *primary_stop = (*primary_stop)->next;
+ }
+
+ DeleteRoadStop(cur_stop);
+ DoClearSquare(tile);
+ StationRect_AfterRemoveTile(st, tile);
+
+ UpdateStationVirtCoordDirty(st);
+ DeleteStationIfEmpty(st);
+ }
+
+ return (is_truck) ? _price.remove_truck_station : _price.remove_bus_station;
+}
+
+
+
+// FIXME -- need to move to its corresponding Airport variable
+// Country Airfield (small)
+static const byte _airport_sections_country[] = {
+ 54, 53, 52, 65,
+ 58, 57, 56, 55,
+ 64, 63, 63, 62
+};
+
+// City Airport (large)
+static const byte _airport_sections_town[] = {
+ 31, 9, 33, 9, 9, 32,
+ 27, 36, 29, 34, 8, 10,
+ 30, 11, 35, 13, 20, 21,
+ 51, 12, 14, 17, 19, 28,
+ 38, 13, 15, 16, 18, 39,
+ 26, 22, 23, 24, 25, 26
+};
+
+// Metropolitain Airport (large) - 2 runways
+static const byte _airport_sections_metropolitan[] = {
+ 31, 9, 33, 9, 9, 32,
+ 27, 36, 29, 34, 8, 10,
+ 30, 11, 35, 13, 20, 21,
+ 102, 8, 8, 8, 8, 28,
+ 83, 84, 84, 84, 84, 83,
+ 26, 23, 23, 23, 23, 26
+};
+
+// International Airport (large) - 2 runways
+static const byte _airport_sections_international[] = {
+ 88, 89, 89, 89, 89, 89, 88,
+ 51, 8, 8, 8, 8, 8, 32,
+ 30, 8, 11, 27, 11, 8, 10,
+ 32, 8, 11, 27, 11, 8, 114,
+ 87, 8, 11, 85, 11, 8, 114,
+ 87, 8, 8, 8, 8, 8, 90,
+ 26, 23, 23, 23, 23, 23, 26
+};
+
+// Intercontinental Airport (vlarge) - 4 runways
+static const byte _airport_sections_intercontinental[] = {
+ 102, 120, 89, 89, 89, 89, 89, 89, 118,
+ 120, 22, 22, 22, 22, 22, 22, 119, 117,
+ 87, 54, 87, 8, 8, 8, 8, 51, 117,
+ 87, 162, 87, 85, 116, 116, 8, 9, 10,
+ 87, 8, 8, 11, 31, 11, 8, 160, 32,
+ 32, 160, 8, 11, 27, 11, 8, 8, 10,
+ 87, 8, 8, 11, 30, 11, 8, 8, 10,
+ 87, 142, 8, 11, 29, 11, 10, 163, 10,
+ 87, 164, 87, 8, 8, 8, 10, 37, 117,
+ 87, 120, 89, 89, 89, 89, 89, 89, 119,
+ 121, 22, 22, 22, 22, 22, 22, 119, 37
+};
+
+
+// Commuter Airfield (small)
+static const byte _airport_sections_commuter[] = {
+ 85, 30, 115, 115, 32,
+ 87, 8, 8, 8, 10,
+ 87, 11, 11, 11, 10,
+ 26, 23, 23, 23, 26
+};
+
+// Heliport
+static const byte _airport_sections_heliport[] = {
+ 66,
+};
+
+// Helidepot
+static const byte _airport_sections_helidepot[] = {
+ 124, 32,
+ 122, 123
+};
+
+// Helistation
+static const byte _airport_sections_helistation[] = {
+ 32, 134, 159, 158,
+ 161, 142, 142, 157
+};
+
+static const byte * const _airport_sections[] = {
+ _airport_sections_country, // Country Airfield (small)
+ _airport_sections_town, // City Airport (large)
+ _airport_sections_heliport, // Heliport
+ _airport_sections_metropolitan, // Metropolitain Airport (large)
+ _airport_sections_international, // International Airport (xlarge)
+ _airport_sections_commuter, // Commuter Airport (small)
+ _airport_sections_helidepot, // Helidepot
+ _airport_sections_intercontinental, // Intercontinental Airport (xxlarge)
+ _airport_sections_helistation // Helistation
+};
+
+/** Place an Airport.
+ * @param tile tile where airport will be built
+ * @param p1 airport type, @see airport.h
+ * @param p2 unused
+ */
+int32 CmdBuildAirport(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
+{
+ Town *t;
+ Station *st;
+ int32 cost;
+ int32 ret;
+ int w, h;
+ bool airport_upgrade = true;
+ const AirportFTAClass* afc;
+
+ SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
+ /* Check if a valid, buildable airport was chosen for construction */
+ if (p1 > lengthof(_airport_sections) || !HASBIT(GetValidAirports(), p1)) return CMD_ERROR;
+
+ if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile))
+ return CMD_ERROR;
+
+ t = ClosestTownFromTile(tile, (uint)-1);
+
+ /* Check if local auth refuses a new airport */
+ {
+ uint num = 0;
+ FOR_ALL_STATIONS(st) {
+ if (st->town == t && st->facilities&FACIL_AIRPORT && st->airport_type != AT_OILRIG)
+ num++;
+ }
+ if (num >= 2) {
+ SetDParam(0, t->index);
+ return_cmd_error(STR_2035_LOCAL_AUTHORITY_REFUSES);
+ }
+ }
+
+ afc = GetAirport(p1);
+ w = afc->size_x;
+ h = afc->size_y;
+
+ ret = CheckFlatLandBelow(tile, w, h, flags, 0, NULL);
+ if (CmdFailed(ret)) return ret;
+ cost = ret;
+
+ st = GetStationAround(tile, w, h, -1);
+ if (st == CHECK_STATIONS_ERR) return CMD_ERROR;
+
+ /* Find a station close to us */
+ if (st == NULL) {
+ st = GetClosestStationFromTile(tile, 8, _current_player);
+ if (st != NULL && st->facilities) st = NULL;
+ }
+
+ if (w > _patches.station_spread || h > _patches.station_spread) {
+ _error_message = STR_306C_STATION_TOO_SPREAD_OUT;
+ return CMD_ERROR;
+ }
+
+ if (st != NULL) {
+ if (st->owner != OWNER_NONE && st->owner != _current_player)
+ return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION);
+
+ if (!StationRect_BeforeAddRect(st, tile, w, h, RECT_MODE_TEST)) return CMD_ERROR;
+
+ if (st->airport_tile != 0)
+ return_cmd_error(STR_300D_TOO_CLOSE_TO_ANOTHER_AIRPORT);
+ } else {
+ airport_upgrade = false;
+
+ st = AllocateStation();
+ if (st == NULL) return CMD_ERROR;
+
+ st->town = t;
+
+ if (IsValidPlayer(_current_player) && (flags & DC_EXEC))
+ SETBIT(t->have_ratings, _current_player);
+
+ st->sign.width_1 = 0;
+
+ // if airport type equals Heliport then generate
+ // type 5 name, which is heliport, otherwise airport names (1)
+ if (!GenerateStationName(st, tile, (p1 == AT_HELIPORT)||(p1 == AT_HELIDEPOT)||(p1 == AT_HELISTATION) ? 5 : 1))
+ return CMD_ERROR;
+
+ if (flags & DC_EXEC) StationInitialize(st, tile);
+ }
+
+ cost += _price.build_airport * w * h;
+
+ if (flags & DC_EXEC) {
+ st->owner = _current_player;
+ st->airport_tile = tile;
+ if (!st->facilities) st->xy = tile;
+ st->facilities |= FACIL_AIRPORT;
+ st->airport_type = (byte)p1;
+ st->airport_flags = 0;
+
+ st->build_date = _date;
+
+ StationRect_BeforeAddRect(st, tile, w, h, RECT_MODE_TRY);
+
+ /* if airport was demolished while planes were en-route to it, the
+ * positions can no longer be the same (v->u.air.pos), since different
+ * airports have different indexes. So update all planes en-route to this
+ * airport. Only update if
+ * 1. airport is upgraded
+ * 2. airport is added to existing station (unfortunately unavoideable)
+ */
+ if (airport_upgrade) UpdateAirplanesOnNewStation(st);
+
+ {
+ const byte *b = _airport_sections[p1];
+
+ BEGIN_TILE_LOOP(tile_cur, w, h, tile) {
+ MakeAirport(tile_cur, st->owner, st->index, *b++);
+ } END_TILE_LOOP(tile_cur, w, h, tile)
+ }
+
+ UpdateStationVirtCoordDirty(st);
+ UpdateStationAcceptance(st, false);
+ RebuildStationLists();
+ InvalidateWindow(WC_STATION_LIST, st->owner);
+ }
+
+ return cost;
+}
+
+static int32 RemoveAirport(Station *st, uint32 flags)
+{
+ TileIndex tile;
+ int w,h;
+ int32 cost;
+ const AirportFTAClass* afc;
+
+ if (_current_player != OWNER_WATER && !CheckOwnership(st->owner))
+ return CMD_ERROR;
+
+ tile = st->airport_tile;
+
+ afc = GetAirport(st->airport_type);
+ w = afc->size_x;
+ h = afc->size_y;
+
+ cost = w * h * _price.remove_airport;
+
+ BEGIN_TILE_LOOP(tile_cur, w, h, tile) {
+ if (!EnsureNoVehicle(tile_cur)) return CMD_ERROR;
+
+ if (flags & DC_EXEC) {
+ DeleteAnimatedTile(tile_cur);
+ DoClearSquare(tile_cur);
+ }
+ } END_TILE_LOOP(tile_cur, w,h,tile)
+
+ if (flags & DC_EXEC) {
+ uint i;
+
+ for (i = 0; i < afc->nof_depots; ++i) {
+ DeleteWindowById(
+ WC_VEHICLE_DEPOT, tile + ToTileIndexDiff(afc->airport_depots[i])
+ );
+ }
+
+ StationRect_AfterRemoveRect(st, tile, w, h);
+
+ st->airport_tile = 0;
+ st->facilities &= ~FACIL_AIRPORT;
+
+ UpdateStationVirtCoordDirty(st);
+ DeleteStationIfEmpty(st);
+ }
+
+ return cost;
+}
+
+/** Build a buoy.
+ * @param tile tile where to place the bouy
+ * @param p1 unused
+ * @param p2 unused
+ */
+int32 CmdBuildBuoy(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
+{
+ Station *st;
+
+ SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
+ if (!IsClearWaterTile(tile) || tile == 0) return_cmd_error(STR_304B_SITE_UNSUITABLE);
+
+ st = AllocateStation();
+ if (st == NULL) return CMD_ERROR;
+
+ st->town = ClosestTownFromTile(tile, (uint)-1);
+ st->sign.width_1 = 0;
+
+ if (!GenerateStationName(st, tile, 4)) return CMD_ERROR;
+
+ if (flags & DC_EXEC) {
+ StationInitialize(st, tile);
+ st->dock_tile = tile;
+ st->facilities |= FACIL_DOCK;
+ /* Buoys are marked in the Station struct by this flag. Yes, it is this
+ * braindead.. */
+ st->had_vehicle_of_type |= HVOT_BUOY;
+ st->owner = OWNER_NONE;
+
+ st->build_date = _date;
+
+ MakeBuoy(tile, st->index);
+
+ UpdateStationVirtCoordDirty(st);
+ UpdateStationAcceptance(st, false);
+ RebuildStationLists();
+ InvalidateWindow(WC_STATION_LIST, st->owner);
+ }
+
+ return _price.build_dock;
+}
+
+/* Checks if any ship is servicing the buoy specified. Returns yes or no */
+static bool CheckShipsOnBuoy(Station *st)
+{
+ const Vehicle *v;
+ FOR_ALL_VEHICLES(v) {
+ if (v->type == VEH_Ship) {
+ const Order *order;
+ FOR_VEHICLE_ORDERS(v, order) {
+ if (order->type == OT_GOTO_STATION && order->dest == st->index) {
+ return true;
+ }
+ }
+ }
+ }
+ return false;
+}
+
+static int32 RemoveBuoy(Station *st, uint32 flags)
+{
+ TileIndex tile;
+
+ /* XXX: strange stuff */
+ if (!IsValidPlayer(_current_player)) return_cmd_error(INVALID_STRING_ID);
+
+ tile = st->dock_tile;
+
+ if (CheckShipsOnBuoy(st)) return_cmd_error(STR_BUOY_IS_IN_USE);
+ if (!EnsureNoVehicle(tile)) return CMD_ERROR;
+
+ if (flags & DC_EXEC) {
+ st->dock_tile = 0;
+ /* Buoys are marked in the Station struct by this flag. Yes, it is this
+ * braindead.. */
+ st->facilities &= ~FACIL_DOCK;
+ st->had_vehicle_of_type &= ~HVOT_BUOY;
+
+ MakeWater(tile);
+ MarkTileDirtyByTile(tile);
+
+ UpdateStationVirtCoordDirty(st);
+ DeleteStationIfEmpty(st);
+ }
+
+ return _price.remove_truck_station;
+}
+
+static const TileIndexDiffC _dock_tileoffs_chkaround[] = {
+ {-1, 0},
+ { 0, 0},
+ { 0, 0},
+ { 0, -1}
+};
+static const byte _dock_w_chk[4] = { 2, 1, 2, 1 };
+static const byte _dock_h_chk[4] = { 1, 2, 1, 2 };
+
+/** Build a dock/haven.
+ * @param tile tile where dock will be built
+ * @param p1 unused
+ * @param p2 unused
+ */
+int32 CmdBuildDock(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
+{
+ TileIndex tile_cur;
+ DiagDirection direction;
+ int32 cost;
+ Station *st;
+
+ SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION);
+
+ switch (GetTileSlope(tile, NULL)) {
+ case SLOPE_SW: direction = DIAGDIR_NE; break;
+ case SLOPE_SE: direction = DIAGDIR_NW; break;
+ case SLOPE_NW: direction = DIAGDIR_SE; break;
+ case SLOPE_NE: direction = DIAGDIR_SW; break;
+ default: return_cmd_error(STR_304B_SITE_UNSUITABLE);
+ }
+
+ if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile)) return CMD_ERROR;
+
+ if (!EnsureNoVehicle(tile)) return CMD_ERROR;
+
+ cost = DoCommand(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
+ if (CmdFailed(cost)) return CMD_ERROR;
+
+ tile_cur = tile + TileOffsByDiagDir(direction);
+
+ if (!EnsureNoVehicle(tile_cur)) return CMD_ERROR;
+
+ if (!IsTileType(tile_cur, MP_WATER) || GetTileSlope(tile_cur, NULL) != SLOPE_FLAT) {
+ return_cmd_error(STR_304B_SITE_UNSUITABLE);
+ }
+
+ cost = DoCommand(tile_cur, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
+ if (CmdFailed(cost)) return CMD_ERROR;
+
+ tile_cur += TileOffsByDiagDir(direction);
+ if (!IsTileType(tile_cur, MP_WATER) || GetTileSlope(tile_cur, NULL) != SLOPE_FLAT) {
+ return_cmd_error(STR_304B_SITE_UNSUITABLE);
+ }
+
+ /* middle */
+ st = GetStationAround(
+ tile + ToTileIndexDiff(_dock_tileoffs_chkaround[direction]),
+ _dock_w_chk[direction], _dock_h_chk[direction], -1);
+ if (st == CHECK_STATIONS_ERR) return CMD_ERROR;
+
+ /* Find a station close to us */
+ if (st == NULL) {
+ st = GetClosestStationFromTile(tile, 8, _current_player);
+ if (st!=NULL && st->facilities) st = NULL;
+ }
+
+ if (st != NULL) {
+ if (st->owner != OWNER_NONE && st->owner != _current_player)
+ return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION);
+
+ if (!StationRect_BeforeAddRect(st, tile, _dock_w_chk[direction], _dock_h_chk[direction], RECT_MODE_TEST)) return CMD_ERROR;
+
+ if (st->dock_tile != 0) return_cmd_error(STR_304C_TOO_CLOSE_TO_ANOTHER_DOCK);
+ } else {
+ Town *t;
+
+ st = AllocateStation();
+ if (st == NULL) return CMD_ERROR;
+
+ st->town = t = ClosestTownFromTile(tile, (uint)-1);
+
+ if (IsValidPlayer(_current_player) && (flags & DC_EXEC))
+ SETBIT(t->have_ratings, _current_player);
+
+ st->sign.width_1 = 0;
+
+ if (!GenerateStationName(st, tile, 3)) return CMD_ERROR;
+
+ if (flags & DC_EXEC) StationInitialize(st, tile);
+ }
+
+ if (flags & DC_EXEC) {
+ st->dock_tile = tile;
+ if (!st->facilities) st->xy = tile;
+ st->facilities |= FACIL_DOCK;
+ st->owner = _current_player;
+
+ st->build_date = _date;
+
+ StationRect_BeforeAddRect(st, tile, _dock_w_chk[direction], _dock_h_chk[direction], RECT_MODE_TRY);
+
+ MakeDock(tile, st->owner, st->index, direction);
+
+ UpdateStationVirtCoordDirty(st);
+ UpdateStationAcceptance(st, false);
+ RebuildStationLists();
+ InvalidateWindow(WC_STATION_LIST, st->owner);
+ }
+ return _price.build_dock;
+}
+
+static int32 RemoveDock(Station *st, uint32 flags)
+{
+ TileIndex tile1;
+ TileIndex tile2;
+
+ if (!CheckOwnership(st->owner)) return CMD_ERROR;
+
+ tile1 = st->dock_tile;
+ tile2 = tile1 + TileOffsByDiagDir(GetDockDirection(tile1));
+
+ if (!EnsureNoVehicle(tile1)) return CMD_ERROR;
+ if (!EnsureNoVehicle(tile2)) return CMD_ERROR;
+
+ if (flags & DC_EXEC) {
+ DoClearSquare(tile1);
+ MakeWater(tile2);
+
+ StationRect_AfterRemoveTile(st, tile1);
+ StationRect_AfterRemoveTile(st, tile2);
+
+ MarkTileDirtyByTile(tile2);
+
+ st->dock_tile = 0;
+ st->facilities &= ~FACIL_DOCK;
+
+ UpdateStationVirtCoordDirty(st);
+ DeleteStationIfEmpty(st);
+ }
+
+ return _price.remove_dock;
+}
+
+#include "table/station_land.h"
+
+const DrawTileSprites *GetStationTileLayout(byte gfx)
+{
+ return &_station_display_datas[gfx];
+}
+
+static void DrawTile_Station(TileInfo *ti)
+{
+ uint32 image;
+ const DrawTileSeqStruct *dtss;
+ const DrawTileSprites *t = NULL;
+ RailType railtype = GetRailType(ti->tile);
+ const RailtypeInfo *rti = GetRailTypeInfo(railtype);
+ uint32 relocation = 0;
+ const Station *st = NULL;
+ const StationSpec *statspec = NULL;
+ PlayerID owner = GetTileOwner(ti->tile);
+ uint32 palette;
+
+ if (IsValidPlayer(owner)) {
+ palette = PLAYER_SPRITE_COLOR(owner);
+ } else {
+ // Some stations are not owner by a player, namely oil rigs
+ palette = PALETTE_TO_GREY;
+ }
+
+ // don't show foundation for docks
+ if (ti->tileh != SLOPE_FLAT && !IsDock(ti->tile))
+ DrawFoundation(ti, ti->tileh);
+
+ if (IsCustomStationSpecIndex(ti->tile)) {
+ // look for customization
+ st = GetStationByTile(ti->tile);
+ statspec = st->speclist[GetCustomStationSpecIndex(ti->tile)].spec;
+
+ //debug("Cust-o-mized %p", statspec);
+
+ if (statspec != NULL) {
+ uint tile = GetStationGfx(ti->tile);
+
+ relocation = GetCustomStationRelocation(statspec, st, ti->tile);
+
+ if (HASBIT(statspec->callbackmask, CBM_CUSTOM_LAYOUT)) {
+ uint16 callback = GetStationCallback(CBID_STATION_SPRITE_LAYOUT, 0, 0, statspec, st, ti->tile);
+ if (callback != CALLBACK_FAILED) tile = (callback & ~1) + GetRailStationAxis(ti->tile);
+ }
+
+ /* Ensure the chosen tile layout is valid for this custom station */
+ if (statspec->renderdata != NULL) {
+ t = &statspec->renderdata[tile < statspec->tiles ? tile : GetRailStationAxis(ti->tile)];
+ }
+ }
+ }
+
+ if (t == NULL || t->seq == NULL) t = &_station_display_datas[GetStationGfx(ti->tile)];
+
+ image = t->ground_sprite;
+ if (HASBIT(image, 31)) {
+ CLRBIT(image, 31);
+ image += GetCustomStationGroundRelocation(statspec, st, ti->tile);
+ image += rti->custom_ground_offset;
+ } else {
+ image += rti->total_offset;
+ }
+ if (image & PALETTE_MODIFIER_COLOR) image |= palette;
+
+ // station_land array has been increased from 82 elements to 114
+ // but this is something else. If AI builds station with 114 it looks all weird
+ DrawGroundSprite(image);
+
+ if (GetRailType(ti->tile) == RAILTYPE_ELECTRIC && IsStationTileElectrifiable(ti->tile)) DrawCatenary(ti);
+
+ foreach_draw_tile_seq(dtss, t->seq) {
+ image = dtss->image;
+ if (HASBIT(image, 30)) {
+ CLRBIT(image, 30);
+ image += rti->total_offset;
+ } else {
+ image += relocation;
+ }
+
+ if (_display_opt & DO_TRANS_BUILDINGS) {
+ MAKE_TRANSPARENT(image);
+ } else if (image & PALETTE_MODIFIER_COLOR) {
+ image |= palette;
+ }
+
+ if ((byte)dtss->delta_z != 0x80) {
+ AddSortableSpriteToDraw(
+ image,
+ ti->x + dtss->delta_x, ti->y + dtss->delta_y,
+ dtss->size_x, dtss->size_y,
+ dtss->size_z, ti->z + dtss->delta_z
+ );
+ } else {
+ AddChildSpriteScreen(image, dtss->delta_x, dtss->delta_y);
+ }
+ }
+}
+
+void StationPickerDrawSprite(int x, int y, RailType railtype, int image)
+{
+ uint32 ormod, img;
+ const DrawTileSeqStruct *dtss;
+ const DrawTileSprites *t;
+ const RailtypeInfo *rti = GetRailTypeInfo(railtype);
+
+ ormod = PLAYER_SPRITE_COLOR(_local_player);
+
+ t = &_station_display_datas[image];
+
+ img = t->ground_sprite;
+ if (img & PALETTE_MODIFIER_COLOR) img |= ormod;
+ DrawSprite(img + rti->total_offset, x, y);
+
+ foreach_draw_tile_seq(dtss, t->seq) {
+ Point pt = RemapCoords(dtss->delta_x, dtss->delta_y, dtss->delta_z);
+ DrawSprite((dtss->image | ormod) + rti->total_offset, x + pt.x, y + pt.y);
+ }
+}
+
+static uint GetSlopeZ_Station(TileIndex tile, uint x, uint y)
+{
+ return GetTileMaxZ(tile);
+}
+
+static Slope GetSlopeTileh_Station(TileIndex tile, Slope tileh)
+{
+ return SLOPE_FLAT;
+}
+
+static void GetAcceptedCargo_Station(TileIndex tile, AcceptedCargo ac)
+{
+ /* not used */
+}
+
+static void GetTileDesc_Station(TileIndex tile, TileDesc *td)
+{
+ StringID str;
+
+ td->owner = GetTileOwner(tile);
+ td->build_date = GetStationByTile(tile)->build_date;
+
+ switch (GetStationType(tile)) {
+ default: NOT_REACHED();
+ case STATION_RAIL: str = STR_305E_RAILROAD_STATION; break;
+ case STATION_AIRPORT:
+ str = (IsHangar(tile) ? STR_305F_AIRCRAFT_HANGAR : STR_3060_AIRPORT);
+ break;
+ case STATION_TRUCK: str = STR_3061_TRUCK_LOADING_AREA; break;
+ case STATION_BUS: str = STR_3062_BUS_STATION; break;
+ case STATION_OILRIG: str = STR_4807_OIL_RIG; break;
+ case STATION_DOCK: str = STR_3063_SHIP_DOCK; break;
+ case STATION_BUOY: str = STR_3069_BUOY; break;
+ }
+ td->str = str;
+}
+
+
+static uint32 GetTileTrackStatus_Station(TileIndex tile, TransportType mode)
+{
+ switch (mode) {
+ case TRANSPORT_RAIL:
+ if (IsRailwayStation(tile) && !IsStationTileBlocked(tile)) {
+ return TrackToTrackBits(GetRailStationTrack(tile)) * 0x101;
+ }
+ break;
+
+ case TRANSPORT_WATER:
+ // buoy is coded as a station, it is always on open water
+ if (IsBuoy_(tile)) return TRACK_BIT_ALL * 0x101;
+ break;
+
+ case TRANSPORT_ROAD:
+ if (IsRoadStopTile(tile)) {
+ return AxisToTrackBits(DiagDirToAxis(GetRoadStopDir(tile))) * 0x101;
+ }
+ break;
+
+ default:
+ break;
+ }
+
+ return 0;
+}
+
+
+static void TileLoop_Station(TileIndex tile)
+{
+ // FIXME -- GetTileTrackStatus_Station -> animated stationtiles
+ // hardcoded.....not good
+ switch (GetStationGfx(tile)) {
+ case GFX_RADAR_LARGE_FIRST:
+ case GFX_WINDSACK_FIRST : // for small airport
+ case GFX_RADAR_INTERNATIONAL_FIRST:
+ case GFX_RADAR_METROPOLITAN_FIRST:
+ case GFX_RADAR_DISTRICTWE_FIRST: // radar district W-E airport
+ case GFX_WINDSACK_INTERCON_FIRST : // for intercontinental airport
+ AddAnimatedTile(tile);
+ break;
+
+ case GFX_OILRIG_BASE: //(station part)
+ case GFX_BUOY_BASE:
+ TileLoop_Water(tile);
+ break;
+
+ default: break;
+ }
+}
+
+
+static void AnimateTile_Station(TileIndex tile)
+{
+ typedef struct AnimData {
+ StationGfx from; // first sprite
+ StationGfx to; // last sprite
+ byte delay;
+ } AnimData;
+
+ static const AnimData data[] = {
+ { GFX_RADAR_LARGE_FIRST, GFX_RADAR_LARGE_LAST, 3 },
+ { GFX_WINDSACK_FIRST, GFX_WINDSACK_LAST, 1 },
+ { GFX_RADAR_INTERNATIONAL_FIRST, GFX_RADAR_INTERNATIONAL_LAST, 3 },
+ { GFX_RADAR_METROPOLITAN_FIRST, GFX_RADAR_METROPOLITAN_LAST, 3 },
+ { GFX_RADAR_DISTRICTWE_FIRST, GFX_RADAR_DISTRICTWE_LAST, 3 },
+ { GFX_WINDSACK_INTERCON_FIRST, GFX_WINDSACK_INTERCON_LAST, 1 }
+ };
+
+ StationGfx gfx = GetStationGfx(tile);
+ const AnimData* i;
+
+ for (i = data; i != endof(data); i++) {
+ if (i->from <= gfx && gfx <= i->to) {
+ if ((_tick_counter & i->delay) == 0) {
+ SetStationGfx(tile, gfx < i->to ? gfx + 1 : i->from);
+ MarkTileDirtyByTile(tile);
+ }
+ break;
+ }
+ }
+}
+
+
+static void ClickTile_Station(TileIndex tile)
+{
+ if (IsHangar(tile)) {
+ ShowDepotWindow(tile, VEH_Aircraft);
+ } else {
+ ShowStationViewWindow(GetStationIndex(tile));
+ }
+}
+
+static const byte _enter_station_speedtable[12] = {
+ 215, 195, 175, 155, 135, 115, 95, 75, 55, 35, 15, 0
+};
+
+static uint32 VehicleEnter_Station(Vehicle *v, TileIndex tile, int x, int y)
+{
+ if (v->type == VEH_Train) {
+ if (IsRailwayStation(tile) && IsFrontEngine(v) &&
+ !IsCompatibleTrainStationTile(tile + TileOffsByDiagDir(DirToDiagDir(v->direction)), tile)) {
+ StationID station_id = GetStationIndex(tile);
+
+ if ((!(v->current_order.flags & OF_NON_STOP) && !_patches.new_nonstop) ||
+ (v->current_order.type == OT_GOTO_STATION && v->current_order.dest == station_id)) {
+ if (!(_patches.new_nonstop && v->current_order.flags & OF_NON_STOP) &&
+ v->current_order.type != OT_LEAVESTATION &&
+ v->last_station_visited != station_id) {
+ DiagDirection dir = DirToDiagDir(v->direction);
+
+ x &= 0xF;
+ y &= 0xF;
+
+ if (DiagDirToAxis(dir) != AXIS_X) intswap(x, y);
+ if (y == TILE_SIZE / 2) {
+ if (dir != DIAGDIR_SE && dir != DIAGDIR_SW) x = TILE_SIZE - 1 - x;
+ if (x == 12) return 2 | (station_id << 8); /* enter station */
+ if (x < 12) {
+ uint16 spd;
+
+ v->vehstatus |= VS_TRAIN_SLOWING;
+ spd = _enter_station_speedtable[x];
+ if (spd < v->cur_speed) v->cur_speed = spd;
+ }
+ }
+ }
+ }
+ }
+ } else if (v->type == VEH_Road) {
+ if (v->u.road.state < 16 && !HASBIT(v->u.road.state, 2) && v->u.road.frame == 0) {
+ if (IsRoadStop(tile)) {
+ /* Attempt to allocate a parking bay in a road stop */
+ RoadStop *rs = GetRoadStopByTile(tile, GetRoadStopType(tile));
+
+ /* rs->status bits 0 and 1 describe current the two parking spots.
+ * 0 means occupied, 1 means free. */
+
+ // Check if station is busy or if there are no free bays.
+ if (HASBIT(rs->status, 7) || GB(rs->status, 0, 2) == 0)
+ return 8;
+
+ v->u.road.state += 32;
+
+ // if the first bay is free, allocate that, else the second bay must be free.
+ if (HASBIT(rs->status, 0)) {
+ CLRBIT(rs->status, 0);
+ } else {
+ CLRBIT(rs->status, 1);
+ v->u.road.state += 2;
+ }
+
+ // mark the station as busy
+ SETBIT(rs->status, 7);
+ }
+ }
+ }
+
+ return 0;
+}
+
+/**
+ * Cleanup a RoadStop. Make sure no vehicles try to go to this roadstop.
+ */
+void DestroyRoadStop(RoadStop* rs)
+{
+ Vehicle *v;
+
+ /* Clear the slot assignment of all vehicles heading for this road stop */
+ if (rs->num_vehicles != 0) {
+ FOR_ALL_VEHICLES(v) {
+ if (v->type == VEH_Road && v->u.road.slot == rs) {
+ ClearSlot(v);
+ }
+ }
+ }
+ assert(rs->num_vehicles == 0);
+
+ if (rs->prev != NULL) rs->prev->next = rs->next;
+ if (rs->next != NULL) rs->next->prev = rs->prev;
+}
+
+/**
+ * Clean up a station by clearing vehicle orders and invalidating windows.
+ * Aircraft-Hangar orders need special treatment here, as the hangars are
+ * actually part of a station (tiletype is STATION), but the order type
+ * is OT_GOTO_DEPOT.
+ * @param st Station to be deleted
+ */
+void DestroyStation(Station *st)
+{
+ StationID index;
+
+ index = st->index;
+
+ DeleteName(st->string_id);
+ MarkStationDirty(st);
+ RebuildStationLists();
+ InvalidateWindowClasses(WC_STATION_LIST);
+
+ DeleteWindowById(WC_STATION_VIEW, index);
+
+ /* Now delete all orders that go to the station */
+ RemoveOrderFromAllVehicles(OT_GOTO_STATION, index);
+
+ //Subsidies need removal as well
+ DeleteSubsidyWithStation(index);
+
+ free(st->speclist);
+}
+
+void DeleteAllPlayerStations(void)
+{
+ Station *st;
+
+ FOR_ALL_STATIONS(st) {
+ if (IsValidPlayer(st->owner)) DeleteStation(st);
+ }
+}
+
+/* this function is called for one station each tick */
+static void StationHandleBigTick(Station *st)
+{
+ UpdateStationAcceptance(st, true);
+
+ if (st->facilities == 0 && ++st->delete_ctr >= 8) DeleteStation(st);
+
+}
+
+static inline void byte_inc_sat(byte *p) { byte b = *p + 1; if (b != 0) *p = b; }
+
+static void UpdateStationRating(Station *st)
+{
+ GoodsEntry *ge;
+ int rating;
+ StationID index;
+ int waiting;
+ bool waiting_changed = false;
+
+ byte_inc_sat(&st->time_since_load);
+ byte_inc_sat(&st->time_since_unload);
+
+ ge = st->goods;
+ do {
+ if (ge->enroute_from != INVALID_STATION) {
+ byte_inc_sat(&ge->enroute_time);
+ byte_inc_sat(&ge->days_since_pickup);
+
+ rating = 0;
+
+ {
+ int b = ge->last_speed;
+ if ((b-=85) >= 0)
+ rating += b >> 2;
+ }
+
+ {
+ byte age = ge->last_age;
+ (age >= 3) ||
+ (rating += 10, age >= 2) ||
+ (rating += 10, age >= 1) ||
+ (rating += 13, true);
+ }
+
+ if (IsValidPlayer(st->owner) && HASBIT(st->town->statues, st->owner)) rating += 26;
+
+ {
+ byte days = ge->days_since_pickup;
+ if (st->last_vehicle_type == VEH_Ship)
+ days >>= 2;
+ (days > 21) ||
+ (rating += 25, days > 12) ||
+ (rating += 25, days > 6) ||
+ (rating += 45, days > 3) ||
+ (rating += 35, true);
+ }
+
+ {
+ waiting = GB(ge->waiting_acceptance, 0, 12);
+ (rating -= 90, waiting > 1500) ||
+ (rating += 55, waiting > 1000) ||
+ (rating += 35, waiting > 600) ||
+ (rating += 10, waiting > 300) ||
+ (rating += 20, waiting > 100) ||
+ (rating += 10, true);
+ }
+
+ {
+ int or = ge->rating; // old rating
+
+ // only modify rating in steps of -2, -1, 0, 1 or 2
+ ge->rating = rating = or + clamp(clamp(rating, 0, 255) - or, -2, 2);
+
+ // if rating is <= 64 and more than 200 items waiting, remove some random amount of goods from the station
+ if (rating <= 64 && waiting >= 200) {
+ int dec = Random() & 0x1F;
+ if (waiting < 400) dec &= 7;
+ waiting -= dec + 1;
+ waiting_changed = true;
+ }
+
+ // if rating is <= 127 and there are any items waiting, maybe remove some goods.
+ if (rating <= 127 && waiting != 0) {
+ uint32 r = Random();
+ if ( (uint)rating <= (r & 0x7F) ) {
+ waiting = max(waiting - ((r >> 8)&3) - 1, 0);
+ waiting_changed = true;
+ }
+ }
+
+ if (waiting_changed) SB(ge->waiting_acceptance, 0, 12, waiting);
+ }
+ }
+ } while (++ge != endof(st->goods));
+
+ index = st->index;
+
+ if (waiting_changed) {
+ InvalidateWindow(WC_STATION_VIEW, index);
+ } else {
+ InvalidateWindowWidget(WC_STATION_VIEW, index, 5);
+ }
+}
+
+/* called for every station each tick */
+static void StationHandleSmallTick(Station *st)
+{
+ byte b;
+
+ if (st->facilities == 0) return;
+
+ b = st->delete_ctr + 1;
+ if (b >= 185) b = 0;
+ st->delete_ctr = b;
+
+ if (b == 0) UpdateStationRating(st);
+}
+
+void OnTick_Station(void)
+{
+ uint i;
+ Station *st;
+
+ if (_game_mode == GM_EDITOR) return;
+
+ i = _station_tick_ctr;
+ if (++_station_tick_ctr > GetMaxStationIndex()) _station_tick_ctr = 0;
+
+ if (IsValidStationID(i)) StationHandleBigTick(GetStation(i));
+
+ FOR_ALL_STATIONS(st) {
+ StationHandleSmallTick(st);
+ }
+}
+
+void StationMonthlyLoop(void)
+{
+}
+
+
+void ModifyStationRatingAround(TileIndex tile, PlayerID owner, int amount, uint radius)
+{
+ Station *st;
+
+ FOR_ALL_STATIONS(st) {
+ if (st->owner == owner &&
+ DistanceManhattan(tile, st->xy) <= radius) {
+ uint i;
+
+ for (i = 0; i != NUM_CARGO; i++) {
+ GoodsEntry* ge = &st->goods[i];
+
+ if (ge->enroute_from != INVALID_STATION) {
+ ge->rating = clamp(ge->rating + amount, 0, 255);
+ }
+ }
+ }
+ }
+}
+
+static void UpdateStationWaiting(Station *st, int type, uint amount)
+{
+ SB(st->goods[type].waiting_acceptance, 0, 12,
+ min(0xFFF, GB(st->goods[type].waiting_acceptance, 0, 12) + amount)
+ );
+
+ st->goods[type].enroute_time = 0;
+ st->goods[type].enroute_from = st->index;
+ InvalidateWindow(WC_STATION_VIEW, st->index);
+ MarkStationTilesDirty(st);
+}
+
+/** Rename a station
+ * @param tile unused
+ * @param p1 station ID that is to be renamed
+ * @param p2 unused
+ */
+int32 CmdRenameStation(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
+{
+ StringID str;
+ Station *st;
+
+ if (!IsValidStationID(p1) || _cmd_text[0] == '\0') return CMD_ERROR;
+ st = GetStation(p1);
+
+ if (!CheckOwnership(st->owner)) return CMD_ERROR;
+
+ str = AllocateNameUnique(_cmd_text, 6);
+ if (str == 0) return CMD_ERROR;
+
+ if (flags & DC_EXEC) {
+ StringID old_str = st->string_id;
+
+ st->string_id = str;
+ UpdateStationVirtCoord(st);
+ DeleteName(old_str);
+ ResortStationLists();
+ MarkWholeScreenDirty();
+ } else {
+ DeleteName(str);
+ }
+
+ return 0;
+}
+
+
+uint MoveGoodsToStation(TileIndex tile, int w, int h, int type, uint amount)
+{
+ Station* around[8];
+ uint i;
+ uint moved;
+ uint best_rating, best_rating2;
+ Station *st1, *st2;
+ uint t;
+ int rad = 0;
+ int w_prod; //width and height of the "producer" of the cargo
+ int h_prod;
+ int max_rad;
+
+ for (i = 0; i < lengthof(around); i++) around[i] = NULL;
+
+ if (_patches.modified_catchment) {
+ w_prod = w;
+ h_prod = h;
+ w += 16;
+ h += 16;
+ max_rad = 8;
+ } else {
+ w_prod = 0;
+ h_prod = 0;
+ w += 8;
+ h += 8;
+ max_rad = 4;
+ }
+
+ BEGIN_TILE_LOOP(cur_tile, w, h, tile - TileDiffXY(max_rad, max_rad))
+ Station* st;
+
+ cur_tile = TILE_MASK(cur_tile);
+ if (!IsTileType(cur_tile, MP_STATION)) continue;
+
+ st = GetStationByTile(cur_tile);
+
+ for (i = 0; i != lengthof(around); i++) {
+ if (around[i] == NULL) {
+ if (!IsBuoy(st) &&
+ (st->town->exclusive_counter == 0 || st->town->exclusivity == st->owner) && // check exclusive transport rights
+ st->goods[type].rating != 0 &&
+ (!_patches.selectgoods || st->goods[type].last_speed > 0) && // if last_speed is 0, no vehicle has been there.
+ ((st->facilities & ~FACIL_BUS_STOP) != 0 || type == CT_PASSENGERS) && // if we have other fac. than a bus stop, or the cargo is passengers
+ ((st->facilities & ~FACIL_TRUCK_STOP) != 0 || type != CT_PASSENGERS)) { // if we have other fac. than a cargo bay or the cargo is not passengers
+ int x_dist;
+ int y_dist;
+
+ if (_patches.modified_catchment) {
+ // min and max coordinates of the producer relative
+ const int x_min_prod = 9;
+ const int x_max_prod = 8 + w_prod;
+ const int y_min_prod = 9;
+ const int y_max_prod = 8 + h_prod;
+
+ rad = FindCatchmentRadius(st);
+
+ x_dist = min(w_cur - x_min_prod, x_max_prod - w_cur);
+ if (w_cur < x_min_prod) {
+ x_dist = x_min_prod - w_cur;
+ } else if (w_cur > x_max_prod) {
+ x_dist = w_cur - x_max_prod;
+ }
+
+ y_dist = min(h_cur - y_min_prod, y_max_prod - h_cur);
+ if (h_cur < y_min_prod) {
+ y_dist = y_min_prod - h_cur;
+ } else if (h_cur > y_max_prod) {
+ y_dist = h_cur - y_max_prod;
+ }
+ } else {
+ x_dist = 0;
+ y_dist = 0;
+ }
+
+ if (x_dist <= rad && y_dist <= rad) around[i] = st;
+ }
+ break;
+ } else if (around[i] == st) {
+ break;
+ }
+ }
+ END_TILE_LOOP(cur_tile, w, h, tile - TileDiffXY(max_rad, max_rad))
+
+ /* no stations around at all? */
+ if (around[0] == NULL) return 0;
+
+ if (around[1] == NULL) {
+ /* only one station around */
+ moved = (amount * around[0]->goods[type].rating >> 8) + 1;
+ UpdateStationWaiting(around[0], type, moved);
+ return moved;
+ }
+
+ /* several stations around, find the two with the highest rating */
+ st2 = st1 = NULL;
+ best_rating = best_rating2 = 0;
+
+ for (i = 0; i != lengthof(around) && around[i] != NULL; i++) {
+ if (around[i]->goods[type].rating >= best_rating) {
+ best_rating2 = best_rating;
+ st2 = st1;
+
+ best_rating = around[i]->goods[type].rating;
+ st1 = around[i];
+ } else if (around[i]->goods[type].rating >= best_rating2) {
+ best_rating2 = around[i]->goods[type].rating;
+ st2 = around[i];
+ }
+ }
+
+ assert(st1 != NULL);
+ assert(st2 != NULL);
+ assert(best_rating != 0 || best_rating2 != 0);
+
+ /* the 2nd highest one gets a penalty */
+ best_rating2 >>= 1;
+
+ /* amount given to station 1 */
+ t = (best_rating * (amount + 1)) / (best_rating + best_rating2);
+
+ moved = 0;
+ if (t != 0) {
+ moved = t * best_rating / 256 + 1;
+ amount -= t;
+ UpdateStationWaiting(st1, type, moved);
+ }
+
+ if (amount != 0) {
+ amount = amount * best_rating2 / 256 + 1;
+ moved += amount;
+ UpdateStationWaiting(st2, type, amount);
+ }
+
+ return moved;
+}
+
+void BuildOilRig(TileIndex tile)
+{
+ uint j;
+ Station *st = AllocateStation();
+
+ if (st == NULL) {
+ DEBUG(misc, 0, "Can't allocate station for oilrig at 0x%X, reverting to oilrig only", tile);
+ return;
+ }
+ if (!GenerateStationName(st, tile, 2)) {
+ DEBUG(misc, 0, "Can't allocate station-name for oilrig at 0x%X, reverting to oilrig only", tile);
+ return;
+ }
+
+ st->town = ClosestTownFromTile(tile, (uint)-1);
+ st->sign.width_1 = 0;
+
+ MakeOilrig(tile, st->index);
+
+ st->owner = OWNER_NONE;
+ st->airport_flags = 0;
+ st->airport_type = AT_OILRIG;
+ st->xy = tile;
+ st->bus_stops = NULL;
+ st->truck_stops = NULL;
+ st->airport_tile = tile;
+ st->dock_tile = tile;
+ st->train_tile = 0;
+ st->had_vehicle_of_type = 0;
+ st->time_since_load = 255;
+ st->time_since_unload = 255;
+ st->delete_ctr = 0;
+ st->last_vehicle_type = VEH_Invalid;
+ st->facilities = FACIL_AIRPORT | FACIL_DOCK;
+ st->build_date = _date;
+
+ for (j = 0; j != NUM_CARGO; j++) {
+ st->goods[j].waiting_acceptance = 0;
+ st->goods[j].days_since_pickup = 0;
+ st->goods[j].enroute_from = INVALID_STATION;
+ st->goods[j].rating = 175;
+ st->goods[j].last_speed = 0;
+ st->goods[j].last_age = 255;
+ }
+
+ UpdateStationVirtCoordDirty(st);
+ UpdateStationAcceptance(st, false);
+}
+
+void DeleteOilRig(TileIndex tile)
+{
+ Station* st = GetStationByTile(tile);
+
+ DoClearSquare(tile);
+
+ st->dock_tile = 0;
+ st->airport_tile = 0;
+ st->facilities &= ~(FACIL_AIRPORT | FACIL_DOCK);
+ st->airport_flags = 0;
+ UpdateStationVirtCoordDirty(st);
+ DeleteStation(st);
+}
+
+static void ChangeTileOwner_Station(TileIndex tile, PlayerID old_player, PlayerID new_player)
+{
+ if (!IsTileOwner(tile, old_player)) return;
+
+ if (new_player != PLAYER_SPECTATOR) {
+ Station* st = GetStationByTile(tile);
+
+ SetTileOwner(tile, new_player);
+ st->owner = new_player;
+ RebuildStationLists();
+ InvalidateWindowClasses(WC_STATION_LIST);
+ } else {
+ DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR);
+ }
+}
+
+static int32 ClearTile_Station(TileIndex tile, byte flags)
+{
+ Station *st;
+
+ if (flags & DC_AUTO) {
+ switch (GetStationType(tile)) {
+ case STATION_RAIL: return_cmd_error(STR_300B_MUST_DEMOLISH_RAILROAD);
+ case STATION_AIRPORT: return_cmd_error(STR_300E_MUST_DEMOLISH_AIRPORT_FIRST);
+ case STATION_TRUCK: return_cmd_error(STR_3047_MUST_DEMOLISH_TRUCK_STATION);
+ case STATION_BUS: return_cmd_error(STR_3046_MUST_DEMOLISH_BUS_STATION);
+ case STATION_BUOY: return_cmd_error(STR_306A_BUOY_IN_THE_WAY);
+ case STATION_DOCK: return_cmd_error(STR_304D_MUST_DEMOLISH_DOCK_FIRST);
+ case STATION_OILRIG:
+ SetDParam(0, STR_4807_OIL_RIG);
+ return_cmd_error(STR_4800_IN_THE_WAY);
+ }
+ }
+
+ st = GetStationByTile(tile);
+
+ switch (GetStationType(tile)) {
+ case STATION_RAIL: return RemoveRailroadStation(st, tile, flags);
+ case STATION_AIRPORT: return RemoveAirport(st, flags);
+ case STATION_TRUCK:
+ case STATION_BUS: return RemoveRoadStop(st, flags, tile);
+ case STATION_BUOY: return RemoveBuoy(st, flags);
+ case STATION_DOCK: return RemoveDock(st, flags);
+ default: break;
+ }
+
+ return CMD_ERROR;
+}
+
+void InitializeStations(void)
+{
+ /* Clean the station pool and create 1 block in it */
+ CleanPool(&_Station_pool);
+ AddBlockToPool(&_Station_pool);
+
+ /* Clean the roadstop pool and create 1 block in it */
+ CleanPool(&_RoadStop_pool);
+ AddBlockToPool(&_RoadStop_pool);
+
+ _station_tick_ctr = 0;
+
+}
+
+
+void AfterLoadStations(void)
+{
+ Station *st;
+ uint i;
+ TileIndex tile;
+
+ /* Update the speclists of all stations to point to the currently loaded custom stations. */
+ FOR_ALL_STATIONS(st) {
+ for (i = 0; i < st->num_specs; i++) {
+ if (st->speclist[i].grfid == 0) continue;
+
+ st->speclist[i].spec = GetCustomStationSpecByGrf(st->speclist[i].grfid, st->speclist[i].localidx);
+ }
+ }
+
+ for (tile = 0; tile < MapSize(); tile++) {
+ if (GetTileType(tile) != MP_STATION) continue;
+ st = GetStationByTile(tile);
+ StationRect_BeforeAddTile(st, tile, RECT_MODE_FORCE);
+ }
+}
+
+
+const TileTypeProcs _tile_type_station_procs = {
+ DrawTile_Station, /* draw_tile_proc */
+ GetSlopeZ_Station, /* get_slope_z_proc */
+ ClearTile_Station, /* clear_tile_proc */
+ GetAcceptedCargo_Station, /* get_accepted_cargo_proc */
+ GetTileDesc_Station, /* get_tile_desc_proc */
+ GetTileTrackStatus_Station, /* get_tile_track_status_proc */
+ ClickTile_Station, /* click_tile_proc */
+ AnimateTile_Station, /* animate_tile_proc */
+ TileLoop_Station, /* tile_loop_clear */
+ ChangeTileOwner_Station, /* change_tile_owner_clear */
+ NULL, /* get_produced_cargo_proc */
+ VehicleEnter_Station, /* vehicle_enter_tile_proc */
+ GetSlopeTileh_Station, /* get_slope_tileh_proc */
+};
+
+static const SaveLoad _roadstop_desc[] = {
+ SLE_VAR(RoadStop,xy, SLE_UINT32),
+ SLE_VAR(RoadStop,used, SLE_BOOL),
+ SLE_VAR(RoadStop,status, SLE_UINT8),
+ /* Index was saved in some versions, but this is not needed */
+ SLE_CONDNULL(4, 0, 8),
+ SLE_VAR(RoadStop,station, SLE_UINT16),
+ SLE_CONDNULL(1, 0, 25),
+
+ SLE_REF(RoadStop,next, REF_ROADSTOPS),
+ SLE_REF(RoadStop,prev, REF_ROADSTOPS),
+
+ SLE_CONDNULL(4, 0, 24),
+ SLE_CONDNULL(1, 25, 25),
+
+ SLE_END()
+};
+
+static const SaveLoad _station_desc[] = {
+ SLE_CONDVAR(Station, xy, SLE_FILE_U16 | SLE_VAR_U32, 0, 5),
+ SLE_CONDVAR(Station, xy, SLE_UINT32, 6, SL_MAX_VERSION),
+ SLE_CONDVAR(Station, bus_tile_obsolete, SLE_FILE_U16 | SLE_VAR_U32, 0, 5),
+ SLE_CONDVAR(Station, lorry_tile_obsolete, SLE_FILE_U16 | SLE_VAR_U32, 0, 5),
+ SLE_CONDVAR(Station, train_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5),
+ SLE_CONDVAR(Station, train_tile, SLE_UINT32, 6, SL_MAX_VERSION),
+ SLE_CONDVAR(Station, airport_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5),
+ SLE_CONDVAR(Station, airport_tile, SLE_UINT32, 6, SL_MAX_VERSION),
+ SLE_CONDVAR(Station, dock_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5),
+ SLE_CONDVAR(Station, dock_tile, SLE_UINT32, 6, SL_MAX_VERSION),
+ SLE_REF(Station, town, REF_TOWN),
+ SLE_VAR(Station, trainst_w, SLE_UINT8),
+ SLE_CONDVAR(Station, trainst_h, SLE_UINT8, 2, SL_MAX_VERSION),
+
+ // alpha_order was stored here in savegame format 0 - 3
+ SLE_CONDNULL(1, 0, 3),
+
+ SLE_VAR(Station, string_id, SLE_STRINGID),
+ SLE_VAR(Station, had_vehicle_of_type, SLE_UINT16),
+
+ SLE_VAR(Station, time_since_load, SLE_UINT8),
+ SLE_VAR(Station, time_since_unload, SLE_UINT8),
+ SLE_VAR(Station, delete_ctr, SLE_UINT8),
+ SLE_VAR(Station, owner, SLE_UINT8),
+ SLE_VAR(Station, facilities, SLE_UINT8),
+ SLE_VAR(Station, airport_type, SLE_UINT8),
+
+ // truck/bus_stop_status was stored here in savegame format 0 - 6
+ SLE_CONDVAR(Station, truck_stop_status_obsolete, SLE_UINT8, 0, 5),
+ SLE_CONDVAR(Station, bus_stop_status_obsolete, SLE_UINT8, 0, 5),
+
+ // blocked_months was stored here in savegame format 0 - 4.0
+ SLE_CONDVAR(Station, blocked_months_obsolete, SLE_UINT8, 0, 4),
+
+ SLE_CONDVAR(Station, airport_flags, SLE_VAR_U32 | SLE_FILE_U16, 0, 2),
+ SLE_CONDVAR(Station, airport_flags, SLE_UINT32, 3, SL_MAX_VERSION),
+
+ SLE_CONDNULL(2, 0, 25), /* Ex last-vehicle */
+ SLE_CONDVAR(Station, last_vehicle_type, SLE_UINT8, 26, SL_MAX_VERSION),
+
+ // Was custom station class and id
+ SLE_CONDNULL(2, 3, 25),
+ SLE_CONDVAR(Station, build_date, SLE_FILE_U16 | SLE_VAR_I32, 3, 30),
+ SLE_CONDVAR(Station, build_date, SLE_INT32, 31, SL_MAX_VERSION),
+
+ SLE_CONDREF(Station, bus_stops, REF_ROADSTOPS, 6, SL_MAX_VERSION),
+ SLE_CONDREF(Station, truck_stops, REF_ROADSTOPS, 6, SL_MAX_VERSION),
+
+ /* Used by newstations for graphic variations */
+ SLE_CONDVAR(Station, random_bits, SLE_UINT16, 27, SL_MAX_VERSION),
+ SLE_CONDVAR(Station, waiting_triggers, SLE_UINT8, 27, SL_MAX_VERSION),
+ SLE_CONDVAR(Station, num_specs, SLE_UINT8, 27, SL_MAX_VERSION),
+
+ // reserve extra space in savegame here. (currently 32 bytes)
+ SLE_CONDNULL(32, 2, SL_MAX_VERSION),
+
+ SLE_END()
+};
+
+static const SaveLoad _goods_desc[] = {
+ SLE_VAR(GoodsEntry, waiting_acceptance, SLE_UINT16),
+ SLE_VAR(GoodsEntry, days_since_pickup, SLE_UINT8),
+ SLE_VAR(GoodsEntry, rating, SLE_UINT8),
+ SLE_CONDVAR(GoodsEntry, enroute_from, SLE_FILE_U8 | SLE_VAR_U16, 0, 6),
+ SLE_CONDVAR(GoodsEntry, enroute_from, SLE_UINT16, 7, SL_MAX_VERSION),
+ SLE_VAR(GoodsEntry, enroute_time, SLE_UINT8),
+ SLE_VAR(GoodsEntry, last_speed, SLE_UINT8),
+ SLE_VAR(GoodsEntry, last_age, SLE_UINT8),
+ SLE_CONDVAR(GoodsEntry, feeder_profit, SLE_INT32, 14, SL_MAX_VERSION),
+
+ SLE_END()
+};
+
+static const SaveLoad _station_speclist_desc[] = {
+ SLE_CONDVAR(StationSpecList, grfid, SLE_UINT32, 27, SL_MAX_VERSION),
+ SLE_CONDVAR(StationSpecList, localidx, SLE_UINT8, 27, SL_MAX_VERSION),
+
+ SLE_END()
+};
+
+
+static void SaveLoad_STNS(Station *st)
+{
+ uint i;
+
+ SlObject(st, _station_desc);
+ for (i = 0; i != NUM_CARGO; i++) {
+ SlObject(&st->goods[i], _goods_desc);
+
+ /* In older versions, enroute_from had 0xFF as INVALID_STATION, is now 0xFFFF */
+ if (CheckSavegameVersion(7) && st->goods[i].enroute_from == 0xFF) {
+ st->goods[i].enroute_from = INVALID_STATION;
+ }
+ }
+
+ if (st->num_specs != 0) {
+ /* Allocate speclist memory when loading a game */
+ if (st->speclist == NULL) st->speclist = calloc(st->num_specs, sizeof(*st->speclist));
+ for (i = 0; i < st->num_specs; i++) SlObject(&st->speclist[i], _station_speclist_desc);
+ }
+}
+
+static void Save_STNS(void)
+{
+ Station *st;
+ // Write the stations
+ FOR_ALL_STATIONS(st) {
+ SlSetArrayIndex(st->index);
+ SlAutolength((AutolengthProc*)SaveLoad_STNS, st);
+ }
+}
+
+static void Load_STNS(void)
+{
+ int index;
+ while ((index = SlIterateArray()) != -1) {
+ Station *st;
+
+ if (!AddBlockIfNeeded(&_Station_pool, index))
+ error("Stations: failed loading savegame: too many stations");
+
+ st = GetStation(index);
+ SaveLoad_STNS(st);
+
+ // this means it's an oldstyle savegame without support for nonuniform stations
+ if (st->train_tile != 0 && st->trainst_h == 0) {
+ uint w = GB(st->trainst_w, 4, 4);
+ uint h = GB(st->trainst_w, 0, 4);
+
+ if (GetRailStationAxis(st->train_tile) == AXIS_Y) uintswap(w, h);
+ st->trainst_w = w;
+ st->trainst_h = h;
+ }
+
+ /* In older versions, we had just 1 tile for a bus/lorry, now we have more..
+ * convert, if needed */
+ if (CheckSavegameVersion(6)) {
+ if (st->bus_tile_obsolete != 0) {
+ st->bus_stops = AllocateRoadStop();
+ if (st->bus_stops == NULL)
+ error("Station: too many busstations in savegame");
+
+ InitializeRoadStop(st->bus_stops, NULL, st->bus_tile_obsolete, st->index);
+ }
+ if (st->lorry_tile_obsolete != 0) {
+ st->truck_stops = AllocateRoadStop();
+ if (st->truck_stops == NULL)
+ error("Station: too many truckstations in savegame");
+
+ InitializeRoadStop(st->truck_stops, NULL, st->lorry_tile_obsolete, st->index);
+ }
+ }
+ }
+
+ /* This is to ensure all pointers are within the limits of _stations_size */
+ if (_station_tick_ctr > GetMaxStationIndex()) _station_tick_ctr = 0;
+}
+
+static void Save_ROADSTOP(void)
+{
+ RoadStop *rs;
+
+ FOR_ALL_ROADSTOPS(rs) {
+ SlSetArrayIndex(rs->index);
+ SlObject(rs, _roadstop_desc);
+ }
+}
+
+static void Load_ROADSTOP(void)
+{
+ int index;
+ Vehicle *v;
+
+ while ((index = SlIterateArray()) != -1) {
+ RoadStop *rs;
+
+ if (!AddBlockIfNeeded(&_RoadStop_pool, index))
+ error("RoadStops: failed loading savegame: too many RoadStops");
+
+ rs = GetRoadStop(index);
+ SlObject(rs, _roadstop_desc);
+ }
+
+ FOR_ALL_VEHICLES(v) {
+ if (v->type == VEH_Road && v->u.road.slot != NULL) v->u.road.slot->num_vehicles++;
+ }
+}
+
+const ChunkHandler _station_chunk_handlers[] = {
+ { 'STNS', Save_STNS, Load_STNS, CH_ARRAY },
+ { 'ROAD', Save_ROADSTOP, Load_ROADSTOP, CH_ARRAY | CH_LAST},
+};
+
+
+static inline bool PtInRectXY(Rect *r, int x, int y)
+{
+ return (r->left <= x && x <= r->right && r->top <= y && y <= r->bottom);
+}
+
+static void StationRect_Init(Station *st)
+{
+ Rect *r = &st->rect;
+ r->left = r->top = r->right = r->bottom = 0;
+}
+
+static bool StationRect_IsEmpty(Station *st)
+{
+ return (st->rect.left == 0 || st->rect.left > st->rect.right || st->rect.top > st->rect.bottom);
+}
+
+static bool StationRect_BeforeAddTile(Station *st, TileIndex tile, StationRectMode mode)
+{
+ Rect *r = &st->rect;
+ int x = TileX(tile);
+ int y = TileY(tile);
+ if (StationRect_IsEmpty(st)) {
+ // we are adding the first station tile
+ r->left = r->right = x;
+ r->top = r->bottom = y;
+ } else if (!PtInRectXY(r, x, y)) {
+ // current rect is not empty and new point is outside this rect
+ // make new spread-out rectangle
+ Rect new_rect = {min(x, r->left), min(y, r->top), max(x, r->right), max(y, r->bottom)};
+ // check new rect dimensions against preset max
+ int w = new_rect.right - new_rect.left + 1;
+ int h = new_rect.bottom - new_rect.top + 1;
+ if (mode != RECT_MODE_FORCE && (w > _patches.station_spread || h > _patches.station_spread)) {
+ assert(mode != RECT_MODE_TRY);
+ _error_message = STR_306C_STATION_TOO_SPREAD_OUT;
+ return false;
+ }
+ // spread-out ok, return true
+ if (mode != RECT_MODE_TEST) {
+ // we should update the station rect
+ *r = new_rect;
+ }
+ } else {
+ ; // new point is inside the rect, we don't need to do anything
+ }
+ return true;
+}
+
+static bool StationRect_BeforeAddRect(Station *st, TileIndex tile, int w, int h, StationRectMode mode)
+{
+ return StationRect_BeforeAddTile(st, tile, mode) && StationRect_BeforeAddTile(st, TILE_ADDXY(tile, w - 1, h - 1), mode);
+}
+
+static inline bool ScanRectForStationTiles(StationID st_id, int left, int top, int right, int bottom)
+{
+ TileIndex top_left = TileXY(left, top);
+ int width = right - left + 1;
+ int height = bottom - top + 1;
+ BEGIN_TILE_LOOP(tile, width, height, top_left)
+ if (IsTileType(tile, MP_STATION) && GetStationIndex(tile) == st_id) return true;
+ END_TILE_LOOP(tile, width, height, top_left);
+ return false;
+}
+
+static bool StationRect_AfterRemoveTile(Station *st, TileIndex tile)
+{
+ Rect *r = &st->rect;
+ int x = TileX(tile);
+ int y = TileY(tile);
+ bool reduce_x, reduce_y;
+
+ // look if removed tile was on the bounding rect edge
+ // and try to reduce the rect by this edge
+ // do it until we have empty rect or nothing to do
+ for (;;) {
+ // check if removed tile is on rect edge
+ bool left_edge = (x == r->left);
+ bool right_edge = (x == r->right);
+ bool top_edge = (y == r->top);
+ bool bottom_edge = (y == r->bottom);
+ // can we reduce the rect in either direction?
+ reduce_x = ((left_edge || right_edge) && !ScanRectForStationTiles(st->index, x, r->top, x, r->bottom));
+ reduce_y = ((top_edge || bottom_edge) && !ScanRectForStationTiles(st->index, r->left, y, r->right, y));
+ if (!(reduce_x || reduce_y)) break; // nothing to do (can't reduce)
+ if (reduce_x) {
+ // reduce horizontally
+ if (left_edge) {
+ // move left edge right
+ r->left = x = x + 1;
+ } else {
+ // move right edge left
+ r->right = x = x - 1;
+ }
+ }
+ if (reduce_y) {
+ // reduce vertically
+ if (top_edge) {
+ // move top edge down
+ r->top = y = y + 1;
+ } else {
+ // move bottom edge up
+ r->bottom = y = y - 1;
+ }
+ }
+ if (r->left > r->right || r->top > r->bottom) {
+ // can't continue, if the remaining rectangle is empty
+ StationRect_Init(st);
+ return true; // empty remaining rect
+ }
+ }
+ return false; // non-empty remaining rect
+}
+
+static bool StationRect_AfterRemoveRect(Station *st, TileIndex tile, int w, int h)
+{
+ bool empty;
+ assert(PtInRectXY(&st->rect, TileX(tile), TileY(tile)));
+ assert(PtInRectXY(&st->rect, TileX(tile) + w - 1, TileY(tile) + h - 1));
+ empty = StationRect_AfterRemoveTile(st, tile);
+ if (w != 1 || h != 1) empty = empty || StationRect_AfterRemoveTile(st, TILE_ADDXY(tile, w - 1, h - 1));
+ return empty;
+}