author | celestar |
Tue, 19 Jun 2007 07:21:01 +0000 | |
branch | gamebalance |
changeset 9913 | e79cd19772dd |
parent 9912 | 1ac8aac92385 |
permissions | -rw-r--r-- |
2549 | 1 |
/* $Id$ */ |
1490
6a13118e99f5
(svn r1994) Fix: 1159456 - hopefully prevent the new AI to get stuck in an infinite loop forlorny trying to build its haven. Unintentionally bundled with trivial tidyup.
pasky
parents:
1377
diff
changeset
|
2 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
3 |
/* |
2549 | 4 |
* This AI was created as a direct reaction to the big demand for some good AIs |
5 |
* in OTTD. Too bad it never left alpha-stage, and it is considered dead in its |
|
6 |
* current form. |
|
7 |
* By the time of writing this, we, the creator of this AI and a good friend of |
|
8 |
* mine, are designing a whole new AI-system that allows us to create AIs |
|
9 |
* easier and without all the fuzz we encountered while I was working on this |
|
10 |
* AI. By the time that system is finished, you can expect that this AI will |
|
11 |
* dissapear, because it is pretty obselete and bad programmed. |
|
2381
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
12 |
* |
2549 | 13 |
* Meanwhile I wish you all much fun with this AI; if you are interested as |
14 |
* AI-developer in this AI, I advise you not stare too long to some code, some |
|
15 |
* things in here really are... strange ;) But in either way: enjoy :) |
|
2381
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
16 |
* |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
17 |
* -- TrueLight :: 2005-09-01 |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
18 |
*/ |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
19 |
|
2381
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
20 |
#include "../../stdafx.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
21 |
#include "../../openttd.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
22 |
#include "../../debug.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
23 |
#include "../../functions.h" |
3144
426b825578f9
(svn r3763) Adapt to the new 'map accessors go in foo_map.h'-scheme
tron
parents:
3071
diff
changeset
|
24 |
#include "../../road_map.h" |
3315
1f65f8260092
(svn r4079) Add GetSation{Index,ByTile}() to get the station index resp. the station from a tile
tron
parents:
3179
diff
changeset
|
25 |
#include "../../station_map.h" |
5907 | 26 |
#include "table/strings.h" |
2381
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
27 |
#include "../../map.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
28 |
#include "../../tile.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
29 |
#include "../../command.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
30 |
#include "trolly.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
31 |
#include "../../town.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
32 |
#include "../../industry.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
33 |
#include "../../station.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
34 |
#include "../../engine.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
35 |
#include "../../gui.h" |
de9053fe2a2c
(svn r2907) -Codechange: splitted the AIs to their own directory. AINew becomes 'trolly', AIOld becomes 'default', both in their own dir in the 'ai' dir. More AIs to come.
truelight
parents:
2365
diff
changeset
|
36 |
#include "../../depot.h" |
3577
9e345c932ba2
(svn r4463) -Codechange. Include vehicle.h directly instead of implicitly via station.h in a number of source files
celestar
parents:
3404
diff
changeset
|
37 |
#include "../../vehicle.h" |
4261
2ec8f5a9747b
(svn r5887) -Cleanup: move date related functions, defines and variables to date.[ch]
rubidium
parents:
4077
diff
changeset
|
38 |
#include "../../date.h" |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
39 |
#include "../ai.h" |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
40 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
41 |
// This function is called after StartUp. It is the init of an AI |
2365 | 42 |
static void AiNew_State_FirstTime(Player *p) |
43 |
{ |
|
44 |
// This assert is used to protect those function from misuse |
|
45 |
// You have quickly a small mistake in the state-array |
|
46 |
// With that, everything would go wrong. Finding that, is almost impossible |
|
47 |
// With this assert, that problem can never happen. |
|
48 |
assert(p->ainew.state == AI_STATE_FIRST_TIME); |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
49 |
// We first have to init some things |
145 | 50 |
|
4854
383ef523793f
(svn r6780) -Codechange: Remove GPMI leftovers (-b impersonisation of AI in MP).
Darkvater
parents:
4559
diff
changeset
|
51 |
if (_current_player == 1) ShowErrorMessage(INVALID_STRING_ID, TEMP_AI_IN_PROGRESS, 0, 0); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
52 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
53 |
// The PathFinder (AyStar) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
54 |
// TODO: Maybe when an AI goes bankrupt, this is de-init |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
55 |
// or when coming from a savegame.. should be checked out! |
2365 | 56 |
p->ainew.path_info.start_tile_tl = 0; |
57 |
p->ainew.path_info.start_tile_br = 0; |
|
58 |
p->ainew.path_info.end_tile_tl = 0; |
|
59 |
p->ainew.path_info.end_tile_br = 0; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
60 |
p->ainew.pathfinder = new_AyStar_AiPathFinder(12, &p->ainew.path_info); |
145 | 61 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
62 |
p->ainew.idle = 0; |
145 | 63 |
p->ainew.last_vehiclecheck_date = _date; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
64 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
65 |
// We ALWAYS start with a bus route.. just some basic money ;) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
66 |
p->ainew.action = AI_ACTION_BUS_ROUTE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
67 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
68 |
// Let's popup the news, and after that, start building.. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
69 |
p->ainew.state = AI_STATE_WAKE_UP; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
70 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
71 |
|
2365 | 72 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
73 |
// This function just waste some time |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
74 |
// It keeps it more real. The AI can build on such tempo no normal user |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
75 |
// can ever keep up with that. The competitor_speed already delays a bit |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
76 |
// but after the AI finished a track it really needs to go to sleep. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
77 |
// |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
78 |
// Let's say, we sleep between one and three days if the AI is put on Very Fast. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
79 |
// This means that on Very Slow it will be between 16 and 48 days.. slow enough? |
2365 | 80 |
static void AiNew_State_Nothing(Player *p) |
81 |
{ |
|
82 |
assert(p->ainew.state == AI_STATE_NOTHING); |
|
83 |
// If we are done idling, start over again |
|
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
84 |
if (p->ainew.idle == 0) p->ainew.idle = AI_RandomRange(DAY_TICKS * 2) + DAY_TICKS; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
85 |
if (--p->ainew.idle == 0) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
86 |
// We are done idling.. what you say? Let's do something! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
87 |
// I mean.. the next tick ;) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
88 |
p->ainew.state = AI_STATE_WAKE_UP; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
89 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
90 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
91 |
|
2365 | 92 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
93 |
// This function picks out a task we are going to do. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
94 |
// Currently supported: |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
95 |
// - Make new route |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
96 |
// - Check route |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
97 |
// - Build HQ |
2365 | 98 |
static void AiNew_State_WakeUp(Player *p) |
99 |
{ |
|
1490
6a13118e99f5
(svn r1994) Fix: 1159456 - hopefully prevent the new AI to get stuck in an infinite loop forlorny trying to build its haven. Unintentionally bundled with trivial tidyup.
pasky
parents:
1377
diff
changeset
|
100 |
int32 money; |
6a13118e99f5
(svn r1994) Fix: 1159456 - hopefully prevent the new AI to get stuck in an infinite loop forlorny trying to build its haven. Unintentionally bundled with trivial tidyup.
pasky
parents:
1377
diff
changeset
|
101 |
int c; |
6a13118e99f5
(svn r1994) Fix: 1159456 - hopefully prevent the new AI to get stuck in an infinite loop forlorny trying to build its haven. Unintentionally bundled with trivial tidyup.
pasky
parents:
1377
diff
changeset
|
102 |
assert(p->ainew.state == AI_STATE_WAKE_UP); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
103 |
// First, check if we have a HQ |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
104 |
if (p->location_of_house == 0) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
105 |
// We have no HQ yet, build one on a random place |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
106 |
// Random till we found a place for it! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
107 |
// TODO: this should not be on a random place.. |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
108 |
AiNew_Build_CompanyHQ(p, AI_Random() % MapSize()); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
109 |
// Enough for now, but we want to come back here the next time |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
110 |
// so we do not change any status |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
111 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
112 |
} |
145 | 113 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
114 |
money = p->player_money - AI_MINIMUM_MONEY; |
145 | 115 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
116 |
// Let's pick an action! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
117 |
if (p->ainew.action == AI_ACTION_NONE) { |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
118 |
c = AI_Random() & 0xFF; |
2365 | 119 |
if (p->current_loan > 0 && |
120 |
p->old_economy[1].income > AI_MINIMUM_INCOME_FOR_LOAN && |
|
121 |
c < 10) { |
|
122 |
p->ainew.action = AI_ACTION_REPAY_LOAN; |
|
145 | 123 |
} else if (p->ainew.last_vehiclecheck_date + AI_DAYS_BETWEEN_VEHICLE_CHECKS < _date) { |
124 |
// Check all vehicles once in a while |
|
125 |
p->ainew.action = AI_ACTION_CHECK_ALL_VEHICLES; |
|
126 |
p->ainew.last_vehiclecheck_date = _date; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
127 |
} else if (c < 100 && !_patches.ai_disable_veh_roadveh) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
128 |
// Do we have any spots for road-vehicles left open? |
9895
7bd07f43b0e3
(svn r9321) [gamebalance] -Sync: r9025:9314 from trunk
celestar
parents:
5907
diff
changeset
|
129 |
if (GetFreeUnitNumber(VEH_ROAD) <= _patches.max_roadveh) { |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
130 |
if (c < 85) { |
2365 | 131 |
p->ainew.action = AI_ACTION_TRUCK_ROUTE; |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
132 |
} else { |
2365 | 133 |
p->ainew.action = AI_ACTION_BUS_ROUTE; |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
134 |
} |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
135 |
} |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
136 |
#if 0 |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
137 |
} else if (c < 200 && !_patches.ai_disable_veh_train) { |
9895
7bd07f43b0e3
(svn r9321) [gamebalance] -Sync: r9025:9314 from trunk
celestar
parents:
5907
diff
changeset
|
138 |
if (GetFreeUnitNumber(VEH_TRAIN) <= _patches.max_trains) { |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
139 |
p->ainew.action = AI_ACTION_TRAIN_ROUTE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
140 |
} |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
141 |
#endif |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
142 |
} |
145 | 143 |
|
144 |
p->ainew.counter = 0; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
145 |
} |
145 | 146 |
|
147 |
if (p->ainew.counter++ > AI_MAX_TRIES_FOR_SAME_ROUTE) { |
|
148 |
p->ainew.action = AI_ACTION_NONE; |
|
149 |
return; |
|
150 |
} |
|
151 |
||
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
152 |
if (_patches.ai_disable_veh_roadveh && ( |
2365 | 153 |
p->ainew.action == AI_ACTION_BUS_ROUTE || |
154 |
p->ainew.action == AI_ACTION_TRUCK_ROUTE |
|
155 |
)) { |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
156 |
p->ainew.action = AI_ACTION_NONE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
157 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
158 |
} |
145 | 159 |
|
2365 | 160 |
if (p->ainew.action == AI_ACTION_REPAY_LOAN && |
161 |
money > AI_MINIMUM_LOAN_REPAY_MONEY) { |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
162 |
// We start repaying some money.. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
163 |
p->ainew.state = AI_STATE_REPAY_MONEY; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
164 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
165 |
} |
145 | 166 |
|
167 |
if (p->ainew.action == AI_ACTION_CHECK_ALL_VEHICLES) { |
|
168 |
p->ainew.state = AI_STATE_CHECK_ALL_VEHICLES; |
|
169 |
return; |
|
170 |
} |
|
171 |
||
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
172 |
// It is useless to start finding a route if we don't have enough money |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
173 |
// to build the route anyway.. |
2365 | 174 |
if (p->ainew.action == AI_ACTION_BUS_ROUTE && |
175 |
money > AI_MINIMUM_BUS_ROUTE_MONEY) { |
|
9895
7bd07f43b0e3
(svn r9321) [gamebalance] -Sync: r9025:9314 from trunk
celestar
parents:
5907
diff
changeset
|
176 |
if (GetFreeUnitNumber(VEH_ROAD) > _patches.max_roadveh) { |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
177 |
p->ainew.action = AI_ACTION_NONE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
178 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
179 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
180 |
p->ainew.cargo = AI_NEED_CARGO; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
181 |
p->ainew.state = AI_STATE_LOCATE_ROUTE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
182 |
p->ainew.tbt = AI_BUS; // Bus-route |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
183 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
184 |
} |
2365 | 185 |
if (p->ainew.action == AI_ACTION_TRUCK_ROUTE && |
186 |
money > AI_MINIMUM_TRUCK_ROUTE_MONEY) { |
|
9895
7bd07f43b0e3
(svn r9321) [gamebalance] -Sync: r9025:9314 from trunk
celestar
parents:
5907
diff
changeset
|
187 |
if (GetFreeUnitNumber(VEH_ROAD) > _patches.max_roadveh) { |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
188 |
p->ainew.action = AI_ACTION_NONE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
189 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
190 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
191 |
p->ainew.cargo = AI_NEED_CARGO; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
192 |
p->ainew.last_id = 0; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
193 |
p->ainew.state = AI_STATE_LOCATE_ROUTE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
194 |
p->ainew.tbt = AI_TRUCK; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
195 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
196 |
} |
145 | 197 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
198 |
p->ainew.state = AI_STATE_NOTHING; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
199 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
200 |
|
2365 | 201 |
|
202 |
static void AiNew_State_ActionDone(Player *p) |
|
203 |
{ |
|
1490
6a13118e99f5
(svn r1994) Fix: 1159456 - hopefully prevent the new AI to get stuck in an infinite loop forlorny trying to build its haven. Unintentionally bundled with trivial tidyup.
pasky
parents:
1377
diff
changeset
|
204 |
p->ainew.action = AI_ACTION_NONE; |
6a13118e99f5
(svn r1994) Fix: 1159456 - hopefully prevent the new AI to get stuck in an infinite loop forlorny trying to build its haven. Unintentionally bundled with trivial tidyup.
pasky
parents:
1377
diff
changeset
|
205 |
p->ainew.state = AI_STATE_NOTHING; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
206 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
207 |
|
2365 | 208 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
209 |
// Check if a city or industry is good enough to start a route there |
2365 | 210 |
static bool AiNew_Check_City_or_Industry(Player *p, int ic, byte type) |
211 |
{ |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
212 |
if (type == AI_CITY) { |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
213 |
const Town* t = GetTown(ic); |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
214 |
const Station* st; |
1377
2a418162176e
(svn r1881) -Fix: [ 1119308 ] Max passengers / mail variables are now 32 bit
celestar
parents:
1330
diff
changeset
|
215 |
uint count = 0; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
216 |
int j = 0; |
145 | 217 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
218 |
// We don't like roadconstructions, don't even true such a city |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
219 |
if (t->road_build_months != 0) return false; |
145 | 220 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
221 |
// Check if the rating in a city is high enough |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
222 |
// If not, take a chance if we want to continue |
9910
0b2aebc8283e
(svn r10134) [gamebalance] -Sync: r9670:9700 from trunk
celestar
parents:
9895
diff
changeset
|
223 |
if (t->ratings[_current_player] < 0 && AI_CHANCE16(1, 4)) return false; |
145 | 224 |
|
9910
0b2aebc8283e
(svn r10134) [gamebalance] -Sync: r9670:9700 from trunk
celestar
parents:
9895
diff
changeset
|
225 |
if (t->max_pass - t->act_pass < AI_CHECKCITY_NEEDED_CARGO && !AI_CHANCE16(1, AI_CHECKCITY_CITY_CHANCE)) return false; |
145 | 226 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
227 |
// Check if we have build a station in this town the last 6 months |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
228 |
// else we don't do it. This is done, because stat updates can be slow |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
229 |
// and sometimes it takes up to 4 months before the stats are corectly. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
230 |
// This way we don't get 12 busstations in one city of 100 population ;) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
231 |
FOR_ALL_STATIONS(st) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
232 |
// Do we own it? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
233 |
if (st->owner == _current_player) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
234 |
// Are we talking busses? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
235 |
if (p->ainew.tbt == AI_BUS && (FACIL_BUS_STOP & st->facilities) != FACIL_BUS_STOP) continue; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
236 |
// Is it the same city as we are in now? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
237 |
if (st->town != t) continue; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
238 |
// When was this station build? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
239 |
if (_date - st->build_date < AI_CHECKCITY_DATE_BETWEEN) return false; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
240 |
// Cound the amount of stations in this city that we own |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
241 |
count++; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
242 |
} else { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
243 |
// We do not own it, request some info about the station |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
244 |
// we want to know if this station gets the same good. If so, |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
245 |
// we want to know its rating. If it is too high, we are not going |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
246 |
// to build there |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
247 |
if (!st->goods[CT_PASSENGERS].last_speed) continue; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
248 |
// Is it around our city |
1245
768d9bc95aaa
(svn r1749) Move the functions which calculate distances to map.[ch] and give the more meaningful names
tron
parents:
1209
diff
changeset
|
249 |
if (DistanceManhattan(st->xy, t->xy) > 10) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
250 |
// It does take this cargo.. what is his rating? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
251 |
if (st->goods[CT_PASSENGERS].rating < AI_CHECKCITY_CARGO_RATING) continue; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
252 |
j++; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
253 |
// When this is the first station, we build a second with no problem ;) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
254 |
if (j == 1) continue; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
255 |
// The rating is high.. second station... |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
256 |
// a little chance that we still continue |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
257 |
// But if there are 3 stations of this size, we never go on... |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
258 |
if (j == 2 && AI_CHANCE16(1, AI_CHECKCITY_CARGO_RATING_CHANCE)) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
259 |
// We don't like this station :( |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
260 |
return false; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
261 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
262 |
} |
145 | 263 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
264 |
// We are about to add one... |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
265 |
count++; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
266 |
// Check if we the city can provide enough cargo for this amount of stations.. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
267 |
if (count * AI_CHECKCITY_CARGO_PER_STATION > t->max_pass) return false; |
145 | 268 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
269 |
// All check are okay, so we can build here! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
270 |
return true; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
271 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
272 |
if (type == AI_INDUSTRY) { |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
273 |
const Industry* i = GetIndustry(ic); |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
274 |
const IndustrySpec *indsp = GetIndustrySpec(i->type); |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
275 |
const Station* st; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
276 |
int count = 0; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
277 |
int j = 0; |
145 | 278 |
|
9910
0b2aebc8283e
(svn r10134) [gamebalance] -Sync: r9670:9700 from trunk
celestar
parents:
9895
diff
changeset
|
279 |
if (i->town != NULL && i->town->ratings[_current_player] < 0 && AI_CHANCE16(1, 4)) return false; |
145 | 280 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
281 |
// No limits on delevering stations! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
282 |
// Or for industry that does not give anything yet |
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
283 |
if (indsp->produced_cargo[0] == CT_INVALID || i->last_month_production[0] == 0) return true; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
284 |
|
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
285 |
if (i->last_month_production[0] - i->last_month_transported[0] < AI_CHECKCITY_NEEDED_CARGO) return false; |
145 | 286 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
287 |
// Check if we have build a station in this town the last 6 months |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
288 |
// else we don't do it. This is done, because stat updates can be slow |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
289 |
// and sometimes it takes up to 4 months before the stats are corectly. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
290 |
FOR_ALL_STATIONS(st) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
291 |
// Do we own it? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
292 |
if (st->owner == _current_player) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
293 |
// Are we talking trucks? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
294 |
if (p->ainew.tbt == AI_TRUCK && (FACIL_TRUCK_STOP & st->facilities) != FACIL_TRUCK_STOP) continue; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
295 |
// Is it the same city as we are in now? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
296 |
if (st->town != i->town) continue; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
297 |
// When was this station build? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
298 |
if (_date - st->build_date < AI_CHECKCITY_DATE_BETWEEN) return false; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
299 |
// Cound the amount of stations in this city that we own |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
300 |
count++; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
301 |
} else { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
302 |
// We do not own it, request some info about the station |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
303 |
// we want to know if this station gets the same good. If so, |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
304 |
// we want to know its rating. If it is too high, we are not going |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
305 |
// to build there |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
306 |
if (indsp->produced_cargo[0] == CT_INVALID) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
307 |
// It does not take this cargo |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
308 |
if (!st->goods[indsp->produced_cargo[0]].last_speed) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
309 |
// Is it around our industry |
1245
768d9bc95aaa
(svn r1749) Move the functions which calculate distances to map.[ch] and give the more meaningful names
tron
parents:
1209
diff
changeset
|
310 |
if (DistanceManhattan(st->xy, i->xy) > 5) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
311 |
// It does take this cargo.. what is his rating? |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
312 |
if (st->goods[indsp->produced_cargo[0]].rating < AI_CHECKCITY_CARGO_RATING) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
313 |
j++; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
314 |
// The rating is high.. a little chance that we still continue |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
315 |
// But if there are 2 stations of this size, we never go on... |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
316 |
if (j == 1 && AI_CHANCE16(1, AI_CHECKCITY_CARGO_RATING_CHANCE)) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
317 |
// We don't like this station :( |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
318 |
return false; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
319 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
320 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
321 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
322 |
// We are about to add one... |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
323 |
count++; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
324 |
// Check if we the city can provide enough cargo for this amount of stations.. |
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
325 |
if (count * AI_CHECKCITY_CARGO_PER_STATION > i->last_month_production[0]) return false; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
326 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
327 |
// All check are okay, so we can build here! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
328 |
return true; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
329 |
} |
145 | 330 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
331 |
return true; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
332 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
333 |
|
145 | 334 |
|
2365 | 335 |
// This functions tries to locate a good route |
336 |
static void AiNew_State_LocateRoute(Player *p) |
|
337 |
{ |
|
338 |
assert(p->ainew.state == AI_STATE_LOCATE_ROUTE); |
|
339 |
// For now, we only support PASSENGERS, CITY and BUSSES |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
340 |
|
2365 | 341 |
// We don't have a route yet |
342 |
if (p->ainew.cargo == AI_NEED_CARGO) { |
|
343 |
p->ainew.new_cost = 0; // No cost yet |
|
344 |
p->ainew.temp = -1; |
|
345 |
// Reset the counter |
|
346 |
p->ainew.counter = 0; |
|
347 |
||
348 |
p->ainew.from_ic = -1; |
|
349 |
p->ainew.to_ic = -1; |
|
350 |
if (p->ainew.tbt == AI_BUS) { |
|
351 |
// For now we only have a passenger route |
|
352 |
p->ainew.cargo = CT_PASSENGERS; |
|
353 |
||
354 |
// Find a route to cities |
|
355 |
p->ainew.from_type = AI_CITY; |
|
356 |
p->ainew.to_type = AI_CITY; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
357 |
} else if (p->ainew.tbt == AI_TRUCK) { |
2365 | 358 |
p->ainew.cargo = AI_NO_CARGO; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
359 |
|
2365 | 360 |
p->ainew.from_type = AI_INDUSTRY; |
361 |
p->ainew.to_type = AI_INDUSTRY; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
362 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
363 |
|
2365 | 364 |
// Now we are doing initing, we wait one tick |
365 |
return; |
|
366 |
} |
|
145 | 367 |
|
2365 | 368 |
// Increase the counter and abort if it is taking too long! |
369 |
p->ainew.counter++; |
|
370 |
if (p->ainew.counter > AI_LOCATE_ROUTE_MAX_COUNTER) { |
|
371 |
// Switch back to doing nothing! |
|
372 |
p->ainew.state = AI_STATE_NOTHING; |
|
373 |
return; |
|
374 |
} |
|
145 | 375 |
|
2365 | 376 |
// We are going to locate a city from where we are going to connect |
377 |
if (p->ainew.from_ic == -1) { |
|
378 |
if (p->ainew.temp == -1) { |
|
379 |
// First, we pick a random spot to search from |
|
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
380 |
if (p->ainew.from_type == AI_CITY) { |
5247
c3eece01af11
(svn r7372) - CodeChange: Rename all GetXXXArraySize() functions to GetNumXXX() and add GetMaxXXXIndex() functions. This prepares for the new pool interface.
matthijs
parents:
5015
diff
changeset
|
381 |
p->ainew.temp = AI_RandomRange(GetMaxTownIndex() + 1); |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
382 |
} else { |
5247
c3eece01af11
(svn r7372) - CodeChange: Rename all GetXXXArraySize() functions to GetNumXXX() and add GetMaxXXXIndex() functions. This prepares for the new pool interface.
matthijs
parents:
5015
diff
changeset
|
383 |
p->ainew.temp = AI_RandomRange(GetMaxIndustryIndex() + 1); |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
384 |
} |
2365 | 385 |
} |
145 | 386 |
|
2365 | 387 |
if (!AiNew_Check_City_or_Industry(p, p->ainew.temp, p->ainew.from_type)) { |
388 |
// It was not a valid city |
|
389 |
// increase the temp with one, and return. We will come back later here |
|
390 |
// to try again |
|
391 |
p->ainew.temp++; |
|
392 |
if (p->ainew.from_type == AI_CITY) { |
|
5247
c3eece01af11
(svn r7372) - CodeChange: Rename all GetXXXArraySize() functions to GetNumXXX() and add GetMaxXXXIndex() functions. This prepares for the new pool interface.
matthijs
parents:
5015
diff
changeset
|
393 |
if (p->ainew.temp > GetMaxTownIndex()) p->ainew.temp = 0; |
2365 | 394 |
} else { |
5247
c3eece01af11
(svn r7372) - CodeChange: Rename all GetXXXArraySize() functions to GetNumXXX() and add GetMaxXXXIndex() functions. This prepares for the new pool interface.
matthijs
parents:
5015
diff
changeset
|
395 |
if (p->ainew.temp > GetMaxIndustryIndex()) p->ainew.temp = 0; |
2365 | 396 |
} |
145 | 397 |
|
2365 | 398 |
// Don't do an attempt if we are trying the same id as the last time... |
399 |
if (p->ainew.last_id == p->ainew.temp) return; |
|
400 |
p->ainew.last_id = p->ainew.temp; |
|
401 |
||
402 |
return; |
|
403 |
} |
|
404 |
||
405 |
// We found a good city/industry, save the data of it |
|
406 |
p->ainew.from_ic = p->ainew.temp; |
|
407 |
||
408 |
// Start the next tick with finding a to-city |
|
409 |
p->ainew.temp = -1; |
|
410 |
return; |
|
411 |
} |
|
412 |
||
413 |
// Find a to-city |
|
414 |
if (p->ainew.temp == -1) { |
|
415 |
// First, we pick a random spot to search to |
|
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
416 |
if (p->ainew.to_type == AI_CITY) { |
5247
c3eece01af11
(svn r7372) - CodeChange: Rename all GetXXXArraySize() functions to GetNumXXX() and add GetMaxXXXIndex() functions. This prepares for the new pool interface.
matthijs
parents:
5015
diff
changeset
|
417 |
p->ainew.temp = AI_RandomRange(GetMaxTownIndex() + 1); |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
418 |
} else { |
5247
c3eece01af11
(svn r7372) - CodeChange: Rename all GetXXXArraySize() functions to GetNumXXX() and add GetMaxXXXIndex() functions. This prepares for the new pool interface.
matthijs
parents:
5015
diff
changeset
|
419 |
p->ainew.temp = AI_RandomRange(GetMaxIndustryIndex() + 1); |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
420 |
} |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
421 |
} |
145 | 422 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
423 |
// The same city is not allowed |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
424 |
// Also check if the city is valid |
2365 | 425 |
if (p->ainew.temp != p->ainew.from_ic && AiNew_Check_City_or_Industry(p, p->ainew.temp, p->ainew.to_type)) { |
426 |
// Maybe it is valid.. |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
427 |
|
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
428 |
/* We need to know if they are not to far apart from eachother.. |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
429 |
* We do that by checking how much cargo we have to move and how long the |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
430 |
* route is. |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
431 |
*/ |
145 | 432 |
|
2365 | 433 |
if (p->ainew.from_type == AI_CITY && p->ainew.tbt == AI_BUS) { |
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
434 |
const Town* town_from = GetTown(p->ainew.from_ic); |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
435 |
const Town* town_temp = GetTown(p->ainew.temp); |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
436 |
uint distance = DistanceManhattan(town_from->xy, town_temp->xy); |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
437 |
int max_cargo; |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
438 |
|
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
439 |
max_cargo = town_from->max_pass + town_temp->max_pass; |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
440 |
max_cargo -= town_from->act_pass + town_temp->act_pass; |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
441 |
|
2365 | 442 |
// max_cargo is now the amount of cargo we can move between the two cities |
443 |
// If it is more than the distance, we allow it |
|
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
444 |
if (distance <= max_cargo * AI_LOCATEROUTE_BUS_CARGO_DISTANCE) { |
2365 | 445 |
// We found a good city/industry, save the data of it |
446 |
p->ainew.to_ic = p->ainew.temp; |
|
447 |
p->ainew.state = AI_STATE_FIND_STATION; |
|
448 |
||
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
449 |
DEBUG(ai, 1, "[LocateRoute] found bus-route of %d tiles long (from %d to %d)", |
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
450 |
distance, |
2365 | 451 |
p->ainew.from_ic, |
452 |
p->ainew.temp |
|
453 |
); |
|
454 |
||
455 |
p->ainew.from_tile = 0; |
|
456 |
p->ainew.to_tile = 0; |
|
457 |
||
458 |
return; |
|
459 |
} |
|
460 |
} else if (p->ainew.tbt == AI_TRUCK) { |
|
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
461 |
const Industry* ind_from = GetIndustry(p->ainew.from_ic); |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
462 |
const IndustrySpec *indsp_from = GetIndustrySpec(ind_from->type); |
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
463 |
const Industry* ind_temp = GetIndustry(p->ainew.temp); |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
464 |
const IndustrySpec *indsp_temp = GetIndustrySpec(ind_temp->type); |
2365 | 465 |
bool found = false; |
466 |
int max_cargo = 0; |
|
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
467 |
uint i; |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
468 |
|
2365 | 469 |
// TODO: in max_cargo, also check other cargo (beside [0]) |
470 |
// First we check if the from_ic produces cargo that this ic accepts |
|
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
471 |
if (indsp_from->produced_cargo[0] != CT_INVALID && ind_from->last_month_production[0] != 0) { |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
472 |
for (i = 0; i < lengthof(indsp_temp->accepts_cargo); i++) { |
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
473 |
if (indsp_temp->accepts_cargo[i] == CT_INVALID) break; |
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
474 |
if (indsp_from->produced_cargo[0] == indsp_temp->accepts_cargo[i]) { |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
475 |
// Found a compatible industry |
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
476 |
max_cargo = ind_from->last_month_production[0] - ind_from->last_month_transported[0]; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
477 |
found = true; |
2365 | 478 |
p->ainew.from_deliver = true; |
479 |
p->ainew.to_deliver = false; |
|
480 |
break; |
|
481 |
} |
|
482 |
} |
|
483 |
} |
|
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
484 |
if (!found && indsp_temp->produced_cargo[0] != CT_INVALID && ind_temp->last_month_production[0] != 0) { |
2365 | 485 |
// If not check if the current ic produces cargo that the from_ic accepts |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
486 |
for (i = 0; i < lengthof(indsp_from->accepts_cargo); i++) { |
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
487 |
if (indsp_from->accepts_cargo[i] == CT_INVALID) break; |
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
488 |
if (indsp_from->produced_cargo[0] == indsp_from->accepts_cargo[i]) { |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
489 |
// Found a compatbiel industry |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
490 |
found = true; |
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
491 |
max_cargo = ind_temp->last_month_production[0] - ind_temp->last_month_transported[0]; |
2365 | 492 |
p->ainew.from_deliver = false; |
493 |
p->ainew.to_deliver = true; |
|
494 |
break; |
|
495 |
} |
|
496 |
} |
|
497 |
} |
|
498 |
if (found) { |
|
499 |
// Yeah, they are compatible!!! |
|
500 |
// Check the length against the amount of goods |
|
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
501 |
uint distance = DistanceManhattan(ind_from->xy, ind_temp->xy); |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
502 |
|
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
503 |
if (distance > AI_LOCATEROUTE_TRUCK_MIN_DISTANCE && |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
504 |
distance <= max_cargo * AI_LOCATEROUTE_TRUCK_CARGO_DISTANCE) { |
2365 | 505 |
p->ainew.to_ic = p->ainew.temp; |
506 |
if (p->ainew.from_deliver) { |
|
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
507 |
p->ainew.cargo = indsp_from->produced_cargo[0]; |
2365 | 508 |
} else { |
9911
0b8b245a2391
(svn r10135) [gamebalance] -Sync: r9700:9900 from trunk
celestar
parents:
9910
diff
changeset
|
509 |
p->ainew.cargo = indsp_temp->produced_cargo[0]; |
2365 | 510 |
} |
511 |
p->ainew.state = AI_STATE_FIND_STATION; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
512 |
|
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
513 |
DEBUG(ai, 1, "[LocateRoute] found truck-route of %d tiles long (from %d to %d)", |
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
514 |
distance, |
2365 | 515 |
p->ainew.from_ic, |
516 |
p->ainew.temp |
|
517 |
); |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
518 |
|
2365 | 519 |
p->ainew.from_tile = 0; |
520 |
p->ainew.to_tile = 0; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
521 |
|
2365 | 522 |
return; |
523 |
} |
|
524 |
} |
|
525 |
} |
|
526 |
} |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
527 |
|
1260
c60e76928e5c
(svn r1764) -Add: dynamic towns, you can now have up to 64k towns (let me know when
truelight
parents:
1253
diff
changeset
|
528 |
// It was not a valid city |
c60e76928e5c
(svn r1764) -Add: dynamic towns, you can now have up to 64k towns (let me know when
truelight
parents:
1253
diff
changeset
|
529 |
// increase the temp with one, and return. We will come back later here |
c60e76928e5c
(svn r1764) -Add: dynamic towns, you can now have up to 64k towns (let me know when
truelight
parents:
1253
diff
changeset
|
530 |
// to try again |
c60e76928e5c
(svn r1764) -Add: dynamic towns, you can now have up to 64k towns (let me know when
truelight
parents:
1253
diff
changeset
|
531 |
p->ainew.temp++; |
c60e76928e5c
(svn r1764) -Add: dynamic towns, you can now have up to 64k towns (let me know when
truelight
parents:
1253
diff
changeset
|
532 |
if (p->ainew.to_type == AI_CITY) { |
5247
c3eece01af11
(svn r7372) - CodeChange: Rename all GetXXXArraySize() functions to GetNumXXX() and add GetMaxXXXIndex() functions. This prepares for the new pool interface.
matthijs
parents:
5015
diff
changeset
|
533 |
if (p->ainew.temp > GetMaxTownIndex()) p->ainew.temp = 0; |
1260
c60e76928e5c
(svn r1764) -Add: dynamic towns, you can now have up to 64k towns (let me know when
truelight
parents:
1253
diff
changeset
|
534 |
} else { |
5247
c3eece01af11
(svn r7372) - CodeChange: Rename all GetXXXArraySize() functions to GetNumXXX() and add GetMaxXXXIndex() functions. This prepares for the new pool interface.
matthijs
parents:
5015
diff
changeset
|
535 |
if (p->ainew.temp > GetMaxIndustryIndex()) p->ainew.temp = 0; |
1260
c60e76928e5c
(svn r1764) -Add: dynamic towns, you can now have up to 64k towns (let me know when
truelight
parents:
1253
diff
changeset
|
536 |
} |
145 | 537 |
|
2365 | 538 |
// Don't do an attempt if we are trying the same id as the last time... |
539 |
if (p->ainew.last_id == p->ainew.temp) return; |
|
540 |
p->ainew.last_id = p->ainew.temp; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
541 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
542 |
|
2365 | 543 |
|
826 | 544 |
// Check if there are not more than a certain amount of vehicles pointed to a certain |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
545 |
// station. This to prevent 10 busses going to one station, which gives... problems ;) |
2365 | 546 |
static bool AiNew_CheckVehicleStation(Player *p, Station *st) |
547 |
{ |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
548 |
int count = 0; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
549 |
Vehicle *v; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
550 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
551 |
// Also check if we don't have already a lot of busses to this city... |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
552 |
FOR_ALL_VEHICLES(v) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
553 |
if (v->owner == _current_player) { |
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
926
diff
changeset
|
554 |
const Order *order; |
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
926
diff
changeset
|
555 |
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
926
diff
changeset
|
556 |
FOR_VEHICLE_ORDERS(v, order) { |
4527
b18634a31a4a
(svn r6353) -Codechange: Make DestinationID a typedef of uin16, which is as large as any type of destinataion (StationID, DepotID, WaypointID) it can hold
tron
parents:
4389
diff
changeset
|
557 |
if (order->type == OT_GOTO_STATION && GetStation(order->dest) == st) { |
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
926
diff
changeset
|
558 |
// This vehicle has this city in its list |
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
926
diff
changeset
|
559 |
count++; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
560 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
561 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
562 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
563 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
564 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
565 |
if (count > AI_CHECK_MAX_VEHICLE_PER_STATION) return false; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
566 |
return true; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
567 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
568 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
569 |
// This function finds a good spot for a station |
2365 | 570 |
static void AiNew_State_FindStation(Player *p) |
571 |
{ |
|
572 |
TileIndex tile; |
|
573 |
Station *st; |
|
3885
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
574 |
int count = 0; |
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
575 |
EngineID i; |
2365 | 576 |
TileIndex new_tile = 0; |
577 |
byte direction = 0; |
|
578 |
Town *town = NULL; |
|
579 |
assert(p->ainew.state == AI_STATE_FIND_STATION); |
|
145 | 580 |
|
2365 | 581 |
if (p->ainew.from_tile == 0) { |
582 |
// First we scan for a station in the from-city |
|
583 |
if (p->ainew.from_type == AI_CITY) { |
|
584 |
town = GetTown(p->ainew.from_ic); |
|
585 |
tile = town->xy; |
|
586 |
} else { |
|
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
587 |
tile = GetIndustry(p->ainew.from_ic)->xy; |
2365 | 588 |
} |
589 |
} else if (p->ainew.to_tile == 0) { |
|
590 |
// Second we scan for a station in the to-city |
|
591 |
if (p->ainew.to_type == AI_CITY) { |
|
592 |
town = GetTown(p->ainew.to_ic); |
|
593 |
tile = town->xy; |
|
594 |
} else { |
|
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
595 |
tile = GetIndustry(p->ainew.to_ic)->xy; |
2365 | 596 |
} |
597 |
} else { |
|
598 |
// Unsupported request |
|
599 |
// Go to FIND_PATH |
|
600 |
p->ainew.temp = -1; |
|
601 |
p->ainew.state = AI_STATE_FIND_PATH; |
|
602 |
return; |
|
603 |
} |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
604 |
|
2365 | 605 |
// First, we are going to look at the stations that already exist inside the city |
606 |
// If there is enough cargo left in the station, we take that station |
|
607 |
// If that is not possible, and there are more than 2 stations in the city, abort |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
608 |
i = AiNew_PickVehicle(p); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
609 |
// Euhmz, this should not happen _EVER_ |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
610 |
// Quit finding a route... |
3885
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
611 |
if (i == INVALID_ENGINE) { |
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
612 |
p->ainew.state = AI_STATE_NOTHING; |
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
613 |
return; |
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
614 |
} |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
615 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
616 |
FOR_ALL_STATIONS(st) { |
4346
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
617 |
if (st->owner == _current_player) { |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
618 |
if (p->ainew.tbt == AI_BUS && (FACIL_BUS_STOP & st->facilities) == FACIL_BUS_STOP) { |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
619 |
if (st->town == town) { |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
620 |
// Check how much cargo there is left in the station |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
621 |
if ((st->goods[p->ainew.cargo].waiting_acceptance & 0xFFF) > RoadVehInfo(i)->capacity * AI_STATION_REUSE_MULTIPLER) { |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
622 |
if (AiNew_CheckVehicleStation(p, st)) { |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
623 |
// We did found a station that was good enough! |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
624 |
new_tile = st->xy; |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
625 |
direction = GetRoadStopDir(st->xy); |
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
626 |
break; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
627 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
628 |
} |
4346
3f00094f2670
(svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents:
4261
diff
changeset
|
629 |
count++; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
630 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
631 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
632 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
633 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
634 |
// We are going to add a new station... |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
635 |
if (new_tile == 0) count++; |
826 | 636 |
// No more than 2 stations allowed in a city |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
637 |
// This is because only the best 2 stations of one cargo do get any cargo |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
638 |
if (count > 2) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
639 |
p->ainew.state = AI_STATE_NOTHING; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
640 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
641 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
642 |
|
2365 | 643 |
if (new_tile == 0 && p->ainew.tbt == AI_BUS) { |
644 |
uint x, y, i = 0; |
|
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
645 |
CommandCost r; |
2365 | 646 |
uint best; |
647 |
uint accepts[NUM_CARGO]; |
|
9910
0b2aebc8283e
(svn r10134) [gamebalance] -Sync: r9670:9700 from trunk
celestar
parents:
9895
diff
changeset
|
648 |
TileIndex found_spot[AI_FINDSTATION_TILE_RANGE*AI_FINDSTATION_TILE_RANGE * 4]; |
0b2aebc8283e
(svn r10134) [gamebalance] -Sync: r9670:9700 from trunk
celestar
parents:
9895
diff
changeset
|
649 |
uint found_best[AI_FINDSTATION_TILE_RANGE*AI_FINDSTATION_TILE_RANGE * 4]; |
2365 | 650 |
// To find a good spot we scan a range from the center, a get the point |
651 |
// where we get the most cargo and where it is buildable. |
|
652 |
// TODO: also check for station of myself and make sure we are not |
|
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
653 |
// taking eachothers passengers away (bad result when it does not) |
2365 | 654 |
for (x = TileX(tile) - AI_FINDSTATION_TILE_RANGE; x <= TileX(tile) + AI_FINDSTATION_TILE_RANGE; x++) { |
655 |
for (y = TileY(tile) - AI_FINDSTATION_TILE_RANGE; y <= TileY(tile) + AI_FINDSTATION_TILE_RANGE; y++) { |
|
656 |
new_tile = TileXY(x, y); |
|
657 |
if (IsTileType(new_tile, MP_CLEAR) || IsTileType(new_tile, MP_TREES)) { |
|
658 |
// This tile we can build on! |
|
659 |
// Check acceptance |
|
660 |
// XXX - Get the catchment area |
|
661 |
GetAcceptanceAroundTiles(accepts, new_tile, 1, 1, 4); |
|
662 |
// >> 3 == 0 means no cargo |
|
663 |
if (accepts[p->ainew.cargo] >> 3 == 0) continue; |
|
664 |
// See if we can build the station |
|
665 |
r = AiNew_Build_Station(p, p->ainew.tbt, new_tile, 0, 0, 0, DC_QUERY_COST); |
|
2737
f16e0a808897
(svn r3282) - Codechange: Replace tests against CMD_ERROR with CmdFailed()
peter1138
parents:
2684
diff
changeset
|
666 |
if (CmdFailed(r)) continue; |
2365 | 667 |
// We can build it, so add it to found_spot |
668 |
found_spot[i] = new_tile; |
|
669 |
found_best[i++] = accepts[p->ainew.cargo]; |
|
670 |
} |
|
671 |
} |
|
672 |
} |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
673 |
|
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
674 |
// If i is still zero, we did not find anything |
2365 | 675 |
if (i == 0) { |
676 |
p->ainew.state = AI_STATE_NOTHING; |
|
677 |
return; |
|
678 |
} |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
679 |
|
2365 | 680 |
// Go through all the found_best and check which has the highest value |
681 |
best = 0; |
|
682 |
new_tile = 0; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
683 |
|
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
684 |
for (x = 0; x < i; x++) { |
2365 | 685 |
if (found_best[x] > best || |
686 |
(found_best[x] == best && DistanceManhattan(tile, new_tile) > DistanceManhattan(tile, found_spot[x]))) { |
|
687 |
new_tile = found_spot[x]; |
|
688 |
best = found_best[x]; |
|
689 |
} |
|
690 |
} |
|
145 | 691 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
692 |
// See how much it is going to cost us... |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
693 |
r = AiNew_Build_Station(p, p->ainew.tbt, new_tile, 0, 0, 0, DC_QUERY_COST); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
694 |
p->ainew.new_cost += r; |
145 | 695 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
696 |
direction = AI_PATHFINDER_NO_DIRECTION; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
697 |
} else if (new_tile == 0 && p->ainew.tbt == AI_TRUCK) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
698 |
// Truck station locater works differently.. a station can be on any place |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
699 |
// as long as it is in range. So we give back code AI_STATION_RANGE |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
700 |
// so the pathfinder routine can work it out! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
701 |
new_tile = AI_STATION_RANGE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
702 |
direction = AI_PATHFINDER_NO_DIRECTION; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
703 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
704 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
705 |
if (p->ainew.from_tile == 0) { |
2365 | 706 |
p->ainew.from_tile = new_tile; |
707 |
p->ainew.from_direction = direction; |
|
708 |
// Now we found thisone, go in for to_tile |
|
709 |
return; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
710 |
} else if (p->ainew.to_tile == 0) { |
2365 | 711 |
p->ainew.to_tile = new_tile; |
712 |
p->ainew.to_direction = direction; |
|
713 |
// K, done placing stations! |
|
714 |
p->ainew.temp = -1; |
|
715 |
p->ainew.state = AI_STATE_FIND_PATH; |
|
716 |
return; |
|
717 |
} |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
718 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
719 |
|
2365 | 720 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
721 |
// We try to find a path between 2 points |
2365 | 722 |
static void AiNew_State_FindPath(Player *p) |
723 |
{ |
|
724 |
int r; |
|
725 |
assert(p->ainew.state == AI_STATE_FIND_PATH); |
|
145 | 726 |
|
2365 | 727 |
// First time, init some data |
728 |
if (p->ainew.temp == -1) { |
|
729 |
// Init path_info |
|
730 |
if (p->ainew.from_tile == AI_STATION_RANGE) { |
|
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
731 |
const Industry* i = GetIndustry(p->ainew.from_ic); |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
732 |
|
2365 | 733 |
// For truck routes we take a range around the industry |
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
734 |
p->ainew.path_info.start_tile_tl = i->xy - TileDiffXY(1, 1); |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
735 |
p->ainew.path_info.start_tile_br = i->xy + TileDiffXY(i->width + 1, i->height + 1); |
2365 | 736 |
p->ainew.path_info.start_direction = p->ainew.from_direction; |
737 |
} else { |
|
738 |
p->ainew.path_info.start_tile_tl = p->ainew.from_tile; |
|
739 |
p->ainew.path_info.start_tile_br = p->ainew.from_tile; |
|
740 |
p->ainew.path_info.start_direction = p->ainew.from_direction; |
|
741 |
} |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
742 |
|
2365 | 743 |
if (p->ainew.to_tile == AI_STATION_RANGE) { |
3952
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
744 |
const Industry* i = GetIndustry(p->ainew.to_ic); |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
745 |
|
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
746 |
p->ainew.path_info.end_tile_tl = i->xy - TileDiffXY(1, 1); |
c51a2e094dde
(svn r5098) Do some manual CSE and replace a few magic numbers to improve the readability of the trolly AI
tron
parents:
3951
diff
changeset
|
747 |
p->ainew.path_info.end_tile_br = i->xy + TileDiffXY(i->width + 1, i->height + 1); |
2365 | 748 |
p->ainew.path_info.end_direction = p->ainew.to_direction; |
749 |
} else { |
|
750 |
p->ainew.path_info.end_tile_tl = p->ainew.to_tile; |
|
751 |
p->ainew.path_info.end_tile_br = p->ainew.to_tile; |
|
752 |
p->ainew.path_info.end_direction = p->ainew.to_direction; |
|
753 |
} |
|
145 | 754 |
|
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
755 |
p->ainew.path_info.rail_or_road = (p->ainew.tbt == AI_TRAIN); |
145 | 756 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
757 |
// First, clean the pathfinder with our new begin and endpoints |
2365 | 758 |
clean_AyStar_AiPathFinder(p->ainew.pathfinder, &p->ainew.path_info); |
145 | 759 |
|
2365 | 760 |
p->ainew.temp = 0; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
761 |
} |
145 | 762 |
|
2365 | 763 |
// Start the pathfinder |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
764 |
r = p->ainew.pathfinder->main(p->ainew.pathfinder); |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
765 |
switch (r) { |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
766 |
case AYSTAR_NO_PATH: |
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
767 |
DEBUG(ai, 1, "No route found by pathfinder"); |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
768 |
// Start all over again |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
769 |
p->ainew.state = AI_STATE_NOTHING; |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
770 |
break; |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
771 |
|
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
772 |
case AYSTAR_FOUND_END_NODE: // We found the end-point |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
773 |
p->ainew.temp = -1; |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
774 |
p->ainew.state = AI_STATE_FIND_DEPOT; |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
775 |
break; |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
776 |
|
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
777 |
// In any other case, we are still busy finding the route |
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
778 |
default: break; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
779 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
780 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
781 |
|
2365 | 782 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
783 |
// This function tries to locate a good place for a depot! |
2365 | 784 |
static void AiNew_State_FindDepot(Player *p) |
785 |
{ |
|
786 |
// To place the depot, we walk through the route, and if we find a lovely spot (MP_CLEAR, MP_TREES), we place it there.. |
|
787 |
// Simple, easy, works! |
|
788 |
// To make the depot stand in the middle of the route, we start from the center.. |
|
789 |
// But first we walk through the route see if we can find a depot that is ours |
|
790 |
// this keeps things nice ;) |
|
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
791 |
int g, i; |
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
792 |
CommandCost r; |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
793 |
DiagDirection j; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
794 |
TileIndex tile; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
795 |
assert(p->ainew.state == AI_STATE_FIND_DEPOT); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
796 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
797 |
p->ainew.depot_tile = 0; |
145 | 798 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
799 |
for (i=2;i<p->ainew.path_info.route_length-2;i++) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
800 |
tile = p->ainew.path_info.route[i]; |
5838
9c3129cb019b
(svn r8038) -Merge: the cpp branch. Effort of KUDr, Celestar, glx, Smoovius, stillunknown and pv2b.
rubidium
parents:
5835
diff
changeset
|
801 |
for (j = DIAGDIR_BEGIN; j < DIAGDIR_END; j++) { |
4559
c853d2440065
(svn r6406) -Codechange: Rename TileOffsByDir to TileOffsByDiagDir because it accepts
Darkvater
parents:
4527
diff
changeset
|
802 |
TileIndex t = tile + TileOffsByDiagDir(j); |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
803 |
|
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
804 |
if (IsTileType(t, MP_STREET) && |
3793
33cdb5bf7b21
(svn r4789) - Codechange: rename RoadType to RoadTileType and ROAD_{NORMAL,CROSSING,DEPOT} to ROAD_TILE_* for consistency
rubidium
parents:
3644
diff
changeset
|
805 |
GetRoadTileType(t) == ROAD_TILE_DEPOT && |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
806 |
IsTileOwner(t, _current_player) && |
3179 | 807 |
GetRoadDepotDirection(t) == ReverseDiagDir(j)) { |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
808 |
p->ainew.depot_tile = t; |
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
809 |
p->ainew.depot_direction = ReverseDiagDir(j); |
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
810 |
p->ainew.state = AI_STATE_VERIFY_ROUTE; |
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
811 |
return; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
812 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
813 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
814 |
} |
145 | 815 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
816 |
// This routine let depot finding start in the middle, and work his way to the stations |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
817 |
// It makes depot placing nicer :) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
818 |
i = p->ainew.path_info.route_length / 2; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
819 |
g = 1; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
820 |
while (i > 1 && i < p->ainew.path_info.route_length - 2) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
821 |
i += g; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
822 |
g *= -1; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
823 |
(g < 0?g--:g++); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
824 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
825 |
if (p->ainew.path_info.route_extra[i] != 0 || p->ainew.path_info.route_extra[i+1] != 0) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
826 |
// Bridge or tunnel.. we can't place a depot there |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
827 |
continue; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
828 |
} |
145 | 829 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
830 |
tile = p->ainew.path_info.route[i]; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
831 |
|
5838
9c3129cb019b
(svn r8038) -Merge: the cpp branch. Effort of KUDr, Celestar, glx, Smoovius, stillunknown and pv2b.
rubidium
parents:
5835
diff
changeset
|
832 |
for (j = DIAGDIR_BEGIN; j < DIAGDIR_END; j++) { |
4559
c853d2440065
(svn r6406) -Codechange: Rename TileOffsByDir to TileOffsByDiagDir because it accepts
Darkvater
parents:
4527
diff
changeset
|
833 |
TileIndex t = tile + TileOffsByDiagDir(j); |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
834 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
835 |
// It may not be placed on the road/rail itself |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
836 |
// And because it is not build yet, we can't see it on the tile.. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
837 |
// So check the surrounding tiles :) |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
838 |
if (t == p->ainew.path_info.route[i - 1] || |
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
839 |
t == p->ainew.path_info.route[i + 1]) { |
2365 | 840 |
continue; |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
841 |
} |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
842 |
// Not around a bridge? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
843 |
if (p->ainew.path_info.route_extra[i] != 0) continue; |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1024
diff
changeset
|
844 |
if (IsTileType(tile, MP_TUNNELBRIDGE)) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
845 |
// Is the terrain clear? |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
846 |
if (IsTileType(t, MP_CLEAR) || IsTileType(t, MP_TREES)) { |
3644
45a307767dc1
(svn r4553) int and magic numbers -> Slope and DiagDirection
tron
parents:
3577
diff
changeset
|
847 |
// If the current tile is on a slope then we do not allow this |
45a307767dc1
(svn r4553) int and magic numbers -> Slope and DiagDirection
tron
parents:
3577
diff
changeset
|
848 |
if (GetTileSlope(tile, NULL) != SLOPE_FLAT) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
849 |
// Check if everything went okay.. |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
850 |
r = AiNew_Build_Depot(p, t, ReverseDiagDir(j), 0); |
2737
f16e0a808897
(svn r3282) - Codechange: Replace tests against CMD_ERROR with CmdFailed()
peter1138
parents:
2684
diff
changeset
|
851 |
if (CmdFailed(r)) continue; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
852 |
// Found a spot! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
853 |
p->ainew.new_cost += r; |
3153
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
854 |
p->ainew.depot_tile = t; |
301c1d71122b
(svn r3776) Replace many ints and magic numbers by Direction, DiagDirection and friends
tron
parents:
3144
diff
changeset
|
855 |
p->ainew.depot_direction = ReverseDiagDir(j); // Reverse direction |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
856 |
p->ainew.state = AI_STATE_VERIFY_ROUTE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
857 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
858 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
859 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
860 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
861 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
862 |
// Failed to find a depot? |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
863 |
p->ainew.state = AI_STATE_NOTHING; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
864 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
865 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
866 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
867 |
// This function calculates how many vehicles there are needed on this |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
868 |
// traject. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
869 |
// It works pretty simple: get the length, see how much we move around |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
870 |
// and hussle that, and you know how many vehicles there are needed. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
871 |
// It returns the cost for the vehicles |
2365 | 872 |
static int AiNew_HowManyVehicles(Player *p) |
873 |
{ |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
874 |
if (p->ainew.tbt == AI_BUS) { |
2365 | 875 |
// For bus-routes we look at the time before we are back in the station |
3885
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
876 |
EngineID i; |
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
877 |
int length, tiles_a_day; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
878 |
int amount; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
879 |
i = AiNew_PickVehicle(p); |
3885
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
880 |
if (i == INVALID_ENGINE) return 0; |
2365 | 881 |
// Passenger run.. how long is the route? |
882 |
length = p->ainew.path_info.route_length; |
|
883 |
// Calculating tiles a day a vehicle moves is not easy.. this is how it must be done! |
|
884 |
tiles_a_day = RoadVehInfo(i)->max_speed * DAY_TICKS / 256 / 16; |
|
885 |
// We want a vehicle in a station once a month at least, so, calculate it! |
|
886 |
// (the * 2 is because we have 2 stations ;)) |
|
887 |
amount = length * 2 * 2 / tiles_a_day / 30; |
|
888 |
if (amount == 0) amount = 1; |
|
889 |
return amount; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
890 |
} else if (p->ainew.tbt == AI_TRUCK) { |
2365 | 891 |
// For truck-routes we look at the cargo |
3885
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
892 |
EngineID i; |
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
893 |
int length, amount, tiles_a_day; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
894 |
int max_cargo; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
895 |
i = AiNew_PickVehicle(p); |
3885
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
896 |
if (i == INVALID_ENGINE) return 0; |
2365 | 897 |
// Passenger run.. how long is the route? |
898 |
length = p->ainew.path_info.route_length; |
|
899 |
// Calculating tiles a day a vehicle moves is not easy.. this is how it must be done! |
|
900 |
tiles_a_day = RoadVehInfo(i)->max_speed * DAY_TICKS / 256 / 16; |
|
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
901 |
if (p->ainew.from_deliver) { |
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
902 |
max_cargo = GetIndustry(p->ainew.from_ic)->last_month_production[0]; |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
903 |
} else { |
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
904 |
max_cargo = GetIndustry(p->ainew.to_ic)->last_month_production[0]; |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
905 |
} |
145 | 906 |
|
2365 | 907 |
// This is because moving 60% is more than we can dream of! |
5838
9c3129cb019b
(svn r8038) -Merge: the cpp branch. Effort of KUDr, Celestar, glx, Smoovius, stillunknown and pv2b.
rubidium
parents:
5835
diff
changeset
|
908 |
max_cargo *= 6; |
9c3129cb019b
(svn r8038) -Merge: the cpp branch. Effort of KUDr, Celestar, glx, Smoovius, stillunknown and pv2b.
rubidium
parents:
5835
diff
changeset
|
909 |
max_cargo /= 10; |
2365 | 910 |
// We want all the cargo to be gone in a month.. so, we know the cargo it delivers |
911 |
// we know what the vehicle takes with him, and we know the time it takes him |
|
912 |
// to get back here.. now let's do some math! |
|
913 |
amount = 2 * length * max_cargo / tiles_a_day / 30 / RoadVehInfo(i)->capacity; |
|
914 |
amount += 1; |
|
915 |
return amount; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
916 |
} else { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
917 |
// Currently not supported |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
918 |
return 0; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
919 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
920 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
921 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
922 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
923 |
// This function checks: |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
924 |
// - If the route went okay |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
925 |
// - Calculates the amount of money needed to build the route |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
926 |
// - Calculates how much vehicles needed for the route |
2365 | 927 |
static void AiNew_State_VerifyRoute(Player *p) |
928 |
{ |
|
929 |
int res, i; |
|
930 |
assert(p->ainew.state == AI_STATE_VERIFY_ROUTE); |
|
145 | 931 |
|
2365 | 932 |
// Let's calculate the cost of the path.. |
933 |
// new_cost already contains the cost of the stations |
|
934 |
p->ainew.path_info.position = -1; |
|
145 | 935 |
|
2365 | 936 |
do { |
937 |
p->ainew.path_info.position++; |
|
938 |
p->ainew.new_cost += AiNew_Build_RoutePart(p, &p->ainew.path_info, DC_QUERY_COST); |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
939 |
} while (p->ainew.path_info.position != -2); |
145 | 940 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
941 |
// Now we know the price of build station + path. Now check how many vehicles |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
942 |
// we need and what the price for that will be |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
943 |
res = AiNew_HowManyVehicles(p); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
944 |
// If res == 0, no vehicle was found, or an other problem did occour |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
945 |
if (res == 0) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
946 |
p->ainew.state = AI_STATE_NOTHING; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
947 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
948 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
949 |
p->ainew.amount_veh = res; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
950 |
p->ainew.cur_veh = 0; |
145 | 951 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
952 |
// Check how much it it going to cost us.. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
953 |
for (i=0;i<res;i++) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
954 |
p->ainew.new_cost += AiNew_Build_Vehicle(p, 0, DC_QUERY_COST); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
955 |
} |
145 | 956 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
957 |
// Now we know how much the route is going to cost us |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
958 |
// Check if we have enough money for it! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
959 |
if (p->ainew.new_cost > p->player_money - AI_MINIMUM_MONEY) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
960 |
// Too bad.. |
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
961 |
DEBUG(ai, 1, "Insufficient funds to build route (%d)", p->ainew.new_cost); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
962 |
p->ainew.state = AI_STATE_NOTHING; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
963 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
964 |
} |
145 | 965 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
966 |
// Now we can build the route, check the direction of the stations! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
967 |
if (p->ainew.from_direction == AI_PATHFINDER_NO_DIRECTION) { |
9910
0b2aebc8283e
(svn r10134) [gamebalance] -Sync: r9670:9700 from trunk
celestar
parents:
9895
diff
changeset
|
968 |
p->ainew.from_direction = AiNew_GetDirection(p->ainew.path_info.route[p->ainew.path_info.route_length - 1], p->ainew.path_info.route[p->ainew.path_info.route_length - 2]); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
969 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
970 |
if (p->ainew.to_direction == AI_PATHFINDER_NO_DIRECTION) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
971 |
p->ainew.to_direction = AiNew_GetDirection(p->ainew.path_info.route[0], p->ainew.path_info.route[1]); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
972 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
973 |
if (p->ainew.from_tile == AI_STATION_RANGE) |
9910
0b2aebc8283e
(svn r10134) [gamebalance] -Sync: r9670:9700 from trunk
celestar
parents:
9895
diff
changeset
|
974 |
p->ainew.from_tile = p->ainew.path_info.route[p->ainew.path_info.route_length - 1]; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
975 |
if (p->ainew.to_tile == AI_STATION_RANGE) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
976 |
p->ainew.to_tile = p->ainew.path_info.route[0]; |
145 | 977 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
978 |
p->ainew.state = AI_STATE_BUILD_STATION; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
979 |
p->ainew.temp = 0; |
145 | 980 |
|
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
981 |
DEBUG(ai, 1, "The route is set and buildable, building 0x%X to 0x%X...", p->ainew.from_tile, p->ainew.to_tile); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
982 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
983 |
|
2365 | 984 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
985 |
// Build the stations |
2365 | 986 |
static void AiNew_State_BuildStation(Player *p) |
987 |
{ |
|
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
988 |
CommandCost res = 0; |
2365 | 989 |
assert(p->ainew.state == AI_STATE_BUILD_STATION); |
990 |
if (p->ainew.temp == 0) { |
|
991 |
if (!IsTileType(p->ainew.from_tile, MP_STATION)) |
|
992 |
res = AiNew_Build_Station(p, p->ainew.tbt, p->ainew.from_tile, 0, 0, p->ainew.from_direction, DC_EXEC); |
|
993 |
} else { |
|
994 |
if (!IsTileType(p->ainew.to_tile, MP_STATION)) |
|
995 |
res = AiNew_Build_Station(p, p->ainew.tbt, p->ainew.to_tile, 0, 0, p->ainew.to_direction, DC_EXEC); |
|
996 |
p->ainew.state = AI_STATE_BUILD_PATH; |
|
997 |
} |
|
2737
f16e0a808897
(svn r3282) - Codechange: Replace tests against CMD_ERROR with CmdFailed()
peter1138
parents:
2684
diff
changeset
|
998 |
if (CmdFailed(res)) { |
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
999 |
DEBUG(ai, 0, "[BuildStation] station could not be built (0x%X)", p->ainew.to_tile); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1000 |
p->ainew.state = AI_STATE_NOTHING; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1001 |
// If the first station _was_ build, destroy it |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1002 |
if (p->ainew.temp != 0) |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1003 |
AI_DoCommand(p->ainew.from_tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1004 |
return; |
2365 | 1005 |
} |
1006 |
p->ainew.temp++; |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1007 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1008 |
|
2365 | 1009 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1010 |
// Build the path |
2365 | 1011 |
static void AiNew_State_BuildPath(Player *p) |
1012 |
{ |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1013 |
assert(p->ainew.state == AI_STATE_BUILD_PATH); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1014 |
// p->ainew.temp is set to -1 when this function is called for the first time |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1015 |
if (p->ainew.temp == -1) { |
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
1016 |
DEBUG(ai, 1, "Starting to build new path"); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1017 |
// Init the counter |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1018 |
p->ainew.counter = (4 - _opt.diff.competitor_speed) * AI_BUILDPATH_PAUSE + 1; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1019 |
// Set the position to the startingplace (-1 because in a minute we do ++) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1020 |
p->ainew.path_info.position = -1; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1021 |
// And don't do this again |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1022 |
p->ainew.temp = 0; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1023 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1024 |
// Building goes very fast on normal rate, so we are going to slow it down.. |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1025 |
// By let the counter count from AI_BUILDPATH_PAUSE to 0, we have a nice way :) |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1026 |
if (--p->ainew.counter != 0) return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1027 |
p->ainew.counter = (4 - _opt.diff.competitor_speed) * AI_BUILDPATH_PAUSE + 1; |
145 | 1028 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1029 |
// Increase the building position |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1030 |
p->ainew.path_info.position++; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1031 |
// Build route |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1032 |
AiNew_Build_RoutePart(p, &p->ainew.path_info, DC_EXEC); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1033 |
if (p->ainew.path_info.position == -2) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1034 |
// This means we are done building! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1035 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1036 |
if (p->ainew.tbt == AI_TRUCK && !_patches.roadveh_queue) { |
2365 | 1037 |
// If they not queue, they have to go up and down to try again at a station... |
1038 |
// We don't want that, so try building some road left or right of the station |
|
1039 |
int dir1, dir2, dir3; |
|
1040 |
TileIndex tile; |
|
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1041 |
CommandCost ret; |
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1042 |
for (int i = 0; i < 2; i++) { |
2365 | 1043 |
if (i == 0) { |
4559
c853d2440065
(svn r6406) -Codechange: Rename TileOffsByDir to TileOffsByDiagDir because it accepts
Darkvater
parents:
4527
diff
changeset
|
1044 |
tile = p->ainew.from_tile + TileOffsByDiagDir(p->ainew.from_direction); |
2365 | 1045 |
dir1 = p->ainew.from_direction - 1; |
1046 |
if (dir1 < 0) dir1 = 3; |
|
1047 |
dir2 = p->ainew.from_direction + 1; |
|
1048 |
if (dir2 > 3) dir2 = 0; |
|
1049 |
dir3 = p->ainew.from_direction; |
|
1050 |
} else { |
|
4559
c853d2440065
(svn r6406) -Codechange: Rename TileOffsByDir to TileOffsByDiagDir because it accepts
Darkvater
parents:
4527
diff
changeset
|
1051 |
tile = p->ainew.to_tile + TileOffsByDiagDir(p->ainew.to_direction); |
2365 | 1052 |
dir1 = p->ainew.to_direction - 1; |
1053 |
if (dir1 < 0) dir1 = 3; |
|
1054 |
dir2 = p->ainew.to_direction + 1; |
|
1055 |
if (dir2 > 3) dir2 = 0; |
|
1056 |
dir3 = p->ainew.to_direction; |
|
1057 |
} |
|
145 | 1058 |
|
5838
9c3129cb019b
(svn r8038) -Merge: the cpp branch. Effort of KUDr, Celestar, glx, Smoovius, stillunknown and pv2b.
rubidium
parents:
5835
diff
changeset
|
1059 |
ret = AI_DoCommand(tile, DiagDirToRoadBits(ReverseDiagDir((DiagDirection)dir1)), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1060 |
if (CmdSucceeded(ret)) { |
4559
c853d2440065
(svn r6406) -Codechange: Rename TileOffsByDir to TileOffsByDiagDir because it accepts
Darkvater
parents:
4527
diff
changeset
|
1061 |
dir1 = TileOffsByDiagDir(dir1); |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1024
diff
changeset
|
1062 |
if (IsTileType(tile + dir1, MP_CLEAR) || IsTileType(tile + dir1, MP_TREES)) { |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1063 |
ret = AI_DoCommand(tile+dir1, AiNew_GetRoadDirection(tile, tile+dir1, tile+dir1+dir1), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1064 |
if (CmdSucceeded(ret)) { |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1024
diff
changeset
|
1065 |
if (IsTileType(tile + dir1 + dir1, MP_CLEAR) || IsTileType(tile + dir1 + dir1, MP_TREES)) |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1066 |
AI_DoCommand(tile+dir1+dir1, AiNew_GetRoadDirection(tile+dir1, tile+dir1+dir1, tile+dir1+dir1+dir1), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
146
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1067 |
} |
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1068 |
} |
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1069 |
} |
145 | 1070 |
|
5838
9c3129cb019b
(svn r8038) -Merge: the cpp branch. Effort of KUDr, Celestar, glx, Smoovius, stillunknown and pv2b.
rubidium
parents:
5835
diff
changeset
|
1071 |
ret = AI_DoCommand(tile, DiagDirToRoadBits(ReverseDiagDir((DiagDirection)dir2)), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1072 |
if (CmdSucceeded(ret)) { |
4559
c853d2440065
(svn r6406) -Codechange: Rename TileOffsByDir to TileOffsByDiagDir because it accepts
Darkvater
parents:
4527
diff
changeset
|
1073 |
dir2 = TileOffsByDiagDir(dir2); |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1024
diff
changeset
|
1074 |
if (IsTileType(tile + dir2, MP_CLEAR) || IsTileType(tile + dir2, MP_TREES)) { |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1075 |
ret = AI_DoCommand(tile+dir2, AiNew_GetRoadDirection(tile, tile+dir2, tile+dir2+dir2), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1076 |
if (CmdSucceeded(ret)) { |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1024
diff
changeset
|
1077 |
if (IsTileType(tile + dir2 + dir2, MP_CLEAR) || IsTileType(tile + dir2 + dir2, MP_TREES)) |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1078 |
AI_DoCommand(tile+dir2+dir2, AiNew_GetRoadDirection(tile+dir2, tile+dir2+dir2, tile+dir2+dir2+dir2), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
146
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1079 |
} |
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1080 |
} |
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1081 |
} |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1082 |
|
5838
9c3129cb019b
(svn r8038) -Merge: the cpp branch. Effort of KUDr, Celestar, glx, Smoovius, stillunknown and pv2b.
rubidium
parents:
5835
diff
changeset
|
1083 |
ret = AI_DoCommand(tile, DiagDirToRoadBits((DiagDirection)dir3), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1084 |
if (CmdSucceeded(ret)) { |
4559
c853d2440065
(svn r6406) -Codechange: Rename TileOffsByDir to TileOffsByDiagDir because it accepts
Darkvater
parents:
4527
diff
changeset
|
1085 |
dir3 = TileOffsByDiagDir(dir3); |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1024
diff
changeset
|
1086 |
if (IsTileType(tile + dir3, MP_CLEAR) || IsTileType(tile + dir3, MP_TREES)) { |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1087 |
ret = AI_DoCommand(tile+dir3, AiNew_GetRoadDirection(tile, tile+dir3, tile+dir3+dir3), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1088 |
if (CmdSucceeded(ret)) { |
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1024
diff
changeset
|
1089 |
if (IsTileType(tile + dir3 + dir3, MP_CLEAR) || IsTileType(tile + dir3 + dir3, MP_TREES)) |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1090 |
AI_DoCommand(tile+dir3+dir3, AiNew_GetRoadDirection(tile+dir3, tile+dir3+dir3, tile+dir3+dir3+dir3), 0, DC_EXEC | DC_NO_WATER, CMD_BUILD_ROAD); |
146
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1091 |
} |
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1092 |
} |
7632a1ddadc0
(svn r147) -Fix [NewAI]: small fix for road-building when RoadQueueing is disabled
truelight
parents:
145
diff
changeset
|
1093 |
} |
2365 | 1094 |
} |
1095 |
} |
|
145 | 1096 |
|
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
1097 |
DEBUG(ai, 1, "Finished building path, cost: %d", p->ainew.new_cost); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1098 |
p->ainew.state = AI_STATE_BUILD_DEPOT; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1099 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1100 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1101 |
|
2365 | 1102 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1103 |
// Builds the depot |
2365 | 1104 |
static void AiNew_State_BuildDepot(Player *p) |
1105 |
{ |
|
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1106 |
CommandCost res = 0; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1107 |
assert(p->ainew.state == AI_STATE_BUILD_DEPOT); |
145 | 1108 |
|
3793
33cdb5bf7b21
(svn r4789) - Codechange: rename RoadType to RoadTileType and ROAD_{NORMAL,CROSSING,DEPOT} to ROAD_TILE_* for consistency
rubidium
parents:
3644
diff
changeset
|
1109 |
if (IsTileType(p->ainew.depot_tile, MP_STREET) && GetRoadTileType(p->ainew.depot_tile) == ROAD_TILE_DEPOT) { |
1901
fb05044cf5c3
(svn r2407) Use {Get,Is}TileOwner to get/check the owner of a tile and fix some bogus reads of _map_owner
tron
parents:
1891
diff
changeset
|
1110 |
if (IsTileOwner(p->ainew.depot_tile, _current_player)) { |
4000
bab1ebc37da0
(svn r5210) Many small changes which piled up: const, unsigned, variable scope, CSE for readability, DeMorgan, if cascades -> switch, whitespace, parentheses, bracing, misc.
tron
parents:
3952
diff
changeset
|
1111 |
// The depot is already built |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1112 |
p->ainew.state = AI_STATE_BUILD_VEHICLE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1113 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1114 |
} else { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1115 |
// There is a depot, but not of our team! :( |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1116 |
p->ainew.state = AI_STATE_NOTHING; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1117 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1118 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1119 |
} |
145 | 1120 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1121 |
// There is a bus on the tile we want to build road on... idle till he is gone! (BAD PERSON! :p) |
4559
c853d2440065
(svn r6406) -Codechange: Rename TileOffsByDir to TileOffsByDiagDir because it accepts
Darkvater
parents:
4527
diff
changeset
|
1122 |
if (!EnsureNoVehicle(p->ainew.depot_tile + TileOffsByDiagDir(p->ainew.depot_direction))) |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1123 |
return; |
145 | 1124 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1125 |
res = AiNew_Build_Depot(p, p->ainew.depot_tile, p->ainew.depot_direction, DC_EXEC); |
2737
f16e0a808897
(svn r3282) - Codechange: Replace tests against CMD_ERROR with CmdFailed()
peter1138
parents:
2684
diff
changeset
|
1126 |
if (CmdFailed(res)) { |
5568
75f13d7bfaed
(svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents:
5247
diff
changeset
|
1127 |
DEBUG(ai, 0, "[BuildDepot] depot could not be built (0x%X)", p->ainew.depot_tile); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1128 |
p->ainew.state = AI_STATE_NOTHING; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1129 |
return; |
2365 | 1130 |
} |
145 | 1131 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1132 |
p->ainew.state = AI_STATE_BUILD_VEHICLE; |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1133 |
p->ainew.idle = 10; |
3885
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
1134 |
p->ainew.veh_main_id = INVALID_VEHICLE; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1135 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1136 |
|
145 | 1137 |
|
2365 | 1138 |
// Build vehicles |
1139 |
static void AiNew_State_BuildVehicle(Player *p) |
|
1140 |
{ |
|
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1141 |
CommandCost res; |
2365 | 1142 |
assert(p->ainew.state == AI_STATE_BUILD_VEHICLE); |
1143 |
||
1144 |
// Check if we need to build a vehicle |
|
1145 |
if (p->ainew.amount_veh == 0) { |
|
1146 |
// Nope, we are done! |
|
1147 |
// This means: we are all done! The route is open.. go back to NOTHING |
|
1148 |
// He will idle some time and it will all start over again.. :) |
|
1149 |
p->ainew.state = AI_STATE_ACTION_DONE; |
|
1150 |
return; |
|
1151 |
} |
|
1152 |
if (--p->ainew.idle != 0) return; |
|
1153 |
// It is realistic that the AI can only build 1 vehicle a day.. |
|
1154 |
// This makes sure of that! |
|
1155 |
p->ainew.idle = AI_BUILD_VEHICLE_TIME_BETWEEN; |
|
1156 |
||
1157 |
// Build the vehicle |
|
1158 |
res = AiNew_Build_Vehicle(p, p->ainew.depot_tile, DC_EXEC); |
|
2737
f16e0a808897
(svn r3282) - Codechange: Replace tests against CMD_ERROR with CmdFailed()
peter1138
parents:
2684
diff
changeset
|
1159 |
if (CmdFailed(res)) { |
2365 | 1160 |
// This happens when the AI can't build any more vehicles! |
1161 |
p->ainew.state = AI_STATE_NOTHING; |
|
1162 |
return; |
|
1163 |
} |
|
1164 |
// Increase the current counter |
|
1165 |
p->ainew.cur_veh++; |
|
1166 |
// Decrease the total counter |
|
1167 |
p->ainew.amount_veh--; |
|
1168 |
// Go give some orders! |
|
3946
c9e039a60682
(svn r5092) -Fix: There was a gross race condition in the AI code which made it pretty random if the AI could give a new vehicle its orders
tron
parents:
3945
diff
changeset
|
1169 |
p->ainew.state = AI_STATE_WAIT_FOR_BUILD; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1170 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1171 |
|
2365 | 1172 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1173 |
// Put the stations in the order list |
2365 | 1174 |
static void AiNew_State_GiveOrders(Player *p) |
1175 |
{ |
|
1176 |
int idx; |
|
1177 |
Order order; |
|
145 | 1178 |
|
2365 | 1179 |
assert(p->ainew.state == AI_STATE_GIVE_ORDERS); |
145 | 1180 |
|
3885
327cdee1f0b6
(svn r4941) Replace some ints and magic numbers by proper types and enums
tron
parents:
3793
diff
changeset
|
1181 |
if (p->ainew.veh_main_id != INVALID_VEHICLE) { |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1182 |
AI_DoCommand(0, p->ainew.veh_id + (p->ainew.veh_main_id << 16), 0, DC_EXEC, CMD_CLONE_ORDER); |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1183 |
|
2365 | 1184 |
p->ainew.state = AI_STATE_START_VEHICLE; |
1185 |
return; |
|
1186 |
} else { |
|
1187 |
p->ainew.veh_main_id = p->ainew.veh_id; |
|
1188 |
} |
|
1189 |
||
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1190 |
// Very handy for AI, goto depot.. but yeah, it needs to be activated ;) |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1191 |
if (_patches.gotodepot) { |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1192 |
idx = 0; |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1193 |
order.type = OT_GOTO_DEPOT; |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1194 |
order.flags = OF_UNLOAD; |
4527
b18634a31a4a
(svn r6353) -Codechange: Make DestinationID a typedef of uin16, which is as large as any type of destinataion (StationID, DepotID, WaypointID) it can hold
tron
parents:
4389
diff
changeset
|
1195 |
order.dest = GetDepotByTile(p->ainew.depot_tile)->index; |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1196 |
AI_DoCommand(0, p->ainew.veh_id + (idx << 16), PackOrder(&order), DC_EXEC, CMD_INSERT_ORDER); |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1197 |
} |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1198 |
|
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1199 |
idx = 0; |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1200 |
order.type = OT_GOTO_STATION; |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1201 |
order.flags = 0; |
4527
b18634a31a4a
(svn r6353) -Codechange: Make DestinationID a typedef of uin16, which is as large as any type of destinataion (StationID, DepotID, WaypointID) it can hold
tron
parents:
4389
diff
changeset
|
1202 |
order.dest = GetStationIndex(p->ainew.to_tile); |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1203 |
if (p->ainew.tbt == AI_TRUCK && p->ainew.to_deliver) |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1204 |
order.flags |= OF_FULL_LOAD; |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1205 |
AI_DoCommand(0, p->ainew.veh_id + (idx << 16), PackOrder(&order), DC_EXEC, CMD_INSERT_ORDER); |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1206 |
|
2365 | 1207 |
idx = 0; |
1208 |
order.type = OT_GOTO_STATION; |
|
1209 |
order.flags = 0; |
|
4527
b18634a31a4a
(svn r6353) -Codechange: Make DestinationID a typedef of uin16, which is as large as any type of destinataion (StationID, DepotID, WaypointID) it can hold
tron
parents:
4389
diff
changeset
|
1210 |
order.dest = GetStationIndex(p->ainew.from_tile); |
2365 | 1211 |
if (p->ainew.tbt == AI_TRUCK && p->ainew.from_deliver) |
1212 |
order.flags |= OF_FULL_LOAD; |
|
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1213 |
AI_DoCommand(0, p->ainew.veh_id + (idx << 16), PackOrder(&order), DC_EXEC, CMD_INSERT_ORDER); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1214 |
|
2365 | 1215 |
// Start the engines! |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1216 |
p->ainew.state = AI_STATE_START_VEHICLE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1217 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1218 |
|
2365 | 1219 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1220 |
// Start the vehicle |
2365 | 1221 |
static void AiNew_State_StartVehicle(Player *p) |
1222 |
{ |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1223 |
assert(p->ainew.state == AI_STATE_START_VEHICLE); |
145 | 1224 |
|
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1225 |
// Skip the first order if it is a second vehicle |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1226 |
// This to make vehicles go different ways.. |
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1227 |
if (p->ainew.cur_veh & 1) |
9912
1ac8aac92385
(svn r10136) [gamebalance] -Sync: r9900:10100 from trunk
celestar
parents:
9911
diff
changeset
|
1228 |
AI_DoCommand(0, p->ainew.veh_id, 1, DC_EXEC, CMD_SKIP_TO_ORDER); |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1229 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1230 |
// 3, 2, 1... go! (give START_STOP command ;)) |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1231 |
AI_DoCommand(0, p->ainew.veh_id, 0, DC_EXEC, CMD_START_STOP_ROADVEH); |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1232 |
// Try to build an other vehicle (that function will stop building when needed) |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1233 |
p->ainew.idle = 10; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1234 |
p->ainew.state = AI_STATE_BUILD_VEHICLE; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1235 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1236 |
|
2365 | 1237 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1238 |
// Repays money |
2365 | 1239 |
static void AiNew_State_RepayMoney(Player *p) |
1240 |
{ |
|
4077
d3022f976946
(svn r5391) Miscellaneous, mostly bracing and whitespace, nothing spectacular
tron
parents:
4000
diff
changeset
|
1241 |
uint i; |
d3022f976946
(svn r5391) Miscellaneous, mostly bracing and whitespace, nothing spectacular
tron
parents:
4000
diff
changeset
|
1242 |
|
d3022f976946
(svn r5391) Miscellaneous, mostly bracing and whitespace, nothing spectacular
tron
parents:
4000
diff
changeset
|
1243 |
for (i = 0; i < AI_LOAN_REPAY; i++) { |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1244 |
AI_DoCommand(0, 0, 0, DC_EXEC, CMD_DECREASE_LOAN); |
4077
d3022f976946
(svn r5391) Miscellaneous, mostly bracing and whitespace, nothing spectacular
tron
parents:
4000
diff
changeset
|
1245 |
} |
2365 | 1246 |
p->ainew.state = AI_STATE_ACTION_DONE; |
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1247 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1248 |
|
2365 | 1249 |
|
1250 |
static void AiNew_CheckVehicle(Player *p, Vehicle *v) |
|
1251 |
{ |
|
145 | 1252 |
// When a vehicle is under the 6 months, we don't check for anything |
1253 |
if (v->age < 180) return; |
|
1254 |
||
1255 |
// When a vehicle is older then 1 year, it should make money... |
|
1256 |
if (v->age > 360) { |
|
826 | 1257 |
// If both years together are not more than AI_MINIMUM_ROUTE_PROFIT, |
145 | 1258 |
// it is not worth the line I guess... |
1259 |
if (v->profit_last_year + v->profit_this_year < AI_MINIMUM_ROUTE_PROFIT || |
|
2365 | 1260 |
(v->reliability * 100 >> 16) < 40) { |
145 | 1261 |
// There is a possibility that the route is fucked up... |
1262 |
if (v->cargo_days > AI_VEHICLE_LOST_DAYS) { |
|
1263 |
// The vehicle is lost.. check the route, or else, get the vehicle |
|
1264 |
// back to a depot |
|
1265 |
// TODO: make this piece of code |
|
1266 |
} |
|
1267 |
||
1268 |
||
1269 |
// We are already sending him back |
|
1270 |
if (AiNew_GetSpecialVehicleFlag(p, v) & AI_VEHICLEFLAG_SELL) { |
|
9895
7bd07f43b0e3
(svn r9321) [gamebalance] -Sync: r9025:9314 from trunk
celestar
parents:
5907
diff
changeset
|
1271 |
if (v->type == VEH_ROAD && IsTileDepotType(v->tile, TRANSPORT_ROAD) && |
2365 | 1272 |
(v->vehstatus&VS_STOPPED)) { |
145 | 1273 |
// We are at the depot, sell the vehicle |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1274 |
AI_DoCommand(0, v->index, 0, DC_EXEC, CMD_SELL_ROAD_VEH); |
145 | 1275 |
} |
1276 |
return; |
|
1277 |
} |
|
1278 |
||
1279 |
if (!AiNew_SetSpecialVehicleFlag(p, v, AI_VEHICLEFLAG_SELL)) return; |
|
1280 |
{ |
|
9913
e79cd19772dd
(svn r10213) [gamebalance] -Sync: r10100:10200 from trunk
celestar
parents:
9912
diff
changeset
|
1281 |
CommandCost ret = 0; |
9895
7bd07f43b0e3
(svn r9321) [gamebalance] -Sync: r9025:9314 from trunk
celestar
parents:
5907
diff
changeset
|
1282 |
if (v->type == VEH_ROAD) |
2682
94ca0b4dc53f
(svn r3224) -Add: Allow the NewAI to work in Multiplayer Games (switchable via patch
truelight
parents:
2635
diff
changeset
|
1283 |
ret = AI_DoCommand(0, v->index, 0, DC_EXEC, CMD_SEND_ROADVEH_TO_DEPOT); |
145 | 1284 |
// This means we can not find a depot :s |
2365 | 1285 |
// if (CmdFailed(ret)) |
145 | 1286 |
} |
1287 |
} |
|
1288 |
} |
|
1289 |
} |
|
1290 |
||
2365 | 1291 |
|
145 | 1292 |
// Checks all vehicles if they are still valid and make money and stuff |
2365 | 1293 |
static void AiNew_State_CheckAllVehicles(Player *p) |
1294 |
{ |
|
145 | 1295 |
Vehicle *v; |
1296 |
||
1297 |
FOR_ALL_VEHICLES(v) { |
|
1298 |
if (v->owner != p->index) continue; |
|
1299 |
// Currently, we only know how to handle road-vehicles |
|
9895
7bd07f43b0e3
(svn r9321) [gamebalance] -Sync: r9025:9314 from trunk
celestar
parents:
5907
diff
changeset
|
1300 |
if (v->type != VEH_ROAD) continue; |
145 | 1301 |
|
1302 |
AiNew_CheckVehicle(p, v); |
|
1303 |
} |
|
1304 |
||
1305 |
p->ainew.state = AI_STATE_ACTION_DONE; |
|
1306 |
} |
|
1307 |
||
2365 | 1308 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1309 |
// Using the technique simular to the original AI |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1310 |
// Keeps things logical |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1311 |
// It really should be in the same order as the AI_STATE's are! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1312 |
static AiNew_StateFunction* const _ainew_state[] = { |
2365 | 1313 |
NULL, |
1314 |
AiNew_State_FirstTime, |
|
1315 |
AiNew_State_Nothing, |
|
1316 |
AiNew_State_WakeUp, |
|
1317 |
AiNew_State_LocateRoute, |
|
1318 |
AiNew_State_FindStation, |
|
1319 |
AiNew_State_FindPath, |
|
1320 |
AiNew_State_FindDepot, |
|
1321 |
AiNew_State_VerifyRoute, |
|
1322 |
AiNew_State_BuildStation, |
|
1323 |
AiNew_State_BuildPath, |
|
1324 |
AiNew_State_BuildDepot, |
|
1325 |
AiNew_State_BuildVehicle, |
|
3946
c9e039a60682
(svn r5092) -Fix: There was a gross race condition in the AI code which made it pretty random if the AI could give a new vehicle its orders
tron
parents:
3945
diff
changeset
|
1326 |
NULL, |
2365 | 1327 |
AiNew_State_GiveOrders, |
1328 |
AiNew_State_StartVehicle, |
|
1329 |
AiNew_State_RepayMoney, |
|
145 | 1330 |
AiNew_State_CheckAllVehicles, |
2365 | 1331 |
AiNew_State_ActionDone, |
1332 |
NULL, |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1333 |
}; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1334 |
|
2365 | 1335 |
static void AiNew_OnTick(Player *p) |
1336 |
{ |
|
1337 |
if (_ainew_state[p->ainew.state] != NULL) |
|
1338 |
_ainew_state[p->ainew.state](p); |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1339 |
} |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1340 |
|
2365 | 1341 |
|
1342 |
void AiNewDoGameLoop(Player *p) |
|
1343 |
{ |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1344 |
if (p->ainew.state == AI_STATE_STARTUP) { |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1345 |
// The AI just got alive! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1346 |
p->ainew.state = AI_STATE_FIRST_TIME; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1347 |
p->ainew.tick = 0; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1348 |
|
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1349 |
// Only startup the AI |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1350 |
return; |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1351 |
} |
145 | 1352 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1353 |
// We keep a ticker. We use it for competitor_speed |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1354 |
p->ainew.tick++; |
145 | 1355 |
|
110
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1356 |
// If we come here, we can do a tick.. do so! |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1357 |
AiNew_OnTick(p); |
a22a6b07904b
(svn r111) -Fix: converted all linebreaks to UNIX-linebreak (\n)
truelight
parents:
95
diff
changeset
|
1358 |
} |