author | dominik |
Tue, 10 Aug 2004 16:34:01 +0000 | |
changeset 8 | 9ab81ef450f2 |
parent 4 | cad62d5f9708 |
child 9 | b1ecf90eb6da |
permissions | -rw-r--r-- |
0 | 1 |
#include "stdafx.h" |
2 |
#include "ttd.h" |
|
3 |
#include "news.h" |
|
4 |
#include "player.h" |
|
5 |
#include "station.h" |
|
6 |
#include "vehicle.h" |
|
7 |
#include "window.h" |
|
8 |
#include "gfx.h" |
|
9 |
#include "command.h" |
|
10 |
#include "saveload.h" |
|
11 |
#include "economy.h" |
|
12 |
#include "industry.h" |
|
13 |
#include "town.h" |
|
14 |
||
15 |
static void UpdatePlayerHouse(Player *p, uint score) |
|
16 |
{ |
|
17 |
byte val; |
|
18 |
uint tile = p->location_of_house; |
|
19 |
||
20 |
if (tile == 0) |
|
21 |
return; |
|
22 |
||
23 |
(val = 128, score < 170) || |
|
24 |
(val+= 4, score < 350) || |
|
25 |
(val+= 4, score < 520) || |
|
26 |
(val+= 4, score < 720) || |
|
27 |
(val+= 4, true); |
|
28 |
||
29 |
/* house is already big enough */ |
|
30 |
if (val <= _map5[tile]) |
|
31 |
return; |
|
32 |
||
33 |
_map5[tile + TILE_XY(0,0)] = val; |
|
34 |
_map5[tile + TILE_XY(0,1)] = ++val; |
|
35 |
_map5[tile + TILE_XY(1,0)] = ++val; |
|
36 |
_map5[tile + TILE_XY(1,1)] = ++val; |
|
37 |
||
38 |
MarkTileDirtyByTile(tile + TILE_XY(0,0)); |
|
39 |
MarkTileDirtyByTile(tile + TILE_XY(0,1)); |
|
40 |
MarkTileDirtyByTile(tile + TILE_XY(1,0)); |
|
41 |
MarkTileDirtyByTile(tile + TILE_XY(1,1)); |
|
42 |
} |
|
43 |
||
44 |
uint32 CalculateCompanyValue(Player *p) { |
|
45 |
byte owner = p->index; |
|
46 |
uint32 value; |
|
47 |
||
48 |
{ |
|
49 |
Station *st; |
|
50 |
uint num = 0; |
|
51 |
||
52 |
FOR_ALL_STATIONS(st) { |
|
53 |
if (st->xy != 0 && st->owner == owner) { |
|
54 |
uint facil = st->facilities; |
|
55 |
do num += (facil&1); while (facil >>= 1); |
|
56 |
} |
|
57 |
} |
|
58 |
||
59 |
value = num * _price.station_value * 25; |
|
60 |
} |
|
61 |
||
62 |
{ |
|
63 |
Vehicle *v; |
|
64 |
||
65 |
FOR_ALL_VEHICLES(v) { |
|
66 |
if (v->owner != owner) |
|
67 |
continue; |
|
68 |
if (v->type == VEH_Train || |
|
69 |
v->type == VEH_Road || |
|
70 |
(v->type == VEH_Aircraft && v->subtype<=2) || |
|
71 |
v->type == VEH_Ship) { |
|
72 |
value += v->value * 3 >> 1; |
|
73 |
} |
|
74 |
} |
|
75 |
} |
|
76 |
||
77 |
if (p->player_money > 0) |
|
78 |
value += p->player_money; |
|
79 |
||
80 |
return value; |
|
81 |
} |
|
82 |
||
83 |
static void UpdateCompanyRatingAndValue(Player *p) |
|
84 |
{ |
|
85 |
byte owner = p->index; |
|
86 |
uint score; |
|
87 |
||
88 |
/* Count vehicles */ |
|
89 |
{ |
|
90 |
Vehicle *v; |
|
91 |
int32 min_profit = MAX_INT; |
|
92 |
uint num = 0; |
|
93 |
||
94 |
FOR_ALL_VEHICLES(v) { |
|
95 |
if (v->owner != owner) |
|
96 |
continue; |
|
97 |
if ((v->type == VEH_Train && v->subtype == 0) || |
|
98 |
v->type == VEH_Road || |
|
99 |
(v->type == VEH_Aircraft && v->subtype<=2) || |
|
100 |
v->type == VEH_Ship) { |
|
101 |
num++; |
|
102 |
if (v->age > 730) { |
|
103 |
if (min_profit >= v->profit_last_year) |
|
104 |
min_profit = v->profit_last_year; |
|
105 |
} |
|
106 |
} |
|
107 |
} |
|
108 |
||
109 |
score = (num < 120) ? num * 100 / 120 : 100; |
|
110 |
||
111 |
if (min_profit != MAX_INT && min_profit > 0) |
|
112 |
score += (min_profit < 10000) ? min_profit/100 : 100; |
|
113 |
} |
|
114 |
||
115 |
/* Count stations */ |
|
116 |
{ |
|
117 |
uint num = 0; |
|
118 |
Station *st; |
|
119 |
||
120 |
FOR_ALL_STATIONS(st) { |
|
121 |
if (st->xy != 0 && st->owner == owner) { |
|
122 |
int facil = st->facilities; |
|
123 |
do num += facil&1; while (facil>>=1); |
|
124 |
} |
|
125 |
} |
|
126 |
score += (num < 80) ? num * 100 / 80 : 100; |
|
127 |
} |
|
128 |
||
129 |
/* Generate statistics depending on recent income statistics */ |
|
130 |
{ |
|
131 |
PlayerEconomyEntry *pee; |
|
132 |
int numec; |
|
133 |
int32 min_income; |
|
134 |
uint32 max_income; |
|
135 |
||
136 |
numec = min(p->num_valid_stat_ent, 12); |
|
137 |
if (numec != 0) { |
|
138 |
min_income = 0x7FFFFFFF; |
|
139 |
max_income = 0; |
|
140 |
pee = p->old_economy; |
|
141 |
do { |
|
142 |
min_income = min(min_income, pee->income + pee->expenses); |
|
143 |
max_income = max(max_income, pee->income + pee->expenses); |
|
144 |
} while (++pee,--numec); |
|
145 |
||
146 |
if (min_income > 0) |
|
147 |
score += min_income >= 50000 ? 50 : min_income / 1000; |
|
148 |
||
149 |
score += max_income >= 100000 ? 100 : max_income / 1000; |
|
150 |
} |
|
151 |
} |
|
152 |
||
153 |
/* Generate score depending on amount of transported cargo */ |
|
154 |
{ |
|
155 |
PlayerEconomyEntry *pee; |
|
156 |
int numec; |
|
157 |
uint32 total_delivered; |
|
158 |
||
159 |
numec = min(p->num_valid_stat_ent, 4); |
|
160 |
if (numec != 0) { |
|
161 |
pee = p->old_economy; |
|
162 |
total_delivered = 0; |
|
163 |
do { |
|
164 |
total_delivered += pee->delivered_cargo; |
|
165 |
} while (++pee,--numec); |
|
166 |
||
167 |
score += total_delivered >= 40000 ? 400 : total_delivered / 100; |
|
168 |
} |
|
169 |
} |
|
170 |
||
171 |
/* Generate score for variety of cargo */ |
|
172 |
{ |
|
173 |
uint cargo = p->cargo_types; |
|
174 |
uint num = 0; |
|
175 |
do num += cargo&1; while (cargo>>=1); |
|
176 |
score += num < 8 ? num * 50 / 8 : 50; |
|
177 |
p->cargo_types = 0; |
|
178 |
} |
|
179 |
||
180 |
/* Generate score for player money */ |
|
181 |
{ |
|
182 |
int32 money = p->player_money; |
|
183 |
if (money > 0) { |
|
184 |
score += money < 10000000 ? money / (10000000/50) : 50; |
|
185 |
} |
|
186 |
} |
|
187 |
||
188 |
/* Generate score for loan */ |
|
189 |
{ |
|
190 |
score += (250000 - p->current_loan) >= 0 ? (250000 - p->current_loan) / 5000 : 0; |
|
191 |
} |
|
192 |
||
193 |
p->old_economy[0].performance_history = score; |
|
194 |
UpdatePlayerHouse(p, score); |
|
195 |
p->old_economy[0].company_value = CalculateCompanyValue(p); |
|
196 |
} |
|
197 |
||
198 |
// use 255 as new_player to delete the player. |
|
199 |
void ChangeOwnershipOfPlayerItems(byte old_player, byte new_player) |
|
200 |
{ |
|
201 |
byte old = _current_player; |
|
202 |
_current_player = old_player; |
|
203 |
||
204 |
if (new_player == 255) { |
|
205 |
Subsidy *s; |
|
206 |
||
207 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
208 |
if (s->cargo_type != 0xff && s->age >= 12) { |
|
209 |
Station *st = DEREF_STATION(s->to); |
|
210 |
if (st->owner == old_player) |
|
211 |
s->cargo_type = 0xff; |
|
212 |
} |
|
213 |
} |
|
214 |
} |
|
215 |
||
216 |
// take care of rating in towns |
|
217 |
{ |
|
218 |
Town *t; |
|
219 |
||
220 |
// if a player takes over, give the ratings to that player. |
|
221 |
if (new_player != 255) { |
|
222 |
FOR_ALL_TOWNS(t) if (t->xy && HASBIT(t->have_ratings, old_player)) { |
|
223 |
if (HASBIT(t->have_ratings, new_player)) { |
|
224 |
// use max of the two ratings. |
|
225 |
t->ratings[new_player] = max(t->ratings[new_player], t->ratings[old_player]); |
|
226 |
} else { |
|
227 |
SETBIT(t->have_ratings, new_player); |
|
228 |
t->ratings[new_player] = t->ratings[old_player]; |
|
229 |
} |
|
230 |
} |
|
231 |
} |
|
232 |
||
233 |
// reset rating for the towns. |
|
234 |
FOR_ALL_TOWNS(t) if (t->xy) { |
|
235 |
t->ratings[old_player] = 500; |
|
236 |
CLRBIT(t->have_ratings, old_player); |
|
237 |
} |
|
238 |
} |
|
239 |
||
240 |
{ |
|
241 |
int num_train = 0; |
|
242 |
int num_road = 0; |
|
243 |
int num_ship = 0; |
|
244 |
int num_aircraft = 0; |
|
245 |
Vehicle *v; |
|
246 |
||
247 |
// Determine Ids for the new vehicles |
|
248 |
FOR_ALL_VEHICLES(v) { |
|
249 |
if (v->owner == new_player) { |
|
250 |
if (v->type == VEH_Train && v->subtype == 0) |
|
251 |
num_train++; |
|
252 |
else if (v->type == VEH_Road) |
|
253 |
num_road++; |
|
254 |
else if (v->type == VEH_Ship) |
|
255 |
num_ship++; |
|
256 |
else if (v->type == VEH_Aircraft && v->subtype <= 2) |
|
257 |
num_aircraft++; |
|
258 |
} |
|
259 |
} |
|
260 |
||
261 |
FOR_ALL_VEHICLES(v) { |
|
262 |
if (v->owner == old_player && IS_BYTE_INSIDE(v->type, VEH_Train, VEH_Aircraft+1) ) { |
|
263 |
if (new_player == 255) { |
|
264 |
DeleteWindowById(WC_VEHICLE_VIEW, v->index); |
|
265 |
DeleteWindowById(WC_VEHICLE_DETAILS, v->index); |
|
266 |
DeleteWindowById(WC_VEHICLE_ORDERS, v->index); |
|
267 |
DeleteVehicle(v); |
|
268 |
} else { |
|
269 |
v->owner = new_player; |
|
270 |
if (v->type == VEH_Train && v->subtype == 0) |
|
271 |
v->unitnumber = ++num_train; |
|
272 |
else if (v->type == VEH_Road) |
|
273 |
v->unitnumber = ++num_road; |
|
274 |
else if (v->type == VEH_Ship) |
|
275 |
v->unitnumber = ++num_ship; |
|
276 |
else if (v->type == VEH_Aircraft && v->subtype <= 2) |
|
277 |
v->unitnumber = ++num_aircraft; |
|
278 |
} |
|
279 |
} |
|
280 |
} |
|
281 |
} |
|
282 |
||
283 |
// Change ownership of tiles |
|
284 |
{ |
|
285 |
uint tile = 0; |
|
286 |
do { |
|
287 |
ChangeTileOwner(tile, old_player, new_player); |
|
288 |
} while (++tile != TILES_X * TILES_Y); |
|
289 |
} |
|
290 |
||
291 |
// Change color of existing windows |
|
292 |
if (new_player != 255) { |
|
293 |
Window *w; |
|
294 |
for(w=_windows; w != _last_window; w++) { |
|
295 |
if (w->caption_color == old_player) |
|
296 |
w->caption_color = new_player; |
|
297 |
} |
|
298 |
} |
|
299 |
||
300 |
_current_player = old; |
|
301 |
||
302 |
MarkWholeScreenDirty(); |
|
303 |
} |
|
304 |
||
305 |
extern void DeletePlayerWindows(int pi); |
|
306 |
||
307 |
static void PlayersCheckBankrupt(Player *p) |
|
308 |
{ |
|
309 |
int owner; |
|
310 |
uint32 val; |
|
311 |
||
312 |
if (p->player_money >= 0) { |
|
313 |
p->quarters_of_bankrupcy = 0; |
|
314 |
return; |
|
315 |
} |
|
316 |
||
317 |
p->quarters_of_bankrupcy++; |
|
318 |
||
319 |
owner = p->index; |
|
320 |
||
321 |
if (p->quarters_of_bankrupcy == 2) { |
|
322 |
year_2: |
|
323 |
AddNewsItem( (StringID)(owner + 16), |
|
324 |
NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0); |
|
325 |
||
326 |
} else if (p->quarters_of_bankrupcy == 3) { |
|
327 |
if (IS_HUMAN_PLAYER(owner)) |
|
328 |
goto year_2; |
|
329 |
||
330 |
val = CalculateCompanyValue(p); |
|
331 |
if (val == 0) goto year_4; |
|
332 |
||
333 |
p->bankrupt_value = val; |
|
334 |
p->bankrupt_asked = 1 << owner; |
|
335 |
p->bankrupt_timeout = 0; |
|
336 |
} else if (p->quarters_of_bankrupcy == 4) { |
|
337 |
year_4: |
|
338 |
DeletePlayerWindows(owner); |
|
339 |
||
340 |
if (IS_HUMAN_PLAYER(owner)) { |
|
341 |
// what does this code do?? |
|
342 |
InitNewsItemStructs(); |
|
343 |
DeleteWindowById(WC_NEWS_WINDOW, 0); |
|
344 |
} |
|
345 |
||
346 |
// Show bankrupt news |
|
347 |
SET_DPARAM16(0, p->name_1); |
|
348 |
SET_DPARAM32(1, p->name_2); |
|
349 |
AddNewsItem( (StringID)(owner + 16*3), NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0); |
|
350 |
||
351 |
if (IS_HUMAN_PLAYER(owner)) { |
|
352 |
p->bankrupt_asked = 255; |
|
353 |
p->bankrupt_timeout = 0x456; |
|
354 |
} else { |
|
355 |
p->money64 = p->player_money = 100000000; |
|
356 |
ChangeOwnershipOfPlayerItems(owner, 0xFF); |
|
357 |
p->is_active = false; |
|
358 |
} |
|
359 |
} |
|
360 |
} |
|
361 |
||
362 |
void DrawNewsBankrupcy(Window *w) |
|
363 |
{ |
|
364 |
Player *p; |
|
365 |
||
366 |
DrawNewsBorder(w); |
|
367 |
||
368 |
p = DEREF_PLAYER(WP(w,news_d).ni->string_id & 15); |
|
369 |
DrawPlayerFace(p->face, p->player_color, 2, 23); |
|
370 |
GfxFillRect(3, 23, 3+91, 23+118, 0x4323); |
|
371 |
||
372 |
SET_DPARAM16(0, p->president_name_1); |
|
373 |
SET_DPARAM32(1, p->president_name_2); |
|
374 |
||
375 |
DrawStringMultiCenter(49, 148, STR_7058_PRESIDENT, 94); |
|
376 |
||
377 |
switch(WP(w,news_d).ni->string_id >> 4) { |
|
378 |
case 1: |
|
379 |
DrawStringCentered(w->width>>1, 1, STR_7056_TRANSPORT_COMPANY_IN_TROUBLE, 0); |
|
380 |
||
381 |
SET_DPARAM16(0, p->name_1); |
|
382 |
SET_DPARAM32(1, p->name_2); |
|
383 |
||
384 |
DrawStringMultiCenter( |
|
385 |
((w->width - 101) >> 1) + 98, |
|
386 |
90, |
|
387 |
STR_7057_WILL_BE_SOLD_OFF_OR_DECLARED, |
|
388 |
w->width - 101); |
|
389 |
break; |
|
390 |
||
391 |
case 2: { |
|
392 |
int32 price; |
|
393 |
||
394 |
DrawStringCentered(w->width>>1, 1, STR_7059_TRANSPORT_COMPANY_MERGER, 0); |
|
395 |
COPY_IN_DPARAM(0,WP(w,news_d).ni->params, 2); |
|
396 |
SET_DPARAM16(2, p->name_1); |
|
397 |
SET_DPARAM32(3, p->name_2); |
|
398 |
price = WP(w,news_d).ni->params[2]; |
|
399 |
SET_DPARAM32(4, price); |
|
400 |
DrawStringMultiCenter( |
|
401 |
((w->width - 101) >> 1) + 98, |
|
402 |
90, |
|
403 |
price==0 ? STR_707F_HAS_BEEN_TAKEN_OVER_BY : STR_705A_HAS_BEEN_SOLD_TO_FOR, |
|
404 |
w->width - 101); |
|
405 |
break; |
|
406 |
} |
|
407 |
||
408 |
case 3: |
|
409 |
DrawStringCentered(w->width>>1, 1, STR_705C_BANKRUPT, 0); |
|
410 |
COPY_IN_DPARAM(0,WP(w,news_d).ni->params, 2); |
|
411 |
DrawStringMultiCenter( |
|
412 |
((w->width - 101) >> 1) + 98, |
|
413 |
90, |
|
414 |
STR_705D_HAS_BEEN_CLOSED_DOWN_BY, |
|
415 |
w->width - 101); |
|
416 |
break; |
|
417 |
||
418 |
case 4: |
|
419 |
DrawStringCentered(w->width>>1, 1, STR_705E_NEW_TRANSPORT_COMPANY_LAUNCHED, 0); |
|
420 |
SET_DPARAM16(0, p->name_1); |
|
421 |
SET_DPARAM32(1, p->name_2); |
|
422 |
COPY_IN_DPARAM(2,WP(w,news_d).ni->params, 2); |
|
423 |
DrawStringMultiCenter( |
|
424 |
((w->width - 101) >> 1) + 98, |
|
425 |
90, |
|
426 |
STR_705F_STARTS_CONSTRUCTION_NEAR, |
|
427 |
w->width - 101); |
|
428 |
break; |
|
429 |
||
430 |
default: |
|
431 |
NOT_REACHED(); |
|
432 |
} |
|
433 |
} |
|
434 |
||
435 |
StringID GetNewsStringBankrupcy(NewsItem *ni) |
|
436 |
{ |
|
437 |
Player *p = DEREF_PLAYER(ni->string_id & 0xF); |
|
438 |
||
439 |
switch(ni->string_id >> 4) { |
|
440 |
case 1: |
|
441 |
SET_DPARAM16(0, STR_7056_TRANSPORT_COMPANY_IN_TROUBLE); |
|
442 |
SET_DPARAM16(1, STR_7057_WILL_BE_SOLD_OFF_OR_DECLARED); |
|
443 |
SET_DPARAM16(2, p->name_1); |
|
444 |
SET_DPARAM32(3, p->name_2); |
|
445 |
return STR_02B6; |
|
446 |
case 2: |
|
447 |
SET_DPARAM16(0, STR_7059_TRANSPORT_COMPANY_MERGER); |
|
448 |
SET_DPARAM16(1, STR_705A_HAS_BEEN_SOLD_TO_FOR); |
|
449 |
COPY_IN_DPARAM(2,ni->params, 2); |
|
450 |
SET_DPARAM16(4, p->name_1); |
|
451 |
SET_DPARAM32(5, p->name_2); |
|
452 |
COPY_IN_DPARAM(6,ni->params + 2, 1); |
|
453 |
return STR_02B6; |
|
454 |
case 3: |
|
455 |
SET_DPARAM16(0, STR_705C_BANKRUPT); |
|
456 |
SET_DPARAM16(1, STR_705D_HAS_BEEN_CLOSED_DOWN_BY); |
|
457 |
COPY_IN_DPARAM(2,ni->params, 2); |
|
458 |
return STR_02B6; |
|
459 |
case 4: |
|
460 |
SET_DPARAM16(0, STR_705E_NEW_TRANSPORT_COMPANY_LAUNCHED); |
|
461 |
SET_DPARAM16(1, STR_705F_STARTS_CONSTRUCTION_NEAR); |
|
462 |
SET_DPARAM16(2, p->name_1); |
|
463 |
SET_DPARAM32(3, p->name_2); |
|
464 |
COPY_IN_DPARAM(4,ni->params, 2); |
|
465 |
return STR_02B6; |
|
466 |
default: |
|
467 |
NOT_REACHED(); |
|
468 |
} |
|
469 |
||
470 |
/* useless, but avoids compiler warning this way */ |
|
471 |
return 0; |
|
472 |
} |
|
473 |
||
474 |
static void PlayersGenStatistics() |
|
475 |
{ |
|
476 |
Station *st; |
|
477 |
Player *p; |
|
478 |
||
479 |
FOR_ALL_STATIONS(st) { |
|
480 |
if (st->xy != 0) { |
|
481 |
_current_player = st->owner; |
|
482 |
SET_EXPENSES_TYPE(EXPENSES_PROPERTY); |
|
483 |
SubtractMoneyFromPlayer(_price.station_value >> 1); |
|
484 |
} |
|
485 |
} |
|
486 |
||
487 |
if (!HASBIT(1<<0|1<<3|1<<6|1<<9, _cur_month)) |
|
488 |
return; |
|
489 |
||
490 |
FOR_ALL_PLAYERS(p) { |
|
491 |
if (p->is_active) { |
|
492 |
memmove(&p->old_economy, &p->cur_economy, sizeof(p->old_economy)); |
|
493 |
memset(&p->cur_economy, 0, sizeof(p->cur_economy)); |
|
494 |
||
495 |
if (p->num_valid_stat_ent != 24) |
|
496 |
p->num_valid_stat_ent++; |
|
497 |
||
498 |
UpdateCompanyRatingAndValue(p); |
|
499 |
PlayersCheckBankrupt(p); |
|
500 |
||
501 |
if (p->block_preview != 0) |
|
502 |
p->block_preview--; |
|
503 |
} |
|
504 |
} |
|
505 |
||
506 |
InvalidateWindow(WC_INCOME_GRAPH, 0); |
|
507 |
InvalidateWindow(WC_OPERATING_PROFIT, 0); |
|
508 |
InvalidateWindow(WC_DELIVERED_CARGO, 0); |
|
509 |
InvalidateWindow(WC_PERFORMANCE_HISTORY, 0); |
|
510 |
InvalidateWindow(WC_COMPANY_VALUE, 0); |
|
511 |
InvalidateWindow(WC_COMPANY_LEAGUE, 0); |
|
512 |
} |
|
513 |
||
514 |
static void AddSingleInflation(int32 *value, uint16 *frac, int32 amt) |
|
515 |
{ |
|
516 |
int64 tmp; |
|
517 |
int32 low; |
|
518 |
tmp = BIGMULS(*value, amt); |
|
519 |
*frac = (uint16)(low = (uint16)tmp + *frac); |
|
520 |
*value += (int32)(tmp >> 16) + (low >> 16); |
|
521 |
} |
|
522 |
||
523 |
static void AddInflation() |
|
524 |
{ |
|
525 |
int i; |
|
526 |
int32 inf = _economy.infl_amount * 54; |
|
527 |
||
528 |
for(i=0; i!=NUM_PRICES; i++) { |
|
529 |
AddSingleInflation( (int32*)&_price + i, _price_frac + i, inf ); |
|
530 |
} |
|
531 |
||
532 |
_economy.max_loan_unround += BIGMULUS(_economy.max_loan_unround, inf, 16); |
|
533 |
||
534 |
if (_economy.max_loan + 50000 <= _economy.max_loan_unround) |
|
535 |
_economy.max_loan += 50000; |
|
536 |
||
537 |
inf = _economy.infl_amount_pr * 54; |
|
538 |
for(i=0; i!=NUM_CARGO; i++) { |
|
539 |
AddSingleInflation( |
|
540 |
_cargo_payment_rates + i, |
|
541 |
_cargo_payment_rates_frac + i, |
|
542 |
inf |
|
543 |
); |
|
544 |
} |
|
545 |
||
546 |
InvalidateWindowClasses(WC_BUILD_VEHICLE); |
|
547 |
InvalidateWindowClasses(WC_VEHICLE_DETAILS); |
|
548 |
InvalidateWindow(WC_PAYMENT_RATES, 0); |
|
549 |
} |
|
550 |
||
551 |
static void PlayersPayInterest() |
|
552 |
{ |
|
553 |
Player *p; |
|
554 |
int interest = _economy.interest_rate * 54; |
|
555 |
||
556 |
FOR_ALL_PLAYERS(p) { |
|
557 |
if (!p->is_active) |
|
558 |
continue; |
|
559 |
||
560 |
_current_player = p->index; |
|
561 |
SET_EXPENSES_TYPE(EXPENSES_LOAN_INT); |
|
562 |
||
563 |
SubtractMoneyFromPlayer(BIGMULUS(p->current_loan, interest, 16)); |
|
564 |
||
565 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
566 |
SubtractMoneyFromPlayer(_price.station_value >> 2); |
|
567 |
} |
|
568 |
} |
|
569 |
||
570 |
static void HandleEconomyFluctuations() |
|
571 |
{ |
|
572 |
if (_opt.diff.economy == 0) |
|
573 |
return; |
|
574 |
||
575 |
if (--_economy.fluct == 0) { |
|
576 |
_economy.fluct = - (int)(Random()&3); |
|
577 |
AddNewsItem(STR_7073_WORLD_RECESSION_FINANCIAL, NEWS_FLAGS(NM_NORMAL,0,NT_ECONOMY,0), 0, 0); |
|
578 |
} else if (_economy.fluct == -12) { |
|
579 |
_economy.fluct = (Random()&255) + 312; |
|
580 |
AddNewsItem(STR_7074_RECESSION_OVER_UPTURN_IN, NEWS_FLAGS(NM_NORMAL,0,NT_ECONOMY,0), 0, 0); |
|
581 |
} |
|
582 |
} |
|
583 |
||
584 |
static byte _price_category[NUM_PRICES] = { |
|
585 |
0, 2, 2, 2, 2, 2, 2, 2, |
|
586 |
2, 2, 2, 2, 2, 2, 2, 2, |
|
587 |
2, 2, 2, 2, 2, 2, 2, 2, |
|
588 |
2, 2, 2, 2, 2, 2, 2, 2, |
|
589 |
2, 2, 2, 2, 2, 2, 2, 2, |
|
590 |
2, 2, 1, 1, 1, 1, 1, 1, |
|
591 |
2, |
|
592 |
}; |
|
593 |
||
594 |
static const int32 _price_base[NUM_PRICES] = { |
|
595 |
100, 100, 95, 65, 275, 600, 500, 700, |
|
596 |
450, 200, 180, 600, 200, 200, 350, 400000, |
|
597 |
2000, 700000, 14000, 65000, 20, 250, 20, 40, |
|
598 |
200, 500, 20, -70, 10, 50, 80, 80, |
|
599 |
90, 30, 10000, 50, 30, 50, 50, 55, |
|
600 |
1600, 40, 5600, 5200, 4800, 9600, 1600, 5600, |
|
601 |
1000000, |
|
602 |
}; |
|
603 |
||
604 |
void StartupEconomy() |
|
605 |
{ |
|
606 |
int i; |
|
607 |
||
608 |
assert(sizeof(_price) == NUM_PRICES * sizeof(int32)); |
|
609 |
||
610 |
for(i=0; i!=NUM_PRICES; i++) { |
|
611 |
int32 price = _price_base[i]; |
|
612 |
if (_price_category[i] != 0) { |
|
613 |
uint mod = _price_category[i] == 1 ? _opt.diff.vehicle_costs : _opt.diff.construction_cost; |
|
614 |
if (mod < 1) { |
|
615 |
price = price * 3 >> 2; |
|
616 |
} else if (mod > 1) { |
|
617 |
price = price * 9 >> 3; |
|
618 |
} |
|
619 |
} |
|
620 |
((int32*)&_price)[i] = price; |
|
621 |
_price_frac[i] = 0; |
|
622 |
} |
|
623 |
||
624 |
_economy.interest_rate = _opt.diff.initial_interest; |
|
625 |
_economy.infl_amount = _opt.diff.initial_interest; |
|
626 |
_economy.infl_amount_pr = max(0, _opt.diff.initial_interest - 1); |
|
627 |
_economy.max_loan_unround = _economy.max_loan = _opt.diff.max_loan * 1000; |
|
628 |
_economy.fluct = (byte)(Random()) + 168; |
|
629 |
} |
|
630 |
||
631 |
Pair SetupSubsidyDecodeParam(Subsidy *s, bool mode) |
|
632 |
{ |
|
633 |
int tile, tile2; |
|
634 |
Industry *i; |
|
635 |
Town *t; |
|
636 |
Station *st; |
|
637 |
Pair tp; |
|
638 |
||
639 |
/* if mode is false, convert into plural */ |
|
640 |
SET_DPARAM16(0, _cargoc.names_s[s->cargo_type] + (mode?0:32)); |
|
641 |
||
642 |
if (s->age < 12) { |
|
643 |
if (!(s->cargo_type == CT_PASSENGERS || s->cargo_type == CT_MAIL)) { |
|
644 |
SET_DPARAM16(1, STR_2029); |
|
645 |
i = DEREF_INDUSTRY(s->from); |
|
646 |
tile = i->xy; |
|
647 |
SET_DPARAM16(2, i->town->townnametype); |
|
648 |
SET_DPARAM32(3, i->town->townnameparts); |
|
649 |
||
650 |
SET_DPARAM16(4, i->type + STR_4802_COAL_MINE); |
|
651 |
||
652 |
if (s->cargo_type != CT_GOODS && s->cargo_type != CT_FOOD) { |
|
653 |
SET_DPARAM16(5, STR_2029); |
|
654 |
i = DEREF_INDUSTRY(s->to); |
|
655 |
tile2 = i->xy; |
|
656 |
SET_DPARAM16(8, i->type + STR_4802_COAL_MINE); |
|
657 |
SET_DPARAM16(6, i->town->townnametype); |
|
658 |
SET_DPARAM32(7, i->town->townnameparts); |
|
659 |
} else { |
|
660 |
t = DEREF_TOWN(s->to); |
|
661 |
tile2 = t->xy; |
|
662 |
SET_DPARAM16(5, t->townnametype); |
|
663 |
SET_DPARAM32(6, t->townnameparts); |
|
664 |
} |
|
665 |
} else { |
|
666 |
t = DEREF_TOWN(s->from); |
|
667 |
tile = t->xy; |
|
668 |
SET_DPARAM16(1, t->townnametype); |
|
669 |
SET_DPARAM32(2, t->townnameparts); |
|
670 |
||
671 |
t = DEREF_TOWN(s->to); |
|
672 |
tile2 = t->xy; |
|
673 |
SET_DPARAM16(3, t->townnametype); |
|
674 |
SET_DPARAM32(4, t->townnameparts); |
|
675 |
} |
|
676 |
} else { |
|
677 |
st = DEREF_STATION(s->from); |
|
678 |
tile = st->xy; |
|
679 |
SET_DPARAM16(1, st->index); |
|
680 |
||
681 |
st = DEREF_STATION(s->to); |
|
682 |
tile2 = st->xy; |
|
683 |
SET_DPARAM16(2, st->index); |
|
684 |
} |
|
685 |
||
686 |
tp.a = tile; |
|
687 |
tp.b = tile2; |
|
688 |
||
689 |
return tp; |
|
690 |
} |
|
691 |
||
692 |
void DeleteSubsidyWithIndustry(byte index) |
|
693 |
{ |
|
694 |
Subsidy *s; |
|
695 |
||
696 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
697 |
if (s->cargo_type != 0xFF && s->age < 12 && |
|
698 |
s->cargo_type != CT_PASSENGERS && s->cargo_type != CT_MAIL && |
|
699 |
(index == s->from || (s->cargo_type!=CT_GOODS && s->cargo_type!=CT_FOOD && index==s->to))) { |
|
700 |
s->cargo_type = 0xFF; |
|
701 |
} |
|
702 |
} |
|
703 |
} |
|
704 |
||
705 |
void DeleteSubsidyWithStation(byte index) |
|
706 |
{ |
|
707 |
Subsidy *s; |
|
708 |
bool dirty = false; |
|
709 |
||
710 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
711 |
if (s->cargo_type != 0xFF && s->age >= 12 && |
|
712 |
(s->from == index || s->to == index)) { |
|
713 |
s->cargo_type = 0xFF; |
|
714 |
dirty = true; |
|
715 |
} |
|
716 |
} |
|
717 |
||
718 |
if (dirty) |
|
719 |
InvalidateWindow(WC_SUBSIDIES_LIST, 0); |
|
720 |
} |
|
721 |
||
722 |
typedef struct FoundRoute { |
|
723 |
uint distance; |
|
724 |
byte cargo; |
|
725 |
void *from; |
|
726 |
void *to; |
|
727 |
} FoundRoute; |
|
728 |
||
729 |
static void FindSubsidyPassengerRoute(FoundRoute *fr) |
|
730 |
{ |
|
731 |
Town *from,*to; |
|
732 |
||
733 |
fr->distance = (uint)-1; |
|
734 |
||
735 |
fr->from = from = DEREF_TOWN(RandomRange(_total_towns)); |
|
736 |
if (from->xy == 0 || from->population < 400) |
|
737 |
return; |
|
738 |
||
739 |
fr->to = to = DEREF_TOWN(RandomRange(_total_towns)); |
|
740 |
if (from==to || to->xy == 0 || to->population < 400 || to->pct_pass_transported > 42) |
|
741 |
return; |
|
742 |
||
743 |
fr->distance = GetTileDist(from->xy, to->xy); |
|
744 |
} |
|
745 |
||
746 |
static void FindSubsidyCargoRoute(FoundRoute *fr) |
|
747 |
{ |
|
748 |
Industry *i; |
|
749 |
int trans, total; |
|
750 |
byte cargo; |
|
751 |
||
752 |
fr->distance = (uint)-1; |
|
753 |
||
754 |
fr->from = i = DEREF_INDUSTRY(RandomRange(_total_industries)); |
|
755 |
if (i->xy == 0) |
|
756 |
return; |
|
757 |
||
758 |
// Randomize cargo type |
|
759 |
if (Random()&1 && i->produced_cargo[1] != 0xFF) { |
|
760 |
cargo = i->produced_cargo[1]; |
|
761 |
trans = i->pct_transported[1]; |
|
762 |
total = i->total_production[1]; |
|
763 |
} else { |
|
764 |
cargo = i->produced_cargo[0]; |
|
765 |
trans = i->pct_transported[0]; |
|
766 |
total = i->total_production[0]; |
|
767 |
} |
|
768 |
||
769 |
// Quit if no production in this industry |
|
770 |
// or if the cargo type is passengers |
|
771 |
// or if the pct transported is already large enough |
|
772 |
if (total == 0 || trans > 42 || cargo == 0xFF || cargo == CT_PASSENGERS) |
|
773 |
return; |
|
774 |
||
775 |
fr->cargo = cargo; |
|
776 |
||
777 |
if (cargo == CT_GOODS || cargo == CT_FOOD) { |
|
778 |
// The destination is a town |
|
779 |
Town *t = DEREF_TOWN(RandomRange(_total_towns)); |
|
780 |
||
781 |
// Only want big towns |
|
782 |
if (t->xy == 0 || t->population < 900) |
|
783 |
return; |
|
784 |
fr->distance = GetTileDist(i->xy, t->xy); |
|
785 |
fr->to = t; |
|
786 |
} else { |
|
787 |
// The destination is an industry |
|
788 |
Industry *i2 = DEREF_INDUSTRY(RandomRange(_total_industries)); |
|
789 |
||
790 |
// The industry must accept the cargo |
|
791 |
if (i == i2 || i2->xy == 0 || |
|
792 |
(cargo != i2->accepts_cargo[0] && |
|
793 |
cargo != i2->accepts_cargo[1] && |
|
794 |
cargo != i2->accepts_cargo[2])) |
|
795 |
return; |
|
796 |
fr->distance = GetTileDist(i->xy, i2->xy); |
|
797 |
fr->to = i2; |
|
798 |
} |
|
799 |
} |
|
800 |
||
801 |
static bool CheckSubsidyDuplicate(Subsidy *s) |
|
802 |
{ |
|
803 |
Subsidy *ss; |
|
804 |
||
805 |
for(ss=_subsidies; ss != endof(_subsidies); ss++) { |
|
806 |
if (s != ss && |
|
807 |
// ss->age < 12 && |
|
808 |
ss->from == s->from && |
|
809 |
ss->to == s->to && |
|
810 |
ss->cargo_type == s->cargo_type) { |
|
811 |
s->cargo_type = 0xFF; |
|
812 |
return true; |
|
813 |
} |
|
814 |
} |
|
815 |
return false; |
|
816 |
} |
|
817 |
||
818 |
static void SubsidyMonthlyHandler() |
|
819 |
{ |
|
820 |
Subsidy *s; |
|
821 |
Pair pair; |
|
822 |
Station *st; |
|
823 |
uint n; |
|
824 |
FoundRoute fr; |
|
825 |
bool modified = false; |
|
826 |
||
827 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
828 |
if (s->cargo_type == 0xFF) |
|
829 |
continue; |
|
830 |
||
831 |
if (s->age == 12-1) { |
|
832 |
pair = SetupSubsidyDecodeParam(s, 1); |
|
833 |
AddNewsItem(STR_202E_OFFER_OF_SUBSIDY_EXPIRED, NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), pair.a, pair.b); |
|
834 |
s->cargo_type = 0xFF; |
|
835 |
modified = true; |
|
836 |
} else if (s->age == 2*12-1) { |
|
837 |
st = DEREF_STATION(s->to); |
|
838 |
if (st->owner == _local_player) { |
|
839 |
pair = SetupSubsidyDecodeParam(s, 1); |
|
840 |
AddNewsItem(STR_202F_SUBSIDY_WITHDRAWN_SERVICE, NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), pair.a, pair.b); |
|
841 |
} |
|
842 |
s->cargo_type = 0xFF; |
|
843 |
modified = true; |
|
844 |
} else { |
|
845 |
s->age++; |
|
846 |
} |
|
847 |
} |
|
848 |
||
849 |
// 25% chance to go on |
|
850 |
if (CHANCE16(1,4)) { |
|
851 |
// Find a free slot |
|
852 |
s = _subsidies; |
|
853 |
while (s->cargo_type != 0xFF) { |
|
854 |
if (++s == endof(_subsidies)) |
|
855 |
goto no_add; |
|
856 |
} |
|
857 |
||
858 |
n = 1000; |
|
859 |
do { |
|
860 |
FindSubsidyPassengerRoute(&fr); |
|
861 |
if (fr.distance <= 70) { |
|
862 |
s->cargo_type = CT_PASSENGERS; |
|
863 |
s->from = ((Town*)fr.from)->index; |
|
864 |
s->to = ((Town*)fr.to)->index; |
|
865 |
goto add_subsidy; |
|
866 |
} |
|
867 |
FindSubsidyCargoRoute(&fr); |
|
868 |
if (fr.distance <= 70) { |
|
869 |
s->cargo_type = fr.cargo; |
|
870 |
s->from = (Industry*)fr.from - _industries; |
|
871 |
s->to = (fr.cargo == CT_GOODS || fr.cargo == CT_FOOD) ? ((Town*)fr.to)->index : (Industry*)fr.to - _industries; |
|
872 |
add_subsidy: |
|
873 |
if (!CheckSubsidyDuplicate(s)) { |
|
874 |
s->age = 0; |
|
875 |
pair = SetupSubsidyDecodeParam(s, 0); |
|
876 |
AddNewsItem(STR_2030_SERVICE_SUBSIDY_OFFERED, NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), pair.a, pair.b); |
|
877 |
modified = true; |
|
878 |
break; |
|
879 |
} |
|
880 |
} |
|
881 |
} while (--n); |
|
882 |
} |
|
883 |
no_add:; |
|
884 |
if (modified) |
|
885 |
InvalidateWindow(WC_SUBSIDIES_LIST, 0); |
|
886 |
} |
|
887 |
||
888 |
static const byte _subsidies_desc[] = { |
|
889 |
SLE_VAR(Subsidy,cargo_type, SLE_UINT8), |
|
890 |
SLE_VAR(Subsidy,age, SLE_UINT8), |
|
891 |
SLE_VAR(Subsidy,from, SLE_UINT8), |
|
892 |
SLE_VAR(Subsidy,to, SLE_UINT8), |
|
893 |
SLE_END() |
|
894 |
}; |
|
895 |
||
896 |
static void Save_SUBS() |
|
897 |
{ |
|
898 |
int i; |
|
899 |
Subsidy *s; |
|
900 |
||
901 |
for(i=0; i!=lengthof(_subsidies); i++) { |
|
902 |
s = &_subsidies[i]; |
|
903 |
if (s->cargo_type != 0xFF) { |
|
904 |
SlSetArrayIndex(i); |
|
905 |
SlObject(s, _subsidies_desc); |
|
906 |
} |
|
907 |
} |
|
908 |
} |
|
909 |
||
910 |
static void Load_SUBS() |
|
911 |
{ |
|
912 |
int index; |
|
913 |
while ((index = SlIterateArray()) != -1) |
|
914 |
SlObject(&_subsidies[index], _subsidies_desc); |
|
915 |
} |
|
916 |
||
917 |
int32 GetTransportedGoodsIncome(uint num_pieces, uint dist, byte transit_days, byte cargo_type) |
|
918 |
{ |
|
919 |
int cargo = cargo_type; |
|
920 |
byte f; |
|
921 |
||
922 |
/* zero the distance if it's the bank and very short transport. */ |
|
923 |
if (_opt.landscape == LT_NORMAL && cargo == CT_VALUABLES && dist < 10) |
|
924 |
dist = 0; |
|
925 |
||
926 |
f = 255; |
|
927 |
if (transit_days > _cargoc.transit_days_1[cargo]) { |
|
928 |
transit_days -= _cargoc.transit_days_1[cargo]; |
|
929 |
f -= transit_days; |
|
930 |
||
931 |
if (transit_days > _cargoc.transit_days_2[cargo]) { |
|
932 |
transit_days -= _cargoc.transit_days_2[cargo]; |
|
933 |
||
934 |
if (f < transit_days) |
|
935 |
f = 0; |
|
936 |
else |
|
937 |
f -= transit_days; |
|
938 |
} |
|
939 |
} |
|
940 |
if (f < 31) f = 31; |
|
941 |
||
942 |
return BIGMULSS(dist * f * num_pieces, _cargo_payment_rates[cargo], 21); |
|
943 |
} |
|
944 |
||
945 |
static void DeliverGoodsToIndustry(TileIndex xy, byte cargo_type, int num_pieces) |
|
946 |
{ |
|
947 |
Industry *ind, *best; |
|
948 |
int t, u; |
|
949 |
||
950 |
/* Check if there's an industry close to the station that accepts |
|
951 |
* the cargo */ |
|
952 |
best = NULL; |
|
953 |
u = 0x11; |
|
954 |
for(ind = _industries; ind != endof(_industries); ind++) { |
|
955 |
if (ind->xy != 0 && (cargo_type == ind->accepts_cargo[0] || cargo_type |
|
956 |
== ind->accepts_cargo[1] || cargo_type == ind->accepts_cargo[2]) && |
|
957 |
ind->produced_cargo[0] != 0xFF && |
|
958 |
ind->produced_cargo[0] != cargo_type && |
|
959 |
(t=GetTileDist(ind->xy, xy)) < u) { |
|
960 |
u = t; |
|
961 |
best = ind; |
|
962 |
} |
|
963 |
} |
|
964 |
||
965 |
/* Found one? */ |
|
966 |
if (best != NULL) { |
|
967 |
best->was_cargo_delivered = true; |
|
968 |
best->cargo_waiting[0] = min(best->cargo_waiting[0] + num_pieces, 0xFFFF); |
|
969 |
} |
|
970 |
} |
|
971 |
||
972 |
static bool CheckSubsidised(Station *from, Station *to, byte cargo_type) |
|
973 |
{ |
|
974 |
Subsidy *s; |
|
975 |
TileIndex xy; |
|
976 |
Pair pair; |
|
977 |
Player *p; |
|
978 |
||
979 |
// check if there is an already existing subsidy that applies to us |
|
980 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
981 |
if (s->cargo_type == cargo_type && |
|
982 |
s->age >= 12 && |
|
983 |
s->from == from->index && |
|
984 |
s->to == to->index) |
|
985 |
return true; |
|
986 |
} |
|
987 |
||
988 |
/* check if there's a new subsidy that applies.. */ |
|
989 |
for(s=_subsidies; s != endof(_subsidies); s++) { |
|
990 |
if (s->cargo_type == cargo_type && s->age < 12) { |
|
991 |
||
992 |
/* Check distance from source */ |
|
993 |
if (cargo_type == CT_PASSENGERS || cargo_type == CT_MAIL) { |
|
994 |
xy = DEREF_TOWN(s->from)->xy; |
|
995 |
} else { |
|
996 |
xy = (DEREF_INDUSTRY(s->from))->xy; |
|
997 |
} |
|
998 |
if (GetTileDist1D(xy, from->xy) > 9) |
|
999 |
continue; |
|
1000 |
||
1001 |
/* Check distance from dest */ |
|
1002 |
if (cargo_type == CT_PASSENGERS || cargo_type == CT_MAIL || cargo_type == CT_GOODS || cargo_type == CT_FOOD) { |
|
1003 |
xy = DEREF_TOWN(s->to)->xy; |
|
1004 |
} else { |
|
1005 |
xy = (DEREF_INDUSTRY(s->to))->xy; |
|
1006 |
} |
|
1007 |
||
1008 |
if (GetTileDist1D(xy, to->xy) > 9) |
|
1009 |
continue; |
|
1010 |
||
1011 |
/* Found a subsidy, change the values to indicate that it's in use */ |
|
1012 |
s->age = 12; |
|
1013 |
s->from = from->index; |
|
1014 |
s->to = to->index; |
|
1015 |
||
1016 |
/* Add a news item */ |
|
1017 |
pair = SetupSubsidyDecodeParam(s, 0); |
|
1018 |
INJECT_DPARAM(2); |
|
1019 |
||
1020 |
p = DEREF_PLAYER(_current_player); |
|
1021 |
SET_DPARAM16(0, p->name_1); |
|
1022 |
SET_DPARAM32(1, p->name_2); |
|
1023 |
AddNewsItem( |
|
1024 |
STR_2031_SERVICE_SUBSIDY_AWARDED + _opt.diff.subsidy_multiplier, |
|
1025 |
NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0), |
|
1026 |
pair.a, pair.b); |
|
1027 |
||
1028 |
InvalidateWindow(WC_SUBSIDIES_LIST, 0); |
|
1029 |
return true; |
|
1030 |
} |
|
1031 |
} |
|
1032 |
return false; |
|
1033 |
} |
|
1034 |
||
1035 |
static int32 DeliverGoods(int num_pieces, byte cargo_type, byte source, byte dest, byte days_in_transit) |
|
1036 |
{ |
|
1037 |
bool subsidised; |
|
1038 |
Station *s_from, *s_to; |
|
1039 |
int32 profit; |
|
1040 |
||
1041 |
assert(num_pieces > 0); |
|
1042 |
||
1043 |
// Update player statistics |
|
1044 |
{ |
|
1045 |
Player *p = DEREF_PLAYER(_current_player); |
|
1046 |
p->cur_economy.delivered_cargo += num_pieces; |
|
1047 |
SETBIT(p->cargo_types, cargo_type); |
|
1048 |
} |
|
1049 |
||
1050 |
// Get station pointers. |
|
1051 |
s_from = DEREF_STATION(source); |
|
1052 |
s_to = DEREF_STATION(dest); |
|
1053 |
||
1054 |
// Check if a subsidy applies. |
|
1055 |
subsidised = CheckSubsidised(s_from, s_to, cargo_type); |
|
1056 |
||
1057 |
// Increase town's counter for some special goods types |
|
1058 |
{ |
|
1059 |
Town *t = s_to->town; |
|
1060 |
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
|
1061 |
if (cargo_type == CT_STEEL) t->new_act_water += num_pieces; |
0 | 1062 |
} |
1063 |
||
1064 |
// Give the goods to the industry. |
|
1065 |
DeliverGoodsToIndustry(s_to->xy, cargo_type, num_pieces); |
|
1066 |
||
1067 |
// Determine profit |
|
1068 |
{ |
|
1069 |
int t = GetTileDist(s_from->xy, s_to->xy); |
|
1070 |
int r = num_pieces; |
|
1071 |
profit = 0; |
|
1072 |
do { |
|
1073 |
int u = min(r, 255); |
|
1074 |
r -= u; |
|
1075 |
profit += GetTransportedGoodsIncome(u, t, days_in_transit, cargo_type); |
|
1076 |
} while (r != 0); |
|
1077 |
} |
|
1078 |
||
1079 |
// Modify profit if a subsidy is in effect |
|
1080 |
if (subsidised) { |
|
1081 |
if (_opt.diff.subsidy_multiplier < 1) { |
|
1082 |
/* 1.5x */ |
|
1083 |
profit += profit >> 1; |
|
1084 |
} else if (_opt.diff.subsidy_multiplier == 1) { |
|
1085 |
/* 2x */ |
|
1086 |
profit *= 2; |
|
1087 |
} else if (_opt.diff.subsidy_multiplier == 2) { |
|
1088 |
/* 3x */ |
|
1089 |
profit *= 3; |
|
1090 |
} else { |
|
1091 |
/* 4x */ |
|
1092 |
profit *= 4; |
|
1093 |
} |
|
1094 |
} |
|
1095 |
||
1096 |
// Computers get 25% extra profit if they're intelligent. |
|
1097 |
if (_opt.diff.competitor_intelligence>=1 && !IS_HUMAN_PLAYER(_current_player)) |
|
1098 |
profit += profit >> 2; |
|
1099 |
||
1100 |
return profit; |
|
1101 |
} |
|
1102 |
||
1103 |
int LoadUnloadVehicle(Vehicle *v) |
|
1104 |
{ |
|
1105 |
int profit = 0; |
|
1106 |
int unloading_time = 20; |
|
1107 |
Vehicle *u = v; |
|
1108 |
int result = 0; |
|
1109 |
int last_visited; |
|
1110 |
Station *st; |
|
1111 |
GoodsEntry *ge; |
|
1112 |
int t; |
|
1113 |
uint count, cap; |
|
1114 |
||
1115 |
assert((v->next_order&0x1F) == OT_LOADING); |
|
1116 |
||
1117 |
v->cur_speed = 0; |
|
1118 |
_current_player = v->owner; |
|
1119 |
||
1120 |
st = DEREF_STATION(last_visited = v->last_station_visited); |
|
1121 |
||
1122 |
for(;;) { |
|
1123 |
if (v->cargo_cap == 0) |
|
1124 |
goto next_vehicle; |
|
1125 |
||
1126 |
ge = &st->goods[v->cargo_type]; |
|
1127 |
||
1128 |
/* unload? */ |
|
1129 |
if (v->cargo_count != 0) { |
|
1130 |
if (v->cargo_source != (byte)last_visited && ge->waiting_acceptance & 0x8000) { |
|
1131 |
// deliver goods to the station |
|
1132 |
unloading_time += v->cargo_count; /* TTDBUG: bug in original TTD */ |
|
1133 |
profit += DeliverGoods(v->cargo_count, v->cargo_type, v->cargo_source, last_visited, v->cargo_days); |
|
1134 |
result |= 1; |
|
1135 |
v->cargo_count = 0; |
|
1136 |
} else if (u->next_order & OF_UNLOAD) { |
|
1137 |
/* unload goods and let it wait at the station */ |
|
1138 |
st->time_since_unload = 0; |
|
1139 |
||
1140 |
if ((t=ge->waiting_acceptance & 0xFFF) == 0) { |
|
1141 |
// No goods waiting at station |
|
1142 |
ge->enroute_time = v->cargo_days; |
|
1143 |
ge->enroute_from = v->cargo_source; |
|
1144 |
} else { |
|
1145 |
// Goods already waiting at station. Set counters to the worst value. |
|
1146 |
if (v->cargo_days >= ge->enroute_time) |
|
1147 |
ge->enroute_time = v->cargo_days; |
|
1148 |
if ((byte)last_visited != ge->enroute_from) |
|
1149 |
ge->enroute_from = v->cargo_source; |
|
1150 |
} |
|
1151 |
// Update amount of waiting cargo |
|
1152 |
ge->waiting_acceptance = (ge->waiting_acceptance &~0xFFF) | min(v->cargo_count + t, 0xFFF); |
|
1153 |
result |= 2; |
|
1154 |
v->cargo_count = 0; |
|
1155 |
} |
|
1156 |
} |
|
1157 |
||
1158 |
/* don't pick up goods that we unloaded */ |
|
1159 |
if (u->next_order & OF_UNLOAD) |
|
1160 |
goto next_vehicle; |
|
1161 |
||
1162 |
/* update stats */ |
|
1163 |
ge->days_since_pickup = 0; |
|
1164 |
t = u->max_speed; |
|
1165 |
if (u->type == VEH_Road) t >>=1; |
|
1166 |
||
1167 |
// if last speed is 0, we treat that as if no vehicle has ever visited the station. |
|
1168 |
ge->last_speed = t < 255 ? t : 255; |
|
1169 |
ge->last_age = _cur_year - v->build_year; |
|
1170 |
||
1171 |
// If there's goods waiting at the station, and the vehicle |
|
1172 |
// has capacity for it, load it on the vehicle. |
|
1173 |
if ((count=ge->waiting_acceptance & 0xFFF) != 0 && |
|
1174 |
(cap = v->cargo_cap - v->cargo_count) != 0) { |
|
1175 |
if (cap > count) cap = count; |
|
1176 |
v->cargo_count += cap; |
|
1177 |
ge->waiting_acceptance -= cap; |
|
1178 |
unloading_time += cap; |
|
1179 |
st->time_since_load = 0; |
|
1180 |
||
1181 |
// And record the source of the cargo, and the days in travel. |
|
1182 |
v->cargo_source = ge->enroute_from; |
|
1183 |
v->cargo_days = ge->enroute_time; |
|
1184 |
result |= 2; |
|
1185 |
st->last_vehicle = v->index; |
|
1186 |
} |
|
1187 |
||
1188 |
next_vehicle:; |
|
1189 |
if (!(v = v->next)) |
|
1190 |
break; |
|
1191 |
} |
|
1192 |
||
1193 |
v = u; |
|
1194 |
||
1195 |
if (v->type == VEH_Train) { |
|
1196 |
int num = - (int)GetStationPlatforms(st, v->tile) * 2; |
|
1197 |
do num++; while ( (v=v->next) != NULL); |
|
1198 |
if (num > 0) { |
|
1199 |
unloading_time <<=1; |
|
1200 |
unloading_time += num * unloading_time; |
|
1201 |
} |
|
1202 |
v = u; |
|
1203 |
} |
|
1204 |
||
1205 |
v->load_unload_time_rem = unloading_time; |
|
1206 |
||
1207 |
if (result != 0) { |
|
1208 |
InvalidateWindow(WC_VEHICLE_DETAILS, v->index); |
|
1209 |
||
1210 |
if (result & 2) |
|
1211 |
InvalidateWindow(WC_STATION_VIEW, last_visited); |
|
1212 |
||
1213 |
if (profit != 0) { |
|
1214 |
v->profit_this_year += profit; |
|
1215 |
SubtractMoneyFromPlayer(-profit); |
|
1216 |
||
1217 |
if (_current_player == _local_player) |
|
1218 |
SndPlayVehicleFx(0x12, v); |
|
1219 |
||
1220 |
ShowCostOrIncomeAnimation(v->x_pos, v->y_pos, v->z_pos, -profit); |
|
1221 |
} |
|
1222 |
} |
|
1223 |
||
1224 |
return result; |
|
1225 |
} |
|
1226 |
||
1227 |
void PlayersMonthlyLoop() |
|
1228 |
{ |
|
1229 |
PlayersGenStatistics(); |
|
1230 |
if (_patches.inflation) |
|
1231 |
AddInflation(); |
|
1232 |
PlayersPayInterest(); |
|
1233 |
HandleEconomyFluctuations(); |
|
1234 |
SubsidyMonthlyHandler(); |
|
1235 |
} |
|
1236 |
||
1237 |
static void DoAcquireCompany(Player *p) |
|
1238 |
{ |
|
1239 |
Player *owner; |
|
1240 |
int i,pi; |
|
1241 |
int32 value; |
|
1242 |
||
1243 |
SET_DPARAM16(0, p->name_1); |
|
1244 |
SET_DPARAM32(1, p->name_2); |
|
1245 |
SET_DPARAM32(2, p->bankrupt_value); |
|
1246 |
AddNewsItem( (StringID)(_current_player + 16*2), NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0); |
|
1247 |
||
1248 |
// original code does this a little bit differently |
|
1249 |
pi = p->index; |
|
1250 |
ChangeOwnershipOfPlayerItems(pi, _current_player); |
|
1251 |
||
1252 |
if (p->bankrupt_value == 0) { |
|
1253 |
owner = DEREF_PLAYER(_current_player); |
|
1254 |
owner->current_loan += p->current_loan; |
|
1255 |
} |
|
1256 |
||
1257 |
value = CalculateCompanyValue(p) >> 2; |
|
1258 |
for(i=0; i!=4; i++) { |
|
1259 |
if (p->share_owners[i] != 0xFF) { |
|
1260 |
owner = DEREF_PLAYER(p->share_owners[i]); |
|
1261 |
owner->money64 += value; |
|
1262 |
owner->yearly_expenses[0][EXPENSES_OTHER] += value; |
|
1263 |
UpdatePlayerMoney32(owner); |
|
1264 |
} |
|
1265 |
} |
|
1266 |
||
1267 |
p->is_active = false; |
|
1268 |
||
1269 |
DeletePlayerWindows(pi); |
|
1270 |
} |
|
1271 |
||
1272 |
int32 CmdBuyShareInCompany(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
1273 |
{ |
|
1274 |
Player *p; |
|
1275 |
int32 cost; |
|
1276 |
byte *b; |
|
1277 |
int i; |
|
1278 |
||
1279 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
1280 |
p = DEREF_PLAYER(p1); |
|
1281 |
||
1282 |
cost = CalculateCompanyValue(p) >> 2; |
|
1283 |
if (flags & DC_EXEC) { |
|
1284 |
b = p->share_owners; |
|
1285 |
while (*b != 0xFF) b++; /* share owners is guaranteed to contain at least one 0xFF */ |
|
1286 |
*b = _current_player; |
|
1287 |
||
1288 |
for(i=0;p->share_owners[i] == _current_player;) { |
|
1289 |
if (++i == 4) { |
|
1290 |
p->bankrupt_value = 0; |
|
1291 |
DoAcquireCompany(p); |
|
1292 |
break; |
|
1293 |
} |
|
1294 |
} |
|
1295 |
InvalidateWindow(WC_COMPANY, (int)p1); |
|
1296 |
} |
|
1297 |
return cost; |
|
1298 |
} |
|
1299 |
||
1300 |
int32 CmdSellShareInCompany(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
1301 |
{ |
|
1302 |
Player *p; |
|
1303 |
int32 cost; |
|
1304 |
byte *b; |
|
1305 |
||
1306 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
1307 |
p = DEREF_PLAYER(p1); |
|
1308 |
||
1309 |
/* adjust it a little to make it less profitable to sell and buy */ |
|
1310 |
cost = CalculateCompanyValue(p) >> 2; |
|
1311 |
cost = -(cost - (cost >> 7)); |
|
1312 |
||
1313 |
if (flags & DC_EXEC) { |
|
1314 |
b = p->share_owners; |
|
1315 |
while (*b != _current_player) b++; /* share owners is guaranteed to contain player */ |
|
1316 |
*b = 0xFF; |
|
1317 |
InvalidateWindow(WC_COMPANY, (int)p1); |
|
1318 |
} |
|
1319 |
return cost; |
|
1320 |
} |
|
1321 |
||
1322 |
int32 CmdBuyCompany(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
1323 |
{ |
|
1324 |
Player *p; |
|
1325 |
SET_EXPENSES_TYPE(EXPENSES_OTHER); |
|
1326 |
p = DEREF_PLAYER(p1); |
|
1327 |
if (flags & 1) { |
|
1328 |
DoAcquireCompany(p); |
|
1329 |
} |
|
1330 |
return p->bankrupt_value; |
|
1331 |
} |
|
1332 |
||
1333 |
// Prices |
|
1334 |
static void SaveLoad_PRIC() |
|
1335 |
{ |
|
1336 |
SlArray(&_price, NUM_PRICES, SLE_INT32); |
|
1337 |
SlArray(&_price_frac, NUM_PRICES, SLE_UINT16); |
|
1338 |
} |
|
1339 |
||
1340 |
// Cargo payment rates |
|
1341 |
static void SaveLoad_CAPR() |
|
1342 |
{ |
|
1343 |
SlArray(&_cargo_payment_rates, NUM_CARGO, SLE_INT32); |
|
1344 |
SlArray(&_cargo_payment_rates_frac, NUM_CARGO, SLE_UINT16); |
|
1345 |
} |
|
1346 |
||
1347 |
static const byte _economy_desc[] = { |
|
1348 |
SLE_VAR(Economy,max_loan, SLE_INT32), |
|
1349 |
SLE_VAR(Economy,max_loan_unround, SLE_INT32), |
|
1350 |
SLE_VAR(Economy,fluct, SLE_FILE_I16 | SLE_VAR_I32), |
|
1351 |
SLE_VAR(Economy,interest_rate, SLE_UINT8), |
|
1352 |
SLE_VAR(Economy,infl_amount, SLE_UINT8), |
|
1353 |
SLE_VAR(Economy,infl_amount_pr, SLE_UINT8), |
|
1354 |
SLE_END() |
|
1355 |
}; |
|
1356 |
||
1357 |
// Economy variables |
|
1358 |
static void SaveLoad_ECMY() |
|
1359 |
{ |
|
1360 |
SlObject(&_economy, &_economy_desc); |
|
1361 |
} |
|
1362 |
||
1363 |
const ChunkHandler _economy_chunk_handlers[] = { |
|
1364 |
{ 'PRIC', SaveLoad_PRIC, SaveLoad_PRIC, CH_RIFF | CH_AUTO_LENGTH}, |
|
1365 |
{ 'CAPR', SaveLoad_CAPR, SaveLoad_CAPR, CH_RIFF | CH_AUTO_LENGTH}, |
|
1366 |
{ 'SUBS', Save_SUBS, Load_SUBS, CH_ARRAY}, |
|
1367 |
{ 'ECMY', SaveLoad_ECMY, SaveLoad_ECMY, CH_RIFF | CH_LAST}, |
|
1368 |
}; |
|
1369 |
||
1370 |
||
1371 |
||
1372 |