OpenTTD

- Main Page
- Related Pages
- Modules
- Namespaces
- Data Structures
- Files

- File List
- Globals

waypoint_cmd.cpp
Go to the documentation of this file.
1 /* $Id: waypoint_cmd.cpp 26879 2014-09-21 11:24:51Z rubidium $ */
2
3 /*
4 * This file is part of OpenTTD.
5 * OpenTTD is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2.
6 * OpenTTD is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
7 * See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
8 */
9
12 #include "stdafx.h"
13
14 #include "cmd_helper.h"
15 #include "command_func.h"
16 #include "landscape.h"
17 #include "bridge_map.h"
18 #include "town.h"
19 #include "waypoint_base.h"
20 #include "pathfinder/yapf/yapf_cache.h"
21 #include "strings_func.h"
22 #include "viewport_func.h"
23 #include "window_func.h"
24 #include "date_func.h"
25 #include "vehicle_func.h"
26 #include "string_func.h"
27 #include "company_func.h"
28 #include "newgrf_station.h"
29 #include "company_base.h"
30 #include "water.h"
31 #include "company_gui.h"
32
33 #include "table/strings.h"
34
35 #include "safeguards.h"
36
40 void Waypoint::UpdateVirtCoord()
41 {
42 Point pt = RemapCoords2(TileX(this->xy) * TILE_SIZE, TileY(this->xy) * TILE_SIZE);
43 SetDParam(0, this->index);
44 this->sign.UpdatePosition(pt.x, pt.y - 32 * ZOOM_LVL_BASE, STR_VIEWPORT_WAYPOINT);
45 /* Recenter viewport */
46 InvalidateWindowData(WC_WAYPOINT_VIEW, this->index);
47 }
48
56 static Waypoint *FindDeletedWaypointCloseTo(TileIndex tile, StringID str, CompanyID cid)
57 {
58 Waypoint *wp, *best = NULL;
59 uint thres = 8;
60
61 FOR_ALL_WAYPOINTS(wp) {
62 if (!wp->IsInUse() && wp->string_id == str && wp->owner == cid) {
63 uint cur_dist = DistanceManhattan(tile, wp->xy);
64
65 if (cur_dist < thres) {
66 thres = cur_dist;
67 best = wp;
68 }
69 }
70 }
71
72 return best;
73 }
74
82 Axis GetAxisForNewWaypoint(TileIndex tile)
83 {
84 /* The axis for rail waypoints is easy. */
85 if (IsRailWaypointTile(tile)) return GetRailStationAxis(tile);
86
87 /* Non-plain rail type, no valid axis for waypoints. */
88 if (!IsTileType(tile, MP_RAILWAY) || GetRailTileType(tile) != RAIL_TILE_NORMAL) return INVALID_AXIS;
89
90 switch (GetTrackBits(tile)) {
91 case TRACK_BIT_X: return AXIS_X;
92 case TRACK_BIT_Y: return AXIS_Y;
93 default: return INVALID_AXIS;
94 }
95 }
96
97 extern CommandCost ClearTile_Station(TileIndex tile, DoCommandFlag flags);
98
105 static CommandCost IsValidTileForWaypoint(TileIndex tile, Axis axis, StationID *waypoint)
106 {
107 /* if waypoint is set, then we have special handling to allow building on top of already existing waypoints.
108 * so waypoint points to INVALID_STATION if we can build on any waypoint.
109 * Or it points to a waypoint if we're only allowed to build on exactly that waypoint. */
110 if (waypoint != NULL && IsTileType(tile, MP_STATION)) {
111 if (!IsRailWaypoint(tile)) {
112 return ClearTile_Station(tile, DC_AUTO); // get error message
113 } else {
114 StationID wp = GetStationIndex(tile);
115 if (*waypoint == INVALID_STATION) {
116 *waypoint = wp;
117 } else if (*waypoint != wp) {
118 return_cmd_error(STR_ERROR_WAYPOINT_ADJOINS_MORE_THAN_ONE_EXISTING);
119 }
120 }
121 }
122
123 if (GetAxisForNewWaypoint(tile) != axis) return_cmd_error(STR_ERROR_NO_SUITABLE_RAILROAD_TRACK);
124
125 Owner owner = GetTileOwner(tile);
126 CommandCost ret = CheckOwnership(owner);
127 if (ret.Succeeded()) ret = EnsureNoVehicleOnGround(tile);
128 if (ret.Failed()) return ret;
129
130 Slope tileh = GetTileSlope(tile);
131 if (tileh != SLOPE_FLAT &&
132 (!_settings_game.construction.build_on_slopes || IsSteepSlope(tileh) || !(tileh & (0x3 << axis)) || !(tileh & ~(0x3 << axis)))) {
133 return_cmd_error(STR_ERROR_FLAT_LAND_REQUIRED);
134 }
135
136 if (IsBridgeAbove(tile)) return_cmd_error(STR_ERROR_MUST_DEMOLISH_BRIDGE_FIRST);
137
138 return CommandCost();
139 }
140
141 extern void GetStationLayout(byte *layout, int numtracks, int plat_len, const StationSpec *statspec);
142 extern CommandCost FindJoiningWaypoint(StationID existing_station, StationID station_to_join, bool adjacent, TileArea ta, Waypoint **wp);
143 extern CommandCost CanExpandRailStation(const BaseStation *st, TileArea &new_ta, Axis axis);
144
161 CommandCost CmdBuildRailWaypoint(TileIndex start_tile, DoCommandFlag flags, uint32 p1, uint32 p2, const char *text)
162 {
163 /* Unpack parameters */
164 Axis axis = Extract<Axis, 4, 1>(p1);
165 byte width = GB(p1, 8, 8);
166 byte height = GB(p1, 16, 8);
167 bool adjacent = HasBit(p1, 24);
168
169 StationClassID spec_class = Extract<StationClassID, 0, 8>(p2);
170 byte spec_index = GB(p2, 8, 8);
171 StationID station_to_join = GB(p2, 16, 16);
172
173 /* Check if the given station class is valid */
174 if (spec_class != STAT_CLASS_WAYP) return CMD_ERROR;
175 if (spec_index >= StationClass::Get(spec_class)->GetSpecCount()) return CMD_ERROR;
176
177 /* The number of parts to build */
178 byte count = axis == AXIS_X ? height : width;
179
180 if ((axis == AXIS_X ? width : height) != 1) return CMD_ERROR;
181 if (count == 0 || count > _settings_game.station.station_spread) return CMD_ERROR;
182
183 bool reuse = (station_to_join != NEW_STATION);
184 if (!reuse) station_to_join = INVALID_STATION;
185 bool distant_join = (station_to_join != INVALID_STATION);
186
187 if (distant_join && (!_settings_game.station.distant_join_stations || !Waypoint::IsValidID(station_to_join))) return CMD_ERROR;
188
189 /* Make sure the area below consists of clear tiles. (OR tiles belonging to a certain rail station) */
190 StationID est = INVALID_STATION;
191
192 /* Check whether the tiles we're building on are valid rail or not. */
193 TileIndexDiff offset = TileOffsByDiagDir(AxisToDiagDir(OtherAxis(axis)));
194 for (int i = 0; i < count; i++) {
195 TileIndex tile = start_tile + i * offset;
196 CommandCost ret = IsValidTileForWaypoint(tile, axis, &est);
197 if (ret.Failed()) return ret;
198 }
199
200 Waypoint *wp = NULL;
201 TileArea new_location(TileArea(start_tile, width, height));
202 CommandCost ret = FindJoiningWaypoint(est, station_to_join, adjacent, new_location, &wp);
203 if (ret.Failed()) return ret;
204
205 /* Check if there is an already existing, deleted, waypoint close to us that we can reuse. */
206 TileIndex center_tile = start_tile + (count / 2) * offset;
207 if (wp == NULL && reuse) wp = FindDeletedWaypointCloseTo(center_tile, STR_SV_STNAME_WAYPOINT, _current_company);
208
209 if (wp != NULL) {
210 /* Reuse an existing waypoint. */
211 if (wp->owner != _current_company) return_cmd_error(STR_ERROR_TOO_CLOSE_TO_ANOTHER_WAYPOINT);
212
213 /* check if we want to expand an already existing waypoint? */
214 if (wp->train_station.tile != INVALID_TILE) {
215 CommandCost ret = CanExpandRailStation(wp, new_location, axis);
216 if (ret.Failed()) return ret;
217 }
218
219 CommandCost ret = wp->rect.BeforeAddRect(start_tile, width, height, StationRect::ADD_TEST);
220 if (ret.Failed()) return ret;
221 } else {
222 /* allocate and initialize new waypoint */
223 if (!Waypoint::CanAllocateItem()) return_cmd_error(STR_ERROR_TOO_MANY_STATIONS_LOADING);
224 }
225
226 if (flags & DC_EXEC) {
227 if (wp == NULL) {
228 wp = new Waypoint(start_tile);
229 } else if (!wp->IsInUse()) {
230 /* Move existing (recently deleted) waypoint to the new location */
231 wp->xy = start_tile;
232 }
233 wp->owner = GetTileOwner(start_tile);
234
235 wp->rect.BeforeAddRect(start_tile, width, height, StationRect::ADD_TRY);
236
237 wp->delete_ctr = 0;
238 wp->facilities |= FACIL_TRAIN;
239 wp->build_date = _date;
240 wp->string_id = STR_SV_STNAME_WAYPOINT;
241 wp->train_station = new_location;
242
243 if (wp->town == NULL) MakeDefaultName(wp);
244
245 wp->UpdateVirtCoord();
246
247 const StationSpec *spec = StationClass::Get(spec_class)->GetSpec(spec_index);
248 byte *layout_ptr = AllocaM(byte, count);
249 if (spec == NULL) {
250 /* The layout must be 0 for the 'normal' waypoints by design. */
251 memset(layout_ptr, 0, count);
252 } else {
253 /* But for NewGRF waypoints we like to have their style. */
254 GetStationLayout(layout_ptr, count, 1, spec);
255 }
256 byte map_spec_index = AllocateSpecToStation(spec, wp, true);
257
258 Company *c = Company::Get(wp->owner);
259 for (int i = 0; i < count; i++) {
260 TileIndex tile = start_tile + i * offset;
261 byte old_specindex = HasStationTileRail(tile) ? GetCustomStationSpecIndex(tile) : 0;
262 if (!HasStationTileRail(tile)) c->infrastructure.station++;
263 bool reserved = IsTileType(tile, MP_RAILWAY) ?
264 HasBit(GetRailReservationTrackBits(tile), AxisToTrack(axis)) :
265 HasStationReservation(tile);
266 MakeRailWaypoint(tile, wp->owner, wp->index, axis, layout_ptr[i], GetRailType(tile));
267 SetCustomStationSpecIndex(tile, map_spec_index);
268 SetRailStationReservation(tile, reserved);
269 MarkTileDirtyByTile(tile);
270
271 DeallocateSpecFromStation(wp, old_specindex);
272 YapfNotifyTrackLayoutChange(tile, AxisToTrack(axis));
273 }
274 DirtyCompanyInfrastructureWindows(wp->owner);
275 }
276
277 return CommandCost(EXPENSES_CONSTRUCTION, count * _price[PR_BUILD_WAYPOINT_RAIL]);
278 }
279
289 CommandCost CmdBuildBuoy(TileIndex tile, DoCommandFlag flags, uint32 p1, uint32 p2, const char *text)
290 {
291 if (tile == 0 || !HasTileWaterGround(tile)) return_cmd_error(STR_ERROR_SITE_UNSUITABLE);
292 if (IsBridgeAbove(tile)) return_cmd_error(STR_ERROR_MUST_DEMOLISH_BRIDGE_FIRST);
293
294 if (!IsTileFlat(tile)) return_cmd_error(STR_ERROR_SITE_UNSUITABLE);
295
296 /* Check if there is an already existing, deleted, waypoint close to us that we can reuse. */
297 Waypoint *wp = FindDeletedWaypointCloseTo(tile, STR_SV_STNAME_BUOY, OWNER_NONE);
298 if (wp == NULL && !Waypoint::CanAllocateItem()) return_cmd_error(STR_ERROR_TOO_MANY_STATIONS_LOADING);
299
300 CommandCost cost(EXPENSES_CONSTRUCTION, _price[PR_BUILD_WAYPOINT_BUOY]);
301 if (!IsWaterTile(tile)) {
302 CommandCost ret = DoCommand(tile, 0, 0, flags | DC_AUTO, CMD_LANDSCAPE_CLEAR);
303 if (ret.Failed()) return ret;
304 cost.AddCost(ret);
305 }
306
307 if (flags & DC_EXEC) {
308 if (wp == NULL) {
309 wp = new Waypoint(tile);
310 } else {
311 /* Move existing (recently deleted) buoy to the new location */
312 wp->xy = tile;
313 InvalidateWindowData(WC_WAYPOINT_VIEW, wp->index);
314 }
315 wp->rect.BeforeAddTile(tile, StationRect::ADD_TRY);
316
317 wp->string_id = STR_SV_STNAME_BUOY;
318
319 wp->facilities |= FACIL_DOCK;
320 wp->owner = OWNER_NONE;
321
322 wp->build_date = _date;
323
324 if (wp->town == NULL) MakeDefaultName(wp);
325
326 MakeBuoy(tile, wp->index, GetWaterClass(tile));
327
328 wp->UpdateVirtCoord();
329 InvalidateWindowData(WC_WAYPOINT_VIEW, wp->index);
330 }
331
332 return cost;
333 }
334
342 CommandCost RemoveBuoy(TileIndex tile, DoCommandFlag flags)
343 {
344 /* XXX: strange stuff, allow clearing as invalid company when clearing landscape */
345 if (!Company::IsValidID(_current_company) && !(flags & DC_BANKRUPT)) return_cmd_error(INVALID_STRING_ID);
346
347 Waypoint *wp = Waypoint::GetByTile(tile);
348
349 if (HasStationInUse(wp->index, false, _current_company)) return_cmd_error(STR_ERROR_BUOY_IS_IN_USE);
350 /* remove the buoy if there is a ship on tile when company goes bankrupt... */
351 if (!(flags & DC_BANKRUPT)) {
352 CommandCost ret = EnsureNoVehicleOnGround(tile);
353 if (ret.Failed()) return ret;
354 }
355
356 if (flags & DC_EXEC) {
357 wp->facilities &= ~FACIL_DOCK;
358
359 InvalidateWindowData(WC_WAYPOINT_VIEW, wp->index);
360
361 /* We have to set the water tile's state to the same state as before the
362 * buoy was placed. Otherwise one could plant a buoy on a canal edge,
363 * remove it and flood the land (if the canal edge is at level 0) */
364 MakeWaterKeepingClass(tile, GetTileOwner(tile));
365
366 wp->rect.AfterRemoveTile(wp, tile);
367
368 wp->UpdateVirtCoord();
369 wp->delete_ctr = 0;
370 }
371
372 return CommandCost(EXPENSES_CONSTRUCTION, _price[PR_CLEAR_WAYPOINT_BUOY]);
373 }
374
380 static bool IsUniqueWaypointName(const char *name)
381 {
382 const Waypoint *wp;
383
384 FOR_ALL_WAYPOINTS(wp) {
385 if (wp->name != NULL && strcmp(wp->name, name) == 0) return false;
386 }
387
388 return true;
389 }
390
400 CommandCost CmdRenameWaypoint(TileIndex tile, DoCommandFlag flags, uint32 p1, uint32 p2, const char *text)
401 {
402 Waypoint *wp = Waypoint::GetIfValid(p1);
403 if (wp == NULL) return CMD_ERROR;
404
405 if (wp->owner != OWNER_NONE) {
406 CommandCost ret = CheckOwnership(wp->owner);
407 if (ret.Failed()) return ret;
408 }
409
410 bool reset = StrEmpty(text);
411
412 if (!reset) {
413 if (Utf8StringLength(text) >= MAX_LENGTH_STATION_NAME_CHARS) return CMD_ERROR;
414 if (!IsUniqueWaypointName(text)) return_cmd_error(STR_ERROR_NAME_MUST_BE_UNIQUE);
415 }
416
417 if (flags & DC_EXEC) {
418 free(wp->name);
419 wp->name = reset ? NULL : stredup(text);
420
421 wp->UpdateVirtCoord();
422 }
423 return CommandCost();
424 }