| author | bjarni |
| Sun, 30 Jan 2005 20:50:06 +0000 | |
| changeset 1237 | 0a1ce05c3d45 |
| parent 1235 | 12e2f93d0a94 |
| child 1245 | 768d9bc95aaa |
| permissions | -rw-r--r-- |
| 0 | 1 |
#include "stdafx.h" |
2 |
#include "ttd.h" |
|
|
507
8aa8100b0b22
(svn r815) Include strings.h only in the files which need it.
tron
parents:
445
diff
changeset
|
3 |
#include "table/strings.h" |
|
679
e959706a3e4d
(svn r1117) Move map arrays and some related macros into their own files map.c and map.h
tron
parents:
593
diff
changeset
|
4 |
#include "map.h" |
|
1209
a1ac96655b79
(svn r1713) Split off several functions which query/set information about a single tile from map.h and put them into a seperate file tile.h
tron
parents:
1206
diff
changeset
|
5 |
#include "tile.h" |
| 0 | 6 |
#include "vehicle.h" |
7 |
#include "command.h" |
|
8 |
#include "pathfind.h" |
|
9 |
#include "station.h" |
|
10 |
#include "gfx.h" |
|
11 |
#include "news.h" |
|
12 |
#include "engine.h" |
|
13 |
#include "gui.h" |
|
14 |
#include "player.h" |
|
|
337
66647f97e7c0
(svn r513) Merge revisions 402, 416, 417, 478, 479, 511, 512 from map to trunk
tron
parents:
297
diff
changeset
|
15 |
#include "sound.h" |
| 0 | 16 |
|
17 |
static const uint16 _ship_sprites[] = {0x0E5D, 0x0E55, 0x0E65, 0x0E6D};
|
|
18 |
static const byte _ship_sometracks[4] = {0x19, 0x16, 0x25, 0x2A};
|
|
19 |
||
20 |
static byte GetTileShipTrackStatus(uint tile) {
|
|
|
159
139cf78bfb28
(svn r160) -Codechange: made GetTileTrackStatus more readable (blathijs)
truelight
parents:
156
diff
changeset
|
21 |
uint32 r = GetTileTrackStatus(tile, TRANSPORT_WATER); |
| 0 | 22 |
return r | r >> 8; |
23 |
} |
|
24 |
||
25 |
void DrawShipEngine(int x, int y, int engine, uint32 image_ormod) |
|
26 |
{
|
|
|
538
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
27 |
int spritenum = ShipVehInfo(engine)->image_index; |
| 0 | 28 |
|
29 |
if (is_custom_sprite(spritenum)) {
|
|
|
358
6eb0d5ec99b1
(svn r546) -newgrf: Use GetCustomVehicleIcon() for fetching sprites for vehicle selection dialogs. (Idea by octo, done by pasky).
darkvater
parents:
337
diff
changeset
|
30 |
int sprite = GetCustomVehicleIcon(engine, 6); |
| 0 | 31 |
|
32 |
if (sprite) {
|
|
33 |
DrawSprite(sprite | image_ormod, x, y); |
|
34 |
return; |
|
35 |
} |
|
36 |
spritenum = _engine_original_sprites[engine]; |
|
37 |
} |
|
38 |
DrawSprite((6 + _ship_sprites[spritenum]) | image_ormod, x, y); |
|
39 |
} |
|
40 |
||
41 |
void DrawShipEngineInfo(int engine, int x, int y, int maxw) |
|
42 |
{
|
|
|
538
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
43 |
const ShipVehicleInfo *svi = ShipVehInfo(engine); |
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
44 |
SetDParam(0, svi->base_cost * (_price.ship_base>>3)>>5); |
|
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
45 |
SetDParam(1, svi->max_speed * 10 >> 5); |
|
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
46 |
SetDParam(2, _cargoc.names_long_p[svi->cargo_type]); |
|
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
47 |
SetDParam(3, svi->capacity); |
|
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
48 |
SetDParam(4, svi->running_cost * _price.ship_running >> 8); |
| 0 | 49 |
DrawStringMultiCenter(x, y, STR_982E_COST_MAX_SPEED_CAPACITY, maxw); |
50 |
} |
|
51 |
||
52 |
int GetShipImage(Vehicle *v, byte direction) |
|
53 |
{
|
|
54 |
int spritenum = v->spritenum; |
|
55 |
||
56 |
if (is_custom_sprite(spritenum)) {
|
|
57 |
int sprite = GetCustomVehicleSprite(v, direction); |
|
58 |
||
59 |
if (sprite) return sprite; |
|
60 |
spritenum = _engine_original_sprites[v->engine_type]; |
|
61 |
} |
|
62 |
return _ship_sprites[spritenum] + direction; |
|
63 |
} |
|
64 |
||
65 |
static int FindClosestShipDepot(Vehicle *v) |
|
66 |
{
|
|
67 |
uint tile, dist, best_dist = (uint)-1; |
|
68 |
int best_depot = -1; |
|
69 |
int i; |
|
70 |
byte owner = v->owner; |
|
71 |
uint tile2 = v->tile; |
|
72 |
||
73 |
for(i=0; i!=lengthof(_depots); i++) {
|
|
74 |
tile = _depots[i].xy; |
|
|
1035
0a170deb6e33
(svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts
tron
parents:
1024
diff
changeset
|
75 |
if (IsTileType(tile, MP_WATER) && _map_owner[tile] == owner) {
|
| 0 | 76 |
dist = GetTileDist(tile, tile2); |
77 |
if (dist < best_dist) {
|
|
78 |
best_dist = dist; |
|
79 |
best_depot = i; |
|
80 |
} |
|
81 |
} |
|
82 |
} |
|
83 |
||
84 |
return best_depot; |
|
85 |
} |
|
86 |
||
87 |
static void CheckIfShipNeedsService(Vehicle *v) |
|
88 |
{
|
|
89 |
int i; |
|
90 |
||
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
91 |
if (_patches.servint_ships == 0 && !v->set_for_replacement) |
|
11
836bc4b37b5b
(svn r12) Change: removed patch no_train_service. Instead you can set the default service interval for any vehicle type to 'disabled'.
dominik
parents:
0
diff
changeset
|
92 |
return; |
|
836bc4b37b5b
(svn r12) Change: removed patch no_train_service. Instead you can set the default service interval for any vehicle type to 'disabled'.
dominik
parents:
0
diff
changeset
|
93 |
|
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
94 |
if (!VehicleNeedsService(v) && !v->set_for_replacement) |
| 0 | 95 |
return; |
96 |
||
97 |
if (v->vehstatus & VS_STOPPED) |
|
98 |
return; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
99 |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
100 |
if (v->current_order.type == OT_GOTO_DEPOT && |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
101 |
v->current_order.flags & OF_FULL_LOAD) |
| 0 | 102 |
return; |
103 |
||
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
104 |
if (_patches.gotodepot && VehicleHasDepotOrders(v)) |
| 0 | 105 |
return; |
106 |
||
107 |
i = FindClosestShipDepot(v); |
|
108 |
||
109 |
if (i < 0 || GetTileDist(v->tile, (&_depots[i])->xy) > 12) {
|
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
110 |
if (v->current_order.type == OT_GOTO_DEPOT) {
|
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
111 |
v->current_order.type = OT_DUMMY; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
112 |
v->current_order.flags = 0; |
|
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
679
diff
changeset
|
113 |
InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); |
| 0 | 114 |
} |
115 |
return; |
|
116 |
} |
|
117 |
||
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
118 |
v->current_order.type = OT_GOTO_DEPOT; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
119 |
v->current_order.flags = OF_NON_STOP; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
120 |
v->current_order.station = (byte)i; |
| 0 | 121 |
v->dest_tile = (&_depots[i])->xy; |
|
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
679
diff
changeset
|
122 |
InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); |
| 0 | 123 |
} |
124 |
||
125 |
void OnNewDay_Ship(Vehicle *v) |
|
126 |
{
|
|
127 |
int32 cost; |
|
128 |
||
129 |
if ((++v->day_counter & 7) == 0) |
|
130 |
DecreaseVehicleValue(v); |
|
131 |
||
132 |
CheckVehicleBreakdown(v); |
|
133 |
AgeVehicle(v); |
|
134 |
CheckIfShipNeedsService(v); |
|
135 |
||
|
1053
dfb5243315f1
(svn r1554) -Fix: [ 1103187 ] Order Check messages are now validated before
celestar
parents:
1035
diff
changeset
|
136 |
CheckOrders(v->index, OC_INIT); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
137 |
|
| 0 | 138 |
if (v->vehstatus & VS_STOPPED) |
139 |
return; |
|
140 |
||
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
141 |
|
|
19
6080d2b6a959
(svn r20) Feature: warning when a vehicle has invalid orders (celestar)
dominik
parents:
11
diff
changeset
|
142 |
|
|
538
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
143 |
cost = ShipVehInfo(v->engine_type)->running_cost * _price.ship_running / 364; |
| 0 | 144 |
v->profit_this_year -= cost >> 8; |
145 |
||
146 |
SET_EXPENSES_TYPE(EXPENSES_SHIP_RUN); |
|
147 |
SubtractMoneyFromPlayerFract(v->owner, cost); |
|
148 |
||
149 |
InvalidateWindow(WC_VEHICLE_DETAILS, v->index); |
|
|
1055
3aae1d6f12aa
(svn r1556) -Fix: Vehicle list updates should now really work
Celestar
parents:
1053
diff
changeset
|
150 |
//we need this for the profit |
|
3aae1d6f12aa
(svn r1556) -Fix: Vehicle list updates should now really work
Celestar
parents:
1053
diff
changeset
|
151 |
InvalidateWindowClasses(WC_SHIPS_LIST); |
| 0 | 152 |
} |
153 |
||
154 |
static void HandleBrokenShip(Vehicle *v) |
|
155 |
{
|
|
156 |
if (v->breakdown_ctr != 1) {
|
|
157 |
v->breakdown_ctr = 1; |
|
158 |
v->cur_speed = 0; |
|
159 |
||
160 |
if (v->breakdowns_since_last_service != 255) |
|
161 |
v->breakdowns_since_last_service++; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
162 |
|
| 0 | 163 |
InvalidateWindow(WC_VEHICLE_VIEW, v->index); |
164 |
InvalidateWindow(WC_VEHICLE_DETAILS, v->index); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
165 |
|
| 541 | 166 |
SndPlayVehicleFx((_opt.landscape != LT_CANDY) ? |
167 |
SND_10_TRAIN_BREAKDOWN : SND_3A_COMEDY_BREAKDOWN_2, v); |
|
| 0 | 168 |
|
169 |
if (!(v->vehstatus & VS_HIDDEN)) {
|
|
170 |
Vehicle *u = CreateEffectVehicleRel(v, 4, 4, 5, EV_BREAKDOWN_SMOKE); |
|
171 |
if (u) |
|
172 |
u->u.special.unk0 = v->breakdown_delay * 2; |
|
173 |
} |
|
174 |
} |
|
175 |
||
176 |
if (!(v->tick_counter & 1)) {
|
|
177 |
if (!--v->breakdown_delay) {
|
|
178 |
v->breakdown_ctr = 0; |
|
|
1151
614cbcb5b9fe
(svn r1652) Fix: train and road vehicle lists are now redrawn when vehicles enters/leaves a depot (Hackykid)
bjarni
parents:
1128
diff
changeset
|
179 |
InvalidateWindow(WC_VEHICLE_VIEW, v->index); |
| 0 | 180 |
} |
181 |
} |
|
182 |
} |
|
183 |
||
184 |
static void MarkShipDirty(Vehicle *v) |
|
185 |
{
|
|
186 |
v->cur_image = GetShipImage(v, v->direction); |
|
187 |
MarkAllViewportsDirty(v->left_coord, v->top_coord, v->right_coord + 1, v->bottom_coord + 1); |
|
188 |
} |
|
189 |
||
190 |
static void PlayShipSound(Vehicle *v) |
|
191 |
{
|
|
|
538
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
192 |
SndPlayVehicleFx(ShipVehInfo(v->engine_type)->sfx, v); |
| 0 | 193 |
} |
194 |
||
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
195 |
static const TileIndexDiffC _dock_offs[] = {
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
196 |
{ 2, 0},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
197 |
{-2, 0},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
198 |
{ 0, 2},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
199 |
{ 2, 0},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
200 |
{ 0, -2},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
201 |
{ 0, 0},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
202 |
{ 0, 0},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
203 |
{ 0, 0}
|
| 0 | 204 |
}; |
205 |
||
206 |
static void ProcessShipOrder(Vehicle *v) |
|
207 |
{
|
|
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
208 |
const Order *order; |
| 0 | 209 |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
210 |
if (v->current_order.type >= OT_GOTO_DEPOT && |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
211 |
v->current_order.type <= OT_LEAVESTATION) {
|
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
212 |
if (v->current_order.type != OT_GOTO_DEPOT || |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
213 |
!(v->current_order.flags & OF_UNLOAD)) |
| 0 | 214 |
return; |
215 |
} |
|
216 |
||
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
217 |
if (v->current_order.type == OT_GOTO_DEPOT && |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
218 |
(v->current_order.flags & (OF_UNLOAD | OF_FULL_LOAD)) == (OF_UNLOAD | OF_FULL_LOAD) && |
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
219 |
!VehicleNeedsService(v) && !v->set_for_replacement) {
|
| 0 | 220 |
v->cur_order_index++; |
221 |
} |
|
222 |
||
223 |
||
224 |
if (v->cur_order_index >= v->num_orders) |
|
225 |
v->cur_order_index = 0; |
|
226 |
||
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
227 |
order = GetVehicleOrder(v, v->cur_order_index); |
| 0 | 228 |
|
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
229 |
if (order == NULL) {
|
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
230 |
v->current_order.type = OT_NOTHING; |
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
231 |
v->current_order.flags = 0; |
| 0 | 232 |
v->dest_tile = 0; |
233 |
return; |
|
234 |
} |
|
235 |
||
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
236 |
if (order->type == v->current_order.type && |
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
237 |
order->flags == v->current_order.flags && |
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
238 |
order->station == v->current_order.station) |
| 0 | 239 |
return; |
240 |
||
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
241 |
v->current_order = *order; |
| 0 | 242 |
|
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
243 |
if (order->type == OT_GOTO_STATION) {
|
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
244 |
const Station *st; |
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
245 |
|
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
246 |
if (order->station == v->last_station_visited) |
|
817
4f9377b7fd2b
(svn r1288) -Codechange: changed _map2 to an uint16. It is still saved and loaded as
truelight
parents:
812
diff
changeset
|
247 |
v->last_station_visited = 0xFFFF; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
248 |
|
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
249 |
st = GetStation(order->station); |
| 0 | 250 |
if (st->dock_tile != 0) {
|
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
251 |
v->dest_tile = TILE_ADD(st->dock_tile, ToTileIndexDiff(_dock_offs[_map5[st->dock_tile]-0x4B])); |
| 0 | 252 |
} |
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
253 |
} else if (order->type == OT_GOTO_DEPOT) {
|
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
254 |
v->dest_tile = _depots[order->station].xy; |
| 0 | 255 |
} else {
|
256 |
v->dest_tile = 0; |
|
257 |
} |
|
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
258 |
|
|
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
259 |
InvalidateVehicleOrder(v); |
|
1020
1223cd937174
(svn r1521) -Fix: Ship Vehicle Lists are now redrawn correctly
celestar
parents:
926
diff
changeset
|
260 |
|
|
1055
3aae1d6f12aa
(svn r1556) -Fix: Vehicle list updates should now really work
Celestar
parents:
1053
diff
changeset
|
261 |
InvalidateWindowClasses(WC_SHIPS_LIST); |
| 0 | 262 |
} |
263 |
||
264 |
static void HandleShipLoading(Vehicle *v) |
|
265 |
{
|
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
266 |
if (v->current_order.type == OT_NOTHING) |
| 0 | 267 |
return; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
268 |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
269 |
if (v->current_order.type != OT_DUMMY) {
|
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
270 |
if (v->current_order.type != OT_LOADING) |
| 0 | 271 |
return; |
272 |
||
273 |
if (--v->load_unload_time_rem) |
|
274 |
return; |
|
275 |
||
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
276 |
if (v->current_order.flags & OF_FULL_LOAD && CanFillVehicle(v)) {
|
| 0 | 277 |
SET_EXPENSES_TYPE(EXPENSES_SHIP_INC); |
278 |
if (LoadUnloadVehicle(v)) {
|
|
279 |
InvalidateWindow(WC_SHIPS_LIST, v->owner); |
|
280 |
MarkShipDirty(v); |
|
281 |
} |
|
282 |
return; |
|
283 |
} |
|
284 |
PlayShipSound(v); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
285 |
|
| 0 | 286 |
{
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
287 |
Order b = v->current_order; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
288 |
v->current_order.type = OT_LEAVESTATION; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
289 |
v->current_order.flags = 0; |
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
290 |
|
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
291 |
if (v->current_order.type != OT_GOTO_DEPOT && v->owner == _local_player) {
|
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
292 |
// only the vehicle owner needs to calculate the rest (locally) |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
293 |
if ((_autoreplace_array[v->engine_type] != v->engine_type) || |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
294 |
(_patches.autorenew && v->age - v->max_age > (_patches.autorenew_months * 30))) {
|
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
295 |
byte flags = 1; |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
296 |
// the flags means, bit 0 = needs to go to depot, bit 1 = have depot in orders |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
297 |
if (VehicleHasDepotOrders(v)) SETBIT(flags, 1); |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
298 |
if (!(HASBIT(flags, 1) && v->set_for_replacement)) {
|
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
299 |
_current_player = _local_player; |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
300 |
DoCommandP(v->tile, v->index, flags, NULL, CMD_SEND_SHIP_TO_DEPOT | CMD_SHOW_NO_ERROR); |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
301 |
_current_player = OWNER_NONE; |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
302 |
} |
|
1206
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
303 |
} else { // no need to go to a depot
|
|
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
304 |
if (v->set_for_replacement) {
|
|
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
305 |
// it seems that the user clicked "Stop replacing" |
|
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
306 |
_current_player = _local_player; |
|
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
307 |
DoCommandP(v->tile, v->index, 1 | (1 << 2), NULL, CMD_SEND_SHIP_TO_DEPOT | CMD_SHOW_NO_ERROR); |
|
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
308 |
_current_player = OWNER_NONE; |
|
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
309 |
} |
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
310 |
} |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
311 |
} |
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
312 |
if (!(b.flags & OF_NON_STOP)) |
| 0 | 313 |
return; |
314 |
} |
|
315 |
} |
|
316 |
||
317 |
v->cur_order_index++; |
|
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
318 |
InvalidateVehicleOrder(v); |
| 0 | 319 |
} |
320 |
||
321 |
static void UpdateShipDeltaXY(Vehicle *v, int dir) |
|
322 |
{
|
|
323 |
#define MKIT(d,c,b,a) ((a&0xFF)<<24) | ((b&0xFF)<<16) | ((c&0xFF)<<8) | ((d&0xFF)<<0) |
|
324 |
static const uint32 _delta_xy_table[8] = {
|
|
325 |
MKIT( -3, -3, 6, 6), |
|
326 |
MKIT(-16, -3, 32, 6), |
|
327 |
MKIT( -3, -3, 6, 6), |
|
328 |
MKIT( -3,-16, 6, 32), |
|
329 |
MKIT( -3, -3, 6, 6), |
|
330 |
MKIT(-16, -3, 32, 6), |
|
331 |
MKIT( -3, -3, 6, 6), |
|
332 |
MKIT( -3,-16, 6, 32), |
|
333 |
}; |
|
334 |
#undef MKIT |
|
335 |
uint32 x = _delta_xy_table[dir]; |
|
336 |
v->x_offs = (byte)x; |
|
337 |
v->y_offs = (byte)(x>>=8); |
|
338 |
v->sprite_width = (byte)(x>>=8); |
|
339 |
v->sprite_height = (byte)(x>>=8); |
|
340 |
} |
|
341 |
||
342 |
static void RecalcShipStuff(Vehicle *v) |
|
343 |
{
|
|
344 |
UpdateShipDeltaXY(v, v->direction); |
|
345 |
v->cur_image = GetShipImage(v, v->direction); |
|
346 |
MarkShipDirty(v); |
|
347 |
InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); |
|
348 |
} |
|
349 |
||
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
350 |
static const TileIndexDiffC _ship_leave_depot_offs[] = {
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
351 |
{-1, 0},
|
|
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
352 |
{ 0, -1}
|
| 0 | 353 |
}; |
354 |
||
355 |
static void CheckShipLeaveDepot(Vehicle *v) |
|
356 |
{
|
|
357 |
uint tile; |
|
358 |
int d; |
|
359 |
uint m; |
|
360 |
||
361 |
if (v->u.ship.state != 0x80) |
|
362 |
return; |
|
363 |
||
364 |
tile = v->tile; |
|
365 |
d = (_map5[tile]&2) ? 1 : 0; |
|
366 |
||
367 |
// Check first side |
|
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
368 |
if (_ship_sometracks[d] & GetTileShipTrackStatus(TILE_ADD(tile, ToTileIndexDiff(_ship_leave_depot_offs[d])))) {
|
| 0 | 369 |
m = (d==0) ? 0x101 : 0x207; |
370 |
// Check second side |
|
|
909
81bc9ef93f50
(svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff
tron
parents:
900
diff
changeset
|
371 |
} else if (_ship_sometracks[d+2] & GetTileShipTrackStatus(TILE_ADD(tile, -2 * ToTileIndexDiff(_ship_leave_depot_offs[d])))) {
|
| 0 | 372 |
m = (d==0) ? 0x105 : 0x203; |
373 |
} else {
|
|
374 |
return; |
|
375 |
} |
|
376 |
v->direction = (byte)m; |
|
377 |
v->u.ship.state = (byte)(m >> 8); |
|
378 |
v->vehstatus &= ~VS_HIDDEN; |
|
379 |
||
380 |
v->cur_speed = 0; |
|
381 |
RecalcShipStuff(v); |
|
382 |
||
383 |
PlayShipSound(v); |
|
|
578
86e352980acd
(svn r998) now vehicles are serviced both when entering and when leaving depots to prevent that vehicles might need service when leaving after a long stay (ln--)
bjarni
parents:
555
diff
changeset
|
384 |
VehicleServiceInDepot(v); |
|
1055
3aae1d6f12aa
(svn r1556) -Fix: Vehicle list updates should now really work
Celestar
parents:
1053
diff
changeset
|
385 |
InvalidateWindowClasses(WC_SHIPS_LIST); |
| 0 | 386 |
} |
387 |
||
388 |
static bool ShipAccelerate(Vehicle *v) |
|
389 |
{
|
|
390 |
uint spd; |
|
391 |
byte t; |
|
392 |
||
393 |
spd = min(v->cur_speed + 1, v->max_speed); |
|
394 |
||
395 |
//updates statusbar only if speed have changed to save CPU time |
|
396 |
if (spd != v->cur_speed) {
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
397 |
v->cur_speed = spd; |
| 0 | 398 |
if (_patches.vehicle_speed) |
|
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
679
diff
changeset
|
399 |
InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); |
| 0 | 400 |
} |
401 |
||
402 |
// Decrease somewhat when turning |
|
403 |
if (!(v->direction&1)) {
|
|
404 |
spd = spd * 3 >> 2; |
|
405 |
} |
|
406 |
||
407 |
if (spd == 0) |
|
408 |
return false; |
|
409 |
||
410 |
if ((byte)++spd == 0) |
|
411 |
return true; |
|
412 |
||
413 |
v->progress = (t = v->progress) - (byte)spd; |
|
414 |
||
415 |
return (t < v->progress); |
|
416 |
} |
|
417 |
||
418 |
||
|
812
79c99885ad00
(svn r1283) -Add: AutoRenew is now a client-side patch instead of a game-side patch
truelight
parents:
755
diff
changeset
|
419 |
int32 EstimateShipCost(uint16 engine_type); |
| 0 | 420 |
|
421 |
static void ShipEnterDepot(Vehicle *v) |
|
422 |
{
|
|
423 |
v->u.ship.state = 0x80; |
|
424 |
v->vehstatus |= VS_HIDDEN; |
|
425 |
v->cur_speed = 0; |
|
426 |
RecalcShipStuff(v); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
427 |
|
|
578
86e352980acd
(svn r998) now vehicles are serviced both when entering and when leaving depots to prevent that vehicles might need service when leaving after a long stay (ln--)
bjarni
parents:
555
diff
changeset
|
428 |
VehicleServiceInDepot(v); |
|
86e352980acd
(svn r998) now vehicles are serviced both when entering and when leaving depots to prevent that vehicles might need service when leaving after a long stay (ln--)
bjarni
parents:
555
diff
changeset
|
429 |
|
| 0 | 430 |
InvalidateWindow(WC_VEHICLE_DETAILS, v->index); |
431 |
||
| 842 | 432 |
MaybeReplaceVehicle(v); |
| 0 | 433 |
|
|
445
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
410
diff
changeset
|
434 |
TriggerVehicle(v, VEHICLE_TRIGGER_DEPOT); |
|
0e3fa3da3899
(svn r654) Hopefully complete support for randomized variational spritegroups (i.e. the cars transporter in DBSetXL gets different cars each time) (pasky)
tron
parents:
410
diff
changeset
|
435 |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
436 |
if (v->current_order.type == OT_GOTO_DEPOT) {
|
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
437 |
Order t; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
438 |
|
| 0 | 439 |
InvalidateWindow(WC_VEHICLE_VIEW, v->index); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
440 |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
441 |
t = v->current_order; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
442 |
v->current_order.type = OT_DUMMY; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
443 |
v->current_order.flags = 0; |
| 0 | 444 |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
445 |
if (t.flags & OF_UNLOAD) {
|
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
446 |
v->cur_order_index++; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
447 |
} else if (t.flags & OF_FULL_LOAD) {
|
| 0 | 448 |
v->vehstatus |= VS_STOPPED; |
449 |
if (v->owner == _local_player) {
|
|
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
450 |
SetDParam(0, v->unitnumber); |
| 0 | 451 |
AddNewsItem( |
452 |
STR_981C_SHIP_IS_WAITING_IN_DEPOT, |
|
453 |
NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_VEHICLE, NT_ADVICE, 0), |
|
454 |
v->index, |
|
455 |
0); |
|
456 |
} |
|
457 |
} |
|
458 |
} |
|
|
1055
3aae1d6f12aa
(svn r1556) -Fix: Vehicle list updates should now really work
Celestar
parents:
1053
diff
changeset
|
459 |
InvalidateWindowClasses(WC_SHIPS_LIST); |
| 0 | 460 |
} |
461 |
||
462 |
static void ShipArrivesAt(Vehicle *v, Station *st) |
|
463 |
{
|
|
464 |
/* Check if station was ever visited before */ |
|
465 |
if (!(st->had_vehicle_of_type & HVOT_SHIP)) {
|
|
466 |
uint32 flags; |
|
467 |
st->had_vehicle_of_type |= HVOT_SHIP; |
|
|
534
17ab2f22ff74
(svn r901) Small step in the process to clean up the DPARAM mess:
tron
parents:
507
diff
changeset
|
468 |
SetDParam(0, st->index); |
| 0 | 469 |
flags = (v->owner == _local_player) ? NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_VEHICLE, NT_ARRIVAL_PLAYER, 0) : NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_VEHICLE, NT_ARRIVAL_OTHER, 0); |
470 |
AddNewsItem( |
|
471 |
STR_9833_CITIZENS_CELEBRATE_FIRST, |
|
472 |
flags, |
|
473 |
v->index, |
|
474 |
0); |
|
475 |
} |
|
476 |
} |
|
477 |
||
478 |
typedef struct {
|
|
479 |
uint skiptile; |
|
480 |
uint dest_coords; |
|
481 |
uint best_bird_dist; |
|
482 |
uint best_length; |
|
483 |
} PathFindShip; |
|
484 |
||
485 |
//extern void dbg_store_path(); |
|
486 |
||
487 |
static bool ShipTrackFollower(uint tile, PathFindShip *pfs, int track, uint length, byte *state) |
|
488 |
{
|
|
489 |
// Found dest? |
|
490 |
if (tile == pfs->dest_coords) {
|
|
491 |
pfs->best_bird_dist = 0; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
492 |
|
| 0 | 493 |
// if (length < pfs->best_length) |
494 |
// dbg_store_path(); |
|
495 |
||
496 |
pfs->best_length = minu(pfs->best_length, length); |
|
497 |
return true; |
|
498 |
} |
|
499 |
||
500 |
// Skip this tile in the calculation |
|
501 |
if (tile != pfs->skiptile) {
|
|
502 |
pfs->best_bird_dist = minu(pfs->best_bird_dist, GetTileDist1Db(pfs->dest_coords, tile)); |
|
503 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
504 |
|
| 0 | 505 |
return false; |
506 |
} |
|
507 |
||
508 |
static const byte _ship_search_directions[6][4] = {
|
|
509 |
{ 0, 9, 2, 9 },
|
|
510 |
{ 9, 1, 9, 3 },
|
|
511 |
{ 9, 0, 3, 9 },
|
|
512 |
{ 1, 9, 9, 2 },
|
|
513 |
{ 3, 2, 9, 9 },
|
|
514 |
{ 9, 9, 1, 0 },
|
|
515 |
}; |
|
516 |
||
517 |
static const byte _pick_shiptrack_table[6] = {1, 3, 2, 2, 0, 0};
|
|
518 |
||
519 |
static uint FindShipTrack(Vehicle *v, uint tile, int dir, uint bits, uint skiptile, int *track) |
|
520 |
{
|
|
521 |
PathFindShip pfs; |
|
522 |
int i, best_track; |
|
523 |
uint best_bird_dist = 0; |
|
524 |
uint best_length = 0; |
|
525 |
uint r; |
|
526 |
byte ship_dir = v->direction & 3; |
|
527 |
||
528 |
pfs.dest_coords = v->dest_tile; |
|
529 |
pfs.skiptile = skiptile; |
|
530 |
||
531 |
best_track = -1; |
|
532 |
||
533 |
do {
|
|
534 |
i = FIND_FIRST_BIT(bits); |
|
535 |
bits = KILL_FIRST_BIT(bits); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
536 |
|
| 0 | 537 |
pfs.best_bird_dist = (uint)-1; |
538 |
pfs.best_length = (uint)-1; |
|
539 |
||
|
159
139cf78bfb28
(svn r160) -Codechange: made GetTileTrackStatus more readable (blathijs)
truelight
parents:
156
diff
changeset
|
540 |
FollowTrack(tile, 0x3800 | TRANSPORT_WATER, _ship_search_directions[i][dir], (TPFEnumProc*)ShipTrackFollower, NULL, &pfs); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
541 |
|
| 0 | 542 |
if (best_track >= 0) {
|
543 |
if (pfs.best_bird_dist != 0) {
|
|
544 |
/* neither reached the destination, pick the one with the smallest bird dist */ |
|
545 |
if (pfs.best_bird_dist > best_bird_dist) goto bad; |
|
546 |
if (pfs.best_bird_dist < best_bird_dist) goto good; |
|
547 |
} else {
|
|
548 |
if (pfs.best_length > best_length) goto bad; |
|
549 |
if (pfs.best_length < best_length) goto good; |
|
550 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
551 |
|
|
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
552 |
/* if we reach this position, there's two paths of equal value so far. |
| 0 | 553 |
* pick one randomly. */ |
554 |
r = (byte)Random(); |
|
555 |
if (_pick_shiptrack_table[i] == ship_dir) r += 80; |
|
556 |
if (_pick_shiptrack_table[best_track] == ship_dir) r -= 80; |
|
557 |
if (r <= 127) goto bad; |
|
558 |
} |
|
559 |
good:; |
|
560 |
best_track = i; |
|
561 |
best_bird_dist = pfs.best_bird_dist; |
|
562 |
best_length = pfs.best_length; |
|
563 |
bad:; |
|
564 |
||
565 |
} while (bits != 0); |
|
566 |
||
567 |
*track = best_track; |
|
568 |
return best_bird_dist; |
|
569 |
} |
|
570 |
||
571 |
static int ChooseShipTrack(Vehicle *v, uint tile, int dir, uint tracks) |
|
572 |
{
|
|
573 |
uint b; |
|
574 |
uint tot_dist, dist; |
|
575 |
int track; |
|
576 |
uint tile2; |
|
577 |
||
578 |
assert(dir>=0 && dir<=3); |
|
| 900 | 579 |
tile2 = TILE_ADD(tile, -TileOffsByDir(dir)); |
| 0 | 580 |
dir ^= 2; |
581 |
tot_dist = (uint)-1; |
|
582 |
b = GetTileShipTrackStatus(tile2) & _ship_sometracks[dir] & v->u.ship.state; |
|
583 |
if (b != 0) {
|
|
584 |
dist = FindShipTrack(v, tile2, dir, b, tile, &track); |
|
585 |
if (dist != (uint)-1) |
|
586 |
tot_dist = dist + 1; |
|
587 |
} |
|
588 |
dist = FindShipTrack(v, tile, dir^2, tracks, 0, &track); |
|
589 |
if (dist > tot_dist) |
|
590 |
return -1; |
|
591 |
return track; |
|
592 |
} |
|
593 |
||
594 |
static const byte _new_vehicle_direction_table[11] = {
|
|
595 |
0, 7, 6, 0, |
|
596 |
1, 0, 5, 0, |
|
597 |
2, 3, 4, |
|
598 |
}; |
|
599 |
||
600 |
static int ShipGetNewDirectionFromTiles(uint new_tile, uint old_tile) |
|
601 |
{
|
|
|
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
602 |
uint offs = (TileY(new_tile) - TileY(old_tile) + 1) * 4 + |
|
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
603 |
TileX(new_tile) - TileX(old_tile) + 1; |
| 0 | 604 |
assert(offs < 11 && offs != 3 && offs != 7); |
605 |
return _new_vehicle_direction_table[offs]; |
|
606 |
} |
|
607 |
||
608 |
static int ShipGetNewDirection(Vehicle *v, int x, int y) |
|
609 |
{
|
|
610 |
uint offs = (y - v->y_pos + 1) * 4 + (x - v->x_pos + 1); |
|
611 |
assert(offs < 11 && offs != 3 && offs != 7); |
|
612 |
return _new_vehicle_direction_table[offs]; |
|
613 |
} |
|
614 |
||
615 |
static int GetAvailShipTracks(uint tile, int dir) |
|
616 |
{
|
|
|
159
139cf78bfb28
(svn r160) -Codechange: made GetTileTrackStatus more readable (blathijs)
truelight
parents:
156
diff
changeset
|
617 |
uint32 r = GetTileTrackStatus(tile, TRANSPORT_WATER); |
| 0 | 618 |
return (byte) ((r | r >> 8)) & _ship_sometracks[dir]; |
619 |
} |
|
620 |
||
621 |
static const byte _ship_subcoord[4][6][3] = {
|
|
622 |
{
|
|
623 |
{15, 8, 1},
|
|
624 |
{ 0, 0, 0},
|
|
625 |
{ 0, 0, 0},
|
|
626 |
{15, 8, 2},
|
|
627 |
{15, 7, 0},
|
|
628 |
{ 0, 0, 0},
|
|
629 |
}, |
|
630 |
{
|
|
631 |
{ 0, 0, 0},
|
|
632 |
{ 8, 0, 3},
|
|
633 |
{ 7, 0, 2},
|
|
634 |
{ 0, 0, 0},
|
|
635 |
{ 8, 0, 4},
|
|
636 |
{ 0, 0, 0},
|
|
637 |
}, |
|
638 |
{
|
|
639 |
{ 0, 8, 5},
|
|
640 |
{ 0, 0, 0},
|
|
641 |
{ 0, 7, 6},
|
|
642 |
{ 0, 0, 0},
|
|
643 |
{ 0, 0, 0},
|
|
644 |
{ 0, 8, 4},
|
|
645 |
}, |
|
646 |
{
|
|
647 |
{ 0, 0, 0},
|
|
648 |
{ 8,15, 7},
|
|
649 |
{ 0, 0, 0},
|
|
650 |
{ 8,15, 6},
|
|
651 |
{ 0, 0, 0},
|
|
652 |
{ 7,15, 0},
|
|
653 |
} |
|
654 |
}; |
|
655 |
||
656 |
||
657 |
static void ShipController(Vehicle *v) |
|
658 |
{
|
|
659 |
GetNewVehiclePosResult gp; |
|
660 |
uint32 r; |
|
661 |
const byte *b; |
|
662 |
int dir,track,tracks; |
|
663 |
||
664 |
v->tick_counter++; |
|
665 |
||
666 |
if (v->breakdown_ctr != 0) {
|
|
667 |
if (v->breakdown_ctr <= 2) {
|
|
668 |
HandleBrokenShip(v); |
|
669 |
return; |
|
670 |
} |
|
671 |
v->breakdown_ctr--; |
|
672 |
} |
|
673 |
||
674 |
if (v->vehstatus & VS_STOPPED) |
|
675 |
return; |
|
676 |
||
677 |
ProcessShipOrder(v); |
|
678 |
HandleShipLoading(v); |
|
679 |
||
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
680 |
if (v->current_order.type == OT_LOADING) |
| 0 | 681 |
return; |
682 |
||
683 |
CheckShipLeaveDepot(v); |
|
684 |
||
685 |
if (!ShipAccelerate(v)) |
|
686 |
return; |
|
687 |
||
688 |
BeginVehicleMove(v); |
|
689 |
||
690 |
if (GetNewVehiclePos(v, &gp)) {
|
|
691 |
// staying in tile |
|
692 |
if (v->u.ship.state == 0x80) {
|
|
693 |
gp.x = v->x_pos; |
|
694 |
gp.y = v->y_pos; |
|
695 |
} else {
|
|
696 |
/* isnot inside depot */ |
|
697 |
r = VehicleEnterTile(v, gp.new_tile, gp.x, gp.y); |
|
698 |
if (r & 0x8) goto reverse_direction; |
|
699 |
||
700 |
if (v->dest_tile != 0 && v->dest_tile == gp.new_tile) {
|
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
701 |
if (v->current_order.type == OT_GOTO_DEPOT) {
|
| 0 | 702 |
if ((gp.x&0xF)==8 && (gp.y&0xF)==8) {
|
703 |
ShipEnterDepot(v); |
|
704 |
return; |
|
705 |
} |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
706 |
} else if (v->current_order.type == OT_GOTO_STATION) {
|
| 0 | 707 |
Station *st; |
708 |
||
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
709 |
v->last_station_visited = v->current_order.station; |
| 0 | 710 |
|
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
711 |
/* Process station in the orderlist. Don't do that for buoys (HVOT_BUOY) */ |
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
915
diff
changeset
|
712 |
st = GetStation(v->current_order.station); |
|
812
79c99885ad00
(svn r1283) -Add: AutoRenew is now a client-side patch instead of a game-side patch
truelight
parents:
755
diff
changeset
|
713 |
if (!(st->had_vehicle_of_type & HVOT_BUOY) |
|
297
5a89d926db2d
(svn r303) Fix: [ 1022227 ] Ships could unload cargo at stations without docks
dominik
parents:
193
diff
changeset
|
714 |
&& (st->facilities & FACIL_DOCK)) { /* ugly, ugly workaround for problem with ships able to drop off cargo at wrong stations */
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
715 |
v->current_order.type = OT_LOADING; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
716 |
v->current_order.flags &= OF_FULL_LOAD | OF_UNLOAD; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
717 |
v->current_order.flags |= OF_NON_STOP; |
| 0 | 718 |
ShipArrivesAt(v, st); |
719 |
||
720 |
SET_EXPENSES_TYPE(EXPENSES_SHIP_INC); |
|
721 |
if (LoadUnloadVehicle(v)) {
|
|
722 |
InvalidateWindow(WC_SHIPS_LIST, v->owner); |
|
723 |
MarkShipDirty(v); |
|
724 |
} |
|
|
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
679
diff
changeset
|
725 |
InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); |
|
297
5a89d926db2d
(svn r303) Fix: [ 1022227 ] Ships could unload cargo at stations without docks
dominik
parents:
193
diff
changeset
|
726 |
} else { /* leave buoys right aways */
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
727 |
v->current_order.type = OT_LEAVESTATION; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
728 |
v->current_order.flags = 0; |
| 0 | 729 |
v->cur_order_index++; |
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
730 |
InvalidateVehicleOrder(v); |
| 0 | 731 |
} |
732 |
goto else_end; |
|
733 |
} |
|
734 |
} |
|
735 |
||
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
736 |
if (v->current_order.type == OT_LEAVESTATION) {
|
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
737 |
v->current_order.type = OT_NOTHING; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
738 |
v->current_order.flags = 0; |
|
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
679
diff
changeset
|
739 |
InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); |
| 0 | 740 |
} |
741 |
} |
|
742 |
} else {
|
|
743 |
// new tile |
|
|
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
744 |
if (TileX(gp.new_tile) == MapMaxX() || TileY(gp.new_tile) == MapMaxY()) |
|
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
745 |
goto reverse_direction; |
| 0 | 746 |
|
747 |
dir = ShipGetNewDirectionFromTiles(gp.new_tile, gp.old_tile); |
|
748 |
assert(dir == 1 || dir == 3 || dir == 5 || dir == 7); |
|
749 |
dir>>=1; |
|
750 |
tracks = GetAvailShipTracks(gp.new_tile, dir); |
|
751 |
if (tracks == 0) |
|
752 |
goto reverse_direction; |
|
753 |
||
754 |
// Choose a direction, and continue if we find one |
|
755 |
track = ChooseShipTrack(v, gp.new_tile, dir, tracks); |
|
756 |
if (track < 0) |
|
757 |
goto reverse_direction; |
|
758 |
||
759 |
b = _ship_subcoord[dir][track]; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
760 |
|
| 0 | 761 |
gp.x = (gp.x&~0xF) | b[0]; |
762 |
gp.y = (gp.y&~0xF) | b[1]; |
|
763 |
||
764 |
/* Call the landscape function and tell it that the vehicle entered the tile */ |
|
765 |
r = VehicleEnterTile(v, gp.new_tile, gp.x, gp.y); |
|
766 |
if (r&0x8) goto reverse_direction; |
|
767 |
||
768 |
if (!(r&0x4)) {
|
|
769 |
v->tile = gp.new_tile; |
|
770 |
v->u.ship.state = 1 << track; |
|
771 |
} |
|
772 |
||
773 |
v->direction = b[2]; |
|
774 |
} |
|
775 |
else_end:; |
|
776 |
||
777 |
/* update image of ship, as well as delta XY */ |
|
778 |
dir = ShipGetNewDirection(v, gp.x, gp.y); |
|
779 |
v->x_pos = gp.x; |
|
780 |
v->y_pos = gp.y; |
|
781 |
v->z_pos = GetSlopeZ(gp.x, gp.y); |
|
782 |
||
783 |
getout: |
|
784 |
UpdateShipDeltaXY(v, dir); |
|
785 |
v->cur_image = GetShipImage(v, dir); |
|
786 |
VehiclePositionChanged(v); |
|
787 |
EndVehicleMove(v); |
|
788 |
return; |
|
789 |
||
790 |
reverse_direction: |
|
791 |
dir = v->direction ^ 4; |
|
792 |
v->direction = dir; |
|
793 |
goto getout; |
|
794 |
} |
|
795 |
||
796 |
static void AgeShipCargo(Vehicle *v) |
|
797 |
{
|
|
798 |
if (_age_cargo_skip_counter != 0) |
|
799 |
return; |
|
800 |
if (v->cargo_days != 255) |
|
801 |
v->cargo_days++; |
|
802 |
} |
|
803 |
||
804 |
void Ship_Tick(Vehicle *v) |
|
805 |
{
|
|
806 |
AgeShipCargo(v); |
|
807 |
ShipController(v); |
|
808 |
} |
|
809 |
||
810 |
void HandleClickOnShip(Vehicle *v) |
|
811 |
{
|
|
812 |
ShowShipViewWindow(v); |
|
813 |
} |
|
814 |
||
|
1093
e8d26c7dc42f
(svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile
tron
parents:
1055
diff
changeset
|
815 |
void ShipsYearlyLoop(void) |
| 0 | 816 |
{
|
817 |
Vehicle *v; |
|
818 |
||
819 |
FOR_ALL_VEHICLES(v) {
|
|
820 |
if (v->type == VEH_Ship) {
|
|
821 |
v->profit_last_year = v->profit_this_year; |
|
822 |
v->profit_this_year = 0; |
|
823 |
InvalidateWindow(WC_VEHICLE_DETAILS, v->index); |
|
824 |
} |
|
825 |
} |
|
826 |
} |
|
827 |
||
|
812
79c99885ad00
(svn r1283) -Add: AutoRenew is now a client-side patch instead of a game-side patch
truelight
parents:
755
diff
changeset
|
828 |
int32 EstimateShipCost(uint16 engine_type) |
| 0 | 829 |
{
|
|
538
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
830 |
return ShipVehInfo(engine_type)->base_cost * (_price.ship_base>>3)>>5; |
| 0 | 831 |
} |
832 |
||
833 |
// p1 = type to build |
|
834 |
int32 CmdBuildShip(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
835 |
{
|
|
836 |
int32 value; |
|
837 |
Vehicle *v; |
|
838 |
uint unit_num; |
|
839 |
uint tile = TILE_FROM_XY(x,y); |
|
840 |
Engine *e; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
841 |
|
| 1197 | 842 |
if (!IsEngineBuildable(p1, VEH_Ship)) return CMD_ERROR; |
|
1196
115f46e3807d
(svn r1700) - Fix: Hacked clients can no longer be used to build vehicles that are not available yet (Hackykid)
bjarni
parents:
1151
diff
changeset
|
843 |
|
|
1226
cbcaba80c31c
(svn r1730) - Fix: Ships and Aircrafts have to be build in depots owned by _current_player (hacked client protection)
bjarni
parents:
1209
diff
changeset
|
844 |
if (!IsShipDepotTile((TileIndex)tile)) return CMD_ERROR; |
|
cbcaba80c31c
(svn r1730) - Fix: Ships and Aircrafts have to be build in depots owned by _current_player (hacked client protection)
bjarni
parents:
1209
diff
changeset
|
845 |
|
|
cbcaba80c31c
(svn r1730) - Fix: Ships and Aircrafts have to be build in depots owned by _current_player (hacked client protection)
bjarni
parents:
1209
diff
changeset
|
846 |
if (_map_owner[tile] != _current_player) return CMD_ERROR; |
|
cbcaba80c31c
(svn r1730) - Fix: Ships and Aircrafts have to be build in depots owned by _current_player (hacked client protection)
bjarni
parents:
1209
diff
changeset
|
847 |
|
| 0 | 848 |
SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES); |
849 |
||
850 |
value = EstimateShipCost(p1); |
|
851 |
if (flags & DC_QUERY_COST) |
|
852 |
return value; |
|
853 |
||
854 |
v = AllocateVehicle(); |
|
|
1024
9b06b01490a4
(svn r1525) -Codechange: rewrote the _order_array, now it can be made dynamic.
truelight
parents:
1020
diff
changeset
|
855 |
if (v == NULL || IsOrderPoolFull() || |
| 0 | 856 |
(unit_num = GetFreeUnitNumber(VEH_Ship)) > _patches.max_ships) |
857 |
return_cmd_error(STR_00E1_TOO_MANY_VEHICLES_IN_GAME); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
858 |
|
| 0 | 859 |
if (flags & DC_EXEC) {
|
|
538
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
860 |
const ShipVehicleInfo *svi = ShipVehInfo(p1); |
|
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
861 |
|
| 0 | 862 |
v->unitnumber = unit_num; |
863 |
||
864 |
v->owner = _current_player; |
|
865 |
v->tile = tile; |
|
|
926
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
866 |
x = TileX(tile) * 16 + 8; |
|
bd4312619522
(svn r1414) Move TileIndex, TILE_MASK and GET_TILE_[XY] to map.h and turn the latter into inline functions names Tile[XY]
tron
parents:
919
diff
changeset
|
867 |
y = TileY(tile) * 16 + 8; |
| 0 | 868 |
v->x_pos = x; |
869 |
v->y_pos = y; |
|
870 |
v->z_pos = GetSlopeZ(x,y); |
|
871 |
||
872 |
v->z_height = 6; |
|
873 |
v->sprite_width = 6; |
|
874 |
v->sprite_height = 6; |
|
875 |
v->x_offs = -3; |
|
876 |
v->y_offs = -3; |
|
877 |
v->vehstatus = VS_HIDDEN | VS_STOPPED | VS_DEFPAL; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
878 |
|
|
538
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
879 |
v->spritenum = svi->image_index; |
|
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
880 |
v->cargo_type = svi->cargo_type; |
|
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
881 |
v->cargo_cap = svi->capacity; |
| 0 | 882 |
v->value = value; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
883 |
|
|
817
4f9377b7fd2b
(svn r1288) -Codechange: changed _map2 to an uint16. It is still saved and loaded as
truelight
parents:
812
diff
changeset
|
884 |
v->last_station_visited = 0xFFFF; |
|
538
5dd99f3b7eca
(svn r920) Replace vehicle info macros with inline functions and add asserts to check limits
tron
parents:
534
diff
changeset
|
885 |
v->max_speed = svi->max_speed; |
| 0 | 886 |
v->engine_type = (byte)p1; |
887 |
||
888 |
e = &_engines[p1]; |
|
889 |
v->reliability = e->reliability; |
|
890 |
v->reliability_spd_dec = e->reliability_spd_dec; |
|
891 |
v->max_age = e->lifelength * 366; |
|
892 |
_new_ship_id = v->index; |
|
893 |
||
894 |
v->string_id = STR_SV_SHIP_NAME; |
|
895 |
v->u.ship.state = 0x80; |
|
896 |
||
897 |
v->service_interval = _patches.servint_ships; |
|
898 |
v->date_of_last_service = _date; |
|
899 |
v->build_year = _cur_year; |
|
900 |
v->cur_image = 0x0E5E; |
|
901 |
v->type = VEH_Ship; |
|
902 |
||
903 |
VehiclePositionChanged(v); |
|
904 |
||
905 |
InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); |
|
| 588 | 906 |
RebuildVehicleLists(); |
| 0 | 907 |
InvalidateWindow(WC_COMPANY, v->owner); |
908 |
} |
|
|
1128
d3ffc98b92ad
(svn r1629) added a counter to tell how many engines you have of each type to the autoreplace vehicle windows and made them show only the vehicles you actually have in the left list.
bjarni
parents:
1093
diff
changeset
|
909 |
InvalidateWindow(WC_REPLACE_VEHICLE, VEH_Ship); // updates the replace Ship window |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
910 |
|
| 0 | 911 |
return value; |
912 |
} |
|
913 |
||
914 |
int32 CmdSellShip(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
915 |
{
|
|
916 |
Vehicle *v; |
|
917 |
||
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
918 |
if (!IsVehicleIndex(p1)) return CMD_ERROR; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
919 |
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
915
diff
changeset
|
920 |
v = GetVehicle(p1); |
| 0 | 921 |
|
|
1235
12e2f93d0a94
(svn r1739) - Fix: type checking when selling vehicles (TrueLight)
darkvater
parents:
1226
diff
changeset
|
922 |
if (v->type != VEH_Ship || !CheckOwnership(v->owner)) |
| 0 | 923 |
return CMD_ERROR; |
924 |
||
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
925 |
SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES); |
|
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
926 |
|
| 0 | 927 |
if (!IsShipDepotTile(v->tile) || v->u.road.state != 0x80 || !(v->vehstatus&VS_STOPPED)) |
928 |
return_cmd_error(STR_980B_SHIP_MUST_BE_STOPPED_IN); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
929 |
|
| 0 | 930 |
if (flags & DC_EXEC) {
|
931 |
InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); |
|
| 588 | 932 |
RebuildVehicleLists(); |
| 0 | 933 |
InvalidateWindow(WC_COMPANY, v->owner); |
934 |
DeleteWindowById(WC_VEHICLE_VIEW, v->index); |
|
935 |
DeleteVehicle(v); |
|
936 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
937 |
|
|
1128
d3ffc98b92ad
(svn r1629) added a counter to tell how many engines you have of each type to the autoreplace vehicle windows and made them show only the vehicles you actually have in the left list.
bjarni
parents:
1093
diff
changeset
|
938 |
InvalidateWindow(WC_REPLACE_VEHICLE, VEH_Ship); // updates the replace Ship window |
|
d3ffc98b92ad
(svn r1629) added a counter to tell how many engines you have of each type to the autoreplace vehicle windows and made them show only the vehicles you actually have in the left list.
bjarni
parents:
1093
diff
changeset
|
939 |
|
| 0 | 940 |
return -(int32)v->value; |
941 |
} |
|
942 |
||
943 |
// p1 = vehicle |
|
944 |
int32 CmdStartStopShip(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
945 |
{
|
|
946 |
Vehicle *v; |
|
947 |
||
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
948 |
if (!IsVehicleIndex(p1)) return CMD_ERROR; |
|
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
949 |
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
915
diff
changeset
|
950 |
v = GetVehicle(p1); |
| 0 | 951 |
|
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
952 |
if (v->type != VEH_Ship || !CheckOwnership(v->owner)) |
| 0 | 953 |
return CMD_ERROR; |
954 |
||
955 |
if (flags & DC_EXEC) {
|
|
956 |
v->vehstatus ^= VS_STOPPED; |
|
|
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
679
diff
changeset
|
957 |
InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); |
| 0 | 958 |
InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); |
959 |
} |
|
960 |
||
|
1055
3aae1d6f12aa
(svn r1556) -Fix: Vehicle list updates should now really work
Celestar
parents:
1053
diff
changeset
|
961 |
InvalidateWindowClasses(WC_SHIPS_LIST); |
|
1020
1223cd937174
(svn r1521) -Fix: Ship Vehicle Lists are now redrawn correctly
celestar
parents:
926
diff
changeset
|
962 |
|
| 0 | 963 |
return 0; |
964 |
} |
|
965 |
||
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
966 |
/* Send a ship to the nearest depot |
|
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
967 |
p1 = index of the ship |
|
1206
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
968 |
p2 = bit 0 = do not stop in depot |
|
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
969 |
bit 1 = set v->set_for_replacement |
|
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
970 |
bit 2 = clear v->set_for_replacement */ |
| 0 | 971 |
int32 CmdSendShipToDepot(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
972 |
{
|
|
973 |
Vehicle *v; |
|
974 |
int depot; |
|
975 |
||
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
976 |
if (!IsVehicleIndex(p1)) return CMD_ERROR; |
|
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
977 |
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
915
diff
changeset
|
978 |
v = GetVehicle(p1); |
| 0 | 979 |
|
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
980 |
if (v->type != VEH_Ship || !CheckOwnership(v->owner)) |
| 0 | 981 |
return CMD_ERROR; |
982 |
||
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
983 |
if (HASBIT(p2, 0)) v->set_for_replacement = true; |
|
1206
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
984 |
if (HASBIT(p2, 2)) v->set_for_replacement = false; |
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
985 |
|
|
1206
9a4ebc971c41
(svn r1710) - Fix: [autoreplace] vehicles do no longer go to a depot all the time if the owner clicked 'stop replacing' ( ship+aircraft+road vehicles )
bjarni
parents:
1205
diff
changeset
|
986 |
if (HASBIT(p2, 1) || HASBIT(p2, 2)) return CMD_ERROR; // vehicle has a depot in schedule. It just needed to alter set_for_replacement |
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
987 |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
988 |
if (v->current_order.type == OT_GOTO_DEPOT) {
|
| 0 | 989 |
if (flags & DC_EXEC) {
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
990 |
if (v->current_order.flags & OF_UNLOAD) v->cur_order_index++; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
991 |
v->current_order.type = OT_DUMMY; |
|
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
992 |
v->current_order.flags = 0; |
|
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
679
diff
changeset
|
993 |
InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); |
| 0 | 994 |
} |
995 |
} else {
|
|
996 |
depot = FindClosestShipDepot(v); |
|
997 |
if (depot < 0) |
|
998 |
return_cmd_error(STR_981A_UNABLE_TO_FIND_LOCAL_DEPOT); |
|
999 |
||
1000 |
if (flags & DC_EXEC) {
|
|
1001 |
v->dest_tile = _depots[depot].xy; |
|
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
1002 |
v->current_order.type = OT_GOTO_DEPOT; |
|
1205
98a430b41d81
(svn r1709) - Feature: [autoreplace] ships now automatically goes to a depot if they need to be replaced
bjarni
parents:
1197
diff
changeset
|
1003 |
v->current_order.flags = HASBIT(p2, 0) ? 0 : OF_NON_STOP | OF_FULL_LOAD; |
|
555
eec6c0294435
(svn r955) Replace uint16 for orders with struct Order
tron
parents:
541
diff
changeset
|
1004 |
v->current_order.station = depot; |
|
755
823358e83abf
(svn r1211) -Feature: Introduce sticky windows to all vehicle windows...Just make sure you do not sticky more than 23 at a time. Also a lot of places in the code invalidated the 'status bar' of the vehicle, referring to it as widget 4. This is now widget 5 and has been #definitized
darkvater
parents:
679
diff
changeset
|
1005 |
InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); |
| 0 | 1006 |
} |
1007 |
} |
|
1008 |
||
1009 |
return 0; |
|
1010 |
} |
|
1011 |
||
1012 |
int32 CmdChangeShipServiceInt(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
|
1013 |
{
|
|
1014 |
Vehicle *v; |
|
1015 |
||
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1016 |
if (!IsVehicleIndex(p1)) return CMD_ERROR; |
|
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1017 |
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
915
diff
changeset
|
1018 |
v = GetVehicle(p1); |
| 0 | 1019 |
|
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1020 |
if (v->type != VEH_Ship || !CheckOwnership(v->owner)) |
| 0 | 1021 |
return CMD_ERROR; |
1022 |
||
1023 |
if (flags & DC_EXEC) {
|
|
1024 |
v->service_interval = (uint16)p2; |
|
1025 |
InvalidateWindowWidget(WC_VEHICLE_DETAILS, v->index, 7); |
|
1026 |
} |
|
1027 |
||
1028 |
return 0; |
|
1029 |
} |
|
1030 |
||
1031 |
||
1032 |
// p1 = vehicle |
|
| 842 | 1033 |
// p2 = new cargo (0xFF) |
1034 |
// p2 = skip check for stopped in hanger (0x0100) |
|
| 0 | 1035 |
int32 CmdRefitShip(int x, int y, uint32 flags, uint32 p1, uint32 p2) |
1036 |
{
|
|
1037 |
Vehicle *v; |
|
1038 |
int32 cost; |
|
| 842 | 1039 |
byte SkipStoppedInDepotCheck = (p2 & 0x100) >> 8; //excludes the cargo value |
| 0 | 1040 |
|
| 842 | 1041 |
p2 = p2 & 0xFF; |
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1042 |
|
|
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1043 |
if (!IsVehicleIndex(p1)) return CMD_ERROR; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1044 |
|
|
919
b0d6c7642f99
(svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents:
915
diff
changeset
|
1045 |
v = GetVehicle(p1); |
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1046 |
|
|
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1047 |
if (v->type != VEH_Ship || !CheckOwnership(v->owner)) |
| 0 | 1048 |
return CMD_ERROR; |
1049 |
||
| 842 | 1050 |
if (!( SkipStoppedInDepotCheck )) {
|
1051 |
if (!IsShipDepotTile(v->tile) || |
|
1052 |
!(v->vehstatus&VS_STOPPED) || |
|
1053 |
v->u.ship.state != 0x80) |
|
1054 |
return_cmd_error(STR_980B_SHIP_MUST_BE_STOPPED_IN); |
|
1055 |
} |
|
| 915 | 1056 |
|
|
1237
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1057 |
SET_EXPENSES_TYPE(EXPENSES_SHIP_RUN); |
|
0a1ce05c3d45
(svn r1741) - Fix: added IsVehicleIndex() so it's possible to protect GetVehicle() from reading an invalid vehicle index
bjarni
parents:
1235
diff
changeset
|
1058 |
|
| 0 | 1059 |
cost = 0; |
1060 |
if (IS_HUMAN_PLAYER(v->owner) && (byte)p2 != v->cargo_type) {
|
|
1061 |
cost = _price.ship_base >> 7; |
|
1062 |
} |
|
1063 |
||
1064 |
if (flags & DC_EXEC) {
|
|
| 842 | 1065 |
//autorefitted ships wants to keep the cargo |
1066 |
//it will be checked if the cargo is valid in CmdRenewVehicle |
|
1067 |
if (!(SkipStoppedInDepotCheck)) |
|
| 915 | 1068 |
v->cargo_count = 0; |
| 0 | 1069 |
v->cargo_type = (byte)p2; |
1070 |
InvalidateWindow(WC_VEHICLE_DETAILS, v->index); |
|
1071 |
} |
|
1072 |
||
1073 |
return cost; |
|
1074 |
||
1075 |
} |
|
1076 |
||
1077 |