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