diff options
Diffstat (limited to 'ship_cmd.c')
-rw-r--r-- | ship_cmd.c | 1110 |
1 files changed, 0 insertions, 1110 deletions
diff --git a/ship_cmd.c b/ship_cmd.c deleted file mode 100644 index f72323915..000000000 --- a/ship_cmd.c +++ /dev/null @@ -1,1110 +0,0 @@ -/* $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; - -} |