author | truelight |
Sun, 12 Dec 2004 14:00:25 +0000 | |
changeset 599 | 80e49e323483 |
parent 555 | eec6c0294435 |
child 630 | fd3c36132342 |
permissions | -rw-r--r-- |
0 | 1 |
#include "stdafx.h" |
2 |
#include "ttd.h" |
|
507
8aa8100b0b22
(svn r815) Include strings.h only in the files which need it.
tron
parents:
499
diff
changeset
|
3 |
#include "table/strings.h" |
0 | 4 |
#include "news.h" |
5 |
#include "player.h" |
|
6 |
#include "station.h" |
|
7 |
#include "vehicle.h" |
|
8 |
#include "window.h" |
|
9 |
#include "gfx.h" |
|
10 |
#include "command.h" |
|
11 |
#include "saveload.h" |
|
12 |
#include "economy.h" |
|
13 |
#include "industry.h" |
|
14 |
#include "town.h" |
|
239 | 15 |
#include "network.h" |
337
66647f97e7c0
(svn r513) Merge revisions 402, 416, 417, 478, 479, 511, 512 from map to trunk
tron
parents:
260
diff
changeset
|
16 |
#include "sound.h" |
445
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
17 |
#include "engine.h" |
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
18 |
#include "network_data.h" |
0 | 19 |
|
147
d0c8100d18cf
(svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ.
darkvater
parents:
116
diff
changeset
|
20 |
void UpdatePlayerHouse(Player *p, uint score) |
0 | 21 |
{ |
22 |
byte val; |
|
23 |
uint tile = p->location_of_house; |
|
24 |
||
25 |
if (tile == 0) |
|
26 |
return; |
|
27 |
||
28 |
(val = 128, score < 170) || |
|
29 |
(val+= 4, score < 350) || |
|
30 |
(val+= 4, score < 520) || |
|
31 |
(val+= 4, score < 720) || |
|
32 |
(val+= 4, true); |
|
33 |
||
34 |
/* house is already big enough */ |
|
35 |
if (val <= _map5[tile]) |
|
36 |
return; |
|
37 |
||
38 |
_map5[tile + TILE_XY(0,0)] = val; |
|
39 |
_map5[tile + TILE_XY(0,1)] = ++val; |
|
40 |
_map5[tile + TILE_XY(1,0)] = ++val; |
|
41 |
_map5[tile + TILE_XY(1,1)] = ++val; |
|
42 |
||
43 |
MarkTileDirtyByTile(tile + TILE_XY(0,0)); |
|
44 |
MarkTileDirtyByTile(tile + TILE_XY(0,1)); |
|
45 |
MarkTileDirtyByTile(tile + TILE_XY(1,0)); |
|
46 |
MarkTileDirtyByTile(tile + TILE_XY(1,1)); |
|
47 |
} |
|
48 |
||
200
03b8104d1479
(svn r201) -Fix: [1025836] Company values bigger dan int32 were put to negative
truelight
parents:
193
diff
changeset
|
49 |
int64 CalculateCompanyValue(Player *p) { |
0 | 50 |
byte owner = p->index; |
200
03b8104d1479
(svn r201) -Fix: [1025836] Company values bigger dan int32 were put to negative
truelight
parents:
193
diff
changeset
|
51 |
int64 value; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
52 |
|
0 | 53 |
{ |
54 |
Station *st; |
|
55 |
uint num = 0; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
56 |
|
0 | 57 |
FOR_ALL_STATIONS(st) { |
58 |
if (st->xy != 0 && st->owner == owner) { |
|
59 |
uint facil = st->facilities; |
|
60 |
do num += (facil&1); while (facil >>= 1); |
|
61 |
} |
|
62 |
} |
|
63 |
||
64 |
value = num * _price.station_value * 25; |
|
65 |
} |
|
66 |
||
67 |
{ |
|
68 |
Vehicle *v; |
|
69 |
||
70 |
FOR_ALL_VEHICLES(v) { |
|
71 |
if (v->owner != owner) |
|
72 |
continue; |
|
73 |
if (v->type == VEH_Train || |
|
74 |
v->type == VEH_Road || |
|
75 |
(v->type == VEH_Aircraft && v->subtype<=2) || |
|
76 |
v->type == VEH_Ship) { |
|
77 |
value += v->value * 3 >> 1; |
|
78 |
} |
|
79 |
} |
|
80 |
} |
|
81 |
||
82 |
if (p->player_money > 0) |
|
236
da0ae9d977e0
(svn r237) -Fix: [1025836] Company value problem (again). Now company value rightly shows the value, including ALL your money.
darkvater
parents:
206
diff
changeset
|
83 |
value += p->money64; // add real money value |
0 | 84 |
|
85 |
return value; |
|
86 |
} |
|
87 |
||
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
88 |
// if update is set to true, the economy is updated with this score |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
89 |
// (also the house is updated, should only be true in the on-tick event) |
147
d0c8100d18cf
(svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ.
darkvater
parents:
116
diff
changeset
|
90 |
int UpdateCompanyRatingAndValue(Player *p, bool update) |
0 | 91 |
{ |
92 |
byte owner = p->index; |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
93 |
int score = 0; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
94 |
|
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
95 |
memset(_score_part[owner], 0, sizeof(_score_part[owner])); |
0 | 96 |
|
97 |
/* Count vehicles */ |
|
98 |
{ |
|
99 |
Vehicle *v; |
|
100 |
int32 min_profit = MAX_INT; |
|
101 |
uint num = 0; |
|
102 |
||
103 |
FOR_ALL_VEHICLES(v) { |
|
104 |
if (v->owner != owner) |
|
105 |
continue; |
|
106 |
if ((v->type == VEH_Train && v->subtype == 0) || |
|
107 |
v->type == VEH_Road || |
|
108 |
(v->type == VEH_Aircraft && v->subtype<=2) || |
|
109 |
v->type == VEH_Ship) { |
|
110 |
num++; |
|
111 |
if (v->age > 730) { |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
112 |
if (min_profit > v->profit_last_year) |
0 | 113 |
min_profit = v->profit_last_year; |
114 |
} |
|
115 |
} |
|
116 |
} |
|
117 |
||
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
118 |
_score_part[owner][SCORE_VEHICLES] = num; |
0 | 119 |
|
120 |
if (min_profit != MAX_INT && min_profit > 0) |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
121 |
_score_part[owner][SCORE_MIN_PROFIT] = min_profit; |
0 | 122 |
} |
123 |
||
124 |
/* Count stations */ |
|
125 |
{ |
|
126 |
uint num = 0; |
|
127 |
Station *st; |
|
128 |
||
129 |
FOR_ALL_STATIONS(st) { |
|
130 |
if (st->xy != 0 && st->owner == owner) { |
|
131 |
int facil = st->facilities; |
|
132 |
do num += facil&1; while (facil>>=1); |
|
133 |
} |
|
134 |
} |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
135 |
_score_part[owner][SCORE_STATIONS] = num; |
0 | 136 |
} |
137 |
||
138 |
/* Generate statistics depending on recent income statistics */ |
|
139 |
{ |
|
140 |
PlayerEconomyEntry *pee; |
|
141 |
int numec; |
|
142 |
int32 min_income; |
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
143 |
int32 max_income; |
0 | 144 |
|
145 |
numec = min(p->num_valid_stat_ent, 12); |
|
146 |
if (numec != 0) { |
|
147 |
min_income = 0x7FFFFFFF; |
|
148 |
max_income = 0; |
|
149 |
pee = p->old_economy; |
|
150 |
do { |
|
151 |
min_income = min(min_income, pee->income + pee->expenses); |
|
152 |
max_income = max(max_income, pee->income + pee->expenses); |
|
153 |
} while (++pee,--numec); |
|
154 |
||
155 |
if (min_income > 0) |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
156 |
_score_part[owner][SCORE_MIN_INCOME] = min_income; |
0 | 157 |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
158 |
_score_part[owner][SCORE_MAX_INCOME] = max_income; |
0 | 159 |
} |
160 |
} |
|
161 |
||
162 |
/* Generate score depending on amount of transported cargo */ |
|
163 |
{ |
|
164 |
PlayerEconomyEntry *pee; |
|
165 |
int numec; |
|
166 |
uint32 total_delivered; |
|
167 |
||
168 |
numec = min(p->num_valid_stat_ent, 4); |
|
169 |
if (numec != 0) { |
|
170 |
pee = p->old_economy; |
|
171 |
total_delivered = 0; |
|
172 |
do { |
|
173 |
total_delivered += pee->delivered_cargo; |
|
174 |
} while (++pee,--numec); |
|
175 |
||
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
176 |
_score_part[owner][SCORE_DELIVERED] = total_delivered; |
0 | 177 |
} |
178 |
} |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
179 |
|
0 | 180 |
/* Generate score for variety of cargo */ |
181 |
{ |
|
182 |
uint cargo = p->cargo_types; |
|
183 |
uint num = 0; |
|
184 |
do num += cargo&1; while (cargo>>=1); |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
185 |
_score_part[owner][SCORE_CARGO] = num; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
186 |
if (update) |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
187 |
p->cargo_types = 0; |
0 | 188 |
} |
189 |
||
190 |
/* Generate score for player money */ |
|
191 |
{ |
|
192 |
int32 money = p->player_money; |
|
193 |
if (money > 0) { |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
194 |
_score_part[owner][SCORE_MONEY] = money; |
0 | 195 |
} |
196 |
} |
|
197 |
||
198 |
/* Generate score for loan */ |
|
199 |
{ |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
200 |
_score_part[owner][SCORE_LOAN] = score_info[SCORE_LOAN].needed - p->current_loan; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
201 |
} |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
202 |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
203 |
// Now we calculate the score for each item.. |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
204 |
{ |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
205 |
int i; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
206 |
int total_score = 0; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
207 |
int s; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
208 |
score = 0; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
209 |
for (i=0;i<NUM_SCORE;i++) { |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
210 |
// Skip the total |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
211 |
if (i == SCORE_TOTAL) continue; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
212 |
// Check the score |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
213 |
s = (_score_part[owner][i] >= score_info[i].needed) ? score_info[i].score : ((_score_part[owner][i] * score_info[i].score) / score_info[i].needed); |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
214 |
if (s < 0) s = 0; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
215 |
score += s; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
216 |
total_score += score_info[i].score; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
217 |
} |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
218 |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
219 |
_score_part[owner][SCORE_TOTAL] = score; |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
220 |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
221 |
// We always want the score scaled to SCORE_MAX (1000) |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
222 |
if (total_score != SCORE_MAX) |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
223 |
score = score * SCORE_MAX / total_score; |
0 | 224 |
} |
225 |
||
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
226 |
if (update) { |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
227 |
p->old_economy[0].performance_history = score; |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
228 |
UpdatePlayerHouse(p, score); |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
229 |
p->old_economy[0].company_value = CalculateCompanyValue(p); |
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
230 |
} |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
231 |
|
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
232 |
InvalidateWindow(WC_PERFORMANCE_DETAIL, 0); |
147
d0c8100d18cf
(svn r148) -Feature: Company HQ can now be moved somewhere else (cost 1% of company value). Water floods HQ.
darkvater
parents:
116
diff
changeset
|
233 |
return score; |
0 | 234 |
} |
235 |
||
236 |
// use 255 as new_player to delete the player. |
|
237 |
void ChangeOwnershipOfPlayerItems(byte old_player, byte new_player) |
|
238 |
{ |
|
239 |
byte old = _current_player; |
|
240 |
_current_player = old_player; |
|
241 |
||
242 |
if (new_player == 255) { |
|
243 |
Subsidy *s; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
244 |
|
0 | 245 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
246 |
if (s->cargo_type != 0xff && s->age >= 12) { |
|
247 |
Station *st = DEREF_STATION(s->to); |
|
248 |
if (st->owner == old_player) |
|
249 |
s->cargo_type = 0xff; |
|
250 |
} |
|
251 |
} |
|
252 |
} |
|
253 |
||
254 |
// take care of rating in towns |
|
255 |
{ |
|
256 |
Town *t; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
257 |
|
0 | 258 |
// if a player takes over, give the ratings to that player. |
259 |
if (new_player != 255) { |
|
260 |
FOR_ALL_TOWNS(t) if (t->xy && HASBIT(t->have_ratings, old_player)) { |
|
261 |
if (HASBIT(t->have_ratings, new_player)) { |
|
262 |
// use max of the two ratings. |
|
263 |
t->ratings[new_player] = max(t->ratings[new_player], t->ratings[old_player]); |
|
264 |
} else { |
|
265 |
SETBIT(t->have_ratings, new_player); |
|
266 |
t->ratings[new_player] = t->ratings[old_player]; |
|
267 |
} |
|
268 |
} |
|
269 |
} |
|
270 |
||
271 |
// reset rating for the towns. |
|
272 |
FOR_ALL_TOWNS(t) if (t->xy) { |
|
273 |
t->ratings[old_player] = 500; |
|
274 |
CLRBIT(t->have_ratings, old_player); |
|
275 |
} |
|
276 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
277 |
|
0 | 278 |
{ |
279 |
int num_train = 0; |
|
280 |
int num_road = 0; |
|
281 |
int num_ship = 0; |
|
282 |
int num_aircraft = 0; |
|
283 |
Vehicle *v; |
|
284 |
||
285 |
// Determine Ids for the new vehicles |
|
286 |
FOR_ALL_VEHICLES(v) { |
|
287 |
if (v->owner == new_player) { |
|
288 |
if (v->type == VEH_Train && v->subtype == 0) |
|
289 |
num_train++; |
|
290 |
else if (v->type == VEH_Road) |
|
291 |
num_road++; |
|
292 |
else if (v->type == VEH_Ship) |
|
293 |
num_ship++; |
|
294 |
else if (v->type == VEH_Aircraft && v->subtype <= 2) |
|
295 |
num_aircraft++; |
|
296 |
} |
|
297 |
} |
|
298 |
||
299 |
FOR_ALL_VEHICLES(v) { |
|
300 |
if (v->owner == old_player && IS_BYTE_INSIDE(v->type, VEH_Train, VEH_Aircraft+1) ) { |
|
301 |
if (new_player == 255) { |
|
302 |
DeleteWindowById(WC_VEHICLE_VIEW, v->index); |
|
303 |
DeleteWindowById(WC_VEHICLE_DETAILS, v->index); |
|
304 |
DeleteWindowById(WC_VEHICLE_ORDERS, v->index); |
|
305 |
DeleteVehicle(v); |
|
306 |
} else { |
|
307 |
v->owner = new_player; |
|
308 |
if (v->type == VEH_Train && v->subtype == 0) |
|
309 |
v->unitnumber = ++num_train; |
|
310 |
else if (v->type == VEH_Road) |
|
311 |
v->unitnumber = ++num_road; |
|
312 |
else if (v->type == VEH_Ship) |
|
313 |
v->unitnumber = ++num_ship; |
|
314 |
else if (v->type == VEH_Aircraft && v->subtype <= 2) |
|
315 |
v->unitnumber = ++num_aircraft; |
|
316 |
} |
|
317 |
} |
|
318 |
} |
|
319 |
} |
|
320 |
||
321 |
// Change ownership of tiles |
|
322 |
{ |
|
323 |
uint tile = 0; |
|
324 |
do { |
|
325 |
ChangeTileOwner(tile, old_player, new_player); |
|
326 |
} while (++tile != TILES_X * TILES_Y); |
|
327 |
} |
|
328 |
||
329 |
// Change color of existing windows |
|
330 |
if (new_player != 255) { |
|
331 |
Window *w; |
|
332 |
for(w=_windows; w != _last_window; w++) { |
|
333 |
if (w->caption_color == old_player) |
|
334 |
w->caption_color = new_player; |
|
335 |
} |
|
336 |
} |
|
337 |
||
338 |
_current_player = old; |
|
339 |
||
340 |
MarkWholeScreenDirty(); |
|
341 |
} |
|
342 |
||
343 |
extern void DeletePlayerWindows(int pi); |
|
344 |
||
345 |
static void PlayersCheckBankrupt(Player *p) |
|
346 |
{ |
|
347 |
int owner; |
|
200
03b8104d1479
(svn r201) -Fix: [1025836] Company values bigger dan int32 were put to negative
truelight
parents:
193
diff
changeset
|
348 |
int64 val; |
0 | 349 |
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
350 |
// If the player has money again, it does not go bankrupt |
0 | 351 |
if (p->player_money >= 0) { |
352 |
p->quarters_of_bankrupcy = 0; |
|
353 |
return; |
|
354 |
} |
|
355 |
||
356 |
p->quarters_of_bankrupcy++; |
|
357 |
||
358 |
owner = p->index; |
|
359 |
||
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
360 |
switch (p->quarters_of_bankrupcy) { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
361 |
case 2: |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
362 |
AddNewsItem( (StringID)(owner + 16), |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
363 |
NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
364 |
break; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
365 |
case 3: { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
366 |
/* XXX - In multiplayer, should we ask other players if it wants to take |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
367 |
over when it is a human company? -- TrueLight */ |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
368 |
if (IS_HUMAN_PLAYER(owner)) { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
369 |
AddNewsItem( (StringID)(owner + 16), |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
370 |
NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
371 |
break; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
372 |
} |
0 | 373 |
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
374 |
// Check if the company has any value.. if not, declare it bankrupt |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
375 |
// right now |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
376 |
val = CalculateCompanyValue(p); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
377 |
if (val > 0) { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
378 |
p->bankrupt_value = val; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
379 |
p->bankrupt_asked = 1 << owner; // Don't ask the owner |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
380 |
p->bankrupt_timeout = 0; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
381 |
break; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
382 |
} |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
383 |
// Else, falltrue to case 4... |
0 | 384 |
} |
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
385 |
case 4: { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
386 |
// Close everything the owner has open |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
387 |
DeletePlayerWindows(owner); |
0 | 388 |
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
389 |
// Show bankrupt news |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
390 |
SetDParam(0, p->name_1); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
391 |
SetDParam(1, p->name_2); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
392 |
AddNewsItem( (StringID)(owner + 16*3), NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
393 |
|
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
394 |
// If the player is human, and it is no network play, leave the player playing |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
395 |
if (IS_HUMAN_PLAYER(owner) && !_networking) { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
396 |
p->bankrupt_asked = 255; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
397 |
p->bankrupt_timeout = 0x456; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
398 |
} else { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
399 |
// If we are the server, make sure it is clear that his player is no |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
400 |
// longer with us! |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
401 |
if (IS_HUMAN_PLAYER(owner) && _network_server) { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
402 |
NetworkClientInfo *ci; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
403 |
ci = NetworkFindClientInfoFromIndex(_network_own_client_index); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
404 |
ci->client_playas = (byte)(OWNER_SPECTATOR + 1); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
405 |
// Send the new info to all the clients |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
406 |
NetworkUpdateClientInfo(_network_own_client_index); |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
407 |
} |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
408 |
// Make sure the player no longer controls the company |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
409 |
if (IS_HUMAN_PLAYER(owner) && owner == _local_player) { |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
410 |
// Switch the player to spectator.. |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
411 |
_local_player = OWNER_SPECTATOR; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
412 |
} |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
413 |
// Convert everything the player owns to NO_OWNER |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
414 |
p->money64 = p->player_money = 100000000; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
415 |
ChangeOwnershipOfPlayerItems(owner, 0xFF); // 255 is no owner |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
416 |
// Register the player as not-active |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
417 |
p->is_active = false; |
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
418 |
} |
0 | 419 |
} |
420 |
} |
|
421 |
} |
|
422 |
||
423 |
void DrawNewsBankrupcy(Window *w) |
|
424 |
{ |
|
425 |
Player *p; |
|
426 |
||
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
427 |
DrawNewsBorder(w); |
0 | 428 |
|
429 |
p = DEREF_PLAYER(WP(w,news_d).ni->string_id & 15); |
|
430 |
DrawPlayerFace(p->face, p->player_color, 2, 23); |
|
431 |
GfxFillRect(3, 23, 3+91, 23+118, 0x4323); |
|
432 |
||
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
433 |
SetDParam(0, p->president_name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
434 |
SetDParam(1, p->president_name_2); |
0 | 435 |
|
436 |
DrawStringMultiCenter(49, 148, STR_7058_PRESIDENT, 94); |
|
437 |
||
438 |
switch(WP(w,news_d).ni->string_id >> 4) { |
|
439 |
case 1: |
|
440 |
DrawStringCentered(w->width>>1, 1, STR_7056_TRANSPORT_COMPANY_IN_TROUBLE, 0); |
|
441 |
||
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
442 |
SetDParam(0, p->name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
443 |
SetDParam(1, p->name_2); |
0 | 444 |
|
445 |
DrawStringMultiCenter( |
|
446 |
((w->width - 101) >> 1) + 98, |
|
447 |
90, |
|
448 |
STR_7057_WILL_BE_SOLD_OFF_OR_DECLARED, |
|
449 |
w->width - 101); |
|
450 |
break; |
|
451 |
||
452 |
case 2: { |
|
453 |
int32 price; |
|
454 |
||
455 |
DrawStringCentered(w->width>>1, 1, STR_7059_TRANSPORT_COMPANY_MERGER, 0); |
|
456 |
COPY_IN_DPARAM(0,WP(w,news_d).ni->params, 2); |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
457 |
SetDParam(2, p->name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
458 |
SetDParam(3, p->name_2); |
0 | 459 |
price = WP(w,news_d).ni->params[2]; |
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
460 |
SetDParam(4, price); |
0 | 461 |
DrawStringMultiCenter( |
462 |
((w->width - 101) >> 1) + 98, |
|
463 |
90, |
|
464 |
price==0 ? STR_707F_HAS_BEEN_TAKEN_OVER_BY : STR_705A_HAS_BEEN_SOLD_TO_FOR, |
|
465 |
w->width - 101); |
|
466 |
break; |
|
467 |
} |
|
468 |
||
469 |
case 3: |
|
470 |
DrawStringCentered(w->width>>1, 1, STR_705C_BANKRUPT, 0); |
|
471 |
COPY_IN_DPARAM(0,WP(w,news_d).ni->params, 2); |
|
472 |
DrawStringMultiCenter( |
|
473 |
((w->width - 101) >> 1) + 98, |
|
474 |
90, |
|
475 |
STR_705D_HAS_BEEN_CLOSED_DOWN_BY, |
|
476 |
w->width - 101); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
477 |
break; |
0 | 478 |
|
479 |
case 4: |
|
480 |
DrawStringCentered(w->width>>1, 1, STR_705E_NEW_TRANSPORT_COMPANY_LAUNCHED, 0); |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
481 |
SetDParam(0, p->name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
482 |
SetDParam(1, p->name_2); |
0 | 483 |
COPY_IN_DPARAM(2,WP(w,news_d).ni->params, 2); |
484 |
DrawStringMultiCenter( |
|
485 |
((w->width - 101) >> 1) + 98, |
|
486 |
90, |
|
487 |
STR_705F_STARTS_CONSTRUCTION_NEAR, |
|
488 |
w->width - 101); |
|
489 |
break; |
|
490 |
||
491 |
default: |
|
492 |
NOT_REACHED(); |
|
493 |
} |
|
494 |
} |
|
495 |
||
496 |
StringID GetNewsStringBankrupcy(NewsItem *ni) |
|
497 |
{ |
|
498 |
Player *p = DEREF_PLAYER(ni->string_id & 0xF); |
|
499 |
||
500 |
switch(ni->string_id >> 4) { |
|
501 |
case 1: |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
502 |
SetDParam(0, STR_7056_TRANSPORT_COMPANY_IN_TROUBLE); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
503 |
SetDParam(1, STR_7057_WILL_BE_SOLD_OFF_OR_DECLARED); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
504 |
SetDParam(2, p->name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
505 |
SetDParam(3, p->name_2); |
0 | 506 |
return STR_02B6; |
507 |
case 2: |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
508 |
SetDParam(0, STR_7059_TRANSPORT_COMPANY_MERGER); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
509 |
SetDParam(1, STR_705A_HAS_BEEN_SOLD_TO_FOR); |
0 | 510 |
COPY_IN_DPARAM(2,ni->params, 2); |
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
511 |
SetDParam(4, p->name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
512 |
SetDParam(5, p->name_2); |
0 | 513 |
COPY_IN_DPARAM(6,ni->params + 2, 1); |
514 |
return STR_02B6; |
|
515 |
case 3: |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
516 |
SetDParam(0, STR_705C_BANKRUPT); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
517 |
SetDParam(1, STR_705D_HAS_BEEN_CLOSED_DOWN_BY); |
0 | 518 |
COPY_IN_DPARAM(2,ni->params, 2); |
519 |
return STR_02B6; |
|
520 |
case 4: |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
521 |
SetDParam(0, STR_705E_NEW_TRANSPORT_COMPANY_LAUNCHED); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
522 |
SetDParam(1, STR_705F_STARTS_CONSTRUCTION_NEAR); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
523 |
SetDParam(2, p->name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
524 |
SetDParam(3, p->name_2); |
0 | 525 |
COPY_IN_DPARAM(4,ni->params, 2); |
526 |
return STR_02B6; |
|
527 |
default: |
|
528 |
NOT_REACHED(); |
|
529 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
530 |
|
0 | 531 |
/* useless, but avoids compiler warning this way */ |
532 |
return 0; |
|
533 |
} |
|
534 |
||
535 |
static void PlayersGenStatistics() |
|
536 |
{ |
|
537 |
Station *st; |
|
538 |
Player *p; |
|
539 |
||
540 |
FOR_ALL_STATIONS(st) { |
|
541 |
if (st->xy != 0) { |
|
542 |
_current_player = st->owner; |
|
543 |
SET_EXPENSES_TYPE(EXPENSES_PROPERTY); |
|
544 |
SubtractMoneyFromPlayer(_price.station_value >> 1); |
|
545 |
} |
|
546 |
} |
|
547 |
||
548 |
if (!HASBIT(1<<0|1<<3|1<<6|1<<9, _cur_month)) |
|
549 |
return; |
|
550 |
||
551 |
FOR_ALL_PLAYERS(p) { |
|
552 |
if (p->is_active) { |
|
553 |
memmove(&p->old_economy, &p->cur_economy, sizeof(p->old_economy)); |
|
554 |
memset(&p->cur_economy, 0, sizeof(p->cur_economy)); |
|
555 |
||
556 |
if (p->num_valid_stat_ent != 24) |
|
557 |
p->num_valid_stat_ent++; |
|
558 |
||
116
ca4332a9ec1d
(svn r117) Feature: Performance details window in company league menu (TrueLight)
dominik
parents:
33
diff
changeset
|
559 |
UpdateCompanyRatingAndValue(p, true); |
0 | 560 |
PlayersCheckBankrupt(p); |
561 |
||
562 |
if (p->block_preview != 0) |
|
563 |
p->block_preview--; |
|
564 |
} |
|
565 |
} |
|
566 |
||
567 |
InvalidateWindow(WC_INCOME_GRAPH, 0); |
|
568 |
InvalidateWindow(WC_OPERATING_PROFIT, 0); |
|
569 |
InvalidateWindow(WC_DELIVERED_CARGO, 0); |
|
570 |
InvalidateWindow(WC_PERFORMANCE_HISTORY, 0); |
|
571 |
InvalidateWindow(WC_COMPANY_VALUE, 0); |
|
572 |
InvalidateWindow(WC_COMPANY_LEAGUE, 0); |
|
573 |
} |
|
574 |
||
575 |
static void AddSingleInflation(int32 *value, uint16 *frac, int32 amt) |
|
576 |
{ |
|
577 |
int64 tmp; |
|
578 |
int32 low; |
|
579 |
tmp = BIGMULS(*value, amt); |
|
580 |
*frac = (uint16)(low = (uint16)tmp + *frac); |
|
581 |
*value += (int32)(tmp >> 16) + (low >> 16); |
|
582 |
} |
|
583 |
||
584 |
static void AddInflation() |
|
585 |
{ |
|
586 |
int i; |
|
587 |
int32 inf = _economy.infl_amount * 54; |
|
588 |
||
589 |
for(i=0; i!=NUM_PRICES; i++) { |
|
590 |
AddSingleInflation( (int32*)&_price + i, _price_frac + i, inf ); |
|
591 |
} |
|
592 |
||
593 |
_economy.max_loan_unround += BIGMULUS(_economy.max_loan_unround, inf, 16); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
594 |
|
0 | 595 |
if (_economy.max_loan + 50000 <= _economy.max_loan_unround) |
596 |
_economy.max_loan += 50000; |
|
597 |
||
598 |
inf = _economy.infl_amount_pr * 54; |
|
599 |
for(i=0; i!=NUM_CARGO; i++) { |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
600 |
AddSingleInflation( |
0 | 601 |
_cargo_payment_rates + i, |
602 |
_cargo_payment_rates_frac + i, |
|
603 |
inf |
|
604 |
); |
|
605 |
} |
|
606 |
||
607 |
InvalidateWindowClasses(WC_BUILD_VEHICLE); |
|
608 |
InvalidateWindowClasses(WC_VEHICLE_DETAILS); |
|
609 |
InvalidateWindow(WC_PAYMENT_RATES, 0); |
|
610 |
} |
|
611 |
||
612 |
static void PlayersPayInterest() |
|
613 |
{ |
|
614 |
Player *p; |
|
615 |
int interest = _economy.interest_rate * 54; |
|
616 |
||
617 |
FOR_ALL_PLAYERS(p) { |
|
618 |
if (!p->is_active) |
|
619 |
continue; |
|
620 |
||
621 |
_current_player = p->index; |
|
622 |
SET_EXPENSES_TYPE(EXPENSES_LOAN_INT); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
623 |
|
0 | 624 |
SubtractMoneyFromPlayer(BIGMULUS(p->current_loan, interest, 16)); |
625 |
||
626 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
627 |
SubtractMoneyFromPlayer(_price.station_value >> 2); |
|
628 |
} |
|
629 |
} |
|
630 |
||
631 |
static void HandleEconomyFluctuations() |
|
632 |
{ |
|
633 |
if (_opt.diff.economy == 0) |
|
634 |
return; |
|
635 |
||
636 |
if (--_economy.fluct == 0) { |
|
637 |
_economy.fluct = - (int)(Random()&3); |
|
638 |
AddNewsItem(STR_7073_WORLD_RECESSION_FINANCIAL, NEWS_FLAGS(NM_NORMAL,0,NT_ECONOMY,0), 0, 0); |
|
639 |
} else if (_economy.fluct == -12) { |
|
640 |
_economy.fluct = (Random()&255) + 312; |
|
641 |
AddNewsItem(STR_7074_RECESSION_OVER_UPTURN_IN, NEWS_FLAGS(NM_NORMAL,0,NT_ECONOMY,0), 0, 0); |
|
642 |
} |
|
643 |
} |
|
644 |
||
645 |
static byte _price_category[NUM_PRICES] = { |
|
646 |
0, 2, 2, 2, 2, 2, 2, 2, |
|
647 |
2, 2, 2, 2, 2, 2, 2, 2, |
|
648 |
2, 2, 2, 2, 2, 2, 2, 2, |
|
649 |
2, 2, 2, 2, 2, 2, 2, 2, |
|
650 |
2, 2, 2, 2, 2, 2, 2, 2, |
|
651 |
2, 2, 1, 1, 1, 1, 1, 1, |
|
652 |
2, |
|
653 |
}; |
|
654 |
||
655 |
static const int32 _price_base[NUM_PRICES] = { |
|
9 | 656 |
100, // station_value |
657 |
100, // build_rail |
|
658 |
95, // build_road |
|
659 |
65, // build_signals |
|
660 |
275, // build_bridge |
|
661 |
600, // build_train_depot |
|
662 |
500, // build_road_depot |
|
663 |
700, // build_ship_depot |
|
664 |
450, // build_tunnel |
|
665 |
200, // train_station_track |
|
666 |
180, // train_station_length |
|
667 |
600, // build_airport |
|
668 |
200, // build_bus_station |
|
669 |
200, // build_truck_station |
|
670 |
350, // build_dock |
|
671 |
400000, // build_railvehicle |
|
672 |
2000, // build_railwagon |
|
673 |
700000, // aircraft_base |
|
674 |
14000, // roadveh_base |
|
675 |
65000, // ship_base |
|
676 |
20, // build_trees |
|
677 |
250, // terraform |
|
678 |
20, // clear_1 |
|
679 |
40, // purchase_land |
|
680 |
200, // clear_2 |
|
681 |
500, // clear_3 |
|
682 |
20, // remove_trees |
|
683 |
-70, // remove_rail |
|
684 |
10, // remove_signals |
|
685 |
50, // clear_bridge |
|
686 |
80, // remove_train_depot |
|
687 |
80, // remove_road_depot |
|
688 |
90, // remove_ship_depot |
|
689 |
30, // clear_tunnel |
|
690 |
10000, // clear_water |
|
691 |
50, // remove_rail_station |
|
692 |
30, // remove_airport |
|
693 |
50, // remove_bus_station |
|
694 |
50, // remove_truck_station |
|
695 |
55, // remove_dock |
|
696 |
1600, // remove_house |
|
697 |
40, // remove_road |
|
698 |
5600, // running_rail[0] railroad |
|
699 |
5200, // running_rail[1] monorail |
|
700 |
4800, // running_rail[2] maglev |
|
701 |
9600, // aircraft_running |
|
702 |
1600, // roadveh_running |
|
703 |
5600, // ship_running |
|
704 |
1000000, // build_industry |
|
0 | 705 |
}; |
706 |
||
707 |
void StartupEconomy() |
|
708 |
{ |
|
709 |
int i; |
|
710 |
||
711 |
assert(sizeof(_price) == NUM_PRICES * sizeof(int32)); |
|
712 |
||
713 |
for(i=0; i!=NUM_PRICES; i++) { |
|
714 |
int32 price = _price_base[i]; |
|
715 |
if (_price_category[i] != 0) { |
|
716 |
uint mod = _price_category[i] == 1 ? _opt.diff.vehicle_costs : _opt.diff.construction_cost; |
|
717 |
if (mod < 1) { |
|
718 |
price = price * 3 >> 2; |
|
719 |
} else if (mod > 1) { |
|
720 |
price = price * 9 >> 3; |
|
721 |
} |
|
722 |
} |
|
723 |
((int32*)&_price)[i] = price; |
|
724 |
_price_frac[i] = 0; |
|
725 |
} |
|
726 |
||
727 |
_economy.interest_rate = _opt.diff.initial_interest; |
|
728 |
_economy.infl_amount = _opt.diff.initial_interest; |
|
729 |
_economy.infl_amount_pr = max(0, _opt.diff.initial_interest - 1); |
|
730 |
_economy.max_loan_unround = _economy.max_loan = _opt.diff.max_loan * 1000; |
|
731 |
_economy.fluct = (byte)(Random()) + 168; |
|
732 |
} |
|
733 |
||
734 |
Pair SetupSubsidyDecodeParam(Subsidy *s, bool mode) |
|
735 |
{ |
|
736 |
int tile, tile2; |
|
737 |
Industry *i; |
|
738 |
Town *t; |
|
739 |
Station *st; |
|
740 |
Pair tp; |
|
741 |
||
742 |
/* if mode is false, convert into plural */ |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
743 |
SetDParam(0, _cargoc.names_s[s->cargo_type] + (mode?0:32)); |
0 | 744 |
|
745 |
if (s->age < 12) { |
|
746 |
if (!(s->cargo_type == CT_PASSENGERS || s->cargo_type == CT_MAIL)) { |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
747 |
SetDParam(1, STR_2029); |
0 | 748 |
i = DEREF_INDUSTRY(s->from); |
749 |
tile = i->xy; |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
750 |
SetDParam(2, i->town->townnametype); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
751 |
SetDParam(3, i->town->townnameparts); |
0 | 752 |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
753 |
SetDParam(4, i->type + STR_4802_COAL_MINE); |
0 | 754 |
|
755 |
if (s->cargo_type != CT_GOODS && s->cargo_type != CT_FOOD) { |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
756 |
SetDParam(5, STR_2029); |
0 | 757 |
i = DEREF_INDUSTRY(s->to); |
758 |
tile2 = i->xy; |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
759 |
SetDParam(8, i->type + STR_4802_COAL_MINE); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
760 |
SetDParam(6, i->town->townnametype); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
761 |
SetDParam(7, i->town->townnameparts); |
0 | 762 |
} else { |
763 |
t = DEREF_TOWN(s->to); |
|
764 |
tile2 = t->xy; |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
765 |
SetDParam(5, t->townnametype); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
766 |
SetDParam(6, t->townnameparts); |
0 | 767 |
} |
768 |
} else { |
|
769 |
t = DEREF_TOWN(s->from); |
|
770 |
tile = t->xy; |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
771 |
SetDParam(1, t->townnametype); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
772 |
SetDParam(2, t->townnameparts); |
0 | 773 |
|
774 |
t = DEREF_TOWN(s->to); |
|
775 |
tile2 = t->xy; |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
776 |
SetDParam(3, t->townnametype); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
777 |
SetDParam(4, t->townnameparts); |
0 | 778 |
} |
779 |
} else { |
|
780 |
st = DEREF_STATION(s->from); |
|
781 |
tile = st->xy; |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
782 |
SetDParam(1, st->index); |
0 | 783 |
|
784 |
st = DEREF_STATION(s->to); |
|
785 |
tile2 = st->xy; |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
786 |
SetDParam(2, st->index); |
0 | 787 |
} |
788 |
||
789 |
tp.a = tile; |
|
790 |
tp.b = tile2; |
|
791 |
||
792 |
return tp; |
|
793 |
} |
|
794 |
||
795 |
void DeleteSubsidyWithIndustry(byte index) |
|
796 |
{ |
|
797 |
Subsidy *s; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
798 |
|
0 | 799 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
800 |
if (s->cargo_type != 0xFF && s->age < 12 && |
|
801 |
s->cargo_type != CT_PASSENGERS && s->cargo_type != CT_MAIL && |
|
802 |
(index == s->from || (s->cargo_type!=CT_GOODS && s->cargo_type!=CT_FOOD && index==s->to))) { |
|
803 |
s->cargo_type = 0xFF; |
|
804 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
805 |
} |
0 | 806 |
} |
807 |
||
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
808 |
void DeleteSubsidyWithStation(byte index) |
0 | 809 |
{ |
810 |
Subsidy *s; |
|
811 |
bool dirty = false; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
812 |
|
0 | 813 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
814 |
if (s->cargo_type != 0xFF && s->age >= 12 && |
|
815 |
(s->from == index || s->to == index)) { |
|
816 |
s->cargo_type = 0xFF; |
|
817 |
dirty = true; |
|
818 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
819 |
} |
0 | 820 |
|
821 |
if (dirty) |
|
822 |
InvalidateWindow(WC_SUBSIDIES_LIST, 0); |
|
823 |
} |
|
824 |
||
825 |
typedef struct FoundRoute { |
|
826 |
uint distance; |
|
827 |
byte cargo; |
|
828 |
void *from; |
|
829 |
void *to; |
|
830 |
} FoundRoute; |
|
831 |
||
832 |
static void FindSubsidyPassengerRoute(FoundRoute *fr) |
|
833 |
{ |
|
834 |
Town *from,*to; |
|
835 |
||
836 |
fr->distance = (uint)-1; |
|
837 |
||
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
838 |
fr->from = from = DEREF_TOWN(RandomRange(_total_towns)); |
0 | 839 |
if (from->xy == 0 || from->population < 400) |
840 |
return; |
|
841 |
||
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
842 |
fr->to = to = DEREF_TOWN(RandomRange(_total_towns)); |
0 | 843 |
if (from==to || to->xy == 0 || to->population < 400 || to->pct_pass_transported > 42) |
844 |
return; |
|
845 |
||
846 |
fr->distance = GetTileDist(from->xy, to->xy); |
|
847 |
} |
|
848 |
||
849 |
static void FindSubsidyCargoRoute(FoundRoute *fr) |
|
850 |
{ |
|
851 |
Industry *i; |
|
852 |
int trans, total; |
|
853 |
byte cargo; |
|
854 |
||
855 |
fr->distance = (uint)-1; |
|
856 |
||
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
857 |
fr->from = i = DEREF_INDUSTRY(RandomRange(_total_industries)); |
0 | 858 |
if (i->xy == 0) |
859 |
return; |
|
860 |
||
861 |
// Randomize cargo type |
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
862 |
if (Random()&1 && i->produced_cargo[1] != 0xFF) { |
0 | 863 |
cargo = i->produced_cargo[1]; |
864 |
trans = i->pct_transported[1]; |
|
865 |
total = i->total_production[1]; |
|
866 |
} else { |
|
867 |
cargo = i->produced_cargo[0]; |
|
868 |
trans = i->pct_transported[0]; |
|
869 |
total = i->total_production[0]; |
|
870 |
} |
|
871 |
||
872 |
// Quit if no production in this industry |
|
873 |
// or if the cargo type is passengers |
|
874 |
// or if the pct transported is already large enough |
|
875 |
if (total == 0 || trans > 42 || cargo == 0xFF || cargo == CT_PASSENGERS) |
|
876 |
return; |
|
877 |
||
878 |
fr->cargo = cargo; |
|
879 |
||
880 |
if (cargo == CT_GOODS || cargo == CT_FOOD) { |
|
881 |
// The destination is a town |
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
882 |
Town *t = DEREF_TOWN(RandomRange(_total_towns)); |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
883 |
|
0 | 884 |
// Only want big towns |
885 |
if (t->xy == 0 || t->population < 900) |
|
886 |
return; |
|
887 |
fr->distance = GetTileDist(i->xy, t->xy); |
|
888 |
fr->to = t; |
|
889 |
} else { |
|
890 |
// The destination is an industry |
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
891 |
Industry *i2 = DEREF_INDUSTRY(RandomRange(_total_industries)); |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
892 |
|
0 | 893 |
// The industry must accept the cargo |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
894 |
if (i == i2 || i2->xy == 0 || |
0 | 895 |
(cargo != i2->accepts_cargo[0] && |
896 |
cargo != i2->accepts_cargo[1] && |
|
897 |
cargo != i2->accepts_cargo[2])) |
|
898 |
return; |
|
899 |
fr->distance = GetTileDist(i->xy, i2->xy); |
|
900 |
fr->to = i2; |
|
901 |
} |
|
902 |
} |
|
903 |
||
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
904 |
static bool CheckSubsidyDuplicate(Subsidy *s) |
0 | 905 |
{ |
906 |
Subsidy *ss; |
|
907 |
||
908 |
for(ss=_subsidies; ss != endof(_subsidies); ss++) { |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
909 |
if (s != ss && |
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
910 |
// ss->age < 12 && |
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
911 |
ss->from == s->from && |
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
912 |
ss->to == s->to && |
0 | 913 |
ss->cargo_type == s->cargo_type) { |
914 |
s->cargo_type = 0xFF; |
|
915 |
return true; |
|
916 |
} |
|
917 |
} |
|
918 |
return false; |
|
919 |
} |
|
920 |
||
239 | 921 |
void RemoteSubsidyAdd(Subsidy *s_new) |
922 |
{ |
|
923 |
Subsidy *s; |
|
924 |
Pair pair; |
|
925 |
||
926 |
// search the first free subsidy |
|
240 | 927 |
for(s=_subsidies; s != endof(_subsidies); s++) |
239 | 928 |
if (s->cargo_type == 0xFF) |
929 |
break; |
|
930 |
||
931 |
memcpy(s,s_new,sizeof(Subsidy)); |
|
932 |
||
933 |
pair = SetupSubsidyDecodeParam(s, 0); |
|
934 |
AddNewsItem(STR_2030_SERVICE_SUBSIDY_OFFERED, NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), pair.a, pair.b); |
|
935 |
||
936 |
InvalidateWindow(WC_SUBSIDIES_LIST, 0); |
|
937 |
} |
|
938 |
||
0 | 939 |
static void SubsidyMonthlyHandler() |
940 |
{ |
|
941 |
Subsidy *s; |
|
942 |
Pair pair; |
|
943 |
Station *st; |
|
944 |
uint n; |
|
945 |
FoundRoute fr; |
|
946 |
bool modified = false; |
|
947 |
||
948 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
949 |
if (s->cargo_type == 0xFF) |
|
950 |
continue; |
|
951 |
||
952 |
if (s->age == 12-1) { |
|
953 |
pair = SetupSubsidyDecodeParam(s, 1); |
|
954 |
AddNewsItem(STR_202E_OFFER_OF_SUBSIDY_EXPIRED, NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), pair.a, pair.b); |
|
955 |
s->cargo_type = 0xFF; |
|
956 |
modified = true; |
|
957 |
} else if (s->age == 2*12-1) { |
|
958 |
st = DEREF_STATION(s->to); |
|
959 |
if (st->owner == _local_player) { |
|
960 |
pair = SetupSubsidyDecodeParam(s, 1); |
|
961 |
AddNewsItem(STR_202F_SUBSIDY_WITHDRAWN_SERVICE, NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), pair.a, pair.b); |
|
962 |
} |
|
963 |
s->cargo_type = 0xFF; |
|
964 |
modified = true; |
|
965 |
} else { |
|
966 |
s->age++; |
|
967 |
} |
|
968 |
} |
|
969 |
||
970 |
// 25% chance to go on |
|
543
e3b43338096b
(svn r942) -Merged branch/network back into the trunk
truelight
parents:
541
diff
changeset
|
971 |
if (CHANCE16(1,4)) { |
0 | 972 |
// Find a free slot |
973 |
s = _subsidies; |
|
974 |
while (s->cargo_type != 0xFF) { |
|
975 |
if (++s == endof(_subsidies)) |
|
976 |
goto no_add; |
|
977 |
} |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
978 |
|
0 | 979 |
n = 1000; |
980 |
do { |
|
981 |
FindSubsidyPassengerRoute(&fr); |
|
982 |
if (fr.distance <= 70) { |
|
983 |
s->cargo_type = CT_PASSENGERS; |
|
984 |
s->from = ((Town*)fr.from)->index; |
|
985 |
s->to = ((Town*)fr.to)->index; |
|
986 |
goto add_subsidy; |
|
987 |
} |
|
988 |
FindSubsidyCargoRoute(&fr); |
|
989 |
if (fr.distance <= 70) { |
|
990 |
s->cargo_type = fr.cargo; |
|
991 |
s->from = (Industry*)fr.from - _industries; |
|
992 |
s->to = (fr.cargo == CT_GOODS || fr.cargo == CT_FOOD) ? ((Town*)fr.to)->index : (Industry*)fr.to - _industries; |
|
993 |
add_subsidy: |
|
994 |
if (!CheckSubsidyDuplicate(s)) { |
|
995 |
s->age = 0; |
|
996 |
pair = SetupSubsidyDecodeParam(s, 0); |
|
997 |
AddNewsItem(STR_2030_SERVICE_SUBSIDY_OFFERED, NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), pair.a, pair.b); |
|
998 |
modified = true; |
|
999 |
break; |
|
1000 |
} |
|
1001 |
} |
|
239 | 1002 |
} while (n--); |
0 | 1003 |
} |
1004 |
no_add:; |
|
1005 |
if (modified) |
|
1006 |
InvalidateWindow(WC_SUBSIDIES_LIST, 0); |
|
1007 |
} |
|
1008 |
||
1009 |
static const byte _subsidies_desc[] = { |
|
1010 |
SLE_VAR(Subsidy,cargo_type, SLE_UINT8), |
|
1011 |
SLE_VAR(Subsidy,age, SLE_UINT8), |
|
1012 |
SLE_VAR(Subsidy,from, SLE_UINT8), |
|
1013 |
SLE_VAR(Subsidy,to, SLE_UINT8), |
|
1014 |
SLE_END() |
|
1015 |
}; |
|
1016 |
||
1017 |
static void Save_SUBS() |
|
1018 |
{ |
|
1019 |
int i; |
|
1020 |
Subsidy *s; |
|
1021 |
||
1022 |
for(i=0; i!=lengthof(_subsidies); i++) { |
|
1023 |
s = &_subsidies[i]; |
|
1024 |
if (s->cargo_type != 0xFF) { |
|
1025 |
SlSetArrayIndex(i); |
|
1026 |
SlObject(s, _subsidies_desc); |
|
1027 |
} |
|
1028 |
} |
|
1029 |
} |
|
1030 |
||
1031 |
static void Load_SUBS() |
|
1032 |
{ |
|
1033 |
int index; |
|
1034 |
while ((index = SlIterateArray()) != -1) |
|
1035 |
SlObject(&_subsidies[index], _subsidies_desc); |
|
1036 |
} |
|
1037 |
||
1038 |
int32 GetTransportedGoodsIncome(uint num_pieces, uint dist, byte transit_days, byte cargo_type) |
|
1039 |
{ |
|
1040 |
int cargo = cargo_type; |
|
1041 |
byte f; |
|
1042 |
||
1043 |
/* zero the distance if it's the bank and very short transport. */ |
|
1044 |
if (_opt.landscape == LT_NORMAL && cargo == CT_VALUABLES && dist < 10) |
|
1045 |
dist = 0; |
|
1046 |
||
1047 |
f = 255; |
|
1048 |
if (transit_days > _cargoc.transit_days_1[cargo]) { |
|
1049 |
transit_days -= _cargoc.transit_days_1[cargo]; |
|
1050 |
f -= transit_days; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1051 |
|
0 | 1052 |
if (transit_days > _cargoc.transit_days_2[cargo]) { |
1053 |
transit_days -= _cargoc.transit_days_2[cargo]; |
|
1054 |
||
1055 |
if (f < transit_days) |
|
1056 |
f = 0; |
|
1057 |
else |
|
1058 |
f -= transit_days; |
|
1059 |
} |
|
1060 |
} |
|
1061 |
if (f < 31) f = 31; |
|
1062 |
||
1063 |
return BIGMULSS(dist * f * num_pieces, _cargo_payment_rates[cargo], 21); |
|
1064 |
} |
|
1065 |
||
1066 |
static void DeliverGoodsToIndustry(TileIndex xy, byte cargo_type, int num_pieces) |
|
1067 |
{ |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1068 |
Industry *ind, *best; |
0 | 1069 |
int t, u; |
1070 |
||
1071 |
/* Check if there's an industry close to the station that accepts |
|
1072 |
* the cargo */ |
|
1073 |
best = NULL; |
|
33
431df1abc34b
(svn r34) -Fix [990770] Cargo delivery area patch for bug #989322. If station sign was too far away, there were goods acceptance/delivery issues (Celstar)
darkvater
parents:
9
diff
changeset
|
1074 |
u = _patches.station_spread + 8; |
0 | 1075 |
for(ind = _industries; ind != endof(_industries); ind++) { |
1076 |
if (ind->xy != 0 && (cargo_type == ind->accepts_cargo[0] || cargo_type |
|
1077 |
== ind->accepts_cargo[1] || cargo_type == ind->accepts_cargo[2]) && |
|
1078 |
ind->produced_cargo[0] != 0xFF && |
|
1079 |
ind->produced_cargo[0] != cargo_type && |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1080 |
(t=GetTileDist(ind->xy, xy)) < u) { |
0 | 1081 |
u = t; |
1082 |
best = ind; |
|
1083 |
} |
|
1084 |
} |
|
1085 |
||
1086 |
/* Found one? */ |
|
1087 |
if (best != NULL) { |
|
1088 |
best->was_cargo_delivered = true; |
|
1089 |
best->cargo_waiting[0] = min(best->cargo_waiting[0] + num_pieces, 0xFFFF); |
|
1090 |
} |
|
1091 |
} |
|
1092 |
||
1093 |
static bool CheckSubsidised(Station *from, Station *to, byte cargo_type) |
|
1094 |
{ |
|
1095 |
Subsidy *s; |
|
1096 |
TileIndex xy; |
|
1097 |
Pair pair; |
|
1098 |
Player *p; |
|
1099 |
||
1100 |
// check if there is an already existing subsidy that applies to us |
|
1101 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
1102 |
if (s->cargo_type == cargo_type && |
|
1103 |
s->age >= 12 && |
|
1104 |
s->from == from->index && |
|
1105 |
s->to == to->index) |
|
1106 |
return true; |
|
1107 |
} |
|
1108 |
||
1109 |
/* check if there's a new subsidy that applies.. */ |
|
1110 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
1111 |
if (s->cargo_type == cargo_type && s->age < 12) { |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1112 |
|
0 | 1113 |
/* Check distance from source */ |
1114 |
if (cargo_type == CT_PASSENGERS || cargo_type == CT_MAIL) { |
|
1115 |
xy = DEREF_TOWN(s->from)->xy; |
|
1116 |
} else { |
|
1117 |
xy = (DEREF_INDUSTRY(s->from))->xy; |
|
1118 |
} |
|
1119 |
if (GetTileDist1D(xy, from->xy) > 9) |
|
1120 |
continue; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1121 |
|
0 | 1122 |
/* Check distance from dest */ |
1123 |
if (cargo_type == CT_PASSENGERS || cargo_type == CT_MAIL || cargo_type == CT_GOODS || cargo_type == CT_FOOD) { |
|
1124 |
xy = DEREF_TOWN(s->to)->xy; |
|
1125 |
} else { |
|
1126 |
xy = (DEREF_INDUSTRY(s->to))->xy; |
|
1127 |
} |
|
1128 |
||
1129 |
if (GetTileDist1D(xy, to->xy) > 9) |
|
1130 |
continue; |
|
1131 |
||
1132 |
/* Found a subsidy, change the values to indicate that it's in use */ |
|
1133 |
s->age = 12; |
|
1134 |
s->from = from->index; |
|
1135 |
s->to = to->index; |
|
1136 |
||
1137 |
/* Add a news item */ |
|
1138 |
pair = SetupSubsidyDecodeParam(s, 0); |
|
1139 |
INJECT_DPARAM(2); |
|
1140 |
||
1141 |
p = DEREF_PLAYER(_current_player); |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
1142 |
SetDParam(0, p->name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
1143 |
SetDParam(1, p->name_2); |
0 | 1144 |
AddNewsItem( |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1145 |
STR_2031_SERVICE_SUBSIDY_AWARDED + _opt.diff.subsidy_multiplier, |
0 | 1146 |
NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), |
1147 |
pair.a, pair.b); |
|
1148 |
||
1149 |
InvalidateWindow(WC_SUBSIDIES_LIST, 0); |
|
1150 |
return true; |
|
1151 |
} |
|
1152 |
} |
|
1153 |
return false; |
|
1154 |
} |
|
1155 |
||
1156 |
static int32 DeliverGoods(int num_pieces, byte cargo_type, byte source, byte dest, byte days_in_transit) |
|
1157 |
{ |
|
1158 |
bool subsidised; |
|
1159 |
Station *s_from, *s_to; |
|
1160 |
int32 profit; |
|
1161 |
||
1162 |
assert(num_pieces > 0); |
|
1163 |
||
1164 |
// Update player statistics |
|
1165 |
{ |
|
1166 |
Player *p = DEREF_PLAYER(_current_player); |
|
1167 |
p->cur_economy.delivered_cargo += num_pieces; |
|
1168 |
SETBIT(p->cargo_types, cargo_type); |
|
1169 |
} |
|
1170 |
||
1171 |
// Get station pointers. |
|
1172 |
s_from = DEREF_STATION(source); |
|
1173 |
s_to = DEREF_STATION(dest); |
|
1174 |
||
1175 |
// Check if a subsidy applies. |
|
1176 |
subsidised = CheckSubsidised(s_from, s_to, cargo_type); |
|
1177 |
||
1178 |
// Increase town's counter for some special goods types |
|
1179 |
{ |
|
1180 |
Town *t = s_to->town; |
|
1181 |
if (cargo_type == CT_FOOD) t->new_act_food += num_pieces; |
|
4
cad62d5f9708
(svn r5) -Fix: townname generation of TTDLX savegames. All work
darkvater
parents:
0
diff
changeset
|
1182 |
if (cargo_type == CT_STEEL) t->new_act_water += num_pieces; |
0 | 1183 |
} |
1184 |
||
1185 |
// Give the goods to the industry. |
|
1186 |
DeliverGoodsToIndustry(s_to->xy, cargo_type, num_pieces); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1187 |
|
0 | 1188 |
// Determine profit |
1189 |
{ |
|
1190 |
int t = GetTileDist(s_from->xy, s_to->xy); |
|
1191 |
int r = num_pieces; |
|
1192 |
profit = 0; |
|
1193 |
do { |
|
1194 |
int u = min(r, 255); |
|
1195 |
r -= u; |
|
1196 |
profit += GetTransportedGoodsIncome(u, t, days_in_transit, cargo_type); |
|
1197 |
} while (r != 0); |
|
1198 |
} |
|
1199 |
||
1200 |
// Modify profit if a subsidy is in effect |
|
1201 |
if (subsidised) { |
|
1202 |
if (_opt.diff.subsidy_multiplier < 1) { |
|
1203 |
/* 1.5x */ |
|
1204 |
profit += profit >> 1; |
|
1205 |
} else if (_opt.diff.subsidy_multiplier == 1) { |
|
1206 |
/* 2x */ |
|
1207 |
profit *= 2; |
|
1208 |
} else if (_opt.diff.subsidy_multiplier == 2) { |
|
1209 |
/* 3x */ |
|
1210 |
profit *= 3; |
|
1211 |
} else { |
|
1212 |
/* 4x */ |
|
1213 |
profit *= 4; |
|
1214 |
} |
|
1215 |
} |
|
1216 |
||
1217 |
// Computers get 25% extra profit if they're intelligent. |
|
1218 |
if (_opt.diff.competitor_intelligence>=1 && !IS_HUMAN_PLAYER(_current_player)) |
|
1219 |
profit += profit >> 2; |
|
1220 |
||
1221 |
return profit; |
|
1222 |
} |
|
1223 |
||
523
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1224 |
/* |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1225 |
* Returns true if Vehicle v should wait loading because other vehicle is |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1226 |
* already loading the same cargo type |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1227 |
* v = vehicle to load, u = GetFirstInChain(v) |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1228 |
*/ |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1229 |
static bool LoadWait(const Vehicle *v, const Vehicle *u) { |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1230 |
const Vehicle *w; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1231 |
const Vehicle *x; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1232 |
bool has_any_cargo = false; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1233 |
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
1234 |
if (!(u->current_order.flags & OF_FULL_LOAD)) return false; |
523
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1235 |
|
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1236 |
for (w = u; w != NULL; w = w->next) { |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1237 |
if (w->cargo_count != 0) { |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1238 |
if (v->cargo_type == w->cargo_type && |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1239 |
u->last_station_visited == w->cargo_source) |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1240 |
return false; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1241 |
has_any_cargo = true; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1242 |
} |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1243 |
} |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1244 |
|
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1245 |
FOR_ALL_VEHICLES(x) { |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1246 |
if ((x->type != VEH_Train || x->subtype == 0) && // for all locs |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1247 |
u->last_station_visited == x->last_station_visited && // at the same station |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1248 |
!(x->vehstatus & VS_STOPPED) && // not stopped |
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
1249 |
x->current_order.type == OT_LOADING && // loading |
523
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1250 |
u != x) { // not itself |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1251 |
bool other_has_any_cargo = false; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1252 |
bool has_space_for_same_type = false; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1253 |
bool other_has_same_type = false; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1254 |
|
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1255 |
for (w = x; w != NULL; w = w->next) { |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1256 |
if (w->cargo_count < w->cargo_cap && v->cargo_type == w->cargo_type) |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1257 |
has_space_for_same_type = true; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1258 |
|
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1259 |
if (w->cargo_count != 0) { |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1260 |
if (v->cargo_type == w->cargo_type && |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1261 |
u->last_station_visited == w->cargo_source) |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1262 |
other_has_same_type = true; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1263 |
other_has_any_cargo = true; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1264 |
} |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1265 |
} |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1266 |
|
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1267 |
if (has_space_for_same_type) { |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1268 |
if (other_has_same_type) return true; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1269 |
if (other_has_any_cargo && !has_any_cargo) return true; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1270 |
} |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1271 |
} |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1272 |
} |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1273 |
|
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1274 |
return false; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1275 |
} |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1276 |
|
0 | 1277 |
int LoadUnloadVehicle(Vehicle *v) |
1278 |
{ |
|
1279 |
int profit = 0; |
|
1280 |
int unloading_time = 20; |
|
1281 |
Vehicle *u = v; |
|
1282 |
int result = 0; |
|
1283 |
int last_visited; |
|
1284 |
Station *st; |
|
1285 |
GoodsEntry *ge; |
|
1286 |
int t; |
|
1287 |
uint count, cap; |
|
260
32fcaaf9f4ef
(svn r266) -Fix: hopefully fixed the desync problem nicely (and reverted the
truelight
parents:
240
diff
changeset
|
1288 |
byte old_player; |
445
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1289 |
bool completely_empty = true; |
0 | 1290 |
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
1291 |
assert(v->current_order.type == OT_LOADING); |
0 | 1292 |
|
1293 |
v->cur_speed = 0; |
|
260
32fcaaf9f4ef
(svn r266) -Fix: hopefully fixed the desync problem nicely (and reverted the
truelight
parents:
240
diff
changeset
|
1294 |
old_player = _current_player; |
0 | 1295 |
_current_player = v->owner; |
1296 |
||
1297 |
st = DEREF_STATION(last_visited = v->last_station_visited); |
|
1298 |
||
499 | 1299 |
for (; v != NULL; v = v->next) { |
1300 |
if (v->cargo_cap == 0) continue; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1301 |
|
0 | 1302 |
ge = &st->goods[v->cargo_type]; |
1303 |
||
1304 |
/* unload? */ |
|
1305 |
if (v->cargo_count != 0) { |
|
1306 |
if (v->cargo_source != (byte)last_visited && ge->waiting_acceptance & 0x8000) { |
|
1307 |
// deliver goods to the station |
|
1308 |
unloading_time += v->cargo_count; /* TTDBUG: bug in original TTD */ |
|
1309 |
profit += DeliverGoods(v->cargo_count, v->cargo_type, v->cargo_source, last_visited, v->cargo_days); |
|
1310 |
result |= 1; |
|
1311 |
v->cargo_count = 0; |
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
1312 |
} else if (u->current_order.flags & OF_UNLOAD) { |
0 | 1313 |
/* unload goods and let it wait at the station */ |
1314 |
st->time_since_unload = 0; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1315 |
|
0 | 1316 |
if ((t=ge->waiting_acceptance & 0xFFF) == 0) { |
1317 |
// No goods waiting at station |
|
1318 |
ge->enroute_time = v->cargo_days; |
|
1319 |
ge->enroute_from = v->cargo_source; |
|
1320 |
} else { |
|
1321 |
// Goods already waiting at station. Set counters to the worst value. |
|
1322 |
if (v->cargo_days >= ge->enroute_time) |
|
1323 |
ge->enroute_time = v->cargo_days; |
|
1324 |
if ((byte)last_visited != ge->enroute_from) |
|
1325 |
ge->enroute_from = v->cargo_source; |
|
1326 |
} |
|
1327 |
// Update amount of waiting cargo |
|
1328 |
ge->waiting_acceptance = (ge->waiting_acceptance &~0xFFF) | min(v->cargo_count + t, 0xFFF); |
|
1329 |
result |= 2; |
|
1330 |
v->cargo_count = 0; |
|
1331 |
} |
|
445
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1332 |
|
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1333 |
if (v->cargo_count != 0) |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1334 |
completely_empty = false; |
0 | 1335 |
} |
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1336 |
|
0 | 1337 |
/* don't pick up goods that we unloaded */ |
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
543
diff
changeset
|
1338 |
if (u->current_order.flags & OF_UNLOAD) continue; |
0 | 1339 |
|
1340 |
/* update stats */ |
|
1341 |
ge->days_since_pickup = 0; |
|
1342 |
t = u->max_speed; |
|
1343 |
if (u->type == VEH_Road) t >>=1; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1344 |
|
0 | 1345 |
// if last speed is 0, we treat that as if no vehicle has ever visited the station. |
1346 |
ge->last_speed = t < 255 ? t : 255; |
|
1347 |
ge->last_age = _cur_year - v->build_year; |
|
1348 |
||
1349 |
// If there's goods waiting at the station, and the vehicle |
|
1350 |
// has capacity for it, load it on the vehicle. |
|
1351 |
if ((count=ge->waiting_acceptance & 0xFFF) != 0 && |
|
1352 |
(cap = v->cargo_cap - v->cargo_count) != 0) { |
|
445
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1353 |
if (v->cargo_count == 0) |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1354 |
TriggerVehicle(v, VEHICLE_TRIGGER_NEW_CARGO); |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1355 |
|
523
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1356 |
/* Skip loading this vehicle if another train/vehicle is already handling |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1357 |
* the same cargo type at this station */ |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1358 |
if (_patches.improved_load && LoadWait(v,u)) continue; |
1184a22723ad
(svn r853) -Feature: Implement improved vehicle loading algorithm
tron
parents:
507
diff
changeset
|
1359 |
|
445
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1360 |
/* TODO: Regarding this, when we do gradual loading, we |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1361 |
* should first unload all vehicles and then start |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1362 |
* loading them. Since this will cause |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1363 |
* VEHICLE_TRIGGER_EMPTY to be called at the time when |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1364 |
* the whole vehicle chain is really totally empty, the |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1365 |
* @completely_empty assignment can then be safely |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1366 |
* removed; that's how TTDPatch behaves too. --pasky */ |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1367 |
completely_empty = false; |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1368 |
|
0 | 1369 |
if (cap > count) cap = count; |
1370 |
v->cargo_count += cap; |
|
1371 |
ge->waiting_acceptance -= cap; |
|
1372 |
unloading_time += cap; |
|
1373 |
st->time_since_load = 0; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
147
diff
changeset
|
1374 |
|
0 | 1375 |
// And record the source of the cargo, and the days in travel. |
1376 |
v->cargo_source = ge->enroute_from; |
|
1377 |
v->cargo_days = ge->enroute_time; |
|
1378 |
result |= 2; |
|
1379 |
st->last_vehicle = v->index; |
|
1380 |
} |
|
1381 |
} |
|
1382 |
||
1383 |
v = u; |
|
1384 |
||
1385 |
if (v->type == VEH_Train) { |
|
1386 |
int num = - (int)GetStationPlatforms(st, v->tile) * 2; |
|
1387 |
do num++; while ( (v=v->next) != NULL); |
|
1388 |
if (num > 0) { |
|
1389 |
unloading_time <<=1; |
|
1390 |
unloading_time += num * unloading_time; |
|
1391 |
} |
|
1392 |
v = u; |
|
1393 |
} |
|
1394 |
||
1395 |
v->load_unload_time_rem = unloading_time; |
|
1396 |
||
445
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1397 |
if (completely_empty) { |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1398 |
TriggerVehicle(v, VEHICLE_TRIGGER_EMPTY); |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1399 |
} |
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
337
diff
changeset
|
1400 |
|
0 | 1401 |
if (result != 0) { |
1402 |
InvalidateWindow(WC_VEHICLE_DETAILS, v->index); |
|
1403 |
||
1404 |
if (result & 2) |
|
1405 |
InvalidateWindow(WC_STATION_VIEW, last_visited); |
|
1406 |
||
1407 |
if (profit != 0) { |
|
1408 |
v->profit_this_year += profit; |
|
1409 |
SubtractMoneyFromPlayer(-profit); |
|
1410 |
||
1411 |
if (_current_player == _local_player) |
|
541 | 1412 |
SndPlayVehicleFx(SND_14_CASHTILL, v); |
0 | 1413 |
|
1414 |
ShowCostOrIncomeAnimation(v->x_pos, v->y_pos, v->z_pos, -profit); |
|
1415 |
} |
|
1416 |
} |
|
1417 |
||
260
32fcaaf9f4ef
(svn r266) -Fix: hopefully fixed the desync problem nicely (and reverted the
truelight
parents:
240
diff
changeset
|
1418 |
_current_player = old_player; |
0 | 1419 |
return result; |
1420 |
} |
|
1421 |
||
1422 |
void PlayersMonthlyLoop() |
|
1423 |
{ |
|
1424 |
PlayersGenStatistics(); |
|
1425 |
if (_patches.inflation) |
|
1426 |
AddInflation(); |
|
1427 |
PlayersPayInterest(); |
|
206 | 1428 |
// Reset the _current_player flag |
1429 |
_current_player = OWNER_NONE; |
|
0 | 1430 |
HandleEconomyFluctuations(); |
1431 |
SubsidyMonthlyHandler(); |
|
1432 |
} |
|
1433 |
||
1434 |
static void DoAcquireCompany(Player *p) |
|
1435 |
{ |
|
1436 |
Player *owner; |
|
1437 |
int i,pi; |
|
200
03b8104d1479
(svn r201) -Fix: [1025836] Company values bigger dan int32 were put to negative
truelight
parents:
193
diff
changeset
|
1438 |
int64 value; |
0 | 1439 |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
1440 |
SetDParam(0, p->name_1); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
1441 |
SetDParam(1, p->name_2); |
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
523
diff
changeset
|
1442 |
SetDParam(2, p->bankrupt_value); |
0 | 1443 |
AddNewsItem( (StringID)(_current_player + 16*2), NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0); |
1444 |
||
1445 |
// original code does this a little bit differently |
|
1446 |
pi = p->index; |
|
1447 |
ChangeOwnershipOfPlayerItems(pi, _current_player); |
|
1448 |
||
1449 |
if (p->bankrupt_value == 0) { |
|
1450 |
owner = DEREF_PLAYER(_current_player); |
|
1451 |
owner->current_loan += p->current_loan; |
|
1452 |
} |
|
1453 |
||
1454 |
value = CalculateCompanyValue(p) >> 2; |
|
1455 |
for(i=0; i!=4; i++) { |
|
1456 |
if (p->share_owners[i] != 0xFF) { |
|
1457 |
owner = DEREF_PLAYER(p->share_owners[i]); |
|
1458 |
owner->money64 += value; |
|
1459 |
owner->yearly_expenses[0][EXPENSES_OTHER] += value; |
|
1460 |
UpdatePlayerMoney32(owner); |
|
1461 |
} |
|
1462 |
} |
|
1463 |
||
1464 |
p->is_active = false; |
|
1465 |
||
1466 |
DeletePlayerWindows(pi); |
|
1467 |
} |
|
1468 |
||
599
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1469 |
extern int GetAmountOwnedBy(Player *p, byte owner); |
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1470 |
|
0 | 1471 |
int32 CmdBuyShareInCompany(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
1472 |
{ |
|
1473 |
Player *p; |
|
200
03b8104d1479
(svn r201) -Fix: [1025836] Company values bigger dan int32 were put to negative
truelight
parents:
193
diff
changeset
|
1474 |
int64 cost; |
0 | 1475 |
byte *b; |
1476 |
int i; |
|
1477 |
||
1478 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
1479 |
p = DEREF_PLAYER(p1); |
|
1480 |
||
599
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1481 |
/* Those lines are here for network-protection (clients can be slow) */ |
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1482 |
if (GetAmountOwnedBy(p, OWNER_SPECTATOR) == 0) |
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1483 |
return 0; |
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1484 |
/* We can not buy out a real player in networking */ |
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1485 |
if (GetAmountOwnedBy(p, OWNER_SPECTATOR) == 1 && !p->is_ai) |
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1486 |
return 0; |
80e49e323483
(svn r1023) -Fix: [Network] [ 1083692 ] You can no longer buy out a company in MP
truelight
parents:
555
diff
changeset
|
1487 |
|
0 | 1488 |
cost = CalculateCompanyValue(p) >> 2; |
1489 |
if (flags & DC_EXEC) { |
|
1490 |
b = p->share_owners; |
|
1491 |
while (*b != 0xFF) b++; /* share owners is guaranteed to contain at least one 0xFF */ |
|
1492 |
*b = _current_player; |
|
1493 |
||
1494 |
for(i=0;p->share_owners[i] == _current_player;) { |
|
1495 |
if (++i == 4) { |
|
1496 |
p->bankrupt_value = 0; |
|
1497 |
DoAcquireCompany(p); |
|
1498 |
break; |
|
1499 |
} |
|
1500 |
} |
|
1501 |
InvalidateWindow(WC_COMPANY, (int)p1); |
|
1502 |
} |
|
1503 |
return cost; |
|
1504 |
} |
|
1505 |
||
1506 |
int32 CmdSellShareInCompany(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
1507 |
{ |
|
1508 |
Player *p; |
|
200
03b8104d1479
(svn r201) -Fix: [1025836] Company values bigger dan int32 were put to negative
truelight
parents:
193
diff
changeset
|
1509 |
int64 cost; |
0 | 1510 |
byte *b; |
1511 |
||
1512 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
1513 |
p = DEREF_PLAYER(p1); |
|
1514 |
||
1515 |
/* adjust it a little to make it less profitable to sell and buy */ |
|
1516 |
cost = CalculateCompanyValue(p) >> 2; |
|
1517 |
cost = -(cost - (cost >> 7)); |
|
1518 |
||
1519 |
if (flags & DC_EXEC) { |
|
1520 |
b = p->share_owners; |
|
1521 |
while (*b != _current_player) b++; /* share owners is guaranteed to contain player */ |
|
1522 |
*b = 0xFF; |
|
1523 |
InvalidateWindow(WC_COMPANY, (int)p1); |
|
1524 |
} |
|
1525 |
return cost; |
|
1526 |
} |
|
1527 |
||
1528 |
int32 CmdBuyCompany(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
1529 |
{ |
|
1530 |
Player *p; |
|
1531 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
1532 |
p = DEREF_PLAYER(p1); |
|
1533 |
if (flags & 1) { |
|
1534 |
DoAcquireCompany(p); |
|
1535 |
} |
|
1536 |
return p->bankrupt_value; |
|
1537 |
} |
|
1538 |
||
1539 |
// Prices |
|
1540 |
static void SaveLoad_PRIC() |
|
1541 |
{ |
|
1542 |
SlArray(&_price, NUM_PRICES, SLE_INT32); |
|
1543 |
SlArray(&_price_frac, NUM_PRICES, SLE_UINT16); |
|
1544 |
} |
|
1545 |
||
1546 |
// Cargo payment rates |
|
1547 |
static void SaveLoad_CAPR() |
|
1548 |
{ |
|
1549 |
SlArray(&_cargo_payment_rates, NUM_CARGO, SLE_INT32); |
|
1550 |
SlArray(&_cargo_payment_rates_frac, NUM_CARGO, SLE_UINT16); |
|
1551 |
} |
|
1552 |
||
1553 |
static const byte _economy_desc[] = { |
|
1554 |
SLE_VAR(Economy,max_loan, SLE_INT32), |
|
1555 |
SLE_VAR(Economy,max_loan_unround, SLE_INT32), |
|
1556 |
SLE_VAR(Economy,fluct, SLE_FILE_I16 | SLE_VAR_I32), |
|
1557 |
SLE_VAR(Economy,interest_rate, SLE_UINT8), |
|
1558 |
SLE_VAR(Economy,infl_amount, SLE_UINT8), |
|
1559 |
SLE_VAR(Economy,infl_amount_pr, SLE_UINT8), |
|
1560 |
SLE_END() |
|
1561 |
}; |
|
1562 |
||
1563 |
// Economy variables |
|
1564 |
static void SaveLoad_ECMY() |
|
1565 |
{ |
|
1566 |
SlObject(&_economy, &_economy_desc); |
|
1567 |
} |
|
1568 |
||
1569 |
const ChunkHandler _economy_chunk_handlers[] = { |
|
1570 |
{ 'PRIC', SaveLoad_PRIC, SaveLoad_PRIC, CH_RIFF | CH_AUTO_LENGTH}, |
|
1571 |
{ 'CAPR', SaveLoad_CAPR, SaveLoad_CAPR, CH_RIFF | CH_AUTO_LENGTH}, |
|
1572 |
{ 'SUBS', Save_SUBS, Load_SUBS, CH_ARRAY}, |
|
1573 |
{ 'ECMY', SaveLoad_ECMY, SaveLoad_ECMY, CH_RIFF | CH_LAST}, |
|
1574 |
}; |
|
1575 |
||
1576 |
||
1577 |
||
1578 |