author | tron |
Thu, 09 Feb 2006 06:24:53 +0000 | |
changeset 3001 | 0a2cf92beeed |
parent 3000 | 711d2ababe20 |
child 3002 | c4f3a6ebfb25 |
permissions | -rw-r--r-- |
2186 | 1 |
/* $Id$ */ |
2 |
||
2213
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
3 |
/** @file station_cmd.c |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
4 |
*/ |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
5 |
|
0 | 6 |
#include "stdafx.h" |
1891
92a3b0aa0946
(svn r2397) - CodeChange: rename all "ttd" files to "openttd" files.
Darkvater
parents:
1881
diff
changeset
|
7 |
#include "openttd.h" |
1299
0a6510cc889b
(svn r1803) Move debugging stuff into files of it's own
tron
parents:
1295
diff
changeset
|
8 |
#include "debug.h" |
2163
637ec3c361f5
(svn r2673) Include functions.h directly, not globally via openttd.h
tron
parents:
2148
diff
changeset
|
9 |
#include "functions.h" |
1363
01d3de5d8039
(svn r1867) Include tables/sprites.h only in files which need it
tron
parents:
1335
diff
changeset
|
10 |
#include "table/sprites.h" |
507
8aa8100b0b22
(svn r815) Include strings.h only in the files which need it.
tron
parents:
500
diff
changeset
|
11 |
#include "table/strings.h" |
679
e959706a3e4d
(svn r1117) Move map arrays and some related macros into their own files map.c and map.h
tron
parents:
595
diff
changeset
|
12 |
#include "map.h" |
1209
a1ac96655b79
(svn r1713) Split off several functions which query/set information about a single tile from map.h and put them into a seperate file tile.h
tron
parents:
1190
diff
changeset
|
13 |
#include "tile.h" |
0 | 14 |
#include "station.h" |
15 |
#include "gfx.h" |
|
16 |
#include "window.h" |
|
17 |
#include "viewport.h" |
|
18 |
#include "command.h" |
|
19 |
#include "town.h" |
|
20 |
#include "vehicle.h" |
|
21 |
#include "news.h" |
|
22 |
#include "saveload.h" |
|
23 |
#include "economy.h" |
|
24 |
#include "player.h" |
|
25 |
#include "airport.h" |
|
405
6830ae7a0d5d
(svn r602) -newgrf: Move DrawTileSeqStruct & co and struct SpriteGroup to sprite.h (pasky)
darkvater
parents:
403
diff
changeset
|
26 |
#include "sprite.h" |
1313
bba6afb8a995
(svn r1817) -Codechange: Moved depot-functions to depot.c
truelight
parents:
1299
diff
changeset
|
27 |
#include "depot.h" |
2676
2ba71e034d97
(svn r3218) -Feature: Multiheaded train engines will now stay in the same train
bjarni
parents:
2671
diff
changeset
|
28 |
#include "train.h" |
0 | 29 |
|
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
30 |
enum { |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
31 |
/* Max stations: 64000 (64 * 1000) */ |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
32 |
STATION_POOL_BLOCK_SIZE_BITS = 6, /* In bits, so (1 << 6) == 64 */ |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
33 |
STATION_POOL_MAX_BLOCKS = 1000, |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
34 |
|
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
35 |
/* Max roadstops: 64000 (32 * 2000) */ |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
36 |
ROADSTOP_POOL_BLOCK_SIZE_BITS = 5, /* In bits, so (1 << 5) == 32 */ |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
37 |
ROADSTOP_POOL_MAX_BLOCKS = 2000, |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
38 |
}; |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
39 |
|
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
40 |
/** |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
41 |
* Called if a new block is added to the station-pool |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
42 |
*/ |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
43 |
static void StationPoolNewBlock(uint start_item) |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
44 |
{ |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
45 |
Station *st; |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
46 |
|
2639 | 47 |
FOR_ALL_STATIONS_FROM(st, start_item) st->index = start_item++; |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
48 |
} |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
49 |
|
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
50 |
/** |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
51 |
* Called if a new block is added to the roadstop-pool |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
52 |
*/ |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
53 |
static void RoadStopPoolNewBlock(uint start_item) |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
54 |
{ |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
55 |
RoadStop *rs; |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
56 |
|
2639 | 57 |
FOR_ALL_ROADSTOPS_FROM(rs, start_item) rs->index = start_item++; |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
58 |
} |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
59 |
|
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
60 |
/* Initialize the station-pool and roadstop-pool */ |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
61 |
MemoryPool _station_pool = { "Stations", STATION_POOL_MAX_BLOCKS, STATION_POOL_BLOCK_SIZE_BITS, sizeof(Station), &StationPoolNewBlock, 0, 0, NULL }; |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
62 |
MemoryPool _roadstop_pool = { "RoadStop", ROADSTOP_POOL_MAX_BLOCKS, ROADSTOP_POOL_BLOCK_SIZE_BITS, sizeof(RoadStop), &RoadStopPoolNewBlock, 0, 0, NULL }; |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
63 |
|
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
64 |
|
0 | 65 |
// FIXME -- need to be embedded into Airport variable. Is dynamically |
66 |
// deducteable from graphics-tile array, so will not be needed |
|
1417
fd04b8a2eefc
(svn r1921) -Fix: Out of bounds array access which caused oil rigs to accept other cargo types besides passengers and mail
tron
parents:
1368
diff
changeset
|
67 |
const byte _airport_size_x[] = {4, 6, 1, 6, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}; |
fd04b8a2eefc
(svn r1921) -Fix: Out of bounds array access which caused oil rigs to accept other cargo types besides passengers and mail
tron
parents:
1368
diff
changeset
|
68 |
const byte _airport_size_y[] = {3, 6, 1, 6, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}; |
0 | 69 |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
70 |
void ShowAircraftDepotWindow(TileIndex tile); |
0 | 71 |
extern void UpdateAirplanesOnNewStation(Station *st); |
72 |
||
2549 | 73 |
static void MarkStationDirty(const Station* st) |
0 | 74 |
{ |
75 |
if (st->sign.width_1 != 0) { |
|
76 |
InvalidateWindowWidget(WC_STATION_VIEW, st->index, 1); |
|
77 |
||
78 |
MarkAllViewportsDirty( |
|
79 |
st->sign.left - 6, |
|
80 |
st->sign.top, |
|
81 |
st->sign.left + (st->sign.width_1 << 2) + 12, |
|
82 |
st->sign.top + 48); |
|
83 |
} |
|
84 |
} |
|
85 |
||
1551
eb05e6a90e67
(svn r2055) -CodeChange: Begun introducting StationID
celestar
parents:
1527
diff
changeset
|
86 |
static void InitializeRoadStop(RoadStop *road_stop, RoadStop *previous, TileIndex tile, StationID index) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
87 |
{ |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
88 |
road_stop->xy = tile; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
89 |
road_stop->used = true; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
90 |
road_stop->status = 3; //stop is free |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
91 |
road_stop->slot[0] = road_stop->slot[1] = INVALID_SLOT; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
92 |
road_stop->next = NULL; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
93 |
road_stop->prev = previous; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
94 |
road_stop->station = index; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
95 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
96 |
|
2639 | 97 |
RoadStop* GetPrimaryRoadStop(const Station* st, RoadStopType type) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
98 |
{ |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
99 |
switch (type) { |
2631
13daba67f217
(svn r3173) Use the trinary operator and switch to improve readability
tron
parents:
2630
diff
changeset
|
100 |
case RS_BUS: return st->bus_stops; |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
101 |
case RS_TRUCK: return st->truck_stops; |
2631
13daba67f217
(svn r3173) Use the trinary operator and switch to improve readability
tron
parents:
2630
diff
changeset
|
102 |
default: NOT_REACHED(); |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
103 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
104 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
105 |
return NULL; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
106 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
107 |
|
2639 | 108 |
RoadStop* GetRoadStopByTile(TileIndex tile, RoadStopType type) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
109 |
{ |
2639 | 110 |
const Station* st = GetStation(_m[tile].m2); |
111 |
RoadStop* rs; |
|
112 |
||
113 |
for (rs = GetPrimaryRoadStop(st, type); rs->xy != tile; rs = rs->next) { |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
114 |
assert(rs->next != NULL); |
2639 | 115 |
} |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
116 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
117 |
return rs; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
118 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
119 |
|
2817 | 120 |
static uint GetNumRoadStops(const Station* st, RoadStopType type) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
121 |
{ |
2549 | 122 |
uint num = 0; |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
123 |
const RoadStop *rs; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
124 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
125 |
assert(st != NULL); |
2549 | 126 |
for (rs = GetPrimaryRoadStop(st, type); rs != NULL; rs = rs->next) num++; |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
127 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
128 |
return num; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
129 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
130 |
|
2549 | 131 |
RoadStop *AllocateRoadStop(void) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
132 |
{ |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
133 |
RoadStop *rs; |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
134 |
|
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
135 |
FOR_ALL_ROADSTOPS(rs) { |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
136 |
if (!rs->used) { |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
137 |
uint index = rs->index; |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
138 |
|
2549 | 139 |
memset(rs, 0, sizeof(*rs)); |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
140 |
rs->index = index; |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
141 |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
142 |
return rs; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
143 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
144 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
145 |
|
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
146 |
/* Check if we can add a block to the pool */ |
2639 | 147 |
if (AddBlockToPool(&_roadstop_pool)) return AllocateRoadStop(); |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
148 |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
149 |
return NULL; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
150 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
151 |
|
703
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
152 |
/* Calculate the radius of the station. Basicly it is the biggest |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
153 |
radius that is available within the station */ |
2643 | 154 |
static uint FindCatchmentRadius(const Station* st) |
703
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
155 |
{ |
2643 | 156 |
uint ret = 0; |
703
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
157 |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
158 |
if (st->bus_stops != NULL) ret = max(ret, CA_BUS); |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
159 |
if (st->truck_stops != NULL) ret = max(ret, CA_TRUCK); |
703
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
160 |
if (st->train_tile) ret = max(ret, CA_TRAIN); |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
161 |
if (st->dock_tile) ret = max(ret, CA_DOCK); |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
162 |
|
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
163 |
if (st->airport_tile) { |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
164 |
switch (st->airport_type) { |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
165 |
case AT_OILRIG: ret = max(ret, CA_AIR_OILPAD); break; |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
166 |
case AT_SMALL: ret = max(ret, CA_AIR_SMALL); break; |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
167 |
case AT_HELIPORT: ret = max(ret, CA_AIR_HELIPORT); break; |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
168 |
case AT_LARGE: ret = max(ret, CA_AIR_LARGE); break; |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
169 |
case AT_METROPOLITAN: ret = max(ret, CA_AIR_METRO); break; |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
170 |
case AT_INTERNATIONAL: ret = max(ret, CA_AIR_INTER); break; |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
171 |
} |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
172 |
} |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
173 |
|
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
174 |
return ret; |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
175 |
} |
c917d7d9aced
(svn r1153) -Fix: FindCatchmentRadius is now a function that uses the enums instead
truelight
parents:
701
diff
changeset
|
176 |
|
0 | 177 |
#define CHECK_STATIONS_ERR ((Station*)-1) |
178 |
||
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
179 |
static Station* GetStationAround(TileIndex tile, int w, int h, StationID closest_station) |
0 | 180 |
{ |
181 |
// check around to see if there's any stations there |
|
1981 | 182 |
BEGIN_TILE_LOOP(tile_cur, w + 2, h + 2, tile - TileDiffXY(1, 1)) |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1032
diff
changeset
|
183 |
if (IsTileType(tile_cur, MP_STATION)) { |
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
184 |
StationID t = _m[tile_cur].m2; |
28
635ad4c62bec
(svn r29) -Fix You cannot take ownership of an oilrig by building right next to it
darkvater
parents:
27
diff
changeset
|
185 |
{ |
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
186 |
Station *st = GetStation(t); |
28
635ad4c62bec
(svn r29) -Fix You cannot take ownership of an oilrig by building right next to it
darkvater
parents:
27
diff
changeset
|
187 |
// you cannot take control of an oilrig!! |
635ad4c62bec
(svn r29) -Fix You cannot take ownership of an oilrig by building right next to it
darkvater
parents:
27
diff
changeset
|
188 |
if (st->airport_type == AT_OILRIG && st->facilities == (FACIL_AIRPORT|FACIL_DOCK)) |
635ad4c62bec
(svn r29) -Fix You cannot take ownership of an oilrig by building right next to it
darkvater
parents:
27
diff
changeset
|
189 |
continue; |
635ad4c62bec
(svn r29) -Fix You cannot take ownership of an oilrig by building right next to it
darkvater
parents:
27
diff
changeset
|
190 |
} |
635ad4c62bec
(svn r29) -Fix You cannot take ownership of an oilrig by building right next to it
darkvater
parents:
27
diff
changeset
|
191 |
|
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
192 |
if (closest_station == INVALID_STATION) { |
0 | 193 |
closest_station = t; |
194 |
} else if (closest_station != t) { |
|
195 |
_error_message = STR_3006_ADJOINS_MORE_THAN_ONE_EXISTING; |
|
196 |
return CHECK_STATIONS_ERR; |
|
197 |
} |
|
198 |
} |
|
1981 | 199 |
END_TILE_LOOP(tile_cur, w + 2, h + 2, tile - TileDiffXY(1, 1)) |
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
200 |
return (closest_station == INVALID_STATION) ? NULL : GetStation(closest_station); |
0 | 201 |
} |
202 |
||
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1012
diff
changeset
|
203 |
TileIndex GetStationTileForVehicle(const Vehicle *v, const Station *st) |
55
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
204 |
{ |
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
205 |
switch (v->type) { |
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
206 |
case VEH_Train: return st->train_tile; |
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
207 |
case VEH_Aircraft: return st->airport_tile; |
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
208 |
case VEH_Ship: return st->dock_tile; |
1231
64cc1f5c1c82
(svn r1735) -Fix: [ 1112285 ] Fixed an assertion error with stations where stops
celestar
parents:
1217
diff
changeset
|
209 |
case VEH_Road: |
64cc1f5c1c82
(svn r1735) -Fix: [ 1112285 ] Fixed an assertion error with stations where stops
celestar
parents:
1217
diff
changeset
|
210 |
if (v->cargo_type == CT_PASSENGERS) { |
2549 | 211 |
return (st->bus_stops != NULL) ? st->bus_stops->xy : 0; |
1231
64cc1f5c1c82
(svn r1735) -Fix: [ 1112285 ] Fixed an assertion error with stations where stops
celestar
parents:
1217
diff
changeset
|
212 |
} else { |
2549 | 213 |
return (st->truck_stops != NULL) ? st->truck_stops->xy : 0; |
1231
64cc1f5c1c82
(svn r1735) -Fix: [ 1112285 ] Fixed an assertion error with stations where stops
celestar
parents:
1217
diff
changeset
|
214 |
} |
55
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
215 |
default: |
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
216 |
assert(false); |
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
217 |
return 0; |
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
218 |
} |
73fae6c6568e
(svn r56) Improved order checker + patch setting for it (celestar)
dominik
parents:
43
diff
changeset
|
219 |
} |
0 | 220 |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
221 |
static bool CheckStationSpreadOut(Station *st, TileIndex tile, int w, int h) |
0 | 222 |
{ |
1551
eb05e6a90e67
(svn r2055) -CodeChange: Begun introducting StationID
celestar
parents:
1527
diff
changeset
|
223 |
StationID station_index = st->index; |
0 | 224 |
uint i; |
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
225 |
uint x1 = TileX(tile); |
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
226 |
uint y1 = TileY(tile); |
0 | 227 |
uint x2 = x1 + w - 1; |
228 |
uint y2 = y1 + h - 1; |
|
229 |
uint t; |
|
230 |
||
863
8d09f9331a80
(svn r1344) Use MapSize[XY]() (or MapSize()/MapMax[XY]() where appropriate) instead of TILES_[XY]
tron
parents:
856
diff
changeset
|
231 |
for (i = 0; i != MapSize(); i++) { |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
232 |
if (IsTileType(i, MP_STATION) && _m[i].m2 == station_index) { |
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
233 |
t = TileX(i); |
0 | 234 |
if (t < x1) x1 = t; |
235 |
if (t > x2) x2 = t; |
|
236 |
||
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
237 |
t = TileY(i); |
0 | 238 |
if (t < y1) y1 = t; |
239 |
if (t > y2) y2 = t; |
|
240 |
} |
|
241 |
} |
|
242 |
||
2549 | 243 |
if (y2 - y1 >= _patches.station_spread || x2 - x1 >= _patches.station_spread) { |
0 | 244 |
_error_message = STR_306C_STATION_TOO_SPREAD_OUT; |
245 |
return false; |
|
246 |
} |
|
247 |
||
248 |
return true; |
|
249 |
} |
|
250 |
||
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1078
diff
changeset
|
251 |
static Station *AllocateStation(void) |
0 | 252 |
{ |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
253 |
Station *st = NULL; |
0 | 254 |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
255 |
FOR_ALL_STATIONS(st) { |
0 | 256 |
if (st->xy == 0) { |
1551
eb05e6a90e67
(svn r2055) -CodeChange: Begun introducting StationID
celestar
parents:
1527
diff
changeset
|
257 |
StationID index = st->index; |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
258 |
|
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
259 |
memset(st, 0, sizeof(Station)); |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
260 |
st->index = index; |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
261 |
|
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
262 |
return st; |
0 | 263 |
} |
264 |
} |
|
265 |
||
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
266 |
/* Check if we can add a block to the pool */ |
2639 | 267 |
if (AddBlockToPool(&_station_pool)) return AllocateStation(); |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
268 |
|
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
269 |
_error_message = STR_3008_TOO_MANY_STATIONS_LOADING; |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
270 |
return NULL; |
0 | 271 |
} |
272 |
||
273 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
274 |
static int CountMapSquareAround(TileIndex tile, byte type, byte min, byte max) |
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
275 |
{ |
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
276 |
static const TileIndexDiffC _count_square_table[] = { |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
277 |
{-3, -3}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
278 |
{-6, 1}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
279 |
{-6, 1}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
280 |
{-6, 1}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
281 |
{-6, 1}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
282 |
{-6, 1}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
283 |
{-6, 1}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0}, {1, 0} |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
284 |
}; |
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
285 |
const TileIndexDiffC *p; |
0 | 286 |
int num = 0; |
287 |
||
847
e0d8d5ef95b9
(svn r1328) Turn loop with explicit terminator element into loop using endof()
tron
parents:
817
diff
changeset
|
288 |
for (p = _count_square_table; p != endof(_count_square_table); ++p) { |
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
289 |
tile = TILE_MASK(tile + ToTileIndexDiff(*p)); |
0 | 290 |
|
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
291 |
if (IsTileType(tile, type) && _m[tile].m5 >= min && _m[tile].m5 <= max) |
0 | 292 |
num++; |
293 |
} |
|
294 |
||
295 |
return num; |
|
296 |
} |
|
297 |
||
298 |
#define M(x) ((x) - STR_SV_STNAME) |
|
299 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
300 |
static bool GenerateStationName(Station *st, TileIndex tile, int flag) |
0 | 301 |
{ |
302 |
static const uint32 _gen_station_name_bits[] = { |
|
1454 | 303 |
0, /* 0 */ |
304 |
1 << M(STR_SV_STNAME_AIRPORT), /* 1 */ |
|
305 |
1 << M(STR_SV_STNAME_OILFIELD), /* 2 */ |
|
306 |
1 << M(STR_SV_STNAME_DOCKS), /* 3 */ |
|
307 |
0x1FF << M(STR_SV_STNAME_BUOY_1), /* 4 */ |
|
308 |
1 << M(STR_SV_STNAME_HELIPORT), /* 5 */ |
|
0 | 309 |
}; |
310 |
||
311 |
Town *t = st->town; |
|
312 |
uint32 free_names = (uint32)-1; |
|
313 |
int found; |
|
314 |
uint z,z2; |
|
315 |
unsigned long tmp; |
|
316 |
||
317 |
{ |
|
318 |
Station *s; |
|
319 |
||
320 |
FOR_ALL_STATIONS(s) { |
|
321 |
if (s != st && s->xy != 0 && s->town==t) { |
|
322 |
uint str = M(s->string_id); |
|
323 |
if (str <= 0x20) { |
|
324 |
if (str == M(STR_SV_STNAME_FOREST)) |
|
325 |
str = M(STR_SV_STNAME_WOODS); |
|
326 |
CLRBIT(free_names, str); |
|
327 |
} |
|
328 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
329 |
} |
0 | 330 |
} |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
331 |
|
0 | 332 |
/* check default names */ |
333 |
tmp = free_names & _gen_station_name_bits[flag]; |
|
334 |
if (tmp != 0) { |
|
335 |
found = FindFirstBit(tmp); |
|
336 |
goto done; |
|
337 |
} |
|
338 |
||
339 |
/* check mine? */ |
|
340 |
if (HASBIT(free_names, M(STR_SV_STNAME_MINES))) { |
|
341 |
if (CountMapSquareAround(tile, MP_INDUSTRY, 0, 6) >= 2 || |
|
1472
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
342 |
CountMapSquareAround(tile, MP_INDUSTRY, 0x64, 0x73) >= 2 || |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
343 |
CountMapSquareAround(tile, MP_INDUSTRY, 0x2F, 0x33) >= 2 || |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
344 |
CountMapSquareAround(tile, MP_INDUSTRY, 0x48, 0x58) >= 2 || |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
345 |
CountMapSquareAround(tile, MP_INDUSTRY, 0x5B, 0x63) >= 2) { |
1454 | 346 |
found = M(STR_SV_STNAME_MINES); |
347 |
goto done; |
|
348 |
} |
|
0 | 349 |
} |
350 |
||
351 |
/* check close enough to town to get central as name? */ |
|
1245
768d9bc95aaa
(svn r1749) Move the functions which calculate distances to map.[ch] and give the more meaningful names
tron
parents:
1239
diff
changeset
|
352 |
if (DistanceMax(tile,t->xy) < 8) { |
0 | 353 |
found = M(STR_SV_STNAME); |
354 |
if (HASBIT(free_names, M(STR_SV_STNAME))) goto done; |
|
355 |
||
356 |
found = M(STR_SV_STNAME_CENTRAL); |
|
357 |
if (HASBIT(free_names, M(STR_SV_STNAME_CENTRAL))) goto done; |
|
358 |
} |
|
359 |
||
360 |
/* Check lakeside */ |
|
1472
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
361 |
if (HASBIT(free_names, M(STR_SV_STNAME_LAKESIDE)) && |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
362 |
DistanceFromEdge(tile) < 20 && |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
363 |
CountMapSquareAround(tile, MP_WATER, 0, 0) >= 5) { |
1454 | 364 |
found = M(STR_SV_STNAME_LAKESIDE); |
365 |
goto done; |
|
366 |
} |
|
0 | 367 |
|
368 |
/* Check woods */ |
|
1472
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
369 |
if (HASBIT(free_names, M(STR_SV_STNAME_WOODS)) && ( |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
370 |
CountMapSquareAround(tile, MP_TREES, 0, 255) >= 8 || |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
371 |
CountMapSquareAround(tile, MP_INDUSTRY, 0x10, 0x11) >= 2) |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
372 |
) { |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
373 |
found = _opt.landscape == LT_DESERT ? |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
374 |
M(STR_SV_STNAME_FOREST) : M(STR_SV_STNAME_WOODS); |
1454 | 375 |
goto done; |
0 | 376 |
} |
377 |
||
378 |
/* check elevation compared to town */ |
|
379 |
z = GetTileZ(tile); |
|
380 |
z2 = GetTileZ(t->xy); |
|
381 |
if (z < z2) { |
|
382 |
found = M(STR_SV_STNAME_VALLEY); |
|
383 |
if (HASBIT(free_names, M(STR_SV_STNAME_VALLEY))) goto done; |
|
384 |
} else if (z > z2) { |
|
385 |
found = M(STR_SV_STNAME_HEIGHTS); |
|
386 |
if (HASBIT(free_names, M(STR_SV_STNAME_HEIGHTS))) goto done; |
|
387 |
} |
|
388 |
||
389 |
/* check direction compared to town */ |
|
390 |
{ |
|
391 |
static const int8 _direction_and_table[] = { |
|
392 |
~( (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_EAST)) | (1<<M(STR_SV_STNAME_NORTH)) ), |
|
393 |
~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_NORTH)) ), |
|
394 |
~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_EAST)) | (1<<M(STR_SV_STNAME_NORTH)) ), |
|
395 |
~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_EAST)) ), |
|
396 |
}; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
397 |
|
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
398 |
free_names &= _direction_and_table[ |
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
399 |
(TileX(tile) < TileX(t->xy)) + |
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
400 |
(TileY(tile) < TileY(t->xy)) * 2]; |
0 | 401 |
} |
402 |
||
403 |
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)); |
|
404 |
if (tmp == 0) { |
|
405 |
_error_message = STR_3007_TOO_MANY_STATIONS_LOADING; |
|
406 |
return false; |
|
407 |
} |
|
408 |
found = FindFirstBit(tmp); |
|
409 |
||
410 |
done: |
|
411 |
st->string_id = found + STR_SV_STNAME; |
|
412 |
return true; |
|
413 |
} |
|
414 |
#undef M |
|
415 |
||
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
416 |
static Station* GetClosestStationFromTile(TileIndex tile, uint threshold, PlayerID owner) |
0 | 417 |
{ |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
418 |
Station* best_station = NULL; |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
419 |
Station* st; |
0 | 420 |
|
421 |
FOR_ALL_STATIONS(st) { |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
422 |
if (st->xy != 0 && (owner == OWNER_SPECTATOR || st->owner == owner)) { |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
423 |
uint cur_dist = DistanceManhattan(tile, st->xy); |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
424 |
|
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
425 |
if (cur_dist < threshold) { |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
426 |
threshold = cur_dist; |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
427 |
best_station = st; |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
428 |
} |
0 | 429 |
} |
430 |
} |
|
431 |
||
432 |
return best_station; |
|
433 |
} |
|
434 |
||
435 |
static void StationInitialize(Station *st, TileIndex tile) |
|
436 |
{ |
|
437 |
GoodsEntry *ge; |
|
438 |
||
439 |
st->xy = tile; |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
440 |
st->airport_tile = st->dock_tile = st->train_tile = 0; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
441 |
st->bus_stops = st->truck_stops = NULL; |
0 | 442 |
st->had_vehicle_of_type = 0; |
443 |
st->time_since_load = 255; |
|
444 |
st->time_since_unload = 255; |
|
445 |
st->delete_ctr = 0; |
|
446 |
st->facilities = 0; |
|
447 |
||
448 |
st->last_vehicle = INVALID_VEHICLE; |
|
449 |
||
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
450 |
for (ge = st->goods; ge != endof(st->goods); ge++) { |
0 | 451 |
ge->waiting_acceptance = 0; |
452 |
ge->days_since_pickup = 0; |
|
1266
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
453 |
ge->enroute_from = INVALID_STATION; |
0 | 454 |
ge->rating = 175; |
455 |
ge->last_speed = 0; |
|
456 |
ge->last_age = 0xFF; |
|
1935
f43f062c9498
(svn r2441) -Feature: You can now give transfer order to set up feeder systems
celestar
parents:
1902
diff
changeset
|
457 |
ge->feeder_profit = 0; |
0 | 458 |
} |
243
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
459 |
|
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
460 |
_global_station_sort_dirty = true; // build a new station |
0 | 461 |
} |
462 |
||
463 |
// Update the virtual coords needed to draw the station sign. |
|
464 |
// st = Station to update for. |
|
465 |
static void UpdateStationVirtCoord(Station *st) |
|
466 |
{ |
|
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
467 |
Point pt = RemapCoords2(TileX(st->xy) * 16, TileY(st->xy) * 16); |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
468 |
|
0 | 469 |
pt.y -= 32; |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
470 |
if (st->facilities & FACIL_AIRPORT && st->airport_type == AT_OILRIG) pt.y -= 16; |
0 | 471 |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
472 |
SetDParam(0, st->index); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
473 |
SetDParam(1, st->facilities); |
0 | 474 |
UpdateViewportSignPos(&st->sign, pt.x, pt.y, STR_305C_0); |
475 |
} |
|
476 |
||
477 |
// Update the virtual coords needed to draw the station sign for all stations. |
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1078
diff
changeset
|
478 |
void UpdateAllStationVirtCoord(void) |
0 | 479 |
{ |
2639 | 480 |
Station* st; |
481 |
||
0 | 482 |
FOR_ALL_STATIONS(st) { |
2639 | 483 |
if (st->xy != 0) UpdateStationVirtCoord(st); |
0 | 484 |
} |
485 |
} |
|
486 |
||
487 |
// Update the station virt coords while making the modified parts dirty. |
|
488 |
static void UpdateStationVirtCoordDirty(Station *st) |
|
489 |
{ |
|
490 |
MarkStationDirty(st); |
|
491 |
UpdateStationVirtCoord(st); |
|
492 |
MarkStationDirty(st); |
|
493 |
} |
|
494 |
||
495 |
// Get a mask of the cargo types that the station accepts. |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
496 |
static uint GetAcceptanceMask(const Station *st) |
0 | 497 |
{ |
498 |
uint mask = 0; |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
499 |
uint i; |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
500 |
|
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
501 |
for (i = 0; i != NUM_CARGO; i++) { |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
502 |
if (st->goods[i].waiting_acceptance & 0x8000) mask |= 1 << i; |
0 | 503 |
} |
504 |
return mask; |
|
505 |
} |
|
506 |
||
507 |
// Items contains the two cargo names that are to be accepted or rejected. |
|
508 |
// msg is the string id of the message to display. |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
509 |
static void ShowRejectOrAcceptNews(const Station *st, uint32 items, StringID msg) |
0 | 510 |
{ |
511 |
if (items) { |
|
2549 | 512 |
SetDParam(2, GB(items, 16, 16)); |
513 |
SetDParam(1, GB(items, 0, 16)); |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
514 |
SetDParam(0, st->index); |
0 | 515 |
AddNewsItem(msg + ((items >> 16)?1:0), NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_TILE, NT_ACCEPTANCE, 0), st->xy, 0); |
516 |
} |
|
517 |
} |
|
518 |
||
519 |
// Get a list of the cargo types being produced around the tile. |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
520 |
void GetProductionAroundTiles(AcceptedCargo produced, TileIndex tile, |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
521 |
int w, int h, int rad) |
0 | 522 |
{ |
523 |
int x,y; |
|
524 |
int x1,y1,x2,y2; |
|
525 |
int xc,yc; |
|
526 |
||
2133 | 527 |
memset(produced, 0, sizeof(AcceptedCargo)); |
0 | 528 |
|
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
529 |
x = TileX(tile); |
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
530 |
y = TileY(tile); |
0 | 531 |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
532 |
// expand the region by rad tiles on each side |
0 | 533 |
// while making sure that we remain inside the board. |
856
07dc27d0503e
(svn r1337) Use MapMax[XY]() (or MapSize[XY]() if appropriate) instead of TILE_MAX_[XY]
tron
parents:
847
diff
changeset
|
534 |
x2 = min(x + w + rad, MapSizeX()); |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
535 |
x1 = max(x - rad, 0); |
568
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
536 |
|
856
07dc27d0503e
(svn r1337) Use MapMax[XY]() (or MapSize[XY]() if appropriate) instead of TILE_MAX_[XY]
tron
parents:
847
diff
changeset
|
537 |
y2 = min(y + h + rad, MapSizeY()); |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
538 |
y1 = max(y - rad, 0); |
0 | 539 |
|
540 |
assert(x1 < x2); |
|
541 |
assert(y1 < y2); |
|
542 |
assert(w > 0); |
|
543 |
assert(h > 0); |
|
544 |
||
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
545 |
for (yc = y1; yc != y2; yc++) { |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
546 |
for (xc = x1; xc != x2; xc++) { |
0 | 547 |
if (!(IS_INSIDE_1D(xc, x, w) && IS_INSIDE_1D(yc, y, h))) { |
548 |
GetProducedCargoProc *gpc; |
|
1981 | 549 |
TileIndex tile = TileXY(xc, yc); |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
550 |
|
1214
33e07bbb7779
(svn r1718) Use the enum TileType as parameter/return type for [GS]etTileType() instead of plain int.
tron
parents:
1209
diff
changeset
|
551 |
gpc = _tile_type_procs[GetTileType(tile)]->get_produced_cargo_proc; |
0 | 552 |
if (gpc != NULL) { |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
553 |
byte cargos[2] = { CT_INVALID, CT_INVALID }; |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
554 |
|
0 | 555 |
gpc(tile, cargos); |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
556 |
if (cargos[0] != CT_INVALID) { |
0 | 557 |
produced[cargos[0]]++; |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
558 |
if (cargos[1] != CT_INVALID) { |
0 | 559 |
produced[cargos[1]]++; |
560 |
} |
|
561 |
} |
|
562 |
} |
|
563 |
} |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
564 |
} |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
565 |
} |
0 | 566 |
} |
567 |
||
568 |
// Get a list of the cargo types that are accepted around the tile. |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
569 |
void GetAcceptanceAroundTiles(AcceptedCargo accepts, TileIndex tile, |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
570 |
int w, int h, int rad) |
0 | 571 |
{ |
572 |
int x,y; |
|
573 |
int x1,y1,x2,y2; |
|
574 |
int xc,yc; |
|
473
0da86c59e3ae
(svn r724) Remove restriction that a tile can only accept 3 cargo types.
tron
parents:
457
diff
changeset
|
575 |
|
0da86c59e3ae
(svn r724) Remove restriction that a tile can only accept 3 cargo types.
tron
parents:
457
diff
changeset
|
576 |
memset(accepts, 0, sizeof(AcceptedCargo)); |
0 | 577 |
|
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
578 |
x = TileX(tile); |
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
579 |
y = TileY(tile); |
0 | 580 |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
581 |
// expand the region by rad tiles on each side |
0 | 582 |
// while making sure that we remain inside the board. |
856
07dc27d0503e
(svn r1337) Use MapMax[XY]() (or MapSize[XY]() if appropriate) instead of TILE_MAX_[XY]
tron
parents:
847
diff
changeset
|
583 |
x2 = min(x + w + rad, MapSizeX()); |
07dc27d0503e
(svn r1337) Use MapMax[XY]() (or MapSize[XY]() if appropriate) instead of TILE_MAX_[XY]
tron
parents:
847
diff
changeset
|
584 |
y2 = min(y + h + rad, MapSizeY()); |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
585 |
x1 = max(x - rad, 0); |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
586 |
y1 = max(y - rad, 0); |
0 | 587 |
|
588 |
assert(x1 < x2); |
|
589 |
assert(y1 < y2); |
|
590 |
assert(w > 0); |
|
591 |
assert(h > 0); |
|
592 |
||
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
593 |
for (yc = y1; yc != y2; yc++) { |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
594 |
for (xc = x1; xc != x2; xc++) { |
1981 | 595 |
TileIndex tile = TileXY(xc, yc); |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
596 |
|
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1032
diff
changeset
|
597 |
if (!IsTileType(tile, MP_STATION)) { |
473
0da86c59e3ae
(svn r724) Remove restriction that a tile can only accept 3 cargo types.
tron
parents:
457
diff
changeset
|
598 |
AcceptedCargo ac; |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
599 |
uint i; |
473
0da86c59e3ae
(svn r724) Remove restriction that a tile can only accept 3 cargo types.
tron
parents:
457
diff
changeset
|
600 |
|
0da86c59e3ae
(svn r724) Remove restriction that a tile can only accept 3 cargo types.
tron
parents:
457
diff
changeset
|
601 |
GetAcceptedCargo(tile, ac); |
2639 | 602 |
for (i = 0; i < lengthof(ac); ++i) accepts[i] += ac[i]; |
0 | 603 |
} |
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
604 |
} |
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
605 |
} |
0 | 606 |
} |
607 |
||
2793
d613eb566917
(svn r3341) -Codechange: make mingw32 happy, and renamed Rectangle, because it already exists on that platform
truelight
parents:
2767
diff
changeset
|
608 |
typedef struct ottd_Rectangle { |
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
609 |
uint min_x; |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
610 |
uint min_y; |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
611 |
uint max_x; |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
612 |
uint max_y; |
2793
d613eb566917
(svn r3341) -Codechange: make mingw32 happy, and renamed Rectangle, because it already exists on that platform
truelight
parents:
2767
diff
changeset
|
613 |
} ottd_Rectangle; |
d613eb566917
(svn r3341) -Codechange: make mingw32 happy, and renamed Rectangle, because it already exists on that platform
truelight
parents:
2767
diff
changeset
|
614 |
|
d613eb566917
(svn r3341) -Codechange: make mingw32 happy, and renamed Rectangle, because it already exists on that platform
truelight
parents:
2767
diff
changeset
|
615 |
static void MergePoint(ottd_Rectangle* rect, TileIndex tile) |
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
616 |
{ |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
617 |
uint x = TileX(tile); |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
618 |
uint y = TileY(tile); |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
619 |
|
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
620 |
if (rect->min_x > x) rect->min_x = x; |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
621 |
if (rect->min_y > y) rect->min_y = y; |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
622 |
if (rect->max_x < x) rect->max_x = x; |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
623 |
if (rect->max_y < y) rect->max_y = y; |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
624 |
} |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
625 |
|
0 | 626 |
// Update the acceptance for a station. |
627 |
// show_msg controls whether to display a message that acceptance was changed. |
|
628 |
static void UpdateStationAcceptance(Station *st, bool show_msg) |
|
629 |
{ |
|
630 |
uint old_acc, new_acc; |
|
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
631 |
const RoadStop *cur_rs; |
0 | 632 |
int i; |
2793
d613eb566917
(svn r3341) -Codechange: make mingw32 happy, and renamed Rectangle, because it already exists on that platform
truelight
parents:
2767
diff
changeset
|
633 |
ottd_Rectangle rect; |
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
634 |
int rad; |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
635 |
AcceptedCargo accepts; |
0 | 636 |
|
1507
2d09b13f049f
(svn r2011) - Fix: [ 1162209 ] Fix OS/2 build (orudge) #2
darkvater
parents:
1477
diff
changeset
|
637 |
rect.min_x = MapSizeX(); |
2d09b13f049f
(svn r2011) - Fix: [ 1162209 ] Fix OS/2 build (orudge) #2
darkvater
parents:
1477
diff
changeset
|
638 |
rect.min_y = MapSizeY(); |
2d09b13f049f
(svn r2011) - Fix: [ 1162209 ] Fix OS/2 build (orudge) #2
darkvater
parents:
1477
diff
changeset
|
639 |
rect.max_x = rect.max_y = 0; |
0 | 640 |
// Don't update acceptance for a buoy |
2639 | 641 |
if (IsBuoy(st)) return; |
0 | 642 |
|
643 |
/* old accepted goods types */ |
|
644 |
old_acc = GetAcceptanceMask(st); |
|
645 |
||
646 |
// Put all the tiles that span an area in the table. |
|
647 |
if (st->train_tile != 0) { |
|
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
648 |
MergePoint(&rect, st->train_tile); |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
649 |
MergePoint(&rect, |
1981 | 650 |
st->train_tile + TileDiffXY(st->trainst_w - 1, st->trainst_h - 1) |
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
651 |
); |
0 | 652 |
} |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
653 |
|
0 | 654 |
if (st->airport_tile != 0) { |
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
655 |
MergePoint(&rect, st->airport_tile); |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
656 |
MergePoint(&rect, |
1981 | 657 |
st->airport_tile + TileDiffXY( |
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
658 |
_airport_size_x[st->airport_type] - 1, |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
659 |
_airport_size_y[st->airport_type] - 1 |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
660 |
) |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
661 |
); |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
662 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
663 |
|
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
664 |
if (st->dock_tile != 0) MergePoint(&rect, st->dock_tile); |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
665 |
|
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
666 |
for (cur_rs = st->bus_stops; cur_rs != NULL; cur_rs = cur_rs->next) { |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
667 |
MergePoint(&rect, cur_rs->xy); |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
668 |
} |
0 | 669 |
|
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
670 |
for (cur_rs = st->truck_stops; cur_rs != NULL; cur_rs = cur_rs->next) { |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
671 |
MergePoint(&rect, cur_rs->xy); |
0 | 672 |
} |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
673 |
|
2631
13daba67f217
(svn r3173) Use the trinary operator and switch to improve readability
tron
parents:
2630
diff
changeset
|
674 |
rad = (_patches.modified_catchment) ? FindCatchmentRadius(st) : 4; |
0 | 675 |
|
676 |
// And retrieve the acceptance. |
|
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
677 |
if (rect.max_x >= rect.min_x) { |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
678 |
GetAcceptanceAroundTiles( |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
679 |
accepts, |
1981 | 680 |
TileXY(rect.min_x, rect.min_y), |
1423
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
681 |
rect.max_x - rect.min_x + 1, |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
682 |
rect.max_y - rect.min_y + 1, |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
683 |
rad |
50abec7ebe37
(svn r1927) Replace implementation of UpdateStationAcceptance(). The new one doesn't malloc() and calculates the station area in one pass instead of 3
tron
parents:
1417
diff
changeset
|
684 |
); |
0 | 685 |
} else { |
686 |
memset(accepts, 0, sizeof(accepts)); |
|
687 |
} |
|
688 |
||
689 |
// Adjust in case our station only accepts fewer kinds of goods |
|
1424
c6d120592e98
(svn r1928) Miscellaneous cleanups (data types, whitespace, const correctness)
tron
parents:
1423
diff
changeset
|
690 |
for (i = 0; i != NUM_CARGO; i++) { |
0 | 691 |
uint amt = min(accepts[i], 15); |
692 |
||
693 |
// Make sure the station can accept the goods type. |
|
694 |
if ((i != CT_PASSENGERS && !(st->facilities & (byte)~FACIL_BUS_STOP)) || |
|
695 |
(i == CT_PASSENGERS && !(st->facilities & (byte)~FACIL_TRUCK_STOP))) |
|
696 |
amt = 0; |
|
697 |
||
2504
7c27fc230cda
(svn r3030) More work for GB/SB, this time concerning the waiting_acceptance attribute of stations
tron
parents:
2502
diff
changeset
|
698 |
SB(st->goods[i].waiting_acceptance, 12, 4, amt); |
0 | 699 |
} |
700 |
||
701 |
// Only show a message in case the acceptance was actually changed. |
|
702 |
new_acc = GetAcceptanceMask(st); |
|
703 |
if (old_acc == new_acc) |
|
704 |
return; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
705 |
|
0 | 706 |
// show a message to report that the acceptance was changed? |
707 |
if (show_msg && st->owner == _local_player && st->facilities) { |
|
708 |
uint32 accept=0, reject=0; /* these contain two string ids each */ |
|
709 |
const StringID *str = _cargoc.names_s; |
|
710 |
||
711 |
do { |
|
712 |
if (new_acc & 1) { |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
713 |
if (!(old_acc & 1)) accept = (accept << 16) | *str; |
0 | 714 |
} else { |
715 |
if (old_acc & 1) reject = (reject << 16) | *str; |
|
716 |
} |
|
717 |
} while (str++,(new_acc>>=1) != (old_acc>>=1)); |
|
718 |
||
719 |
ShowRejectOrAcceptNews(st, accept, STR_3040_NOW_ACCEPTS); |
|
720 |
ShowRejectOrAcceptNews(st, reject, STR_303E_NO_LONGER_ACCEPTS); |
|
721 |
} |
|
722 |
||
723 |
// redraw the station view since acceptance changed |
|
724 |
InvalidateWindowWidget(WC_STATION_VIEW, st->index, 4); |
|
725 |
} |
|
726 |
||
727 |
// This is called right after a station was deleted. |
|
728 |
// It checks if the whole station is free of substations, and if so, the station will be |
|
729 |
// deleted after a little while. |
|
2639 | 730 |
static void DeleteStationIfEmpty(Station* st) |
731 |
{ |
|
0 | 732 |
if (st->facilities == 0) { |
733 |
st->delete_ctr = 0; |
|
28
635ad4c62bec
(svn r29) -Fix You cannot take ownership of an oilrig by building right next to it
darkvater
parents:
27
diff
changeset
|
734 |
InvalidateWindow(WC_STATION_LIST, st->owner); |
27
87c8058a69b5
(svn r28) -Fix removing station merged with oilrig, will reset oilrigs ownership
darkvater
parents:
22
diff
changeset
|
735 |
} |
0 | 736 |
} |
737 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
738 |
static int32 ClearTile_Station(TileIndex tile, byte flags); |
977
bcafa4f6550a
(svn r1472) -Fix: correct error message for when trying to build a railroad station over a bus/truck/etc-station.
darkvater
parents:
972
diff
changeset
|
739 |
|
0 | 740 |
// Tries to clear the given area. Returns the cost in case of success. |
741 |
// Or an error code if it failed. |
|
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
742 |
int32 CheckFlatLandBelow(TileIndex tile, uint w, uint h, uint flags, uint invalid_dirs, StationID* station) |
0 | 743 |
{ |
744 |
int32 cost = 0, ret; |
|
745 |
||
746 |
uint tileh; |
|
1335
a635854c23b6
(svn r1839) Move GetTileSlope() and GetTileZ() into tile.[ch] and use more explicit types as parameters
tron
parents:
1328
diff
changeset
|
747 |
uint z; |
a635854c23b6
(svn r1839) Move GetTileSlope() and GetTileZ() into tile.[ch] and use more explicit types as parameters
tron
parents:
1328
diff
changeset
|
748 |
int allowed_z = -1; |
a635854c23b6
(svn r1839) Move GetTileSlope() and GetTileZ() into tile.[ch] and use more explicit types as parameters
tron
parents:
1328
diff
changeset
|
749 |
int flat_z; |
0 | 750 |
|
751 |
BEGIN_TILE_LOOP(tile_cur, w, h, tile) |
|
2639 | 752 |
if (!EnsureNoVehicle(tile_cur)) return CMD_ERROR; |
0 | 753 |
|
754 |
tileh = GetTileSlope(tile_cur, &z); |
|
755 |
||
2085
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
756 |
/* Prohibit building if |
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
757 |
1) The tile is "steep" (i.e. stretches two height levels) |
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
758 |
-OR- |
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
759 |
2) The tile is non-flat if |
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
760 |
a) the player building is an "old-school" AI |
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
761 |
-OR- |
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
762 |
b) the build_on_slopes switch is disabled |
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
763 |
*/ |
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2049
diff
changeset
|
764 |
if (IsSteepTileh(tileh) || |
2639 | 765 |
((_is_old_ai_player || !_patches.build_on_slopes) && tileh != 0)) { |
0 | 766 |
_error_message = STR_0007_FLAT_LAND_REQUIRED; |
767 |
return CMD_ERROR; |
|
768 |
} |
|
769 |
||
770 |
flat_z = z; |
|
771 |
if (tileh) { |
|
772 |
// need to check so the entrance to the station is not pointing at a slope. |
|
773 |
if ((invalid_dirs&1 && !(tileh & 0xC) && (uint)w_cur == w) || |
|
774 |
(invalid_dirs&2 && !(tileh & 6) && h_cur == 1) || |
|
775 |
(invalid_dirs&4 && !(tileh & 3) && w_cur == 1) || |
|
776 |
(invalid_dirs&8 && !(tileh & 9) && (uint)h_cur == h)) { |
|
777 |
_error_message = STR_0007_FLAT_LAND_REQUIRED; |
|
778 |
return CMD_ERROR; |
|
779 |
} |
|
780 |
cost += _price.terraform; |
|
781 |
flat_z += 8; |
|
782 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
783 |
|
0 | 784 |
// get corresponding flat level and make sure that all parts of the station have the same level. |
785 |
if (allowed_z == -1) { |
|
786 |
// first tile |
|
787 |
allowed_z = flat_z; |
|
788 |
} else if (allowed_z != flat_z) { |
|
789 |
_error_message = STR_0007_FLAT_LAND_REQUIRED; |
|
790 |
return CMD_ERROR; |
|
791 |
} |
|
792 |
||
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
793 |
// if station is set, then we have special handling to allow building on top of already existing stations. |
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
794 |
// 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 |
0 | 795 |
// on exactly that station. |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1032
diff
changeset
|
796 |
if (station != NULL && IsTileType(tile_cur, MP_STATION)) { |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
797 |
if (_m[tile_cur].m5 >= 8) { |
977
bcafa4f6550a
(svn r1472) -Fix: correct error message for when trying to build a railroad station over a bus/truck/etc-station.
darkvater
parents:
972
diff
changeset
|
798 |
_error_message = ClearTile_Station(tile_cur, DC_AUTO); // get error message |
0 | 799 |
return CMD_ERROR; |
800 |
} else { |
|
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
801 |
StationID st = _m[tile_cur].m2; |
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
802 |
if (*station == INVALID_STATION) { |
0 | 803 |
*station = st; |
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
804 |
} else if (*station != st) { |
0 | 805 |
_error_message = STR_3006_ADJOINS_MORE_THAN_ONE_EXISTING; |
806 |
return CMD_ERROR; |
|
807 |
} |
|
808 |
} |
|
809 |
} else { |
|
810 |
ret = DoCommandByTile(tile_cur, 0, 0, flags, CMD_LANDSCAPE_CLEAR); |
|
2737
f16e0a808897
(svn r3282) - Codechange: Replace tests against CMD_ERROR with CmdFailed()
peter1138
parents:
2690
diff
changeset
|
811 |
if (CmdFailed(ret)) return CMD_ERROR; |
0 | 812 |
cost += ret; |
813 |
} |
|
814 |
END_TILE_LOOP(tile_cur, w, h, tile) |
|
815 |
||
816 |
return cost; |
|
817 |
} |
|
818 |
||
819 |
static bool CanExpandRailroadStation(Station *st, uint *fin, int direction) |
|
820 |
{ |
|
821 |
uint curw = st->trainst_w, curh = st->trainst_h; |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
822 |
TileIndex tile = fin[0]; |
0 | 823 |
uint w = fin[1]; |
824 |
uint h = fin[2]; |
|
825 |
||
826 |
if (_patches.nonuniform_stations) { |
|
827 |
// determine new size of train station region.. |
|
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
828 |
int x = min(TileX(st->train_tile), TileX(tile)); |
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
829 |
int y = min(TileY(st->train_tile), TileY(tile)); |
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
830 |
curw = max(TileX(st->train_tile) + curw, TileX(tile) + w) - x; |
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
831 |
curh = max(TileY(st->train_tile) + curh, TileY(tile) + h) - y; |
1981 | 832 |
tile = TileXY(x, y); |
0 | 833 |
} else { |
834 |
// check so the direction is the same |
|
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
835 |
if ((_m[st->train_tile].m5 & 1) != direction) { |
1189
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
836 |
_error_message = STR_306D_NONUNIFORM_STATIONS_DISALLOWED; |
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
837 |
return false; |
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
838 |
} |
0 | 839 |
|
840 |
// check if the new station adjoins the old station in either direction |
|
1981 | 841 |
if (curw == w && st->train_tile == tile + TileDiffXY(0, h)) { |
0 | 842 |
// above |
843 |
curh += h; |
|
1981 | 844 |
} else if (curw == w && st->train_tile == tile - TileDiffXY(0, curh)) { |
0 | 845 |
// below |
1981 | 846 |
tile -= TileDiffXY(0, curh); |
0 | 847 |
curh += h; |
1981 | 848 |
} else if (curh == h && st->train_tile == tile + TileDiffXY(w, 0)) { |
0 | 849 |
// to the left |
850 |
curw += w; |
|
1981 | 851 |
} else if (curh == h && st->train_tile == tile - TileDiffXY(curw, 0)) { |
0 | 852 |
// to the right |
1981 | 853 |
tile -= TileDiffXY(curw, 0); |
0 | 854 |
curw += w; |
1189
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
855 |
} else { |
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
856 |
_error_message = STR_306D_NONUNIFORM_STATIONS_DISALLOWED; |
0 | 857 |
return false; |
1189
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
858 |
} |
0 | 859 |
} |
860 |
// make sure the final size is not too big. |
|
1189
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
861 |
if (curw > _patches.station_spread || curh > _patches.station_spread) { |
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
862 |
_error_message = STR_306C_STATION_TOO_SPREAD_OUT; |
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
863 |
return false; |
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
864 |
} |
0 | 865 |
|
866 |
// now tile contains the new value for st->train_tile |
|
867 |
// curw, curh contain the new value for width and height |
|
868 |
fin[0] = tile; |
|
869 |
fin[1] = curw; |
|
870 |
fin[2] = curh; |
|
871 |
return true; |
|
872 |
} |
|
873 |
||
536 | 874 |
static inline byte *CreateSingle(byte *layout, int n) |
0 | 875 |
{ |
876 |
int i = n; |
|
877 |
do *layout++ = 0; while (--i); |
|
878 |
layout[((n-1) >> 1)-n] = 2; |
|
879 |
return layout; |
|
880 |
} |
|
881 |
||
536 | 882 |
static inline byte *CreateMulti(byte *layout, int n, byte b) |
0 | 883 |
{ |
884 |
int i = n; |
|
885 |
do *layout++ = b; while (--i); |
|
886 |
if (n > 4) { |
|
887 |
layout[0-n] = 0; |
|
888 |
layout[n-1-n] = 0; |
|
889 |
} |
|
890 |
return layout; |
|
891 |
} |
|
892 |
||
2624
47d7768c6dca
(svn r3166) Constify read-only accesses of custom stations
peter1138
parents:
2617
diff
changeset
|
893 |
static void GetStationLayout(byte *layout, int numtracks, int plat_len, const StationSpec *spec) |
0 | 894 |
{ |
1472
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
895 |
if (spec != NULL && spec->lengths >= plat_len && |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
896 |
spec->platforms[plat_len - 1] >= numtracks && |
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
897 |
spec->layouts[plat_len - 1][numtracks - 1]) { |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
898 |
/* Custom layout defined, follow it. */ |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
899 |
memcpy(layout, spec->layouts[plat_len - 1][numtracks - 1], |
1472
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
900 |
plat_len * numtracks); |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
901 |
return; |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
902 |
} |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
903 |
|
0 | 904 |
if (plat_len == 1) { |
905 |
CreateSingle(layout, numtracks); |
|
906 |
} else { |
|
2639 | 907 |
if (numtracks & 1) layout = CreateSingle(layout, plat_len); |
908 |
numtracks >>= 1; |
|
0 | 909 |
|
910 |
while (--numtracks >= 0) { |
|
911 |
layout = CreateMulti(layout, plat_len, 4); |
|
912 |
layout = CreateMulti(layout, plat_len, 6); |
|
913 |
} |
|
914 |
} |
|
915 |
} |
|
916 |
||
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
917 |
/** Build railroad station |
1781
92e08797c84b
(svn r2285) - Codechange: Fix up some of the missing things from server-checking; namely bridge-type, bridge-length, dragged end-tile (bridge/station), station_spread
Darkvater
parents:
1775
diff
changeset
|
918 |
* @param x,y starting position of station dragging/placement |
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
919 |
* @param p1 various bitstuffed elements |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
920 |
* - p1 = (bit 0) - orientation (p1 & 1) |
2140
d708eb80ab8b
(svn r2650) Convert many explicit shifts+ands to extract bits to invocations of GB - should be a bit nicer to read
tron
parents:
2133
diff
changeset
|
921 |
* - p1 = (bit 8-15) - number of tracks |
d708eb80ab8b
(svn r2650) Convert many explicit shifts+ands to extract bits to invocations of GB - should be a bit nicer to read
tron
parents:
2133
diff
changeset
|
922 |
* - p1 = (bit 16-23) - platform length |
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
923 |
* @param p2 various bitstuffed elements |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
924 |
* - p2 = (bit 0- 3) - railtype (p2 & 0xF) |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
925 |
* - p2 = (bit 4) - set for custom station (p2 & 0x10) |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
926 |
* - p2 = (bit 8-..) - custom station id (p2 >> 8) |
0 | 927 |
*/ |
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
928 |
int32 CmdBuildRailroadStation(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
0 | 929 |
{ |
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
930 |
Station *st; |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
931 |
TileIndex tile_org; |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
932 |
int w_org, h_org; |
0 | 933 |
int32 cost, ret; |
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
934 |
StationID est; |
0 | 935 |
int plat_len, numtracks; |
936 |
int direction; |
|
937 |
uint finalvalues[3]; |
|
938 |
||
939 |
SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION); |
|
940 |
||
1980
9ea0c89fbb58
(svn r2486) Turn TILE_FROM_XY into an inline function and rename it to TileVirtXY
tron
parents:
1977
diff
changeset
|
941 |
tile_org = TileVirtXY(x, y); |
0 | 942 |
|
943 |
/* Does the authority allow this? */ |
|
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
944 |
if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile_org)) return CMD_ERROR; |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
945 |
if (!ValParamRailtype(p2 & 0xF)) return CMD_ERROR; |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
946 |
|
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
947 |
/* unpack parameters */ |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
948 |
direction = p1 & 1; |
2140
d708eb80ab8b
(svn r2650) Convert many explicit shifts+ands to extract bits to invocations of GB - should be a bit nicer to read
tron
parents:
2133
diff
changeset
|
949 |
numtracks = GB(p1, 8, 8); |
d708eb80ab8b
(svn r2650) Convert many explicit shifts+ands to extract bits to invocations of GB - should be a bit nicer to read
tron
parents:
2133
diff
changeset
|
950 |
plat_len = GB(p1, 16, 8); |
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
951 |
/* w = length, h = num_tracks */ |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
952 |
if (direction) { |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
953 |
h_org = plat_len; |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
954 |
w_org = numtracks; |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
955 |
} else { |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
956 |
w_org = plat_len; |
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
957 |
h_org = numtracks; |
0 | 958 |
} |
959 |
||
1781
92e08797c84b
(svn r2285) - Codechange: Fix up some of the missing things from server-checking; namely bridge-type, bridge-length, dragged end-tile (bridge/station), station_spread
Darkvater
parents:
1775
diff
changeset
|
960 |
if (h_org > _patches.station_spread || w_org > _patches.station_spread) return CMD_ERROR; |
92e08797c84b
(svn r2285) - Codechange: Fix up some of the missing things from server-checking; namely bridge-type, bridge-length, dragged end-tile (bridge/station), station_spread
Darkvater
parents:
1775
diff
changeset
|
961 |
|
0 | 962 |
// these values are those that will be stored in train_tile and station_platforms |
963 |
finalvalues[0] = tile_org; |
|
964 |
finalvalues[1] = w_org; |
|
965 |
finalvalues[2] = h_org; |
|
966 |
||
967 |
// Make sure the area below consists of clear tiles. (OR tiles belonging to a certain rail station) |
|
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
968 |
est = INVALID_STATION; |
313
6660bb7b38f1
(svn r319) -Fix: [ 1029064 ] Building a station acted weird in some rare situations
truelight
parents:
243
diff
changeset
|
969 |
// If DC_EXEC is in flag, do not want to pass it to CheckFlatLandBelow, because of a nice bug |
6660bb7b38f1
(svn r319) -Fix: [ 1029064 ] Building a station acted weird in some rare situations
truelight
parents:
243
diff
changeset
|
970 |
// for detail info, see: https://sourceforge.net/tracker/index.php?func=detail&aid=1029064&group_id=103924&atid=636365 |
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
971 |
if (CmdFailed(ret = CheckFlatLandBelow(tile_org, w_org, h_org, flags&~DC_EXEC, 5 << direction, _patches.nonuniform_stations ? &est : NULL))) return CMD_ERROR; |
0 | 972 |
cost = ret + (numtracks * _price.train_station_track + _price.train_station_length) * plat_len; |
973 |
||
974 |
// Make sure there are no similar stations around us. |
|
975 |
st = GetStationAround(tile_org, w_org, h_org, est); |
|
976 |
if (st == CHECK_STATIONS_ERR) return CMD_ERROR; |
|
977 |
||
978 |
// See if there is a deleted station close to us. |
|
979 |
if (st == NULL) { |
|
980 |
st = GetClosestStationFromTile(tile_org, 8, _current_player); |
|
981 |
if (st != NULL && st->facilities) st = NULL; |
|
982 |
} |
|
983 |
||
984 |
if (st != NULL) { |
|
985 |
// Reuse an existing station. |
|
986 |
if (st->owner != OWNER_NONE && st->owner != _current_player) |
|
987 |
return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION); |
|
988 |
||
989 |
if (st->train_tile != 0) { |
|
84
1e0721c29bad
(svn r85) -Add: initial commit of new AI (enable in Patch menu)
truelight
parents:
71
diff
changeset
|
990 |
// check if we want to expanding an already existing station? |
2422
914a12dee832
(svn r2948) -Fix: the old AI needs a special flag that triggers all kind of special
truelight
parents:
2395
diff
changeset
|
991 |
if (_is_old_ai_player || !_patches.join_stations) |
0 | 992 |
return_cmd_error(STR_3005_TOO_CLOSE_TO_ANOTHER_RAILROAD); |
1189
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
993 |
if (!CanExpandRailroadStation(st, finalvalues, direction)) |
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
994 |
return CMD_ERROR; |
0 | 995 |
} |
996 |
||
1189
5ff98d7485b3
(svn r1693) -Fix: [ 1108618 ] A wrong error message was displayed when trying to
Celestar
parents:
1174
diff
changeset
|
997 |
//XXX can't we pack this in the "else" part of the if above? |
2639 | 998 |
if (!CheckStationSpreadOut(st, tile_org, w_org, h_org)) return CMD_ERROR; |
0 | 999 |
} else { |
1000 |
// Create a new station |
|
1001 |
st = AllocateStation(); |
|
2639 | 1002 |
if (st == NULL) return CMD_ERROR; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1003 |
|
0 | 1004 |
st->town = ClosestTownFromTile(tile_org, (uint)-1); |
2639 | 1005 |
if (_current_player < MAX_PLAYERS && flags & DC_EXEC) |
0 | 1006 |
SETBIT(st->town->have_ratings, _current_player); |
1007 |
||
2639 | 1008 |
if (!GenerateStationName(st, tile_org, 0)) return CMD_ERROR; |
1009 |
||
1010 |
if (flags & DC_EXEC) StationInitialize(st, tile_org); |
|
0 | 1011 |
} |
1012 |
||
1013 |
if (flags & DC_EXEC) { |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
1014 |
TileIndexDiff tile_delta; |
0 | 1015 |
byte *layout_ptr; |
1551
eb05e6a90e67
(svn r2055) -CodeChange: Begun introducting StationID
celestar
parents:
1527
diff
changeset
|
1016 |
StationID station_index = st->index; |
2624
47d7768c6dca
(svn r3166) Constify read-only accesses of custom stations
peter1138
parents:
2617
diff
changeset
|
1017 |
const StationSpec *statspec; |
2824
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1018 |
Track track; |
0 | 1019 |
|
313
6660bb7b38f1
(svn r319) -Fix: [ 1029064 ] Building a station acted weird in some rare situations
truelight
parents:
243
diff
changeset
|
1020 |
// Now really clear the land below the station |
6660bb7b38f1
(svn r319) -Fix: [ 1029064 ] Building a station acted weird in some rare situations
truelight
parents:
243
diff
changeset
|
1021 |
// It should never return CMD_ERROR.. but you never know ;) |
6660bb7b38f1
(svn r319) -Fix: [ 1029064 ] Building a station acted weird in some rare situations
truelight
parents:
243
diff
changeset
|
1022 |
// (a bit strange function name for it, but it really does clear the land, when DC_EXEC is in flags) |
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
1023 |
if (CmdFailed(CheckFlatLandBelow(tile_org, w_org, h_org, flags, 5 << direction, _patches.nonuniform_stations ? &est : NULL))) return CMD_ERROR; |
313
6660bb7b38f1
(svn r319) -Fix: [ 1029064 ] Building a station acted weird in some rare situations
truelight
parents:
243
diff
changeset
|
1024 |
|
0 | 1025 |
st->train_tile = finalvalues[0]; |
1026 |
if (!st->facilities) st->xy = finalvalues[0]; |
|
1027 |
st->facilities |= FACIL_TRAIN; |
|
1028 |
st->owner = _current_player; |
|
1029 |
||
1030 |
st->trainst_w = finalvalues[1]; |
|
1031 |
st->trainst_h = finalvalues[2]; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1032 |
|
71
1b8e15a10515
(svn r72) -Add: build_date of station (viewable with Query tool)
truelight
parents:
65
diff
changeset
|
1033 |
st->build_date = _date; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1034 |
|
1981 | 1035 |
tile_delta = direction ? TileDiffXY(0, 1) : TileDiffXY(1, 0); |
2824
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1036 |
track = direction ? TRACK_DIAG2 : TRACK_DIAG1; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1037 |
|
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1038 |
statspec = (p2 & 0x10) != 0 ? GetCustomStation(STAT_CLASS_DFLT, p2 >> 8) : NULL; |
0 | 1039 |
layout_ptr = alloca(numtracks * plat_len); |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1040 |
GetStationLayout(layout_ptr, numtracks, plat_len, statspec); |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1041 |
|
0 | 1042 |
do { |
1775
08ff0f12ccdc
(svn r2279) - Fix: Check the parameters of the first 10 Commands. While there also add proper comments for the functions and fix up CmdFailed()
Darkvater
parents:
1774
diff
changeset
|
1043 |
TileIndex tile = tile_org; |
0 | 1044 |
int w = plat_len; |
1045 |
do { |
|
1046 |
||
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1047 |
ModifyTile(tile, |
0 | 1048 |
MP_SETTYPE(MP_STATION) | MP_MAPOWNER_CURRENT | |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1049 |
MP_MAP2 | MP_MAP5 | MP_MAP3LO | MP_MAP3HI, |
0 | 1050 |
station_index, /* map2 parameter */ |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1051 |
p2 & 0xFF, /* map3lo parameter */ |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1052 |
p2 >> 8, /* map3hi parameter */ |
0 | 1053 |
(*layout_ptr++) + direction /* map5 parameter */ |
1054 |
); |
|
1055 |
||
1056 |
tile += tile_delta; |
|
1057 |
} while (--w); |
|
2824
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1058 |
SetSignalsOnBothDir(tile_org, track); |
1981 | 1059 |
tile_org += tile_delta ^ TileDiffXY(1, 1); // perpendicular to tile_delta |
0 | 1060 |
} while (--numtracks); |
1061 |
||
1062 |
UpdateStationVirtCoordDirty(st); |
|
1063 |
UpdateStationAcceptance(st, false); |
|
1064 |
InvalidateWindow(WC_STATION_LIST, st->owner); |
|
1065 |
} |
|
1066 |
||
1067 |
return cost; |
|
1068 |
} |
|
1069 |
||
2805
b6098e7ca457
(svn r3353) Simplify the automatic length adjustment algorithm for replacing trains: Use the length of the train before the replacement as reference length
tron
parents:
2793
diff
changeset
|
1070 |
static bool TileBelongsToRailStation(const Station *st, TileIndex tile) |
b6098e7ca457
(svn r3353) Simplify the automatic length adjustment algorithm for replacing trains: Use the length of the train before the replacement as reference length
tron
parents:
2793
diff
changeset
|
1071 |
{ |
b6098e7ca457
(svn r3353) Simplify the automatic length adjustment algorithm for replacing trains: Use the length of the train before the replacement as reference length
tron
parents:
2793
diff
changeset
|
1072 |
return IsTileType(tile, MP_STATION) && _m[tile].m2 == st->index && _m[tile].m5 < 8; |
b6098e7ca457
(svn r3353) Simplify the automatic length adjustment algorithm for replacing trains: Use the length of the train before the replacement as reference length
tron
parents:
2793
diff
changeset
|
1073 |
} |
b6098e7ca457
(svn r3353) Simplify the automatic length adjustment algorithm for replacing trains: Use the length of the train before the replacement as reference length
tron
parents:
2793
diff
changeset
|
1074 |
|
0 | 1075 |
static void MakeRailwayStationAreaSmaller(Station *st) |
1076 |
{ |
|
1077 |
uint w = st->trainst_w; |
|
1078 |
uint h = st->trainst_h; |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
1079 |
TileIndex tile = st->train_tile; |
0 | 1080 |
uint i; |
1081 |
||
1082 |
restart: |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1083 |
|
0 | 1084 |
// too small? |
1085 |
if (w != 0 && h != 0) { |
|
1086 |
// check the left side, x = constant, y changes |
|
1981 | 1087 |
for (i = 0; !TileBelongsToRailStation(st, tile + TileDiffXY(0, i));) { |
0 | 1088 |
// the left side is unused? |
1981 | 1089 |
if (++i == h) { |
1090 |
tile += TileDiffXY(1, 0); |
|
1091 |
w--; |
|
1092 |
goto restart; |
|
1093 |
} |
|
1094 |
} |
|
0 | 1095 |
|
1096 |
// check the right side, x = constant, y changes |
|
1981 | 1097 |
for (i = 0; !TileBelongsToRailStation(st, tile + TileDiffXY(w - 1, i));) { |
0 | 1098 |
// the right side is unused? |
1981 | 1099 |
if (++i == h) { |
1100 |
w--; |
|
1101 |
goto restart; |
|
1102 |
} |
|
1103 |
} |
|
0 | 1104 |
|
1105 |
// check the upper side, y = constant, x changes |
|
1981 | 1106 |
for (i = 0; !TileBelongsToRailStation(st, tile + TileDiffXY(i, 0));) { |
0 | 1107 |
// the left side is unused? |
1981 | 1108 |
if (++i == w) { |
1109 |
tile += TileDiffXY(0, 1); |
|
1110 |
h--; |
|
1111 |
goto restart; |
|
1112 |
} |
|
1113 |
} |
|
0 | 1114 |
|
1115 |
// check the lower side, y = constant, x changes |
|
1981 | 1116 |
for (i = 0; !TileBelongsToRailStation(st, tile + TileDiffXY(i, h - 1));) { |
0 | 1117 |
// the left side is unused? |
1981 | 1118 |
if (++i == w) { |
1119 |
h--; |
|
1120 |
goto restart; |
|
1121 |
} |
|
1122 |
} |
|
0 | 1123 |
} else { |
1124 |
tile = 0; |
|
1125 |
} |
|
1126 |
||
1127 |
st->trainst_w = w; |
|
1128 |
st->trainst_h = h; |
|
1129 |
st->train_tile = tile; |
|
1130 |
} |
|
1131 |
||
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1132 |
/** Remove a single tile from a railroad station. |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1133 |
* This allows for custom-built station with holes and weird layouts |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1134 |
* @param x,y tile coordinates to remove |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1135 |
* @param p1 unused |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1136 |
* @param p2 unused |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1137 |
*/ |
0 | 1138 |
int32 CmdRemoveFromRailroadStation(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
1139 |
{ |
|
1980
9ea0c89fbb58
(svn r2486) Turn TILE_FROM_XY into an inline function and rename it to TileVirtXY
tron
parents:
1977
diff
changeset
|
1140 |
TileIndex tile = TileVirtXY(x, y); |
0 | 1141 |
Station *st; |
1142 |
||
889
7f8630bfea41
(svn r1375) -Fix: [1050990] Buying trains sometimes accounted for incorrectly. Was the result of the cost getting reset in a recursive call of docommand. That is fixed. In addition all cost-commands are typed explicitely. Please do not forget to do so or your costs will be credited to construction if you are unlucky.
darkvater
parents:
863
diff
changeset
|
1143 |
SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION); |
7f8630bfea41
(svn r1375) -Fix: [1050990] Buying trains sometimes accounted for incorrectly. Was the result of the cost getting reset in a recursive call of docommand. That is fixed. In addition all cost-commands are typed explicitely. Please do not forget to do so or your costs will be credited to construction if you are unlucky.
darkvater
parents:
863
diff
changeset
|
1144 |
|
0 | 1145 |
// make sure the specified tile belongs to the current player, and that it is a railroad station. |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
1146 |
if (!IsTileType(tile, MP_STATION) || _m[tile].m5 >= 8 || !_patches.nonuniform_stations) return CMD_ERROR; |
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
1147 |
st = GetStation(_m[tile].m2); |
149
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
123
diff
changeset
|
1148 |
if (_current_player != OWNER_WATER && (!CheckOwnership(st->owner) || !EnsureNoVehicle(tile))) return CMD_ERROR; |
0 | 1149 |
|
1150 |
// if we reached here, it means we can actually delete it. do that. |
|
1151 |
if (flags & DC_EXEC) { |
|
2824
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1152 |
Track track = HASBIT(_m[tile].m5, 0) ? TRACK_DIAG2 : TRACK_DIAG1; |
0 | 1153 |
DoClearSquare(tile); |
2824
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1154 |
SetSignalsOnBothDir(tile, track); |
0 | 1155 |
// now we need to make the "spanned" area of the railway station smaller if we deleted something at the edges. |
1156 |
// we also need to adjust train_tile. |
|
1157 |
MakeRailwayStationAreaSmaller(st); |
|
1158 |
||
1159 |
// if we deleted the whole station, delete the train facility. |
|
1160 |
if (st->train_tile == 0) { |
|
1161 |
st->facilities &= ~FACIL_TRAIN; |
|
1162 |
UpdateStationVirtCoordDirty(st); |
|
1163 |
DeleteStationIfEmpty(st); |
|
1164 |
} |
|
1165 |
} |
|
1166 |
return _price.remove_rail_station; |
|
1167 |
} |
|
1168 |
||
1169 |
// determine the number of platforms for the station |
|
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2427
diff
changeset
|
1170 |
uint GetStationPlatforms(const Station *st, TileIndex tile) |
0 | 1171 |
{ |
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
1172 |
TileIndex t; |
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
1173 |
TileIndexDiff delta; |
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
1174 |
int dir; |
2639 | 1175 |
uint len; |
0 | 1176 |
assert(TileBelongsToRailStation(st, tile)); |
1177 |
||
1178 |
len = 0; |
|
2639 | 1179 |
dir = _m[tile].m5 & 1; |
1981 | 1180 |
delta = dir ? TileDiffXY(0, 1) : TileDiffXY(1, 0); |
0 | 1181 |
|
1182 |
// find starting tile.. |
|
1183 |
t = tile; |
|
2639 | 1184 |
do { |
1185 |
t -= delta; |
|
1186 |
len++; |
|
1187 |
} while (TileBelongsToRailStation(st, t) && (_m[t].m5 & 1) == dir); |
|
0 | 1188 |
|
1189 |
// find ending tile |
|
1190 |
t = tile; |
|
2639 | 1191 |
do { |
1192 |
t += delta; |
|
1193 |
len++; |
|
1194 |
} while (TileBelongsToRailStation(st, t) && (_m[t].m5 & 1) == dir); |
|
0 | 1195 |
|
1196 |
return len - 1; |
|
1197 |
} |
|
1198 |
||
149
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
123
diff
changeset
|
1199 |
static int32 RemoveRailroadStation(Station *st, TileIndex tile, uint32 flags) |
0 | 1200 |
{ |
1201 |
int w,h; |
|
1202 |
int32 cost; |
|
1203 |
||
149
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
123
diff
changeset
|
1204 |
/* if there is flooding and non-uniform stations are enabled, remove platforms tile by tile */ |
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
123
diff
changeset
|
1205 |
if (_current_player == OWNER_WATER && _patches.nonuniform_stations) |
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
123
diff
changeset
|
1206 |
return DoCommandByTile(tile, 0, 0, DC_EXEC, CMD_REMOVE_FROM_RAILROAD_STATION); |
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
123
diff
changeset
|
1207 |
|
0 | 1208 |
/* Current player owns the station? */ |
1209 |
if (_current_player != OWNER_WATER && !CheckOwnership(st->owner)) |
|
1210 |
return CMD_ERROR; |
|
1211 |
||
1212 |
/* determine width and height of platforms */ |
|
1213 |
tile = st->train_tile; |
|
1214 |
w = st->trainst_w; |
|
1215 |
h = st->trainst_h; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1216 |
|
0 | 1217 |
assert(w != 0 && h != 0); |
1218 |
||
1219 |
/* cost is area * constant */ |
|
1220 |
cost = w*h*_price.remove_rail_station; |
|
1221 |
||
1222 |
/* clear all areas of the station */ |
|
1223 |
do { |
|
1224 |
int w_bak = w; |
|
1225 |
do { |
|
1226 |
// for nonuniform stations, only remove tiles that are actually train station tiles |
|
1227 |
if (TileBelongsToRailStation(st, tile)) { |
|
1228 |
if (!EnsureNoVehicle(tile)) |
|
1229 |
return CMD_ERROR; |
|
2824
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1230 |
if (flags & DC_EXEC) { |
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1231 |
Track track = HASBIT(_m[tile].m5, 0) ? TRACK_DIAG2 : TRACK_DIAG1; |
0 | 1232 |
DoClearSquare(tile); |
2824
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1233 |
SetSignalsOnBothDir(tile, track); |
a7a9d3239884
(svn r3372) - Fix: update signal states when building or removing rail station blocks
peter1138
parents:
2817
diff
changeset
|
1234 |
} |
0 | 1235 |
} |
1981 | 1236 |
tile += TileDiffXY(1, 0); |
0 | 1237 |
} while (--w); |
1238 |
w = w_bak; |
|
1981 | 1239 |
tile += TileDiffXY(-w, 1); |
0 | 1240 |
} while (--h); |
1241 |
||
1242 |
if (flags & DC_EXEC) { |
|
1243 |
st->train_tile = 0; |
|
1244 |
st->facilities &= ~FACIL_TRAIN; |
|
1245 |
||
1246 |
UpdateStationVirtCoordDirty(st); |
|
1247 |
DeleteStationIfEmpty(st); |
|
1248 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1249 |
|
0 | 1250 |
return cost; |
1251 |
} |
|
1252 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
1253 |
int32 DoConvertStationRail(TileIndex tile, uint totype, bool exec) |
0 | 1254 |
{ |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
1255 |
const Station *st = GetStation(_m[tile].m2); |
0 | 1256 |
if (!CheckOwnership(st->owner) || !EnsureNoVehicle(tile)) return CMD_ERROR; |
1257 |
||
1258 |
// tile is not a railroad station? |
|
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
1259 |
if (_m[tile].m5 >= 8) return CMD_ERROR; |
0 | 1260 |
|
1261 |
// tile is already of requested type? |
|
2493
d834d0c1502a
(svn r3019) -Codechange: Replace explicit shifting/anding/oring with GB and SB
tron
parents:
2489
diff
changeset
|
1262 |
if (GB(_m[tile].m3, 0, 4) == totype) return CMD_ERROR; |
0 | 1263 |
|
1264 |
if (exec) { |
|
1265 |
// change type. |
|
2493
d834d0c1502a
(svn r3019) -Codechange: Replace explicit shifting/anding/oring with GB and SB
tron
parents:
2489
diff
changeset
|
1266 |
SB(_m[tile].m3, 0, 4, totype); |
0 | 1267 |
MarkTileDirtyByTile(tile); |
1268 |
} |
|
1269 |
||
1270 |
return _price.build_rail >> 1; |
|
1271 |
} |
|
1272 |
||
2752 | 1273 |
static void FindRoadStationSpot(bool truck_station, Station* st, RoadStop*** currstop, RoadStop** prev) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1274 |
{ |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1275 |
RoadStop **primary_stop; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1276 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1277 |
primary_stop = (truck_station) ? &st->truck_stops : &st->bus_stops; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1278 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1279 |
if (*primary_stop == NULL) { |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1280 |
//we have no station of the type yet, so write a "primary station" |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1281 |
//(the one at st->foo_stops) |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1282 |
*currstop = primary_stop; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1283 |
} else { |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1284 |
//there are stops already, so append to the end of the list |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1285 |
*prev = *primary_stop; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1286 |
*currstop = &(*primary_stop)->next; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1287 |
while (**currstop != NULL) { |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1288 |
*prev = (*prev)->next; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1289 |
*currstop = &(**currstop)->next; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1290 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1291 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1292 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1293 |
|
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1294 |
/** Build a bus station |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1295 |
* @param x,y coordinates to build bus station at |
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1296 |
* @param p1 busstop entrance direction (0 through 3), where 0 is NW, 1 is NE, etc. |
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1297 |
* @param p2 0 for Bus stops, 1 for truck stops |
0 | 1298 |
*/ |
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1299 |
int32 CmdBuildRoadStop(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
0 | 1300 |
{ |
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1301 |
Station *st; |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1302 |
RoadStop *road_stop; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1303 |
RoadStop **currstop; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1304 |
RoadStop *prev = NULL; |
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1305 |
TileIndex tile; |
0 | 1306 |
int32 cost; |
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1307 |
bool type = !!p2; |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1308 |
|
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1309 |
/* Saveguard the parameters */ |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1310 |
if (p1 > 3) return CMD_ERROR; |
0 | 1311 |
|
1312 |
SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION); |
|
1313 |
||
1980
9ea0c89fbb58
(svn r2486) Turn TILE_FROM_XY into an inline function and rename it to TileVirtXY
tron
parents:
1977
diff
changeset
|
1314 |
tile = TileVirtXY(x, y); |
0 | 1315 |
|
1316 |
if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile)) |
|
1317 |
return CMD_ERROR; |
|
1318 |
||
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1319 |
cost = CheckFlatLandBelow(tile, 1, 1, flags, 1 << p1, NULL); |
2737
f16e0a808897
(svn r3282) - Codechange: Replace tests against CMD_ERROR with CmdFailed()
peter1138
parents:
2690
diff
changeset
|
1320 |
if (CmdFailed(cost)) return CMD_ERROR; |
0 | 1321 |
|
1322 |
st = GetStationAround(tile, 1, 1, -1); |
|
2639 | 1323 |
if (st == CHECK_STATIONS_ERR) return CMD_ERROR; |
0 | 1324 |
|
1325 |
/* Find a station close to us */ |
|
1326 |
if (st == NULL) { |
|
1327 |
st = GetClosestStationFromTile(tile, 8, _current_player); |
|
2989 | 1328 |
if (st != NULL && st->facilities != 0) st = NULL; |
0 | 1329 |
} |
1330 |
||
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1331 |
//give us a road stop in the list, and check if something went wrong |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
1332 |
road_stop = AllocateRoadStop(); |
2951 | 1333 |
if (road_stop == NULL) { |
1334 |
return_cmd_error(type ? STR_3008B_TOO_MANY_TRUCK_STOPS : STR_3008A_TOO_MANY_BUS_STOPS); |
|
1335 |
} |
|
1336 |
||
2989 | 1337 |
if (st != NULL && |
1338 |
GetNumRoadStops(st, RS_BUS) + GetNumRoadStops(st, RS_TRUCK) >= ROAD_STOP_LIMIT) { |
|
2951 | 1339 |
return_cmd_error(type ? STR_3008B_TOO_MANY_TRUCK_STOPS : STR_3008A_TOO_MANY_BUS_STOPS); |
1340 |
} |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1341 |
|
0 | 1342 |
if (st != NULL) { |
2951 | 1343 |
if (st->owner != OWNER_NONE && st->owner != _current_player) { |
0 | 1344 |
return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION); |
2951 | 1345 |
} |
1346 |
||
1347 |
if (!CheckStationSpreadOut(st, tile, 1, 1)) return CMD_ERROR; |
|
0 | 1348 |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1349 |
FindRoadStationSpot(type, st, &currstop, &prev); |
0 | 1350 |
} else { |
1351 |
Town *t; |
|
1352 |
||
1353 |
st = AllocateStation(); |
|
2639 | 1354 |
if (st == NULL) return CMD_ERROR; |
0 | 1355 |
|
1356 |
st->town = t = ClosestTownFromTile(tile, (uint)-1); |
|
1357 |
||
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1358 |
FindRoadStationSpot(type, st, &currstop, &prev); |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1359 |
|
2951 | 1360 |
if (_current_player < MAX_PLAYERS && flags & DC_EXEC) { |
0 | 1361 |
SETBIT(t->have_ratings, _current_player); |
2951 | 1362 |
} |
0 | 1363 |
|
1364 |
st->sign.width_1 = 0; |
|
1365 |
||
2639 | 1366 |
if (!GenerateStationName(st, tile, 0)) return CMD_ERROR; |
1367 |
||
1368 |
if (flags & DC_EXEC) StationInitialize(st, tile); |
|
0 | 1369 |
} |
1370 |
||
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1371 |
cost += (type) ? _price.build_truck_station : _price.build_bus_station; |
0 | 1372 |
|
1373 |
if (flags & DC_EXEC) { |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1374 |
//point to the correct item in the _busstops or _truckstops array |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1375 |
*currstop = road_stop; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1376 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1377 |
//initialize an empty station |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1378 |
InitializeRoadStop(road_stop, prev, tile, st->index); |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1379 |
(*currstop)->type = type; |
0 | 1380 |
if (!st->facilities) st->xy = tile; |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1381 |
st->facilities |= (type) ? FACIL_TRUCK_STOP : FACIL_BUS_STOP; |
0 | 1382 |
st->owner = _current_player; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1383 |
|
71
1b8e15a10515
(svn r72) -Add: build_date of station (viewable with Query tool)
truelight
parents:
65
diff
changeset
|
1384 |
st->build_date = _date; |
0 | 1385 |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1386 |
ModifyTile(tile, |
0 | 1387 |
MP_SETTYPE(MP_STATION) | MP_MAPOWNER_CURRENT | |
1388 |
MP_MAP2 | MP_MAP5 | MP_MAP3LO_CLEAR | MP_MAP3HI_CLEAR, |
|
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1389 |
st->index, /* map2 parameter */ |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
1390 |
/* XXX - Truck stops have 0x43 _m[].m5 value + direction |
1782
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1391 |
* XXX - Bus stops have a _map5 value of 0x47 + direction */ |
0ac16ff36293
(svn r2286) - CodeChange: paramcheck the next batch of commands.
Darkvater
parents:
1781
diff
changeset
|
1392 |
((type) ? 0x43 : 0x47) + p1 /* map5 parameter */ |
0 | 1393 |
); |
1394 |
||
1395 |
UpdateStationVirtCoordDirty(st); |
|
1396 |
UpdateStationAcceptance(st, false); |
|
1397 |
InvalidateWindow(WC_STATION_LIST, st->owner); |
|
1398 |
} |
|
1399 |
return cost; |
|
1400 |
} |
|
1401 |
||
1402 |
// Remove a bus station |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1403 |
static int32 RemoveRoadStop(Station *st, uint32 flags, TileIndex tile) |
0 | 1404 |
{ |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1405 |
RoadStop **primary_stop; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1406 |
RoadStop *cur_stop; |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
1407 |
bool is_truck = _m[tile].m5 < 0x47; |
0 | 1408 |
|
2951 | 1409 |
if (_current_player != OWNER_WATER && !CheckOwnership(st->owner)) { |
0 | 1410 |
return CMD_ERROR; |
2951 | 1411 |
} |
0 | 1412 |
|
2639 | 1413 |
if (is_truck) { // truck stop |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1414 |
primary_stop = &st->truck_stops; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1415 |
cur_stop = GetRoadStopByTile(tile, RS_TRUCK); |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1416 |
} else { |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1417 |
primary_stop = &st->bus_stops; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1418 |
cur_stop = GetRoadStopByTile(tile, RS_BUS); |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1419 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1420 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1421 |
assert(cur_stop != NULL); |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1422 |
|
2951 | 1423 |
if (!EnsureNoVehicle(tile)) return CMD_ERROR; |
0 | 1424 |
|
1425 |
if (flags & DC_EXEC) { |
|
2639 | 1426 |
uint i; |
0 | 1427 |
DoClearSquare(tile); |
1428 |
||
1706
70c2d2ad472a
(svn r2210) - Fix: When a road-station is deleted, also delete the assigned slots of all vehicles headed to that station. This fixes an assertion, thanks go to Tron for finding the cause.
Darkvater
parents:
1685
diff
changeset
|
1429 |
/* Clear all vehicles destined for this station */ |
70c2d2ad472a
(svn r2210) - Fix: When a road-station is deleted, also delete the assigned slots of all vehicles headed to that station. This fixes an assertion, thanks go to Tron for finding the cause.
Darkvater
parents:
1685
diff
changeset
|
1430 |
for (i = 0; i != NUM_SLOTS; i++) { |
70c2d2ad472a
(svn r2210) - Fix: When a road-station is deleted, also delete the assigned slots of all vehicles headed to that station. This fixes an assertion, thanks go to Tron for finding the cause.
Darkvater
parents:
1685
diff
changeset
|
1431 |
if (cur_stop->slot[i] != INVALID_SLOT) { |
70c2d2ad472a
(svn r2210) - Fix: When a road-station is deleted, also delete the assigned slots of all vehicles headed to that station. This fixes an assertion, thanks go to Tron for finding the cause.
Darkvater
parents:
1685
diff
changeset
|
1432 |
Vehicle *v = GetVehicle(cur_stop->slot[i]); |
70c2d2ad472a
(svn r2210) - Fix: When a road-station is deleted, also delete the assigned slots of all vehicles headed to that station. This fixes an assertion, thanks go to Tron for finding the cause.
Darkvater
parents:
1685
diff
changeset
|
1433 |
ClearSlot(v, v->u.road.slot); |
70c2d2ad472a
(svn r2210) - Fix: When a road-station is deleted, also delete the assigned slots of all vehicles headed to that station. This fixes an assertion, thanks go to Tron for finding the cause.
Darkvater
parents:
1685
diff
changeset
|
1434 |
} |
70c2d2ad472a
(svn r2210) - Fix: When a road-station is deleted, also delete the assigned slots of all vehicles headed to that station. This fixes an assertion, thanks go to Tron for finding the cause.
Darkvater
parents:
1685
diff
changeset
|
1435 |
} |
70c2d2ad472a
(svn r2210) - Fix: When a road-station is deleted, also delete the assigned slots of all vehicles headed to that station. This fixes an assertion, thanks go to Tron for finding the cause.
Darkvater
parents:
1685
diff
changeset
|
1436 |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1437 |
cur_stop->used = false; |
2639 | 1438 |
if (cur_stop->prev != NULL) cur_stop->prev->next = cur_stop->next; |
1439 |
if (cur_stop->next != NULL) cur_stop->next->prev = cur_stop->prev; |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1440 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1441 |
//we only had one stop left |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1442 |
if (cur_stop->next == NULL && cur_stop->prev == NULL) { |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1443 |
//so we remove ALL stops |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1444 |
*primary_stop = NULL; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1445 |
st->facilities &= (is_truck) ? ~FACIL_TRUCK_STOP : ~FACIL_BUS_STOP; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1446 |
} else if (cur_stop == *primary_stop) { |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1447 |
//removed the first stop in the list |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1448 |
//need to set the primary element to the next stop |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1449 |
*primary_stop = (*primary_stop)->next; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1450 |
} |
0 | 1451 |
|
1452 |
UpdateStationVirtCoordDirty(st); |
|
1453 |
DeleteStationIfEmpty(st); |
|
1454 |
} |
|
1455 |
||
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
1456 |
return (is_truck) ? _price.remove_truck_station : _price.remove_bus_station; |
0 | 1457 |
} |
1458 |
||
1459 |
||
1460 |
||
1461 |
// FIXME -- need to move to its corresponding Airport variable |
|
1462 |
// Country Airfield (small) |
|
1463 |
static const byte _airport_map5_tiles_country[] = { |
|
1464 |
54, 53, 52, 65, |
|
1465 |
58, 57, 56, 55, |
|
1466 |
64, 63, 63, 62 |
|
1467 |
}; |
|
1468 |
||
1469 |
// City Airport (large) |
|
1470 |
static const byte _airport_map5_tiles_town[] = { |
|
2549 | 1471 |
31, 9, 33, 9, 9, 32, |
1472 |
27, 36, 29, 34, 8, 10, |
|
0 | 1473 |
30, 11, 35, 13, 20, 21, |
1474 |
51, 12, 14, 17, 19, 28, |
|
1475 |
38, 13, 15, 16, 18, 39, |
|
1476 |
26, 22, 23, 24, 25, 26 |
|
1477 |
}; |
|
1478 |
||
1479 |
// Metropolitain Airport (large) - 2 runways |
|
1480 |
static const byte _airport_map5_tiles_metropolitan[] = { |
|
2549 | 1481 |
31, 9, 33, 9, 9, 32, |
1482 |
27, 36, 29, 34, 8, 10, |
|
1483 |
30, 11, 35, 13, 20, 21, |
|
1484 |
102, 8, 8, 8, 8, 28, |
|
1485 |
83, 84, 84, 84, 84, 83, |
|
1486 |
26, 23, 23, 23, 23, 26 |
|
0 | 1487 |
}; |
1488 |
||
1489 |
// International Airport (large) - 2 runways |
|
1490 |
static const byte _airport_map5_tiles_international[] = { |
|
2549 | 1491 |
88, 89, 89, 89, 89, 89, 88, |
1492 |
51, 8, 8, 8, 8, 8, 32, |
|
1493 |
30, 8, 11, 27, 11, 8, 10, |
|
0 | 1494 |
32, 8, 11, 27, 11, 8, 114, |
1495 |
87, 8, 11, 85, 11, 8, 114, |
|
2549 | 1496 |
87, 8, 8, 8, 8, 8, 90, |
1497 |
26, 23, 23, 23, 23, 23, 26 |
|
0 | 1498 |
}; |
1499 |
||
1500 |
// Heliport |
|
1501 |
static const byte _airport_map5_tiles_heliport[] = { |
|
1502 |
66, |
|
1503 |
}; |
|
1504 |
||
1505 |
static const byte * const _airport_map5_tiles[] = { |
|
1506 |
_airport_map5_tiles_country, // Country Airfield (small) |
|
1507 |
_airport_map5_tiles_town, // City Airport (large) |
|
1508 |
_airport_map5_tiles_heliport, // Heliport |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1509 |
_airport_map5_tiles_metropolitan, // Metropolitain Airport (large) |
0 | 1510 |
_airport_map5_tiles_international, // International Airport (xlarge) |
1511 |
}; |
|
1512 |
||
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1513 |
/** Place an Airport. |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1514 |
* @param x,y tile coordinates where airport will be built |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1515 |
* @param p1 airport type, @see airport.h |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1516 |
* @param p2 unused |
0 | 1517 |
*/ |
1518 |
int32 CmdBuildAirport(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
1519 |
{ |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1520 |
TileIndex tile; |
0 | 1521 |
Town *t; |
1522 |
Station *st; |
|
1523 |
int32 cost; |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1524 |
int w, h; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1525 |
bool airport_upgrade = true; |
0 | 1526 |
|
1527 |
SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION); |
|
1528 |
||
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1529 |
/* Check if a valid, buildable airport was chosen for construction */ |
1876
95c95857ec7b
(svn r2382) - Fix: Check the airport type when building an airport
Darkvater
parents:
1840
diff
changeset
|
1530 |
if (p1 > lengthof(_airport_map5_tiles) || !HASBIT(GetValidAirports(), p1)) return CMD_ERROR; |
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1531 |
|
1980
9ea0c89fbb58
(svn r2486) Turn TILE_FROM_XY into an inline function and rename it to TileVirtXY
tron
parents:
1977
diff
changeset
|
1532 |
tile = TileVirtXY(x, y); |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1533 |
|
0 | 1534 |
if (!(flags & DC_NO_TOWN_RATING) && !CheckIfAuthorityAllows(tile)) |
1535 |
return CMD_ERROR; |
|
1536 |
||
1537 |
t = ClosestTownFromTile(tile, (uint)-1); |
|
1538 |
||
1539 |
/* Check if local auth refuses a new airport */ |
|
1540 |
{ |
|
1541 |
uint num = 0; |
|
1542 |
FOR_ALL_STATIONS(st) { |
|
1543 |
if (st->xy != 0 && st->town == t && st->facilities&FACIL_AIRPORT && st->airport_type != AT_OILRIG) |
|
1544 |
num++; |
|
1545 |
} |
|
1546 |
if (num >= 2) { |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
1547 |
SetDParam(0, t->index); |
0 | 1548 |
return_cmd_error(STR_2035_LOCAL_AUTHORITY_REFUSES); |
1549 |
} |
|
1550 |
} |
|
1551 |
||
1552 |
w = _airport_size_x[p1]; |
|
1553 |
h = _airport_size_y[p1]; |
|
1554 |
||
1555 |
cost = CheckFlatLandBelow(tile, w, h, flags, 0, NULL); |
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1784
diff
changeset
|
1556 |
if (CmdFailed(cost)) return CMD_ERROR; |
0 | 1557 |
|
1558 |
st = GetStationAround(tile, w, h, -1); |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1559 |
if (st == CHECK_STATIONS_ERR) return CMD_ERROR; |
0 | 1560 |
|
1561 |
/* Find a station close to us */ |
|
1562 |
if (st == NULL) { |
|
1563 |
st = GetClosestStationFromTile(tile, 8, _current_player); |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1564 |
if (st != NULL && st->facilities) st = NULL; |
0 | 1565 |
} |
1566 |
||
1567 |
if (st != NULL) { |
|
1568 |
if (st->owner != OWNER_NONE && st->owner != _current_player) |
|
1569 |
return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1570 |
|
0 | 1571 |
if (!CheckStationSpreadOut(st, tile, 1, 1)) |
1572 |
return CMD_ERROR; |
|
1573 |
||
1574 |
if (st->airport_tile != 0) |
|
1575 |
return_cmd_error(STR_300D_TOO_CLOSE_TO_ANOTHER_AIRPORT); |
|
1576 |
} else { |
|
1577 |
airport_upgrade = false; |
|
1578 |
||
1579 |
st = AllocateStation(); |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1580 |
if (st == NULL) return CMD_ERROR; |
0 | 1581 |
|
1265
0430e635b116
(svn r1769) Don't compute the same value twice, remove one function call
tron
parents:
1247
diff
changeset
|
1582 |
st->town = t; |
0 | 1583 |
|
2639 | 1584 |
if (_current_player < MAX_PLAYERS && flags & DC_EXEC) |
0 | 1585 |
SETBIT(t->have_ratings, _current_player); |
1586 |
||
1587 |
st->sign.width_1 = 0; |
|
1588 |
||
1589 |
// if airport type equals Heliport then generate |
|
1590 |
// type 5 name, which is heliport, otherwise airport names (1) |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1591 |
if (!GenerateStationName(st, tile, (p1 == AT_HELIPORT) ? 5 : 1)) |
0 | 1592 |
return CMD_ERROR; |
1593 |
||
2951 | 1594 |
if (flags & DC_EXEC) StationInitialize(st, tile); |
0 | 1595 |
} |
1596 |
||
1597 |
cost += _price.build_airport * w * h; |
|
1598 |
||
1599 |
if (flags & DC_EXEC) { |
|
701 | 1600 |
const AirportFTAClass *afc = GetAirport(p1); |
1601 |
||
0 | 1602 |
st->owner = _current_player; |
2425
99e1e8430a28
(svn r2951) - Fix: [ 1259345 ] Changing engine in netgame opens train window for everyone
Darkvater
parents:
2422
diff
changeset
|
1603 |
if (IsLocalPlayer() && afc->nof_depots != 0) |
99e1e8430a28
(svn r2951) - Fix: [ 1259345 ] Changing engine in netgame opens train window for everyone
Darkvater
parents:
2422
diff
changeset
|
1604 |
_last_built_aircraft_depot_tile = tile + ToTileIndexDiff(afc->airport_depots[0]); |
0 | 1605 |
|
1606 |
st->airport_tile = tile; |
|
1607 |
if (!st->facilities) st->xy = tile; |
|
1608 |
st->facilities |= FACIL_AIRPORT; |
|
1609 |
st->airport_type = (byte)p1; |
|
1610 |
st->airport_flags = 0; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1611 |
|
71
1b8e15a10515
(svn r72) -Add: build_date of station (viewable with Query tool)
truelight
parents:
65
diff
changeset
|
1612 |
st->build_date = _date; |
0 | 1613 |
|
2639 | 1614 |
/* if airport was demolished while planes were en-route to it, the |
1615 |
* positions can no longer be the same (v->u.air.pos), since different |
|
1616 |
* airports have different indexes. So update all planes en-route to this |
|
1617 |
* airport. Only update if |
|
1618 |
* 1. airport is upgraded |
|
1619 |
* 2. airport is added to existing station (unfortunately unavoideable) |
|
1620 |
*/ |
|
2549 | 1621 |
if (airport_upgrade) UpdateAirplanesOnNewStation(st); |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1622 |
|
0 | 1623 |
{ |
1624 |
const byte *b = _airport_map5_tiles[p1]; |
|
2549 | 1625 |
|
1626 |
BEGIN_TILE_LOOP(tile_cur,w,h,tile) { |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1627 |
ModifyTile(tile_cur, |
0 | 1628 |
MP_SETTYPE(MP_STATION) | MP_MAPOWNER_CURRENT | |
1629 |
MP_MAP2 | MP_MAP3LO_CLEAR | MP_MAP3HI_CLEAR | MP_MAP5, |
|
1630 |
st->index, *b++); |
|
2549 | 1631 |
} END_TILE_LOOP(tile_cur,w,h,tile) |
0 | 1632 |
} |
1633 |
||
1634 |
UpdateStationVirtCoordDirty(st); |
|
1635 |
UpdateStationAcceptance(st, false); |
|
1636 |
InvalidateWindow(WC_STATION_LIST, st->owner); |
|
1637 |
} |
|
1638 |
||
1639 |
return cost; |
|
1640 |
} |
|
1641 |
||
1642 |
static int32 RemoveAirport(Station *st, uint32 flags) |
|
1643 |
{ |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
1644 |
TileIndex tile; |
0 | 1645 |
int w,h; |
1646 |
int32 cost; |
|
1647 |
||
1648 |
if (_current_player != OWNER_WATER && !CheckOwnership(st->owner)) |
|
1649 |
return CMD_ERROR; |
|
1650 |
||
1651 |
tile = st->airport_tile; |
|
1652 |
||
1653 |
w = _airport_size_x[st->airport_type]; |
|
1654 |
h = _airport_size_y[st->airport_type]; |
|
1655 |
||
1656 |
cost = w * h * _price.remove_airport; |
|
1657 |
||
1658 |
{ |
|
1659 |
BEGIN_TILE_LOOP(tile_cur,w,h,tile) |
|
1660 |
if (!EnsureNoVehicle(tile_cur)) |
|
1661 |
return CMD_ERROR; |
|
1662 |
||
1663 |
if (flags & DC_EXEC) { |
|
1664 |
DeleteAnimatedTile(tile_cur); |
|
1665 |
DoClearSquare(tile_cur); |
|
1666 |
} |
|
1667 |
END_TILE_LOOP(tile_cur, w,h,tile) |
|
1668 |
} |
|
1669 |
||
1670 |
if (flags & DC_EXEC) { |
|
700 | 1671 |
const AirportFTAClass *afc = GetAirport(st->airport_type); |
1672 |
uint i; |
|
1673 |
||
1674 |
for (i = 0; i < afc->nof_depots; ++i) |
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
1675 |
DeleteWindowById(WC_VEHICLE_DEPOT, tile + ToTileIndexDiff(afc->airport_depots[i])); |
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
709
diff
changeset
|
1676 |
|
0 | 1677 |
st->airport_tile = 0; |
1678 |
st->facilities &= ~FACIL_AIRPORT; |
|
1679 |
||
1680 |
UpdateStationVirtCoordDirty(st); |
|
1681 |
DeleteStationIfEmpty(st); |
|
1682 |
} |
|
1683 |
||
1684 |
return cost; |
|
1685 |
} |
|
1686 |
||
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1687 |
/** Build a buoy. |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1688 |
* @param x,y tile coordinates of bouy construction |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1689 |
* @param p1 unused |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1690 |
* @param p2 unused |
0 | 1691 |
*/ |
1692 |
int32 CmdBuildBuoy(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
1693 |
{ |
|
1694 |
TileInfo ti; |
|
1695 |
Station *st; |
|
1696 |
||
1697 |
SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION); |
|
1698 |
||
1699 |
FindLandscapeHeight(&ti, x, y); |
|
1700 |
||
1701 |
if (ti.type != MP_WATER || ti.tileh != 0 || ti.map5 != 0 || ti.tile == 0) |
|
1702 |
return_cmd_error(STR_304B_SITE_UNSUITABLE); |
|
1703 |
||
1704 |
st = AllocateStation(); |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1705 |
if (st == NULL) return CMD_ERROR; |
0 | 1706 |
|
1707 |
st->town = ClosestTownFromTile(ti.tile, (uint)-1); |
|
1708 |
st->sign.width_1 = 0; |
|
1709 |
||
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1710 |
if (!GenerateStationName(st, ti.tile, 4)) return CMD_ERROR; |
0 | 1711 |
|
1712 |
if (flags & DC_EXEC) { |
|
1713 |
StationInitialize(st, ti.tile); |
|
1714 |
st->dock_tile = ti.tile; |
|
1715 |
st->facilities |= FACIL_DOCK; |
|
1751
954dd2900ac9
(svn r2255) - Fix: [ 9680363 ] [NPF] Broken buoy handling for ships
matthijs
parents:
1706
diff
changeset
|
1716 |
/* Buoys are marked in the Station struct by this flag. Yes, it is this |
954dd2900ac9
(svn r2255) - Fix: [ 9680363 ] [NPF] Broken buoy handling for ships
matthijs
parents:
1706
diff
changeset
|
1717 |
* braindead.. */ |
0 | 1718 |
st->had_vehicle_of_type |= HVOT_BUOY; |
1719 |
st->owner = OWNER_NONE; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1720 |
|
71
1b8e15a10515
(svn r72) -Add: build_date of station (viewable with Query tool)
truelight
parents:
65
diff
changeset
|
1721 |
st->build_date = _date; |
0 | 1722 |
|
1723 |
ModifyTile(ti.tile, |
|
1724 |
MP_SETTYPE(MP_STATION) | |
|
1725 |
MP_MAP2 | MP_MAP3LO_CLEAR | MP_MAP3HI_CLEAR | MP_MAPOWNER | MP_MAP5, |
|
1726 |
st->index, /* map2 */ |
|
1727 |
OWNER_NONE, /* map_owner */ |
|
1728 |
0x52 /* map5 */ |
|
1729 |
); |
|
1730 |
||
1731 |
UpdateStationVirtCoordDirty(st); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1732 |
|
0 | 1733 |
UpdateStationAcceptance(st, false); |
1734 |
InvalidateWindow(WC_STATION_LIST, st->owner); |
|
1735 |
} |
|
1736 |
||
1737 |
return _price.build_dock; |
|
1738 |
} |
|
1739 |
||
1078
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1740 |
/* Checks if any ship is servicing the buoy specified. Returns yes or no */ |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1741 |
static bool CheckShipsOnBuoy(Station *st) |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1742 |
{ |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1743 |
const Vehicle *v; |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1744 |
FOR_ALL_VEHICLES(v) { |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1745 |
if (v->type == VEH_Ship) { |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1746 |
const Order *order; |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1747 |
FOR_VEHICLE_ORDERS(v, order) { |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1748 |
if (order->type == OT_GOTO_STATION && order->station == st->index) { |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1749 |
return true; |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1750 |
} |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1751 |
} |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1752 |
} |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1753 |
} |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1754 |
return false; |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1755 |
} |
326bae748bcb
(svn r1579) Fix: [ 1105963 ] Buoys can now only be removed if no ship has it in their schedule.
dominik
parents:
1067
diff
changeset
|
1756 |
|
0 | 1757 |
static int32 RemoveBuoy(Station *st, uint32 flags) |
1758 |
{ |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
1759 |
TileIndex tile; |
0 | 1760 |
|
1761 |
if (_current_player >= MAX_PLAYERS) { |
|
1762 |
/* XXX: strange stuff */ |
|
1763 |
return_cmd_error(INVALID_STRING_ID); |
|
1764 |
} |
|
1765 |
||
1766 |
tile = st->dock_tile; |
|
1767 |
||
2639 | 1768 |
if (CheckShipsOnBuoy(st)) return_cmd_error(STR_BUOY_IS_IN_USE); |
1769 |
if (!EnsureNoVehicle(tile)) return CMD_ERROR; |
|
0 | 1770 |
|
1771 |
if (flags & DC_EXEC) { |
|
1772 |
st->dock_tile = 0; |
|
1751
954dd2900ac9
(svn r2255) - Fix: [ 9680363 ] [NPF] Broken buoy handling for ships
matthijs
parents:
1706
diff
changeset
|
1773 |
/* Buoys are marked in the Station struct by this flag. Yes, it is this |
954dd2900ac9
(svn r2255) - Fix: [ 9680363 ] [NPF] Broken buoy handling for ships
matthijs
parents:
1706
diff
changeset
|
1774 |
* braindead.. */ |
0 | 1775 |
st->facilities &= ~FACIL_DOCK; |
1776 |
st->had_vehicle_of_type &= ~HVOT_BUOY; |
|
1777 |
||
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1778 |
ModifyTile(tile, |
0 | 1779 |
MP_SETTYPE(MP_WATER) | |
1780 |
MP_MAP2_CLEAR | MP_MAP3LO_CLEAR | MP_MAP3HI_CLEAR | MP_MAPOWNER | MP_MAP5 | MP_MAP2_CLEAR, |
|
1781 |
OWNER_WATER, /* map_owner */ |
|
1782 |
0 /* map5 */ |
|
1783 |
); |
|
1784 |
||
1785 |
UpdateStationVirtCoordDirty(st); |
|
1786 |
DeleteStationIfEmpty(st); |
|
1787 |
} |
|
1788 |
||
1789 |
return _price.remove_truck_station; |
|
1790 |
} |
|
1791 |
||
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
1792 |
static const TileIndexDiffC _dock_tileoffs_chkaround[] = { |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
1793 |
{-1, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
1794 |
{ 0, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
1795 |
{ 0, 0}, |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
1796 |
{ 0, -1} |
0 | 1797 |
}; |
1798 |
static const byte _dock_w_chk[4] = { 2,1,2,1 }; |
|
1799 |
static const byte _dock_h_chk[4] = { 1,2,1,2 }; |
|
1800 |
||
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1801 |
/** Build a dock/haven. |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1802 |
* @param x,y tile coordinates where dock will be built |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1803 |
* @param p1 unused |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1804 |
* @param p2 unused |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1805 |
*/ |
0 | 1806 |
int32 CmdBuildDock(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
1807 |
{ |
|
1808 |
TileInfo ti; |
|
1809 |
int direction; |
|
1810 |
int32 cost; |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1811 |
TileIndex tile, tile_cur; |
0 | 1812 |
Station *st; |
1813 |
||
1814 |
SET_EXPENSES_TYPE(EXPENSES_CONSTRUCTION); |
|
1815 |
||
1816 |
FindLandscapeHeight(&ti, x, y); |
|
1817 |
||
1818 |
if ((direction=0,ti.tileh) != 3 && |
|
1819 |
(direction++,ti.tileh) != 9 && |
|
1820 |
(direction++,ti.tileh) != 12 && |
|
1821 |
(direction++,ti.tileh) != 6) |
|
1822 |
return_cmd_error(STR_304B_SITE_UNSUITABLE); |
|
1823 |
||
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1824 |
if (!EnsureNoVehicle(ti.tile)) return CMD_ERROR; |
0 | 1825 |
|
1826 |
cost = DoCommandByTile(ti.tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR); |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1827 |
if (CmdFailed(cost)) return CMD_ERROR; |
0 | 1828 |
|
900 | 1829 |
tile_cur = (tile=ti.tile) + TileOffsByDir(direction); |
0 | 1830 |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1831 |
if (!EnsureNoVehicle(tile_cur)) return CMD_ERROR; |
0 | 1832 |
|
1833 |
FindLandscapeHeightByTile(&ti, tile_cur); |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1834 |
if (ti.tileh != 0 || ti.type != MP_WATER) return_cmd_error(STR_304B_SITE_UNSUITABLE); |
0 | 1835 |
|
1836 |
cost = DoCommandByTile(tile_cur, 0, 0, flags, CMD_LANDSCAPE_CLEAR); |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1837 |
if (CmdFailed(cost)) return CMD_ERROR; |
0 | 1838 |
|
900 | 1839 |
tile_cur = tile_cur + TileOffsByDir(direction); |
0 | 1840 |
FindLandscapeHeightByTile(&ti, tile_cur); |
1841 |
if (ti.tileh != 0 || ti.type != MP_WATER) |
|
1842 |
return_cmd_error(STR_304B_SITE_UNSUITABLE); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1843 |
|
0 | 1844 |
/* middle */ |
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
1845 |
st = GetStationAround( |
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
1846 |
tile + ToTileIndexDiff(_dock_tileoffs_chkaround[direction]), |
0 | 1847 |
_dock_w_chk[direction], _dock_h_chk[direction], -1); |
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1848 |
if (st == CHECK_STATIONS_ERR) return CMD_ERROR; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1849 |
|
0 | 1850 |
/* Find a station close to us */ |
1851 |
if (st == NULL) { |
|
1852 |
st = GetClosestStationFromTile(tile, 8, _current_player); |
|
1853 |
if (st!=NULL && st->facilities) st = NULL; |
|
1854 |
} |
|
1855 |
||
1856 |
if (st != NULL) { |
|
1857 |
if (st->owner != OWNER_NONE && st->owner != _current_player) |
|
1858 |
return_cmd_error(STR_3009_TOO_CLOSE_TO_ANOTHER_STATION); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1859 |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1860 |
if (!CheckStationSpreadOut(st, tile, 1, 1)) return CMD_ERROR; |
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1861 |
|
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1862 |
if (st->dock_tile != 0) return_cmd_error(STR_304C_TOO_CLOSE_TO_ANOTHER_DOCK); |
0 | 1863 |
} else { |
1864 |
Town *t; |
|
1865 |
||
1866 |
st = AllocateStation(); |
|
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1867 |
if (st == NULL) return CMD_ERROR; |
0 | 1868 |
|
1869 |
st->town = t = ClosestTownFromTile(tile, (uint)-1); |
|
1870 |
||
1871 |
if (_current_player < MAX_PLAYERS && flags&DC_EXEC) |
|
1872 |
SETBIT(t->have_ratings, _current_player); |
|
1873 |
||
1874 |
st->sign.width_1 = 0; |
|
1875 |
||
1784
6eb3ab1bc33c
(svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115).
Darkvater
parents:
1782
diff
changeset
|
1876 |
if (!GenerateStationName(st, tile, 3)) return CMD_ERROR; |
0 | 1877 |
|
2639 | 1878 |
if (flags & DC_EXEC) StationInitialize(st, tile); |
0 | 1879 |
} |
1880 |
||
1881 |
if (flags & DC_EXEC) { |
|
1882 |
st->dock_tile = tile; |
|
1883 |
if (!st->facilities) st->xy = tile; |
|
1884 |
st->facilities |= FACIL_DOCK; |
|
1885 |
st->owner = _current_player; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1886 |
|
71
1b8e15a10515
(svn r72) -Add: build_date of station (viewable with Query tool)
truelight
parents:
65
diff
changeset
|
1887 |
st->build_date = _date; |
0 | 1888 |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1889 |
ModifyTile(tile, |
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1890 |
MP_SETTYPE(MP_STATION) | MP_MAPOWNER_CURRENT | |
0 | 1891 |
MP_MAP2 | MP_MAP3LO_CLEAR | MP_MAP3HI_CLEAR | |
1892 |
MP_MAP5, |
|
1893 |
st->index, |
|
1894 |
direction + 0x4C); |
|
1895 |
||
900 | 1896 |
ModifyTile(tile + TileOffsByDir(direction), |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1897 |
MP_SETTYPE(MP_STATION) | MP_MAPOWNER_CURRENT | |
0 | 1898 |
MP_MAP2 | MP_MAP3LO_CLEAR | MP_MAP3HI_CLEAR | |
1899 |
MP_MAP5, |
|
1900 |
st->index, |
|
1901 |
(direction&1) + 0x50); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
1902 |
|
0 | 1903 |
UpdateStationVirtCoordDirty(st); |
1904 |
UpdateStationAcceptance(st, false); |
|
1905 |
InvalidateWindow(WC_STATION_LIST, st->owner); |
|
1906 |
} |
|
1907 |
return _price.build_dock; |
|
1908 |
} |
|
1909 |
||
1910 |
static int32 RemoveDock(Station *st, uint32 flags) |
|
1911 |
{ |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
1912 |
TileIndex tile1; |
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
1913 |
TileIndex tile2; |
0 | 1914 |
|
2639 | 1915 |
if (!CheckOwnership(st->owner)) return CMD_ERROR; |
0 | 1916 |
|
1917 |
tile1 = st->dock_tile; |
|
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
1918 |
tile2 = tile1 + TileOffsByDir(_m[tile1].m5 - 0x4C); |
0 | 1919 |
|
2639 | 1920 |
if (!EnsureNoVehicle(tile1)) return CMD_ERROR; |
1921 |
if (!EnsureNoVehicle(tile2)) return CMD_ERROR; |
|
0 | 1922 |
|
1923 |
if (flags & DC_EXEC) { |
|
1924 |
DoClearSquare(tile1); |
|
1925 |
||
1926 |
// convert the water tile to water. |
|
1927 |
ModifyTile(tile2, MP_SETTYPE(MP_WATER) | MP_MAPOWNER | MP_MAP5 | MP_MAP2_CLEAR | MP_MAP3LO_CLEAR | MP_MAP3HI_CLEAR, OWNER_WATER, 0); |
|
1928 |
||
1929 |
st->dock_tile = 0; |
|
1930 |
st->facilities &= ~FACIL_DOCK; |
|
1931 |
||
1932 |
UpdateStationVirtCoordDirty(st); |
|
1933 |
DeleteStationIfEmpty(st); |
|
1934 |
} |
|
1935 |
||
1936 |
return _price.remove_dock; |
|
1937 |
} |
|
1938 |
||
1939 |
#include "table/station_land.h" |
|
1940 |
||
1941 |
||
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1942 |
extern uint16 _custom_sprites_base; |
0 | 1943 |
|
1944 |
static void DrawTile_Station(TileInfo *ti) |
|
1945 |
{ |
|
1946 |
uint32 image_or_modificator; |
|
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1947 |
uint32 image; |
0 | 1948 |
const DrawTileSeqStruct *dtss; |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1949 |
const DrawTileSprites *t = NULL; |
2520
75eb66d6e371
(svn r3049) Replace byte/int/uint by RailType where appropriate
tron
parents:
2517
diff
changeset
|
1950 |
RailType railtype = GB(_m[ti->tile].m3, 0, 4); |
2254
72f8883ff3ac
(svn r2774) -Codechange: Removed TRACKTYPE_SPRITE_PITCH globally and replaced it by a member of RailtypeInfo
celestar
parents:
2213
diff
changeset
|
1951 |
const RailtypeInfo *rti = GetRailTypeInfo(railtype); |
72f8883ff3ac
(svn r2774) -Codechange: Removed TRACKTYPE_SPRITE_PITCH globally and replaced it by a member of RailtypeInfo
celestar
parents:
2213
diff
changeset
|
1952 |
SpriteID offset; |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1953 |
uint32 relocation = 0; |
0 | 1954 |
|
1955 |
{ |
|
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
1956 |
PlayerID owner = GetTileOwner(ti->tile); |
2187
2a51f8925eeb
(svn r2702) -Codechange: Cleaned up the sprite code and replaced many magic numbers
celestar
parents:
2186
diff
changeset
|
1957 |
image_or_modificator = PALETTE_TO_GREY; /* NOTE: possible bug in ttd here? */ |
2639 | 1958 |
if (owner < MAX_PLAYERS) image_or_modificator = PLAYER_SPRITE_COLOR(owner); |
0 | 1959 |
} |
1960 |
||
1961 |
// don't show foundation for docks (docks are between 76 (0x4C) and 81 (0x51)) |
|
1962 |
if (ti->tileh != 0 && (ti->map5 < 0x4C || ti->map5 > 0x51)) |
|
1963 |
DrawFoundation(ti, ti->tileh); |
|
1964 |
||
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
1965 |
if (_m[ti->tile].m3 & 0x10) { |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1966 |
// look for customization |
2624
47d7768c6dca
(svn r3166) Constify read-only accesses of custom stations
peter1138
parents:
2617
diff
changeset
|
1967 |
const StationSpec *statspec = GetCustomStation(STAT_CLASS_DFLT, _m[ti->tile].m4); |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1968 |
|
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1969 |
//debug("Cust-o-mized %p", statspec); |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1970 |
|
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1971 |
if (statspec != NULL) { |
2630 | 1972 |
const Station* st = GetStation(_m[ti->tile].m2); |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1973 |
|
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1974 |
relocation = GetCustomStationRelocation(statspec, st, 0); |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1975 |
//debug("Relocation %d", relocation); |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1976 |
t = &statspec->renderdata[ti->map5]; |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1977 |
} |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1978 |
} |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1979 |
|
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1980 |
if (t == NULL) t = &_station_display_datas[ti->map5]; |
384
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
1981 |
|
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
1982 |
image = t->ground_sprite; |
2639 | 1983 |
if (image & PALETTE_MODIFIER_COLOR) image |= image_or_modificator; |
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1984 |
|
2008
c9d6585c96c8
(svn r2516) - Feature: [pbs] Implement path-based-signalling. This allows multiple trains within the same signal block, provided their paths dont intersect. For this the block must have all exit and entry signals be pbs signals. Place these by ctrl-clicking 4 times on a normal signal.
hackykid
parents:
1981
diff
changeset
|
1985 |
// For custom sprites, there's no railtype-based pitching. |
2254
72f8883ff3ac
(svn r2774) -Codechange: Removed TRACKTYPE_SPRITE_PITCH globally and replaced it by a member of RailtypeInfo
celestar
parents:
2213
diff
changeset
|
1986 |
offset = (image & SPRITE_MASK) < _custom_sprites_base ? rti->total_offset : railtype; |
72f8883ff3ac
(svn r2774) -Codechange: Removed TRACKTYPE_SPRITE_PITCH globally and replaced it by a member of RailtypeInfo
celestar
parents:
2213
diff
changeset
|
1987 |
image += offset; |
2008
c9d6585c96c8
(svn r2516) - Feature: [pbs] Implement path-based-signalling. This allows multiple trains within the same signal block, provided their paths dont intersect. For this the block must have all exit and entry signals be pbs signals. Place these by ctrl-clicking 4 times on a normal signal.
hackykid
parents:
1981
diff
changeset
|
1988 |
|
449
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1989 |
// station_land array has been increased from 82 elements to 114 |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1990 |
// but this is something else. If AI builds station with 114 it looks all weird |
d9325d9f24bb
(svn r659) Support for cutomized TTDPatch-style new stations (no selector GUI yet) (pasky)
tron
parents:
445
diff
changeset
|
1991 |
DrawGroundSprite(image); |
0 | 1992 |
|
384
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
1993 |
foreach_draw_tile_seq(dtss, t->seq) { |
2008
c9d6585c96c8
(svn r2516) - Feature: [pbs] Implement path-based-signalling. This allows multiple trains within the same signal block, provided their paths dont intersect. For this the block must have all exit and entry signals be pbs signals. Place these by ctrl-clicking 4 times on a normal signal.
hackykid
parents:
1981
diff
changeset
|
1994 |
image = dtss->image + relocation; |
2254
72f8883ff3ac
(svn r2774) -Codechange: Removed TRACKTYPE_SPRITE_PITCH globally and replaced it by a member of RailtypeInfo
celestar
parents:
2213
diff
changeset
|
1995 |
image += offset; |
384
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
1996 |
if (_display_opt & DO_TRANS_BUILDINGS) { |
2148
47ba4a1b1c3b
(svn r2658) -Codechange: Use MAKE_TRANSPARENT to display a transparented sprite
celestar
parents:
2140
diff
changeset
|
1997 |
MAKE_TRANSPARENT(image); |
497
2d6d31173813
(svn r787) Invert the sense of the DO_TRANS_BUILDINGS flag to be consistent with its own name and all other DO_* flags.
tron
parents:
494
diff
changeset
|
1998 |
} else { |
2187
2a51f8925eeb
(svn r2702) -Codechange: Cleaned up the sprite code and replaced many magic numbers
celestar
parents:
2186
diff
changeset
|
1999 |
if (image & PALETTE_MODIFIER_COLOR) image |= image_or_modificator; |
384
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
2000 |
} |
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
2001 |
|
0 | 2002 |
if ((byte)dtss->delta_z != 0x80) { |
2003 |
AddSortableSpriteToDraw(image, ti->x + dtss->delta_x, ti->y + dtss->delta_y, dtss->width, dtss->height, dtss->unk, ti->z + dtss->delta_z); |
|
2004 |
} else { |
|
2005 |
AddChildSpriteScreen(image, dtss->delta_x, dtss->delta_y); |
|
2006 |
} |
|
2007 |
} |
|
2008 |
} |
|
2009 |
||
2520
75eb66d6e371
(svn r3049) Replace byte/int/uint by RailType where appropriate
tron
parents:
2517
diff
changeset
|
2010 |
void StationPickerDrawSprite(int x, int y, RailType railtype, int image) |
0 | 2011 |
{ |
2012 |
uint32 ormod, img; |
|
2013 |
const DrawTileSeqStruct *dtss; |
|
384
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
2014 |
const DrawTileSprites *t; |
2254
72f8883ff3ac
(svn r2774) -Codechange: Removed TRACKTYPE_SPRITE_PITCH globally and replaced it by a member of RailtypeInfo
celestar
parents:
2213
diff
changeset
|
2015 |
const RailtypeInfo *rti = GetRailTypeInfo(railtype); |
0 | 2016 |
|
2017 |
ormod = PLAYER_SPRITE_COLOR(_local_player); |
|
2018 |
||
384
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
2019 |
t = &_station_display_datas[image]; |
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
2020 |
|
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
2021 |
img = t->ground_sprite; |
2639 | 2022 |
if (img & PALETTE_MODIFIER_COLOR) img |= ormod; |
2254
72f8883ff3ac
(svn r2774) -Codechange: Removed TRACKTYPE_SPRITE_PITCH globally and replaced it by a member of RailtypeInfo
celestar
parents:
2213
diff
changeset
|
2023 |
DrawSprite(img + rti->total_offset, x, y); |
0 | 2024 |
|
384
bf1303e754ff
(svn r576) -newgrf: Cleanup horrible table/(station|unmovable)_land.h DrawTileSeqStruct hacks needed for custom station supports (pasky)
darkvater
parents:
354
diff
changeset
|
2025 |
foreach_draw_tile_seq(dtss, t->seq) { |
0 | 2026 |
Point pt = RemapCoords(dtss->delta_x, dtss->delta_y, dtss->delta_z); |
2254
72f8883ff3ac
(svn r2774) -Codechange: Removed TRACKTYPE_SPRITE_PITCH globally and replaced it by a member of RailtypeInfo
celestar
parents:
2213
diff
changeset
|
2027 |
DrawSprite((dtss->image | ormod) + rti->total_offset, x + pt.x, y + pt.y); |
0 | 2028 |
} |
2029 |
} |
|
2030 |
||
2537 | 2031 |
static uint GetSlopeZ_Station(const TileInfo* ti) |
0 | 2032 |
{ |
2549 | 2033 |
return (ti->tileh != 0) ? ti->z + 8 : ti->z; |
0 | 2034 |
} |
2035 |
||
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2427
diff
changeset
|
2036 |
static uint GetSlopeTileh_Station(const TileInfo *ti) |
39 | 2037 |
{ |
2038 |
return 0; |
|
2039 |
} |
|
2040 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2041 |
static void GetAcceptedCargo_Station(TileIndex tile, AcceptedCargo ac) |
0 | 2042 |
{ |
2043 |
/* not used */ |
|
2044 |
} |
|
2045 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2046 |
static void GetTileDesc_Station(TileIndex tile, TileDesc *td) |
0 | 2047 |
{ |
2048 |
byte m5; |
|
2049 |
StringID str; |
|
2050 |
||
1901
fb05044cf5c3
(svn r2407) Use {Get,Is}TileOwner to get/check the owner of a tile and fix some bogus reads of _map_owner
tron
parents:
1891
diff
changeset
|
2051 |
td->owner = GetTileOwner(tile); |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2052 |
td->build_date = GetStation(_m[tile].m2)->build_date; |
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2053 |
|
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2054 |
m5 = _m[tile].m5; |
0 | 2055 |
(str=STR_305E_RAILROAD_STATION, m5 < 8) || |
2056 |
(str=STR_305F_AIRCRAFT_HANGAR, m5==32 || m5==45) || // hangars |
|
2057 |
(str=STR_3060_AIRPORT, m5 < 0x43 || (m5 >= 83 && m5 <= 114)) || |
|
2058 |
(str=STR_3061_TRUCK_LOADING_AREA, m5 < 0x47) || |
|
2059 |
(str=STR_3062_BUS_STATION, m5 < 0x4B) || |
|
2060 |
(str=STR_4807_OIL_RIG, m5 == 0x4B) || |
|
2061 |
(str=STR_3063_SHIP_DOCK, m5 != 0x52) || |
|
2062 |
(str=STR_3069_BUOY, true); |
|
2063 |
td->str = str; |
|
2064 |
} |
|
2065 |
||
2066 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2067 |
static uint32 GetTileTrackStatus_Station(TileIndex tile, TransportType mode) |
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2068 |
{ |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2069 |
uint i = _m[tile].m5; |
0 | 2070 |
uint j = 0; |
2071 |
||
1032
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2072 |
switch (mode) { |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2073 |
case TRANSPORT_RAIL: |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2074 |
if (i < 8) { |
2630 | 2075 |
static const byte tile_track_status_rail[] = { 1, 2, 1, 2, 1, 2, 1, 2 }; |
1032
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2076 |
j = tile_track_status_rail[i]; |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2077 |
} |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2078 |
j += (j << 8); |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2079 |
break; |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2080 |
|
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2081 |
case TRANSPORT_WATER: |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2082 |
// buoy is coded as a station, it is always on open water |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2083 |
// (0x3F, all tracks available) |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2084 |
if (i == 0x52) j = 0x3F; |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2085 |
j += (j << 8); |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2086 |
break; |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2087 |
|
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2088 |
default: |
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2089 |
break; |
0 | 2090 |
} |
1032
6020f9143b17
(svn r1533) Turn an if cascade into a switch and move a const array to the only location where it is used
tron
parents:
1024
diff
changeset
|
2091 |
|
159
139cf78bfb28
(svn r160) -Codechange: made GetTileTrackStatus more readable (blathijs)
truelight
parents:
149
diff
changeset
|
2092 |
return j; |
0 | 2093 |
} |
2094 |
||
2660 | 2095 |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2096 |
static void TileLoop_Station(TileIndex tile) |
0 | 2097 |
{ |
2660 | 2098 |
// FIXME -- GetTileTrackStatus_Station -> animated stationtiles |
2099 |
// hardcoded.....not good |
|
2100 |
switch (_m[tile].m5) { |
|
2101 |
case 0x27: // large big airport |
|
2102 |
case 0x3A: // flag small airport |
|
2103 |
case 0x5A: // radar international airport |
|
2104 |
case 0x66: // radar metropolitan airport |
|
2105 |
AddAnimatedTile(tile); |
|
2106 |
break; |
|
2107 |
||
2108 |
case 0x4B: // oilrig (station part) |
|
2109 |
case 0x52: // bouy |
|
2110 |
TileLoop_Water(tile); |
|
2111 |
break; |
|
2112 |
||
2113 |
default: break; |
|
2114 |
} |
|
0 | 2115 |
} |
2116 |
||
2117 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2118 |
static void AnimateTile_Station(TileIndex tile) |
0 | 2119 |
{ |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2120 |
byte m5 = _m[tile].m5; |
0 | 2121 |
//FIXME -- AnimateTile_Station -> not nice code, lots of things double |
2122 |
// again hardcoded...was a quick hack |
|
2123 |
||
2124 |
// turning radar / windsack on airport |
|
2125 |
if (m5 >= 39 && m5 <= 50) { // turning radar (39 - 50) |
|
2126 |
if (_tick_counter & 3) |
|
2127 |
return; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2128 |
|
0 | 2129 |
if (++m5 == 50+1) |
2130 |
m5 = 39; |
|
2131 |
||
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2132 |
_m[tile].m5 = m5; |
0 | 2133 |
MarkTileDirtyByTile(tile); |
2134 |
//added - begin |
|
2135 |
} else if (m5 >= 90 && m5 <= 113) { // turning radar with ground under it (different fences) (90 - 101 | 102 - 113) |
|
2136 |
if (_tick_counter & 3) |
|
2137 |
return; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2138 |
|
0 | 2139 |
m5++; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2140 |
|
0 | 2141 |
if (m5 == 101+1) {m5 = 90;} // radar with fences in south |
2142 |
else if (m5 == 113+1) {m5 = 102;} // radar with fences in north |
|
2143 |
||
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2144 |
_m[tile].m5 = m5; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2145 |
MarkTileDirtyByTile(tile); |
0 | 2146 |
//added - end |
2147 |
} else if (m5 >= 0x3A && m5 <= 0x3D) { // windsack (58 - 61) |
|
2148 |
if (_tick_counter & 1) |
|
2149 |
return; |
|
2150 |
||
2151 |
if (++m5 == 0x3D+1) |
|
2152 |
m5 = 0x3A; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2153 |
|
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2154 |
_m[tile].m5 = m5; |
0 | 2155 |
MarkTileDirtyByTile(tile); |
2156 |
} |
|
2157 |
} |
|
2158 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2159 |
static void ClickTile_Station(TileIndex tile) |
0 | 2160 |
{ |
2161 |
// 0x20 - hangar large airport (32) |
|
2162 |
// 0x41 - hangar small airport (65) |
|
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2163 |
if (_m[tile].m5 == 32 || _m[tile].m5 == 65) { |
0 | 2164 |
ShowAircraftDepotWindow(tile); |
2165 |
} else { |
|
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2166 |
ShowStationViewWindow(_m[tile].m2); |
0 | 2167 |
} |
2168 |
} |
|
2169 |
||
2170 |
static const byte _enter_station_speedtable[12] = { |
|
2171 |
215, 195, 175, 155, 135, 115, 95, 75, 55, 35, 15, 0 |
|
2172 |
}; |
|
2173 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2174 |
static uint32 VehicleEnter_Station(Vehicle *v, TileIndex tile, int x, int y) |
0 | 2175 |
{ |
2176 |
if (v->type == VEH_Train) { |
|
2676
2ba71e034d97
(svn r3218) -Feature: Multiheaded train engines will now stay in the same train
bjarni
parents:
2671
diff
changeset
|
2177 |
if (IS_BYTE_INSIDE(_m[tile].m5, 0, 8) && IsFrontEngine(v) && |
1685
b9cfe79393c0
(svn r2189) Introduce and use IsCompatibleTrainStationTile()
tron
parents:
1672
diff
changeset
|
2178 |
!IsCompatibleTrainStationTile(tile + TileOffsByDir(v->direction >> 1), tile)) { |
2989 | 2179 |
StationID station_id = _m[tile].m2; |
2180 |
||
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
2181 |
if ((!(v->current_order.flags & OF_NON_STOP) && !_patches.new_nonstop) || |
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
2182 |
(v->current_order.type == OT_GOTO_STATION && v->current_order.station == station_id)) { |
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
2183 |
if (!(_patches.new_nonstop && v->current_order.flags & OF_NON_STOP) && |
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
2184 |
v->current_order.type != OT_LEAVESTATION && |
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
2185 |
v->last_station_visited != station_id) { |
2989 | 2186 |
byte dir; |
2187 |
||
0 | 2188 |
x &= 0xF; |
2189 |
y &= 0xF; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2190 |
|
0 | 2191 |
dir = v->direction & 6; |
2192 |
if (dir & 2) intswap(x,y); |
|
2193 |
if (y == 8) { |
|
2639 | 2194 |
if (dir != 2 && dir != 4) x = ~x & 0xF; |
0 | 2195 |
if (x == 12) return 2 | (station_id << 8); /* enter station */ |
2196 |
if (x < 12) { |
|
2639 | 2197 |
uint16 spd; |
2198 |
||
0 | 2199 |
v->vehstatus |= VS_TRAIN_SLOWING; |
2200 |
spd = _enter_station_speedtable[x]; |
|
2639 | 2201 |
if (spd < v->cur_speed) v->cur_speed = spd; |
0 | 2202 |
} |
2203 |
} |
|
2204 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2205 |
} |
0 | 2206 |
} |
2207 |
} else if (v->type == VEH_Road) { |
|
2671
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2208 |
if (v->u.road.state < 16 && !HASBIT(v->u.road.state, 2) && v->u.road.frame == 0) { |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2209 |
if (IS_BYTE_INSIDE(_m[tile].m5, 0x43, 0x4B)) { |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2210 |
/* Attempt to allocate a parking bay in a road stop */ |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2211 |
RoadStop *rs = GetRoadStopByTile(tile, GetRoadStopType(tile)); |
2671
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2212 |
|
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2213 |
/* rs->status bits 0 and 1 describe current the two parking spots. |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2214 |
* 0 means occupied, 1 means free. */ |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2215 |
|
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2216 |
// Check if station is busy or if there are no free bays. |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2217 |
if (HASBIT(rs->status, 7) || GB(rs->status, 0, 2) == 0) |
0 | 2218 |
return 8; |
2219 |
||
2671
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2220 |
v->u.road.state += 32; |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2221 |
|
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2222 |
// if the first bay is free, allocate that, else the second bay must be free. |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2223 |
if (HASBIT(rs->status, 0)) { |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2224 |
CLRBIT(rs->status, 0); |
0 | 2225 |
} else { |
2671
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2226 |
CLRBIT(rs->status, 1); |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2227 |
v->u.road.state += 2; |
0 | 2228 |
} |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2229 |
|
2671
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2230 |
// mark the station as busy |
457c6cdbf9e7
(svn r3213) - Codechange: Clean up handling of road stops, avoiding unnecessary use of pointers and using the *BIT() macros.
peter1138
parents:
2660
diff
changeset
|
2231 |
SETBIT(rs->status, 7); |
0 | 2232 |
} |
2233 |
} |
|
2234 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2235 |
|
0 | 2236 |
return 0; |
2237 |
} |
|
2238 |
||
2213
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2239 |
/** Removes a station from the list. |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2240 |
* This is done by setting the .xy property to 0, |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2241 |
* and doing some maintenance, especially clearing vehicle orders. |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2242 |
* Aircraft-Hangar orders need special treatment here, as the hangars are |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2243 |
* actually part of a station (tiletype is STATION), but the order type |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2244 |
* is OT_GOTO_DEPOT. |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2245 |
* @param st Station to be deleted |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2246 |
*/ |
0 | 2247 |
static void DeleteStation(Station *st) |
2248 |
{ |
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
2249 |
Order order; |
1551
eb05e6a90e67
(svn r2055) -CodeChange: Begun introducting StationID
celestar
parents:
1527
diff
changeset
|
2250 |
StationID index; |
2213
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2251 |
Vehicle *v; |
0 | 2252 |
st->xy = 0; |
2253 |
||
2254 |
DeleteName(st->string_id); |
|
2255 |
MarkStationDirty(st); |
|
243
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
2256 |
_global_station_sort_dirty = true; // delete station, remove sign |
65
f9f866bc609c
(svn r66) -Fix Station list updated on station deletion/station rename
darkvater
parents:
59
diff
changeset
|
2257 |
InvalidateWindowClasses(WC_STATION_LIST); |
0 | 2258 |
|
2259 |
index = st->index; |
|
2260 |
DeleteWindowById(WC_STATION_VIEW, index); |
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1012
diff
changeset
|
2261 |
|
2213
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2262 |
//Now delete all orders that go to the station |
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
2263 |
order.type = OT_GOTO_STATION; |
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
2264 |
order.station = index; |
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1012
diff
changeset
|
2265 |
DeleteDestinationFromVehicleOrder(order); |
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1012
diff
changeset
|
2266 |
|
2213
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2267 |
//And do the same with aircraft that have the station as a hangar-stop |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2268 |
FOR_ALL_VEHICLES(v) { |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2269 |
bool invalidate = false; |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2270 |
if (v->type == VEH_Aircraft) { |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2271 |
Order *order; |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2272 |
FOR_VEHICLE_ORDERS(v, order) { |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2273 |
if (order->type == OT_GOTO_DEPOT && order->station == index) { |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2274 |
order->type = OT_DUMMY; |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2275 |
order->flags = 0; |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2276 |
invalidate = true; |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2277 |
} |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2278 |
} |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2279 |
} |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2280 |
//Orders for the vehicle have been changed, invalidate the window |
2639 | 2281 |
if (invalidate) InvalidateWindow(WC_VEHICLE_ORDERS, v->index); |
2213
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2282 |
} |
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2283 |
|
cb78ae22fe58
(svn r2731) -Fix [ 1244171 ]: Hangar orders are now properly invalidated as soon as the airport is removed
celestar
parents:
2187
diff
changeset
|
2284 |
//Subsidies need removal as well |
0 | 2285 |
DeleteSubsidyWithStation(index); |
2286 |
} |
|
2287 |
||
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1078
diff
changeset
|
2288 |
void DeleteAllPlayerStations(void) |
0 | 2289 |
{ |
2290 |
Station *st; |
|
2291 |
||
2292 |
FOR_ALL_STATIONS(st) { |
|
2639 | 2293 |
if (st->xy != 0 && st->owner < MAX_PLAYERS) DeleteStation(st); |
0 | 2294 |
} |
2295 |
} |
|
2296 |
||
1664
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2297 |
static void CheckOrphanedSlots(const Station *st, RoadStopType rst) |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2298 |
{ |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2299 |
RoadStop *rs; |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2300 |
int k; |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2301 |
|
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2302 |
for (rs = GetPrimaryRoadStop(st, rst); rs != NULL; rs = rs->next) { |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2303 |
for (k = 0; k < NUM_SLOTS; k++) { |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2304 |
if (rs->slot[k] != INVALID_SLOT) { |
1672 | 2305 |
const Vehicle *v = GetVehicle(rs->slot[k]); |
2306 |
||
2307 |
if (v->type != VEH_Road || v->u.road.slot != rs) { |
|
2308 |
DEBUG(ms, 0) ( |
|
2309 |
"Multistop: Orphaned %s slot at 0x%X of station %d (don't panic)", |
|
2310 |
(rst == RS_BUS) ? "bus" : "truck", rs->xy, st->index); |
|
1664
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2311 |
rs->slot[k] = INVALID_SLOT; |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2312 |
} |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2313 |
} |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2314 |
} |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2315 |
} |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2316 |
} |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2317 |
|
0 | 2318 |
/* this function is called for one station each tick */ |
2319 |
static void StationHandleBigTick(Station *st) |
|
2320 |
{ |
|
2321 |
UpdateStationAcceptance(st, true); |
|
2322 |
||
2639 | 2323 |
if (st->facilities == 0 && ++st->delete_ctr >= 8) DeleteStation(st); |
1239
6e61c510580e
(svn r1743) -Fix: Multistop: Added some debug output and made sure that orphaned slots are cleared.
celestar
parents:
1231
diff
changeset
|
2324 |
|
1664
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2325 |
// Here we saveguard against orphaned slots |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2326 |
CheckOrphanedSlots(st, RS_BUS); |
000099fbae6e
(svn r2168) - Fix: Various stages of invisible trains, and wrong v->u.rail.track combinations. When a vehicle was sold its (possibly) assigned road slot for multislot was not cleared, thus resulting in a bug confusion. This should fix [ 1178520 ] Assertion failure in ai.c (invalid v->u.rail.track). With big thanks to TrueLight for the demo-recording patch, BJH for the wonderful savegame, Hackykid for his brilliant suggestions of the problem and Celestar for... ehm, making it all possible ;p
Darkvater
parents:
1593
diff
changeset
|
2327 |
CheckOrphanedSlots(st, RS_TRUCK); |
0 | 2328 |
} |
2329 |
||
500
ef288590e096
(svn r793) Merge INLINE -> inline replacement (revision 376)
tron
parents:
497
diff
changeset
|
2330 |
static inline void byte_inc_sat(byte *p) { byte b = *p + 1; if (b != 0) *p = b; } |
0 | 2331 |
|
2332 |
static void UpdateStationRating(Station *st) |
|
2333 |
{ |
|
2334 |
GoodsEntry *ge; |
|
1551
eb05e6a90e67
(svn r2055) -CodeChange: Begun introducting StationID
celestar
parents:
1527
diff
changeset
|
2335 |
int rating; |
eb05e6a90e67
(svn r2055) -CodeChange: Begun introducting StationID
celestar
parents:
1527
diff
changeset
|
2336 |
StationID index; |
0 | 2337 |
int waiting; |
2338 |
bool waiting_changed = false; |
|
2339 |
||
2340 |
byte_inc_sat(&st->time_since_load); |
|
2341 |
byte_inc_sat(&st->time_since_unload); |
|
2342 |
||
2343 |
ge = st->goods; |
|
2344 |
do { |
|
1266
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
2345 |
if (ge->enroute_from != INVALID_STATION) { |
0 | 2346 |
byte_inc_sat(&ge->enroute_time); |
2347 |
byte_inc_sat(&ge->days_since_pickup); |
|
2348 |
||
2349 |
rating = 0; |
|
2350 |
||
2351 |
{ |
|
2352 |
int b = ge->last_speed; |
|
2353 |
if ((b-=85) >= 0) |
|
2354 |
rating += b >> 2; |
|
2355 |
} |
|
2356 |
||
2357 |
{ |
|
2358 |
byte age = ge->last_age; |
|
2359 |
(age >= 3) || |
|
2360 |
(rating += 10, age >= 2) || |
|
2361 |
(rating += 10, age >= 1) || |
|
2362 |
(rating += 13, true); |
|
2363 |
} |
|
2364 |
||
1457
6a8ca2f51a8b
(svn r1961) - Fix: [ 1158618 ] Segmentation fault when loading savegame, out of bounds array check.
Darkvater
parents:
1454
diff
changeset
|
2365 |
if (st->owner < MAX_PLAYERS && HASBIT(st->town->statues, st->owner)) |
0 | 2366 |
rating += 26; |
2367 |
||
2368 |
{ |
|
2369 |
byte days = ge->days_since_pickup; |
|
2370 |
if (st->last_vehicle != INVALID_VEHICLE && |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
2371 |
GetVehicle(st->last_vehicle)->type == VEH_Ship) |
0 | 2372 |
days >>= 2; |
2373 |
(days > 21) || |
|
2374 |
(rating += 25, days > 12) || |
|
2375 |
(rating += 25, days > 6) || |
|
2376 |
(rating += 45, days > 3) || |
|
2377 |
(rating += 35, true); |
|
2378 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2379 |
|
0 | 2380 |
{ |
2504
7c27fc230cda
(svn r3030) More work for GB/SB, this time concerning the waiting_acceptance attribute of stations
tron
parents:
2502
diff
changeset
|
2381 |
waiting = GB(ge->waiting_acceptance, 0, 12); |
0 | 2382 |
(rating -= 90, waiting > 1500) || |
2383 |
(rating += 55, waiting > 1000) || |
|
2384 |
(rating += 35, waiting > 600) || |
|
2385 |
(rating += 10, waiting > 300) || |
|
2386 |
(rating += 20, waiting > 100) || |
|
2387 |
(rating += 10, true); |
|
2388 |
} |
|
2389 |
||
2390 |
{ |
|
2391 |
int or = ge->rating; // old rating |
|
2392 |
||
2393 |
// only modify rating in steps of -2, -1, 0, 1 or 2 |
|
2394 |
ge->rating = rating = or + clamp(clamp(rating, 0, 255) - or, -2, 2); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2395 |
|
0 | 2396 |
// if rating is <= 64 and more than 200 items waiting, remove some random amount of goods from the station |
2397 |
if (rating <= 64 && waiting >= 200) { |
|
2398 |
int dec = Random() & 0x1F; |
|
2399 |
if (waiting < 400) dec &= 7; |
|
2400 |
waiting -= dec + 1; |
|
2401 |
waiting_changed = true; |
|
2402 |
} |
|
2403 |
||
2404 |
// if rating is <= 127 and there are any items waiting, maybe remove some goods. |
|
2405 |
if (rating <= 127 && waiting != 0) { |
|
2406 |
uint32 r = Random(); |
|
2407 |
if ( (uint)rating <= (r & 0x7F) ) { |
|
2408 |
waiting = max(waiting - ((r >> 8)&3) - 1, 0); |
|
2409 |
waiting_changed = true; |
|
2410 |
} |
|
2411 |
} |
|
2412 |
||
2504
7c27fc230cda
(svn r3030) More work for GB/SB, this time concerning the waiting_acceptance attribute of stations
tron
parents:
2502
diff
changeset
|
2413 |
if (waiting_changed) SB(ge->waiting_acceptance, 0, 12, waiting); |
0 | 2414 |
} |
2415 |
} |
|
2416 |
} while (++ge != endof(st->goods)); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2417 |
|
0 | 2418 |
index = st->index; |
2419 |
||
2420 |
if (waiting_changed) |
|
2421 |
InvalidateWindow(WC_STATION_VIEW, index); |
|
2422 |
else |
|
2423 |
InvalidateWindowWidget(WC_STATION_VIEW, index, 5); |
|
2424 |
} |
|
2425 |
||
2426 |
/* called for every station each tick */ |
|
2427 |
static void StationHandleSmallTick(Station *st) |
|
2428 |
{ |
|
2429 |
byte b; |
|
2430 |
||
2639 | 2431 |
if (st->facilities == 0) return; |
0 | 2432 |
|
2433 |
b = st->delete_ctr + 1; |
|
2434 |
if (b >= 185) b = 0; |
|
2435 |
st->delete_ctr = b; |
|
2436 |
||
2639 | 2437 |
if (b == 0) UpdateStationRating(st); |
0 | 2438 |
} |
2439 |
||
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1078
diff
changeset
|
2440 |
void OnTick_Station(void) |
0 | 2441 |
{ |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2442 |
uint i; |
0 | 2443 |
Station *st; |
2444 |
||
2639 | 2445 |
if (_game_mode == GM_EDITOR) return; |
0 | 2446 |
|
2447 |
i = _station_tick_ctr; |
|
2639 | 2448 |
if (++_station_tick_ctr == GetStationPoolSize()) _station_tick_ctr = 0; |
0 | 2449 |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
2450 |
st = GetStation(i); |
2639 | 2451 |
if (st->xy != 0) StationHandleBigTick(st); |
0 | 2452 |
|
2453 |
FOR_ALL_STATIONS(st) { |
|
2640 | 2454 |
if (st->xy != 0) StationHandleSmallTick(st); |
0 | 2455 |
} |
2456 |
} |
|
2457 |
||
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1078
diff
changeset
|
2458 |
void StationMonthlyLoop(void) |
0 | 2459 |
{ |
2460 |
} |
|
2461 |
||
2462 |
||
2498
befad2fe53d2
(svn r3024) -Codechange: Another batch of replacements of int/uint/int16/byte/-1 with proper types and constants
tron
parents:
2493
diff
changeset
|
2463 |
void ModifyStationRatingAround(TileIndex tile, PlayerID owner, int amount, uint radius) |
0 | 2464 |
{ |
2465 |
Station *st; |
|
2466 |
||
2467 |
FOR_ALL_STATIONS(st) { |
|
1245
768d9bc95aaa
(svn r1749) Move the functions which calculate distances to map.[ch] and give the more meaningful names
tron
parents:
1239
diff
changeset
|
2468 |
if (st->xy != 0 && st->owner == owner && |
768d9bc95aaa
(svn r1749) Move the functions which calculate distances to map.[ch] and give the more meaningful names
tron
parents:
1239
diff
changeset
|
2469 |
DistanceManhattan(tile, st->xy) <= radius) { |
2549 | 2470 |
uint i; |
2471 |
||
2472 |
for (i = 0; i != NUM_CARGO; i++) { |
|
2473 |
GoodsEntry* ge = &st->goods[i]; |
|
2474 |
||
1266
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
2475 |
if (ge->enroute_from != INVALID_STATION) { |
0 | 2476 |
ge->rating = clamp(ge->rating + amount, 0, 255); |
2477 |
} |
|
2478 |
} |
|
2479 |
} |
|
2480 |
} |
|
2481 |
} |
|
2482 |
||
2483 |
static void UpdateStationWaiting(Station *st, int type, uint amount) |
|
2484 |
{ |
|
2504
7c27fc230cda
(svn r3030) More work for GB/SB, this time concerning the waiting_acceptance attribute of stations
tron
parents:
2502
diff
changeset
|
2485 |
SB(st->goods[type].waiting_acceptance, 0, 12, |
7c27fc230cda
(svn r3030) More work for GB/SB, this time concerning the waiting_acceptance attribute of stations
tron
parents:
2502
diff
changeset
|
2486 |
min(0xFFF, GB(st->goods[type].waiting_acceptance, 0, 12) + amount) |
7c27fc230cda
(svn r3030) More work for GB/SB, this time concerning the waiting_acceptance attribute of stations
tron
parents:
2502
diff
changeset
|
2487 |
); |
0 | 2488 |
|
2489 |
st->goods[type].enroute_time = 0; |
|
2490 |
st->goods[type].enroute_from = st->index; |
|
2491 |
InvalidateWindow(WC_STATION_VIEW, st->index); |
|
2492 |
} |
|
2493 |
||
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1784
diff
changeset
|
2494 |
/** Rename a station |
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1784
diff
changeset
|
2495 |
* @param x,y unused |
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1784
diff
changeset
|
2496 |
* @param p1 station ID that is to be renamed |
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1784
diff
changeset
|
2497 |
* @param p2 unused |
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1784
diff
changeset
|
2498 |
*/ |
0 | 2499 |
int32 CmdRenameStation(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
2500 |
{ |
|
2639 | 2501 |
StringID str; |
0 | 2502 |
Station *st; |
2503 |
||
1840
c181d5cb4ffe
(svn r2345) - Fix: Don't allow stuff to be renamed to nothing if we don't support it. Only valid ones are signs (delete) and waypoints (rename to default).
Darkvater
parents:
1820
diff
changeset
|
2504 |
if (!IsStationIndex(p1) || _cmd_text[0] == '\0') return CMD_ERROR; |
1774
0fc4a31265c2
(svn r2278) When renaming a station, check if the station exists and belongs to the correct player
tron
parents:
1751
diff
changeset
|
2505 |
st = GetStation(p1); |
0fc4a31265c2
(svn r2278) When renaming a station, check if the station exists and belongs to the correct player
tron
parents:
1751
diff
changeset
|
2506 |
|
0fc4a31265c2
(svn r2278) When renaming a station, check if the station exists and belongs to the correct player
tron
parents:
1751
diff
changeset
|
2507 |
if (!IsValidStation(st) || !CheckOwnership(st->owner)) return CMD_ERROR; |
0fc4a31265c2
(svn r2278) When renaming a station, check if the station exists and belongs to the correct player
tron
parents:
1751
diff
changeset
|
2508 |
|
1820
9b6458526480
(svn r2324) Introduce _cmd_text for passing strings with a command instead of abusing _decode_parameters as text buffer. This should prevent several possible buffer overruns and is a bit cleaner to use. As bonus it reduces the size of most command packets by 79 bytes.
tron
parents:
1786
diff
changeset
|
2509 |
str = AllocateNameUnique(_cmd_text, 6); |
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1784
diff
changeset
|
2510 |
if (str == 0) return CMD_ERROR; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2511 |
|
0 | 2512 |
if (flags & DC_EXEC) { |
2639 | 2513 |
StringID old_str = st->string_id; |
2514 |
||
0 | 2515 |
st->string_id = str; |
2516 |
UpdateStationVirtCoord(st); |
|
2517 |
DeleteName(old_str); |
|
243
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
2518 |
_station_sort_dirty[st->owner] = true; // rename a station |
0 | 2519 |
MarkWholeScreenDirty(); |
2520 |
} else { |
|
2521 |
DeleteName(str); |
|
2522 |
} |
|
2523 |
||
2524 |
return 0; |
|
2525 |
} |
|
2526 |
||
2527 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2528 |
uint MoveGoodsToStation(TileIndex tile, int w, int h, int type, uint amount) |
0 | 2529 |
{ |
2530 |
Station *around_ptr[8]; |
|
1551
eb05e6a90e67
(svn r2055) -CodeChange: Begun introducting StationID
celestar
parents:
1527
diff
changeset
|
2531 |
StationID around[8]; |
0 | 2532 |
int i; |
2533 |
uint moved; |
|
2534 |
uint best_rating, best_rating2; |
|
2535 |
Station *st1, *st2; |
|
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2536 |
uint t; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2537 |
int rad = 0; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2538 |
int w_prod; //width and height of the "producer" of the cargo |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2539 |
int h_prod; |
568
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2540 |
int max_rad; |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2541 |
|
0 | 2542 |
|
2543 |
memset(around, 0xff, sizeof(around)); |
|
2544 |
||
568
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2545 |
if (_patches.modified_catchment) { |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2546 |
w_prod = w; |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2547 |
h_prod = h; |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2548 |
w += 16; |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2549 |
h += 16; |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2550 |
max_rad = 8; |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2551 |
} else { |
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2552 |
w_prod = 0; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2553 |
h_prod = 0; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2554 |
w += 8; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2555 |
h += 8; |
568
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2556 |
max_rad = 4; |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2557 |
} |
6eb7d394fb35
(svn r979) Allow more realistically sized catchment areas
Celestar
parents:
555
diff
changeset
|
2558 |
|
1981 | 2559 |
BEGIN_TILE_LOOP(cur_tile, w, h, tile - TileDiffXY(max_rad, max_rad)) |
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2560 |
StationID st_index; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2561 |
|
0 | 2562 |
cur_tile = TILE_MASK(cur_tile); |
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2563 |
if (!IsTileType(cur_tile, MP_STATION)) continue; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2564 |
|
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2565 |
st_index = _m[cur_tile].m2; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2566 |
|
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2567 |
for (i = 0; i != 8; i++) { |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2568 |
if (around[i] == INVALID_STATION) { |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2569 |
Station* st = GetStation(st_index); |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2570 |
|
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2571 |
if (!IsBuoy(st) && |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2572 |
(st->town->exclusive_counter == 0 || st->town->exclusivity == st->owner) && // check exclusive transport rights |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2573 |
st->goods[type].rating != 0 && |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2574 |
(!_patches.selectgoods || st->goods[type].last_speed > 0) && // if last_speed is 0, no vehicle has been there. |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2575 |
((st->facilities & ~FACIL_BUS_STOP) != 0 || type == CT_PASSENGERS) && // if we have other fac. than a bus stop, or the cargo is passengers |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2576 |
((st->facilities & ~FACIL_TRUCK_STOP) != 0 || type != CT_PASSENGERS)) { // if we have other fac. than a cargo bay or the cargo is not passengers |
3001
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2577 |
int x_dist; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2578 |
int y_dist; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2579 |
|
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2580 |
if (_patches.modified_catchment) { |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2581 |
// min and max coordinates of the producer relative |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2582 |
const int x_min_prod = 9; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2583 |
const int x_max_prod = 8 + w_prod; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2584 |
const int y_min_prod = 9; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2585 |
const int y_max_prod = 8 + h_prod; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2586 |
|
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2587 |
rad = FindCatchmentRadius(st); |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2588 |
|
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2589 |
x_dist = min(w_cur - x_min_prod, x_max_prod - w_cur); |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2590 |
if (w_cur < x_min_prod) { |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2591 |
x_dist = x_min_prod - w_cur; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2592 |
} else if (w_cur > x_max_prod) { |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2593 |
x_dist = w_cur - x_max_prod; |
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2594 |
} |
3001
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2595 |
|
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2596 |
y_dist = min(h_cur - y_min_prod, y_max_prod - h_cur); |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2597 |
if (h_cur < y_min_prod) { |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2598 |
y_dist = y_min_prod - h_cur; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2599 |
} else if (h_cur > y_max_prod) { |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2600 |
y_dist = h_cur - y_max_prod; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2601 |
} |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2602 |
} else { |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2603 |
x_dist = 0; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2604 |
y_dist = 0; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2605 |
} |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2606 |
|
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2607 |
if (x_dist <= rad && y_dist <= rad) { |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2608 |
around[i] = st_index; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2609 |
around_ptr[i] = st; |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2610 |
} |
0a2cf92beeed
(svn r3581) Just noticed the indentation was totally off, fix it
tron
parents:
3000
diff
changeset
|
2611 |
} |
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2612 |
break; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2613 |
} else if (around[i] == st_index) { |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2614 |
break; |
0 | 2615 |
} |
2616 |
} |
|
1981 | 2617 |
END_TILE_LOOP(cur_tile, w, h, tile - TileDiffXY(max_rad, max_rad)) |
0 | 2618 |
|
2619 |
/* no stations around at all? */ |
|
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2620 |
if (around[0] == INVALID_STATION) return 0; |
0 | 2621 |
|
1527
3d204567b05b
(svn r2031) -Fix: Station #256 now gets cargo delivered as well
celestar
parents:
1507
diff
changeset
|
2622 |
if (around[1] == INVALID_STATION) { |
0 | 2623 |
/* only one station around */ |
2624 |
moved = (amount * around_ptr[0]->goods[type].rating >> 8) + 1; |
|
2625 |
UpdateStationWaiting(around_ptr[0], type, moved); |
|
2626 |
return moved; |
|
2627 |
} |
|
2628 |
||
2629 |
/* several stations around, find the two with the highest rating */ |
|
2630 |
st2 = st1 = NULL; |
|
2631 |
best_rating = best_rating2 = 0; |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2632 |
|
2952 | 2633 |
for (i = 0; i != 8 && around[i] != INVALID_STATION; i++) { |
0 | 2634 |
if (around_ptr[i]->goods[type].rating >= best_rating) { |
2635 |
best_rating2 = best_rating; |
|
2636 |
st2 = st1; |
|
2637 |
||
2638 |
best_rating = around_ptr[i]->goods[type].rating; |
|
2639 |
st1 = around_ptr[i]; |
|
2640 |
} else if (around_ptr[i]->goods[type].rating >= best_rating2) { |
|
2641 |
best_rating2 = around_ptr[i]->goods[type].rating; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2642 |
st2 = around_ptr[i]; |
0 | 2643 |
} |
2644 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2645 |
|
0 | 2646 |
assert(st1 != NULL); |
2647 |
assert(st2 != NULL); |
|
2648 |
assert(best_rating != 0 || best_rating2 != 0); |
|
2649 |
||
2650 |
/* the 2nd highest one gets a penalty */ |
|
2651 |
best_rating2 >>= 1; |
|
2652 |
||
2653 |
/* amount given to station 1 */ |
|
2654 |
t = (best_rating * (amount + 1)) / (best_rating + best_rating2); |
|
2655 |
||
2656 |
moved = 0; |
|
2657 |
if (t != 0) { |
|
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2658 |
moved = t * best_rating / 256 + 1; |
0 | 2659 |
amount -= t; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2660 |
UpdateStationWaiting(st1, type, moved); |
0 | 2661 |
} |
2662 |
||
2663 |
if (amount != 0) { |
|
3000
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2664 |
amount = amount * best_rating2 / 256 + 1; |
711d2ababe20
(svn r3580) Some small cleanups before the real change, especially reduce the indentation by one by using continue
tron
parents:
2989
diff
changeset
|
2665 |
moved += amount; |
0 | 2666 |
UpdateStationWaiting(st2, type, amount); |
2667 |
} |
|
2668 |
||
2669 |
return moved; |
|
2670 |
} |
|
2671 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2672 |
void BuildOilRig(TileIndex tile) |
0 | 2673 |
{ |
2639 | 2674 |
uint j; |
2427
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2675 |
Station *st = AllocateStation(); |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2676 |
|
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2677 |
if (st == NULL) { |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2678 |
DEBUG(misc, 0) ("Couldn't allocate station for oilrig at %#X, reverting to oilrig only...", tile); |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2679 |
return; |
0 | 2680 |
} |
2427
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2681 |
if (!GenerateStationName(st, tile, 2)) { |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2682 |
DEBUG(misc, 0) ("Couldn't allocate station-name for oilrig at %#X, reverting to oilrig only...", tile); |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2683 |
return; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2684 |
} |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2685 |
|
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2686 |
st->town = ClosestTownFromTile(tile, (uint)-1); |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2687 |
st->sign.width_1 = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2688 |
|
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2689 |
SetTileType(tile, MP_STATION); |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2690 |
SetTileOwner(tile, OWNER_NONE); |
2639 | 2691 |
_m[tile].m2 = st->index; |
2427
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2692 |
_m[tile].m3 = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2693 |
_m[tile].m4 = 0; |
2639 | 2694 |
_m[tile].m5 = 0x4B; |
2427
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2695 |
|
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2696 |
st->owner = OWNER_NONE; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2697 |
st->airport_flags = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2698 |
st->airport_type = AT_OILRIG; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2699 |
st->xy = tile; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2700 |
st->bus_stops = NULL; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2701 |
st->truck_stops = NULL; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2702 |
st->airport_tile = tile; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2703 |
st->dock_tile = tile; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2704 |
st->train_tile = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2705 |
st->had_vehicle_of_type = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2706 |
st->time_since_load = 255; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2707 |
st->time_since_unload = 255; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2708 |
st->delete_ctr = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2709 |
st->last_vehicle = INVALID_VEHICLE; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2710 |
st->facilities = FACIL_AIRPORT | FACIL_DOCK; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2711 |
st->build_date = _date; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2712 |
|
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2713 |
for (j = 0; j != NUM_CARGO; j++) { |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2714 |
st->goods[j].waiting_acceptance = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2715 |
st->goods[j].days_since_pickup = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2716 |
st->goods[j].enroute_from = INVALID_STATION; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2717 |
st->goods[j].rating = 175; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2718 |
st->goods[j].last_speed = 0; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2719 |
st->goods[j].last_age = 255; |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2720 |
} |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2721 |
|
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2722 |
UpdateStationVirtCoordDirty(st); |
b7a0ad02af26
(svn r2953) - Fix: [ 1257766 ] Cannot make ships go to an oil platform (oilrig has no station). While it is still possible that oilrigs end up without a station, it is only the case where no more stations can be built at all
Darkvater
parents:
2425
diff
changeset
|
2723 |
UpdateStationAcceptance(st, false); |
0 | 2724 |
} |
2725 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2726 |
void DeleteOilRig(TileIndex tile) |
0 | 2727 |
{ |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2728 |
Station *st = GetStation(_m[tile].m2); |
0 | 2729 |
|
2730 |
DoClearSquare(tile); |
|
2731 |
||
2732 |
st->dock_tile = 0; |
|
2733 |
st->airport_tile = 0; |
|
2734 |
st->facilities &= ~(FACIL_AIRPORT | FACIL_DOCK); |
|
2735 |
st->airport_flags = 0; |
|
2736 |
UpdateStationVirtCoordDirty(st); |
|
2737 |
DeleteStation(st); |
|
2738 |
} |
|
2739 |
||
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2427
diff
changeset
|
2740 |
static void ChangeTileOwner_Station(TileIndex tile, PlayerID old_player, PlayerID new_player) |
0 | 2741 |
{ |
1901
fb05044cf5c3
(svn r2407) Use {Get,Is}TileOwner to get/check the owner of a tile and fix some bogus reads of _map_owner
tron
parents:
1891
diff
changeset
|
2742 |
if (!IsTileOwner(tile, old_player)) return; |
0 | 2743 |
|
2502 | 2744 |
if (new_player != OWNER_SPECTATOR) { |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2745 |
Station *st = GetStation(_m[tile].m2); |
1902 | 2746 |
SetTileOwner(tile, new_player); |
0 | 2747 |
st->owner = new_player; |
243
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
2748 |
_global_station_sort_dirty = true; // transfer ownership of station to another player |
65
f9f866bc609c
(svn r66) -Fix Station list updated on station deletion/station rename
darkvater
parents:
59
diff
changeset
|
2749 |
InvalidateWindowClasses(WC_STATION_LIST); |
0 | 2750 |
} else { |
2751 |
DoCommandByTile(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); |
|
2752 |
} |
|
2753 |
} |
|
2754 |
||
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2755 |
static int32 ClearTile_Station(TileIndex tile, byte flags) |
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1942
diff
changeset
|
2756 |
{ |
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2757 |
byte m5 = _m[tile].m5; |
0 | 2758 |
Station *st; |
2759 |
||
2760 |
if (flags & DC_AUTO) { |
|
2761 |
if (m5 < 8) return_cmd_error(STR_300B_MUST_DEMOLISH_RAILROAD); |
|
2762 |
if (m5 < 0x43 || (m5 >= 83 && m5 <= 114)) return_cmd_error(STR_300E_MUST_DEMOLISH_AIRPORT_FIRST); |
|
2763 |
if (m5 < 0x47) return_cmd_error(STR_3047_MUST_DEMOLISH_TRUCK_STATION); |
|
2764 |
if (m5 < 0x4B) return_cmd_error(STR_3046_MUST_DEMOLISH_BUS_STATION); |
|
2765 |
if (m5 == 0x52) return_cmd_error(STR_306A_BUOY_IN_THE_WAY); |
|
2766 |
if (m5 != 0x4B && m5 < 0x53) return_cmd_error(STR_304D_MUST_DEMOLISH_DOCK_FIRST); |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
2767 |
SetDParam(0, STR_4807_OIL_RIG); |
0 | 2768 |
return_cmd_error(STR_4800_IN_THE_WAY); |
2769 |
} |
|
2770 |
||
2049
ad0d49c916d4
(svn r2558) Change the internal map format from 7 arrays to one array of structs, this doesn't change the saved format for now. It's a stepping stone for further changes.
tron
parents:
2008
diff
changeset
|
2771 |
st = GetStation(_m[tile].m2); |
0 | 2772 |
|
2639 | 2773 |
if (m5 < 8) return RemoveRailroadStation(st, tile, flags); |
0 | 2774 |
// original airports < 67, new airports between 83 - 114 |
2639 | 2775 |
if (m5 < 0x43 || (m5 >= 83 && m5 <= 114)) return RemoveAirport(st, flags); |
2776 |
if (m5 < 0x4B) return RemoveRoadStop(st, flags, tile); |
|
2777 |
if (m5 == 0x52) return RemoveBuoy(st, flags); |
|
2778 |
if (m5 != 0x4B && m5 < 0x53) return RemoveDock(st, flags); |
|
0 | 2779 |
|
2780 |
return CMD_ERROR; |
|
2781 |
} |
|
2782 |
||
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1078
diff
changeset
|
2783 |
void InitializeStations(void) |
0 | 2784 |
{ |
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2785 |
/* Clean the station pool and create 1 block in it */ |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2786 |
CleanPool(&_station_pool); |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2787 |
AddBlockToPool(&_station_pool); |
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
2788 |
|
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2789 |
/* Clean the roadstop pool and create 1 block in it */ |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2790 |
CleanPool(&_roadstop_pool); |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2791 |
AddBlockToPool(&_roadstop_pool); |
243
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
2792 |
|
0 | 2793 |
_station_tick_ctr = 0; |
243
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
2794 |
|
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
2795 |
// set stations to be sorted on load of savegame |
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
2796 |
memset(_station_sort_dirty, true, sizeof(_station_sort_dirty)); |
9a40daa560ae
(svn r244) -Fix: Stations were not sorted for non-player-0 players
darkvater
parents:
222
diff
changeset
|
2797 |
_global_station_sort_dirty = true; // load of savegame |
0 | 2798 |
} |
2799 |
||
2800 |
||
2801 |
const TileTypeProcs _tile_type_station_procs = { |
|
2802 |
DrawTile_Station, /* draw_tile_proc */ |
|
2803 |
GetSlopeZ_Station, /* get_slope_z_proc */ |
|
2804 |
ClearTile_Station, /* clear_tile_proc */ |
|
2805 |
GetAcceptedCargo_Station, /* get_accepted_cargo_proc */ |
|
2806 |
GetTileDesc_Station, /* get_tile_desc_proc */ |
|
2807 |
GetTileTrackStatus_Station, /* get_tile_track_status_proc */ |
|
2808 |
ClickTile_Station, /* click_tile_proc */ |
|
2809 |
AnimateTile_Station, /* animate_tile_proc */ |
|
2810 |
TileLoop_Station, /* tile_loop_clear */ |
|
2811 |
ChangeTileOwner_Station, /* change_tile_owner_clear */ |
|
2812 |
NULL, /* get_produced_cargo_proc */ |
|
2813 |
VehicleEnter_Station, /* vehicle_enter_tile_proc */ |
|
2814 |
NULL, /* vehicle_leave_tile_proc */ |
|
39 | 2815 |
GetSlopeTileh_Station, /* get_slope_tileh_proc */ |
0 | 2816 |
}; |
2817 |
||
1881
023a134a4b12
(svn r2387) - CodeChange: made the saveload code more readable and also removed the 'byte' saveload arrays which means you can save an array of more than 255 elements, or bigger structs than 255 bytes. This doesn't yet solve the problem that a chunk can be a maximum of 16384 big.
Darkvater
parents:
1876
diff
changeset
|
2818 |
static const SaveLoad _roadstop_desc[] = { |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2819 |
SLE_VAR(RoadStop,xy, SLE_UINT32), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2820 |
SLE_VAR(RoadStop,used, SLE_UINT8), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2821 |
SLE_VAR(RoadStop,status, SLE_UINT8), |
1285
dee20e32bffe
(svn r1789) -Fix: there is no need to save the index, it is done for us
truelight
parents:
1284
diff
changeset
|
2822 |
/* Index was saved in some versions, but this is not needed */ |
dee20e32bffe
(svn r1789) -Fix: there is no need to save the index, it is done for us
truelight
parents:
1284
diff
changeset
|
2823 |
SLE_CONDARR(NullStruct,null,SLE_FILE_U32 | SLE_VAR_NULL, 1, 0, 8), |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2824 |
SLE_VAR(RoadStop,station, SLE_UINT16), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2825 |
SLE_VAR(RoadStop,type, SLE_UINT8), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2826 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2827 |
SLE_REF(RoadStop,next, REF_ROADSTOPS), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2828 |
SLE_REF(RoadStop,prev, REF_ROADSTOPS), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2829 |
|
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2830 |
SLE_ARR(RoadStop,slot, SLE_UINT16, NUM_SLOTS), |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2831 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2832 |
SLE_END() |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2833 |
}; |
0 | 2834 |
|
1881
023a134a4b12
(svn r2387) - CodeChange: made the saveload code more readable and also removed the 'byte' saveload arrays which means you can save an array of more than 255 elements, or bigger structs than 255 bytes. This doesn't yet solve the problem that a chunk can be a maximum of 16384 big.
Darkvater
parents:
1876
diff
changeset
|
2835 |
static const SaveLoad _station_desc[] = { |
1174
27e386195965
(svn r1676) Increase the size of TileIndex and TileIndexDiff to 32bits and adapt the save/load data and some other parts of the code to that change
tron
parents:
1093
diff
changeset
|
2836 |
SLE_CONDVAR(Station, xy, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), |
27e386195965
(svn r1676) Increase the size of TileIndex and TileIndexDiff to 32bits and adapt the save/load data and some other parts of the code to that change
tron
parents:
1093
diff
changeset
|
2837 |
SLE_CONDVAR(Station, xy, SLE_UINT32, 6, 255), |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2838 |
SLE_CONDVAR(Station, bus_tile_obsolete, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2839 |
SLE_CONDVAR(Station, lorry_tile_obsolete, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), |
1174
27e386195965
(svn r1676) Increase the size of TileIndex and TileIndexDiff to 32bits and adapt the save/load data and some other parts of the code to that change
tron
parents:
1093
diff
changeset
|
2840 |
SLE_CONDVAR(Station, train_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), |
27e386195965
(svn r1676) Increase the size of TileIndex and TileIndexDiff to 32bits and adapt the save/load data and some other parts of the code to that change
tron
parents:
1093
diff
changeset
|
2841 |
SLE_CONDVAR(Station, train_tile, SLE_UINT32, 6, 255), |
27e386195965
(svn r1676) Increase the size of TileIndex and TileIndexDiff to 32bits and adapt the save/load data and some other parts of the code to that change
tron
parents:
1093
diff
changeset
|
2842 |
SLE_CONDVAR(Station, airport_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), |
27e386195965
(svn r1676) Increase the size of TileIndex and TileIndexDiff to 32bits and adapt the save/load data and some other parts of the code to that change
tron
parents:
1093
diff
changeset
|
2843 |
SLE_CONDVAR(Station, airport_tile, SLE_UINT32, 6, 255), |
27e386195965
(svn r1676) Increase the size of TileIndex and TileIndexDiff to 32bits and adapt the save/load data and some other parts of the code to that change
tron
parents:
1093
diff
changeset
|
2844 |
SLE_CONDVAR(Station, dock_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), |
27e386195965
(svn r1676) Increase the size of TileIndex and TileIndexDiff to 32bits and adapt the save/load data and some other parts of the code to that change
tron
parents:
1093
diff
changeset
|
2845 |
SLE_CONDVAR(Station, dock_tile, SLE_UINT32, 6, 255), |
0 | 2846 |
SLE_REF(Station,town, REF_TOWN), |
2847 |
SLE_VAR(Station,trainst_w, SLE_UINT8), |
|
2848 |
SLE_CONDVAR(Station,trainst_h, SLE_UINT8, 2, 255), |
|
2849 |
||
2850 |
// alpha_order was stored here in savegame format 0 - 3 |
|
2851 |
SLE_CONDARR(NullStruct,null,SLE_FILE_U8 | SLE_VAR_NULL, 1, 0, 3), |
|
2852 |
||
2853 |
SLE_VAR(Station,string_id, SLE_STRINGID), |
|
2854 |
SLE_VAR(Station,had_vehicle_of_type,SLE_UINT16), |
|
2855 |
||
2856 |
SLE_VAR(Station,time_since_load, SLE_UINT8), |
|
2857 |
SLE_VAR(Station,time_since_unload, SLE_UINT8), |
|
2858 |
SLE_VAR(Station,delete_ctr, SLE_UINT8), |
|
2859 |
SLE_VAR(Station,owner, SLE_UINT8), |
|
2860 |
SLE_VAR(Station,facilities, SLE_UINT8), |
|
2861 |
SLE_VAR(Station,airport_type, SLE_UINT8), |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2862 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2863 |
// truck/bus_stop_status was stored here in savegame format 0 - 6 |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2864 |
SLE_CONDVAR(Station,truck_stop_status_obsolete, SLE_UINT8, 0, 5), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2865 |
SLE_CONDVAR(Station,bus_stop_status_obsolete, SLE_UINT8, 0, 5), |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
159
diff
changeset
|
2866 |
|
123
d550772c61e6
(svn r124) Prepared code for removal of block_months variable in next major savegame version
dominik
parents:
121
diff
changeset
|
2867 |
// blocked_months was stored here in savegame format 0 - 4.0 |
d550772c61e6
(svn r124) Prepared code for removal of block_months variable in next major savegame version
dominik
parents:
121
diff
changeset
|
2868 |
SLE_CONDVAR(Station,blocked_months_obsolete, SLE_UINT8, 0, 4), |
0 | 2869 |
|
2870 |
SLE_CONDVAR(Station,airport_flags, SLE_VAR_U32 | SLE_FILE_U16, 0, 2), |
|
2871 |
SLE_CONDVAR(Station,airport_flags, SLE_UINT32, 3, 255), |
|
2872 |
||
2873 |
SLE_VAR(Station,last_vehicle, SLE_UINT16), |
|
2874 |
||
2875 |
SLE_CONDVAR(Station,class_id, SLE_UINT8, 3, 255), |
|
2876 |
SLE_CONDVAR(Station,stat_id, SLE_UINT8, 3, 255), |
|
2877 |
SLE_CONDVAR(Station,build_date, SLE_UINT16, 3, 255), |
|
2878 |
||
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2879 |
SLE_CONDREF(Station,bus_stops, REF_ROADSTOPS, 6, 255), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2880 |
SLE_CONDREF(Station,truck_stops, REF_ROADSTOPS, 6, 255), |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2881 |
|
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2882 |
// reserve extra space in savegame here. (currently 28 bytes) |
0 | 2883 |
SLE_CONDARR(NullStruct,null,SLE_FILE_U8 | SLE_VAR_NULL, 32, 2, 255), |
2884 |
||
2885 |
SLE_END() |
|
2886 |
}; |
|
2887 |
||
1881
023a134a4b12
(svn r2387) - CodeChange: made the saveload code more readable and also removed the 'byte' saveload arrays which means you can save an array of more than 255 elements, or bigger structs than 255 bytes. This doesn't yet solve the problem that a chunk can be a maximum of 16384 big.
Darkvater
parents:
1876
diff
changeset
|
2888 |
static const SaveLoad _goods_desc[] = { |
0 | 2889 |
SLE_VAR(GoodsEntry,waiting_acceptance,SLE_UINT16), |
2890 |
SLE_VAR(GoodsEntry,days_since_pickup, SLE_UINT8), |
|
2891 |
SLE_VAR(GoodsEntry,rating, SLE_UINT8), |
|
1266
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
2892 |
SLE_CONDVAR(GoodsEntry,enroute_from, SLE_FILE_U8 | SLE_VAR_U16, 0, 6), |
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
2893 |
SLE_CONDVAR(GoodsEntry,enroute_from, SLE_UINT16, 7, 255), |
0 | 2894 |
SLE_VAR(GoodsEntry,enroute_time, SLE_UINT8), |
2895 |
SLE_VAR(GoodsEntry,last_speed, SLE_UINT8), |
|
2896 |
SLE_VAR(GoodsEntry,last_age, SLE_UINT8), |
|
1935
f43f062c9498
(svn r2441) -Feature: You can now give transfer order to set up feeder systems
celestar
parents:
1902
diff
changeset
|
2897 |
SLE_CONDVAR(GoodsEntry,feeder_profit, SLE_INT32, 14, 255), |
0 | 2898 |
|
2899 |
SLE_END() |
|
2900 |
}; |
|
2901 |
||
2902 |
||
2903 |
static void SaveLoad_STNS(Station *st) |
|
2904 |
{ |
|
2905 |
int i; |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2906 |
|
0 | 2907 |
SlObject(st, _station_desc); |
1266
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
2908 |
for (i = 0; i != NUM_CARGO; i++) { |
0 | 2909 |
SlObject(&st->goods[i], _goods_desc); |
1266
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
2910 |
|
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
2911 |
/* In older versions, enroute_from had 0xFF as INVALID_STATION, is now 0xFFFF */ |
2685
00111d5ca47f
(svn r3227) -Codechange: [Savegame] removed 'minor' version, and renamed 'major' version to just: version.
truelight
parents:
2676
diff
changeset
|
2912 |
if (CheckSavegameVersion(7) && st->goods[i].enroute_from == 0xFF) { |
2469
1bfbb0dc0b75
(svn r2995) Replace 0xFF/0xFFFF with CT_INVALID/OWNER_SPECTATOR/INVALID_STATION where appropriate
tron
parents:
2436
diff
changeset
|
2913 |
st->goods[i].enroute_from = INVALID_STATION; |
2639 | 2914 |
} |
1266
9dc5638fe8cc
(svn r1770) -Fix: Hopefully last pieces of code that are containing a station-id
truelight
parents:
1265
diff
changeset
|
2915 |
} |
0 | 2916 |
} |
2917 |
||
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1078
diff
changeset
|
2918 |
static void Save_STNS(void) |
0 | 2919 |
{ |
2920 |
Station *st; |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
2921 |
// Write the stations |
0 | 2922 |
FOR_ALL_STATIONS(st) { |
2923 |
if (st->xy != 0) { |
|
2924 |
SlSetArrayIndex(st->index); |
|
2925 |
SlAutolength((AutolengthProc*)SaveLoad_STNS, st); |
|
2926 |
} |
|
2927 |
} |
|
2928 |
} |
|
2929 |
||
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1078
diff
changeset
|
2930 |
static void Load_STNS(void) |
0 | 2931 |
{ |
2932 |
int index; |
|
2933 |
while ((index = SlIterateArray()) != -1) { |
|
1272
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2934 |
Station *st; |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2935 |
|
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2936 |
if (!AddBlockIfNeeded(&_station_pool, index)) |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2937 |
error("Stations: failed loading savegame: too many stations"); |
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2938 |
|
d3e09adb7736
(svn r1776) -Add: Dynamic stations. You can now have up to 64k of stations
truelight
parents:
1266
diff
changeset
|
2939 |
st = GetStation(index); |
0 | 2940 |
SaveLoad_STNS(st); |
2941 |
||
2942 |
// this means it's an oldstyle savegame without support for nonuniform stations |
|
2639 | 2943 |
if (st->train_tile != 0 && st->trainst_h == 0) { |
2642 | 2944 |
int w = GB(st->trainst_w, 4, 4); |
2945 |
int h = GB(st->trainst_w, 0, 4); |
|
2639 | 2946 |
|
2947 |
if (_m[st->train_tile].m5 & 1) intswap(w, h); |
|
0 | 2948 |
st->trainst_w = w; |
2949 |
st->trainst_h = h; |
|
2950 |
} |
|
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2951 |
|
2685
00111d5ca47f
(svn r3227) -Codechange: [Savegame] removed 'minor' version, and renamed 'major' version to just: version.
truelight
parents:
2676
diff
changeset
|
2952 |
/* In older versions, we had just 1 tile for a bus/lorry, now we have more.. |
00111d5ca47f
(svn r3227) -Codechange: [Savegame] removed 'minor' version, and renamed 'major' version to just: version.
truelight
parents:
2676
diff
changeset
|
2953 |
* convert, if needed */ |
00111d5ca47f
(svn r3227) -Codechange: [Savegame] removed 'minor' version, and renamed 'major' version to just: version.
truelight
parents:
2676
diff
changeset
|
2954 |
if (CheckSavegameVersion(6)) { |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2955 |
if (st->bus_tile_obsolete != 0) { |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2956 |
st->bus_stops = AllocateRoadStop(); |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2957 |
if (st->bus_stops == NULL) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2958 |
error("Station: too many busstations in savegame"); |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2959 |
|
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2960 |
InitializeRoadStop(st->bus_stops, NULL, st->bus_tile_obsolete, st->index); |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2961 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2962 |
if (st->lorry_tile_obsolete != 0) { |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2963 |
st->truck_stops = AllocateRoadStop(); |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2964 |
if (st->truck_stops == NULL) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2965 |
error("Station: too many truckstations in savegame"); |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2966 |
|
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2967 |
InitializeRoadStop(st->truck_stops, NULL, st->lorry_tile_obsolete, st->index); |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2968 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2969 |
} |
0 | 2970 |
} |
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
2971 |
|
1472
043304846688
(svn r1976) Cleanups - mostly indentation and fiddling with loops
tron
parents:
1457
diff
changeset
|
2972 |
/* This is to ensure all pointers are within the limits of _stations_size */ |
2639 | 2973 |
if (_station_tick_ctr > GetStationPoolSize()) _station_tick_ctr = 0; |
0 | 2974 |
} |
2975 |
||
2549 | 2976 |
static void Save_ROADSTOP(void) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2977 |
{ |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2978 |
RoadStop *rs; |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2979 |
|
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2980 |
FOR_ALL_ROADSTOPS(rs) { |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2981 |
if (rs->used) { |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2982 |
SlSetArrayIndex(rs->index); |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2983 |
SlObject(rs, _roadstop_desc); |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2984 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2985 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2986 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2987 |
|
2549 | 2988 |
static void Load_ROADSTOP(void) |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2989 |
{ |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2990 |
int index; |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
2991 |
|
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2992 |
while ((index = SlIterateArray()) != -1) { |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2993 |
RoadStop *rs; |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2994 |
|
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2995 |
if (!AddBlockIfNeeded(&_roadstop_pool, index)) |
1314
d6a253cf92c3
(svn r1818) -Add: Dynamic orders (up to 64k orders)
truelight
parents:
1313
diff
changeset
|
2996 |
error("RoadStops: failed loading savegame: too many RoadStops"); |
1284
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2997 |
|
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2998 |
rs = GetRoadStop(index); |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
2999 |
SlObject(rs, _roadstop_desc); |
06a52178bf46
(svn r1788) -Add: Made RoadStops dynamic. You can now create up to 64k roadstops.
truelight
parents:
1272
diff
changeset
|
3000 |
} |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
3001 |
} |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
3002 |
|
0 | 3003 |
const ChunkHandler _station_chunk_handlers[] = { |
1217
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
3004 |
{ 'STNS', Save_STNS, Load_STNS, CH_ARRAY }, |
ab9f02a224ab
(svn r1721) -Feature: It is now possible to build multiple road stations (up to 8) on
celestar
parents:
1214
diff
changeset
|
3005 |
{ 'ROAD', Save_ROADSTOP, Load_ROADSTOP, CH_ARRAY | CH_LAST}, |
0 | 3006 |
}; |