tron@2186: /* $Id$ */ tron@2186: belugas@6443: /** @file station_cmd.cpp */ celestar@2213: truelight@0: #include "stdafx.h" Darkvater@1891: #include "openttd.h" tron@6413: #include "aircraft.h" celestar@5573: #include "bridge_map.h" tron@6460: #include "cmd_helper.h" tron@1299: #include "debug.h" rubidium@8615: #include "tile_cmd.h" maedhros@6949: #include "landscape.h" tron@3315: #include "station_map.h" truelight@0: #include "station.h" rubidium@8721: #include "viewport_func.h" rubidium@8612: #include "command_func.h" truelight@0: #include "town.h" truelight@0: #include "news.h" truelight@0: #include "saveload.h" truelight@0: #include "airport.h" darkvater@405: #include "sprite.h" truelight@1313: #include "depot.h" bjarni@2676: #include "train.h" maedhros@7353: #include "roadveh.h" tron@3111: #include "water_map.h" belugas@3515: #include "industry_map.h" peter1138@3754: #include "newgrf_callbacks.h" peter1138@3754: #include "newgrf_station.h" KUDr@3900: #include "yapf/yapf.h" KUDr@6095: #include "misc/autoptr.hpp" rubidium@8598: #include "road_type.h" rubidium@8598: #include "road_internal.h" /* For drawing catenary/checking road removal */ peter1138@6417: #include "cargotype.h" rubidium@8707: #include "variables.h" rubidium@8078: #include "autoslope.h" belugas@8345: #include "transparency.h" rubidium@8444: #include "water.h" smatz@8512: #include "station_gui.h" rubidium@8610: #include "strings_func.h" rubidium@8627: #include "functions.h" rubidium@8627: #include "window_func.h" rubidium@8636: #include "date_func.h" rubidium@8640: #include "vehicle_func.h" rubidium@8710: #include "string_func.h" smatz@8734: #include "signal_func.h" smatz@8734: rubidium@8760: #include "table/sprites.h" rubidium@8760: #include "table/strings.h" KUDr@5917: rubidium@7872: DEFINE_OLD_POOL_GENERIC(Station, Station) rubidium@7872: DEFINE_OLD_POOL_GENERIC(RoadStop, RoadStop) truelight@1272: truelight@1272: rubidium@7816: /** rubidium@7816: * Check whether the given tile is a hangar. rubidium@7816: * @param t the tile to of whether it is a hangar. rubidium@7816: * @pre IsTileType(t, MP_STATION) rubidium@7816: * @return true if and only if the tile is a hangar. rubidium@7816: */ rubidium@7816: bool IsHangar(TileIndex t) rubidium@7816: { rubidium@7816: assert(IsTileType(t, MP_STATION)); rubidium@7816: rubidium@7816: const Station *st = GetStationByTile(t); rubidium@7816: const AirportFTAClass *apc = st->Airport(); rubidium@7816: rubidium@7816: for (uint i = 0; i < apc->nof_depots; i++) { rubidium@7816: if (st->airport_tile + ToTileIndexDiff(apc->airport_depots[i]) == t) return true; rubidium@7816: } rubidium@7816: rubidium@7816: return false; rubidium@7816: } rubidium@7816: celestar@6087: RoadStop* GetRoadStopByTile(TileIndex tile, RoadStop::Type type) celestar@1217: { tron@3315: const Station* st = GetStationByTile(tile); tron@6395: tron@6395: for (RoadStop *rs = st->GetPrimaryRoadStop(type);; rs = rs->next) { tron@6395: if (rs->xy == tile) return rs; celestar@1217: assert(rs->next != NULL); tron@2639: } celestar@1217: } celestar@1217: tron@6164: tron@6164: static uint GetNumRoadStopsInStation(const Station* st, RoadStop::Type type) celestar@1217: { tron@2549: uint num = 0; celestar@1217: celestar@1217: assert(st != NULL); tron@6395: for (const RoadStop *rs = st->GetPrimaryRoadStop(type); rs != NULL; rs = rs->next) { tron@6395: num++; tron@6395: } celestar@1217: celestar@1217: return num; celestar@1217: } celestar@1217: celestar@1217: belugas@8291: /** Calculate the radius of the station. Basicly it is the biggest belugas@8291: * radius that is available within the station belugas@8291: * @param st Station to query belugas@8291: * @return the so calculated radius belugas@8291: */ tron@2643: static uint FindCatchmentRadius(const Station* st) truelight@703: { tron@6367: uint ret = CA_NONE; tron@6367: tron@6367: if (st->bus_stops != NULL) ret = max(ret, CA_BUS); tron@6367: if (st->truck_stops != NULL) ret = max(ret, CA_TRUCK); tron@6367: if (st->train_tile != 0) ret = max(ret, CA_TRAIN); tron@6367: if (st->dock_tile != 0) ret = max(ret, CA_DOCK); tron@6367: if (st->airport_tile) ret = max(ret, st->Airport()->catchment); truelight@703: truelight@703: return ret; truelight@703: } truelight@703: truelight@0: #define CHECK_STATIONS_ERR ((Station*)-1) truelight@0: tron@2498: static Station* GetStationAround(TileIndex tile, int w, int h, StationID closest_station) truelight@0: { belugas@6916: /* check around to see if there's any stations there */ tron@1981: BEGIN_TILE_LOOP(tile_cur, w + 2, h + 2, tile - TileDiffXY(1, 1)) tron@1035: if (IsTileType(tile_cur, MP_STATION)) { tron@3315: StationID t = GetStationIndex(tile_cur); darkvater@28: tron@2498: if (closest_station == INVALID_STATION) { truelight@0: closest_station = t; truelight@0: } else if (closest_station != t) { truelight@0: _error_message = STR_3006_ADJOINS_MORE_THAN_ONE_EXISTING; truelight@0: return CHECK_STATIONS_ERR; truelight@0: } truelight@0: } tron@1981: END_TILE_LOOP(tile_cur, w + 2, h + 2, tile - TileDiffXY(1, 1)) tron@2498: return (closest_station == INVALID_STATION) ? NULL : GetStation(closest_station); truelight@0: } truelight@0: rubidium@7815: /** rubidium@7815: * Function to check whether the given tile matches some criterion. rubidium@7815: * @param tile the tile to check rubidium@7815: * @return true if it matches, false otherwise rubidium@7815: */ rubidium@7815: typedef bool (*CMSAMatcher)(TileIndex tile); truelight@0: belugas@3515: /** belugas@3515: * Counts the numbers of tiles matching a specific type in the area around belugas@3515: * @param tile the center tile of the 'count area' belugas@3515: * @param type the type of tile searched for belugas@3515: * @param industry when type == MP_INDUSTRY, the type of the industry, belugas@3515: * in all other cases this parameter is ignored belugas@6527: * @return the result the noumber of matching tiles around belugas@3515: */ rubidium@7815: static int CountMapSquareAround(TileIndex tile, CMSAMatcher cmp) tron@1977: { truelight@0: int num = 0; truelight@0: tron@6395: for (int dx = -3; dx <= 3; dx++) { tron@6395: for (int dy = -3; dy <= 3; dy++) { rubidium@7815: if (cmp(TILE_MASK(tile + TileDiffXY(dx, dy)))) num++; belugas@3515: } truelight@0: } truelight@0: truelight@0: return num; truelight@0: } truelight@0: rubidium@7815: /** rubidium@7815: * Check whether the tile is a mine. rubidium@7815: * @param tile the tile to investigate. rubidium@7815: * @return true if and only if the tile is a mine rubidium@7815: */ rubidium@7815: static bool CMSAMine(TileIndex tile) rubidium@7815: { rubidium@7815: /* No industry */ rubidium@7815: if (!IsTileType(tile, MP_INDUSTRY)) return false; rubidium@7815: glx@8141: const Industry *ind = GetIndustryByTile(tile); rubidium@7815: rubidium@7815: /* No extractive industry */ glx@8141: if ((GetIndustrySpec(ind->type)->life_type & INDUSTRYLIFE_EXTRACTIVE) == 0) return false; glx@8141: glx@8141: for (uint i = 0; i < lengthof(ind->produced_cargo); i++) { rubidium@7815: /* The industry extracts something non-liquid, i.e. no oil or plastic, so it is a mine */ glx@8141: if (ind->produced_cargo[i] != CT_INVALID && (GetCargo(ind->produced_cargo[i])->classes & CC_LIQUID) == 0) return true; rubidium@7815: } rubidium@7815: rubidium@7815: return false; rubidium@7815: } rubidium@7815: rubidium@7815: /** rubidium@7815: * Check whether the tile is water. rubidium@7815: * @param tile the tile to investigate. rubidium@7815: * @return true if and only if the tile is a mine rubidium@7815: */ rubidium@7815: static bool CMSAWater(TileIndex tile) rubidium@7815: { rubidium@7815: return IsTileType(tile, MP_WATER) && IsWater(tile); rubidium@7815: } rubidium@7815: rubidium@7815: /** rubidium@7815: * Check whether the tile is a tree. rubidium@7815: * @param tile the tile to investigate. rubidium@7815: * @return true if and only if the tile is a mine rubidium@7815: */ rubidium@7815: static bool CMSATree(TileIndex tile) rubidium@7815: { rubidium@7815: return IsTileType(tile, MP_TREES); rubidium@7815: } rubidium@7815: rubidium@7815: /** rubidium@7815: * Check whether the tile is a forest. rubidium@7815: * @param tile the tile to investigate. rubidium@7815: * @return true if and only if the tile is a mine rubidium@7815: */ rubidium@7815: static bool CMSAForest(TileIndex tile) rubidium@7815: { rubidium@7815: /* No industry */ rubidium@7815: if (!IsTileType(tile, MP_INDUSTRY)) return false; rubidium@7815: glx@8141: const Industry *ind = GetIndustryByTile(tile); rubidium@7815: rubidium@7815: /* No extractive industry */ glx@8141: if ((GetIndustrySpec(ind->type)->life_type & INDUSTRYLIFE_ORGANIC) == 0) return false; glx@8141: glx@8141: for (uint i = 0; i < lengthof(ind->produced_cargo); i++) { rubidium@7815: /* The industry produces wood. */ glx@8141: if (ind->produced_cargo[i] != CT_INVALID && GetCargo(ind->produced_cargo[i])->label == 'WOOD') return true; rubidium@7815: } rubidium@7815: rubidium@7815: return false; rubidium@7815: } rubidium@7815: truelight@0: #define M(x) ((x) - STR_SV_STNAME) truelight@0: glx@8310: enum StationNaming { belugas@8309: STATIONNAMING_RAIL = 0, belugas@8309: STATIONNAMING_ROAD = 0, belugas@8309: STATIONNAMING_AIRPORT, belugas@8309: STATIONNAMING_OILRIG, belugas@8309: STATIONNAMING_DOCK, belugas@8309: STATIONNAMING_BUOY, belugas@8309: STATIONNAMING_HELIPORT, glx@8310: }; belugas@8309: tron@1977: static bool GenerateStationName(Station *st, TileIndex tile, int flag) truelight@0: { truelight@0: static const uint32 _gen_station_name_bits[] = { pasky@1454: 0, /* 0 */ pasky@1454: 1 << M(STR_SV_STNAME_AIRPORT), /* 1 */ pasky@1454: 1 << M(STR_SV_STNAME_OILFIELD), /* 2 */ pasky@1454: 1 << M(STR_SV_STNAME_DOCKS), /* 3 */ pasky@1454: 0x1FF << M(STR_SV_STNAME_BUOY_1), /* 4 */ pasky@1454: 1 << M(STR_SV_STNAME_HELIPORT), /* 5 */ truelight@0: }; truelight@0: truelight@0: Town *t = st->town; truelight@0: uint32 free_names = (uint32)-1; truelight@0: int found; truelight@0: unsigned long tmp; truelight@0: truelight@0: { truelight@0: Station *s; truelight@0: truelight@0: FOR_ALL_STATIONS(s) { rubidium@6987: if (s != st && s->town == t) { truelight@0: uint str = M(s->string_id); truelight@0: if (str <= 0x20) { truelight@0: if (str == M(STR_SV_STNAME_FOREST)) truelight@0: str = M(STR_SV_STNAME_WOODS); skidd13@8425: ClrBit(free_names, str); truelight@0: } truelight@0: } truelight@193: } truelight@0: } truelight@193: truelight@0: /* check default names */ truelight@0: tmp = free_names & _gen_station_name_bits[flag]; truelight@0: if (tmp != 0) { truelight@0: found = FindFirstBit(tmp); truelight@0: goto done; truelight@0: } truelight@0: truelight@0: /* check mine? */ skidd13@8424: if (HasBit(free_names, M(STR_SV_STNAME_MINES))) { rubidium@7815: if (CountMapSquareAround(tile, CMSAMine) >= 2) { pasky@1454: found = M(STR_SV_STNAME_MINES); pasky@1454: goto done; pasky@1454: } truelight@0: } truelight@0: truelight@0: /* check close enough to town to get central as name? */ rubidium@6987: if (DistanceMax(tile, t->xy) < 8) { truelight@0: found = M(STR_SV_STNAME); skidd13@8424: if (HasBit(free_names, M(STR_SV_STNAME))) goto done; truelight@0: truelight@0: found = M(STR_SV_STNAME_CENTRAL); skidd13@8424: if (HasBit(free_names, M(STR_SV_STNAME_CENTRAL))) goto done; truelight@0: } truelight@0: truelight@0: /* Check lakeside */ skidd13@8424: if (HasBit(free_names, M(STR_SV_STNAME_LAKESIDE)) && tron@1472: DistanceFromEdge(tile) < 20 && rubidium@7815: CountMapSquareAround(tile, CMSAWater) >= 5) { pasky@1454: found = M(STR_SV_STNAME_LAKESIDE); pasky@1454: goto done; pasky@1454: } truelight@0: truelight@0: /* Check woods */ skidd13@8424: if (HasBit(free_names, M(STR_SV_STNAME_WOODS)) && ( rubidium@7815: CountMapSquareAround(tile, CMSATree) >= 8 || rubidium@7815: CountMapSquareAround(tile, CMSAForest) >= 2) tron@1472: ) { belugas@6683: found = _opt.landscape == LT_TROPIC ? tron@1472: M(STR_SV_STNAME_FOREST) : M(STR_SV_STNAME_WOODS); pasky@1454: goto done; truelight@0: } truelight@0: truelight@0: /* check elevation compared to town */ tron@6395: { tron@6395: uint z = GetTileZ(tile); tron@6395: uint z2 = GetTileZ(t->xy); tron@6395: if (z < z2) { tron@6395: found = M(STR_SV_STNAME_VALLEY); skidd13@8424: if (HasBit(free_names, M(STR_SV_STNAME_VALLEY))) goto done; tron@6395: } else if (z > z2) { tron@6395: found = M(STR_SV_STNAME_HEIGHTS); skidd13@8424: if (HasBit(free_names, M(STR_SV_STNAME_HEIGHTS))) goto done; tron@6395: } truelight@0: } truelight@0: truelight@0: /* check direction compared to town */ truelight@0: { truelight@0: static const int8 _direction_and_table[] = { rubidium@6987: ~( (1 << M(STR_SV_STNAME_WEST)) | (1 << M(STR_SV_STNAME_EAST)) | (1 << M(STR_SV_STNAME_NORTH)) ), rubidium@6987: ~( (1 << M(STR_SV_STNAME_SOUTH)) | (1 << M(STR_SV_STNAME_WEST)) | (1 << M(STR_SV_STNAME_NORTH)) ), rubidium@6987: ~( (1 << M(STR_SV_STNAME_SOUTH)) | (1 << M(STR_SV_STNAME_EAST)) | (1 << M(STR_SV_STNAME_NORTH)) ), rubidium@6987: ~( (1 << M(STR_SV_STNAME_SOUTH)) | (1 << M(STR_SV_STNAME_WEST)) | (1 << M(STR_SV_STNAME_EAST)) ), truelight@0: }; truelight@193: truelight@193: free_names &= _direction_and_table[ tron@926: (TileX(tile) < TileX(t->xy)) + tron@926: (TileY(tile) < TileY(t->xy)) * 2]; truelight@0: } truelight@0: rubidium@6987: 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)); rubidium@7551: found = (tmp == 0) ? M(STR_SV_STNAME_FALLBACK) : FindFirstBit(tmp); truelight@0: truelight@0: done: truelight@0: st->string_id = found + STR_SV_STNAME; truelight@0: return true; truelight@0: } truelight@0: #undef M truelight@0: tron@6378: static Station* GetClosestStationFromTile(TileIndex tile) truelight@0: { tron@6378: uint threshold = 8; tron@1424: Station* best_station = NULL; tron@1424: Station* st; truelight@0: truelight@0: FOR_ALL_STATIONS(st) { tron@6378: if (st->facilities == 0 && st->owner == _current_player) { tron@1424: uint cur_dist = DistanceManhattan(tile, st->xy); tron@1424: tron@1424: if (cur_dist < threshold) { tron@1424: threshold = cur_dist; tron@1424: best_station = st; tron@1424: } truelight@0: } truelight@0: } truelight@0: truelight@0: return best_station; truelight@0: } truelight@0: belugas@8291: /** Update the virtual coords needed to draw the station sign. belugas@8291: * @param st Station to update for. belugas@8291: */ truelight@0: static void UpdateStationVirtCoord(Station *st) truelight@0: { celestar@3422: Point pt = RemapCoords2(TileX(st->xy) * TILE_SIZE, TileY(st->xy) * TILE_SIZE); celestar@1217: truelight@0: pt.y -= 32; celestar@1217: if (st->facilities & FACIL_AIRPORT && st->airport_type == AT_OILRIG) pt.y -= 16; truelight@0: tron@534: SetDParam(0, st->index); tron@534: SetDParam(1, st->facilities); truelight@0: UpdateViewportSignPos(&st->sign, pt.x, pt.y, STR_305C_0); truelight@0: } truelight@0: belugas@8291: /** Update the virtual coords needed to draw the station sign for all stations. */ rubidium@6573: void UpdateAllStationVirtCoord() truelight@0: { tron@2639: Station* st; tron@2639: truelight@0: FOR_ALL_STATIONS(st) { truelight@4346: UpdateStationVirtCoord(st); truelight@0: } truelight@0: } truelight@0: rubidium@8041: /** rubidium@8041: * Update the station virt coords while making the modified parts dirty. rubidium@8041: * rubidium@8041: * This function updates the virt coords and mark the modified parts as dirty rubidium@8041: * rubidium@8041: * @param st The station to update the virt coords rubidium@8041: * @ingroup dirty rubidium@8041: */ truelight@0: static void UpdateStationVirtCoordDirty(Station *st) truelight@0: { KUDr@5916: st->MarkDirty(); truelight@0: UpdateStationVirtCoord(st); KUDr@5916: st->MarkDirty(); truelight@0: } truelight@0: belugas@8291: /** Get a mask of the cargo types that the station accepts. belugas@8291: * @param st Station to query belugas@8291: * @return the expected mask belugas@8291: */ tron@1424: static uint GetAcceptanceMask(const Station *st) truelight@0: { truelight@0: uint mask = 0; tron@6395: peter1138@6676: for (CargoID i = 0; i < NUM_CARGO; i++) { skidd13@8424: if (HasBit(st->goods[i].acceptance_pickup, GoodsEntry::ACCEPTANCE)) mask |= 1 << i; truelight@0: } truelight@0: return mask; truelight@0: } truelight@0: belugas@8291: /** Items contains the two cargo names that are to be accepted or rejected. belugas@8291: * msg is the string id of the message to display. belugas@8291: */ peter1138@5941: static void ShowRejectOrAcceptNews(const Station *st, uint num_items, CargoID *cargo, StringID msg) truelight@0: { peter1138@5941: for (uint i = 0; i < num_items; i++) { peter1138@6417: SetDParam(i + 1, GetCargo(cargo[i])->name); truelight@0: } peter1138@5941: peter1138@5941: SetDParam(0, st->index); rubidium@6987: AddNewsItem(msg, NEWS_FLAGS(NM_SMALL, NF_VIEWPORT | NF_TILE, NT_ACCEPTANCE, 0), st->xy, 0); truelight@0: } truelight@0: rubidium@8387: /** rubidium@8387: * Get a list of the cargo types being produced around the tile (in a rectangle). rubidium@8387: * @param produced: Destination array of produced cargo rubidium@8387: * @param tile: Center of the search area rubidium@8387: * @param w: Width of the center rubidium@8387: * @param h: Height of the center rubidium@8387: * @param rad: Radius of the search area rubidium@8387: */ tron@1424: void GetProductionAroundTiles(AcceptedCargo produced, TileIndex tile, tron@1424: int w, int h, int rad) truelight@0: { tron@2133: memset(produced, 0, sizeof(AcceptedCargo)); truelight@0: tron@6395: int x = TileX(tile); tron@6395: int y = TileY(tile); truelight@0: belugas@8291: /* expand the region by rad tiles on each side belugas@8291: * while making sure that we remain inside the board. */ tron@6395: int x2 = min(x + w + rad, MapSizeX()); tron@6395: int x1 = max(x - rad, 0); tron@6395: tron@6395: int y2 = min(y + h + rad, MapSizeY()); tron@6395: int y1 = max(y - rad, 0); truelight@0: truelight@0: assert(x1 < x2); truelight@0: assert(y1 < y2); truelight@0: assert(w > 0); truelight@0: assert(h > 0); truelight@0: tron@6395: for (int yc = y1; yc != y2; yc++) { tron@6395: for (int xc = x1; xc != x2; xc++) { skidd13@8450: if (!(IsInsideBS(xc, x, w) && IsInsideBS(yc, y, h))) { tron@1981: TileIndex tile = TileXY(xc, yc); tron@1424: tron@6395: GetProducedCargoProc *gpc = _tile_type_procs[GetTileType(tile)]->get_produced_cargo_proc; truelight@0: if (gpc != NULL) { Darkvater@3344: CargoID cargos[2] = { CT_INVALID, CT_INVALID }; tron@1424: truelight@0: gpc(tile, cargos); tron@1424: if (cargos[0] != CT_INVALID) { truelight@0: produced[cargos[0]]++; tron@1424: if (cargos[1] != CT_INVALID) { truelight@0: produced[cargos[1]]++; truelight@0: } truelight@0: } truelight@0: } truelight@0: } tron@1424: } tron@1424: } truelight@0: } truelight@0: rubidium@8387: /** rubidium@8387: * Get a list of the cargo types that are accepted around the tile. rubidium@8387: * @param accepts: Destination array of accepted cargo rubidium@8387: * @param tile: Center of the search area rubidium@8387: * @param w: Width of the center rubidium@8387: * @param h: Height of the center rubidium@8387: * @param rad: Radius of the rectangular search area rubidium@8387: */ tron@1424: void GetAcceptanceAroundTiles(AcceptedCargo accepts, TileIndex tile, tron@1424: int w, int h, int rad) truelight@0: { tron@473: memset(accepts, 0, sizeof(AcceptedCargo)); truelight@0: tron@6395: int x = TileX(tile); tron@6395: int y = TileY(tile); truelight@0: belugas@8291: /* expand the region by rad tiles on each side belugas@8291: * while making sure that we remain inside the board. */ tron@6395: int x2 = min(x + w + rad, MapSizeX()); tron@6395: int y2 = min(y + h + rad, MapSizeY()); tron@6395: int x1 = max(x - rad, 0); tron@6395: int y1 = max(y - rad, 0); truelight@0: truelight@0: assert(x1 < x2); truelight@0: assert(y1 < y2); truelight@0: assert(w > 0); truelight@0: assert(h > 0); truelight@0: tron@6395: for (int yc = y1; yc != y2; yc++) { tron@6395: for (int xc = x1; xc != x2; xc++) { tron@1981: TileIndex tile = TileXY(xc, yc); tron@1424: tron@1035: if (!IsTileType(tile, MP_STATION)) { tron@473: AcceptedCargo ac; tron@473: tron@473: GetAcceptedCargo(tile, ac); tron@6395: for (uint i = 0; i < lengthof(ac); ++i) accepts[i] += ac[i]; truelight@0: } tron@1424: } tron@1424: } truelight@0: } truelight@0: rubidium@6574: struct ottd_Rectangle { tron@1423: uint min_x; tron@1423: uint min_y; tron@1423: uint max_x; tron@1423: uint max_y; rubidium@6574: }; truelight@2793: KUDr@5103: static inline void MergePoint(ottd_Rectangle* rect, TileIndex tile) tron@1423: { tron@1423: uint x = TileX(tile); tron@1423: uint y = TileY(tile); tron@1423: tron@1423: if (rect->min_x > x) rect->min_x = x; tron@1423: if (rect->min_y > y) rect->min_y = y; tron@1423: if (rect->max_x < x) rect->max_x = x; tron@1423: if (rect->max_y < y) rect->max_y = y; tron@1423: } tron@1423: belugas@8291: /** Update the acceptance for a station. belugas@8291: * @param st Station to update belugas@8291: * @param show_msg controls whether to display a message that acceptance was changed. belugas@8291: */ truelight@0: static void UpdateStationAcceptance(Station *st, bool show_msg) truelight@0: { belugas@8291: /* Don't update acceptance for a buoy */ tron@6395: if (st->IsBuoy()) return; tron@6395: truelight@2793: ottd_Rectangle rect; darkvater@1507: rect.min_x = MapSizeX(); darkvater@1507: rect.min_y = MapSizeY(); tron@6395: rect.max_x = 0; tron@6395: rect.max_y = 0; truelight@0: truelight@0: /* old accepted goods types */ tron@6395: uint old_acc = GetAcceptanceMask(st); truelight@0: belugas@8291: /* Put all the tiles that span an area in the table. */ truelight@0: if (st->train_tile != 0) { tron@1423: MergePoint(&rect, st->train_tile); tron@1423: MergePoint(&rect, tron@1981: st->train_tile + TileDiffXY(st->trainst_w - 1, st->trainst_h - 1) tron@1423: ); truelight@0: } celestar@1217: truelight@0: if (st->airport_tile != 0) { tron@6358: const AirportFTAClass* afc = st->Airport(); tron@3876: tron@1423: MergePoint(&rect, st->airport_tile); tron@1423: MergePoint(&rect, tron@3876: st->airport_tile + TileDiffXY(afc->size_x - 1, afc->size_y - 1) tron@1423: ); celestar@1217: } celestar@1217: tron@1423: if (st->dock_tile != 0) MergePoint(&rect, st->dock_tile); tron@1423: tron@6395: for (const RoadStop *rs = st->bus_stops; rs != NULL; rs = rs->next) { tron@6395: MergePoint(&rect, rs->xy); celestar@1217: } truelight@0: tron@6395: for (const RoadStop *rs = st->truck_stops; rs != NULL; rs = rs->next) { tron@6395: MergePoint(&rect, rs->xy); truelight@0: } celestar@1217: belugas@8291: /* And retrieve the acceptance. */ tron@6395: AcceptedCargo accepts; tron@1423: if (rect.max_x >= rect.min_x) { tron@1423: GetAcceptanceAroundTiles( tron@1423: accepts, tron@1981: TileXY(rect.min_x, rect.min_y), tron@1423: rect.max_x - rect.min_x + 1, tron@1423: rect.max_y - rect.min_y + 1, tron@6395: _patches.modified_catchment ? FindCatchmentRadius(st) : 4 tron@1423: ); truelight@0: } else { truelight@0: memset(accepts, 0, sizeof(accepts)); truelight@0: } truelight@0: belugas@8291: /* Adjust in case our station only accepts fewer kinds of goods */ peter1138@6676: for (CargoID i = 0; i < NUM_CARGO; i++) { truelight@0: uint amt = min(accepts[i], 15); truelight@0: belugas@8291: /* Make sure the station can accept the goods type. */ peter1138@6655: bool is_passengers = IsCargoInClass(i, CC_PASSENGERS); peter1138@6655: if ((!is_passengers && !(st->facilities & (byte)~FACIL_BUS_STOP)) || peter1138@6655: (is_passengers && !(st->facilities & (byte)~FACIL_TRUCK_STOP))) truelight@0: amt = 0; truelight@0: rubidium@7970: SB(st->goods[i].acceptance_pickup, GoodsEntry::ACCEPTANCE, 1, amt >= 8); truelight@0: } truelight@0: belugas@8291: /* Only show a message in case the acceptance was actually changed. */ tron@6395: uint new_acc = GetAcceptanceMask(st); truelight@0: if (old_acc == new_acc) truelight@0: return; truelight@193: belugas@8291: /* show a message to report that the acceptance was changed? */ truelight@0: if (show_msg && st->owner == _local_player && st->facilities) { peter1138@5941: /* List of accept and reject strings for different number of peter1138@5941: * cargo types */ peter1138@5941: static const StringID accept_msg[] = { peter1138@5941: STR_3040_NOW_ACCEPTS, peter1138@5941: STR_3041_NOW_ACCEPTS_AND, peter1138@5941: }; peter1138@5941: static const StringID reject_msg[] = { peter1138@5941: STR_303E_NO_LONGER_ACCEPTS, peter1138@5941: STR_303F_NO_LONGER_ACCEPTS_OR, peter1138@5941: }; peter1138@5941: peter1138@5941: /* Array of accepted and rejected cargo types */ peter1138@5941: CargoID accepts[2] = { CT_INVALID, CT_INVALID }; peter1138@5941: CargoID rejects[2] = { CT_INVALID, CT_INVALID }; peter1138@5941: uint num_acc = 0; peter1138@5941: uint num_rej = 0; peter1138@5941: peter1138@5941: /* Test each cargo type to see if its acceptange has changed */ peter1138@5941: for (CargoID i = 0; i < NUM_CARGO; i++) { skidd13@8424: if (HasBit(new_acc, i)) { skidd13@8424: if (!HasBit(old_acc, i) && num_acc < lengthof(accepts)) { peter1138@5941: /* New cargo is accepted */ peter1138@5941: accepts[num_acc++] = i; peter1138@5941: } truelight@0: } else { skidd13@8424: if (HasBit(old_acc, i) && num_rej < lengthof(rejects)) { peter1138@5941: /* Old cargo is no longer accepted */ peter1138@5941: rejects[num_rej++] = i; peter1138@5941: } truelight@0: } peter1138@5941: } peter1138@5941: peter1138@5941: /* Show news message if there are any changes */ peter1138@5941: if (num_acc > 0) ShowRejectOrAcceptNews(st, num_acc, accepts, accept_msg[num_acc - 1]); peter1138@5941: if (num_rej > 0) ShowRejectOrAcceptNews(st, num_rej, rejects, reject_msg[num_rej - 1]); truelight@0: } truelight@0: belugas@8291: /* redraw the station view since acceptance changed */ smatz@8512: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_ACCEPTLIST); truelight@0: } truelight@0: KUDr@5098: static void UpdateStationSignCoord(Station *st) KUDr@5098: { tron@6395: const StationRect *r = &st->rect; KUDr@5927: belugas@8291: if (r->IsEmpty()) return; /* no tiles belong to this station */ belugas@8291: belugas@8291: /* clamp sign coord to be inside the station rect */ skidd13@8418: st->xy = TileXY(ClampU(TileX(st->xy), r->left, r->right), ClampU(TileY(st->xy), r->top, r->bottom)); KUDr@5098: UpdateStationVirtCoordDirty(st); KUDr@5098: } KUDr@5098: belugas@8291: /** This is called right after a station was deleted. belugas@8291: * It checks if the whole station is free of substations, and if so, the station will be belugas@8291: * deleted after a little while. belugas@8291: * @param st Station belugas@8291: */ belugas@8291: static void DeleteStationIfEmpty(Station *st) tron@2639: { truelight@0: if (st->facilities == 0) { truelight@0: st->delete_ctr = 0; celestar@3812: RebuildStationLists(); darkvater@28: InvalidateWindow(WC_STATION_LIST, st->owner); darkvater@27: } KUDr@5098: /* station remains but it probably lost some parts - station sign should stay in the station boundaries */ KUDr@5098: UpdateStationSignCoord(st); truelight@0: } truelight@0: rubidium@7439: static CommandCost ClearTile_Station(TileIndex tile, byte flags); darkvater@977: belugas@8291: /** Tries to clear the given area. belugas@8291: * @param tile TileIndex to start check belugas@8291: * @param w width of search area belugas@8291: * @param h height of search area belugas@8291: * @param flags operation to perform frosch@8925: * @param invalid_dirs prohibited directions (set of DiagDirections) belugas@8291: * @param station StationID to be queried and returned if available belugas@8291: * @param check_clear if clearing tile should be performed (in wich case, cost will be added) belugas@8291: * @return the cost in case of success, or an error code if it failed. belugas@8291: */ belugas@8291: CommandCost CheckFlatLandBelow(TileIndex tile, uint w, uint h, uint flags, uint invalid_dirs, StationID *station, bool check_clear = true) truelight@0: { rubidium@8726: CommandCost cost(EXPENSES_CONSTRUCTION); tron@1335: int allowed_z = -1; tron@6395: tron@6395: BEGIN_TILE_LOOP(tile_cur, w, h, tile) { celestar@5573: if (MayHaveBridgeAbove(tile_cur) && IsBridgeAbove(tile_cur)) { celestar@5573: return_cmd_error(STR_5007_MUST_DEMOLISH_BRIDGE_FIRST); celestar@5573: } celestar@5573: rubidium@7411: if (!EnsureNoVehicleOnGround(tile_cur)) return CMD_ERROR; truelight@0: tron@6395: uint z; tron@6395: Slope tileh = GetTileSlope(tile_cur, &z); truelight@0: celestar@2085: /* Prohibit building if rubidium@4549: * 1) The tile is "steep" (i.e. stretches two height levels) rubidium@4549: * -OR- rubidium@4549: * 2) The tile is non-flat if rubidium@4549: * a) the player building is an "old-school" AI rubidium@4549: * -OR- rubidium@4549: * b) the build_on_slopes switch is disabled rubidium@4549: */ tron@3636: if (IsSteepSlope(tileh) || tron@3636: ((_is_old_ai_player || !_patches.build_on_slopes) && tileh != SLOPE_FLAT)) { tron@3183: return_cmd_error(STR_0007_FLAT_LAND_REQUIRED); truelight@0: } truelight@0: tron@6395: int flat_z = z; tron@3636: if (tileh != SLOPE_FLAT) { frosch@8925: /* need to check so the entrance to the station is not pointing at a slope. frosch@8925: * This must be valid for all station tiles, as the user can remove single station tiles. */ frosch@8925: if ((HasBit(invalid_dirs, DIAGDIR_NE) && !(tileh & SLOPE_NE)) || frosch@8925: (HasBit(invalid_dirs, DIAGDIR_SE) && !(tileh & SLOPE_SE)) || frosch@8925: (HasBit(invalid_dirs, DIAGDIR_SW) && !(tileh & SLOPE_SW)) || frosch@8925: (HasBit(invalid_dirs, DIAGDIR_NW) && !(tileh & SLOPE_NW))) { tron@3183: return_cmd_error(STR_0007_FLAT_LAND_REQUIRED); truelight@0: } rubidium@7446: cost.AddCost(_price.terraform); tron@3645: flat_z += TILE_HEIGHT; truelight@0: } truelight@193: belugas@8291: /* get corresponding flat level and make sure that all parts of the station have the same level. */ truelight@0: if (allowed_z == -1) { belugas@8291: /* first tile */ truelight@0: allowed_z = flat_z; truelight@0: } else if (allowed_z != flat_z) { tron@3183: return_cmd_error(STR_0007_FLAT_LAND_REQUIRED); truelight@0: } truelight@0: belugas@8291: /* if station is set, then we have special handling to allow building on top of already existing stations. belugas@8291: * so station points to INVALID_STATION if we can build on any station. belugas@8291: * Or it points to a station if we're only allowed to build on exactly that station. */ tron@1035: if (station != NULL && IsTileType(tile_cur, MP_STATION)) { celestar@3334: if (!IsRailwayStation(tile_cur)) { tron@3183: return ClearTile_Station(tile_cur, DC_AUTO); // get error message truelight@0: } else { tron@3315: StationID st = GetStationIndex(tile_cur); tron@2498: if (*station == INVALID_STATION) { truelight@0: *station = st; tron@2498: } else if (*station != st) { tron@3183: return_cmd_error(STR_3006_ADJOINS_MORE_THAN_ONE_EXISTING); truelight@0: } truelight@0: } glx@7216: } else if (check_clear) { rubidium@7439: CommandCost ret = DoCommand(tile_cur, 0, 0, flags, CMD_LANDSCAPE_CLEAR); tron@3183: if (CmdFailed(ret)) return ret; rubidium@7446: cost.AddCost(ret); truelight@0: } tron@6395: } END_TILE_LOOP(tile_cur, w, h, tile) truelight@0: truelight@0: return cost; truelight@0: } truelight@0: tron@6395: static bool CanExpandRailroadStation(const Station* st, uint* fin, Axis axis) truelight@0: { tron@6395: uint curw = st->trainst_w; tron@6395: uint curh = st->trainst_h; tron@1977: TileIndex tile = fin[0]; truelight@0: uint w = fin[1]; truelight@0: uint h = fin[2]; truelight@0: truelight@0: if (_patches.nonuniform_stations) { belugas@8291: /* determine new size of train station region.. */ tron@926: int x = min(TileX(st->train_tile), TileX(tile)); tron@926: int y = min(TileY(st->train_tile), TileY(tile)); tron@926: curw = max(TileX(st->train_tile) + curw, TileX(tile) + w) - x; tron@926: curh = max(TileY(st->train_tile) + curh, TileY(tile) + h) - y; tron@1981: tile = TileXY(x, y); truelight@0: } else { smatz@8594: /* do not allow modifying non-uniform stations, smatz@8594: * the uniform-stations code wouldn't handle it well */ smatz@8594: BEGIN_TILE_LOOP(t, st->trainst_w, st->trainst_h, st->train_tile) smatz@8594: if (!st->TileBelongsToRailStation(t)) { // there may be adjoined station maedhros@8920: _error_message = STR_NONUNIFORM_STATIONS_DISALLOWED; smatz@8594: return false; smatz@8594: } smatz@8594: END_TILE_LOOP(t, st->trainst_w, st->trainst_h, st->train_tile) smatz@8594: belugas@8291: /* check so the orientation is the same */ celestar@3334: if (GetRailStationAxis(st->train_tile) != axis) { maedhros@8920: _error_message = STR_NONUNIFORM_STATIONS_DISALLOWED; Celestar@1189: return false; Celestar@1189: } truelight@0: belugas@8291: /* check if the new station adjoins the old station in either direction */ tron@1981: if (curw == w && st->train_tile == tile + TileDiffXY(0, h)) { belugas@8291: /* above */ truelight@0: curh += h; tron@1981: } else if (curw == w && st->train_tile == tile - TileDiffXY(0, curh)) { belugas@8291: /* below */ tron@1981: tile -= TileDiffXY(0, curh); truelight@0: curh += h; tron@1981: } else if (curh == h && st->train_tile == tile + TileDiffXY(w, 0)) { belugas@8291: /* to the left */ truelight@0: curw += w; tron@1981: } else if (curh == h && st->train_tile == tile - TileDiffXY(curw, 0)) { belugas@8291: /* to the right */ tron@1981: tile -= TileDiffXY(curw, 0); truelight@0: curw += w; Celestar@1189: } else { maedhros@8920: _error_message = STR_NONUNIFORM_STATIONS_DISALLOWED; truelight@0: return false; Celestar@1189: } truelight@0: } belugas@8291: /* make sure the final size is not too big. */ Celestar@1189: if (curw > _patches.station_spread || curh > _patches.station_spread) { Celestar@1189: _error_message = STR_306C_STATION_TOO_SPREAD_OUT; Celestar@1189: return false; Celestar@1189: } truelight@0: belugas@8291: /* now tile contains the new value for st->train_tile belugas@8291: * curw, curh contain the new value for width and height */ truelight@0: fin[0] = tile; truelight@0: fin[1] = curw; truelight@0: fin[2] = curh; truelight@0: return true; truelight@0: } truelight@0: tron@536: static inline byte *CreateSingle(byte *layout, int n) truelight@0: { truelight@0: int i = n; truelight@0: do *layout++ = 0; while (--i); rubidium@6987: layout[((n - 1) >> 1) - n] = 2; truelight@0: return layout; truelight@0: } truelight@0: tron@536: static inline byte *CreateMulti(byte *layout, int n, byte b) truelight@0: { truelight@0: int i = n; truelight@0: do *layout++ = b; while (--i); truelight@0: if (n > 4) { rubidium@6987: layout[0 - n] = 0; rubidium@6987: layout[n - 1 - n] = 0; truelight@0: } truelight@0: return layout; truelight@0: } truelight@0: belugas@3676: static void GetStationLayout(byte *layout, int numtracks, int plat_len, const StationSpec *statspec) truelight@0: { belugas@3676: if (statspec != NULL && statspec->lengths >= plat_len && belugas@3676: statspec->platforms[plat_len - 1] >= numtracks && belugas@3676: statspec->layouts[plat_len - 1][numtracks - 1]) { tron@449: /* Custom layout defined, follow it. */ belugas@3676: memcpy(layout, statspec->layouts[plat_len - 1][numtracks - 1], tron@1472: plat_len * numtracks); tron@449: return; tron@449: } tron@449: truelight@0: if (plat_len == 1) { truelight@0: CreateSingle(layout, numtracks); truelight@0: } else { tron@2639: if (numtracks & 1) layout = CreateSingle(layout, plat_len); tron@2639: numtracks >>= 1; truelight@0: truelight@0: while (--numtracks >= 0) { truelight@0: layout = CreateMulti(layout, plat_len, 4); truelight@0: layout = CreateMulti(layout, plat_len, 6); truelight@0: } truelight@0: } truelight@0: } truelight@0: Darkvater@1775: /** Build railroad station tron@3491: * @param tile_org starting position of station dragging/placement belugas@6979: * @param flags operation to perform Darkvater@1775: * @param p1 various bitstuffed elements tron@6460: * - p1 = (bit 0) - orientation (Axis) tron@2140: * - p1 = (bit 8-15) - number of tracks tron@2140: * - p1 = (bit 16-23) - platform length maedhros@7170: * - p1 = (bit 24) - allow stations directly adjacent to other stations. Darkvater@1775: * @param p2 various bitstuffed elements Darkvater@1775: * - p2 = (bit 0- 3) - railtype (p2 & 0xF) peter1138@3587: * - p2 = (bit 8-15) - custom station class peter1138@3587: * - p2 = (bit 16-23) - custom station id truelight@0: */ rubidium@7439: CommandCost CmdBuildRailroadStation(TileIndex tile_org, uint32 flags, uint32 p1, uint32 p2) truelight@0: { Darkvater@1775: int w_org, h_org; rubidium@7439: CommandCost ret; truelight@0: truelight@0: /* Does the authority allow this? */ Darkvater@1775: if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile_org)) return CMD_ERROR; rubidium@8732: if (!ValParamRailtype((RailType)(p2 & 0xF))) return CMD_ERROR; Darkvater@1775: Darkvater@1775: /* unpack parameters */ tron@6460: Axis axis = Extract(p1); tron@6395: uint numtracks = GB(p1, 8, 8); tron@6395: uint plat_len = GB(p1, 16, 8); tron@3157: if (axis == AXIS_X) { tron@3157: w_org = plat_len; tron@3157: h_org = numtracks; tron@3157: } else { Darkvater@1775: h_org = plat_len; Darkvater@1775: w_org = numtracks; truelight@0: } truelight@0: Darkvater@1781: if (h_org > _patches.station_spread || w_org > _patches.station_spread) return CMD_ERROR; Darkvater@1781: belugas@8291: /* these values are those that will be stored in train_tile and station_platforms */ tron@6395: uint finalvalues[3]; truelight@0: finalvalues[0] = tile_org; truelight@0: finalvalues[1] = w_org; truelight@0: finalvalues[2] = h_org; truelight@0: belugas@8291: /* Make sure the area below consists of clear tiles. (OR tiles belonging to a certain rail station) */ tron@6395: StationID est = INVALID_STATION; belugas@8291: /* If DC_EXEC is in flag, do not want to pass it to CheckFlatLandBelow, because of a nice bug belugas@8291: * for detail info, see: belugas@8291: * https://sourceforge.net/tracker/index.php?func=detail&aid=1029064&group_id=103924&atid=636365 */ tron@3183: ret = CheckFlatLandBelow(tile_org, w_org, h_org, flags & ~DC_EXEC, 5 << axis, _patches.nonuniform_stations ? &est : NULL); tron@3183: if (CmdFailed(ret)) return ret; rubidium@8726: CommandCost cost(EXPENSES_CONSTRUCTION, ret.GetCost() + (numtracks * _price.train_station_track + _price.train_station_length) * plat_len); truelight@0: maedhros@7170: Station *st = NULL; maedhros@7170: bool check_surrounding = true; maedhros@7170: maedhros@7170: if (_patches.adjacent_stations) { maedhros@7170: if (est != INVALID_STATION) { skidd13@8424: if (HasBit(p1, 24)) { maedhros@7170: /* You can't build an adjacent station over the top of one that maedhros@7170: * already exists. */ maedhros@7170: return_cmd_error(STR_MUST_REMOVE_RAILWAY_STATION_FIRST); maedhros@7170: } else { maedhros@7170: /* Extend the current station, and don't check whether it will maedhros@7170: * be near any other stations. */ maedhros@7170: st = GetStation(est); maedhros@7170: check_surrounding = false; maedhros@7170: } maedhros@7170: } else { maedhros@7170: /* There's no station here. Don't check the tiles surrounding this maedhros@7170: * one if the player wanted to build an adjacent station. */ skidd13@8424: if (HasBit(p1, 24)) check_surrounding = false; maedhros@7170: } maedhros@7170: } maedhros@7170: maedhros@7170: if (check_surrounding) { belugas@8291: /* Make sure there are no similar stations around us. */ maedhros@7170: st = GetStationAround(tile_org, w_org, h_org, est); maedhros@7170: if (st == CHECK_STATIONS_ERR) return CMD_ERROR; maedhros@7170: } truelight@0: belugas@8291: /* See if there is a deleted station close to us. */ tron@6378: if (st == NULL) st = GetClosestStationFromTile(tile_org); truelight@0: KUDr@5916: /* In case of new station if DC_EXEC is NOT set we still need to create the station KUDr@5916: * to test if everything is OK. In this case we need to delete it before return. */ KUDr@6095: AutoPtrT st_auto_delete; KUDr@5916: truelight@0: if (st != NULL) { belugas@8291: /* Reuse an existing station. */ tron@6390: if (st->owner != _current_player) truelight@0: return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION); truelight@0: truelight@0: if (st->train_tile != 0) { belugas@8291: /* check if we want to expanding an already existing station? */ truelight@2422: if (_is_old_ai_player || !_patches.join_stations) truelight@0: return_cmd_error(STR_3005_TOO_CLOSE_TO_ANOTHER_RAILROAD); tron@3157: if (!CanExpandRailroadStation(st, finalvalues, axis)) Celestar@1189: return CMD_ERROR; truelight@0: } truelight@0: belugas@8291: /* XXX can't we pack this in the "else" part of the if above? */ KUDr@5927: if (!st->rect.BeforeAddRect(tile_org, w_org, h_org, StationRect::ADD_TEST)) return CMD_ERROR; rubidium@4434: } else { KUDr@5916: /* allocate and initialize new station */ KUDr@5916: st = new Station(tile_org); rubidium@7873: if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING); truelight@193: KUDr@5916: /* ensure that in case of error (or no DC_EXEC) the station gets deleted upon return */ KUDr@6095: st_auto_delete = st; KUDr@5916: truelight@0: st->town = ClosestTownFromTile(tile_org, (uint)-1); belugas@8309: if (!GenerateStationName(st, tile_org, STATIONNAMING_RAIL)) return CMD_ERROR; KUDr@5916: KUDr@5916: if (IsValidPlayer(_current_player) && (flags & DC_EXEC) != 0) { skidd13@8427: SetBit(st->town->have_ratings, _current_player); KUDr@5916: } truelight@0: } truelight@0: peter1138@3587: /* Check if the given station class is valid */ peter1138@8792: if (GB(p2, 8, 8) >= GetNumStationClasses()) return CMD_ERROR; peter1138@3587: peter1138@3587: /* Check if we can allocate a custom stationspec to this station */ tron@6395: const StationSpec *statspec = GetCustomStationSpec((StationClassID)GB(p2, 8, 8), GB(p2, 16, 8)); tron@6395: int specindex = AllocateSpecToStation(statspec, st, flags & DC_EXEC); peter1138@3587: if (specindex == -1) return CMD_ERROR; peter1138@3587: peter1138@3754: if (statspec != NULL) { peter1138@3754: /* Perform NewStation checks */ peter1138@3754: peter1138@3754: /* Check if the station size is permitted */ skidd13@8424: if (HasBit(statspec->disallowed_platforms, numtracks - 1) || HasBit(statspec->disallowed_lengths, plat_len - 1)) { peter1138@3754: return CMD_ERROR; peter1138@3754: } peter1138@3754: peter1138@3754: /* Check if the station is buildable */ skidd13@8424: if (HasBit(statspec->callbackmask, CBM_STATION_AVAIL) && GetStationCallback(CBID_STATION_AVAILABILITY, 0, 0, statspec, NULL, INVALID_TILE) == 0) { peter1138@3754: return CMD_ERROR; peter1138@3754: } peter1138@3754: } peter1138@3754: truelight@0: if (flags & DC_EXEC) { tron@1977: TileIndexDiff tile_delta; truelight@0: byte *layout_ptr; peter1138@3769: byte numtracks_orig; peter1138@2824: Track track; truelight@0: belugas@8291: /* Now really clear the land below the station belugas@8291: * It should never return CMD_ERROR.. but you never know ;) belugas@8291: * (a bit strange function name for it, but it really does clear the land, when DC_EXEC is in flags) */ tron@3183: ret = CheckFlatLandBelow(tile_org, w_org, h_org, flags, 5 << axis, _patches.nonuniform_stations ? &est : NULL); tron@3183: if (CmdFailed(ret)) return ret; truelight@313: truelight@0: st->train_tile = finalvalues[0]; KUDr@5972: st->AddFacility(FACIL_TRAIN, finalvalues[0]); truelight@0: truelight@0: st->trainst_w = finalvalues[1]; truelight@0: st->trainst_h = finalvalues[2]; truelight@193: KUDr@5927: st->rect.BeforeAddRect(tile_org, w_org, h_org, StationRect::ADD_TRY); KUDr@5583: tron@3157: tile_delta = (axis == AXIS_X ? TileDiffXY(1, 0) : TileDiffXY(0, 1)); tron@4158: track = AxisToTrack(axis); truelight@193: rubidium@5838: layout_ptr = (byte*)alloca(numtracks * plat_len); tron@449: GetStationLayout(layout_ptr, numtracks, plat_len, statspec); truelight@193: peter1138@3769: numtracks_orig = numtracks; peter1138@3769: truelight@0: do { Darkvater@1775: TileIndex tile = tile_org; truelight@0: int w = plat_len; truelight@0: do { peter1138@3769: byte layout = *layout_ptr++; peter1138@7052: MakeRailStation(tile, st->owner, st->index, axis, layout & ~1, (RailType)GB(p2, 0, 4)); peter1138@3587: SetCustomStationSpecIndex(tile, specindex); peter1138@3742: SetStationTileRandomBits(tile, GB(Random(), 0, 4)); truelight@0: peter1138@3754: if (statspec != NULL) { peter1138@3784: /* Use a fixed axis for GetPlatformInfo as our platforms / numtracks are always the right way around */ peter1138@3784: uint32 platinfo = GetPlatformInfo(AXIS_X, 0, plat_len, numtracks_orig, plat_len - w, numtracks_orig - numtracks, false); rubidium@8360: rubidium@8360: /* As the station is not yet completely finished, the station does not yet exist. */ rubidium@8360: uint16 callback = GetStationCallback(CBID_STATION_TILE_LAYOUT, platinfo, 0, statspec, NULL, tile); peter1138@7052: if (callback != CALLBACK_FAILED && callback < 8) SetStationGfx(tile, (callback & ~1) + axis); peter1138@3754: } peter1138@3754: truelight@0: tile += tile_delta; truelight@0: } while (--w); smatz@8802: AddTrackToSignalBuffer(tile_org, track, _current_player); KUDr@3900: YapfNotifyTrackLayoutChange(tile_org, track); tron@1981: tile_org += tile_delta ^ TileDiffXY(1, 1); // perpendicular to tile_delta truelight@0: } while (--numtracks); truelight@0: peter1138@7319: st->MarkTilesDirty(false); truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: UpdateStationAcceptance(st, false); celestar@3812: RebuildStationLists(); truelight@0: InvalidateWindow(WC_STATION_LIST, st->owner); smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_TRAINS); KUDr@5916: /* success, so don't delete the new station */ KUDr@7794: st_auto_delete.Detach(); truelight@0: } truelight@0: truelight@0: return cost; truelight@0: } truelight@0: truelight@0: static void MakeRailwayStationAreaSmaller(Station *st) truelight@0: { truelight@0: uint w = st->trainst_w; truelight@0: uint h = st->trainst_h; tron@1977: TileIndex tile = st->train_tile; truelight@0: truelight@0: restart: truelight@193: belugas@8291: /* too small? */ truelight@0: if (w != 0 && h != 0) { belugas@8291: /* check the left side, x = constant, y changes */ tron@6395: for (uint i = 0; !st->TileBelongsToRailStation(tile + TileDiffXY(0, i));) { belugas@8291: /* the left side is unused? */ tron@1981: if (++i == h) { tron@1981: tile += TileDiffXY(1, 0); tron@1981: w--; tron@1981: goto restart; tron@1981: } tron@1981: } truelight@0: belugas@8291: /* check the right side, x = constant, y changes */ tron@6395: for (uint i = 0; !st->TileBelongsToRailStation(tile + TileDiffXY(w - 1, i));) { belugas@8291: /* the right side is unused? */ tron@1981: if (++i == h) { tron@1981: w--; tron@1981: goto restart; tron@1981: } tron@1981: } truelight@0: belugas@8291: /* check the upper side, y = constant, x changes */ tron@6395: for (uint i = 0; !st->TileBelongsToRailStation(tile + TileDiffXY(i, 0));) { belugas@8291: /* the left side is unused? */ tron@1981: if (++i == w) { tron@1981: tile += TileDiffXY(0, 1); tron@1981: h--; tron@1981: goto restart; tron@1981: } tron@1981: } truelight@0: belugas@8291: /* check the lower side, y = constant, x changes */ tron@6395: for (uint i = 0; !st->TileBelongsToRailStation(tile + TileDiffXY(i, h - 1));) { belugas@8291: /* the left side is unused? */ tron@1981: if (++i == w) { tron@1981: h--; tron@1981: goto restart; tron@1981: } tron@1981: } truelight@0: } else { truelight@0: tile = 0; truelight@0: } truelight@0: truelight@0: st->trainst_w = w; truelight@0: st->trainst_h = h; truelight@0: st->train_tile = tile; truelight@0: } truelight@0: Darkvater@1782: /** Remove a single tile from a railroad station. Darkvater@1782: * This allows for custom-built station with holes and weird layouts tron@3491: * @param tile tile of station piece to remove belugas@6979: * @param flags operation to perform peter1138@7092: * @param p1 start_tile Darkvater@1782: * @param p2 unused Darkvater@1782: */ rubidium@7439: CommandCost CmdRemoveFromRailroadStation(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) truelight@0: { peter1138@7092: TileIndex start = p1 == 0 ? tile : p1; peter1138@7092: peter1138@7092: /* Count of the number of tiles removed */ peter1138@7092: int quantity = 0; peter1138@7092: peter1138@7092: if (tile >= MapSize() || start >= MapSize()) return CMD_ERROR; peter1138@7092: peter1138@7092: /* make sure sx,sy are smaller than ex,ey */ peter1138@7092: int ex = TileX(tile); peter1138@7092: int ey = TileY(tile); peter1138@7092: int sx = TileX(start); peter1138@7092: int sy = TileY(start); peter1138@7092: if (ex < sx) Swap(ex, sx); peter1138@7092: if (ey < sy) Swap(ey, sy); peter1138@7092: tile = TileXY(sx, sy); peter1138@7092: peter1138@7092: int size_x = ex - sx + 1; peter1138@7092: int size_y = ey - sy + 1; peter1138@7092: peter1138@7092: /* Do the action for every tile into the area */ peter1138@7092: BEGIN_TILE_LOOP(tile2, size_x, size_y, tile) { smatz@8506: /* Make sure the specified tile is a railroad station */ smatz@8506: if (!IsTileType(tile2, MP_STATION) || !IsRailwayStation(tile2)) { smatz@8506: continue; smatz@8506: } smatz@8506: smatz@8506: /* If there is a vehicle on ground, do not allow to remove (flood) the tile */ smatz@8506: if (!EnsureNoVehicleOnGround(tile2)) { peter1138@7092: continue; truelight@0: } peter1138@7092: peter1138@7092: /* Check ownership of station */ peter1138@7092: Station *st = GetStationByTile(tile2); smatz@8506: if (_current_player != OWNER_WATER && !CheckOwnership(st->owner)) { peter1138@7092: continue; peter1138@7092: } peter1138@7092: smatz@8506: /* Do not allow removing from stations if non-uniform stations are not enabled smatz@8506: * The check must be here to give correct error message smatz@8506: */ maedhros@8920: if (!_patches.nonuniform_stations) return_cmd_error(STR_NONUNIFORM_STATIONS_DISALLOWED); smatz@8506: peter1138@7092: /* If we reached here, the tile is valid so increase the quantity of tiles we will remove */ peter1138@7092: quantity++; peter1138@7092: peter1138@7092: if (flags & DC_EXEC) { smatz@8796: /* read variables before the station tile is removed */ peter1138@7092: uint specindex = GetCustomStationSpecIndex(tile2); peter1138@7092: Track track = GetRailStationTrack(tile2); smatz@8796: Owner owner = GetTileOwner(tile2); smatz@8796: peter1138@7092: DoClearSquare(tile2); peter1138@7092: st->rect.AfterRemoveTile(st, tile2); smatz@8802: AddTrackToSignalBuffer(tile2, track, owner); peter1138@7092: YapfNotifyTrackLayoutChange(tile2, track); peter1138@7092: peter1138@7092: DeallocateSpecFromStation(st, specindex); peter1138@7092: belugas@8291: /* now we need to make the "spanned" area of the railway station smaller belugas@8291: * if we deleted something at the edges. belugas@8291: * we also need to adjust train_tile. */ peter1138@7092: MakeRailwayStationAreaSmaller(st); peter1138@7319: st->MarkTilesDirty(false); peter1138@7092: UpdateStationSignCoord(st); peter1138@7092: belugas@8291: /* if we deleted the whole station, delete the train facility. */ peter1138@7092: if (st->train_tile == 0) { peter1138@7092: st->facilities &= ~FACIL_TRAIN; smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_TRAINS); peter1138@7092: UpdateStationVirtCoordDirty(st); peter1138@7092: DeleteStationIfEmpty(st); peter1138@7092: } peter1138@7092: } peter1138@7092: } END_TILE_LOOP(tile2, size_x, size_y, tile) peter1138@7092: peter1138@7092: /* If we've not removed any tiles, give an error */ peter1138@7092: if (quantity == 0) return CMD_ERROR; peter1138@7092: rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, _price.remove_rail_station * quantity); truelight@0: } truelight@0: celestar@3928: rubidium@7439: static CommandCost RemoveRailroadStation(Station *st, TileIndex tile, uint32 flags) truelight@0: { darkvater@149: /* if there is flooding and non-uniform stations are enabled, remove platforms tile by tile */ darkvater@149: if (_current_player == OWNER_WATER && _patches.nonuniform_stations) tron@3491: return DoCommand(tile, 0, 0, DC_EXEC, CMD_REMOVE_FROM_RAILROAD_STATION); darkvater@149: truelight@0: /* Current player owns the station? */ truelight@0: if (_current_player != OWNER_WATER && !CheckOwnership(st->owner)) truelight@0: return CMD_ERROR; truelight@0: truelight@0: /* determine width and height of platforms */ truelight@0: tile = st->train_tile; tron@6395: int w = st->trainst_w; tron@6395: int h = st->trainst_h; truelight@193: truelight@0: assert(w != 0 && h != 0); truelight@0: rubidium@8726: CommandCost cost(EXPENSES_CONSTRUCTION); truelight@0: /* clear all areas of the station */ truelight@0: do { truelight@0: int w_bak = w; truelight@0: do { smatz@8796: /* for nonuniform stations, only remove tiles that are actually train station tiles */ KUDr@5916: if (st->TileBelongsToRailStation(tile)) { rubidium@8254: if (!EnsureNoVehicleOnGround(tile)) truelight@0: return CMD_ERROR; rubidium@7446: cost.AddCost(_price.remove_rail_station); peter1138@2824: if (flags & DC_EXEC) { smatz@8796: /* read variables before the station tile is removed */ celestar@3334: Track track = GetRailStationTrack(tile); smatz@8796: Owner owner = GetTileOwner(tile); // _current_player can be OWNER_WATER truelight@0: DoClearSquare(tile); smatz@8802: AddTrackToSignalBuffer(tile, track, owner); KUDr@3900: YapfNotifyTrackLayoutChange(tile, track); peter1138@2824: } truelight@0: } tron@1981: tile += TileDiffXY(1, 0); truelight@0: } while (--w); truelight@0: w = w_bak; tron@1981: tile += TileDiffXY(-w, 1); truelight@0: } while (--h); truelight@0: truelight@0: if (flags & DC_EXEC) { KUDr@5927: st->rect.AfterRemoveRect(st, st->train_tile, st->trainst_w, st->trainst_h); KUDr@5583: truelight@0: st->train_tile = 0; KUDr@5583: st->trainst_w = st->trainst_h = 0; truelight@0: st->facilities &= ~FACIL_TRAIN; truelight@0: peter1138@3587: free(st->speclist); peter1138@3587: st->num_specs = 0; peter1138@3587: st->speclist = NULL; peter1138@3587: smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_TRAINS); truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: DeleteStationIfEmpty(st); truelight@0: } truelight@193: truelight@0: return cost; truelight@0: } truelight@0: celestar@6694: /** belugas@6984: * @param truck_station Determines whether a stop is RoadStop::BUS or RoadStop::TRUCK belugas@6984: * @param st The Station to do the whole procedure for tron@6157: * @return a pointer to where to link a new RoadStop* rubidium@4549: */ tron@6157: static RoadStop **FindRoadStopSpot(bool truck_station, Station* st) celestar@1217: { celestar@3691: RoadStop **primary_stop = (truck_station) ? &st->truck_stops : &st->bus_stops; celestar@1217: celestar@1217: if (*primary_stop == NULL) { belugas@6984: /* we have no roadstop of the type yet, so write a "primary stop" */ tron@6157: return primary_stop; celestar@1217: } else { belugas@6984: /* there are stops already, so append to the end of the list */ tron@6157: RoadStop *stop = *primary_stop; tron@6157: while (stop->next != NULL) stop = stop->next; tron@6157: return &stop->next; celestar@1217: } celestar@1217: } celestar@1217: celestar@3691: /** Build a bus or truck stop celestar@3691: * @param tile tile to build the stop at belugas@6979: * @param flags operation to perform tron@3333: * @param p1 entrance direction (DiagDirection) rubidium@6338: * @param p2 bit 0: 0 for Bus stops, 1 for truck stops rubidium@6338: * bit 1: 0 for normal, 1 for drive-through rubidium@7157: * bit 2..4: the roadtypes maedhros@7170: * bit 5: allow stations directly adjacent to other stations. truelight@0: */ rubidium@7439: CommandCost CmdBuildRoadStop(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) truelight@0: { skidd13@8424: bool type = HasBit(p2, 0); skidd13@8424: bool is_drive_through = HasBit(p2, 1); frosch@9059: bool build_over_road = is_drive_through && IsNormalRoadTile(tile); rubidium@6393: bool town_owned_road = build_over_road && IsTileOwner(tile, OWNER_TOWN); rubidium@7157: RoadTypes rts = (RoadTypes)GB(p2, 2, 3); rubidium@7157: truelight@8353: if (!AreValidRoadTypes(rts) || !HasRoadTypesAvail(_current_player, rts)) return CMD_ERROR; Darkvater@1782: rubidium@7173: /* Trams only have drive through stops */ skidd13@8424: if (!is_drive_through && HasBit(rts, ROADTYPE_TRAM)) return CMD_ERROR; rubidium@7173: Darkvater@1782: /* Saveguard the parameters */ rubidium@5838: if (!IsValidDiagDirection((DiagDirection)p1)) return CMD_ERROR; rubidium@6338: /* If it is a drive-through stop check for valid axis */ rubidium@6338: if (is_drive_through && !IsValidAxis((Axis)p1)) return CMD_ERROR; rubidium@6344: /* Road bits in the wrong direction */ rubidium@7157: if (build_over_road && (GetAllRoadBits(tile) & ((Axis)p1 == AXIS_X ? ROAD_Y : ROAD_X)) != 0) return_cmd_error(STR_DRIVE_THROUGH_ERROR_DIRECTION); rubidium@7199: rubidium@7199: if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile)) return CMD_ERROR; rubidium@7199: rubidium@7446: CommandCost cost; rubidium@7199: rubidium@6344: /* Not allowed to build over this road */ maedhros@6898: if (build_over_road) { maedhros@6898: if (IsTileOwner(tile, OWNER_TOWN) && !_patches.road_stop_on_town_road) return_cmd_error(STR_DRIVE_THROUGH_ERROR_ON_TOWN_ROAD); rubidium@7187: smatz@8873: RoadTypes cur_rts = GetRoadTypes(tile); smatz@8873: smatz@8873: /* there is a road, check if we can build road+tram stop over it */ smatz@8873: if (HasBit(cur_rts, ROADTYPE_ROAD)) { smatz@8873: Owner road_owner = GetRoadOwner(tile, ROADTYPE_ROAD); smatz@8873: if (road_owner != OWNER_TOWN && road_owner != OWNER_NONE && !CheckOwnership(road_owner)) return CMD_ERROR; smatz@8873: } smatz@8873: smatz@8873: /* there is a tram, check if we can build road+tram stop over it */ smatz@8873: if (HasBit(cur_rts, ROADTYPE_TRAM)) { smatz@8873: Owner tram_owner = GetRoadOwner(tile, ROADTYPE_TRAM); smatz@8873: if (tram_owner != OWNER_NONE && !CheckOwnership(tram_owner)) return CMD_ERROR; smatz@8873: } smatz@8873: rubidium@7257: /* Don't allow building the roadstop when vehicles are already driving on it */ rubidium@7257: if (!EnsureNoVehicleOnGround(tile)) return CMD_ERROR; rubidium@7257: rubidium@7157: /* Do not remove roadtypes! */ rubidium@7199: rts |= cur_rts; maedhros@6898: } glx@7216: cost = CheckFlatLandBelow(tile, 1, 1, flags, is_drive_through ? 5 << p1 : 1 << p1, NULL, !build_over_road); glx@7215: if (CmdFailed(cost)) return cost; truelight@0: maedhros@7170: Station *st = NULL; maedhros@7170: skidd13@8424: if (!_patches.adjacent_stations || !HasBit(p2, 5)) { maedhros@7170: st = GetStationAround(tile, 1, 1, INVALID_STATION); maedhros@7170: if (st == CHECK_STATIONS_ERR) return CMD_ERROR; maedhros@7170: } truelight@0: truelight@0: /* Find a station close to us */ tron@6378: if (st == NULL) st = GetClosestStationFromTile(tile); truelight@0: belugas@8291: /* give us a road stop in the list, and check if something went wrong */ tron@6395: RoadStop *road_stop = new RoadStop(tile); tron@2951: if (road_stop == NULL) { maedhros@8920: return_cmd_error(type ? STR_TOO_MANY_TRUCK_STOPS : STR_TOO_MANY_BUS_STOPS); tron@2951: } tron@2951: glx@6084: /* ensure that in case of error (or no DC_EXEC) the new road stop gets deleted upon return */ KUDr@6095: AutoPtrT rs_auto_delete(road_stop); glx@6084: tron@2989: if (st != NULL && celestar@6088: GetNumRoadStopsInStation(st, RoadStop::BUS) + GetNumRoadStopsInStation(st, RoadStop::TRUCK) >= RoadStop::LIMIT) { maedhros@8920: return_cmd_error(type ? STR_TOO_MANY_TRUCK_STOPS : STR_TOO_MANY_BUS_STOPS); tron@2951: } celestar@1217: KUDr@5916: /* In case of new station if DC_EXEC is NOT set we still need to create the station belugas@8291: * to test if everything is OK. In this case we need to delete it before return. */ KUDr@6095: AutoPtrT st_auto_delete; KUDr@5916: truelight@0: if (st != NULL) { tron@6390: if (st->owner != _current_player) { truelight@0: return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION); tron@2951: } tron@2951: KUDr@5927: if (!st->rect.BeforeAddTile(tile, StationRect::ADD_TEST)) return CMD_ERROR; truelight@0: } else { KUDr@5916: /* allocate and initialize new station */ KUDr@5916: st = new Station(tile); rubidium@7873: if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING); truelight@0: KUDr@5916: /* ensure that in case of error (or no DC_EXEC) the new station gets deleted upon return */ KUDr@6095: st_auto_delete = st; KUDr@5916: KUDr@5916: KUDr@5916: Town *t = st->town = ClosestTownFromTile(tile, (uint)-1); belugas@8309: if (!GenerateStationName(st, tile, STATIONNAMING_ROAD)) return CMD_ERROR; truelight@0: KUDr@5916: if (IsValidPlayer(_current_player) && (flags & DC_EXEC) != 0) { skidd13@8427: SetBit(t->have_ratings, _current_player); tron@2951: } truelight@0: truelight@0: st->sign.width_1 = 0; truelight@0: } truelight@0: rubidium@7446: cost.AddCost((type) ? _price.build_truck_station : _price.build_bus_station); truelight@0: truelight@0: if (flags & DC_EXEC) { belugas@8291: /* Insert into linked list of RoadStops */ tron@6157: RoadStop **currstop = FindRoadStopSpot(type, st); celestar@1217: *currstop = road_stop; celestar@1217: belugas@8291: /*initialize an empty station */ KUDr@5972: st->AddFacility((type) ? FACIL_TRUCK_STOP : FACIL_BUS_STOP, tile); truelight@0: KUDr@5927: st->rect.BeforeAddTile(tile, StationRect::ADD_TRY); KUDr@5583: tron@6424: RoadStop::Type rs_type = type ? RoadStop::TRUCK : RoadStop::BUS; tron@6424: if (is_drive_through) { rubidium@7157: MakeDriveThroughRoadStop(tile, st->owner, st->index, rs_type, rts, (Axis)p1, town_owned_road); tron@6424: } else { rubidium@7157: MakeRoadStop(tile, st->owner, st->index, rs_type, rts, (DiagDirection)p1); tron@6424: } truelight@0: truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: UpdateStationAcceptance(st, false); celestar@3812: RebuildStationLists(); truelight@0: InvalidateWindow(WC_STATION_LIST, st->owner); smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_ROADVEHS); glx@6084: /* success, so don't delete the new station and the new road stop */ KUDr@7794: st_auto_delete.Detach(); KUDr@7794: rs_auto_delete.Detach(); truelight@0: } truelight@0: return cost; truelight@0: } truelight@0: smatz@9016: smatz@9016: static void *ClearRoadStopStatusEnum(Vehicle *v, void *) smatz@9016: { smatz@9016: if (v->type == VEH_ROAD) ClrBit(v->u.road.state, RVS_IN_DT_ROAD_STOP); smatz@9016: smatz@9016: return NULL; smatz@9016: } smatz@9016: smatz@9016: belugas@8291: /** Remove a bus station belugas@8291: * @param st Station to remove belugas@8291: * @param flags operation to perform belugas@8291: * @param tile TileIndex been queried belugas@8291: * @return cost or failure of operation belugas@8291: */ rubidium@7439: static CommandCost RemoveRoadStop(Station *st, uint32 flags, TileIndex tile) truelight@0: { tron@2951: if (_current_player != OWNER_WATER && !CheckOwnership(st->owner)) { truelight@0: return CMD_ERROR; tron@2951: } truelight@0: tron@6395: bool is_truck = IsTruckStop(tile); tron@6395: tron@6395: RoadStop **primary_stop; tron@6395: RoadStop *cur_stop; tron@2639: if (is_truck) { // truck stop celestar@1217: primary_stop = &st->truck_stops; celestar@6087: cur_stop = GetRoadStopByTile(tile, RoadStop::TRUCK); celestar@1217: } else { celestar@1217: primary_stop = &st->bus_stops; celestar@6087: cur_stop = GetRoadStopByTile(tile, RoadStop::BUS); celestar@1217: } celestar@1217: celestar@1217: assert(cur_stop != NULL); truelight@193: smatz@9016: /* don't do the check for drive-through road stops when company bankrupts */ smatz@9016: if (IsDriveThroughStopTile(tile) && (flags & DC_BANKRUPT)) { smatz@9016: /* remove the 'going through road stop' status from all vehicles on that tile */ smatz@9016: if (flags & DC_EXEC) VehicleFromPos(tile, NULL, &ClearRoadStopStatusEnum); smatz@9016: } else { smatz@9016: if (!EnsureNoVehicleOnGround(tile)) return CMD_ERROR; smatz@9016: } truelight@0: truelight@0: if (flags & DC_EXEC) { tron@6118: if (*primary_stop == cur_stop) { belugas@8291: /* removed the first stop in the list */ tron@6118: *primary_stop = cur_stop->next; belugas@8291: /* removed the only stop? */ tron@6118: if (*primary_stop == NULL) { tron@6118: st->facilities &= (is_truck ? ~FACIL_TRUCK_STOP : ~FACIL_BUS_STOP); tron@6118: } tron@6118: } else { belugas@8291: /* tell the predecessor in the list to skip this stop */ tron@6118: RoadStop *pred = *primary_stop; tron@6118: while (pred->next != cur_stop) pred = pred->next; tron@6118: pred->next = cur_stop->next; celestar@1217: } truelight@0: smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_ROADVEHS); celestar@5959: delete cur_stop; truelight@4398: DoClearSquare(tile); KUDr@5927: st->rect.AfterRemoveTile(st, tile); truelight@4398: truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: DeleteStationIfEmpty(st); truelight@0: } truelight@0: rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, (is_truck) ? _price.remove_truck_station : _price.remove_bus_station); truelight@0: } truelight@0: rubidium@6338: /** Remove a bus or truck stop rubidium@6338: * @param tile tile to remove the stop from belugas@6979: * @param flags operation to perform rubidium@6338: * @param p1 not used rubidium@6338: * @param p2 bit 0: 0 for Bus stops, 1 for truck stops rubidium@6338: */ rubidium@7439: CommandCost CmdRemoveRoadStop(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) rubidium@6338: { rubidium@6338: /* Make sure the specified tile is a road stop of the correct type */ rubidium@6338: if (!IsTileType(tile, MP_STATION) || !IsRoadStop(tile) || (uint32)GetRoadStopType(tile) != p2) return CMD_ERROR; tron@6395: Station *st = GetStationByTile(tile); rubidium@6338: /* Save the stop info before it is removed */ tron@6395: bool is_drive_through = IsDriveThroughStopTile(tile); rubidium@7157: RoadTypes rts = GetRoadTypes(tile); rubidium@7160: RoadBits road_bits = IsDriveThroughStopTile(tile) ? rubidium@7160: ((GetRoadStopDir(tile) == DIAGDIR_NE) ? ROAD_X : ROAD_Y) : rubidium@7160: DiagDirToRoadBits(GetRoadStopDir(tile)); tron@6395: bool is_towns_road = is_drive_through && GetStopBuiltOnTownRoad(tile); tron@6395: rubidium@7439: CommandCost ret = RemoveRoadStop(st, flags, tile); rubidium@6338: rubidium@6338: /* If the stop was a drive-through stop replace the road */ rubidium@7442: if ((flags & DC_EXEC) && CmdSucceeded(ret) && is_drive_through) { rubidium@7229: /* Rebuild the drive throuhg road stop. As a road stop can only be rubidium@7229: * removed by the owner of the roadstop, _current_player is the rubidium@7229: * owner of the road stop. */ rubidium@7229: MakeRoadNormal(tile, road_bits, rts, is_towns_road ? ClosestTownFromTile(tile, (uint)-1)->index : 0, rubidium@7229: is_towns_road ? OWNER_TOWN : _current_player, _current_player, _current_player); rubidium@6338: } rubidium@6338: rubidium@6338: return ret; rubidium@6338: } truelight@0: belugas@8291: /* FIXME -- need to move to its corresponding Airport variable*/ belugas@8291: belugas@8291: /* Country Airfield (small) */ celestar@3429: static const byte _airport_sections_country[] = { truelight@0: 54, 53, 52, 65, truelight@0: 58, 57, 56, 55, truelight@0: 64, 63, 63, 62 truelight@0: }; truelight@0: belugas@8291: /* City Airport (large) */ celestar@3429: static const byte _airport_sections_town[] = { tron@2549: 31, 9, 33, 9, 9, 32, tron@2549: 27, 36, 29, 34, 8, 10, truelight@0: 30, 11, 35, 13, 20, 21, truelight@0: 51, 12, 14, 17, 19, 28, truelight@0: 38, 13, 15, 16, 18, 39, truelight@0: 26, 22, 23, 24, 25, 26 truelight@0: }; truelight@0: belugas@8291: /* Metropolitain Airport (large) - 2 runways */ celestar@3429: static const byte _airport_sections_metropolitan[] = { tron@2549: 31, 9, 33, 9, 9, 32, tron@2549: 27, 36, 29, 34, 8, 10, tron@2549: 30, 11, 35, 13, 20, 21, tron@2549: 102, 8, 8, 8, 8, 28, tron@2549: 83, 84, 84, 84, 84, 83, tron@2549: 26, 23, 23, 23, 23, 26 truelight@0: }; truelight@0: belugas@8291: /* International Airport (large) - 2 runways */ celestar@3429: static const byte _airport_sections_international[] = { belugas@3554: 88, 89, 89, 89, 89, 89, 88, belugas@3554: 51, 8, 8, 8, 8, 8, 32, tron@2549: 30, 8, 11, 27, 11, 8, 10, truelight@0: 32, 8, 11, 27, 11, 8, 114, truelight@0: 87, 8, 11, 85, 11, 8, 114, tron@2549: 87, 8, 8, 8, 8, 8, 90, tron@2549: 26, 23, 23, 23, 23, 23, 26 truelight@0: }; truelight@0: belugas@8291: /* Intercontinental Airport (vlarge) - 4 runways */ richk@4059: static const byte _airport_sections_intercontinental[] = { tron@4077: 102, 120, 89, 89, 89, 89, 89, 89, 118, rubidium@6593: 120, 23, 23, 23, 23, 23, 23, 119, 117, tron@4077: 87, 54, 87, 8, 8, 8, 8, 51, 117, tron@4077: 87, 162, 87, 85, 116, 116, 8, 9, 10, richk@4059: 87, 8, 8, 11, 31, 11, 8, 160, 32, richk@4059: 32, 160, 8, 11, 27, 11, 8, 8, 10, richk@4059: 87, 8, 8, 11, 30, 11, 8, 8, 10, richk@4066: 87, 142, 8, 11, 29, 11, 10, 163, 10, richk@4066: 87, 164, 87, 8, 8, 8, 10, 37, 117, tron@4077: 87, 120, 89, 89, 89, 89, 89, 89, 119, rubidium@6593: 121, 23, 23, 23, 23, 23, 23, 119, 37 richk@4059: }; richk@4059: richk@4059: belugas@8291: /* Commuter Airfield (small) */ richk@4059: static const byte _airport_sections_commuter[] = { richk@4059: 85, 30, 115, 115, 32, richk@4059: 87, 8, 8, 8, 10, richk@4059: 87, 11, 11, 11, 10, richk@4059: 26, 23, 23, 23, 26 richk@4059: }; richk@4059: belugas@8291: /* Heliport */ celestar@3429: static const byte _airport_sections_heliport[] = { truelight@0: 66, truelight@0: }; truelight@0: belugas@8291: /* Helidepot */ richk@4059: static const byte _airport_sections_helidepot[] = { richk@4059: 124, 32, richk@4059: 122, 123 richk@4059: }; richk@4059: belugas@8291: /* Helistation */ richk@4059: static const byte _airport_sections_helistation[] = { richk@4059: 32, 134, 159, 158, richk@4059: 161, 142, 142, 157 richk@4059: }; richk@4059: celestar@3471: static const byte * const _airport_sections[] = { richk@4059: _airport_sections_country, // Country Airfield (small) richk@4059: _airport_sections_town, // City Airport (large) richk@4059: _airport_sections_heliport, // Heliport richk@4059: _airport_sections_metropolitan, // Metropolitain Airport (large) richk@4059: _airport_sections_international, // International Airport (xlarge) richk@4059: _airport_sections_commuter, // Commuter Airport (small) richk@4059: _airport_sections_helidepot, // Helidepot richk@4059: _airport_sections_intercontinental, // Intercontinental Airport (xxlarge) richk@4059: _airport_sections_helistation // Helistation truelight@0: }; truelight@0: Darkvater@1784: /** Place an Airport. tron@3491: * @param tile tile where airport will be built belugas@6979: * @param flags operation to perform Darkvater@1784: * @param p1 airport type, @see airport.h maedhros@7170: * @param p2 (bit 0) - allow airports directly adjacent to other airports. truelight@0: */ rubidium@7439: CommandCost CmdBuildAirport(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) truelight@0: { truelight@193: bool airport_upgrade = true; truelight@0: Darkvater@1784: /* Check if a valid, buildable airport was chosen for construction */ skidd13@8424: if (p1 > lengthof(_airport_sections) || !HasBit(GetValidAirports(), p1)) return CMD_ERROR; Darkvater@1784: truelight@0: if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile)) truelight@0: return CMD_ERROR; truelight@0: tron@6395: Town *t = ClosestTownFromTile(tile, (uint)-1); truelight@0: truelight@0: /* Check if local auth refuses a new airport */ truelight@0: { truelight@0: uint num = 0; tron@6395: const Station *st; truelight@0: FOR_ALL_STATIONS(st) { truelight@4346: if (st->town == t && st->facilities&FACIL_AIRPORT && st->airport_type != AT_OILRIG) truelight@0: num++; truelight@0: } truelight@0: if (num >= 2) { tron@534: SetDParam(0, t->index); truelight@0: return_cmd_error(STR_2035_LOCAL_AUTHORITY_REFUSES); truelight@0: } truelight@0: } truelight@0: tron@6395: const AirportFTAClass *afc = GetAirport(p1); tron@6395: int w = afc->size_x; tron@6395: int h = afc->size_y; tron@6395: rubidium@8726: CommandCost cost = CheckFlatLandBelow(tile, w, h, flags, 0, NULL); rubidium@8726: if (CmdFailed(cost)) return cost; tron@6395: maedhros@7170: Station *st = NULL; maedhros@7170: skidd13@8424: if (!_patches.adjacent_stations || !HasBit(p2, 0)) { maedhros@7170: st = GetStationAround(tile, w, h, INVALID_STATION); maedhros@7170: if (st == CHECK_STATIONS_ERR) return CMD_ERROR; maedhros@7170: } truelight@0: truelight@0: /* Find a station close to us */ tron@6378: if (st == NULL) st = GetClosestStationFromTile(tile); truelight@0: KUDr@5764: if (w > _patches.station_spread || h > _patches.station_spread) { KUDr@5764: _error_message = STR_306C_STATION_TOO_SPREAD_OUT; KUDr@5764: return CMD_ERROR; KUDr@5764: } KUDr@5764: KUDr@5916: /* In case of new station if DC_EXEC is NOT set we still need to create the station KUDr@5916: * to test if everything is OK. In this case we need to delete it before return. */ KUDr@6095: AutoPtrT st_auto_delete; KUDr@5916: truelight@0: if (st != NULL) { tron@6390: if (st->owner != _current_player) truelight@0: return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION); truelight@193: KUDr@5927: if (!st->rect.BeforeAddRect(tile, w, h, StationRect::ADD_TEST)) return CMD_ERROR; truelight@0: truelight@0: if (st->airport_tile != 0) truelight@0: return_cmd_error(STR_300D_TOO_CLOSE_TO_ANOTHER_AIRPORT); truelight@0: } else { truelight@0: airport_upgrade = false; truelight@0: KUDr@5916: /* allocate and initialize new station */ KUDr@5916: st = new Station(tile); rubidium@7873: if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING); truelight@0: KUDr@5916: /* ensure that in case of error (or no DC_EXEC) the station gets deleted upon return */ KUDr@6095: st_auto_delete = st; KUDr@5916: tron@1265: st->town = t; truelight@0: KUDr@5916: if (IsValidPlayer(_current_player) && (flags & DC_EXEC) != 0) { skidd13@8427: SetBit(t->have_ratings, _current_player); KUDr@5916: } truelight@0: truelight@0: st->sign.width_1 = 0; truelight@0: tron@6375: /* If only helicopters may use the airport generate a helicopter related (5) tron@6375: * station name, otherwise generate a normal airport name (1) */ belugas@8309: if (!GenerateStationName(st, tile, !(afc->flags & AirportFTAClass::AIRPLANES) ? STATIONNAMING_HELIPORT : STATIONNAMING_AIRPORT)) { truelight@0: return CMD_ERROR; tron@6375: } truelight@0: } truelight@0: rubidium@7446: cost.AddCost(_price.build_airport * w * h); truelight@0: truelight@0: if (flags & DC_EXEC) { truelight@0: st->airport_tile = tile; KUDr@5972: st->AddFacility(FACIL_AIRPORT, tile); truelight@0: st->airport_type = (byte)p1; truelight@0: st->airport_flags = 0; truelight@193: KUDr@5927: st->rect.BeforeAddRect(tile, w, h, StationRect::ADD_TRY); KUDr@5583: tron@2639: /* if airport was demolished while planes were en-route to it, the tron@2639: * positions can no longer be the same (v->u.air.pos), since different tron@2639: * airports have different indexes. So update all planes en-route to this tron@2639: * airport. Only update if tron@2639: * 1. airport is upgraded tron@2639: * 2. airport is added to existing station (unfortunately unavoideable) tron@2639: */ tron@2549: if (airport_upgrade) UpdateAirplanesOnNewStation(st); truelight@193: truelight@0: { celestar@3471: const byte *b = _airport_sections[p1]; tron@2549: tron@3033: BEGIN_TILE_LOOP(tile_cur, w, h, tile) { rubidium@7768: MakeAirport(tile_cur, st->owner, st->index, *b - ((*b < 67) ? 8 : 24)); rubidium@7768: b++; tron@3033: } END_TILE_LOOP(tile_cur, w, h, tile) truelight@0: } truelight@0: truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: UpdateStationAcceptance(st, false); celestar@3812: RebuildStationLists(); truelight@0: InvalidateWindow(WC_STATION_LIST, st->owner); smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_PLANES); KUDr@5916: /* success, so don't delete the new station */ KUDr@7794: st_auto_delete.Detach(); truelight@0: } truelight@0: truelight@0: return cost; truelight@0: } truelight@0: rubidium@7439: static CommandCost RemoveAirport(Station *st, uint32 flags) truelight@0: { truelight@0: if (_current_player != OWNER_WATER && !CheckOwnership(st->owner)) truelight@0: return CMD_ERROR; truelight@0: tron@6395: TileIndex tile = st->airport_tile; truelight@0: tron@6358: const AirportFTAClass *afc = st->Airport(); tron@6395: int w = afc->size_x; tron@6395: int h = afc->size_y; tron@6395: rubidium@8726: CommandCost cost(EXPENSES_CONSTRUCTION, w * h * _price.remove_airport); truelight@0: celestar@6890: Vehicle *v; celestar@6890: FOR_ALL_VEHICLES(v) { celestar@6890: if (!(v->type == VEH_AIRCRAFT && IsNormalAircraft(v))) continue; celestar@6890: celestar@6890: if (v->u.air.targetairport == st->index && v->u.air.state != FLYING) return CMD_ERROR; celestar@6890: } celestar@6890: tron@3033: BEGIN_TILE_LOOP(tile_cur, w, h, tile) { rubidium@8148: if (!EnsureNoVehicleOnGround(tile_cur)) return CMD_ERROR; truelight@0: truelight@0: if (flags & DC_EXEC) { truelight@0: DeleteAnimatedTile(tile_cur); truelight@0: DoClearSquare(tile_cur); truelight@0: } rubidium@6987: } END_TILE_LOOP(tile_cur, w, h, tile) truelight@0: truelight@0: if (flags & DC_EXEC) { tron@6395: for (uint i = 0; i < afc->nof_depots; ++i) { tron@3033: DeleteWindowById( tron@3033: WC_VEHICLE_DEPOT, tile + ToTileIndexDiff(afc->airport_depots[i]) tron@3033: ); tron@3033: } darkvater@755: KUDr@5927: st->rect.AfterRemoveRect(st, tile, w, h); KUDr@5583: truelight@0: st->airport_tile = 0; truelight@0: st->facilities &= ~FACIL_AIRPORT; truelight@0: smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_PLANES); truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: DeleteStationIfEmpty(st); truelight@0: } truelight@0: truelight@0: return cost; truelight@0: } truelight@0: Darkvater@1784: /** Build a buoy. tron@3491: * @param tile tile where to place the bouy belugas@6979: * @param flags operation to perform Darkvater@1784: * @param p1 unused Darkvater@1784: * @param p2 unused truelight@0: */ rubidium@7439: CommandCost CmdBuildBuoy(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) truelight@0: { rubidium@8235: if (!IsWaterTile(tile) || tile == 0) return_cmd_error(STR_304B_SITE_UNSUITABLE); maedhros@6632: if (MayHaveBridgeAbove(tile) && IsBridgeAbove(tile)) return_cmd_error(STR_5007_MUST_DEMOLISH_BRIDGE_FIRST); truelight@0: peter1138@8967: if (GetTileSlope(tile, NULL) != SLOPE_FLAT) return_cmd_error(STR_304B_SITE_UNSUITABLE); peter1138@8967: KUDr@5916: /* allocate and initialize new station */ tron@6395: Station *st = new Station(tile); rubidium@7873: if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING); truelight@0: KUDr@5916: /* ensure that in case of error (or no DC_EXEC) the station gets deleted upon return */ KUDr@6095: AutoPtrT st_auto_delete(st); KUDr@5916: tron@3055: st->town = ClosestTownFromTile(tile, (uint)-1); truelight@0: st->sign.width_1 = 0; truelight@0: belugas@8309: if (!GenerateStationName(st, tile, STATIONNAMING_BUOY)) return CMD_ERROR; truelight@0: truelight@0: if (flags & DC_EXEC) { tron@3055: st->dock_tile = tile; truelight@0: st->facilities |= FACIL_DOCK; matthijs@1751: /* Buoys are marked in the Station struct by this flag. Yes, it is this matthijs@1751: * braindead.. */ truelight@0: st->had_vehicle_of_type |= HVOT_BUOY; truelight@0: st->owner = OWNER_NONE; truelight@193: truelight@71: st->build_date = _date; truelight@0: peter1138@8967: MakeBuoy(tile, st->index, GetWaterClass(tile)); truelight@0: truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: UpdateStationAcceptance(st, false); celestar@3812: RebuildStationLists(); truelight@0: InvalidateWindow(WC_STATION_LIST, st->owner); smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_SHIPS); KUDr@5916: /* success, so don't delete the new station */ KUDr@7794: st_auto_delete.Detach(); truelight@0: } truelight@0: rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, _price.build_dock); truelight@0: } truelight@0: smatz@8605: /** smatz@8605: * Tests whether the player's vehicles have this station in orders smatz@8605: * When player == INVALID_PLAYER, then check all vehicles smatz@8605: * @param station station ID smatz@8605: * @param player player ID, INVALID_PLAYER to disable the check smatz@8605: */ smatz@8605: bool HasStationInUse(StationID station, PlayerID player) dominik@1078: { dominik@1078: const Vehicle *v; dominik@1078: FOR_ALL_VEHICLES(v) { smatz@8605: if (player == INVALID_PLAYER || v->owner == player) { dominik@1078: const Order *order; dominik@1078: FOR_VEHICLE_ORDERS(v, order) { smatz@8605: if (order->type == OT_GOTO_STATION && order->dest == station) { dominik@1078: return true; dominik@1078: } dominik@1078: } dominik@1078: } dominik@1078: } dominik@1078: return false; dominik@1078: } dominik@1078: rubidium@7439: static CommandCost RemoveBuoy(Station *st, uint32 flags) truelight@0: { Darkvater@4850: /* XXX: strange stuff */ Darkvater@4850: if (!IsValidPlayer(_current_player)) return_cmd_error(INVALID_STRING_ID); truelight@0: tron@6395: TileIndex tile = st->dock_tile; truelight@0: smatz@8605: if (HasStationInUse(st->index, INVALID_PLAYER)) return_cmd_error(STR_BUOY_IS_IN_USE); smatz@9016: /* remove the buoy if there is a ship on tile when company goes bankrupt... */ smatz@9016: if (!(flags & DC_BANKRUPT) && !EnsureNoVehicleOnGround(tile)) return CMD_ERROR; truelight@0: truelight@0: if (flags & DC_EXEC) { truelight@0: st->dock_tile = 0; matthijs@1751: /* Buoys are marked in the Station struct by this flag. Yes, it is this matthijs@1751: * braindead.. */ truelight@0: st->facilities &= ~FACIL_DOCK; truelight@0: st->had_vehicle_of_type &= ~HVOT_BUOY; truelight@0: smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_SHIPS); smatz@8513: rubidium@6204: /* We have to set the water tile's state to the same state as before the rubidium@6204: * buoy was placed. Otherwise one could plant a buoy on a canal edge, rubidium@6204: * remove it and flood the land (if the canal edge is at level 0) */ peter1138@8967: MakeWaterKeepingClass(tile, GetTileOwner(tile)); tron@3111: MarkTileDirtyByTile(tile); truelight@0: truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: DeleteStationIfEmpty(st); truelight@0: } truelight@0: rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, _price.remove_truck_station); truelight@0: } truelight@0: tron@909: static const TileIndexDiffC _dock_tileoffs_chkaround[] = { tron@909: {-1, 0}, tron@909: { 0, 0}, tron@909: { 0, 0}, tron@909: { 0, -1} truelight@0: }; rubidium@4344: static const byte _dock_w_chk[4] = { 2, 1, 2, 1 }; rubidium@4344: static const byte _dock_h_chk[4] = { 1, 2, 1, 2 }; truelight@0: Darkvater@1784: /** Build a dock/haven. tron@3491: * @param tile tile where dock will be built belugas@6979: * @param flags operation to perform maedhros@7170: * @param p1 (bit 0) - allow docks directly adjacent to other docks. Darkvater@1784: * @param p2 unused Darkvater@1784: */ rubidium@7439: CommandCost CmdBuildDock(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) truelight@0: { rubidium@7439: CommandCost cost; truelight@0: frosch@8909: DiagDirection direction = GetInclinedSlopeDirection(GetTileSlope(tile, NULL)); frosch@8909: if (direction == INVALID_DIAGDIR) return_cmd_error(STR_304B_SITE_UNSUITABLE); frosch@8909: direction = ReverseDiagDir(direction); tron@3055: peter1138@8882: /* Docks cannot be placed on rapids */ peter1138@8967: if (IsWaterTile(tile)) return_cmd_error(STR_304B_SITE_UNSUITABLE); peter1138@8882: peter1138@4619: if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile)) return CMD_ERROR; peter1138@4619: maedhros@6632: if (MayHaveBridgeAbove(tile) && IsBridgeAbove(tile)) return_cmd_error(STR_5007_MUST_DEMOLISH_BRIDGE_FIRST); maedhros@6632: tron@3491: cost = DoCommand(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR); Darkvater@1784: if (CmdFailed(cost)) return CMD_ERROR; truelight@0: tron@6395: TileIndex tile_cur = tile + TileOffsByDiagDir(direction); truelight@0: tron@3636: if (!IsTileType(tile_cur, MP_WATER) || GetTileSlope(tile_cur, NULL) != SLOPE_FLAT) { tron@3055: return_cmd_error(STR_304B_SITE_UNSUITABLE); tron@3055: } truelight@0: maedhros@6632: if (MayHaveBridgeAbove(tile_cur) && IsBridgeAbove(tile_cur)) return_cmd_error(STR_5007_MUST_DEMOLISH_BRIDGE_FIRST); maedhros@6632: peter1138@8967: /* Get the water class of the water tile before it is cleared.*/ peter1138@8967: WaterClass wc = GetWaterClass(tile_cur); peter1138@8967: tron@3491: cost = DoCommand(tile_cur, 0, 0, flags, CMD_LANDSCAPE_CLEAR); Darkvater@1784: if (CmdFailed(cost)) return CMD_ERROR; truelight@0: Darkvater@4559: tile_cur += TileOffsByDiagDir(direction); tron@3636: if (!IsTileType(tile_cur, MP_WATER) || GetTileSlope(tile_cur, NULL) != SLOPE_FLAT) { truelight@0: return_cmd_error(STR_304B_SITE_UNSUITABLE); tron@3055: } truelight@193: truelight@0: /* middle */ maedhros@7170: Station *st = NULL; maedhros@7170: skidd13@8424: if (!_patches.adjacent_stations || !HasBit(p1, 0)) { maedhros@7170: st = GetStationAround( maedhros@7170: tile + ToTileIndexDiff(_dock_tileoffs_chkaround[direction]), maedhros@7170: _dock_w_chk[direction], _dock_h_chk[direction], INVALID_STATION); maedhros@7170: if (st == CHECK_STATIONS_ERR) return CMD_ERROR; maedhros@7170: } truelight@193: truelight@0: /* Find a station close to us */ tron@6378: if (st == NULL) st = GetClosestStationFromTile(tile); truelight@0: KUDr@5916: /* In case of new station if DC_EXEC is NOT set we still need to create the station belugas@8291: * to test if everything is OK. In this case we need to delete it before return. */ KUDr@6095: AutoPtrT st_auto_delete; KUDr@5916: truelight@0: if (st != NULL) { tron@6390: if (st->owner != _current_player) truelight@0: return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION); truelight@193: KUDr@5927: if (!st->rect.BeforeAddRect(tile, _dock_w_chk[direction], _dock_h_chk[direction], StationRect::ADD_TEST)) return CMD_ERROR; Darkvater@1784: Darkvater@1784: if (st->dock_tile != 0) return_cmd_error(STR_304C_TOO_CLOSE_TO_ANOTHER_DOCK); truelight@0: } else { KUDr@5916: /* allocate and initialize new station */ KUDr@5916: st = new Station(tile); rubidium@7873: if (st == NULL) return_cmd_error(STR_3008_TOO_MANY_STATIONS_LOADING); truelight@0: KUDr@5916: /* ensure that in case of error (or no DC_EXEC) the station gets deleted upon return */ KUDr@6095: st_auto_delete = st; KUDr@5916: KUDr@5916: Town *t = st->town = ClosestTownFromTile(tile, (uint)-1); KUDr@5916: KUDr@5916: if (IsValidPlayer(_current_player) && (flags & DC_EXEC) != 0) { skidd13@8427: SetBit(t->have_ratings, _current_player); KUDr@5916: } truelight@0: truelight@0: st->sign.width_1 = 0; truelight@0: belugas@8309: if (!GenerateStationName(st, tile, STATIONNAMING_DOCK)) return CMD_ERROR; truelight@0: } truelight@0: truelight@0: if (flags & DC_EXEC) { truelight@0: st->dock_tile = tile; KUDr@5972: st->AddFacility(FACIL_DOCK, tile); truelight@0: KUDr@5927: st->rect.BeforeAddRect(tile, _dock_w_chk[direction], _dock_h_chk[direction], StationRect::ADD_TRY); KUDr@5583: peter1138@8967: MakeDock(tile, st->owner, st->index, direction, wc); truelight@193: truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: UpdateStationAcceptance(st, false); celestar@3812: RebuildStationLists(); truelight@0: InvalidateWindow(WC_STATION_LIST, st->owner); smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_SHIPS); KUDr@5916: /* success, so don't delete the new station */ KUDr@7794: st_auto_delete.Detach(); truelight@0: } rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, _price.build_dock); truelight@0: } truelight@0: rubidium@7439: static CommandCost RemoveDock(Station *st, uint32 flags) truelight@0: { tron@2639: if (!CheckOwnership(st->owner)) return CMD_ERROR; truelight@0: tron@6395: TileIndex tile1 = st->dock_tile; tron@6395: TileIndex tile2 = tile1 + TileOffsByDiagDir(GetDockDirection(tile1)); truelight@0: rubidium@8254: if (!EnsureNoVehicleOnGround(tile1)) return CMD_ERROR; rubidium@8254: if (!EnsureNoVehicleOnGround(tile2)) return CMD_ERROR; truelight@0: truelight@0: if (flags & DC_EXEC) { truelight@0: DoClearSquare(tile1); peter1138@8967: MakeWaterKeepingClass(tile2, st->owner); KUDr@5583: KUDr@5927: st->rect.AfterRemoveTile(st, tile1); KUDr@5927: st->rect.AfterRemoveTile(st, tile2); KUDr@5583: tron@3111: MarkTileDirtyByTile(tile2); truelight@0: truelight@0: st->dock_tile = 0; truelight@0: st->facilities &= ~FACIL_DOCK; truelight@0: smatz@8513: InvalidateWindowWidget(WC_STATION_VIEW, st->index, SVW_SHIPS); truelight@0: UpdateStationVirtCoordDirty(st); truelight@0: DeleteStationIfEmpty(st); truelight@0: } truelight@0: rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, _price.remove_dock); truelight@0: } truelight@0: truelight@0: #include "table/station_land.h" truelight@0: rubidium@7768: const DrawTileSprites *GetStationTileLayout(StationType st, byte gfx) peter1138@3763: { rubidium@7768: return &_station_display_datas[st][gfx]; peter1138@3763: } truelight@0: truelight@0: static void DrawTile_Station(TileInfo *ti) truelight@0: { tron@449: const DrawTileSprites *t = NULL; rubidium@7187: RoadTypes roadtypes; peter1138@8662: int32 total_offset; peter1138@8662: int32 custom_ground_offset; peter1138@8662: rubidium@7187: if (IsRailwayStation(ti->tile)) { peter1138@8662: const RailtypeInfo *rti = GetRailTypeInfo(GetRailType(ti->tile)); rubidium@7187: roadtypes = ROADTYPES_NONE; peter1138@8662: total_offset = rti->total_offset; peter1138@8662: custom_ground_offset = rti->custom_ground_offset; rubidium@7187: } else { peter1138@8962: roadtypes = IsRoadStop(ti->tile) ? GetRoadTypes(ti->tile) : ROADTYPES_NONE; peter1138@8662: total_offset = 0; peter1138@8662: custom_ground_offset = 0; rubidium@7187: } tron@449: uint32 relocation = 0; peter1138@3775: const Station *st = NULL; peter1138@3775: const StationSpec *statspec = NULL; tron@4227: PlayerID owner = GetTileOwner(ti->tile); tron@6395: peter1138@5919: SpriteID palette; Darkvater@4850: if (IsValidPlayer(owner)) { tron@4227: palette = PLAYER_SPRITE_COLOR(owner); tron@4227: } else { belugas@8291: /* Some stations are not owner by a player, namely oil rigs */ tron@4227: palette = PALETTE_TO_GREY; truelight@0: } truelight@0: belugas@8291: /* don't show foundation for docks */ tron@3636: if (ti->tileh != SLOPE_FLAT && !IsDock(ti->tile)) rubidium@7831: DrawFoundation(ti, FOUNDATION_LEVELED); truelight@0: peter1138@3568: if (IsCustomStationSpecIndex(ti->tile)) { belugas@8291: /* look for customization */ peter1138@3775: st = GetStationByTile(ti->tile); peter1138@3775: statspec = st->speclist[GetCustomStationSpecIndex(ti->tile)].spec; tron@449: tron@449: //debug("Cust-o-mized %p", statspec); tron@449: tron@449: if (statspec != NULL) { peter1138@3576: uint tile = GetStationGfx(ti->tile); tron@449: peter1138@3751: relocation = GetCustomStationRelocation(statspec, st, ti->tile); peter1138@3576: skidd13@8424: if (HasBit(statspec->callbackmask, CBM_STATION_SPRITE_LAYOUT)) { peter1138@3754: uint16 callback = GetStationCallback(CBID_STATION_SPRITE_LAYOUT, 0, 0, statspec, st, ti->tile); peter1138@4886: if (callback != CALLBACK_FAILED) tile = (callback & ~1) + GetRailStationAxis(ti->tile); peter1138@3754: } peter1138@3754: peter1138@3576: /* Ensure the chosen tile layout is valid for this custom station */ peter1138@3754: if (statspec->renderdata != NULL) { rubidium@5838: t = &statspec->renderdata[tile < statspec->tiles ? tile : (uint)GetRailStationAxis(ti->tile)]; peter1138@3754: } tron@449: } tron@449: } tron@449: rubidium@7768: if (t == NULL || t->seq == NULL) t = &_station_display_datas[GetStationType(ti->tile)][GetStationGfx(ti->tile)]; darkvater@384: frosch@8992: frosch@8992: if (IsBuoy(ti->tile) || IsDock(ti->tile)) { frosch@8992: if (ti->tileh == SLOPE_FLAT) { frosch@8992: DrawWaterClassGround(ti); frosch@8992: } else { frosch@8992: assert(IsDock(ti->tile)); frosch@8992: TileIndex water_tile = ti->tile + TileOffsByDiagDir(GetDockDirection(ti->tile)); frosch@8992: WaterClass wc = GetWaterClass(water_tile); frosch@8992: if (wc == WATER_CLASS_SEA) { frosch@8992: DrawShoreTile(ti->tileh); frosch@8992: } else { frosch@8992: DrawClearLandTile(ti, 3); frosch@8992: } frosch@8992: } peter1138@3775: } else { frosch@8992: SpriteID image = t->ground_sprite; frosch@8992: if (HasBit(image, SPRITE_MODIFIER_USE_OFFSET)) { frosch@8992: image += GetCustomStationGroundRelocation(statspec, st, ti->tile); frosch@8992: image += custom_ground_offset; frosch@8992: } else { frosch@8992: image += total_offset; frosch@8992: } frosch@8992: DrawGroundSprite(image, HasBit(image, PALETTE_MODIFIER_COLOR) ? palette : PAL_NONE); peter1138@3775: } tron@449: glx@3789: if (GetRailType(ti->tile) == RAILTYPE_ELECTRIC && IsStationTileElectrifiable(ti->tile)) DrawCatenary(ti); celestar@3355: skidd13@8424: if (HasBit(roadtypes, ROADTYPE_TRAM)) { rubidium@7187: Axis axis = GetRoadStopDir(ti->tile) == DIAGDIR_NE ? AXIS_X : AXIS_Y; skidd13@8424: DrawGroundSprite((HasBit(roadtypes, ROADTYPE_ROAD) ? SPR_TRAMWAY_OVERLAY : SPR_TRAMWAY_TRAM) + (axis ^ 1), PAL_NONE); rubidium@7187: DrawTramCatenary(ti, axis == AXIS_X ? ROAD_X : ROAD_Y); rubidium@7187: } rubidium@7187: tron@6395: const DrawTileSeqStruct *dtss; darkvater@384: foreach_draw_tile_seq(dtss, t->seq) { frosch@9066: SpriteID image = dtss->image.sprite; skidd13@8424: if (relocation == 0 || HasBit(image, SPRITE_MODIFIER_USE_OFFSET)) { peter1138@8662: image += total_offset; peter1138@3775: } else { peter1138@3775: image += relocation; peter1138@3775: } peter1138@3775: tron@6395: SpriteID pal; peter1138@8654: if (!(!HasBit(image, SPRITE_MODIFIER_OPAQUE) && IsTransparencySet(TO_BUILDINGS)) && HasBit(image, PALETTE_MODIFIER_COLOR)) { peter1138@5919: pal = palette; peter1138@5919: } else { frosch@9066: pal = dtss->image.pal; darkvater@384: } darkvater@384: truelight@0: if ((byte)dtss->delta_z != 0x80) { tron@4230: AddSortableSpriteToDraw( peter1138@5919: image, pal, tron@4230: ti->x + dtss->delta_x, ti->y + dtss->delta_y, tron@4230: dtss->size_x, dtss->size_y, rubidium@7829: dtss->size_z, ti->z + dtss->delta_z, peter1138@8654: !HasBit(image, SPRITE_MODIFIER_OPAQUE) && IsTransparencySet(TO_BUILDINGS) tron@4230: ); truelight@0: } else { belugas@8345: AddChildSpriteScreen(image, pal, dtss->delta_x, dtss->delta_y, IsTransparencySet(TO_BUILDINGS)); truelight@0: } truelight@0: } truelight@0: } truelight@0: rubidium@7768: void StationPickerDrawSprite(int x, int y, StationType st, RailType railtype, RoadType roadtype, int image) truelight@0: { peter1138@8662: int32 total_offset = 0; tron@6395: SpriteID pal = PLAYER_SPRITE_COLOR(_local_player); rubidium@7768: const DrawTileSprites *t = &_station_display_datas[st][image]; tron@6395: peter1138@8662: if (railtype != INVALID_RAILTYPE) { peter1138@8662: const RailtypeInfo *rti = GetRailTypeInfo(railtype); peter1138@8662: total_offset = rti->total_offset; peter1138@8662: } peter1138@8662: tron@6395: SpriteID img = t->ground_sprite; peter1138@8662: DrawSprite(img + total_offset, HasBit(img, PALETTE_MODIFIER_COLOR) ? pal : PAL_NONE, x, y); truelight@0: rubidium@7187: if (roadtype == ROADTYPE_TRAM) { rubidium@7187: DrawSprite(SPR_TRAMWAY_TRAM + (t->ground_sprite == SPR_ROAD_PAVED_STRAIGHT_X ? 1 : 0), PAL_NONE, x, y); rubidium@7187: } rubidium@7187: tron@6395: const DrawTileSeqStruct *dtss; darkvater@384: foreach_draw_tile_seq(dtss, t->seq) { truelight@0: Point pt = RemapCoords(dtss->delta_x, dtss->delta_y, dtss->delta_z); frosch@9066: DrawSprite(dtss->image.sprite + total_offset, pal, x + pt.x, y + pt.y); truelight@0: } truelight@0: } truelight@0: tron@4231: static uint GetSlopeZ_Station(TileIndex tile, uint x, uint y) truelight@0: { tron@4231: return GetTileMaxZ(tile); truelight@0: } truelight@0: rubidium@7831: static Foundation GetFoundation_Station(TileIndex tile, Slope tileh) dominik@39: { rubidium@7831: return FlatteningFoundation(tileh); dominik@39: } dominik@39: tron@1977: static void GetAcceptedCargo_Station(TileIndex tile, AcceptedCargo ac) truelight@0: { truelight@0: /* not used */ truelight@0: } truelight@0: tron@1977: static void GetTileDesc_Station(TileIndex tile, TileDesc *td) truelight@0: { tron@1901: td->owner = GetTileOwner(tile); tron@3315: td->build_date = GetStationByTile(tile)->build_date; tron@2049: tron@6395: StringID str; celestar@3334: switch (GetStationType(tile)) { celestar@3334: default: NOT_REACHED(); celestar@3334: case STATION_RAIL: str = STR_305E_RAILROAD_STATION; break; tron@3882: case STATION_AIRPORT: tron@3882: str = (IsHangar(tile) ? STR_305F_AIRCRAFT_HANGAR : STR_3060_AIRPORT); tron@3882: break; celestar@3334: case STATION_TRUCK: str = STR_3061_TRUCK_LOADING_AREA; break; celestar@3334: case STATION_BUS: str = STR_3062_BUS_STATION; break; celestar@3334: case STATION_OILRIG: str = STR_4807_OIL_RIG; break; celestar@3334: case STATION_DOCK: str = STR_3063_SHIP_DOCK; break; celestar@3334: case STATION_BUOY: str = STR_3069_BUOY; break; celestar@3334: } truelight@0: td->str = str; truelight@0: } truelight@0: truelight@0: rubidium@7179: static uint32 GetTileTrackStatus_Station(TileIndex tile, TransportType mode, uint sub_mode) tron@1977: { tron@1032: switch (mode) { tron@1032: case TRANSPORT_RAIL: tron@4077: if (IsRailwayStation(tile) && !IsStationTileBlocked(tile)) { celestar@3334: return TrackToTrackBits(GetRailStationTrack(tile)) * 0x101; tron@1032: } tron@1032: break; tron@1032: tron@1032: case TRANSPORT_WATER: belugas@8291: /* buoy is coded as a station, it is always on open water */ KUDr@6165: if (IsBuoy(tile)) { KUDr@6165: TrackBits ts = TRACK_BIT_ALL; belugas@8291: /* remove tracks that connect NE map edge */ KUDr@6165: if (TileX(tile) == 0) ts &= ~(TRACK_BIT_X | TRACK_BIT_UPPER | TRACK_BIT_RIGHT); belugas@8291: /* remove tracks that connect NW map edge */ KUDr@6165: if (TileY(tile) == 0) ts &= ~(TRACK_BIT_Y | TRACK_BIT_LEFT | TRACK_BIT_UPPER); KUDr@6165: return uint32(ts) * 0x101; KUDr@6165: } tron@1032: break; tron@1032: KUDr@3900: case TRANSPORT_ROAD: rubidium@7179: if ((GetRoadTypes(tile) & sub_mode) != 0 && IsRoadStopTile(tile)) { tron@4158: return AxisToTrackBits(DiagDirToAxis(GetRoadStopDir(tile))) * 0x101; tron@4077: } KUDr@3900: break; KUDr@3900: tron@1032: default: tron@1032: break; truelight@0: } tron@1032: celestar@3334: return 0; truelight@0: } truelight@0: tron@2660: tron@1977: static void TileLoop_Station(TileIndex tile) truelight@0: { belugas@8291: /* FIXME -- GetTileTrackStatus_Station -> animated stationtiles belugas@8291: * hardcoded.....not good */ rubidium@7768: switch (GetStationType(tile)) { rubidium@7768: case STATION_AIRPORT: rubidium@7768: switch (GetStationGfx(tile)) { rubidium@7768: case GFX_RADAR_LARGE_FIRST: rubidium@7768: case GFX_WINDSACK_FIRST : // for small airport rubidium@7768: case GFX_RADAR_INTERNATIONAL_FIRST: rubidium@7768: case GFX_RADAR_METROPOLITAN_FIRST: rubidium@7768: case GFX_RADAR_DISTRICTWE_FIRST: // radar district W-E airport rubidium@7768: case GFX_WINDSACK_INTERCON_FIRST : // for intercontinental airport rubidium@7768: AddAnimatedTile(tile); rubidium@7768: break; rubidium@7768: } tron@2660: break; tron@2660: frosch@8993: case STATION_DOCK: frosch@8993: if (GetTileSlope(tile, NULL) != SLOPE_FLAT) break; // only handle water part frosch@8993: /* FALL THROUGH */ rubidium@7768: case STATION_OILRIG: //(station part) rubidium@7768: case STATION_BUOY: tron@2660: TileLoop_Water(tile); tron@2660: break; tron@2660: tron@2660: default: break; tron@2660: } truelight@0: } truelight@0: truelight@0: tron@1977: static void AnimateTile_Station(TileIndex tile) truelight@0: { rubidium@6574: struct AnimData { tron@4467: StationGfx from; // first sprite tron@4467: StationGfx to; // last sprite tron@4467: byte delay; rubidium@6574: }; tron@4467: tron@4467: static const AnimData data[] = { tron@4467: { GFX_RADAR_LARGE_FIRST, GFX_RADAR_LARGE_LAST, 3 }, tron@4467: { GFX_WINDSACK_FIRST, GFX_WINDSACK_LAST, 1 }, tron@4467: { GFX_RADAR_INTERNATIONAL_FIRST, GFX_RADAR_INTERNATIONAL_LAST, 3 }, tron@4467: { GFX_RADAR_METROPOLITAN_FIRST, GFX_RADAR_METROPOLITAN_LAST, 3 }, tron@4467: { GFX_RADAR_DISTRICTWE_FIRST, GFX_RADAR_DISTRICTWE_LAST, 3 }, tron@4467: { GFX_WINDSACK_INTERCON_FIRST, GFX_WINDSACK_INTERCON_LAST, 1 } tron@4467: }; tron@4467: belugas@3545: StationGfx gfx = GetStationGfx(tile); tron@6395: tron@6395: for (const AnimData *i = data; i != endof(data); i++) { tron@4467: if (i->from <= gfx && gfx <= i->to) { tron@4467: if ((_tick_counter & i->delay) == 0) { tron@4467: SetStationGfx(tile, gfx < i->to ? gfx + 1 : i->from); tron@4467: MarkTileDirtyByTile(tile); tron@4467: } tron@4467: break; belugas@3545: } truelight@0: } truelight@0: } truelight@0: tron@3033: tron@1977: static void ClickTile_Station(TileIndex tile) truelight@0: { celestar@3334: if (IsHangar(tile)) { rubidium@6585: ShowDepotWindow(tile, VEH_AIRCRAFT); truelight@0: } else { tron@3315: ShowStationViewWindow(GetStationIndex(tile)); truelight@0: } truelight@0: } truelight@0: truelight@0: static const byte _enter_station_speedtable[12] = { truelight@0: 215, 195, 175, 155, 135, 115, 95, 75, 55, 35, 15, 0 truelight@0: }; truelight@0: rubidium@8615: static VehicleEnterTileStatus VehicleEnter_Station(Vehicle *v, TileIndex tile, int x, int y) truelight@0: { rubidium@6585: if (v->type == VEH_TRAIN) { celestar@3334: if (IsRailwayStation(tile) && IsFrontEngine(v) && Darkvater@4559: !IsCompatibleTrainStationTile(tile + TileOffsByDiagDir(DirToDiagDir(v->direction)), tile)) { tron@3315: StationID station_id = GetStationIndex(tile); tron@2989: rubidium@8798: if ((!(v->current_order.flags & OFB_NON_STOP) && !_patches.new_nonstop) || tron@4527: (v->current_order.type == OT_GOTO_STATION && v->current_order.dest == station_id)) { rubidium@8798: if (!(_patches.new_nonstop && v->current_order.flags & OFB_NON_STOP) && tron@555: v->current_order.type != OT_LEAVESTATION && tron@555: v->last_station_visited != station_id) { tron@3482: DiagDirection dir = DirToDiagDir(v->direction); tron@2989: truelight@0: x &= 0xF; truelight@0: y &= 0xF; truelight@193: tron@6432: if (DiagDirToAxis(dir) != AXIS_X) Swap(x, y); tron@3645: if (y == TILE_SIZE / 2) { tron@3645: if (dir != DIAGDIR_SE && dir != DIAGDIR_SW) x = TILE_SIZE - 1 - x; rubidium@8615: if (x == 12) return VETSB_ENTERED_STATION | (VehicleEnterTileStatus)(station_id << VETS_STATION_ID_OFFSET); /* enter station */ truelight@0: if (x < 12) { tron@2639: uint16 spd; tron@2639: truelight@0: v->vehstatus |= VS_TRAIN_SLOWING; truelight@0: spd = _enter_station_speedtable[x]; tron@2639: if (spd < v->cur_speed) v->cur_speed = spd; truelight@0: } truelight@0: } truelight@0: } truelight@193: } truelight@0: } rubidium@6585: } else if (v->type == VEH_ROAD) { rubidium@6402: if (v->u.road.state < RVSB_IN_ROAD_STOP && !IsReversingRoadTrackdir((Trackdir)v->u.road.state) && v->u.road.frame == 0) { maedhros@7353: if (IsRoadStop(tile) && IsRoadVehFront(v)) { peter1138@2671: /* Attempt to allocate a parking bay in a road stop */ celestar@1217: RoadStop *rs = GetRoadStopByTile(tile, GetRoadStopType(tile)); peter1138@2671: rubidium@6338: if (IsDriveThroughStopTile(tile)) { rubidium@6338: /* Vehicles entering a drive-through stop from the 'normal' side use first bay (bay 0). */ rubidium@6338: byte side = ((DirToDiagDir(v->direction) == ReverseDiagDir(GetRoadStopDir(tile))) == (v->u.road.overtaking == 0)) ? 0 : 1; rubidium@6338: rubidium@6338: if (!rs->IsFreeBay(side)) return VETSB_CANNOT_ENTER; rubidium@6338: rubidium@6338: /* Check if the vehicle is stopping at this road stop */ peter1138@6655: if (GetRoadStopType(tile) == (IsCargoInClass(v->cargo_type, CC_PASSENGERS) ? RoadStop::BUS : RoadStop::TRUCK) && rubidium@6338: v->current_order.dest == GetStationIndex(tile)) { skidd13@8427: SetBit(v->u.road.state, RVS_IS_STOPPING); rubidium@6338: rs->AllocateDriveThroughBay(side); rubidium@6338: } rubidium@6338: rubidium@6338: /* Indicate if vehicle is using second bay. */ skidd13@8427: if (side == 1) SetBit(v->u.road.state, RVS_USING_SECOND_BAY); rubidium@6338: /* Indicate a drive-through stop */ skidd13@8427: SetBit(v->u.road.state, RVS_IN_DT_ROAD_STOP); rubidium@6338: return VETSB_CONTINUE; rubidium@6338: } rubidium@6338: rubidium@6338: /* For normal (non drive-through) road stops */ rubidium@7965: /* Check if station is busy or if there are no free bays or whether it is a articulated vehicle. */ rubidium@7965: if (rs->IsEntranceBusy() || !rs->HasFreeBay() || RoadVehHasArticPart(v)) return VETSB_CANNOT_ENTER; truelight@0: skidd13@8427: SetBit(v->u.road.state, RVS_IN_ROAD_STOP); peter1138@2671: rubidium@6316: /* Allocate a bay and update the road state */ rubidium@6316: uint bay_nr = rs->AllocateBay(); rubidium@6326: SB(v->u.road.state, RVS_USING_SECOND_BAY, 1, bay_nr); rubidium@6316: rubidium@6316: /* Mark the station entrace as busy */ rubidium@6316: rs->SetEntranceBusy(true); truelight@0: } truelight@0: } truelight@0: } truelight@193: rubidium@6317: return VETSB_CONTINUE; truelight@0: } truelight@0: truelight@0: /* this function is called for one station each tick */ truelight@0: static void StationHandleBigTick(Station *st) truelight@0: { truelight@0: UpdateStationAcceptance(st, true); truelight@0: KUDr@5916: if (st->facilities == 0 && ++st->delete_ctr >= 8) delete st; celestar@1239: truelight@0: } truelight@0: tron@500: static inline void byte_inc_sat(byte *p) { byte b = *p + 1; if (b != 0) *p = b; } truelight@0: truelight@0: static void UpdateStationRating(Station *st) truelight@0: { truelight@0: bool waiting_changed = false; truelight@0: truelight@0: byte_inc_sat(&st->time_since_load); truelight@0: byte_inc_sat(&st->time_since_unload); truelight@0: tron@6395: GoodsEntry *ge = st->goods; truelight@0: do { truelight@6587: /* Slowly increase the rating back to his original level in the case we truelight@6587: * didn't deliver cargo yet to this station. This happens when a bribe truelight@6587: * failed while you didn't moved that cargo yet to a station. */ skidd13@8424: if (!HasBit(ge->acceptance_pickup, GoodsEntry::PICKUP) && ge->rating < INITIAL_STATION_RATING) { truelight@6587: ge->rating++; rubidium@7970: } rubidium@7970: truelight@6587: /* Only change the rating if we are moving this cargo */ skidd13@8424: if (HasBit(ge->acceptance_pickup, GoodsEntry::PICKUP)) { truelight@0: byte_inc_sat(&ge->days_since_pickup); truelight@0: tron@6395: int rating = 0; truelight@0: truelight@0: { truelight@0: int b = ge->last_speed; truelight@0: if ((b-=85) >= 0) truelight@0: rating += b >> 2; truelight@0: } truelight@0: truelight@0: { truelight@0: byte age = ge->last_age; truelight@0: (age >= 3) || truelight@0: (rating += 10, age >= 2) || truelight@0: (rating += 10, age >= 1) || truelight@0: (rating += 13, true); truelight@0: } truelight@0: skidd13@8424: if (IsValidPlayer(st->owner) && HasBit(st->town->statues, st->owner)) rating += 26; truelight@0: truelight@0: { truelight@0: byte days = ge->days_since_pickup; belugas@8291: if (st->last_vehicle_type == VEH_SHIP) days >>= 2; truelight@0: (days > 21) || truelight@0: (rating += 25, days > 12) || truelight@0: (rating += 25, days > 6) || truelight@0: (rating += 45, days > 3) || truelight@0: (rating += 35, true); truelight@0: } truelight@193: rubidium@7506: uint waiting = ge->cargo.Count(); tron@6395: (rating -= 90, waiting > 1500) || tron@6395: (rating += 55, waiting > 1000) || tron@6395: (rating += 35, waiting > 600) || tron@6395: (rating += 10, waiting > 300) || tron@6395: (rating += 20, waiting > 100) || tron@6395: (rating += 10, true); truelight@0: truelight@0: { rubidium@5838: int or_ = ge->rating; // old rating truelight@0: belugas@8291: /* only modify rating in steps of -2, -1, 0, 1 or 2 */ skidd13@8418: ge->rating = rating = or_ + Clamp(Clamp(rating, 0, 255) - or_, -2, 2); truelight@193: belugas@8291: /* if rating is <= 64 and more than 200 items waiting, belugas@8291: * remove some random amount of goods from the station */ truelight@0: if (rating <= 64 && waiting >= 200) { truelight@0: int dec = Random() & 0x1F; truelight@0: if (waiting < 400) dec &= 7; truelight@0: waiting -= dec + 1; truelight@0: waiting_changed = true; truelight@0: } truelight@0: belugas@8291: /* if rating is <= 127 and there are any items waiting, maybe remove some goods. */ truelight@0: if (rating <= 127 && waiting != 0) { truelight@0: uint32 r = Random(); peter1138@5911: if (rating <= (int)GB(r, 0, 7)) { rubidium@7506: /* Need to have int, otherwise it will just overflow etc. */ rubidium@7506: waiting = max((int)waiting - (int)GB(r, 8, 2) - 1, 0); truelight@0: waiting_changed = true; truelight@0: } truelight@0: } truelight@0: rubidium@7748: /* At some point we really must cap the cargo. Previously this rubidium@7748: * was a strict 4095, but now we'll have a less strict, but rubidium@7748: * increasingly agressive truncation of the amount of cargo. */ rubidium@7748: static const uint WAITING_CARGO_THRESHOLD = 1 << 12; rubidium@7748: static const uint WAITING_CARGO_CUT_FACTOR = 1 << 6; rubidium@7748: static const uint MAX_WAITING_CARGO = 1 << 15; rubidium@7748: rubidium@7748: if (waiting > WAITING_CARGO_THRESHOLD) { rubidium@7748: uint difference = waiting - WAITING_CARGO_THRESHOLD; rubidium@7748: waiting -= (difference / WAITING_CARGO_CUT_FACTOR); rubidium@7748: rubidium@7748: waiting = min(waiting, MAX_WAITING_CARGO); rubidium@7748: waiting_changed = true; rubidium@7748: } rubidium@7748: rubidium@7506: if (waiting_changed) ge->cargo.Truncate(waiting); truelight@0: } truelight@0: } truelight@0: } while (++ge != endof(st->goods)); truelight@193: tron@6395: StationID index = st->index; tron@4077: if (waiting_changed) { smatz@8512: InvalidateWindow(WC_STATION_VIEW, index); // update whole window tron@4077: } else { smatz@8512: InvalidateWindowWidget(WC_STATION_VIEW, index, SVW_RATINGLIST); // update only ratings list tron@4077: } truelight@0: } truelight@0: truelight@0: /* called for every station each tick */ truelight@0: static void StationHandleSmallTick(Station *st) truelight@0: { tron@2639: if (st->facilities == 0) return; truelight@0: tron@6395: byte b = st->delete_ctr + 1; truelight@0: if (b >= 185) b = 0; truelight@0: st->delete_ctr = b; truelight@0: tron@2639: if (b == 0) UpdateStationRating(st); truelight@0: } truelight@0: rubidium@6573: void OnTick_Station() truelight@0: { tron@2639: if (_game_mode == GM_EDITOR) return; truelight@0: tron@6395: uint i = _station_tick_ctr; matthijs@5247: if (++_station_tick_ctr > GetMaxStationIndex()) _station_tick_ctr = 0; truelight@0: truelight@4352: if (IsValidStationID(i)) StationHandleBigTick(GetStation(i)); truelight@0: tron@6395: Station *st; tron@6395: FOR_ALL_STATIONS(st) StationHandleSmallTick(st); truelight@0: } truelight@0: rubidium@6573: void StationMonthlyLoop() truelight@0: { truelight@0: } truelight@0: truelight@0: tron@2498: void ModifyStationRatingAround(TileIndex tile, PlayerID owner, int amount, uint radius) truelight@0: { truelight@0: Station *st; truelight@0: truelight@0: FOR_ALL_STATIONS(st) { truelight@4346: if (st->owner == owner && tron@1245: DistanceManhattan(tile, st->xy) <= radius) { peter1138@6676: for (CargoID i = 0; i < NUM_CARGO; i++) { tron@2549: GoodsEntry* ge = &st->goods[i]; tron@2549: rubidium@7970: if (ge->acceptance_pickup != 0) { skidd13@8418: ge->rating = Clamp(ge->rating + amount, 0, 255); truelight@0: } truelight@0: } truelight@0: } truelight@0: } truelight@0: } truelight@0: peter1138@6676: static void UpdateStationWaiting(Station *st, CargoID type, uint amount) truelight@0: { rubidium@7506: st->goods[type].cargo.Append(new CargoPacket(st->index, amount)); skidd13@8427: SetBit(st->goods[type].acceptance_pickup, GoodsEntry::PICKUP); rubidium@7506: truelight@0: InvalidateWindow(WC_STATION_VIEW, st->index); peter1138@7319: st->MarkTilesDirty(true); truelight@0: } truelight@0: peter1138@7593: static bool IsUniqueStationName(const char *name) peter1138@7593: { peter1138@7593: const Station *st; peter1138@7593: char buf[512]; peter1138@7593: peter1138@7593: FOR_ALL_STATIONS(st) { peter1138@7593: SetDParam(0, st->index); peter1138@7593: GetString(buf, STR_STATION, lastof(buf)); peter1138@7593: if (strcmp(buf, name) == 0) return false; peter1138@7593: } peter1138@7593: peter1138@7593: return true; peter1138@7593: } peter1138@7593: Darkvater@1786: /** Rename a station tron@3491: * @param tile unused belugas@6979: * @param flags operation to perform Darkvater@1786: * @param p1 station ID that is to be renamed Darkvater@1786: * @param p2 unused Darkvater@1786: */ rubidium@7439: CommandCost CmdRenameStation(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) truelight@0: { peter1138@7593: if (!IsValidStationID(p1) || StrEmpty(_cmd_text)) return CMD_ERROR; tron@6395: Station *st = GetStation(p1); tron@1774: truelight@4352: if (!CheckOwnership(st->owner)) return CMD_ERROR; tron@1774: peter1138@7593: if (!IsUniqueStationName(_cmd_text)) return_cmd_error(STR_NAME_MUST_BE_UNIQUE); peter1138@7593: truelight@0: if (flags & DC_EXEC) { peter1138@8754: free(st->name); peter1138@8754: st->name = strdup(_cmd_text); peter1138@8754: truelight@0: UpdateStationVirtCoord(st); celestar@3812: ResortStationLists(); truelight@0: MarkWholeScreenDirty(); truelight@0: } truelight@0: rubidium@7446: return CommandCost(); truelight@0: } truelight@0: rubidium@8387: /** rubidium@8387: * Find all (non-buoy) stations around an industry tile rubidium@8387: * rubidium@8387: * @param tile: Center tile to search from rubidium@8387: * @param w: Width of the center rubidium@8387: * @param h: Height of the center rubidium@8387: * rubidium@8387: * @return: Set of found stations rubidium@8387: */ rubidium@8387: StationSet FindStationsAroundIndustryTile(TileIndex tile, int w, int h) truelight@0: { rubidium@8387: StationSet station_set; rubidium@8387: rubidium@8387: int w_prod; // width and height of the "producer" of the cargo tron@3000: int h_prod; Celestar@568: int max_rad; Celestar@568: if (_patches.modified_catchment) { Celestar@568: w_prod = w; Celestar@568: h_prod = h; rubidium@7994: w += 2 * MAX_CATCHMENT; rubidium@7994: h += 2 * MAX_CATCHMENT; rubidium@7994: max_rad = MAX_CATCHMENT; Celestar@568: } else { tron@3000: w_prod = 0; tron@3000: h_prod = 0; tron@3000: w += 8; tron@3000: h += 8; Celestar@568: max_rad = 4; Celestar@568: } Celestar@568: tron@1981: BEGIN_TILE_LOOP(cur_tile, w, h, tile - TileDiffXY(max_rad, max_rad)) truelight@0: cur_tile = TILE_MASK(cur_tile); tron@3000: if (!IsTileType(cur_tile, MP_STATION)) continue; tron@3000: tron@6395: Station *st = GetStationByTile(cur_tile); tron@6395: rubidium@8387: if (st->IsBuoy()) continue; // bouys don't accept cargo rubidium@8387: rubidium@8387: rubidium@8387: if (_patches.modified_catchment) { rubidium@8387: /* min and max coordinates of the producer relative */ rubidium@8387: const int x_min_prod = max_rad + 1; rubidium@8387: const int x_max_prod = max_rad + w_prod; rubidium@8387: const int y_min_prod = max_rad + 1; rubidium@8387: const int y_max_prod = max_rad + h_prod; rubidium@8387: rubidium@8387: int rad = FindCatchmentRadius(st); rubidium@8387: rubidium@8387: int x_dist = min(w_cur - x_min_prod, x_max_prod - w_cur); rubidium@8387: if (w_cur < x_min_prod) { rubidium@8387: x_dist = x_min_prod - w_cur; rubidium@8387: } else if (w_cur > x_max_prod) { rubidium@8387: x_dist = w_cur - x_max_prod; truelight@0: } rubidium@8387: rubidium@8387: if (x_dist > rad) continue; rubidium@8387: rubidium@8387: int y_dist = min(h_cur - y_min_prod, y_max_prod - h_cur); rubidium@8387: if (h_cur < y_min_prod) { rubidium@8387: y_dist = y_min_prod - h_cur; rubidium@8387: } else if (h_cur > y_max_prod) { rubidium@8387: y_dist = h_cur - y_max_prod; rubidium@8387: } rubidium@8387: rubidium@8387: if (y_dist > rad) continue; truelight@0: } rubidium@8387: rubidium@8387: /* Insert the station in the set. This will fail if it has rubidium@8387: * already been added. rubidium@8387: */ rubidium@8387: station_set.insert(st); rubidium@8387: tron@1981: END_TILE_LOOP(cur_tile, w, h, tile - TileDiffXY(max_rad, max_rad)) truelight@0: rubidium@8387: return station_set; rubidium@8387: } rubidium@8387: rubidium@8387: uint MoveGoodsToStation(TileIndex tile, int w, int h, CargoID type, uint amount) rubidium@8387: { rubidium@8387: Station *st1 = NULL; // Station with best rating rubidium@8387: Station *st2 = NULL; // Second best station rubidium@8387: uint best_rating1 = 0; // rating of st1 rubidium@8387: uint best_rating2 = 0; // rating of st2 rubidium@8387: rubidium@8387: StationSet all_stations = FindStationsAroundIndustryTile(tile, w, h); rubidium@8387: for (StationSet::iterator st_iter = all_stations.begin(); st_iter != all_stations.end(); ++st_iter) { rubidium@8387: Station *st = *st_iter; rubidium@8387: rubidium@8387: /* Is the station reserved exclusively for somebody else? */ rubidium@8387: if (st->town->exclusive_counter > 0 && st->town->exclusivity != st->owner) continue; rubidium@8387: rubidium@8387: if (st->goods[type].rating == 0) continue; // Lowest possible rating, better not to give cargo anymore rubidium@8387: rubidium@8387: if (_patches.selectgoods && st->goods[type].last_speed == 0) continue; // Selectively servicing stations, and not this one rubidium@8387: rubidium@8387: if (IsCargoInClass(type, CC_PASSENGERS)) { rubidium@8387: if (st->facilities == FACIL_TRUCK_STOP) continue; // passengers are never served by just a truck stop rubidium@8387: } else { rubidium@8387: if (st->facilities == FACIL_BUS_STOP) continue; // non-passengers are never served by just a bus stop rubidium@8387: } rubidium@8387: rubidium@8387: /* This station can be used, add it to st1/st2 */ rubidium@8387: if (st1 == NULL || st->goods[type].rating >= best_rating1) { rubidium@8387: st2 = st1; best_rating2 = best_rating1; st1 = st; best_rating1 = st->goods[type].rating; rubidium@8387: } else if (st2 == NULL || st->goods[type].rating >= best_rating2) { rubidium@8387: st2 = st; best_rating2 = st->goods[type].rating; rubidium@8387: } rubidium@8387: } rubidium@8387: truelight@0: /* no stations around at all? */ rubidium@8387: if (st1 == NULL) return 0; rubidium@8387: rubidium@8387: if (st2 == NULL) { truelight@0: /* only one station around */ rubidium@8387: uint moved = amount * best_rating1 / 256 + 1; rubidium@8387: UpdateStationWaiting(st1, type, moved); truelight@0: return moved; truelight@0: } truelight@0: rubidium@8387: /* several stations around, the best two (highest rating) are in st1 and st2 */ truelight@0: assert(st1 != NULL); truelight@0: assert(st2 != NULL); rubidium@8387: assert(best_rating1 != 0 || best_rating2 != 0); truelight@0: truelight@0: /* the 2nd highest one gets a penalty */ truelight@0: best_rating2 >>= 1; truelight@0: truelight@0: /* amount given to station 1 */ rubidium@8387: uint t = (best_rating1 * (amount + 1)) / (best_rating1 + best_rating2); tron@6395: tron@6395: uint moved = 0; truelight@0: if (t != 0) { rubidium@8387: moved = t * best_rating1 / 256 + 1; truelight@0: amount -= t; truelight@193: UpdateStationWaiting(st1, type, moved); truelight@0: } truelight@0: truelight@0: if (amount != 0) { tron@3000: amount = amount * best_rating2 / 256 + 1; tron@3000: moved += amount; truelight@0: UpdateStationWaiting(st2, type, amount); truelight@0: } truelight@0: truelight@0: return moved; truelight@0: } truelight@0: tron@1977: void BuildOilRig(TileIndex tile) truelight@0: { KUDr@5916: Station *st = new Station(); Darkvater@2427: Darkvater@2427: if (st == NULL) { Darkvater@5568: DEBUG(misc, 0, "Can't allocate station for oilrig at 0x%X, reverting to oilrig only", tile); Darkvater@2427: return; truelight@0: } Darkvater@2427: Darkvater@2427: st->town = ClosestTownFromTile(tile, (uint)-1); Darkvater@2427: st->sign.width_1 = 0; Darkvater@2427: rubidium@8322: if (!GenerateStationName(st, tile, STATIONNAMING_OILRIG)) { rubidium@8322: DEBUG(misc, 0, "Can't allocate station-name for oilrig at 0x%X, reverting to oilrig only", tile); rubidium@8322: delete st; rubidium@8322: return; rubidium@8322: } rubidium@8322: celestar@3334: MakeOilrig(tile, st->index); Darkvater@2427: Darkvater@2427: st->owner = OWNER_NONE; Darkvater@2427: st->airport_flags = 0; Darkvater@2427: st->airport_type = AT_OILRIG; Darkvater@2427: st->xy = tile; Darkvater@2427: st->bus_stops = NULL; Darkvater@2427: st->truck_stops = NULL; Darkvater@2427: st->airport_tile = tile; Darkvater@2427: st->dock_tile = tile; Darkvater@2427: st->train_tile = 0; Darkvater@2427: st->had_vehicle_of_type = 0; Darkvater@2427: st->time_since_load = 255; Darkvater@2427: st->time_since_unload = 255; Darkvater@2427: st->delete_ctr = 0; rubidium@6585: st->last_vehicle_type = VEH_INVALID; Darkvater@2427: st->facilities = FACIL_AIRPORT | FACIL_DOCK; Darkvater@2427: st->build_date = _date; Darkvater@2427: peter1138@6676: for (CargoID j = 0; j < NUM_CARGO; j++) { rubidium@7970: st->goods[j].acceptance_pickup = 0; rubidium@7506: st->goods[j].days_since_pickup = 255; truelight@6587: st->goods[j].rating = INITIAL_STATION_RATING; Darkvater@2427: st->goods[j].last_speed = 0; Darkvater@2427: st->goods[j].last_age = 255; Darkvater@2427: } Darkvater@2427: Darkvater@2427: UpdateStationVirtCoordDirty(st); Darkvater@2427: UpdateStationAcceptance(st, false); truelight@0: } truelight@0: tron@1977: void DeleteOilRig(TileIndex tile) truelight@0: { tron@3315: Station* st = GetStationByTile(tile); truelight@0: tron@6138: MakeWater(tile); truelight@0: truelight@0: st->dock_tile = 0; truelight@0: st->airport_tile = 0; truelight@0: st->facilities &= ~(FACIL_AIRPORT | FACIL_DOCK); truelight@0: st->airport_flags = 0; truelight@0: UpdateStationVirtCoordDirty(st); KUDr@5916: if (st->facilities == 0) delete st; truelight@0: } truelight@0: Darkvater@2436: static void ChangeTileOwner_Station(TileIndex tile, PlayerID old_player, PlayerID new_player) truelight@0: { tron@1901: if (!IsTileOwner(tile, old_player)) return; truelight@0: Darkvater@4848: if (new_player != PLAYER_SPECTATOR) { tron@3315: Station* st = GetStationByTile(tile); tron@3315: tron@1902: SetTileOwner(tile, new_player); smatz@9014: if (!IsBuoy(tile)) st->owner = new_player; // do not set st->owner for buoys celestar@3812: RebuildStationLists(); darkvater@65: InvalidateWindowClasses(WC_STATION_LIST); truelight@0: } else { smatz@9016: if (IsDriveThroughStopTile(tile)) { smatz@9016: /* Remove the drive-through road stop */ smatz@9015: DoCommand(tile, 0, (GetStationType(tile) == STATION_TRUCK) ? RoadStop::TRUCK : RoadStop::BUS, DC_EXEC | DC_BANKRUPT, CMD_REMOVE_ROAD_STOP); smatz@9016: assert(IsTileType(tile, MP_ROAD)); smatz@9016: /* Change owner of tile and all roadtypes */ smatz@9016: ChangeTileOwner(tile, old_player, new_player); rubidium@6442: } else { smatz@9015: DoCommand(tile, 0, 0, DC_EXEC | DC_BANKRUPT, CMD_LANDSCAPE_CLEAR); smatz@9016: /* Set tile owner of water under (now removed) buoy and dock to OWNER_NONE. smatz@9016: * Update owner of buoy if it was not removed (was in orders). smatz@9016: * Do not update when owned by OWNER_WATER (sea and rivers). */ smatz@9016: if ((IsTileType(tile, MP_WATER) || IsBuoyTile(tile)) && IsTileOwner(tile, old_player)) SetTileOwner(tile, OWNER_NONE); rubidium@6442: } truelight@0: } truelight@0: } truelight@0: rubidium@6442: /** rubidium@6442: * Check if a drive-through road stop tile can be cleared. rubidium@6442: * Road stops built on town-owned roads check the conditions rubidium@6442: * that would allow clearing of the original road. rubidium@6442: * @param tile road stop tile to check rubidium@6442: * @return true if the road can be cleared rubidium@6442: */ rubidium@6442: static bool CanRemoveRoadWithStop(TileIndex tile) rubidium@6442: { rubidium@6442: /* The road can always be cleared if it was not a town-owned road */ rubidium@6442: if (!GetStopBuiltOnTownRoad(tile)) return true; rubidium@6442: rubidium@6442: bool edge_road; rubidium@7157: return CheckAllowRemoveRoad(tile, GetAnyRoadBits(tile, ROADTYPE_ROAD), OWNER_TOWN, &edge_road, ROADTYPE_ROAD) && rubidium@7157: CheckAllowRemoveRoad(tile, GetAnyRoadBits(tile, ROADTYPE_TRAM), OWNER_TOWN, &edge_road, ROADTYPE_TRAM); rubidium@6442: } rubidium@6442: rubidium@7439: static CommandCost ClearTile_Station(TileIndex tile, byte flags) tron@1977: { truelight@0: if (flags & DC_AUTO) { celestar@3334: switch (GetStationType(tile)) { celestar@3334: case STATION_RAIL: return_cmd_error(STR_300B_MUST_DEMOLISH_RAILROAD); celestar@3334: case STATION_AIRPORT: return_cmd_error(STR_300E_MUST_DEMOLISH_AIRPORT_FIRST); frosch@9059: case STATION_TRUCK: return_cmd_error(HasTileRoadType(tile, ROADTYPE_TRAM) ? STR_MUST_DEMOLISH_CARGO_TRAM_STATION : STR_3047_MUST_DEMOLISH_TRUCK_STATION); frosch@9059: case STATION_BUS: return_cmd_error(HasTileRoadType(tile, ROADTYPE_TRAM) ? STR_MUST_DEMOLISH_PASSENGER_TRAM_STATION : STR_3046_MUST_DEMOLISH_BUS_STATION); celestar@3334: case STATION_BUOY: return_cmd_error(STR_306A_BUOY_IN_THE_WAY); celestar@3334: case STATION_DOCK: return_cmd_error(STR_304D_MUST_DEMOLISH_DOCK_FIRST); celestar@3334: case STATION_OILRIG: celestar@3334: SetDParam(0, STR_4807_OIL_RIG); celestar@3334: return_cmd_error(STR_4800_IN_THE_WAY); celestar@3334: } truelight@0: } truelight@0: tron@6395: Station *st = GetStationByTile(tile); truelight@0: celestar@3334: switch (GetStationType(tile)) { celestar@3334: case STATION_RAIL: return RemoveRailroadStation(st, tile, flags); celestar@3334: case STATION_AIRPORT: return RemoveAirport(st, flags); celestar@3334: case STATION_TRUCK: rubidium@6442: if (IsDriveThroughStopTile(tile) && !CanRemoveRoadWithStop(tile)) rubidium@6338: return_cmd_error(STR_3047_MUST_DEMOLISH_TRUCK_STATION); rubidium@6338: return RemoveRoadStop(st, flags, tile); rubidium@6338: case STATION_BUS: rubidium@6442: if (IsDriveThroughStopTile(tile) && !CanRemoveRoadWithStop(tile)) rubidium@6338: return_cmd_error(STR_3046_MUST_DEMOLISH_BUS_STATION); rubidium@6338: return RemoveRoadStop(st, flags, tile); celestar@3334: case STATION_BUOY: return RemoveBuoy(st, flags); celestar@3334: case STATION_DOCK: return RemoveDock(st, flags); celestar@3334: default: break; celestar@3334: } truelight@0: truelight@0: return CMD_ERROR; truelight@0: } truelight@0: rubidium@6573: void InitializeStations() truelight@0: { truelight@1272: /* Clean the station pool and create 1 block in it */ rubidium@7875: _Station_pool.CleanPool(); rubidium@7875: _Station_pool.AddBlockToPool(); truelight@919: truelight@1284: /* Clean the roadstop pool and create 1 block in it */ rubidium@7875: _RoadStop_pool.CleanPool(); rubidium@7875: _RoadStop_pool.AddBlockToPool(); darkvater@243: truelight@0: _station_tick_ctr = 0; darkvater@243: truelight@0: } truelight@0: truelight@0: rubidium@6573: void AfterLoadStations() peter1138@3765: { tron@6395: /* Update the speclists of all stations to point to the currently loaded custom stations. */ peter1138@3765: Station *st; peter1138@3765: FOR_ALL_STATIONS(st) { tron@6395: for (uint i = 0; i < st->num_specs; i++) { peter1138@3765: if (st->speclist[i].grfid == 0) continue; peter1138@3765: peter1138@3765: st->speclist[i].spec = GetCustomStationSpecByGrf(st->speclist[i].grfid, st->speclist[i].localidx); peter1138@3765: } rubidium@7506: rubidium@7506: for (CargoID c = 0; c < NUM_CARGO; c++) st->goods[c].cargo.InvalidateCache(); peter1138@3765: } peter1138@3765: } peter1138@3765: rubidium@7990: static CommandCost TerraformTile_Station(TileIndex tile, uint32 flags, uint z_new, Slope tileh_new) rubidium@7990: { rubidium@8078: if (_patches.build_on_slopes && AutoslopeEnabled()) { rubidium@8078: /* TODO: If you implement newgrf callback 149 'land slope check', you have to decide what to do with it here. rubidium@8078: * TTDP does not call it. rubidium@8078: */ rubidium@8078: if (!IsSteepSlope(tileh_new) && (GetTileMaxZ(tile) == z_new + GetSlopeMaxZ(tileh_new))) { rubidium@8078: switch (GetStationType(tile)) { rubidium@8078: case STATION_RAIL: { rubidium@8078: DiagDirection direction = AxisToDiagDir(GetRailStationAxis(tile)); rubidium@8078: if (!AutoslopeCheckForEntranceEdge(tile, z_new, tileh_new, direction)) break; rubidium@8078: if (!AutoslopeCheckForEntranceEdge(tile, z_new, tileh_new, ReverseDiagDir(direction))) break; rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, _price.terraform); rubidium@8078: } rubidium@8078: rubidium@8078: case STATION_AIRPORT: rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, _price.terraform); rubidium@8078: rubidium@8078: case STATION_TRUCK: rubidium@8078: case STATION_BUS: { rubidium@8078: DiagDirection direction = GetRoadStopDir(tile); rubidium@8078: if (!AutoslopeCheckForEntranceEdge(tile, z_new, tileh_new, direction)) break; rubidium@8078: if (IsDriveThroughStopTile(tile)) { rubidium@8078: if (!AutoslopeCheckForEntranceEdge(tile, z_new, tileh_new, ReverseDiagDir(direction))) break; rubidium@8078: } rubidium@8726: return CommandCost(EXPENSES_CONSTRUCTION, _price.terraform); rubidium@8078: } rubidium@8078: rubidium@8078: default: break; rubidium@8078: } rubidium@8078: } rubidium@8078: } rubidium@7990: return DoCommand(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR); rubidium@7990: } rubidium@7990: peter1138@3765: rubidium@5838: extern const TileTypeProcs _tile_type_station_procs = { belugas@3554: DrawTile_Station, /* draw_tile_proc */ belugas@3554: GetSlopeZ_Station, /* get_slope_z_proc */ belugas@3554: ClearTile_Station, /* clear_tile_proc */ belugas@3554: GetAcceptedCargo_Station, /* get_accepted_cargo_proc */ belugas@3554: GetTileDesc_Station, /* get_tile_desc_proc */ belugas@3554: GetTileTrackStatus_Station, /* get_tile_track_status_proc */ belugas@3554: ClickTile_Station, /* click_tile_proc */ belugas@3554: AnimateTile_Station, /* animate_tile_proc */ belugas@3554: TileLoop_Station, /* tile_loop_clear */ belugas@3554: ChangeTileOwner_Station, /* change_tile_owner_clear */ belugas@3554: NULL, /* get_produced_cargo_proc */ belugas@3554: VehicleEnter_Station, /* vehicle_enter_tile_proc */ rubidium@7831: GetFoundation_Station, /* get_foundation_proc */ rubidium@7990: TerraformTile_Station, /* terraform_tile_proc */ truelight@0: }; truelight@0: Darkvater@1881: static const SaveLoad _roadstop_desc[] = { celestar@1217: SLE_VAR(RoadStop,xy, SLE_UINT32), tron@5969: SLE_CONDNULL(1, 0, 44), celestar@1217: SLE_VAR(RoadStop,status, SLE_UINT8), truelight@1285: /* Index was saved in some versions, but this is not needed */ Darkvater@3222: SLE_CONDNULL(4, 0, 8), tron@5967: SLE_CONDNULL(2, 0, 44), tron@3479: SLE_CONDNULL(1, 0, 25), celestar@1217: celestar@1217: SLE_REF(RoadStop,next, REF_ROADSTOPS), tron@6118: SLE_CONDNULL(2, 0, 44), celestar@1217: celestar@3431: SLE_CONDNULL(4, 0, 24), celestar@3475: SLE_CONDNULL(1, 25, 25), celestar@1217: celestar@1217: SLE_END() celestar@1217: }; truelight@0: Darkvater@1881: static const SaveLoad _station_desc[] = { rubidium@4344: SLE_CONDVAR(Station, xy, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@4344: SLE_CONDVAR(Station, xy, SLE_UINT32, 6, SL_MAX_VERSION), tron@6130: SLE_CONDNULL(4, 0, 5), // bus/lorry tile rubidium@4344: SLE_CONDVAR(Station, train_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@4344: SLE_CONDVAR(Station, train_tile, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@4344: SLE_CONDVAR(Station, airport_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@4344: SLE_CONDVAR(Station, airport_tile, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@4344: SLE_CONDVAR(Station, dock_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@4344: SLE_CONDVAR(Station, dock_tile, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@4344: SLE_REF(Station, town, REF_TOWN), rubidium@4344: SLE_VAR(Station, trainst_w, SLE_UINT8), rubidium@4344: SLE_CONDVAR(Station, trainst_h, SLE_UINT8, 2, SL_MAX_VERSION), truelight@0: belugas@8291: /* alpha_order was stored here in savegame format 0 - 3 */ Darkvater@3222: SLE_CONDNULL(1, 0, 3), truelight@0: rubidium@4344: SLE_VAR(Station, string_id, SLE_STRINGID), peter1138@8754: SLE_CONDSTR(Station, name, SLE_STR, 0, 84, SL_MAX_VERSION), rubidium@4344: SLE_VAR(Station, had_vehicle_of_type, SLE_UINT16), rubidium@4344: rubidium@4344: SLE_VAR(Station, time_since_load, SLE_UINT8), rubidium@4344: SLE_VAR(Station, time_since_unload, SLE_UINT8), rubidium@4344: SLE_VAR(Station, delete_ctr, SLE_UINT8), rubidium@4344: SLE_VAR(Station, owner, SLE_UINT8), rubidium@4344: SLE_VAR(Station, facilities, SLE_UINT8), rubidium@4344: SLE_VAR(Station, airport_type, SLE_UINT8), celestar@1217: tron@6129: SLE_CONDNULL(2, 0, 5), // Truck/bus stop status tron@6128: SLE_CONDNULL(1, 0, 4), // Blocked months rubidium@4344: celestar@6321: SLE_CONDVAR(Station, airport_flags, SLE_VAR_U64 | SLE_FILE_U16, 0, 2), celestar@6321: SLE_CONDVAR(Station, airport_flags, SLE_VAR_U64 | SLE_FILE_U32, 3, 45), celestar@6321: SLE_CONDVAR(Station, airport_flags, SLE_UINT64, 46, SL_MAX_VERSION), belugas@3554: celestar@3580: SLE_CONDNULL(2, 0, 25), /* Ex last-vehicle */ rubidium@4344: SLE_CONDVAR(Station, last_vehicle_type, SLE_UINT8, 26, SL_MAX_VERSION), belugas@3554: belugas@8291: /* Was custom station class and id */ peter1138@3574: SLE_CONDNULL(2, 3, 25), rubidium@4344: SLE_CONDVAR(Station, build_date, SLE_FILE_U16 | SLE_VAR_I32, 3, 30), rubidium@4344: SLE_CONDVAR(Station, build_date, SLE_INT32, 31, SL_MAX_VERSION), rubidium@4344: rubidium@4344: SLE_CONDREF(Station, bus_stops, REF_ROADSTOPS, 6, SL_MAX_VERSION), rubidium@4344: SLE_CONDREF(Station, truck_stops, REF_ROADSTOPS, 6, SL_MAX_VERSION), celestar@1217: peter1138@3687: /* Used by newstations for graphic variations */ rubidium@4344: SLE_CONDVAR(Station, random_bits, SLE_UINT16, 27, SL_MAX_VERSION), rubidium@4344: SLE_CONDVAR(Station, waiting_triggers, SLE_UINT8, 27, SL_MAX_VERSION), rubidium@4344: SLE_CONDVAR(Station, num_specs, SLE_UINT8, 27, SL_MAX_VERSION), peter1138@3687: rubidium@6996: SLE_CONDLST(Station, loading_vehicles, REF_VEHICLE, 57, SL_MAX_VERSION), rubidium@6996: belugas@8291: /* reserve extra space in savegame here. (currently 32 bytes) */ Darkvater@3222: SLE_CONDNULL(32, 2, SL_MAX_VERSION), truelight@0: truelight@0: SLE_END() truelight@0: }; truelight@0: rubidium@7506: static uint16 _waiting_acceptance; rubidium@7506: static uint16 _cargo_source; rubidium@7506: static uint32 _cargo_source_xy; rubidium@7506: static uint16 _cargo_days; rubidium@7506: static Money _cargo_feeder_share; rubidium@7506: peter1138@3765: static const SaveLoad _station_speclist_desc[] = { peter1138@3765: SLE_CONDVAR(StationSpecList, grfid, SLE_UINT32, 27, SL_MAX_VERSION), peter1138@3765: SLE_CONDVAR(StationSpecList, localidx, SLE_UINT8, 27, SL_MAX_VERSION), peter1138@3765: peter1138@3765: SLE_END() peter1138@3765: }; peter1138@3765: truelight@0: rubidium@7987: void SaveLoad_STNS(Station *st) truelight@0: { rubidium@7987: static const SaveLoad _goods_desc[] = { rubidium@7987: SLEG_CONDVAR( _waiting_acceptance, SLE_UINT16, 0, 67), rubidium@7987: SLE_CONDVAR(GoodsEntry, acceptance_pickup, SLE_UINT8, 68, SL_MAX_VERSION), rubidium@7987: SLE_CONDNULL(2, 51, 67), rubidium@7987: SLE_VAR(GoodsEntry, days_since_pickup, SLE_UINT8), rubidium@7987: SLE_VAR(GoodsEntry, rating, SLE_UINT8), rubidium@7987: SLEG_CONDVAR( _cargo_source, SLE_FILE_U8 | SLE_VAR_U16, 0, 6), rubidium@7987: SLEG_CONDVAR( _cargo_source, SLE_UINT16, 7, 67), rubidium@7987: SLEG_CONDVAR( _cargo_source_xy, SLE_UINT32, 44, 67), rubidium@7987: SLEG_CONDVAR( _cargo_days, SLE_UINT8, 0, 67), rubidium@7987: SLE_VAR(GoodsEntry, last_speed, SLE_UINT8), rubidium@7987: SLE_VAR(GoodsEntry, last_age, SLE_UINT8), rubidium@7987: SLEG_CONDVAR( _cargo_feeder_share, SLE_FILE_U32 | SLE_VAR_I64, 14, 64), rubidium@7987: SLEG_CONDVAR( _cargo_feeder_share, SLE_INT64, 65, 67), rubidium@7987: SLE_CONDLST(GoodsEntry, cargo.packets, REF_CARGO_PACKET, 68, SL_MAX_VERSION), rubidium@7987: rubidium@7987: SLE_END() rubidium@7987: }; rubidium@7987: rubidium@7987: truelight@0: SlObject(st, _station_desc); peter1138@6959: rubidium@7506: _waiting_acceptance = 0; rubidium@7506: peter1138@6959: uint num_cargo = CheckSavegameVersion(55) ? 12 : NUM_CARGO; peter1138@6959: for (CargoID i = 0; i < num_cargo; i++) { rubidium@7506: GoodsEntry *ge = &st->goods[i]; rubidium@7506: SlObject(ge, _goods_desc); rubidium@7509: if (CheckSavegameVersion(68)) { skidd13@8424: SB(ge->acceptance_pickup, GoodsEntry::ACCEPTANCE, 1, HasBit(_waiting_acceptance, 15)); rubidium@7506: if (GB(_waiting_acceptance, 0, 12) != 0) { rubidium@7506: /* Don't construct the packet with station here, because that'll fail with old savegames */ rubidium@7506: CargoPacket *cp = new CargoPacket(); rubidium@7506: /* In old versions, enroute_from used 0xFF as INVALID_STATION */ rubidium@7506: cp->source = (CheckSavegameVersion(7) && _cargo_source == 0xFF) ? INVALID_STATION : _cargo_source; rubidium@7506: cp->count = GB(_waiting_acceptance, 0, 12); rubidium@7506: cp->days_in_transit = _cargo_days; rubidium@7506: cp->feeder_share = _cargo_feeder_share; rubidium@7506: cp->source_xy = _cargo_source_xy; rubidium@7506: cp->days_in_transit = _cargo_days; rubidium@7506: cp->feeder_share = _cargo_feeder_share; rubidium@7970: SB(ge->acceptance_pickup, GoodsEntry::PICKUP, 1, 1); rubidium@7506: ge->cargo.Append(cp); rubidium@7506: } rubidium@7506: } truelight@1266: } peter1138@3765: peter1138@3765: if (st->num_specs != 0) { peter1138@3765: /* Allocate speclist memory when loading a game */ KUDr@5860: if (st->speclist == NULL) st->speclist = CallocT(st->num_specs); tron@6395: for (uint i = 0; i < st->num_specs; i++) { tron@6395: SlObject(&st->speclist[i], _station_speclist_desc); tron@6395: } peter1138@3765: } truelight@0: } truelight@0: rubidium@6573: static void Save_STNS() truelight@0: { truelight@0: Station *st; belugas@8291: /* Write the stations */ truelight@0: FOR_ALL_STATIONS(st) { truelight@4346: SlSetArrayIndex(st->index); truelight@4346: SlAutolength((AutolengthProc*)SaveLoad_STNS, st); truelight@0: } truelight@0: } truelight@0: rubidium@6573: static void Load_STNS() truelight@0: { truelight@0: int index; truelight@0: while ((index = SlIterateArray()) != -1) { KUDr@5916: Station *st = new (index) Station(); KUDr@5916: truelight@0: SaveLoad_STNS(st); truelight@0: belugas@8291: /* this means it's an oldstyle savegame without support for nonuniform stations */ tron@2639: if (st->train_tile != 0 && st->trainst_h == 0) { tron@3033: uint w = GB(st->trainst_w, 4, 4); tron@3033: uint h = GB(st->trainst_w, 0, 4); tron@3033: tron@6432: if (GetRailStationAxis(st->train_tile) != AXIS_X) Swap(w, h); truelight@0: st->trainst_w = w; truelight@0: st->trainst_h = h; truelight@0: } truelight@0: } truelight@919: tron@1472: /* This is to ensure all pointers are within the limits of _stations_size */ matthijs@5247: if (_station_tick_ctr > GetMaxStationIndex()) _station_tick_ctr = 0; truelight@0: } truelight@0: rubidium@6573: static void Save_ROADSTOP() celestar@1217: { truelight@1284: RoadStop *rs; truelight@1284: truelight@1284: FOR_ALL_ROADSTOPS(rs) { truelight@4346: SlSetArrayIndex(rs->index); truelight@4346: SlObject(rs, _roadstop_desc); celestar@1217: } celestar@1217: } celestar@1217: rubidium@6573: static void Load_ROADSTOP() celestar@1217: { celestar@1217: int index; celestar@1217: truelight@1284: while ((index = SlIterateArray()) != -1) { tron@5967: RoadStop *rs = new (index) RoadStop(INVALID_TILE); celestar@5959: truelight@1284: SlObject(rs, _roadstop_desc); truelight@1284: } celestar@1217: } celestar@1217: rubidium@5838: extern const ChunkHandler _station_chunk_handlers[] = { celestar@1217: { 'STNS', Save_STNS, Load_STNS, CH_ARRAY }, celestar@1217: { 'ROAD', Save_ROADSTOP, Load_ROADSTOP, CH_ARRAY | CH_LAST}, truelight@0: };