| author | matthijs |
| Wed, 22 Mar 2006 22:26:16 +0000 | |
| branch | 0.4.5 |
| changeset 9958 | bed516c67d61 |
| parent 9944 | 4f027626dbf6 |
| permissions | -rw-r--r-- |
| 2186 | 1 |
/* $Id$ */ |
2 |
||
| 0 | 3 |
#include "stdafx.h" |
|
1891
92a3b0aa0946
(svn r2397) - CodeChange: rename all "ttd" files to "openttd" files.
Darkvater
parents:
1881
diff
changeset
|
4 |
#include "openttd.h" |
|
507
8aa8100b0b22
(svn r815) Include strings.h only in the files which need it.
tron
parents:
497
diff
changeset
|
5 |
#include "table/strings.h" |
|
2148
47ba4a1b1c3b
(svn r2658) -Codechange: Use MAKE_TRANSPARENT to display a transparented sprite
celestar
parents:
2140
diff
changeset
|
6 |
#include "table/sprites.h" |
|
2163
637ec3c361f5
(svn r2673) Include functions.h directly, not globally via openttd.h
tron
parents:
2159
diff
changeset
|
7 |
#include "functions.h" |
|
679
e959706a3e4d
(svn r1117) Move map arrays and some related macros into their own files map.c and map.h
tron
parents:
552
diff
changeset
|
8 |
#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:
1202
diff
changeset
|
9 |
#include "tile.h" |
| 0 | 10 |
#include "viewport.h" |
11 |
#include "command.h" |
|
12 |
#include "industry.h" |
|
13 |
#include "town.h" |
|
14 |
#include "vehicle.h" |
|
15 |
#include "news.h" |
|
16 |
#include "saveload.h" |
|
17 |
#include "economy.h" |
|
|
337
66647f97e7c0
(svn r513) Merge revisions 402, 416, 417, 478, 479, 511, 512 from map to trunk
tron
parents:
314
diff
changeset
|
18 |
#include "sound.h" |
|
2159
3b634157c3b2
(svn r2669) Shuffle some more stuff around to reduce dependencies
tron
parents:
2150
diff
changeset
|
19 |
#include "variables.h" |
| 0 | 20 |
|
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
21 |
enum {
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
22 |
/* Max industries: 64000 (8 * 8000) */ |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
23 |
INDUSTRY_POOL_BLOCK_SIZE_BITS = 3, /* In bits, so (1 << 3) == 8 */ |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
24 |
INDUSTRY_POOL_MAX_BLOCKS = 8000, |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
25 |
}; |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
26 |
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
27 |
/** |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
28 |
* Called if a new block is added to the industry-pool |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
29 |
*/ |
| 2817 | 30 |
static void IndustryPoolNewBlock(uint start_item) |
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
31 |
{
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
32 |
Industry *i; |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
33 |
|
| 2639 | 34 |
FOR_ALL_INDUSTRIES_FROM(i, start_item) i->index = start_item++; |
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
35 |
} |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
36 |
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
37 |
/* Initialize the industry-pool */ |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
38 |
MemoryPool _industry_pool = { "Industry", INDUSTRY_POOL_MAX_BLOCKS, INDUSTRY_POOL_BLOCK_SIZE_BITS, sizeof(Industry), &IndustryPoolNewBlock, 0, 0, NULL };
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
39 |
|
| 2630 | 40 |
static byte _industry_sound_ctr; |
41 |
static TileIndex _industry_sound_tile; |
|
| 0 | 42 |
|
43 |
void ShowIndustryViewWindow(int industry); |
|
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
44 |
void BuildOilRig(TileIndex tile); |
|
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
45 |
void DeleteOilRig(TileIndex tile); |
| 0 | 46 |
|
47 |
typedef struct DrawIndustryTileStruct {
|
|
48 |
uint32 sprite_1; |
|
49 |
uint32 sprite_2; |
|
50 |
||
|
2653
4173d9a0a27e
(svn r3195) Use bitfields instead of explicit shifting/masking
tron
parents:
2639
diff
changeset
|
51 |
byte subtile_x:4; |
|
4173d9a0a27e
(svn r3195) Use bitfields instead of explicit shifting/masking
tron
parents:
2639
diff
changeset
|
52 |
byte subtile_y:4; |
|
4173d9a0a27e
(svn r3195) Use bitfields instead of explicit shifting/masking
tron
parents:
2639
diff
changeset
|
53 |
byte width:4; |
|
4173d9a0a27e
(svn r3195) Use bitfields instead of explicit shifting/masking
tron
parents:
2639
diff
changeset
|
54 |
byte height:4; |
| 0 | 55 |
byte dz; |
56 |
byte proc; |
|
57 |
} DrawIndustryTileStruct; |
|
58 |
||
59 |
||
60 |
typedef struct DrawIndustrySpec1Struct {
|
|
61 |
byte x; |
|
62 |
byte image_1; |
|
63 |
byte image_2; |
|
64 |
byte image_3; |
|
65 |
} DrawIndustrySpec1Struct; |
|
66 |
||
67 |
typedef struct DrawIndustrySpec4Struct {
|
|
68 |
byte image_1; |
|
69 |
byte image_2; |
|
70 |
byte image_3; |
|
71 |
} DrawIndustrySpec4Struct; |
|
72 |
||
73 |
typedef struct IndustryTileTable {
|
|
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
74 |
TileIndexDiffC ti; |
| 0 | 75 |
byte map5; |
76 |
} IndustryTileTable; |
|
77 |
||
78 |
typedef struct IndustrySpec {
|
|
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
79 |
const IndustryTileTable *const *table; |
| 0 | 80 |
byte num_table; |
81 |
byte a,b,c; |
|
82 |
byte produced_cargo[2]; |
|
83 |
byte production_rate[2]; |
|
84 |
byte accepts_cargo[3]; |
|
85 |
byte check_proc; |
|
86 |
} IndustrySpec; |
|
87 |
||
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
88 |
#include "table/industry_land.h" |
| 0 | 89 |
#include "table/build_industry.h" |
90 |
||
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
91 |
typedef enum IndustryType {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
92 |
INDUSTRY_NOT_CLOSABLE, //! Industry can never close |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
93 |
INDUSTRY_PRODUCTION, //! Industry can close and change of production |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
94 |
INDUSTRY_CLOSABLE, //! Industry can only close (no production change) |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
95 |
} IndustryType; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
96 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
97 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
98 |
static const IndustryType _industry_close_mode[37] = {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
99 |
/* COAL_MINE */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
100 |
/* POWER_STATION */ INDUSTRY_NOT_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
101 |
/* SAWMILL */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
102 |
/* FOREST */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
103 |
/* OIL_REFINERY */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
104 |
/* OIL_RIG */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
105 |
/* FACTORY */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
106 |
/* PRINTING_WORKS */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
107 |
/* STEEL_MILL */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
108 |
/* FARM */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
109 |
/* COPPER_MINE */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
110 |
/* OIL_WELL */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
111 |
/* BANK */ INDUSTRY_NOT_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
112 |
/* FOOD_PROCESS */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
113 |
/* PAPER_MILL */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
114 |
/* GOLD_MINE */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
115 |
/* BANK_2, */ INDUSTRY_NOT_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
116 |
/* DIAMOND_MINE */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
117 |
/* IRON_MINE */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
118 |
/* FRUIT_PLANTATION */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
119 |
/* RUBBER_PLANTATION */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
120 |
/* WATER_SUPPLY */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
121 |
/* WATER_TOWER */ INDUSTRY_NOT_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
122 |
/* FACTORY_2 */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
123 |
/* FARM_2 */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
124 |
/* LUMBER_MILL */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
125 |
/* COTTON_CANDY */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
126 |
/* CANDY_FACTORY */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
127 |
/* BATTERY_FARM */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
128 |
/* COLA_WELLS */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
129 |
/* TOY_SHOP */ INDUSTRY_NOT_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
130 |
/* TOY_FACTORY */ INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
131 |
/* PLASTIC_FOUNTAINS */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
132 |
/* FIZZY_DRINK_FACTORY */INDUSTRY_CLOSABLE, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
133 |
/* BUBBLE_GENERATOR */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
134 |
/* TOFFEE_QUARRY */ INDUSTRY_PRODUCTION, |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
135 |
/* SUGAR_MINE */ INDUSTRY_PRODUCTION |
| 0 | 136 |
}; |
137 |
||
138 |
static const StringID _industry_prod_up_strings[] = {
|
|
139 |
STR_4836_NEW_COAL_SEAM_FOUND_AT, |
|
140 |
STR_4835_INCREASES_PRODUCTION, |
|
141 |
STR_4835_INCREASES_PRODUCTION, |
|
142 |
STR_4835_INCREASES_PRODUCTION, |
|
143 |
STR_4835_INCREASES_PRODUCTION, |
|
144 |
STR_4837_NEW_OIL_RESERVES_FOUND, |
|
145 |
STR_4835_INCREASES_PRODUCTION, |
|
146 |
STR_4835_INCREASES_PRODUCTION, |
|
147 |
STR_4835_INCREASES_PRODUCTION, |
|
148 |
STR_4838_IMPROVED_FARMING_METHODS, |
|
149 |
STR_4835_INCREASES_PRODUCTION, |
|
150 |
STR_4837_NEW_OIL_RESERVES_FOUND, |
|
151 |
STR_4835_INCREASES_PRODUCTION, |
|
152 |
STR_4835_INCREASES_PRODUCTION, |
|
153 |
STR_4835_INCREASES_PRODUCTION, |
|
154 |
STR_4835_INCREASES_PRODUCTION, |
|
155 |
STR_4835_INCREASES_PRODUCTION, |
|
156 |
STR_4835_INCREASES_PRODUCTION, |
|
157 |
STR_4835_INCREASES_PRODUCTION, |
|
158 |
STR_4838_IMPROVED_FARMING_METHODS, |
|
159 |
STR_4838_IMPROVED_FARMING_METHODS, |
|
160 |
STR_4835_INCREASES_PRODUCTION, |
|
161 |
STR_4835_INCREASES_PRODUCTION, |
|
162 |
STR_4835_INCREASES_PRODUCTION, |
|
163 |
STR_4838_IMPROVED_FARMING_METHODS, |
|
164 |
STR_4835_INCREASES_PRODUCTION, |
|
165 |
STR_4838_IMPROVED_FARMING_METHODS, |
|
166 |
STR_4835_INCREASES_PRODUCTION, |
|
167 |
STR_4838_IMPROVED_FARMING_METHODS, |
|
168 |
STR_4835_INCREASES_PRODUCTION, |
|
169 |
STR_4835_INCREASES_PRODUCTION, |
|
170 |
STR_4835_INCREASES_PRODUCTION, |
|
171 |
STR_4835_INCREASES_PRODUCTION, |
|
172 |
STR_4835_INCREASES_PRODUCTION, |
|
173 |
STR_4835_INCREASES_PRODUCTION, |
|
174 |
STR_4835_INCREASES_PRODUCTION, |
|
175 |
STR_4835_INCREASES_PRODUCTION, |
|
176 |
}; |
|
177 |
||
178 |
static const StringID _industry_prod_down_strings[] = {
|
|
179 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
180 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
181 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
182 |
STR_483A_INSECT_INFESTATION_CAUSES, |
|
183 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
184 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
185 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
186 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
187 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
188 |
STR_483A_INSECT_INFESTATION_CAUSES, |
|
189 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
190 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
191 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
192 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
193 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
194 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
195 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
196 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
197 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
198 |
STR_483A_INSECT_INFESTATION_CAUSES, |
|
199 |
STR_483A_INSECT_INFESTATION_CAUSES, |
|
200 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
201 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
202 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
203 |
STR_483A_INSECT_INFESTATION_CAUSES, |
|
204 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
205 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
206 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
207 |
STR_483A_INSECT_INFESTATION_CAUSES, |
|
208 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
209 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
210 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
211 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
212 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
213 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
214 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
215 |
STR_4839_PRODUCTION_DOWN_BY_50, |
|
216 |
}; |
|
217 |
||
218 |
static const StringID _industry_close_strings[] = {
|
|
219 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
220 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
221 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
222 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
223 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
224 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
225 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
226 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
227 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
228 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
229 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
230 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
231 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
232 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
233 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
234 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
235 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
236 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
237 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
238 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
239 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
240 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
241 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
242 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
243 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
244 |
STR_4834_LACK_OF_NEARBY_TREES_CAUSES, |
|
245 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
246 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
247 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
248 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
249 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
250 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
251 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
252 |
STR_4833_SUPPLY_PROBLEMS_CAUSE_TO, |
|
253 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
254 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE, |
|
| 2639 | 255 |
STR_4832_ANNOUNCES_IMMINENT_CLOSURE |
| 0 | 256 |
}; |
257 |
||
258 |
||
|
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2360
diff
changeset
|
259 |
static void IndustryDrawTileProc1(const TileInfo *ti) |
| 0 | 260 |
{
|
261 |
const DrawIndustrySpec1Struct *d; |
|
262 |
uint32 image; |
|
263 |
||
| 2639 | 264 |
if (!(_m[ti->tile].m1 & 0x80)) return; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
265 |
|
|
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:
1981
diff
changeset
|
266 |
d = &_draw_industry_spec1[_m[ti->tile].m3]; |
| 0 | 267 |
|
268 |
AddChildSpriteScreen(0x12A7 + d->image_1, d->x, 0); |
|
269 |
||
| 2639 | 270 |
image = d->image_2; |
271 |
if (image != 0) AddChildSpriteScreen(0x12B0 + image - 1, 8, 41); |
|
| 0 | 272 |
|
| 2639 | 273 |
image = d->image_3; |
274 |
if (image != 0) {
|
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
275 |
AddChildSpriteScreen(0x12AC + image - 1, |
| 2639 | 276 |
_drawtile_proc1_x[image - 1], _drawtile_proc1_y[image - 1]); |
277 |
} |
|
| 0 | 278 |
} |
279 |
||
|
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2360
diff
changeset
|
280 |
static void IndustryDrawTileProc2(const TileInfo *ti) |
| 0 | 281 |
{
|
282 |
int x = 0; |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
283 |
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
284 |
if (_m[ti->tile].m1 & 0x80) {
|
|
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:
1981
diff
changeset
|
285 |
x = _industry_anim_offs[_m[ti->tile].m3]; |
| 0 | 286 |
if ( (byte)x == 0xFF) |
287 |
x = 0; |
|
288 |
} |
|
289 |
||
| 2639 | 290 |
AddChildSpriteScreen(0x129F, 22 - x, 24 + x); |
| 0 | 291 |
AddChildSpriteScreen(0x129E, 6, 0xE); |
292 |
} |
|
293 |
||
|
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2360
diff
changeset
|
294 |
static void IndustryDrawTileProc3(const TileInfo *ti) |
| 0 | 295 |
{
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
296 |
if (_m[ti->tile].m1 & 0x80) {
|
| 2639 | 297 |
AddChildSpriteScreen(0x128B, 5, _industry_anim_offs_2[_m[ti->tile].m3]); |
298 |
} else {
|
|
299 |
AddChildSpriteScreen(4746, 3, 67); |
|
| 0 | 300 |
} |
301 |
} |
|
302 |
||
|
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2360
diff
changeset
|
303 |
static void IndustryDrawTileProc4(const TileInfo *ti) |
| 0 | 304 |
{
|
305 |
const DrawIndustrySpec4Struct *d; |
|
306 |
||
|
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:
1981
diff
changeset
|
307 |
d = &_industry_anim_offs_3[_m[ti->tile].m3]; |
| 0 | 308 |
|
309 |
if (d->image_1 != 0xFF) {
|
|
310 |
AddChildSpriteScreen(0x126F, 0x32 - d->image_1 * 2, 0x60 + d->image_1); |
|
311 |
} |
|
312 |
||
313 |
if (d->image_2 != 0xFF) {
|
|
| 2639 | 314 |
AddChildSpriteScreen(0x1270, 0x10 - d->image_2 * 2, 100 + d->image_2); |
| 0 | 315 |
} |
316 |
||
317 |
AddChildSpriteScreen(0x126E, 7, d->image_3); |
|
318 |
AddChildSpriteScreen(0x126D, 0, 42); |
|
319 |
} |
|
320 |
||
|
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2360
diff
changeset
|
321 |
static void DrawCoalPlantSparkles(const TileInfo *ti) |
| 0 | 322 |
{
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
323 |
int image = _m[ti->tile].m1; |
| 0 | 324 |
if (image & 0x80) {
|
|
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
|
325 |
image = GB(image, 2, 5); |
| 0 | 326 |
if (image != 0 && image < 7) {
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
327 |
AddChildSpriteScreen(image + 0x806, |
| 2639 | 328 |
_coal_plant_sparkles_x[image - 1], |
329 |
_coal_plant_sparkles_y[image - 1] |
|
| 0 | 330 |
); |
331 |
} |
|
332 |
} |
|
333 |
} |
|
334 |
||
|
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2360
diff
changeset
|
335 |
typedef void IndustryDrawTileProc(const TileInfo *ti); |
| 0 | 336 |
static IndustryDrawTileProc * const _industry_draw_tile_procs[5] = {
|
337 |
IndustryDrawTileProc1, |
|
338 |
IndustryDrawTileProc2, |
|
339 |
IndustryDrawTileProc3, |
|
340 |
IndustryDrawTileProc4, |
|
341 |
DrawCoalPlantSparkles, |
|
342 |
}; |
|
343 |
||
344 |
static void DrawTile_Industry(TileInfo *ti) |
|
345 |
{
|
|
| 2630 | 346 |
const Industry* ind; |
| 0 | 347 |
const DrawIndustryTileStruct *dits; |
348 |
byte z; |
|
349 |
uint32 image, ormod; |
|
350 |
||
351 |
/* Pointer to industry */ |
|
|
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:
1981
diff
changeset
|
352 |
ind = GetIndustry(_m[ti->tile].m2); |
| 2639 | 353 |
ormod = (ind->color_map + 0x307) << PALETTE_SPRITE_START; |
| 0 | 354 |
|
355 |
/* Retrieve pointer to the draw industry tile struct */ |
|
|
2493
d834d0c1502a
(svn r3019) -Codechange: Replace explicit shifting/anding/oring with GB and SB
tron
parents:
2492
diff
changeset
|
356 |
dits = &_industry_draw_tile_data[(ti->map5 << 2) | GB(_m[ti->tile].m1, 0, 2)]; |
| 0 | 357 |
|
358 |
image = dits->sprite_1; |
|
|
2187
2a51f8925eeb
(svn r2702) -Codechange: Cleaned up the sprite code and replaced many magic numbers
celestar
parents:
2186
diff
changeset
|
359 |
if (image & PALETTE_MODIFIER_COLOR && (image & PALETTE_SPRITE_MASK) == 0) |
| 0 | 360 |
image |= ormod; |
361 |
||
362 |
z = ti->z; |
|
363 |
/* Add bricks below the industry? */ |
|
364 |
if (ti->tileh & 0xF) {
|
|
| 2535 | 365 |
AddSortableSpriteToDraw(SPR_FOUNDATION_BASE + (ti->tileh & 0xF), ti->x, ti->y, 16, 16, 7, z); |
| 0 | 366 |
AddChildSpriteScreen(image, 0x1F, 1); |
367 |
z += 8; |
|
368 |
} else {
|
|
369 |
/* Else draw regular ground */ |
|
370 |
DrawGroundSprite(image); |
|
371 |
} |
|
372 |
||
373 |
/* Add industry on top of the ground? */ |
|
| 2639 | 374 |
image = dits->sprite_2; |
375 |
if (image != 0) {
|
|
|
2187
2a51f8925eeb
(svn r2702) -Codechange: Cleaned up the sprite code and replaced many magic numbers
celestar
parents:
2186
diff
changeset
|
376 |
if (image & PALETTE_MODIFIER_COLOR && (image & PALETTE_SPRITE_MASK) == 0) |
| 0 | 377 |
image |= ormod; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
378 |
|
| 2639 | 379 |
if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image); |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
380 |
|
|
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
381 |
AddSortableSpriteToDraw(image, |
|
2653
4173d9a0a27e
(svn r3195) Use bitfields instead of explicit shifting/masking
tron
parents:
2639
diff
changeset
|
382 |
ti->x + dits->subtile_x, |
|
4173d9a0a27e
(svn r3195) Use bitfields instead of explicit shifting/masking
tron
parents:
2639
diff
changeset
|
383 |
ti->y + dits->subtile_y, |
|
4173d9a0a27e
(svn r3195) Use bitfields instead of explicit shifting/masking
tron
parents:
2639
diff
changeset
|
384 |
dits->width + 1, |
|
4173d9a0a27e
(svn r3195) Use bitfields instead of explicit shifting/masking
tron
parents:
2639
diff
changeset
|
385 |
dits->height + 1, |
| 0 | 386 |
dits->dz, |
387 |
z); |
|
388 |
||
| 2639 | 389 |
if (_display_opt & DO_TRANS_BUILDINGS) return; |
| 0 | 390 |
} |
391 |
||
| 2639 | 392 |
{
|
393 |
int proc = dits->proc - 1; |
|
394 |
if (proc >= 0) _industry_draw_tile_procs[proc](ti); |
|
| 0 | 395 |
} |
396 |
} |
|
397 |
||
398 |
||
| 2537 | 399 |
static uint GetSlopeZ_Industry(const TileInfo* ti) |
400 |
{
|
|
|
9944
4f027626dbf6
(svn r4014) -Backport from trunk: Slope and height information returned for some tile types is wrong
celestar
parents:
2868
diff
changeset
|
401 |
return ti->z + (ti->tileh == 0 ? 0 : 8); |
| 0 | 402 |
} |
403 |
||
|
2548
97ada3bd2702
(svn r3077) static, const, bracing, indentation, 0 -> '\0'/NULL, typos in comments, excess empty lines, minor other changes
tron
parents:
2537
diff
changeset
|
404 |
static uint GetSlopeTileh_Industry(const TileInfo* ti) |
|
97ada3bd2702
(svn r3077) static, const, bracing, indentation, 0 -> '\0'/NULL, typos in comments, excess empty lines, minor other changes
tron
parents:
2537
diff
changeset
|
405 |
{
|
| 39 | 406 |
return 0; |
407 |
} |
|
408 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
409 |
static void GetAcceptedCargo_Industry(TileIndex tile, AcceptedCargo ac) |
| 0 | 410 |
{
|
|
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:
1981
diff
changeset
|
411 |
int m5 = _m[tile].m5; |
|
2598
574b5774149c
(svn r3135) Use symbolic names in the tables, which hold the information about accepted goods of industry tiles, instead of magic numbers
tron
parents:
2549
diff
changeset
|
412 |
CargoID a; |
| 0 | 413 |
|
414 |
a = _industry_map5_accepts_1[m5]; |
|
|
2598
574b5774149c
(svn r3135) Use symbolic names in the tables, which hold the information about accepted goods of industry tiles, instead of magic numbers
tron
parents:
2549
diff
changeset
|
415 |
if (a != CT_INVALID) ac[a] = (a == 0) ? 1 : 8; |
| 0 | 416 |
|
417 |
a = _industry_map5_accepts_2[m5]; |
|
|
2598
574b5774149c
(svn r3135) Use symbolic names in the tables, which hold the information about accepted goods of industry tiles, instead of magic numbers
tron
parents:
2549
diff
changeset
|
418 |
if (a != CT_INVALID) ac[a] = 8; |
| 0 | 419 |
|
420 |
a = _industry_map5_accepts_3[m5]; |
|
|
2598
574b5774149c
(svn r3135) Use symbolic names in the tables, which hold the information about accepted goods of industry tiles, instead of magic numbers
tron
parents:
2549
diff
changeset
|
421 |
if (a != CT_INVALID) ac[a] = 8; |
| 0 | 422 |
} |
423 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
424 |
static void GetTileDesc_Industry(TileIndex tile, TileDesc *td) |
| 0 | 425 |
{
|
| 2630 | 426 |
const Industry* i = GetIndustry(_m[tile].m2); |
| 0 | 427 |
|
428 |
td->owner = i->owner; |
|
429 |
td->str = STR_4802_COAL_MINE + i->type; |
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
430 |
if ((_m[tile].m1 & 0x80) == 0) {
|
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
431 |
SetDParamX(td->dparam, 0, td->str); |
| 0 | 432 |
td->str = STR_2058_UNDER_CONSTRUCTION; |
433 |
} |
|
434 |
} |
|
435 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
436 |
static int32 ClearTile_Industry(TileIndex tile, byte flags) |
| 0 | 437 |
{
|
|
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:
1981
diff
changeset
|
438 |
Industry *i = GetIndustry(_m[tile].m2); |
| 0 | 439 |
|
|
149
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
131
diff
changeset
|
440 |
/* * water can destroy industries |
|
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
131
diff
changeset
|
441 |
* in editor you can bulldoze industries |
|
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
131
diff
changeset
|
442 |
* with magic_bulldozer cheat you can destroy industries |
|
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
131
diff
changeset
|
443 |
* (area around OILRIG is water, so water shouldn't flood it |
|
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
131
diff
changeset
|
444 |
*/ |
|
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
131
diff
changeset
|
445 |
if ((_current_player != OWNER_WATER && _game_mode != GM_EDITOR && |
|
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
131
diff
changeset
|
446 |
!_cheats.magic_bulldozer.value) || |
|
5f7d4b21df01
(svn r150) -Fix: [1010833] Turning on the magic bulldozer removes oil rigs
darkvater
parents:
131
diff
changeset
|
447 |
(_current_player == OWNER_WATER && i->type == IT_OIL_RIG) ) {
|
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
448 |
SetDParam(0, STR_4802_COAL_MINE + i->type); |
| 0 | 449 |
return_cmd_error(STR_4800_IN_THE_WAY); |
450 |
} |
|
451 |
||
| 2639 | 452 |
if (flags & DC_EXEC) DeleteIndustry(i); |
| 0 | 453 |
return 0; |
454 |
} |
|
455 |
||
456 |
||
457 |
static const byte _industry_min_cargo[] = {
|
|
458 |
5, 5, 5, 30, 5, 5, 5, 5, |
|
459 |
5, 5, 5, 5, 2, 5, 5, 5, |
|
460 |
5, 5, 5, 15, 15, 5, 5, 5, |
|
461 |
5, 5, 30, 5, 30, 5, 5, 5, |
|
462 |
5, 5, 5, 5, 5, |
|
463 |
}; |
|
464 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
465 |
static void TransportIndustryGoods(TileIndex tile) |
| 0 | 466 |
{
|
| 2639 | 467 |
Industry* i = GetIndustry(_m[tile].m2); |
| 0 | 468 |
uint cw, am; |
469 |
||
| 2639 | 470 |
cw = min(i->cargo_waiting[0], 255); |
471 |
if (cw > _industry_min_cargo[i->type]/* && i->produced_cargo[0] != 0xFF*/) {
|
|
472 |
byte m5; |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
473 |
|
| 0 | 474 |
i->cargo_waiting[0] -= cw; |
475 |
||
476 |
/* fluctuating economy? */ |
|
| 2639 | 477 |
if (_economy.fluct <= 0) cw = (cw + 1) / 2; |
| 0 | 478 |
|
479 |
i->last_mo_production[0] += cw; |
|
480 |
||
481 |
am = MoveGoodsToStation(i->xy, i->width, i->height, i->produced_cargo[0], cw); |
|
482 |
i->last_mo_transported[0] += am; |
|
|
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:
1981
diff
changeset
|
483 |
if (am != 0 && (m5 = _industry_produce_map5[_m[tile].m5]) != 0xFF) {
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
484 |
_m[tile].m1 = 0x80; |
|
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:
1981
diff
changeset
|
485 |
_m[tile].m5 = m5; |
| 0 | 486 |
MarkTileDirtyByTile(tile); |
487 |
} |
|
488 |
} |
|
489 |
||
490 |
cw = min(i->cargo_waiting[1], 255); |
|
| 2639 | 491 |
if (cw > _industry_min_cargo[i->type]) {
|
| 0 | 492 |
i->cargo_waiting[1] -= cw; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
493 |
|
| 2639 | 494 |
if (_economy.fluct <= 0) cw = (cw + 1) / 2; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
495 |
|
| 0 | 496 |
i->last_mo_production[1] += cw; |
497 |
||
498 |
am = MoveGoodsToStation(i->xy, i->width, i->height, i->produced_cargo[1], cw); |
|
499 |
i->last_mo_transported[1] += am; |
|
500 |
} |
|
501 |
} |
|
502 |
||
503 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
504 |
static void AnimateTile_Industry(TileIndex tile) |
| 0 | 505 |
{
|
506 |
byte m,n; |
|
507 |
||
|
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:
1981
diff
changeset
|
508 |
switch(_m[tile].m5) {
|
| 0 | 509 |
case 174: |
510 |
if ((_tick_counter & 1) == 0) {
|
|
|
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:
1981
diff
changeset
|
511 |
m = _m[tile].m3 + 1; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
512 |
|
| 0 | 513 |
switch(m & 7) {
|
| 541 | 514 |
case 2: SndPlayTileFx(SND_2D_RIP_2, tile); break; |
515 |
case 6: SndPlayTileFx(SND_29_RIP, tile); break; |
|
| 0 | 516 |
} |
517 |
||
518 |
if (m >= 96) {
|
|
519 |
m = 0; |
|
520 |
DeleteAnimatedTile(tile); |
|
521 |
} |
|
|
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:
1981
diff
changeset
|
522 |
_m[tile].m3 = m; |
| 0 | 523 |
|
524 |
MarkTileDirtyByTile(tile); |
|
525 |
} |
|
526 |
break; |
|
527 |
||
528 |
case 165: |
|
529 |
if ((_tick_counter & 3) == 0) {
|
|
|
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:
1981
diff
changeset
|
530 |
m = _m[tile].m3; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
531 |
|
| 0 | 532 |
if (_industry_anim_offs[m] == 0xFF) {
|
| 541 | 533 |
SndPlayTileFx(SND_30_CARTOON_SOUND, tile); |
| 0 | 534 |
} |
535 |
||
536 |
if (++m >= 70) {
|
|
537 |
m = 0; |
|
538 |
DeleteAnimatedTile(tile); |
|
539 |
} |
|
|
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:
1981
diff
changeset
|
540 |
_m[tile].m3 = m; |
| 0 | 541 |
|
542 |
MarkTileDirtyByTile(tile); |
|
543 |
} |
|
544 |
break; |
|
545 |
||
546 |
case 162: |
|
547 |
if ((_tick_counter&1) == 0) {
|
|
|
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:
1981
diff
changeset
|
548 |
m = _m[tile].m3; |
| 0 | 549 |
|
550 |
if (++m >= 40) {
|
|
551 |
m = 0; |
|
552 |
DeleteAnimatedTile(tile); |
|
553 |
} |
|
|
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:
1981
diff
changeset
|
554 |
_m[tile].m3 = m; |
| 0 | 555 |
|
556 |
MarkTileDirtyByTile(tile); |
|
557 |
} |
|
558 |
break; |
|
559 |
||
560 |
// Sparks on a coal plant |
|
561 |
case 10: |
|
562 |
if ((_tick_counter & 3) == 0) {
|
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
563 |
m = _m[tile].m1; |
| 2663 | 564 |
if (GB(m, 2, 5) == 6) {
|
565 |
SB(_m[tile].m1, 2, 5, 0); |
|
| 0 | 566 |
DeleteAnimatedTile(tile); |
567 |
} else {
|
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
568 |
_m[tile].m1 = m + (1<<2); |
| 0 | 569 |
MarkTileDirtyByTile(tile); |
570 |
} |
|
571 |
} |
|
572 |
break; |
|
573 |
||
574 |
case 143: |
|
575 |
if ((_tick_counter & 1) == 0) {
|
|
|
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:
1981
diff
changeset
|
576 |
m = _m[tile].m3 + 1; |
| 0 | 577 |
|
578 |
if (m == 1) {
|
|
| 541 | 579 |
SndPlayTileFx(SND_2C_MACHINERY, tile); |
| 0 | 580 |
} else if (m == 23) {
|
| 541 | 581 |
SndPlayTileFx(SND_2B_COMEDY_HIT, tile); |
| 0 | 582 |
} else if (m == 28) {
|
| 541 | 583 |
SndPlayTileFx(SND_2A_EXTRACT_AND_POP, tile); |
| 0 | 584 |
} |
585 |
||
|
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:
1981
diff
changeset
|
586 |
if (m >= 50 && (m=0,++_m[tile].m4 >= 8)) {
|
|
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:
1981
diff
changeset
|
587 |
_m[tile].m4 = 0; |
| 0 | 588 |
DeleteAnimatedTile(tile); |
589 |
} |
|
|
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:
1981
diff
changeset
|
590 |
_m[tile].m3 = m; |
| 0 | 591 |
MarkTileDirtyByTile(tile); |
592 |
} |
|
593 |
break; |
|
594 |
||
595 |
case 148: case 149: case 150: case 151: |
|
596 |
case 152: case 153: case 154: case 155: |
|
597 |
if ((_tick_counter & 3) == 0) {
|
|
|
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:
1981
diff
changeset
|
598 |
m = _m[tile].m5 + 1; |
| 0 | 599 |
if (m == 155+1) m = 148; |
|
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:
1981
diff
changeset
|
600 |
_m[tile].m5 = m; |
| 0 | 601 |
|
602 |
MarkTileDirtyByTile(tile); |
|
603 |
} |
|
604 |
break; |
|
605 |
||
606 |
case 30: case 31: case 32: |
|
607 |
if ((_tick_counter & 7) == 0) {
|
|
608 |
bool b = CHANCE16(1,7); |
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
609 |
m = _m[tile].m1; |
| 0 | 610 |
m = (m & 3) + 1; |
|
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:
1981
diff
changeset
|
611 |
n = _m[tile].m5; |
| 0 | 612 |
if (m == 4 && (m=0,++n) == 32+1 && (n=30,b)) {
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
613 |
_m[tile].m1 = 0x83; |
|
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:
1981
diff
changeset
|
614 |
_m[tile].m5 = 29; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
615 |
DeleteAnimatedTile(tile); |
| 0 | 616 |
} else {
|
| 2663 | 617 |
SB(_m[tile].m1, 0, 2, m); |
|
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:
1981
diff
changeset
|
618 |
_m[tile].m5 = n; |
| 0 | 619 |
MarkTileDirtyByTile(tile); |
620 |
} |
|
621 |
} |
|
622 |
break; |
|
623 |
||
624 |
case 88: |
|
625 |
case 48: |
|
626 |
case 1: {
|
|
627 |
int state = _tick_counter & 0x7FF; |
|
628 |
||
629 |
if ((state -= 0x400) < 0) |
|
630 |
return; |
|
631 |
||
632 |
if (state < 0x1A0) {
|
|
633 |
if (state < 0x20 || state >= 0x180) {
|
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
634 |
if (!(_m[tile].m1 & 0x40)) {
|
|
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
635 |
_m[tile].m1 |= 0x40; |
| 541 | 636 |
SndPlayTileFx(SND_0B_MINING_MACHINERY, tile); |
| 0 | 637 |
} |
638 |
if (state & 7) |
|
639 |
return; |
|
640 |
} else {
|
|
641 |
if (state & 3) |
|
642 |
return; |
|
643 |
} |
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
644 |
m = (_m[tile].m1 + 1) | 0x40; |
| 0 | 645 |
if (m > 0xC2) m = 0xC0; |
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
646 |
_m[tile].m1 = m; |
| 0 | 647 |
MarkTileDirtyByTile(tile); |
648 |
} else if (state >= 0x200 && state < 0x3A0) {
|
|
649 |
int i; |
|
650 |
i = (state < 0x220 || state >= 0x380) ? 7 : 3; |
|
651 |
if (state & i) |
|
652 |
return; |
|
653 |
||
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
654 |
m = (_m[tile].m1 & 0xBF) - 1; |
| 0 | 655 |
if (m < 0x80) m = 0x82; |
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
656 |
_m[tile].m1 = m; |
| 0 | 657 |
MarkTileDirtyByTile(tile); |
658 |
} |
|
659 |
} break; |
|
660 |
} |
|
661 |
} |
|
662 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
663 |
static void MakeIndustryTileBiggerCase8(TileIndex tile) |
| 0 | 664 |
{
|
665 |
TileInfo ti; |
|
|
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
|
666 |
FindLandscapeHeight(&ti, TileX(tile) * 16, TileY(tile) * 16); |
|
1359
8ba976aed634
(svn r1863) Give the effect vehicle type enums more descriptive names and use the enum as parameter type for CreateEffectVehicle*()
tron
parents:
1335
diff
changeset
|
667 |
CreateEffectVehicle(ti.x + 15, ti.y + 14, ti.z + 59 + (ti.tileh != 0 ? 8 : 0), EV_CHIMNEY_SMOKE); |
| 0 | 668 |
} |
669 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
670 |
static void MakeIndustryTileBigger(TileIndex tile, byte size) |
| 0 | 671 |
{
|
672 |
byte b = (byte)((size + (1<<2)) & (3<<2)); |
|
673 |
||
674 |
if (b != 0) {
|
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
675 |
_m[tile].m1 = b | (size & 3); |
| 0 | 676 |
return; |
677 |
} |
|
678 |
||
679 |
size = (size + 1) & 3; |
|
680 |
if (size == 3) size |= 0x80; |
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
681 |
_m[tile].m1 = size | b; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
682 |
|
| 0 | 683 |
MarkTileDirtyByTile(tile); |
684 |
||
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
685 |
if (!(_m[tile].m1 & 0x80)) |
| 0 | 686 |
return; |
687 |
||
|
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:
1981
diff
changeset
|
688 |
switch(_m[tile].m5) {
|
| 0 | 689 |
case 8: |
690 |
MakeIndustryTileBiggerCase8(tile); |
|
691 |
break; |
|
692 |
||
693 |
case 24: |
|
|
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:
1981
diff
changeset
|
694 |
if (_m[tile + TileDiffXY(0, 1)].m5 == 24) BuildOilRig(tile); |
| 0 | 695 |
break; |
696 |
||
697 |
case 143: |
|
698 |
case 162: |
|
699 |
case 165: |
|
|
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:
1981
diff
changeset
|
700 |
_m[tile].m3 = 0; |
|
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:
1981
diff
changeset
|
701 |
_m[tile].m4 = 0; |
| 0 | 702 |
break; |
703 |
||
704 |
case 148: case 149: case 150: case 151: |
|
705 |
case 152: case 153: case 154: case 155: |
|
706 |
AddAnimatedTile(tile); |
|
707 |
break; |
|
708 |
} |
|
709 |
} |
|
710 |
||
711 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
712 |
static void TileLoopIndustryCase161(TileIndex tile) |
| 0 | 713 |
{
|
714 |
int dir; |
|
715 |
Vehicle *v; |
|
716 |
static const int8 _tileloop_ind_case_161[12] = {
|
|
717 |
11, 0, -4, -14, |
|
718 |
-4, -10, -4, 1, |
|
719 |
49, 59, 60, 65, |
|
720 |
}; |
|
721 |
||
| 541 | 722 |
SndPlayTileFx(SND_2E_EXTRACT_AND_POP, tile); |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
723 |
|
| 0 | 724 |
dir = Random() & 3; |
725 |
||
726 |
v = CreateEffectVehicleAbove( |
|
|
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
|
727 |
TileX(tile) * 16 + _tileloop_ind_case_161[dir + 0], |
|
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
|
728 |
TileY(tile) * 16 + _tileloop_ind_case_161[dir + 4], |
| 0 | 729 |
_tileloop_ind_case_161[dir + 8], |
|
1359
8ba976aed634
(svn r1863) Give the effect vehicle type enums more descriptive names and use the enum as parameter type for CreateEffectVehicle*()
tron
parents:
1335
diff
changeset
|
730 |
EV_BUBBLE |
| 0 | 731 |
); |
732 |
||
| 2639 | 733 |
if (v != NULL) v->u.special.unk2 = dir; |
| 0 | 734 |
} |
735 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
736 |
static void TileLoop_Industry(TileIndex tile) |
| 0 | 737 |
{
|
738 |
byte n; |
|
739 |
||
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
740 |
if (!(_m[tile].m1 & 0x80)) {
|
|
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
741 |
MakeIndustryTileBigger(tile, _m[tile].m1); |
| 0 | 742 |
return; |
743 |
} |
|
744 |
||
| 2639 | 745 |
if (_game_mode == GM_EDITOR) return; |
| 0 | 746 |
|
747 |
TransportIndustryGoods(tile); |
|
748 |
||
|
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:
1981
diff
changeset
|
749 |
n = _industry_map5_animation_next[_m[tile].m5]; |
| 0 | 750 |
if (n != 255) {
|
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
751 |
_m[tile].m1 = 0; |
|
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:
1981
diff
changeset
|
752 |
_m[tile].m5 = n; |
| 0 | 753 |
MarkTileDirtyByTile(tile); |
754 |
return; |
|
755 |
} |
|
756 |
||
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
757 |
#define SET_AND_ANIMATE(tile, a, b) { _m[tile].m5 = a; _m[tile].m1 = b; AddAnimatedTile(tile); }
|
|
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
758 |
#define SET_AND_UNANIMATE(tile, a, b) { _m[tile].m5 = a; _m[tile].m1 = b; DeleteAnimatedTile(tile); }
|
| 0 | 759 |
|
| 2639 | 760 |
switch (_m[tile].m5) {
|
|
43
3b93861c5478
(svn r44) Fix: Coast line near edge of map and near oilrigs (Dribbel)
dominik
parents:
39
diff
changeset
|
761 |
case 0x18: // coast line at oilrigs |
|
3b93861c5478
(svn r44) Fix: Coast line near edge of map and near oilrigs (Dribbel)
dominik
parents:
39
diff
changeset
|
762 |
case 0x19: |
|
3b93861c5478
(svn r44) Fix: Coast line near edge of map and near oilrigs (Dribbel)
dominik
parents:
39
diff
changeset
|
763 |
case 0x1A: |
|
3b93861c5478
(svn r44) Fix: Coast line near edge of map and near oilrigs (Dribbel)
dominik
parents:
39
diff
changeset
|
764 |
case 0x1B: |
|
3b93861c5478
(svn r44) Fix: Coast line near edge of map and near oilrigs (Dribbel)
dominik
parents:
39
diff
changeset
|
765 |
case 0x1C: |
|
3b93861c5478
(svn r44) Fix: Coast line near edge of map and near oilrigs (Dribbel)
dominik
parents:
39
diff
changeset
|
766 |
TileLoop_Water(tile); |
|
3b93861c5478
(svn r44) Fix: Coast line near edge of map and near oilrigs (Dribbel)
dominik
parents:
39
diff
changeset
|
767 |
break; |
|
3b93861c5478
(svn r44) Fix: Coast line near edge of map and near oilrigs (Dribbel)
dominik
parents:
39
diff
changeset
|
768 |
|
| 0 | 769 |
case 0: |
770 |
if (!(_tick_counter & 0x400) && CHANCE16(1,2)) |
|
771 |
SET_AND_ANIMATE(tile,1,0x80); |
|
772 |
break; |
|
773 |
||
774 |
case 47: |
|
775 |
if (!(_tick_counter & 0x400) && CHANCE16(1,2)) |
|
776 |
SET_AND_ANIMATE(tile,0x30,0x80); |
|
777 |
break; |
|
778 |
||
779 |
case 79: |
|
780 |
if (!(_tick_counter & 0x400) && CHANCE16(1,2)) |
|
781 |
SET_AND_ANIMATE(tile,0x58,0x80); |
|
782 |
break; |
|
783 |
||
784 |
case 29: |
|
785 |
if (CHANCE16(1,6)) |
|
786 |
SET_AND_ANIMATE(tile,0x1E,0x80); |
|
787 |
break; |
|
788 |
||
789 |
case 1: |
|
790 |
if (!(_tick_counter & 0x400)) |
|
791 |
SET_AND_UNANIMATE(tile, 0, 0x83); |
|
792 |
break; |
|
793 |
||
794 |
case 48: |
|
795 |
if (!(_tick_counter & 0x400)) |
|
796 |
SET_AND_UNANIMATE(tile, 0x2F, 0x83); |
|
797 |
break; |
|
798 |
||
799 |
case 88: |
|
800 |
if (!(_tick_counter & 0x400)) |
|
801 |
SET_AND_UNANIMATE(tile, 0x4F, 0x83); |
|
802 |
break; |
|
803 |
||
804 |
case 10: |
|
805 |
if (CHANCE16(1,3)) {
|
|
| 541 | 806 |
SndPlayTileFx(SND_0C_ELECTRIC_SPARK, tile); |
| 0 | 807 |
AddAnimatedTile(tile); |
808 |
} |
|
809 |
break; |
|
810 |
||
| 2639 | 811 |
case 49: |
|
1359
8ba976aed634
(svn r1863) Give the effect vehicle type enums more descriptive names and use the enum as parameter type for CreateEffectVehicle*()
tron
parents:
1335
diff
changeset
|
812 |
CreateEffectVehicleAbove(TileX(tile) * 16 + 6, TileY(tile) * 16 + 6, 43, EV_SMOKE); |
| 2639 | 813 |
break; |
| 0 | 814 |
|
815 |
||
816 |
case 143: {
|
|
|
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:
1981
diff
changeset
|
817 |
Industry *i = GetIndustry(_m[tile].m2); |
| 0 | 818 |
if (i->was_cargo_delivered) {
|
819 |
i->was_cargo_delivered = false; |
|
|
2061
f67a12c65223
(svn r2570) Fix: Removed some code that had no effect.
ludde
parents:
2051
diff
changeset
|
820 |
_m[tile].m4 = 0; |
| 0 | 821 |
AddAnimatedTile(tile); |
822 |
} |
|
823 |
} |
|
824 |
break; |
|
825 |
||
826 |
case 161: |
|
827 |
TileLoopIndustryCase161(tile); |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
828 |
break; |
|
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
829 |
|
| 0 | 830 |
case 165: |
831 |
AddAnimatedTile(tile); |
|
832 |
break; |
|
833 |
||
834 |
case 174: |
|
| 2639 | 835 |
if (CHANCE16(1, 3)) AddAnimatedTile(tile); |
| 0 | 836 |
break; |
837 |
} |
|
838 |
} |
|
839 |
||
840 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
841 |
static void ClickTile_Industry(TileIndex tile) |
| 0 | 842 |
{
|
|
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:
1981
diff
changeset
|
843 |
ShowIndustryViewWindow(_m[tile].m2); |
| 0 | 844 |
} |
845 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
846 |
static uint32 GetTileTrackStatus_Industry(TileIndex tile, TransportType mode) |
| 0 | 847 |
{
|
848 |
return 0; |
|
849 |
} |
|
850 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
851 |
static void GetProducedCargo_Industry(TileIndex tile, byte *b) |
| 0 | 852 |
{
|
| 2630 | 853 |
const Industry* i = GetIndustry(_m[tile].m2); |
854 |
||
| 0 | 855 |
b[0] = i->produced_cargo[0]; |
856 |
b[1] = i->produced_cargo[1]; |
|
857 |
} |
|
858 |
||
|
2436
177cb6a8339f
(svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters
Darkvater
parents:
2360
diff
changeset
|
859 |
static void ChangeTileOwner_Industry(TileIndex tile, PlayerID old_player, PlayerID new_player) |
| 0 | 860 |
{
|
861 |
/* not used */ |
|
862 |
} |
|
863 |
||
864 |
void DeleteIndustry(Industry *i) |
|
865 |
{
|
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
866 |
BEGIN_TILE_LOOP(tile_cur, i->width, i->height, i->xy); |
|
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:
1019
diff
changeset
|
867 |
if (IsTileType(tile_cur, MP_INDUSTRY)) {
|
|
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:
1981
diff
changeset
|
868 |
if (_m[tile_cur].m2 == i->index) {
|
| 0 | 869 |
DoClearSquare(tile_cur); |
870 |
} |
|
|
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:
1981
diff
changeset
|
871 |
} else if (IsTileType(tile_cur, MP_STATION) && _m[tile_cur].m5 == 0x4B) {
|
| 0 | 872 |
DeleteOilRig(tile_cur); |
873 |
} |
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
874 |
END_TILE_LOOP(tile_cur, i->width, i->height, i->xy); |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
875 |
|
| 0 | 876 |
i->xy = 0; |
877 |
_industry_sort_dirty = true; |
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
878 |
DeleteSubsidyWithIndustry(i->index); |
|
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
879 |
DeleteWindowById(WC_INDUSTRY_VIEW, i->index); |
| 0 | 880 |
InvalidateWindow(WC_INDUSTRY_DIRECTORY, 0); |
881 |
} |
|
882 |
||
883 |
static const byte _plantfarmfield_type[] = {1, 1, 1, 1, 1, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6};
|
|
884 |
||
| 1048 | 885 |
static bool IsBadFarmFieldTile(TileIndex tile) |
| 0 | 886 |
{
|
|
1214
33e07bbb7779
(svn r1718) Use the enum TileType as parameter/return type for [GS]etTileType() instead of plain int.
tron
parents:
1209
diff
changeset
|
887 |
switch (GetTileType(tile)) {
|
| 1048 | 888 |
case MP_CLEAR: {
|
|
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:
1981
diff
changeset
|
889 |
byte m5 = _m[tile].m5 & 0x1C; |
| 1048 | 890 |
return m5 == 0xC || m5 == 0x10; |
891 |
} |
|
892 |
||
893 |
case MP_TREES: |
|
894 |
return false; |
|
895 |
||
896 |
default: |
|
| 0 | 897 |
return true; |
898 |
} |
|
899 |
} |
|
900 |
||
| 1048 | 901 |
static bool IsBadFarmFieldTile2(TileIndex tile) |
| 0 | 902 |
{
|
|
1214
33e07bbb7779
(svn r1718) Use the enum TileType as parameter/return type for [GS]etTileType() instead of plain int.
tron
parents:
1209
diff
changeset
|
903 |
switch (GetTileType(tile)) {
|
| 1048 | 904 |
case MP_CLEAR: {
|
|
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:
1981
diff
changeset
|
905 |
byte m5 = _m[tile].m5 & 0x1C; |
| 1048 | 906 |
return m5 == 0x10; |
907 |
} |
|
908 |
||
909 |
case MP_TREES: |
|
910 |
return false; |
|
911 |
||
912 |
default: |
|
| 0 | 913 |
return true; |
914 |
} |
|
915 |
} |
|
916 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
917 |
static void SetupFarmFieldFence(TileIndex tile, int size, byte type, int direction) |
| 0 | 918 |
{
|
919 |
byte or, and; |
|
920 |
||
921 |
do {
|
|
922 |
tile = TILE_MASK(tile); |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
923 |
|
|
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:
1019
diff
changeset
|
924 |
if (IsTileType(tile, MP_CLEAR) || IsTileType(tile, MP_TREES)) {
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
925 |
|
| 0 | 926 |
or = type; |
|
2637
8807e6a63f89
(svn r3179) - RandomRange() and RandomTile() instead of home brewed versions
tron
parents:
2630
diff
changeset
|
927 |
if (or == 1 && CHANCE16(1, 7)) or = 2; |
| 0 | 928 |
|
929 |
or <<= 2; |
|
930 |
and = (byte)~0x1C; |
|
931 |
if (direction) {
|
|
932 |
or <<= 3; |
|
933 |
and = (byte)~0xE0; |
|
934 |
} |
|
|
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:
1981
diff
changeset
|
935 |
_m[tile].m4 = (_m[tile].m4 & and) | or; |
| 0 | 936 |
} |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
937 |
|
| 1981 | 938 |
tile += direction ? TileDiffXY(0, 1) : TileDiffXY(1, 0); |
| 0 | 939 |
} while (--size); |
940 |
} |
|
941 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
942 |
static void PlantFarmField(TileIndex tile) |
| 0 | 943 |
{
|
944 |
uint size_x, size_y; |
|
945 |
uint32 r; |
|
| 2133 | 946 |
uint count; |
| 0 | 947 |
int type, type2; |
948 |
||
949 |
if (_opt.landscape == LT_HILLY) {
|
|
|
1335
a635854c23b6
(svn r1839) Move GetTileSlope() and GetTileZ() into tile.[ch] and use more explicit types as parameters
tron
parents:
1320
diff
changeset
|
950 |
if (GetTileZ(tile) + 16 >= _opt.snow_line) |
| 0 | 951 |
return; |
952 |
} |
|
953 |
||
954 |
/* determine field size */ |
|
955 |
r = (Random() & 0x303) + 0x404; |
|
956 |
if (_opt.landscape == LT_HILLY) r += 0x404; |
|
|
2150
010d923a81a9
(svn r2660) Get rid of some more shifting/anding/casting
tron
parents:
2148
diff
changeset
|
957 |
size_x = GB(r, 0, 8); |
|
010d923a81a9
(svn r2660) Get rid of some more shifting/anding/casting
tron
parents:
2148
diff
changeset
|
958 |
size_y = GB(r, 8, 8); |
| 0 | 959 |
|
960 |
/* offset tile to match size */ |
|
| 1981 | 961 |
tile -= TileDiffXY(size_x / 2, size_y / 2); |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
962 |
|
| 0 | 963 |
/* check the amount of bad tiles */ |
964 |
count = 0; |
|
965 |
BEGIN_TILE_LOOP(cur_tile, size_x, size_y, tile) |
|
966 |
cur_tile = TILE_MASK(cur_tile); |
|
967 |
count += IsBadFarmFieldTile(cur_tile); |
|
968 |
END_TILE_LOOP(cur_tile, size_x, size_y, tile) |
|
| 2133 | 969 |
if (count * 2 >= size_x * size_y) return; |
| 0 | 970 |
|
971 |
/* determine type of field */ |
|
972 |
r = Random(); |
|
973 |
type = ((r & 0xE0) | 0xF); |
|
|
2150
010d923a81a9
(svn r2660) Get rid of some more shifting/anding/casting
tron
parents:
2148
diff
changeset
|
974 |
type2 = GB(r, 8, 8) * 9 >> 8; |
| 0 | 975 |
|
976 |
/* make field */ |
|
977 |
BEGIN_TILE_LOOP(cur_tile, size_x, size_y, tile) |
|
978 |
cur_tile = TILE_MASK(cur_tile); |
|
979 |
if (!IsBadFarmFieldTile2(cur_tile)) {
|
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
980 |
ModifyTile(cur_tile, |
|
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
981 |
MP_SETTYPE(MP_CLEAR) | |
| 0 | 982 |
MP_MAP2_CLEAR | MP_MAP3LO | MP_MAP3HI_CLEAR | MP_MAPOWNER | MP_MAP5, |
983 |
type2, /* map3_lo */ |
|
984 |
OWNER_NONE, /* map_owner */ |
|
985 |
type); /* map5 */ |
|
986 |
} |
|
987 |
END_TILE_LOOP(cur_tile, size_x, size_y, tile) |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
988 |
|
| 0 | 989 |
type = 3; |
990 |
if (_opt.landscape != LT_HILLY && _opt.landscape != LT_DESERT) {
|
|
991 |
type = _plantfarmfield_type[Random() & 0xF]; |
|
992 |
} |
|
993 |
||
| 1981 | 994 |
SetupFarmFieldFence(tile - TileDiffXY(1, 0), size_y, type, 1); |
995 |
SetupFarmFieldFence(tile - TileDiffXY(0, 1), size_x, type, 0); |
|
996 |
SetupFarmFieldFence(tile + TileDiffXY(size_x - 1, 0), size_y, type, 1); |
|
997 |
SetupFarmFieldFence(tile + TileDiffXY(0, size_y - 1), size_x, type, 0); |
|
| 0 | 998 |
} |
999 |
||
|
2548
97ada3bd2702
(svn r3077) static, const, bracing, indentation, 0 -> '\0'/NULL, typos in comments, excess empty lines, minor other changes
tron
parents:
2537
diff
changeset
|
1000 |
static void MaybePlantFarmField(const Industry* i) |
| 0 | 1001 |
{
|
| 2549 | 1002 |
if (CHANCE16(1, 8)) {
|
1003 |
int x = i->width / 2 + Random() % 31 - 16; |
|
1004 |
int y = i->height / 2 + Random() % 31 - 16; |
|
1005 |
TileIndex tile = TileAddWrap(i->xy, x, y); |
|
1006 |
if (tile != INVALID_TILE) PlantFarmField(tile); |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1007 |
} |
| 0 | 1008 |
} |
1009 |
||
1010 |
static void ChopLumberMillTrees(Industry *i) |
|
1011 |
{
|
|
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1012 |
static const TileIndexDiffC _chop_dir[] = {
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1013 |
{ 0, 1},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1014 |
{ 1, 0},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1015 |
{ 0, -1},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1016 |
{-1, 0}
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1017 |
}; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1018 |
|
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1019 |
TileIndex tile = i->xy; |
| 2639 | 1020 |
int a; |
| 0 | 1021 |
|
| 2639 | 1022 |
if ((_m[tile].m1 & 0x80) == 0) return; |
| 0 | 1023 |
|
1024 |
/* search outwards as a rectangular spiral */ |
|
| 2639 | 1025 |
for (a = 1; a != 41; a += 2) {
|
1026 |
uint dir; |
|
1027 |
||
1028 |
for (dir = 0; dir != 4; dir++) {
|
|
1029 |
int j = a; |
|
1030 |
||
| 0 | 1031 |
do {
|
1032 |
tile = TILE_MASK(tile); |
|
|
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:
1019
diff
changeset
|
1033 |
if (IsTileType(tile, MP_TREES)) {
|
|
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
|
1034 |
PlayerID old_player = _current_player; |
| 0 | 1035 |
/* found a tree */ |
1036 |
||
1037 |
_current_player = OWNER_NONE; |
|
1038 |
_industry_sound_ctr = 1; |
|
1039 |
_industry_sound_tile = tile; |
|
| 541 | 1040 |
SndPlayTileFx(SND_38_CHAINSAW, tile); |
| 0 | 1041 |
|
1042 |
DoCommandByTile(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); |
|
1043 |
SetMapExtraBits(tile, 0); |
|
1044 |
||
1045 |
i->cargo_waiting[0] = min(0xffff, i->cargo_waiting[0] + 45); |
|
| 314 | 1046 |
|
1047 |
_current_player = old_player; |
|
| 0 | 1048 |
return; |
1049 |
} |
|
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1050 |
tile += ToTileIndexDiff(_chop_dir[dir]); |
| 0 | 1051 |
} while (--j); |
1052 |
} |
|
| 1981 | 1053 |
tile -= TileDiffXY(1, 1); |
| 0 | 1054 |
} |
1055 |
} |
|
1056 |
||
1057 |
static const byte _industry_sounds[37][2] = {
|
|
1058 |
{0},
|
|
1059 |
{0},
|
|
| 541 | 1060 |
{1, SND_28_SAWMILL},
|
| 0 | 1061 |
{0},
|
1062 |
{0},
|
|
1063 |
{0},
|
|
| 541 | 1064 |
{1, SND_03_FACTORY_WHISTLE},
|
1065 |
{1, SND_03_FACTORY_WHISTLE},
|
|
| 0 | 1066 |
{0},
|
| 541 | 1067 |
{3, SND_24_SHEEP},
|
| 0 | 1068 |
{0},
|
1069 |
{0},
|
|
1070 |
{0},
|
|
1071 |
{0},
|
|
| 541 | 1072 |
{1, SND_28_SAWMILL},
|
| 0 | 1073 |
{0},
|
1074 |
{0},
|
|
1075 |
{0},
|
|
1076 |
{0},
|
|
1077 |
{0},
|
|
1078 |
{0},
|
|
1079 |
{0},
|
|
1080 |
{0},
|
|
| 541 | 1081 |
{1, SND_03_FACTORY_WHISTLE},
|
| 0 | 1082 |
{0},
|
1083 |
{0},
|
|
1084 |
{0},
|
|
1085 |
{0},
|
|
1086 |
{0},
|
|
1087 |
{0},
|
|
1088 |
{0},
|
|
1089 |
{0},
|
|
| 541 | 1090 |
{1, SND_33_PLASTIC_MINE},
|
| 0 | 1091 |
{0},
|
1092 |
{0},
|
|
1093 |
{0},
|
|
1094 |
{0},
|
|
1095 |
}; |
|
1096 |
||
1097 |
||
1098 |
static void ProduceIndustryGoods(Industry *i) |
|
1099 |
{
|
|
1100 |
uint32 r; |
|
1101 |
uint num; |
|
1102 |
||
1103 |
/* play a sound? */ |
|
1104 |
if ((i->counter & 0x3F) == 0) {
|
|
1105 |
if (CHANCE16R(1,14,r) && (num=_industry_sounds[i->type][0]) != 0) {
|
|
1106 |
SndPlayTileFx( |
|
1107 |
_industry_sounds[i->type][1] + (((r >> 16) * num) >> 16), |
|
1108 |
i->xy); |
|
1109 |
} |
|
1110 |
} |
|
1111 |
||
1112 |
i->counter--; |
|
1113 |
||
1114 |
/* produce some cargo */ |
|
1115 |
if ((i->counter & 0xFF) == 0) {
|
|
1116 |
i->cargo_waiting[0] = min(0xffff, i->cargo_waiting[0] + i->production_rate[0]); |
|
1117 |
i->cargo_waiting[1] = min(0xffff, i->cargo_waiting[1] + i->production_rate[1]); |
|
1118 |
||
| 2639 | 1119 |
if (i->type == IT_FARM) {
|
| 0 | 1120 |
MaybePlantFarmField(i); |
| 2639 | 1121 |
} else if (i->type == IT_LUMBER_MILL && (i->counter & 0x1FF) == 0) {
|
| 0 | 1122 |
ChopLumberMillTrees(i); |
| 2639 | 1123 |
} |
| 0 | 1124 |
} |
1125 |
} |
|
1126 |
||
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1059
diff
changeset
|
1127 |
void OnTick_Industry(void) |
| 0 | 1128 |
{
|
1129 |
Industry *i; |
|
1130 |
||
1131 |
if (_industry_sound_ctr != 0) {
|
|
1132 |
_industry_sound_ctr++; |
|
1133 |
||
1134 |
if (_industry_sound_ctr == 75) {
|
|
| 541 | 1135 |
SndPlayTileFx(SND_37_BALLOON_SQUEAK, _industry_sound_tile); |
| 0 | 1136 |
} else if (_industry_sound_ctr == 160) {
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1137 |
_industry_sound_ctr = 0; |
| 541 | 1138 |
SndPlayTileFx(SND_36_CARTOON_CRASH, _industry_sound_tile); |
| 0 | 1139 |
} |
1140 |
} |
|
1141 |
||
| 2639 | 1142 |
if (_game_mode == GM_EDITOR) return; |
| 0 | 1143 |
|
|
830
8114845804c9
(svn r1301) -Codechange: _industries finally has FOR_ALL_INDUSTRIES too
truelight
parents:
817
diff
changeset
|
1144 |
FOR_ALL_INDUSTRIES(i) {
|
| 2639 | 1145 |
if (i->xy != 0) ProduceIndustryGoods(i); |
| 0 | 1146 |
} |
1147 |
} |
|
1148 |
||
1149 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1150 |
static bool CheckNewIndustry_NULL(TileIndex tile, int type) |
| 0 | 1151 |
{
|
1152 |
return true; |
|
1153 |
} |
|
1154 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1155 |
static bool CheckNewIndustry_Forest(TileIndex tile, int type) |
| 0 | 1156 |
{
|
1157 |
if (_opt.landscape == LT_HILLY) {
|
|
|
1335
a635854c23b6
(svn r1839) Move GetTileSlope() and GetTileZ() into tile.[ch] and use more explicit types as parameters
tron
parents:
1320
diff
changeset
|
1158 |
if (GetTileZ(tile) < _opt.snow_line + 16U) {
|
| 0 | 1159 |
_error_message = STR_4831_FOREST_CAN_ONLY_BE_PLANTED; |
1160 |
return false; |
|
1161 |
} |
|
1162 |
} |
|
1163 |
return true; |
|
1164 |
} |
|
1165 |
||
|
7
f2e623faa778
(svn r8) Fix: Automatic oil refinery generation in editor
dominik
parents:
0
diff
changeset
|
1166 |
extern bool _ignore_restrictions; |
|
f2e623faa778
(svn r8) Fix: Automatic oil refinery generation in editor
dominik
parents:
0
diff
changeset
|
1167 |
|
|
1586
d2d8ceccd935
(svn r2090) CheckNewIndustry_Oilwell() -> CheckNewIndustry_Oil() since it was concerning oil rigs and oil rafineries, but specifically NOT oil wells. ;-) Documented that.
pasky
parents:
1373
diff
changeset
|
1168 |
/* Oil Rig and Oil Refinery */ |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1169 |
static bool CheckNewIndustry_Oil(TileIndex tile, int type) |
| 0 | 1170 |
{
|
| 2639 | 1171 |
if (_game_mode == GM_EDITOR && _ignore_restrictions) return true; |
1172 |
if (_game_mode == GM_EDITOR && type != IT_OIL_RIG) return true; |
|
|
2868
abf76c8376cf
(svn r3416) - Fix: Disallow building an oil rig above sea level.
peter1138
parents:
2817
diff
changeset
|
1173 |
if ((type != IT_OIL_RIG || TileHeight(tile) == 0) && |
|
abf76c8376cf
(svn r3416) - Fix: Disallow building an oil rig above sea level.
peter1138
parents:
2817
diff
changeset
|
1174 |
DistanceFromEdge(TILE_ADDXY(tile, 1, 1)) < 16) return true; |
| 0 | 1175 |
|
1176 |
_error_message = STR_483B_CAN_ONLY_BE_POSITIONED; |
|
1177 |
return false; |
|
1178 |
} |
|
1179 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1180 |
static bool CheckNewIndustry_Farm(TileIndex tile, int type) |
| 0 | 1181 |
{
|
1182 |
if (_opt.landscape == LT_HILLY) {
|
|
|
1335
a635854c23b6
(svn r1839) Move GetTileSlope() and GetTileZ() into tile.[ch] and use more explicit types as parameters
tron
parents:
1320
diff
changeset
|
1183 |
if (GetTileZ(tile) + 16 >= _opt.snow_line) {
|
| 0 | 1184 |
_error_message = STR_0239_SITE_UNSUITABLE; |
1185 |
return false; |
|
1186 |
} |
|
1187 |
} |
|
1188 |
return true; |
|
1189 |
} |
|
1190 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1191 |
static bool CheckNewIndustry_Plantation(TileIndex tile, int type) |
| 0 | 1192 |
{
|
1193 |
if (GetMapExtraBits(tile) == 1) {
|
|
1194 |
_error_message = STR_0239_SITE_UNSUITABLE; |
|
1195 |
return false; |
|
1196 |
} |
|
1197 |
||
1198 |
return true; |
|
1199 |
} |
|
1200 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1201 |
static bool CheckNewIndustry_Water(TileIndex tile, int type) |
| 0 | 1202 |
{
|
1203 |
if (GetMapExtraBits(tile) != 1) {
|
|
1204 |
_error_message = STR_0318_CAN_ONLY_BE_BUILT_IN_DESERT; |
|
1205 |
return false; |
|
1206 |
} |
|
1207 |
||
1208 |
return true; |
|
1209 |
} |
|
1210 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1211 |
static bool CheckNewIndustry_Lumbermill(TileIndex tile, int type) |
| 0 | 1212 |
{
|
1213 |
if (GetMapExtraBits(tile) != 2) {
|
|
1214 |
_error_message = STR_0317_CAN_ONLY_BE_BUILT_IN_RAINFOREST; |
|
1215 |
return false; |
|
1216 |
} |
|
1217 |
return true; |
|
1218 |
} |
|
1219 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1220 |
static bool CheckNewIndustry_BubbleGen(TileIndex tile, int type) |
| 0 | 1221 |
{
|
| 2549 | 1222 |
return GetTileZ(tile) <= 32; |
| 0 | 1223 |
} |
1224 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1225 |
typedef bool CheckNewIndustryProc(TileIndex tile, int type); |
| 0 | 1226 |
static CheckNewIndustryProc * const _check_new_industry_procs[] = {
|
1227 |
CheckNewIndustry_NULL, |
|
1228 |
CheckNewIndustry_Forest, |
|
|
1586
d2d8ceccd935
(svn r2090) CheckNewIndustry_Oilwell() -> CheckNewIndustry_Oil() since it was concerning oil rigs and oil rafineries, but specifically NOT oil wells. ;-) Documented that.
pasky
parents:
1373
diff
changeset
|
1229 |
CheckNewIndustry_Oil, |
| 0 | 1230 |
CheckNewIndustry_Farm, |
1231 |
CheckNewIndustry_Plantation, |
|
1232 |
CheckNewIndustry_Water, |
|
1233 |
CheckNewIndustry_Lumbermill, |
|
1234 |
CheckNewIndustry_BubbleGen, |
|
1235 |
}; |
|
1236 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1237 |
static bool CheckSuitableIndustryPos(TileIndex tile) |
| 0 | 1238 |
{
|
|
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
|
1239 |
uint 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
|
1240 |
uint y = TileY(tile); |
| 0 | 1241 |
|
| 2639 | 1242 |
if (x < 2 || y < 2 || x > MapMaxX() - 3 || y > MapMaxY() - 3) {
|
| 0 | 1243 |
_error_message = STR_0239_SITE_UNSUITABLE; |
1244 |
return false; |
|
1245 |
} |
|
1246 |
||
1247 |
return true; |
|
1248 |
} |
|
1249 |
||
| 2630 | 1250 |
static const Town* CheckMultipleIndustryInTown(TileIndex tile, int type) |
| 0 | 1251 |
{
|
| 2630 | 1252 |
const Town* t; |
1253 |
const Industry* i; |
|
| 0 | 1254 |
|
1255 |
t = ClosestTownFromTile(tile, (uint)-1); |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1256 |
|
| 2639 | 1257 |
if (_patches.multiple_industry_per_town) return t; |
| 0 | 1258 |
|
|
830
8114845804c9
(svn r1301) -Codechange: _industries finally has FOR_ALL_INDUSTRIES too
truelight
parents:
817
diff
changeset
|
1259 |
FOR_ALL_INDUSTRIES(i) {
|
| 0 | 1260 |
if (i->xy != 0 && |
1261 |
i->type == (byte)type && |
|
1262 |
i->town == t) {
|
|
1263 |
_error_message = STR_0287_ONLY_ONE_ALLOWED_PER_TOWN; |
|
1264 |
return NULL; |
|
1265 |
} |
|
1266 |
} |
|
1267 |
||
1268 |
return t; |
|
1269 |
} |
|
1270 |
||
1271 |
static const byte _industry_map5_bits[] = {
|
|
1272 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1273 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1274 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1275 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1276 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1277 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1278 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1279 |
16, 16, 4, 2, 16, 16, 16, 16, |
|
1280 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1281 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1282 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1283 |
16, 4, 2, 16, 16, 16, 16, 16, |
|
1284 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1285 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1286 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1287 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1288 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1289 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1290 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1291 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1292 |
16, 16, 16, 16, 16, 16, 16, 16, |
|
1293 |
16, 16, 16, 16, 16, 16, 16, |
|
1294 |
}; |
|
1295 |
||
| 2630 | 1296 |
static bool CheckIfIndustryTilesAreFree(TileIndex tile, const IndustryTileTable* it, int type, const Town* t) |
| 0 | 1297 |
{
|
1298 |
TileInfo ti; |
|
1299 |
||
1300 |
_error_message = STR_0239_SITE_UNSUITABLE; |
|
1301 |
||
1302 |
do {
|
|
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1303 |
TileIndex cur_tile = tile + ToTileIndexDiff(it->ti); |
|
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1304 |
|
| 0 | 1305 |
if (!IsValidTile(cur_tile)) {
|
| 2639 | 1306 |
if (it->map5 == 0xff) continue; |
| 0 | 1307 |
return false; |
1308 |
} |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1309 |
|
| 0 | 1310 |
FindLandscapeHeightByTile(&ti, cur_tile); |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1311 |
|
| 0 | 1312 |
if (it->map5 == 0xFF) {
|
| 2639 | 1313 |
if (ti.type != MP_WATER || ti.tileh != 0) return false; |
| 0 | 1314 |
} else {
|
| 2639 | 1315 |
if (!EnsureNoVehicle(cur_tile)) return false; |
| 0 | 1316 |
|
1317 |
if (type == IT_OIL_RIG) {
|
|
| 2639 | 1318 |
if (ti.type != MP_WATER || ti.map5 != 0) return false; |
| 0 | 1319 |
} else {
|
| 2639 | 1320 |
if (ti.type == MP_WATER && ti.map5 == 0) return false; |
|
2085
ae9e92ffe168
(svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep
celestar
parents:
2072
diff
changeset
|
1321 |
if (IsSteepTileh(ti.tileh)) |
| 0 | 1322 |
return false; |
1323 |
||
1324 |
if (ti.tileh != 0) {
|
|
1325 |
int t; |
|
1326 |
byte bits = _industry_map5_bits[it->map5]; |
|
1327 |
||
| 2639 | 1328 |
if (bits & 0x10) return false; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1329 |
|
| 0 | 1330 |
t = ~ti.tileh; |
1331 |
||
| 2639 | 1332 |
if (bits & 1 && (t & (1 + 8))) return false; |
1333 |
if (bits & 2 && (t & (4 + 8))) return false; |
|
1334 |
if (bits & 4 && (t & (1 + 2))) return false; |
|
1335 |
if (bits & 8 && (t & (2 + 4))) return false; |
|
| 0 | 1336 |
} |
1337 |
||
1338 |
if (type == IT_BANK) {
|
|
1339 |
if (ti.type != MP_HOUSE || t->population < 1200) {
|
|
1340 |
_error_message = STR_029D_CAN_ONLY_BE_BUILT_IN_TOWNS; |
|
1341 |
return false; |
|
1342 |
} |
|
1343 |
} else if (type == IT_BANK_2) {
|
|
1344 |
if (ti.type != MP_HOUSE) {
|
|
1345 |
_error_message = STR_030D_CAN_ONLY_BE_BUILT_IN_TOWNS; |
|
1346 |
return false; |
|
1347 |
} |
|
1348 |
} else if (type == IT_TOY_SHOP) {
|
|
| 2639 | 1349 |
if (DistanceMax(t->xy, cur_tile) > 9) return false; |
| 0 | 1350 |
if (ti.type != MP_HOUSE) goto do_clear; |
1351 |
} else if (type == IT_WATER_TOWER) {
|
|
1352 |
if (ti.type != MP_HOUSE) {
|
|
1353 |
_error_message = STR_0316_CAN_ONLY_BE_BUILT_IN_TOWNS; |
|
1354 |
return false; |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1355 |
} |
| 0 | 1356 |
} else {
|
1357 |
do_clear: |
|
|
2737
f16e0a808897
(svn r3282) - Codechange: Replace tests against CMD_ERROR with CmdFailed()
peter1138
parents:
2663
diff
changeset
|
1358 |
if (CmdFailed(DoCommandByTile(cur_tile, 0, 0, DC_AUTO, CMD_LANDSCAPE_CLEAR))) |
| 0 | 1359 |
return false; |
1360 |
} |
|
1361 |
} |
|
1362 |
} |
|
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1363 |
} while ((++it)->ti.x != -0x80); |
| 0 | 1364 |
|
1365 |
return true; |
|
1366 |
} |
|
1367 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1368 |
static bool CheckIfTooCloseToIndustry(TileIndex tile, int type) |
| 0 | 1369 |
{
|
| 2639 | 1370 |
const IndustrySpec* spec = &_industry_spec[type]; |
|
2548
97ada3bd2702
(svn r3077) static, const, bracing, indentation, 0 -> '\0'/NULL, typos in comments, excess empty lines, minor other changes
tron
parents:
2537
diff
changeset
|
1371 |
const Industry* i; |
| 0 | 1372 |
|
1373 |
// accepting industries won't be close, not even with patch |
|
|
2469
1bfbb0dc0b75
(svn r2995) Replace 0xFF/0xFFFF with CT_INVALID/OWNER_SPECTATOR/INVALID_STATION where appropriate
tron
parents:
2436
diff
changeset
|
1374 |
if (_patches.same_industry_close && spec->accepts_cargo[0] == CT_INVALID) |
| 0 | 1375 |
return true; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1376 |
|
|
830
8114845804c9
(svn r1301) -Codechange: _industries finally has FOR_ALL_INDUSTRIES too
truelight
parents:
817
diff
changeset
|
1377 |
FOR_ALL_INDUSTRIES(i) {
|
| 0 | 1378 |
// check if an industry that accepts the same goods is nearby |
1379 |
if (i->xy != 0 && |
|
| 2639 | 1380 |
DistanceMax(tile, i->xy) <= 14 && |
|
2469
1bfbb0dc0b75
(svn r2995) Replace 0xFF/0xFFFF with CT_INVALID/OWNER_SPECTATOR/INVALID_STATION where appropriate
tron
parents:
2436
diff
changeset
|
1381 |
spec->accepts_cargo[0] != CT_INVALID && |
| 2639 | 1382 |
spec->accepts_cargo[0] == i->accepts_cargo[0] && ( |
1383 |
_game_mode != GM_EDITOR || |
|
1384 |
!_patches.same_industry_close || |
|
1385 |
!_patches.multiple_industry_per_town |
|
1386 |
)) {
|
|
1387 |
_error_message = STR_INDUSTRY_TOO_CLOSE; |
|
1388 |
return false; |
|
1389 |
} |
|
| 0 | 1390 |
|
1391 |
// check "not close to" field. |
|
1392 |
if (i->xy != 0 && |
|
1393 |
(i->type == spec->a || i->type == spec->b || i->type == spec->c) && |
|
|
1245
768d9bc95aaa
(svn r1749) Move the functions which calculate distances to map.[ch] and give the more meaningful names
tron
parents:
1214
diff
changeset
|
1394 |
DistanceMax(tile, i->xy) <= 14) {
|
| 0 | 1395 |
_error_message = STR_INDUSTRY_TOO_CLOSE; |
1396 |
return false; |
|
1397 |
} |
|
1398 |
} |
|
1399 |
return true; |
|
1400 |
} |
|
1401 |
||
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1059
diff
changeset
|
1402 |
static Industry *AllocateIndustry(void) |
| 0 | 1403 |
{
|
1404 |
Industry *i; |
|
1405 |
||
|
830
8114845804c9
(svn r1301) -Codechange: _industries finally has FOR_ALL_INDUSTRIES too
truelight
parents:
817
diff
changeset
|
1406 |
FOR_ALL_INDUSTRIES(i) {
|
| 0 | 1407 |
if (i->xy == 0) {
|
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1408 |
uint index = i->index; |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1409 |
|
| 2639 | 1410 |
if (i->index > _total_industries) _total_industries = i->index; |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
1411 |
|
| 2639 | 1412 |
memset(i, 0, sizeof(*i)); |
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1413 |
i->index = index; |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1414 |
|
| 0 | 1415 |
return i; |
1416 |
} |
|
1417 |
} |
|
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1418 |
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1419 |
/* Check if we can add a block to the pool */ |
| 2549 | 1420 |
return AddBlockToPool(&_industry_pool) ? AllocateIndustry() : NULL; |
| 0 | 1421 |
} |
1422 |
||
| 2630 | 1423 |
static void DoCreateNewIndustry(Industry* i, TileIndex tile, int type, const IndustryTileTable* it, const Town* t, byte owner) |
| 0 | 1424 |
{
|
1425 |
const IndustrySpec *spec; |
|
1426 |
uint32 r; |
|
1427 |
int j; |
|
1428 |
||
1429 |
i->xy = tile; |
|
1430 |
i->width = i->height = 0; |
|
1431 |
i->type = type; |
|
1432 |
||
1433 |
spec = &_industry_spec[type]; |
|
1434 |
||
1435 |
i->produced_cargo[0] = spec->produced_cargo[0]; |
|
1436 |
i->produced_cargo[1] = spec->produced_cargo[1]; |
|
1437 |
i->accepts_cargo[0] = spec->accepts_cargo[0]; |
|
1438 |
i->accepts_cargo[1] = spec->accepts_cargo[1]; |
|
1439 |
i->accepts_cargo[2] = spec->accepts_cargo[2]; |
|
1440 |
i->production_rate[0] = spec->production_rate[0]; |
|
1441 |
i->production_rate[1] = spec->production_rate[1]; |
|
1442 |
||
1443 |
if (_patches.smooth_economy) {
|
|
1444 |
i->production_rate[0] = min((RandomRange(256) + 128) * i->production_rate[0] >> 8 , 255); |
|
1445 |
i->production_rate[1] = min((RandomRange(256) + 128) * i->production_rate[1] >> 8 , 255); |
|
1446 |
} |
|
1447 |
||
1448 |
i->town = t; |
|
1449 |
i->owner = owner; |
|
1450 |
||
|
2484
8e0c88a833fb
(svn r3010) Get rid of quite some dubious casts, either by using GB(), proper types or just removing them
tron
parents:
2469
diff
changeset
|
1451 |
r = Random(); |
|
2492
3f32f9f9fd78
(svn r3018) -Fix: Fixed industry colour issue introduced in r3010.
peter1138
parents:
2484
diff
changeset
|
1452 |
i->color_map = GB(r, 8, 4); |
|
3f32f9f9fd78
(svn r3018) -Fix: Fixed industry colour issue introduced in r3010.
peter1138
parents:
2484
diff
changeset
|
1453 |
i->counter = GB(r, 0, 12); |
| 0 | 1454 |
i->cargo_waiting[0] = 0; |
1455 |
i->cargo_waiting[1] = 0; |
|
1456 |
i->last_mo_production[0] = 0; |
|
1457 |
i->last_mo_production[1] = 0; |
|
1458 |
i->last_mo_transported[0] = 0; |
|
1459 |
i->last_mo_transported[1] = 0; |
|
1460 |
i->pct_transported[0] = 0; |
|
1461 |
i->pct_transported[1] = 0; |
|
1462 |
i->total_transported[0] = 0; |
|
1463 |
i->total_transported[1] = 0; |
|
1464 |
i->was_cargo_delivered = false; |
|
1465 |
i->last_prod_year = _cur_year; |
|
1466 |
i->total_production[0] = i->production_rate[0] * 8; |
|
1467 |
i->total_production[1] = i->production_rate[1] * 8; |
|
1468 |
||
| 2639 | 1469 |
if (!_generating_world) i->total_production[0] = i->total_production[1] = 0; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1470 |
|
| 0 | 1471 |
i->prod_level = 0x10; |
1472 |
||
1473 |
do {
|
|
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1474 |
TileIndex cur_tile = tile + ToTileIndexDiff(it->ti); |
| 0 | 1475 |
|
1476 |
if (it->map5 != 0xFF) {
|
|
1477 |
byte size; |
|
1478 |
||
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1479 |
size = it->ti.x; |
| 0 | 1480 |
if (size > i->width) i->width = size; |
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1481 |
size = it->ti.y; |
| 0 | 1482 |
if (size > i->height)i->height = size; |
1483 |
||
1484 |
DoCommandByTile(cur_tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); |
|
1485 |
||
|
1059
c28c6be74291
(svn r1560) Introduce SetTileType() and SetTileHeight()
tron
parents:
1048
diff
changeset
|
1486 |
SetTileType(cur_tile, MP_INDUSTRY); |
|
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:
1981
diff
changeset
|
1487 |
_m[cur_tile].m5 = it->map5; |
|
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:
1981
diff
changeset
|
1488 |
_m[cur_tile].m2 = i->index; |
|
2360
09e42e4ee139
(svn r2886) Rename the "owner" attribute to "m1", because when it stores an owner it is accessed by [GS]etOwner anyway and when it doesn't store an owner, but arbitrary data, accessing a field called "owner" is confusing.
tron
parents:
2260
diff
changeset
|
1489 |
_m[cur_tile].m1 = _generating_world ? 0x1E : 0; /* maturity */ |
| 0 | 1490 |
} |
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
889
diff
changeset
|
1491 |
} while ((++it)->ti.x != -0x80); |
| 0 | 1492 |
|
1493 |
i->width++; |
|
1494 |
i->height++; |
|
1495 |
||
1496 |
if (i->type == IT_FARM || i->type == IT_FARM_2) {
|
|
| 1981 | 1497 |
tile = i->xy + TileDiffXY(i->width / 2, i->height / 2); |
| 2639 | 1498 |
for (j = 0; j != 50; j++) {
|
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
1499 |
int x = Random() % 31 - 16; |
|
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
1500 |
int y = Random() % 31 - 16; |
| 2639 | 1501 |
TileIndex new_tile = TileAddWrap(tile, x, y); |
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1502 |
|
| 2639 | 1503 |
if (new_tile != INVALID_TILE) PlantFarmField(new_tile); |
|
131
16e59d059384
(svn r132) -Fix: [1014278] TileAddWrap() gave wrong results. Fixed now.
truelight
parents:
110
diff
changeset
|
1504 |
} |
| 0 | 1505 |
} |
1506 |
_industry_sort_dirty = true; |
|
1507 |
InvalidateWindow(WC_INDUSTRY_DIRECTORY, 0); |
|
1508 |
} |
|
1509 |
||
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1510 |
/** Build/Fund an industry |
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1511 |
* @param x,y coordinates where industry is built |
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1512 |
* @param p1 industry type @see build_industry.h and @see industry.h |
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1513 |
* @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:
1603
diff
changeset
|
1514 |
*/ |
| 0 | 1515 |
int32 CmdBuildIndustry(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
1516 |
{
|
|
| 2630 | 1517 |
const Town* t; |
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1518 |
Industry *i; |
|
1980
9ea0c89fbb58
(svn r2486) Turn TILE_FROM_XY into an inline function and rename it to TileVirtXY
tron
parents:
1977
diff
changeset
|
1519 |
TileIndex tile = TileVirtXY(x, y); |
| 0 | 1520 |
int num; |
1521 |
const IndustryTileTable * const *itt; |
|
1522 |
const IndustryTileTable *it; |
|
1523 |
const IndustrySpec *spec; |
|
1524 |
||
1525 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
1526 |
||
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1527 |
if (!CheckSuitableIndustryPos(tile)) return CMD_ERROR; |
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1528 |
|
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1529 |
/* Check if the to-be built/founded industry is available for this climate. |
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1530 |
* Unfortunately we have no easy way of checking, except for looping the table */ |
| 2639 | 1531 |
{
|
1532 |
const byte* i; |
|
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1533 |
bool found = false; |
| 2639 | 1534 |
|
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1535 |
for (i = &_build_industry_types[_opt_ptr->landscape][0]; i != endof(_build_industry_types[_opt_ptr->landscape]); i++) {
|
| 2639 | 1536 |
if (*i == p1) {
|
1537 |
found = true; |
|
1538 |
break; |
|
1539 |
} |
|
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1540 |
} |
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1541 |
if (!found) return CMD_ERROR; |
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1542 |
} |
| 0 | 1543 |
|
1544 |
spec = &_industry_spec[p1]; |
|
|
2638
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1545 |
/* If the patch for raw-material industries is not on, you cannot build raw-material industries. |
|
1800
39966454c434
(svn r2304) - Fix (regression): excuse the Lumber mill from the list of raw-industries build-restriction, as it can be built always, patch-setting, or no patch-setting.
Darkvater
parents:
1786
diff
changeset
|
1546 |
* Raw material industries are industries that do not accept cargo (at least for now) |
|
2638
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1547 |
* Exclude the lumber mill (only "raw" industry that can be built) */ |
|
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1548 |
if (!_patches.build_rawmaterial_ind && |
|
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1549 |
spec->accepts_cargo[0] == CT_INVALID && |
|
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1550 |
spec->accepts_cargo[1] == CT_INVALID && |
|
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1551 |
spec->accepts_cargo[2] == CT_INVALID && |
|
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1552 |
p1 != IT_LUMBER_MILL) {
|
|
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1553 |
return CMD_ERROR; |
|
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1554 |
} |
| 0 | 1555 |
|
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1556 |
if (!_check_new_industry_procs[spec->check_proc](tile, p1)) return CMD_ERROR; |
| 0 | 1557 |
|
| 2639 | 1558 |
t = CheckMultipleIndustryInTown(tile, p1); |
1559 |
if (t == NULL) return CMD_ERROR; |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1560 |
|
| 0 | 1561 |
num = spec->num_table; |
1562 |
itt = spec->table; |
|
1563 |
||
1564 |
do {
|
|
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1565 |
if (--num < 0) return_cmd_error(STR_0239_SITE_UNSUITABLE); |
|
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1566 |
} while (!CheckIfIndustryTilesAreFree(tile, it = itt[num], p1, t)); |
| 0 | 1567 |
|
1568 |
||
|
1786
a54634efeb98
(svn r2290) - CodeChange: protect the next batch of commands. This brings us to a total of 61, which is 53% :)
Darkvater
parents:
1603
diff
changeset
|
1569 |
if (!CheckIfTooCloseToIndustry(tile, p1)) return CMD_ERROR; |
| 0 | 1570 |
|
| 2639 | 1571 |
i = AllocateIndustry(); |
1572 |
if (i == NULL) return CMD_ERROR; |
|
| 0 | 1573 |
|
| 2639 | 1574 |
if (flags & DC_EXEC) DoCreateNewIndustry(i, tile, p1, it, t, OWNER_NONE); |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1575 |
|
| 0 | 1576 |
return (_price.build_industry >> 5) * _industry_type_costs[p1]; |
1577 |
} |
|
1578 |
||
1579 |
||
|
1977
4392ae3d8e31
(svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile"
tron
parents:
1891
diff
changeset
|
1580 |
Industry *CreateNewIndustry(TileIndex tile, int type) |
| 0 | 1581 |
{
|
| 2630 | 1582 |
const Town* t; |
| 0 | 1583 |
const IndustryTileTable *it; |
1584 |
Industry *i; |
|
1585 |
||
1586 |
const IndustrySpec *spec; |
|
1587 |
||
| 2639 | 1588 |
if (!CheckSuitableIndustryPos(tile)) return NULL; |
| 0 | 1589 |
|
1590 |
spec = &_industry_spec[type]; |
|
1591 |
||
| 2639 | 1592 |
if (!_check_new_industry_procs[spec->check_proc](tile, type)) return NULL; |
| 0 | 1593 |
|
| 2639 | 1594 |
t = CheckMultipleIndustryInTown(tile, type); |
1595 |
if (t == NULL) return NULL; |
|
| 0 | 1596 |
|
1597 |
/* pick a random layout */ |
|
| 2639 | 1598 |
it = spec->table[RandomRange(spec->num_table)]; |
| 0 | 1599 |
|
| 2639 | 1600 |
if (!CheckIfIndustryTilesAreFree(tile, it, type, t)) return NULL; |
1601 |
if (!CheckIfTooCloseToIndustry(tile, type)) return NULL; |
|
| 0 | 1602 |
|
| 2639 | 1603 |
i = AllocateIndustry(); |
1604 |
if (i == NULL) return NULL; |
|
| 0 | 1605 |
|
|
2638
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1606 |
DoCreateNewIndustry(i, tile, type, it, t, OWNER_NONE); |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1607 |
|
| 0 | 1608 |
return i; |
1609 |
} |
|
1610 |
||
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
61
diff
changeset
|
1611 |
static const byte _numof_industry_table[4][12] = {
|
|
61
cd2827156f2a
(svn r62) - Added "None" as option for number of industries in difficulty settings
orudge
parents:
43
diff
changeset
|
1612 |
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
|
| 0 | 1613 |
{0, 1, 1, 1, 2, 2, 3, 3, 4, 4, 5},
|
1614 |
{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10},
|
|
1615 |
{0, 2, 3, 4, 6, 7, 8, 9, 10, 10, 10},
|
|
1616 |
}; |
|
1617 |
||
1618 |
static void PlaceInitialIndustry(byte type, int amount) |
|
1619 |
{
|
|
|
2072
c7961c4a74ac
(svn r2582) Fix: Prevent generating unrealistically many Oil refineries on large maps. They are always placed next to the borderline, so the perimeter is used instead of area to scale the number of those industries.
ludde
parents:
2070
diff
changeset
|
1620 |
int num = _numof_industry_table[_opt.diff.number_industries][amount]; |
|
c7961c4a74ac
(svn r2582) Fix: Prevent generating unrealistically many Oil refineries on large maps. They are always placed next to the borderline, so the perimeter is used instead of area to scale the number of those industries.
ludde
parents:
2070
diff
changeset
|
1621 |
|
|
c7961c4a74ac
(svn r2582) Fix: Prevent generating unrealistically many Oil refineries on large maps. They are always placed next to the borderline, so the perimeter is used instead of area to scale the number of those industries.
ludde
parents:
2070
diff
changeset
|
1622 |
if (type == IT_OIL_REFINERY || type == IT_OIL_RIG) {
|
|
c7961c4a74ac
(svn r2582) Fix: Prevent generating unrealistically many Oil refineries on large maps. They are always placed next to the borderline, so the perimeter is used instead of area to scale the number of those industries.
ludde
parents:
2070
diff
changeset
|
1623 |
// These are always placed next to the coastline, so we scale by the perimeter instead. |
|
c7961c4a74ac
(svn r2582) Fix: Prevent generating unrealistically many Oil refineries on large maps. They are always placed next to the borderline, so the perimeter is used instead of area to scale the number of those industries.
ludde
parents:
2070
diff
changeset
|
1624 |
num = ScaleByMapSize1D(num); |
|
c7961c4a74ac
(svn r2582) Fix: Prevent generating unrealistically many Oil refineries on large maps. They are always placed next to the borderline, so the perimeter is used instead of area to scale the number of those industries.
ludde
parents:
2070
diff
changeset
|
1625 |
} else {
|
|
c7961c4a74ac
(svn r2582) Fix: Prevent generating unrealistically many Oil refineries on large maps. They are always placed next to the borderline, so the perimeter is used instead of area to scale the number of those industries.
ludde
parents:
2070
diff
changeset
|
1626 |
num = ScaleByMapSize(num); |
|
c7961c4a74ac
(svn r2582) Fix: Prevent generating unrealistically many Oil refineries on large maps. They are always placed next to the borderline, so the perimeter is used instead of area to scale the number of those industries.
ludde
parents:
2070
diff
changeset
|
1627 |
} |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
61
diff
changeset
|
1628 |
|
| 2639 | 1629 |
if (_opt.diff.number_industries != 0) {
|
|
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
|
1630 |
PlayerID old_player = _current_player; |
|
266
d704fabab036
(svn r272) -Fix: industries are once again generated on a new map
darkvater
parents:
201
diff
changeset
|
1631 |
_current_player = OWNER_NONE; |
|
61
cd2827156f2a
(svn r62) - Added "None" as option for number of industries in difficulty settings
orudge
parents:
43
diff
changeset
|
1632 |
assert(num > 0); |
| 0 | 1633 |
|
1634 |
do {
|
|
| 2639 | 1635 |
uint i; |
1636 |
||
1637 |
for (i = 0; i < 2000; i++) {
|
|
1638 |
if (CreateNewIndustry(RandomTile(), type) != NULL) break; |
|
1639 |
} |
|
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
61
diff
changeset
|
1640 |
} while (--num); |
|
266
d704fabab036
(svn r272) -Fix: industries are once again generated on a new map
darkvater
parents:
201
diff
changeset
|
1641 |
|
| 267 | 1642 |
_current_player = old_player; |
|
61
cd2827156f2a
(svn r62) - Added "None" as option for number of industries in difficulty settings
orudge
parents:
43
diff
changeset
|
1643 |
} |
| 0 | 1644 |
} |
1645 |
||
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1059
diff
changeset
|
1646 |
void GenerateIndustries(void) |
| 0 | 1647 |
{
|
1648 |
const byte *b; |
|
1649 |
||
1650 |
b = _industry_create_table[_opt.landscape]; |
|
1651 |
do {
|
|
1652 |
PlaceInitialIndustry(b[1], b[0]); |
|
1653 |
} while ( (b+=2)[0] != 0); |
|
1654 |
} |
|
1655 |
||
1656 |
static void ExtChangeIndustryProduction(Industry *i) |
|
1657 |
{
|
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1658 |
bool closeit = true; |
| 0 | 1659 |
int j; |
1660 |
||
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1661 |
switch (_industry_close_mode[i->type]) {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1662 |
case INDUSTRY_NOT_CLOSABLE: |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1663 |
return; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1664 |
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1665 |
case INDUSTRY_CLOSABLE: |
|
1603
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1666 |
if ((byte)(_cur_year - i->last_prod_year) < 5 || !CHANCE16(1, 180)) |
| 0 | 1667 |
closeit = false; |
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1668 |
break; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1669 |
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1670 |
default: /* INDUSTRY_PRODUCTION */ |
|
2638
0c9b00251fce
(svn r3180) Replace some magic numbers by symbolic names
tron
parents:
2637
diff
changeset
|
1671 |
for (j = 0; j < 2 && i->produced_cargo[j] != CT_INVALID; j++){
|
|
1603
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1672 |
uint32 r = Random(); |
|
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1673 |
int old, new, percent; |
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1674 |
int mag; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1675 |
|
|
1603
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1676 |
new = old = i->production_rate[j]; |
|
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1677 |
if (CHANCE16I(20, 1024, r)) |
|
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1678 |
new -= ((RandomRange(50) + 10) * old) >> 8; |
|
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1679 |
if (CHANCE16I(20 + (i->pct_transported[j] * 20 >> 8), 1024, r >> 16)) |
|
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1680 |
new += ((RandomRange(50) + 10) * old) >> 8; |
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1681 |
|
|
1603
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1682 |
new = clamp(new, 0, 255); |
|
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1683 |
if (new == old) {
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1684 |
closeit = false; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1685 |
continue; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1686 |
} |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1687 |
|
|
1603
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1688 |
percent = new * 100 / old - 100; |
|
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1689 |
i->production_rate[j] = new; |
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1690 |
|
|
1603
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1691 |
if (new >= _industry_spec[i->type].production_rate[j] / 4) |
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1692 |
closeit = false; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1693 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1694 |
mag = abs(percent); |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1695 |
if (mag >= 10) {
|
|
2070
26c657906f25
(svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents:
2061
diff
changeset
|
1696 |
SetDParam(2, mag); |
|
1603
e67485272abc
(svn r2107) - Codechange: Cleanup (well, mostly tidyup) ExtChangeIndustryProduction(). These randoms are strange.
pasky
parents:
1586
diff
changeset
|
1697 |
SetDParam(0, _cargoc.names_s[i->produced_cargo[j]]); |
|
2070
26c657906f25
(svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents:
2061
diff
changeset
|
1698 |
SetDParam(1, i->index); |
| 2639 | 1699 |
AddNewsItem( |
1700 |
percent >= 0 ? STR_INDUSTRY_PROD_GOUP : STR_INDUSTRY_PROD_GODOWN, |
|
1701 |
NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_TILE, NT_ECONOMY, 0), |
|
1702 |
i->xy + TileDiffXY(1, 1), 0 |
|
1703 |
); |
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1704 |
} |
| 0 | 1705 |
} |
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1706 |
break; |
| 0 | 1707 |
} |
1708 |
||
1709 |
if (closeit) {
|
|
1710 |
i->prod_level = 0; |
|
|
2070
26c657906f25
(svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents:
2061
diff
changeset
|
1711 |
SetDParam(0, i->index); |
| 2639 | 1712 |
AddNewsItem( |
1713 |
_industry_close_strings[i->type], |
|
1714 |
NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_TILE, NT_ECONOMY, 0), |
|
1715 |
i->xy + TileDiffXY(1, 1), 0 |
|
1716 |
); |
|
| 0 | 1717 |
} |
1718 |
} |
|
1719 |
||
1720 |
||
1721 |
static void UpdateIndustryStatistics(Industry *i) |
|
1722 |
{
|
|
1723 |
byte pct; |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1724 |
|
|
2469
1bfbb0dc0b75
(svn r2995) Replace 0xFF/0xFFFF with CT_INVALID/OWNER_SPECTATOR/INVALID_STATION where appropriate
tron
parents:
2436
diff
changeset
|
1725 |
if (i->produced_cargo[0] != CT_INVALID) {
|
| 0 | 1726 |
pct = 0; |
1727 |
if (i->last_mo_production[0] != 0) {
|
|
1728 |
i->last_prod_year = _cur_year; |
|
1729 |
pct = min(i->last_mo_transported[0] * 256 / i->last_mo_production[0],255); |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1730 |
} |
| 0 | 1731 |
i->pct_transported[0] = pct; |
1732 |
||
1733 |
i->total_production[0] = i->last_mo_production[0]; |
|
1734 |
i->last_mo_production[0] = 0; |
|
1735 |
||
1736 |
i->total_transported[0] = i->last_mo_transported[0]; |
|
1737 |
i->last_mo_transported[0] = 0; |
|
1738 |
} |
|
1739 |
||
|
2469
1bfbb0dc0b75
(svn r2995) Replace 0xFF/0xFFFF with CT_INVALID/OWNER_SPECTATOR/INVALID_STATION where appropriate
tron
parents:
2436
diff
changeset
|
1740 |
if (i->produced_cargo[1] != CT_INVALID) {
|
| 0 | 1741 |
pct = 0; |
1742 |
if (i->last_mo_production[1] != 0) {
|
|
1743 |
i->last_prod_year = _cur_year; |
|
1744 |
pct = min(i->last_mo_transported[1] * 256 / i->last_mo_production[1],255); |
|
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1745 |
} |
| 0 | 1746 |
i->pct_transported[1] = pct; |
1747 |
||
1748 |
i->total_production[1] = i->last_mo_production[1]; |
|
1749 |
i->last_mo_production[1] = 0; |
|
1750 |
||
1751 |
i->total_transported[1] = i->last_mo_transported[1]; |
|
1752 |
i->last_mo_transported[1] = 0; |
|
1753 |
} |
|
1754 |
||
1755 |
||
|
2469
1bfbb0dc0b75
(svn r2995) Replace 0xFF/0xFFFF with CT_INVALID/OWNER_SPECTATOR/INVALID_STATION where appropriate
tron
parents:
2436
diff
changeset
|
1756 |
if (i->produced_cargo[0] != CT_INVALID || i->produced_cargo[1] != CT_INVALID) |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
1757 |
InvalidateWindow(WC_INDUSTRY_VIEW, i->index); |
| 0 | 1758 |
|
| 2639 | 1759 |
if (i->prod_level == 0) {
|
| 0 | 1760 |
DeleteIndustry(i); |
| 2639 | 1761 |
} else if (_patches.smooth_economy) {
|
| 0 | 1762 |
ExtChangeIndustryProduction(i); |
| 2639 | 1763 |
} |
| 0 | 1764 |
} |
1765 |
||
1766 |
static const byte _new_industry_rand[4][32] = {
|
|
1767 |
{12,12,12,12,12,12,12, 0, 0, 6, 6, 9, 9, 3, 3, 3,18,18, 4, 4, 2, 2, 5, 5, 5, 5, 5, 5, 1, 1, 8, 8},
|
|
1768 |
{16,16,16, 0, 0, 0, 9, 9, 9, 9,13,13, 3, 3, 3, 3,15,15,15, 4, 4,11,11,11,11,11,14,14, 1, 1, 7, 7},
|
|
1769 |
{21,21,21,24,22,22,22,22,23,23,12,12,12, 4, 4,19,19,19,13,13,20,20,20,11,11,11,17,17,17,10,10,10},
|
|
1770 |
{30,30,30,36,36,31,31,31,27,27,27,28,28,28,26,26,26,34,34,34,35,35,35,29,29,29,32,32,32,33,33,33},
|
|
1771 |
}; |
|
1772 |
||
1773 |
static void MaybeNewIndustry(uint32 r) |
|
1774 |
{
|
|
1775 |
int type; |
|
1776 |
int j; |
|
1777 |
Industry *i; |
|
1778 |
||
|
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
|
1779 |
type = _new_industry_rand[_opt.landscape][GB(r, 16, 5)]; |
| 0 | 1780 |
|
| 2639 | 1781 |
if (type == IT_OIL_WELL && _date > 10958) return; |
1782 |
if (type == IT_OIL_RIG && _date < 14610) return; |
|
| 0 | 1783 |
|
1784 |
j = 2000; |
|
| 2639 | 1785 |
for (;;) {
|
|
2637
8807e6a63f89
(svn r3179) - RandomRange() and RandomTile() instead of home brewed versions
tron
parents:
2630
diff
changeset
|
1786 |
i = CreateNewIndustry(RandomTile(), type); |
| 2639 | 1787 |
if (i != NULL) break; |
1788 |
if (--j == 0) return; |
|
| 0 | 1789 |
} |
1790 |
||
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
1791 |
SetDParam(0, type + STR_4802_COAL_MINE); |
|
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
1792 |
SetDParam(1, i->town->index); |
|
2260
3e97367f7cbc
(svn r2780) Remove some more unused strings and make the use of a few strings more explicit
tron
parents:
2187
diff
changeset
|
1793 |
AddNewsItem( |
|
3e97367f7cbc
(svn r2780) Remove some more unused strings and make the use of a few strings more explicit
tron
parents:
2187
diff
changeset
|
1794 |
(type != IT_FOREST) ? |
|
3e97367f7cbc
(svn r2780) Remove some more unused strings and make the use of a few strings more explicit
tron
parents:
2187
diff
changeset
|
1795 |
STR_482D_NEW_UNDER_CONSTRUCTION : STR_482E_NEW_BEING_PLANTED_NEAR, |
|
3e97367f7cbc
(svn r2780) Remove some more unused strings and make the use of a few strings more explicit
tron
parents:
2187
diff
changeset
|
1796 |
NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_TILE, NT_ECONOMY,0), i->xy, 0 |
|
3e97367f7cbc
(svn r2780) Remove some more unused strings and make the use of a few strings more explicit
tron
parents:
2187
diff
changeset
|
1797 |
); |
| 0 | 1798 |
} |
1799 |
||
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1800 |
static void ChangeIndustryProduction(Industry *i) |
| 0 | 1801 |
{
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1802 |
bool only_decrease = false; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1803 |
StringID str = STR_NULL; |
| 0 | 1804 |
int type = i->type; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1805 |
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1806 |
switch (_industry_close_mode[type]) {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1807 |
case INDUSTRY_NOT_CLOSABLE: |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1808 |
return; |
| 0 | 1809 |
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1810 |
case INDUSTRY_PRODUCTION: |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1811 |
/* decrease or increase */ |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1812 |
if (type == IT_OIL_WELL && _opt.landscape == LT_NORMAL) |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1813 |
only_decrease = true; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1814 |
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1815 |
if (only_decrease || CHANCE16(1,3)) {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1816 |
/* If you transport > 60%, 66% chance we increase, else 33% chance we increase */ |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1817 |
if (!only_decrease && (i->pct_transported[0] > 153) != CHANCE16(1,3)) {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1818 |
/* Increase production */ |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1819 |
if (i->prod_level != 0x80) {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1820 |
byte b; |
|
201
c40d343115f8
(svn r202) -Codechange: I missed some files with trailing spaces.. this should be
truelight
parents:
159
diff
changeset
|
1821 |
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1822 |
i->prod_level <<= 1; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1823 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1824 |
b = i->production_rate[0] * 2; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1825 |
if (i->production_rate[0] >= 128) |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1826 |
b = 0xFF; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1827 |
i->production_rate[0] = b; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1828 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1829 |
b = i->production_rate[1] * 2; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1830 |
if (i->production_rate[1] >= 128) |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1831 |
b = 0xFF; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1832 |
i->production_rate[1] = b; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1833 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1834 |
str = _industry_prod_up_strings[type]; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1835 |
} |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1836 |
} else {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1837 |
/* Decrease production */ |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1838 |
if (i->prod_level == 4) {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1839 |
i->prod_level = 0; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1840 |
str = _industry_close_strings[type]; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1841 |
} else {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1842 |
i->prod_level >>= 1; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1843 |
i->production_rate[0] = (i->production_rate[0] + 1) >> 1; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1844 |
i->production_rate[1] = (i->production_rate[1] + 1) >> 1; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1845 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1846 |
str = _industry_prod_down_strings[type]; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1847 |
} |
| 0 | 1848 |
} |
1849 |
} |
|
|
1320
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1850 |
break; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1851 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1852 |
case INDUSTRY_CLOSABLE: |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1853 |
/* maybe close */ |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1854 |
if ( (byte)(_cur_year - i->last_prod_year) >= 5 && CHANCE16(1,2)) {
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1855 |
i->prod_level = 0; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1856 |
str = _industry_close_strings[type]; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1857 |
} |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1858 |
break; |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1859 |
} |
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1860 |
|
|
bf9623526d71
(svn r1824) -Codechange: made ChangeIndustryProduction a bit more readable
truelight
parents:
1287
diff
changeset
|
1861 |
if (str != STR_NULL) {
|
|
2070
26c657906f25
(svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents:
2061
diff
changeset
|
1862 |
SetDParam(0, i->index); |
| 1981 | 1863 |
AddNewsItem(str, NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_TILE, NT_ECONOMY, 0), i->xy + TileDiffXY(1, 1), 0); |
| 0 | 1864 |
} |
1865 |
} |
|
1866 |
||
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1059
diff
changeset
|
1867 |
void IndustryMonthlyLoop(void) |
| 0 | 1868 |
{
|
1869 |
Industry *i; |
|
|
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
|
1870 |
PlayerID old_player = _current_player; |
|
266
d704fabab036
(svn r272) -Fix: industries are once again generated on a new map
darkvater
parents:
201
diff
changeset
|
1871 |
_current_player = OWNER_NONE; |
| 0 | 1872 |
|
|
830
8114845804c9
(svn r1301) -Codechange: _industries finally has FOR_ALL_INDUSTRIES too
truelight
parents:
817
diff
changeset
|
1873 |
FOR_ALL_INDUSTRIES(i) {
|
| 2639 | 1874 |
if (i->xy != 0) UpdateIndustryStatistics(i); |
| 0 | 1875 |
} |
1876 |
||
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1877 |
/* 3% chance that we start a new industry */ |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1878 |
if (CHANCE16(3, 100)) {
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1879 |
MaybeNewIndustry(Random()); |
|
1269
80a25996584f
(svn r1773) -Fix: [ 1114950 ] Game crashed sometimes when there were no industries
truelight
parents:
1267
diff
changeset
|
1880 |
} else if (!_patches.smooth_economy && _total_industries > 0) {
|
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1881 |
i = GetIndustry(RandomRange(_total_industries)); |
| 2639 | 1882 |
if (i->xy != 0) ChangeIndustryProduction(i); |
| 0 | 1883 |
} |
|
266
d704fabab036
(svn r272) -Fix: industries are once again generated on a new map
darkvater
parents:
201
diff
changeset
|
1884 |
|
|
d704fabab036
(svn r272) -Fix: industries are once again generated on a new map
darkvater
parents:
201
diff
changeset
|
1885 |
_current_player = old_player; |
|
d704fabab036
(svn r272) -Fix: industries are once again generated on a new map
darkvater
parents:
201
diff
changeset
|
1886 |
|
| 0 | 1887 |
// production-change |
1888 |
_industry_sort_dirty = true; |
|
1889 |
InvalidateWindow(WC_INDUSTRY_DIRECTORY, 0); |
|
1890 |
} |
|
1891 |
||
1892 |
||
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1059
diff
changeset
|
1893 |
void InitializeIndustries(void) |
| 0 | 1894 |
{
|
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1895 |
CleanPool(&_industry_pool); |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1896 |
AddBlockToPool(&_industry_pool); |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
1897 |
|
| 0 | 1898 |
_total_industries = 0; |
1899 |
_industry_sort_dirty = true; |
|
1900 |
} |
|
1901 |
||
1902 |
const TileTypeProcs _tile_type_industry_procs = {
|
|
1903 |
DrawTile_Industry, /* draw_tile_proc */ |
|
1904 |
GetSlopeZ_Industry, /* get_slope_z_proc */ |
|
1905 |
ClearTile_Industry, /* clear_tile_proc */ |
|
1906 |
GetAcceptedCargo_Industry, /* get_accepted_cargo_proc */ |
|
1907 |
GetTileDesc_Industry, /* get_tile_desc_proc */ |
|
1908 |
GetTileTrackStatus_Industry,/* get_tile_track_status_proc */ |
|
1909 |
ClickTile_Industry, /* click_tile_proc */ |
|
1910 |
AnimateTile_Industry, /* animate_tile_proc */ |
|
1911 |
TileLoop_Industry, /* tile_loop_proc */ |
|
1912 |
ChangeTileOwner_Industry, /* change_tile_owner_proc */ |
|
1913 |
GetProducedCargo_Industry, /* get_produced_cargo_proc */ |
|
1914 |
NULL, /* vehicle_enter_tile_proc */ |
|
1915 |
NULL, /* vehicle_leave_tile_proc */ |
|
| 39 | 1916 |
GetSlopeTileh_Industry, /* get_slope_tileh_proc */ |
| 0 | 1917 |
}; |
1918 |
||
|
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:
1800
diff
changeset
|
1919 |
static const SaveLoad _industry_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
|
1920 |
SLE_CONDVAR(Industry, 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
|
1921 |
SLE_CONDVAR(Industry, xy, SLE_UINT32, 6, 255), |
| 0 | 1922 |
SLE_VAR(Industry,width, SLE_UINT8), |
1923 |
SLE_VAR(Industry,height, SLE_UINT8), |
|
1924 |
SLE_REF(Industry,town, REF_TOWN), |
|
1925 |
SLE_ARR(Industry,produced_cargo, SLE_UINT8, 2), |
|
1926 |
SLE_ARR(Industry,cargo_waiting, SLE_UINT16, 2), |
|
1927 |
SLE_ARR(Industry,production_rate, SLE_UINT8, 2), |
|
1928 |
SLE_ARR(Industry,accepts_cargo, SLE_UINT8, 3), |
|
1929 |
SLE_VAR(Industry,prod_level, SLE_UINT8), |
|
1930 |
SLE_ARR(Industry,last_mo_production,SLE_UINT16, 2), |
|
1931 |
SLE_ARR(Industry,last_mo_transported,SLE_UINT16, 2), |
|
1932 |
SLE_ARR(Industry,pct_transported,SLE_UINT8, 2), |
|
1933 |
SLE_ARR(Industry,total_production,SLE_UINT16, 2), |
|
1934 |
SLE_ARR(Industry,total_transported,SLE_UINT16, 2), |
|
1935 |
||
1936 |
SLE_VAR(Industry,counter, SLE_UINT16), |
|
1937 |
||
1938 |
SLE_VAR(Industry,type, SLE_UINT8), |
|
1939 |
SLE_VAR(Industry,owner, SLE_UINT8), |
|
1940 |
SLE_VAR(Industry,color_map, SLE_UINT8), |
|
1941 |
SLE_VAR(Industry,last_prod_year, SLE_UINT8), |
|
1942 |
SLE_VAR(Industry,was_cargo_delivered,SLE_UINT8), |
|
1943 |
||
1944 |
// reserve extra space in savegame here. (currently 32 bytes) |
|
1945 |
SLE_CONDARR(NullStruct,null,SLE_FILE_U64 | SLE_VAR_NULL, 4, 2, 255), |
|
1946 |
||
1947 |
SLE_END() |
|
1948 |
}; |
|
1949 |
||
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1059
diff
changeset
|
1950 |
static void Save_INDY(void) |
| 0 | 1951 |
{
|
1952 |
Industry *ind; |
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
1953 |
|
| 0 | 1954 |
// Write the vehicles |
|
830
8114845804c9
(svn r1301) -Codechange: _industries finally has FOR_ALL_INDUSTRIES too
truelight
parents:
817
diff
changeset
|
1955 |
FOR_ALL_INDUSTRIES(ind) {
|
| 0 | 1956 |
if (ind->xy != 0) {
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
1957 |
SlSetArrayIndex(ind->index); |
| 0 | 1958 |
SlObject(ind, _industry_desc); |
1959 |
} |
|
1960 |
} |
|
1961 |
} |
|
1962 |
||
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1059
diff
changeset
|
1963 |
static void Load_INDY(void) |
| 0 | 1964 |
{
|
1965 |
int index; |
|
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1966 |
|
| 0 | 1967 |
_total_industries = 0; |
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1968 |
|
| 0 | 1969 |
while ((index = SlIterateArray()) != -1) {
|
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1970 |
Industry *i; |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
1971 |
|
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1972 |
if (!AddBlockIfNeeded(&_industry_pool, index)) |
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1973 |
error("Industries: failed loading savegame: too many industries");
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1974 |
|
|
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1975 |
i = GetIndustry(index); |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
909
diff
changeset
|
1976 |
SlObject(i, _industry_desc); |
|
1267
cbd68e5e31ac
(svn r1771) -Add: Industries are now dynamic (up to 64k industries). Generating
truelight
parents:
1247
diff
changeset
|
1977 |
|
| 2639 | 1978 |
if (index > _total_industries) _total_industries = index; |
| 0 | 1979 |
} |
1980 |
} |
|
1981 |
||
1982 |
const ChunkHandler _industry_chunk_handlers[] = {
|
|
1983 |
{ 'INDY', Save_INDY, Load_INDY, CH_ARRAY | CH_LAST},
|
|
1984 |
}; |