diff --git a/src/ship_cmd.cpp b/src/ship_cmd.cpp new file mode 100644 --- /dev/null +++ b/src/ship_cmd.cpp @@ -0,0 +1,1110 @@ +/* $Id$ */ + +#include "stdafx.h" +#include "openttd.h" +#include "ship.h" +#include "table/strings.h" +#include "functions.h" +#include "map.h" +#include "tile.h" +#include "vehicle.h" +#include "command.h" +#include "pathfind.h" +#include "station_map.h" +#include "station.h" +#include "news.h" +#include "engine.h" +#include "player.h" +#include "sound.h" +#include "npf.h" +#include "depot.h" +#include "vehicle_gui.h" +#include "newgrf_engine.h" +#include "water_map.h" +#include "yapf/yapf.h" +#include "debug.h" +#include "newgrf_callbacks.h" +#include "newgrf_text.h" +#include "newgrf_sound.h" +#include "date.h" + +static const uint16 _ship_sprites[] = {0x0E5D, 0x0E55, 0x0E65, 0x0E6D}; +static const byte _ship_sometracks[4] = {0x19, 0x16, 0x25, 0x2A}; + +static byte GetTileShipTrackStatus(TileIndex tile) +{ + uint32 r = GetTileTrackStatus(tile, TRANSPORT_WATER); + return r | r >> 8; +} + +void DrawShipEngine(int x, int y, EngineID engine, uint32 image_ormod) +{ + int spritenum = ShipVehInfo(engine)->image_index; + + if (is_custom_sprite(spritenum)) { + int sprite = GetCustomVehicleIcon(engine, DIR_W); + + if (sprite != 0) { + DrawSprite(sprite | image_ormod, x, y); + return; + } + spritenum = orig_ship_vehicle_info[engine - SHIP_ENGINES_INDEX].image_index; + } + DrawSprite((6 + _ship_sprites[spritenum]) | image_ormod, x, y); +} + +int GetShipImage(const Vehicle* v, Direction direction) +{ + int spritenum = v->spritenum; + + if (is_custom_sprite(spritenum)) { + int sprite = GetCustomVehicleSprite(v, direction); + + if (sprite != 0) return sprite; + spritenum = orig_ship_vehicle_info[v->engine_type - SHIP_ENGINES_INDEX].image_index; + } + return _ship_sprites[spritenum] + direction; +} + +static const Depot* FindClosestShipDepot(const Vehicle* v) +{ + const Depot* depot; + const Depot* best_depot = NULL; + uint dist; + uint best_dist = (uint)-1; + TileIndex tile; + TileIndex tile2 = v->tile; + + if (_patches.new_pathfinding_all) { + NPFFoundTargetData ftd; + byte trackdir = GetVehicleTrackdir(v); + ftd = NPFRouteToDepotTrialError(v->tile, trackdir, TRANSPORT_WATER, v->owner, INVALID_RAILTYPE); + if (ftd.best_bird_dist == 0) { + best_depot = GetDepotByTile(ftd.node.tile); /* Found target */ + } else { + best_depot = NULL; /* Did not find target */ + } + } else { + FOR_ALL_DEPOTS(depot) { + tile = depot->xy; + if (IsTileDepotType(tile, TRANSPORT_WATER) && IsTileOwner(tile, v->owner)) { + dist = DistanceManhattan(tile, tile2); + if (dist < best_dist) { + best_dist = dist; + best_depot = depot; + } + } + } + } + return best_depot; +} + +static void CheckIfShipNeedsService(Vehicle *v) +{ + const Depot* depot; + + if (_patches.servint_ships == 0) return; + if (!VehicleNeedsService(v)) return; + if (v->vehstatus & VS_STOPPED) return; + + if (v->current_order.type == OT_GOTO_DEPOT && + v->current_order.flags & OF_HALT_IN_DEPOT) + return; + + if (_patches.gotodepot && VehicleHasDepotOrders(v)) return; + + if (IsShipInDepot(v)) { + VehicleServiceInDepot(v); + return; + } + + depot = FindClosestShipDepot(v); + + if (depot == NULL || DistanceManhattan(v->tile, depot->xy) > 12) { + if (v->current_order.type == OT_GOTO_DEPOT) { + v->current_order.type = OT_DUMMY; + v->current_order.flags = 0; + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); + } + return; + } + + v->current_order.type = OT_GOTO_DEPOT; + v->current_order.flags = OF_NON_STOP; + v->current_order.dest = depot->index; + v->dest_tile = depot->xy; + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); +} + +void OnNewDay_Ship(Vehicle *v) +{ + int32 cost; + + if ((++v->day_counter & 7) == 0) + DecreaseVehicleValue(v); + + CheckVehicleBreakdown(v); + AgeVehicle(v); + CheckIfShipNeedsService(v); + + CheckOrders(v); + + if (v->vehstatus & VS_STOPPED) return; + + cost = ShipVehInfo(v->engine_type)->running_cost * _price.ship_running / 364; + v->profit_this_year -= cost >> 8; + + SET_EXPENSES_TYPE(EXPENSES_SHIP_RUN); + SubtractMoneyFromPlayerFract(v->owner, cost); + + InvalidateWindow(WC_VEHICLE_DETAILS, v->index); + //we need this for the profit + InvalidateWindowClasses(WC_SHIPS_LIST); +} + +static void HandleBrokenShip(Vehicle *v) +{ + if (v->breakdown_ctr != 1) { + v->breakdown_ctr = 1; + v->cur_speed = 0; + + if (v->breakdowns_since_last_service != 255) + v->breakdowns_since_last_service++; + + InvalidateWindow(WC_VEHICLE_VIEW, v->index); + InvalidateWindow(WC_VEHICLE_DETAILS, v->index); + + if (!PlayVehicleSound(v, VSE_BREAKDOWN)) { + SndPlayVehicleFx((_opt.landscape != LT_CANDY) ? + SND_10_TRAIN_BREAKDOWN : SND_3A_COMEDY_BREAKDOWN_2, v); + } + + if (!(v->vehstatus & VS_HIDDEN)) { + Vehicle *u = CreateEffectVehicleRel(v, 4, 4, 5, EV_BREAKDOWN_SMOKE); + if (u != NULL) u->u.special.unk0 = v->breakdown_delay * 2; + } + } + + if (!(v->tick_counter & 1)) { + if (!--v->breakdown_delay) { + v->breakdown_ctr = 0; + InvalidateWindow(WC_VEHICLE_VIEW, v->index); + } + } +} + +static void MarkShipDirty(Vehicle *v) +{ + v->cur_image = GetShipImage(v, v->direction); + MarkAllViewportsDirty(v->left_coord, v->top_coord, v->right_coord + 1, v->bottom_coord + 1); +} + +static void PlayShipSound(Vehicle *v) +{ + if (!PlayVehicleSound(v, VSE_START)) { + SndPlayVehicleFx(ShipVehInfo(v->engine_type)->sfx, v); + } +} + +static void ProcessShipOrder(Vehicle *v) +{ + const Order *order; + + switch (v->current_order.type) { + case OT_GOTO_DEPOT: + if (!(v->current_order.flags & OF_PART_OF_ORDERS)) return; + if (v->current_order.flags & OF_SERVICE_IF_NEEDED && + !VehicleNeedsService(v)) { + v->cur_order_index++; + } + break; + + case OT_LOADING: + case OT_LEAVESTATION: + return; + + default: break; + } + + if (v->cur_order_index >= v->num_orders) v->cur_order_index = 0; + + order = GetVehicleOrder(v, v->cur_order_index); + + if (order == NULL) { + v->current_order.type = OT_NOTHING; + v->current_order.flags = 0; + v->dest_tile = 0; + return; + } + + if (order->type == v->current_order.type && + order->flags == v->current_order.flags && + order->dest == v->current_order.dest) + return; + + v->current_order = *order; + + if (order->type == OT_GOTO_STATION) { + const Station *st; + + if (order->dest == v->last_station_visited) + v->last_station_visited = INVALID_STATION; + + st = GetStation(order->dest); + if (st->dock_tile != 0) { + v->dest_tile = TILE_ADD(st->dock_tile, ToTileIndexDiff(GetDockOffset(st->dock_tile))); + } + } else if (order->type == OT_GOTO_DEPOT) { + v->dest_tile = GetDepot(order->dest)->xy; + } else { + v->dest_tile = 0; + } + + InvalidateVehicleOrder(v); + + InvalidateWindowClasses(WC_SHIPS_LIST); +} + +static void HandleShipLoading(Vehicle *v) +{ + if (v->current_order.type == OT_NOTHING) return; + + if (v->current_order.type != OT_DUMMY) { + if (v->current_order.type != OT_LOADING) return; + if (--v->load_unload_time_rem) return; + + if (CanFillVehicle(v) && (v->current_order.flags & OF_FULL_LOAD || + (_patches.gradual_loading && !HASBIT(v->load_status, LS_LOADING_FINISHED)))) { + SET_EXPENSES_TYPE(EXPENSES_SHIP_INC); + if (LoadUnloadVehicle(v, false)) { + InvalidateWindow(WC_SHIPS_LIST, v->owner); + MarkShipDirty(v); + } + return; + } + PlayShipSound(v); + + { + Order b = v->current_order; + v->current_order.type = OT_LEAVESTATION; + v->current_order.flags = 0; + if (!(b.flags & OF_NON_STOP)) return; + } + } + + v->cur_order_index++; + InvalidateVehicleOrder(v); +} + +static void UpdateShipDeltaXY(Vehicle *v, int dir) +{ +#define MKIT(d,c,b,a) ((a&0xFF)<<24) | ((b&0xFF)<<16) | ((c&0xFF)<<8) | ((d&0xFF)<<0) + static const uint32 _delta_xy_table[8] = { + MKIT( -3, -3, 6, 6), + MKIT(-16, -3, 32, 6), + MKIT( -3, -3, 6, 6), + MKIT( -3, -16, 6, 32), + MKIT( -3, -3, 6, 6), + MKIT(-16, -3, 32, 6), + MKIT( -3, -3, 6, 6), + MKIT( -3, -16, 6, 32), + }; +#undef MKIT + uint32 x = _delta_xy_table[dir]; + v->x_offs = GB(x, 0, 8); + v->y_offs = GB(x, 8, 8); + v->sprite_width = GB(x, 16, 8); + v->sprite_height = GB(x, 24, 8); +} + +void RecalcShipStuff(Vehicle *v) +{ + UpdateShipDeltaXY(v, v->direction); + v->cur_image = GetShipImage(v, v->direction); + MarkShipDirty(v); + InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); +} + +static const TileIndexDiffC _ship_leave_depot_offs[] = { + {-1, 0}, + { 0, -1} +}; + +static void CheckShipLeaveDepot(Vehicle *v) +{ + TileIndex tile; + Axis axis; + uint m; + + if (!IsShipInDepot(v)) return; + + tile = v->tile; + axis = GetShipDepotAxis(tile); + + // Check first side + if (_ship_sometracks[axis] & GetTileShipTrackStatus(TILE_ADD(tile, ToTileIndexDiff(_ship_leave_depot_offs[axis])))) { + m = (axis == AXIS_X) ? 0x101 : 0x207; + // Check second side + } else if (_ship_sometracks[axis + 2] & GetTileShipTrackStatus(TILE_ADD(tile, -2 * ToTileIndexDiff(_ship_leave_depot_offs[axis])))) { + m = (axis == AXIS_X) ? 0x105 : 0x203; + } else { + return; + } + v->direction = GB(m, 0, 8); + v->u.ship.state = GB(m, 8, 8); + v->vehstatus &= ~VS_HIDDEN; + + v->cur_speed = 0; + RecalcShipStuff(v); + + PlayShipSound(v); + VehicleServiceInDepot(v); + InvalidateWindowData(WC_VEHICLE_DEPOT, v->tile); + InvalidateWindowClasses(WC_SHIPS_LIST); +} + +static bool ShipAccelerate(Vehicle *v) +{ + uint spd; + byte t; + + spd = min(v->cur_speed + 1, v->max_speed); + + //updates statusbar only if speed have changed to save CPU time + if (spd != v->cur_speed) { + v->cur_speed = spd; + if (_patches.vehicle_speed) + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); + } + + // Decrease somewhat when turning + if (!(v->direction & 1)) spd = spd * 3 / 4; + + if (spd == 0) return false; + if ((byte)++spd == 0) return true; + + v->progress = (t = v->progress) - (byte)spd; + + return (t < v->progress); +} + +static int32 EstimateShipCost(EngineID engine_type) +{ + return ShipVehInfo(engine_type)->base_cost * (_price.ship_base>>3)>>5; +} + +static void ShipArrivesAt(const Vehicle* v, Station* st) +{ + /* Check if station was ever visited before */ + if (!(st->had_vehicle_of_type & HVOT_SHIP)) { + uint32 flags; + + st->had_vehicle_of_type |= HVOT_SHIP; + + SetDParam(0, st->index); + 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); + AddNewsItem( + STR_9833_CITIZENS_CELEBRATE_FIRST, + flags, + v->index, + 0); + } +} + +typedef struct { + TileIndex skiptile; + TileIndex dest_coords; + uint best_bird_dist; + uint best_length; +} PathFindShip; + +static bool ShipTrackFollower(TileIndex tile, PathFindShip *pfs, int track, uint length, byte *state) +{ + // Found dest? + if (tile == pfs->dest_coords) { + pfs->best_bird_dist = 0; + + pfs->best_length = minu(pfs->best_length, length); + return true; + } + + // Skip this tile in the calculation + if (tile != pfs->skiptile) { + pfs->best_bird_dist = minu(pfs->best_bird_dist, DistanceMaxPlusManhattan(pfs->dest_coords, tile)); + } + + return false; +} + +static const byte _ship_search_directions[6][4] = { + { 0, 9, 2, 9 }, + { 9, 1, 9, 3 }, + { 9, 0, 3, 9 }, + { 1, 9, 9, 2 }, + { 3, 2, 9, 9 }, + { 9, 9, 1, 0 }, +}; + +static const byte _pick_shiptrack_table[6] = {1, 3, 2, 2, 0, 0}; + +static uint FindShipTrack(Vehicle *v, TileIndex tile, int dir, uint bits, TileIndex skiptile, int *track) +{ + PathFindShip pfs; + int i, best_track; + uint best_bird_dist = 0; + uint best_length = 0; + uint r; + byte ship_dir = v->direction & 3; + + pfs.dest_coords = v->dest_tile; + pfs.skiptile = skiptile; + + best_track = -1; + + do { + i = FIND_FIRST_BIT(bits); + bits = KILL_FIRST_BIT(bits); + + pfs.best_bird_dist = (uint)-1; + pfs.best_length = (uint)-1; + + FollowTrack(tile, 0x3800 | TRANSPORT_WATER, _ship_search_directions[i][dir], (TPFEnumProc*)ShipTrackFollower, NULL, &pfs); + + if (best_track >= 0) { + if (pfs.best_bird_dist != 0) { + /* neither reached the destination, pick the one with the smallest bird dist */ + if (pfs.best_bird_dist > best_bird_dist) goto bad; + if (pfs.best_bird_dist < best_bird_dist) goto good; + } else { + if (pfs.best_length > best_length) goto bad; + if (pfs.best_length < best_length) goto good; + } + + /* if we reach this position, there's two paths of equal value so far. + * pick one randomly. */ + r = GB(Random(), 0, 8); + if (_pick_shiptrack_table[i] == ship_dir) r += 80; + if (_pick_shiptrack_table[best_track] == ship_dir) r -= 80; + if (r <= 127) goto bad; + } +good:; + best_track = i; + best_bird_dist = pfs.best_bird_dist; + best_length = pfs.best_length; +bad:; + + } while (bits != 0); + + *track = best_track; + return best_bird_dist; +} + +static inline NPFFoundTargetData PerfNPFRouteToStationOrTile(TileIndex tile, Trackdir trackdir, NPFFindStationOrTileData* target, TransportType type, Owner owner, RailTypeMask railtypes) +{ + + void* perf = NpfBeginInterval(); + NPFFoundTargetData ret = NPFRouteToStationOrTile(tile, trackdir, target, type, owner, railtypes); + int t = NpfEndInterval(perf); + DEBUG(yapf, 4, "[NPFW] %d us - %d rounds - %d open - %d closed -- ", t, 0, _aystar_stats_open_size, _aystar_stats_closed_size); + return ret; +} + +/* returns the track to choose on the next tile, or -1 when it's better to + * reverse. The tile given is the tile we are about to enter, enterdir is the + * direction in which we are entering the tile */ +static int ChooseShipTrack(Vehicle *v, TileIndex tile, int enterdir, uint tracks) +{ + assert(enterdir>=0 && enterdir<=3); + + if (_patches.yapf.ship_use_yapf) { + Trackdir trackdir = YapfChooseShipTrack(v, tile, enterdir, tracks); + return (trackdir != INVALID_TRACKDIR) ? (int)TrackdirToTrack(trackdir) : -1; + } else if (_patches.new_pathfinding_all) { + NPFFindStationOrTileData fstd; + NPFFoundTargetData ftd; + TileIndex src_tile = TILE_ADD(tile, TileOffsByDiagDir(ReverseDiagDir(enterdir))); + byte trackdir = GetVehicleTrackdir(v); + assert (trackdir != 0xFF); /* Check that we are not in a depot */ + + NPFFillWithOrderData(&fstd, v); + + ftd = PerfNPFRouteToStationOrTile(src_tile, trackdir, &fstd, TRANSPORT_WATER, v->owner, INVALID_RAILTYPE); + + if (ftd.best_trackdir != 0xff) { + /* If ftd.best_bird_dist is 0, we found our target and ftd.best_trackdir contains + the direction we need to take to get there, if ftd.best_bird_dist is not 0, + we did not find our target, but ftd.best_trackdir contains the direction leading + to the tile closest to our target. */ + return ftd.best_trackdir & 7; /* TODO: Wrapper function? */ + } else { + return -1; /* Already at target, reverse? */ + } + } else { + uint b; + uint tot_dist, dist; + int track; + TileIndex tile2; + + tile2 = TILE_ADD(tile, -TileOffsByDiagDir(enterdir)); + tot_dist = (uint)-1; + + /* Let's find out how far it would be if we would reverse first */ + b = GetTileShipTrackStatus(tile2) & _ship_sometracks[ReverseDiagDir(enterdir)] & v->u.ship.state; + if (b != 0) { + dist = FindShipTrack(v, tile2, ReverseDiagDir(enterdir), b, tile, &track); + if (dist != (uint)-1) + tot_dist = dist + 1; + } + /* And if we would not reverse? */ + dist = FindShipTrack(v, tile, enterdir, tracks, 0, &track); + if (dist > tot_dist) + /* We could better reverse */ + return -1; + return track; + } +} + +static const Direction _new_vehicle_direction_table[] = { + DIR_N , DIR_NW, DIR_W , 0, + DIR_NE, DIR_N , DIR_SW, 0, + DIR_E , DIR_SE, DIR_S +}; + +static int ShipGetNewDirectionFromTiles(TileIndex new_tile, TileIndex old_tile) +{ + uint offs = (TileY(new_tile) - TileY(old_tile) + 1) * 4 + + TileX(new_tile) - TileX(old_tile) + 1; + assert(offs < 11 && offs != 3 && offs != 7); + return _new_vehicle_direction_table[offs]; +} + +static int ShipGetNewDirection(Vehicle *v, int x, int y) +{ + uint offs = (y - v->y_pos + 1) * 4 + (x - v->x_pos + 1); + assert(offs < 11 && offs != 3 && offs != 7); + return _new_vehicle_direction_table[offs]; +} + +static int GetAvailShipTracks(TileIndex tile, int dir) +{ + uint32 r = GetTileTrackStatus(tile, TRANSPORT_WATER); + return (byte) ((r | r >> 8)) & _ship_sometracks[dir]; +} + +static const byte _ship_subcoord[4][6][3] = { + { + {15, 8, 1}, + { 0, 0, 0}, + { 0, 0, 0}, + {15, 8, 2}, + {15, 7, 0}, + { 0, 0, 0}, + }, + { + { 0, 0, 0}, + { 8, 0, 3}, + { 7, 0, 2}, + { 0, 0, 0}, + { 8, 0, 4}, + { 0, 0, 0}, + }, + { + { 0, 8, 5}, + { 0, 0, 0}, + { 0, 7, 6}, + { 0, 0, 0}, + { 0, 0, 0}, + { 0, 8, 4}, + }, + { + { 0, 0, 0}, + { 8,15, 7}, + { 0, 0, 0}, + { 8,15, 6}, + { 0, 0, 0}, + { 7,15, 0}, + } +}; + +static void ShipController(Vehicle *v) +{ + GetNewVehiclePosResult gp; + uint32 r; + const byte *b; + Direction dir; + int track; + int tracks; + + v->tick_counter++; + + if (v->breakdown_ctr != 0) { + if (v->breakdown_ctr <= 2) { + HandleBrokenShip(v); + return; + } + v->breakdown_ctr--; + } + + if (v->vehstatus & VS_STOPPED) return; + + ProcessShipOrder(v); + HandleShipLoading(v); + + if (v->current_order.type == OT_LOADING) return; + + CheckShipLeaveDepot(v); + + if (!ShipAccelerate(v)) return; + + BeginVehicleMove(v); + + if (GetNewVehiclePos(v, &gp)) { + // staying in tile + if (IsShipInDepot(v)) { + gp.x = v->x_pos; + gp.y = v->y_pos; + } else { + /* isnot inside depot */ + r = VehicleEnterTile(v, gp.new_tile, gp.x, gp.y); + if (r & 0x8) goto reverse_direction; + + /* A leave station order only needs one tick to get processed, so we can + * always skip ahead. */ + if (v->current_order.type == OT_LEAVESTATION) { + v->current_order.type = OT_NOTHING; + v->current_order.flags = 0; + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); + } else if (v->dest_tile != 0) { + /* We have a target, let's see if we reached it... */ + if (v->current_order.type == OT_GOTO_STATION && + IsBuoyTile(v->dest_tile) && + DistanceManhattan(v->dest_tile, gp.new_tile) <= 3) { + /* We got within 3 tiles of our target buoy, so let's skip to our + * next order */ + v->cur_order_index++; + v->current_order.type = OT_DUMMY; + InvalidateVehicleOrder(v); + } else { + /* Non-buoy orders really need to reach the tile */ + if (v->dest_tile == gp.new_tile) { + if (v->current_order.type == OT_GOTO_DEPOT) { + if ((gp.x&0xF)==8 && (gp.y&0xF)==8) { + VehicleEnterDepot(v); + return; + } + } else if (v->current_order.type == OT_GOTO_STATION) { + Station *st; + + v->last_station_visited = v->current_order.dest; + + /* Process station in the orderlist. */ + st = GetStation(v->current_order.dest); + if (st->facilities & FACIL_DOCK) { /* ugly, ugly workaround for problem with ships able to drop off cargo at wrong stations */ + v->current_order.type = OT_LOADING; + v->current_order.flags &= OF_FULL_LOAD | OF_UNLOAD | OF_TRANSFER; + v->current_order.flags |= OF_NON_STOP; + ShipArrivesAt(v, st); + + SET_EXPENSES_TYPE(EXPENSES_SHIP_INC); + if (LoadUnloadVehicle(v, true)) { + InvalidateWindow(WC_SHIPS_LIST, v->owner); + MarkShipDirty(v); + } + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); + } else { /* leave stations without docks right aways */ + v->current_order.type = OT_LEAVESTATION; + v->current_order.flags = 0; + v->cur_order_index++; + InvalidateVehicleOrder(v); + } + } + } + } + } + } + } else { + DiagDirection diagdir; + // new tile + if (TileX(gp.new_tile) >= MapMaxX() || TileY(gp.new_tile) >= MapMaxY()) + goto reverse_direction; + + dir = ShipGetNewDirectionFromTiles(gp.new_tile, gp.old_tile); + assert(dir == DIR_NE || dir == DIR_SE || dir == DIR_SW || dir == DIR_NW); + diagdir = DirToDiagDir(dir); + tracks = GetAvailShipTracks(gp.new_tile, diagdir); + if (tracks == 0) + goto reverse_direction; + + // Choose a direction, and continue if we find one + track = ChooseShipTrack(v, gp.new_tile, diagdir, tracks); + if (track < 0) + goto reverse_direction; + + b = _ship_subcoord[diagdir][track]; + + gp.x = (gp.x&~0xF) | b[0]; + gp.y = (gp.y&~0xF) | b[1]; + + /* Call the landscape function and tell it that the vehicle entered the tile */ + r = VehicleEnterTile(v, gp.new_tile, gp.x, gp.y); + if (r&0x8) goto reverse_direction; + + if (!(r&0x4)) { + v->tile = gp.new_tile; + v->u.ship.state = 1 << track; + } + + v->direction = b[2]; + } + + /* update image of ship, as well as delta XY */ + dir = ShipGetNewDirection(v, gp.x, gp.y); + v->x_pos = gp.x; + v->y_pos = gp.y; + v->z_pos = GetSlopeZ(gp.x, gp.y); + +getout: + UpdateShipDeltaXY(v, dir); + v->cur_image = GetShipImage(v, dir); + VehiclePositionChanged(v); + EndVehicleMove(v); + return; + +reverse_direction: + dir = ReverseDir(v->direction); + v->direction = dir; + goto getout; +} + +static void AgeShipCargo(Vehicle *v) +{ + if (_age_cargo_skip_counter != 0) return; + if (v->cargo_days != 255) v->cargo_days++; +} + +void Ship_Tick(Vehicle *v) +{ + AgeShipCargo(v); + ShipController(v); +} + + +void ShipsYearlyLoop(void) +{ + Vehicle *v; + + FOR_ALL_VEHICLES(v) { + if (v->type == VEH_Ship) { + v->profit_last_year = v->profit_this_year; + v->profit_this_year = 0; + InvalidateWindow(WC_VEHICLE_DETAILS, v->index); + } + } +} + +/** Build a ship. + * @param tile tile of depot where ship is built + * @param p1 ship type being built (engine) + * @param p2 bit 0 when set, the unitnumber will be 0, otherwise it will be a free number + */ +int32 CmdBuildShip(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) +{ + int32 value; + Vehicle *v; + UnitID unit_num; + Engine *e; + + if (!IsEngineBuildable(p1, VEH_Ship, _current_player)) return_cmd_error(STR_ENGINE_NOT_BUILDABLE); + + SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES); + + value = EstimateShipCost(p1); + if (flags & DC_QUERY_COST) return value; + + /* The ai_new queries the vehicle cost before building the route, + * so we must check against cheaters no sooner than now. --pasky */ + if (!IsTileDepotType(tile, TRANSPORT_WATER)) return CMD_ERROR; + if (!IsTileOwner(tile, _current_player)) return CMD_ERROR; + + v = AllocateVehicle(); + unit_num = HASBIT(p2, 0) ? 0 : GetFreeUnitNumber(VEH_Ship); + + if (v == NULL || IsOrderPoolFull() || unit_num > _patches.max_ships) + return_cmd_error(STR_00E1_TOO_MANY_VEHICLES_IN_GAME); + + if (flags & DC_EXEC) { + int x; + int y; + + const ShipVehicleInfo *svi = ShipVehInfo(p1); + + v->unitnumber = unit_num; + + v->owner = _current_player; + v->tile = tile; + x = TileX(tile) * TILE_SIZE + TILE_SIZE / 2; + y = TileY(tile) * TILE_SIZE + TILE_SIZE / 2; + v->x_pos = x; + v->y_pos = y; + v->z_pos = GetSlopeZ(x,y); + + v->z_height = 6; + v->sprite_width = 6; + v->sprite_height = 6; + v->x_offs = -3; + v->y_offs = -3; + v->vehstatus = VS_HIDDEN | VS_STOPPED | VS_DEFPAL; + + v->spritenum = svi->image_index; + v->cargo_type = svi->cargo_type; + v->cargo_subtype = 0; + v->cargo_cap = svi->capacity; + v->value = value; + + v->last_station_visited = INVALID_STATION; + v->max_speed = svi->max_speed; + v->engine_type = p1; + + e = GetEngine(p1); + v->reliability = e->reliability; + v->reliability_spd_dec = e->reliability_spd_dec; + v->max_age = e->lifelength * 366; + _new_vehicle_id = v->index; + + v->string_id = STR_SV_SHIP_NAME; + v->u.ship.state = 0x80; + + v->service_interval = _patches.servint_ships; + v->date_of_last_service = _date; + v->build_year = _cur_year; + v->cur_image = 0x0E5E; + v->type = VEH_Ship; + v->random_bits = VehicleRandomBits(); + + VehiclePositionChanged(v); + GetPlayer(_current_player)->num_engines[p1]++; + + InvalidateWindowData(WC_VEHICLE_DEPOT, v->tile); + RebuildVehicleLists(); + InvalidateWindow(WC_COMPANY, v->owner); + if (IsLocalPlayer()) + InvalidateWindow(WC_REPLACE_VEHICLE, VEH_Ship); // updates the replace Ship window + } + + return value; +} + +/** Sell a ship. + * @param tile unused + * @param p1 vehicle ID to be sold + * @param p2 unused + */ +int32 CmdSellShip(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) +{ + Vehicle *v; + + if (!IsValidVehicleID(p1)) return CMD_ERROR; + + v = GetVehicle(p1); + + if (v->type != VEH_Ship || !CheckOwnership(v->owner)) return CMD_ERROR; + + SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES); + + if (!IsShipInDepotStopped(v)) { + return_cmd_error(STR_980B_SHIP_MUST_BE_STOPPED_IN); + } + + if (flags & DC_EXEC) { + InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); + RebuildVehicleLists(); + InvalidateWindow(WC_COMPANY, v->owner); + DeleteWindowById(WC_VEHICLE_VIEW, v->index); + DeleteDepotHighlightOfVehicle(v); + DeleteVehicle(v); + if (IsLocalPlayer()) + InvalidateWindow(WC_REPLACE_VEHICLE, VEH_Ship); // updates the replace Ship window + } + + return -(int32)v->value; +} + +/** Start/Stop a ship. + * @param tile unused + * @param p1 ship ID to start/stop + * @param p2 unused + */ +int32 CmdStartStopShip(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) +{ + Vehicle *v; + uint16 callback; + + if (!IsValidVehicleID(p1)) return CMD_ERROR; + + v = GetVehicle(p1); + + if (v->type != VEH_Ship || !CheckOwnership(v->owner)) return CMD_ERROR; + + /* Check if this ship can be started/stopped. The callback will fail or + * return 0xFF if it can. */ + callback = GetVehicleCallback(CBID_VEHICLE_START_STOP_CHECK, 0, 0, v->engine_type, v); + if (callback != CALLBACK_FAILED && callback != 0xFF) { + StringID error = GetGRFStringID(GetEngineGRFID(v->engine_type), 0xD000 + callback); + return_cmd_error(error); + } + + if (flags & DC_EXEC) { + if (IsShipInDepotStopped(v)) { + DeleteVehicleNews(p1, STR_981C_SHIP_IS_WAITING_IN_DEPOT); + } + + v->vehstatus ^= VS_STOPPED; + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); + InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); + InvalidateWindowClasses(WC_SHIPS_LIST); + } + + return 0; +} + +/** Send a ship to the depot. + * @param tile unused + * @param p1 vehicle ID to send to the depot + * @param p2 various bitmasked elements + * - p2 bit 0-3 - DEPOT_ flags (see vehicle.h) + * - p2 bit 8-10 - VLW flag (for mass goto depot) + */ +int32 CmdSendShipToDepot(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) +{ + Vehicle *v; + const Depot *dep; + + if (p2 & DEPOT_MASS_SEND) { + /* Mass goto depot requested */ + if (!ValidVLWFlags(p2 & VLW_MASK)) return CMD_ERROR; + return SendAllVehiclesToDepot(VEH_Ship, flags, p2 & DEPOT_SERVICE, _current_player, (p2 & VLW_MASK), p1); + } + + if (!IsValidVehicleID(p1)) return CMD_ERROR; + + v = GetVehicle(p1); + + if (v->type != VEH_Ship || !CheckOwnership(v->owner)) return CMD_ERROR; + + if (v->vehstatus & VS_CRASHED) return CMD_ERROR; + + if (IsShipInDepot(v)) return CMD_ERROR; + + /* If the current orders are already goto-depot */ + if (v->current_order.type == OT_GOTO_DEPOT) { + if (!!(p2 & DEPOT_SERVICE) == HASBIT(v->current_order.flags, OFB_HALT_IN_DEPOT)) { + /* We called with a different DEPOT_SERVICE setting. + * Now we change the setting to apply the new one and let the vehicle head for the same depot. + * Note: the if is (true for requesting service == true for ordered to stop in depot) */ + if (flags & DC_EXEC) { + TOGGLEBIT(v->current_order.flags, OFB_HALT_IN_DEPOT); + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); + } + return 0; + } + + if (p2 & DEPOT_DONT_CANCEL) return CMD_ERROR; // Requested no cancelation of depot orders + if (flags & DC_EXEC) { + /* If the orders to 'goto depot' are in the orders list (forced servicing), + * then skip to the next order; effectively cancelling this forced service */ + if (HASBIT(v->current_order.flags, OFB_PART_OF_ORDERS)) + v->cur_order_index++; + + v->current_order.type = OT_DUMMY; + v->current_order.flags = 0; + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); + } + return 0; + } + + dep = FindClosestShipDepot(v); + if (dep == NULL) return_cmd_error(STR_981A_UNABLE_TO_FIND_LOCAL_DEPOT); + + if (flags & DC_EXEC) { + v->dest_tile = dep->xy; + v->current_order.type = OT_GOTO_DEPOT; + v->current_order.flags = OF_NON_STOP; + if (!(p2 & DEPOT_SERVICE)) SETBIT(v->current_order.flags, OFB_HALT_IN_DEPOT); + v->current_order.refit_cargo = CT_INVALID; + v->current_order.dest = dep->index; + InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); + } + + return 0; +} + + +/** Refits a ship to the specified cargo type. + * @param tile unused + * @param p1 vehicle ID of the ship to refit + * @param p2 various bitstuffed elements + * - p2 = (bit 0-7) - the new cargo type to refit to (p2 & 0xFF) + * - p2 = (bit 8-15) - the new cargo subtype to refit to + */ +int32 CmdRefitShip(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) +{ + Vehicle *v; + int32 cost; + CargoID new_cid = GB(p2, 0, 8); //gets the cargo number + byte new_subtype = GB(p2, 8, 8); + uint16 capacity = CALLBACK_FAILED; + + if (!IsValidVehicleID(p1)) return CMD_ERROR; + + v = GetVehicle(p1); + + if (v->type != VEH_Ship || !CheckOwnership(v->owner)) return CMD_ERROR; + + if (!IsShipInDepotStopped(v)) { + return_cmd_error(STR_980B_SHIP_MUST_BE_STOPPED_IN); + } + + /* Check cargo */ + if (!ShipVehInfo(v->engine_type)->refittable) return CMD_ERROR; + if (new_cid > NUM_CARGO || !CanRefitTo(v->engine_type, new_cid)) return CMD_ERROR; + + SET_EXPENSES_TYPE(EXPENSES_SHIP_RUN); + + /* Check the refit capacity callback */ + if (HASBIT(EngInfo(v->engine_type)->callbackmask, CBM_REFIT_CAPACITY)) { + /* Back up the existing cargo type */ + CargoID temp_cid = v->cargo_type; + byte temp_subtype = v->cargo_subtype; + v->cargo_type = new_cid; + v->cargo_subtype = new_subtype; + + capacity = GetVehicleCallback(CBID_VEHICLE_REFIT_CAPACITY, 0, 0, v->engine_type, v); + + /* Restore the cargo type */ + v->cargo_type = temp_cid; + v->cargo_subtype = temp_subtype; + } + + if (capacity == CALLBACK_FAILED) { + capacity = ShipVehInfo(v->engine_type)->capacity; + } + _returned_refit_capacity = capacity; + + cost = 0; + if (IsHumanPlayer(v->owner) && new_cid != v->cargo_type) { + cost = GetRefitCost(v->engine_type); + } + + if (flags & DC_EXEC) { + v->cargo_cap = capacity; + v->cargo_count = (v->cargo_type == new_cid) ? min(v->cargo_cap, v->cargo_count) : 0; + v->cargo_type = new_cid; + v->cargo_subtype = new_subtype; + InvalidateWindow(WC_VEHICLE_DETAILS, v->index); + InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); + RebuildVehicleLists(); + } + + return cost; + +}