diff --git a/src/roadveh_cmd.c b/src/roadveh_cmd.c deleted file mode 100644 --- a/src/roadveh_cmd.c +++ /dev/null @@ -1,1826 +0,0 @@ -/* $Id$ */ - -#include "stdafx.h" -#include -#include "openttd.h" -#include "debug.h" -#include "functions.h" -#include "road_map.h" -#include "roadveh.h" -#include "station_map.h" -#include "table/strings.h" -#include "map.h" -#include "tile.h" -#include "vehicle.h" -#include "engine.h" -#include "command.h" -#include "station.h" -#include "news.h" -#include "pathfind.h" -#include "npf.h" -#include "player.h" -#include "sound.h" -#include "depot.h" -#include "bridge.h" -#include "tunnel_map.h" -#include "bridge_map.h" -#include "vehicle_gui.h" -#include "newgrf_callbacks.h" -#include "newgrf_engine.h" -#include "newgrf_text.h" -#include "newgrf_sound.h" -#include "yapf/yapf.h" -#include "date.h" - -static const uint16 _roadveh_images[63] = { - 0xCD4, 0xCDC, 0xCE4, 0xCEC, 0xCF4, 0xCFC, 0xD0C, 0xD14, - 0xD24, 0xD1C, 0xD2C, 0xD04, 0xD1C, 0xD24, 0xD6C, 0xD74, - 0xD7C, 0xC14, 0xC1C, 0xC24, 0xC2C, 0xC34, 0xC3C, 0xC4C, - 0xC54, 0xC64, 0xC5C, 0xC6C, 0xC44, 0xC5C, 0xC64, 0xCAC, - 0xCB4, 0xCBC, 0xD94, 0xD9C, 0xDA4, 0xDAC, 0xDB4, 0xDBC, - 0xDCC, 0xDD4, 0xDE4, 0xDDC, 0xDEC, 0xDC4, 0xDDC, 0xDE4, - 0xE2C, 0xE34, 0xE3C, 0xC14, 0xC1C, 0xC2C, 0xC3C, 0xC4C, - 0xC5C, 0xC64, 0xC6C, 0xC74, 0xC84, 0xC94, 0xCA4 -}; - -static const uint16 _roadveh_full_adder[63] = { - 0, 88, 0, 0, 0, 0, 48, 48, - 48, 48, 0, 0, 64, 64, 0, 16, - 16, 0, 88, 0, 0, 0, 0, 48, - 48, 48, 48, 0, 0, 64, 64, 0, - 16, 16, 0, 88, 0, 0, 0, 0, - 48, 48, 48, 48, 0, 0, 64, 64, - 0, 16, 16, 0, 8, 8, 8, 8, - 0, 0, 0, 8, 8, 8, 8 -}; - - -static const uint16 _road_veh_fp_ax_and[4] = { - 0x1009, 0x16, 0x520, 0x2A00 -}; - -static const byte _road_reverse_table[4] = { - 6, 7, 14, 15 -}; - -static const uint16 _road_pf_table_3[4] = { - 0x910, 0x1600, 0x2005, 0x2A -}; - -int GetRoadVehImage(const Vehicle* v, Direction direction) -{ - int img = v->spritenum; - int image; - - if (is_custom_sprite(img)) { - image = GetCustomVehicleSprite(v, direction); - if (image != 0) return image; - img = orig_road_vehicle_info[v->engine_type - ROAD_ENGINES_INDEX].image_index; - } - - image = direction + _roadveh_images[img]; - if (v->cargo_count >= v->cargo_cap / 2) image += _roadveh_full_adder[img]; - return image; -} - -void DrawRoadVehEngine(int x, int y, EngineID engine, uint32 image_ormod) -{ - int spritenum = RoadVehInfo(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_road_vehicle_info[engine - ROAD_ENGINES_INDEX].image_index; - } - DrawSprite((6 + _roadveh_images[spritenum]) | image_ormod, x, y); -} - -static int32 EstimateRoadVehCost(EngineID engine_type) -{ - return ((_price.roadveh_base >> 3) * RoadVehInfo(engine_type)->base_cost) >> 5; -} - -/** Build a road vehicle. - * @param tile tile of depot where road vehicle is built - * @param p1 bus/truck type being built (engine) - * @param p2 bit 0 when set, the unitnumber will be 0, otherwise it will be a free number - */ -int32 CmdBuildRoadVeh(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) -{ - int32 cost; - Vehicle *v; - UnitID unit_num; - Engine *e; - - if (!IsEngineBuildable(p1, VEH_Road, _current_player)) return_cmd_error(STR_ENGINE_NOT_BUILDABLE); - - SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES); - - cost = EstimateRoadVehCost(p1); - if (flags & DC_QUERY_COST) return cost; - - /* 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_ROAD)) return CMD_ERROR; - if (!IsTileOwner(tile, _current_player)) return CMD_ERROR; - - v = AllocateVehicle(); - if (v == NULL || IsOrderPoolFull()) - return_cmd_error(STR_00E1_TOO_MANY_VEHICLES_IN_GAME); - - /* find the first free roadveh id */ - unit_num = HASBIT(p2, 0) ? 0 : GetFreeUnitNumber(VEH_Road); - if (unit_num > _patches.max_roadveh) - return_cmd_error(STR_00E1_TOO_MANY_VEHICLES_IN_GAME); - - if (flags & DC_EXEC) { - int x; - int y; - - const RoadVehicleInfo *rvi = RoadVehInfo(p1); - - v->unitnumber = unit_num; - v->direction = 0; - 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->u.road.state = 254; - v->vehstatus = VS_HIDDEN|VS_STOPPED|VS_DEFPAL; - - v->spritenum = rvi->image_index; - v->cargo_type = rvi->cargo_type; - v->cargo_subtype = 0; - v->cargo_cap = rvi->capacity; -// v->cargo_count = 0; - v->value = cost; -// v->day_counter = 0; -// v->next_order_param = v->next_order = 0; -// v->load_unload_time_rem = 0; -// v->progress = 0; - -// v->u.road.unk2 = 0; -// v->u.road.overtaking = 0; - - v->last_station_visited = INVALID_STATION; - v->max_speed = rvi->max_speed; - v->engine_type = (byte)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_ROADVEH_NAME; - - v->service_interval = _patches.servint_roadveh; - - v->date_of_last_service = _date; - v->build_year = _cur_year; - - v->type = VEH_Road; - v->cur_image = 0xC15; - 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_Road); // updates the replace Road window - } - - return cost; -} - -/** Start/Stop a road vehicle. - * @param tile unused - * @param p1 road vehicle ID to start/stop - * @param p2 unused - */ -int32 CmdStartStopRoadVeh(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_Road || !CheckOwnership(v->owner)) return CMD_ERROR; - - /* Check if this road veh 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 (IsRoadVehInDepotStopped(v)) { - DeleteVehicleNews(p1, STR_9016_ROAD_VEHICLE_IS_WAITING); - } - - v->vehstatus ^= VS_STOPPED; - InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); - InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); - } - - return 0; -} - -void ClearSlot(Vehicle *v) -{ - RoadStop *rs = v->u.road.slot; - if (v->u.road.slot == NULL) return; - - v->u.road.slot = NULL; - v->u.road.slot_age = 0; - - assert(rs->num_vehicles != 0); - rs->num_vehicles--; - - DEBUG(ms, 3, "Clearing slot at 0x%X", rs->xy); -} - -/** Sell a road vehicle. - * @param tile unused - * @param p1 vehicle ID to be sold - * @param p2 unused - */ -int32 CmdSellRoadVeh(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) -{ - Vehicle *v; - - if (!IsValidVehicleID(p1)) return CMD_ERROR; - - v = GetVehicle(p1); - - if (v->type != VEH_Road || !CheckOwnership(v->owner)) return CMD_ERROR; - - SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES); - - if (!IsRoadVehInDepotStopped(v)) { - return_cmd_error(STR_9013_MUST_BE_STOPPED_INSIDE); - } - - if (flags & DC_EXEC) { - // Invalidate depot - InvalidateWindow(WC_VEHICLE_DEPOT, v->tile); - RebuildVehicleLists(); - InvalidateWindow(WC_COMPANY, v->owner); - DeleteWindowById(WC_VEHICLE_VIEW, v->index); - ClearSlot(v); - DeleteDepotHighlightOfVehicle(v); - DeleteVehicle(v); - if (IsLocalPlayer()) InvalidateWindow(WC_REPLACE_VEHICLE, VEH_Road); - } - - return -(int32)v->value; -} - -typedef struct RoadFindDepotData { - uint best_length; - TileIndex tile; - byte owner; -} RoadFindDepotData; - -static const DiagDirection _road_pf_directions[] = { - DIAGDIR_NE, DIAGDIR_SE, DIAGDIR_NE, DIAGDIR_SE, DIAGDIR_SW, DIAGDIR_SE, 255, 255, - DIAGDIR_SW, DIAGDIR_NW, DIAGDIR_NW, DIAGDIR_SW, DIAGDIR_NW, DIAGDIR_NE, 255, 255 -}; - -static bool EnumRoadSignalFindDepot(TileIndex tile, void* data, int track, uint length, byte* state) -{ - RoadFindDepotData* rfdd = data; - - tile += TileOffsByDiagDir(_road_pf_directions[track]); - - if (IsTileType(tile, MP_STREET) && - GetRoadTileType(tile) == ROAD_TILE_DEPOT && - IsTileOwner(tile, rfdd->owner) && - length < rfdd->best_length) { - rfdd->best_length = length; - rfdd->tile = tile; - } - return false; -} - -static const Depot* FindClosestRoadDepot(const Vehicle* v) -{ - TileIndex tile = v->tile; - - if (_patches.yapf.road_use_yapf) { - Depot* ret = YapfFindNearestRoadDepot(v); - return ret; - } else if (_patches.new_pathfinding_all) { - NPFFoundTargetData ftd; - /* See where we are now */ - Trackdir trackdir = GetVehicleTrackdir(v); - - ftd = NPFRouteToDepotBreadthFirst(v->tile, trackdir, TRANSPORT_ROAD, v->owner, INVALID_RAILTYPE); - if (ftd.best_bird_dist == 0) { - return GetDepotByTile(ftd.node.tile); /* Target found */ - } else { - return NULL; /* Target not found */ - } - /* We do not search in two directions here, why should we? We can't reverse right now can we? */ - } else { - RoadFindDepotData rfdd; - DiagDirection i; - - rfdd.owner = v->owner; - rfdd.best_length = (uint)-1; - - /* search in all directions */ - for (i = 0; i != 4; i++) { - FollowTrack(tile, 0x2000 | TRANSPORT_ROAD, i, EnumRoadSignalFindDepot, NULL, &rfdd); - } - - if (rfdd.best_length == (uint)-1) return NULL; - - return GetDepotByTile(rfdd.tile); - } -} - -/** Send a road vehicle 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 CmdSendRoadVehToDepot(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_Road, flags, p2 & DEPOT_SERVICE, _current_player, (p2 & VLW_MASK), p1); - } - - if (!IsValidVehicleID(p1)) return CMD_ERROR; - - v = GetVehicle(p1); - - if (v->type != VEH_Road || !CheckOwnership(v->owner)) return CMD_ERROR; - - if (v->vehstatus & VS_CRASHED) return CMD_ERROR; - - if (IsRoadVehInDepot(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 = FindClosestRoadDepot(v); - if (dep == NULL) return_cmd_error(STR_9019_UNABLE_TO_FIND_LOCAL_DEPOT); - - if (flags & DC_EXEC) { - ClearSlot(v); - 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; - v->dest_tile = dep->xy; - InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); - } - - return 0; -} - -/** Turn a roadvehicle around. - * @param tile unused - * @param p1 vehicle ID to turn - * @param p2 unused - */ -int32 CmdTurnRoadVeh(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) -{ - Vehicle *v; - - if (!IsValidVehicleID(p1)) return CMD_ERROR; - - v = GetVehicle(p1); - - if (v->type != VEH_Road || !CheckOwnership(v->owner)) return CMD_ERROR; - - if (v->vehstatus & VS_STOPPED || - v->u.road.crashed_ctr != 0 || - v->breakdown_ctr != 0 || - v->u.road.overtaking != 0 || - v->u.road.state == 255 || - IsRoadVehInDepot(v) || - v->cur_speed < 5) { - return CMD_ERROR; - } - - if (IsTunnelTile(v->tile) && DirToDiagDir(v->direction) == GetTunnelDirection(v->tile)) return CMD_ERROR; - if (IsBridgeTile(v->tile) && DirToDiagDir(v->direction) == GetBridgeRampDirection(v->tile)) return CMD_ERROR; - - if (flags & DC_EXEC) v->u.road.reverse_ctr = 180; - - return 0; -} - - -static void MarkRoadVehDirty(Vehicle *v) -{ - v->cur_image = GetRoadVehImage(v, v->direction); - MarkAllViewportsDirty(v->left_coord, v->top_coord, v->right_coord + 1, v->bottom_coord + 1); -} - -static void UpdateRoadVehDeltaXY(Vehicle *v) -{ -#define MKIT(a,b,c,d) ((a&0xFF)<<24) | ((b&0xFF)<<16) | ((c&0xFF)<<8) | ((d&0xFF)<<0) - static const uint32 _delta_xy_table[8] = { - MKIT(3, 3, -1, -1), - MKIT(3, 7, -1, -3), - MKIT(3, 3, -1, -1), - MKIT(7, 3, -3, -1), - MKIT(3, 3, -1, -1), - MKIT(3, 7, -1, -3), - MKIT(3, 3, -1, -1), - MKIT(7, 3, -3, -1), - }; -#undef MKIT - uint32 x = _delta_xy_table[v->direction]; - 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); -} - -static void ClearCrashedStation(Vehicle *v) -{ - RoadStop *rs = GetRoadStopByTile(v->tile, GetRoadStopType(v->tile)); - - // mark station as not busy - CLRBIT(rs->status, 7); - - // free parking bay - SETBIT(rs->status, HASBIT(v->u.road.state, 1) ? 1 : 0); -} - -static void RoadVehDelete(Vehicle *v) -{ - DeleteWindowById(WC_VEHICLE_VIEW, v->index); - InvalidateWindow(WC_VEHICLE_DETAILS, v->index); - - RebuildVehicleLists(); - InvalidateWindow(WC_COMPANY, v->owner); - - if (IsTileType(v->tile, MP_STATION)) ClearCrashedStation(v); - - BeginVehicleMove(v); - EndVehicleMove(v); - - ClearSlot(v); - DeleteVehicle(v); -} - -static byte SetRoadVehPosition(Vehicle *v, int x, int y) -{ - byte new_z, old_z; - - // need this hint so it returns the right z coordinate on bridges. - v->x_pos = x; - v->y_pos = y; - new_z = GetSlopeZ(x, y); - - old_z = v->z_pos; - v->z_pos = new_z; - - VehiclePositionChanged(v); - EndVehicleMove(v); - return old_z; -} - -static void RoadVehSetRandomDirection(Vehicle *v) -{ - static const DirDiff delta[] = { - DIRDIFF_45LEFT, DIRDIFF_SAME, DIRDIFF_SAME, DIRDIFF_45RIGHT - }; - - uint32 r = Random(); - - v->direction = ChangeDir(v->direction, delta[r & 3]); - BeginVehicleMove(v); - UpdateRoadVehDeltaXY(v); - v->cur_image = GetRoadVehImage(v, v->direction); - SetRoadVehPosition(v, v->x_pos, v->y_pos); -} - -static void RoadVehIsCrashed(Vehicle *v) -{ - v->u.road.crashed_ctr++; - if (v->u.road.crashed_ctr == 2) { - CreateEffectVehicleRel(v, 4, 4, 8, EV_EXPLOSION_LARGE); - } else if (v->u.road.crashed_ctr <= 45) { - if ((v->tick_counter & 7) == 0) RoadVehSetRandomDirection(v); - } else if (v->u.road.crashed_ctr >= 2220) { - RoadVehDelete(v); - } -} - -static void* EnumCheckRoadVehCrashTrain(Vehicle* v, void* data) -{ - const Vehicle* u = data; - - return - v->type == VEH_Train && - myabs(v->z_pos - u->z_pos) <= 6 && - myabs(v->x_pos - u->x_pos) <= 4 && - myabs(v->y_pos - u->y_pos) <= 4 ? - v : NULL; -} - -static void RoadVehCrash(Vehicle *v) -{ - uint16 pass; - - v->u.road.crashed_ctr++; - v->vehstatus |= VS_CRASHED; - ClearSlot(v); - - InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); - - pass = 1; - if (v->cargo_type == CT_PASSENGERS) pass += v->cargo_count; - v->cargo_count = 0; - - SetDParam(0, pass); - AddNewsItem( - (pass == 1) ? - STR_9031_ROAD_VEHICLE_CRASH_DRIVER : STR_9032_ROAD_VEHICLE_CRASH_DIE, - NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_VEHICLE, NT_ACCIDENT, 0), - v->index, - 0 - ); - - ModifyStationRatingAround(v->tile, v->owner, -160, 22); - SndPlayVehicleFx(SND_12_EXPLOSION, v); -} - -static void RoadVehCheckTrainCrash(Vehicle *v) -{ - TileIndex tile; - - if (v->u.road.state == 255) return; - - tile = v->tile; - - if (!IsLevelCrossingTile(tile)) return; - - if (VehicleFromPos(tile, v, EnumCheckRoadVehCrashTrain) != NULL) - RoadVehCrash(v); -} - -static void HandleBrokenRoadVeh(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_0F_VEHICLE_BREAKDOWN : SND_35_COMEDY_BREAKDOWN, 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) == 0) { - if (--v->breakdown_delay == 0) { - v->breakdown_ctr = 0; - InvalidateWindow(WC_VEHICLE_VIEW, v->index); - } - } -} - -static void ProcessRoadVehOrder(Vehicle *v) -{ - const Order *order; - - switch (v->current_order.type) { - case OT_GOTO_DEPOT: - // Let a depot order in the orderlist interrupt. - 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; - ClearSlot(v); - 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; - - switch (order->type) { - case OT_GOTO_STATION: { - const RoadStop* rs; - - if (order->dest == v->last_station_visited) { - v->last_station_visited = INVALID_STATION; - } - - rs = GetPrimaryRoadStop( - GetStation(order->dest), - v->cargo_type == CT_PASSENGERS ? RS_BUS : RS_TRUCK - ); - - if (rs != NULL) { - TileIndex dest = rs->xy; - uint mindist = DistanceManhattan(v->tile, rs->xy); - - for (rs = rs->next; rs != NULL; rs = rs->next) { - uint dist = DistanceManhattan(v->tile, rs->xy); - - if (dist < mindist) { - mindist = dist; - dest = rs->xy; - } - } - v->dest_tile = dest; - } else { - // There is no stop left at the station, so don't even TRY to go there - v->cur_order_index++; - v->dest_tile = 0; - } - break; - } - - case OT_GOTO_DEPOT: - v->dest_tile = GetDepot(order->dest)->xy; - break; - - default: - v->dest_tile = 0; - break; - } - - InvalidateVehicleOrder(v); -} - -static void HandleRoadVehLoading(Vehicle *v) -{ - switch (v->current_order.type) { - case OT_LOADING: { - Order b; - - if (--v->load_unload_time_rem != 0) 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_ROADVEH_INC); - if (LoadUnloadVehicle(v, false)) { - InvalidateWindow(WC_ROADVEH_LIST, v->owner); - MarkRoadVehDirty(v); - } - return; - } - - b = v->current_order; - v->current_order.type = OT_LEAVESTATION; - v->current_order.flags = 0; - if (!(b.flags & OF_NON_STOP)) return; - break; - } - - case OT_DUMMY: break; - - default: return; - } - - v->cur_order_index++; - InvalidateVehicleOrder(v); -} - -static void StartRoadVehSound(const Vehicle* v) -{ - if (!PlayVehicleSound(v, VSE_START)) { - SoundFx s = RoadVehInfo(v->engine_type)->sfx; - if (s == SND_19_BUS_START_PULL_AWAY && (v->tick_counter & 3) == 0) - s = SND_1A_BUS_START_PULL_AWAY_WITH_HORN; - SndPlayVehicleFx(s, v); - } -} - -typedef struct RoadVehFindData { - int x; - int y; - const Vehicle* veh; - Direction dir; -} RoadVehFindData; - -static void* EnumCheckRoadVehClose(Vehicle *v, void* data) -{ - static const int8 dist_x[] = { -4, -8, -4, -1, 4, 8, 4, 1 }; - static const int8 dist_y[] = { -4, -1, 4, 8, 4, 1, -4, -8 }; - - const RoadVehFindData* rvf = data; - - short x_diff = v->x_pos - rvf->x; - short y_diff = v->y_pos - rvf->y; - - return - rvf->veh != v && - v->type == VEH_Road && - !IsRoadVehInDepot(v) && - myabs(v->z_pos - rvf->veh->z_pos) < 6 && - v->direction == rvf->dir && - (dist_x[v->direction] >= 0 || (x_diff > dist_x[v->direction] && x_diff <= 0)) && - (dist_x[v->direction] <= 0 || (x_diff < dist_x[v->direction] && x_diff >= 0)) && - (dist_y[v->direction] >= 0 || (y_diff > dist_y[v->direction] && y_diff <= 0)) && - (dist_y[v->direction] <= 0 || (y_diff < dist_y[v->direction] && y_diff >= 0)) ? - v : NULL; -} - -static Vehicle* RoadVehFindCloseTo(Vehicle* v, int x, int y, Direction dir) -{ - RoadVehFindData rvf; - Vehicle *u; - - if (v->u.road.reverse_ctr != 0) return NULL; - - rvf.x = x; - rvf.y = y; - rvf.dir = dir; - rvf.veh = v; - u = VehicleFromPos(TileVirtXY(x, y), &rvf, EnumCheckRoadVehClose); - - // This code protects a roadvehicle from being blocked for ever - // If more than 1480 / 74 days a road vehicle is blocked, it will - // drive just through it. The ultimate backup-code of TTD. - // It can be disabled. - if (u == NULL) { - v->u.road.blocked_ctr = 0; - return NULL; - } - - if (++v->u.road.blocked_ctr > 1480) return NULL; - - return u; -} - -static void RoadVehArrivesAt(const Vehicle* v, Station* st) -{ - if (v->cargo_type == CT_PASSENGERS) { - /* Check if station was ever visited before */ - if (!(st->had_vehicle_of_type & HVOT_BUS)) { - uint32 flags; - - st->had_vehicle_of_type |= HVOT_BUS; - 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_902F_CITIZENS_CELEBRATE_FIRST, - flags, - v->index, - 0); - } - } else { - /* Check if station was ever visited before */ - if (!(st->had_vehicle_of_type & HVOT_TRUCK)) { - uint32 flags; - - st->had_vehicle_of_type |= HVOT_TRUCK; - 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_9030_CITIZENS_CELEBRATE_FIRST, - flags, - v->index, - 0 - ); - } - } -} - -static bool RoadVehAccelerate(Vehicle *v) -{ - uint spd = v->cur_speed + 1 + (v->u.road.overtaking != 0 ? 1 : 0); - byte t; - - // Clamp - spd = min(spd, v->max_speed); - if (v->u.road.state == 255) spd = min(spd, SetSpeedLimitOnBridge(v)); - - //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 >> 2; - - if (spd == 0) return false; - - if ((byte)++spd == 0) return true; - - v->progress = (t = v->progress) - (byte)spd; - - return (t < v->progress); -} - -static Direction RoadVehGetNewDirection(const Vehicle* v, int x, int y) -{ - static const Direction _roadveh_new_dir[] = { - DIR_N , DIR_NW, DIR_W , 0, - DIR_NE, DIR_N , DIR_SW, 0, - DIR_E , DIR_SE, DIR_S - }; - - x = x - v->x_pos + 1; - y = y - v->y_pos + 1; - - if ((uint)x > 2 || (uint)y > 2) return v->direction; - return _roadveh_new_dir[y * 4 + x]; -} - -static Direction RoadVehGetSlidingDirection(const Vehicle* v, int x, int y) -{ - Direction new = RoadVehGetNewDirection(v, x, y); - Direction old = v->direction; - DirDiff delta; - - if (new == old) return old; - delta = (DirDifference(new, old) > DIRDIFF_REVERSE ? DIRDIFF_45LEFT : DIRDIFF_45RIGHT); - return ChangeDir(old, delta); -} - -typedef struct OvertakeData { - const Vehicle* u; - const Vehicle* v; - TileIndex tile; - byte tilebits; -} OvertakeData; - -static void* EnumFindVehToOvertake(Vehicle* v, void* data) -{ - const OvertakeData* od = data; - - return - v->tile == od->tile && v->type == VEH_Road && v != od->u && v != od->v ? - v : NULL; -} - -static bool FindRoadVehToOvertake(OvertakeData *od) -{ - uint32 bits; - - bits = GetTileTrackStatus(od->tile, TRANSPORT_ROAD) & 0x3F; - - if (!(od->tilebits & bits) || (bits & 0x3C) || (bits & 0x3F3F0000)) - return true; - return VehicleFromPos(od->tile, od, EnumFindVehToOvertake) != NULL; -} - -static void RoadVehCheckOvertake(Vehicle *v, Vehicle *u) -{ - OvertakeData od; - byte tt; - - od.v = v; - od.u = u; - - if (u->max_speed >= v->max_speed && - !(u->vehstatus & VS_STOPPED) && - u->cur_speed != 0) { - return; - } - - if (v->direction != u->direction || !(v->direction & 1)) return; - - if (v->u.road.state >= 32 || (v->u.road.state & 7) > 1) return; - - tt = GetTileTrackStatus(v->tile, TRANSPORT_ROAD) & 0x3F; - if ((tt & 3) == 0) return; - if ((tt & 0x3C) != 0) return; - - if (tt == 3) tt = (v->direction & 2) ? 2 : 1; - od.tilebits = tt; - - od.tile = v->tile; - if (FindRoadVehToOvertake(&od)) return; - - od.tile = v->tile + TileOffsByDiagDir(DirToDiagDir(v->direction)); - if (FindRoadVehToOvertake(&od)) return; - - if (od.u->cur_speed == 0 || od.u->vehstatus& VS_STOPPED) { - v->u.road.overtaking_ctr = 0x11; - v->u.road.overtaking = 0x10; - } else { -// if (FindRoadVehToOvertake(&od)) return; - v->u.road.overtaking_ctr = 0; - v->u.road.overtaking = 0x10; - } -} - -static void RoadZPosAffectSpeed(Vehicle *v, byte old_z) -{ - if (old_z == v->z_pos) return; - - if (old_z < v->z_pos) { - v->cur_speed = v->cur_speed * 232 / 256; // slow down by ~10% - } else { - uint16 spd = v->cur_speed + 2; - if (spd <= v->max_speed) v->cur_speed = spd; - } -} - -static int PickRandomBit(uint bits) -{ - uint num = 0; - uint b = bits; - uint i; - - do { - if (b & 1) num++; - } while (b >>= 1); - - num = RandomRange(num); - - for (i = 0; !(bits & 1) || (int)--num >= 0; bits >>= 1, i++) {} - return i; -} - -typedef struct { - TileIndex dest; - uint maxtracklen; - uint mindist; -} FindRoadToChooseData; - -static bool EnumRoadTrackFindDist(TileIndex tile, void* data, int track, uint length, byte* state) -{ - FindRoadToChooseData* frd = data; - uint dist = DistanceManhattan(tile, frd->dest); - - if (dist <= frd->mindist) { - if (dist != frd->mindist || length < frd->maxtracklen) { - frd->maxtracklen = length; - } - frd->mindist = dist; - } - return false; -} - -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, "[NPFR] %d us - %d rounds - %d open - %d closed -- ", t, 0, _aystar_stats_open_size, _aystar_stats_closed_size); - return ret; -} - -// Returns direction to choose -// or -1 if the direction is currently blocked -static int RoadFindPathToDest(Vehicle* v, TileIndex tile, DiagDirection enterdir) -{ -#define return_track(x) {best_track = x; goto found_best_track; } - - uint16 signal; - uint bitmask; - TileIndex desttile; - FindRoadToChooseData frd; - int best_track; - uint best_dist, best_maxlen; - uint i; - - { - uint32 r = GetTileTrackStatus(tile, TRANSPORT_ROAD); - signal = GB(r, 16, 16); - bitmask = GB(r, 0, 16); - } - - if (IsTileType(tile, MP_STREET)) { - if (GetRoadTileType(tile) == ROAD_TILE_DEPOT && (!IsTileOwner(tile, v->owner) || GetRoadDepotDirection(tile) == enterdir)) { - /* Road depot owned by another player or with the wrong orientation */ - bitmask = 0; - } - } else if (IsTileType(tile, MP_STATION) && IsRoadStopTile(tile)) { - if (!IsTileOwner(tile, v->owner) || GetRoadStopDir(tile) == enterdir) { - /* different station owner or wrong orientation */ - bitmask = 0; - } else { - /* Our station */ - RoadStopType rstype = (v->cargo_type == CT_PASSENGERS) ? RS_BUS : RS_TRUCK; - - if (GetRoadStopType(tile) != rstype) { - // wrong station type - bitmask = 0; - } else { - // proper station type, check if there is free loading bay - const RoadStop *rs = GetRoadStopByTile(tile, rstype); - if (rs == NULL || (!_patches.roadveh_queue && GB(rs->status, 0, 2) == 0)) { - // station is full and RV queuing is off - bitmask = 0; - } - } - } - } - /* The above lookups should be moved to GetTileTrackStatus in the - * future, but that requires more changes to the pathfinder and other - * stuff, probably even more arguments to GTTS. - */ - - /* remove unreachable tracks */ - bitmask &= _road_veh_fp_ax_and[enterdir]; - if (bitmask == 0) { - /* No reachable tracks, so we'll reverse */ - return_track(_road_reverse_table[enterdir]); - } - - if (v->u.road.reverse_ctr != 0) { - /* What happens here?? */ - v->u.road.reverse_ctr = 0; - if (v->tile != tile) { - return_track(_road_reverse_table[enterdir]); - } - } - - desttile = v->dest_tile; - if (desttile == 0) { - // Pick a random track - return_track(PickRandomBit(bitmask)); - } - - // Only one track to choose between? - if (!(KillFirstBit2x64(bitmask))) { - return_track(FindFirstBit2x64(bitmask)); - } - - if (_patches.yapf.road_use_yapf) { - Trackdir trackdir = YapfChooseRoadTrack(v, tile, enterdir); - if (trackdir != INVALID_TRACKDIR) return_track(trackdir); - return_track(PickRandomBit(bitmask)); - } else if (_patches.new_pathfinding_all) { - NPFFindStationOrTileData fstd; - NPFFoundTargetData ftd; - byte trackdir; - - NPFFillWithOrderData(&fstd, v); - trackdir = DiagdirToDiagTrackdir(enterdir); - //debug("Finding path. Enterdir: %d, Trackdir: %d", enterdir, trackdir); - - ftd = PerfNPFRouteToStationOrTile(tile - TileOffsByDiagDir(enterdir), trackdir, &fstd, TRANSPORT_ROAD, v->owner, INVALID_RAILTYPE); - if (ftd.best_trackdir == 0xff) { - /* We are already at our target. Just do something */ - //TODO: maybe display error? - //TODO: go straight ahead if possible? - return_track(FindFirstBit2x64(bitmask)); - } else { - /* 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_track(ftd.best_trackdir); - } - } else { - DiagDirection dir; - - if (IsTileType(desttile, MP_STREET)) { - if (GetRoadTileType(desttile) == ROAD_TILE_DEPOT) { - dir = GetRoadDepotDirection(desttile); - goto do_it; - } - } else if (IsTileType(desttile, MP_STATION)) { - if (IsRoadStop(desttile)) { - dir = GetRoadStopDir(desttile); -do_it:; - /* When we are heading for a depot or station, we just - * pretend we are heading for the tile in front, we'll - * see from there */ - desttile += TileOffsByDiagDir(dir); - if (desttile == tile && bitmask & _road_pf_table_3[dir]) { - /* If we are already in front of the - * station/depot and we can get in from here, - * we enter */ - return_track(FindFirstBit2x64(bitmask & _road_pf_table_3[dir])); - } - } - } - // do pathfind - frd.dest = desttile; - - best_track = -1; - best_dist = (uint)-1; - best_maxlen = (uint)-1; - i = 0; - do { - if (bitmask & 1) { - if (best_track == -1) best_track = i; // in case we don't find the path, just pick a track - frd.maxtracklen = (uint)-1; - frd.mindist = (uint)-1; - FollowTrack(tile, 0x2000 | TRANSPORT_ROAD, _road_pf_directions[i], EnumRoadTrackFindDist, NULL, &frd); - - if (frd.mindist < best_dist || (frd.mindist==best_dist && frd.maxtracklen < best_maxlen)) { - best_dist = frd.mindist; - best_maxlen = frd.maxtracklen; - best_track = i; - } - } - } while (++i,(bitmask>>=1) != 0); - } - -found_best_track:; - - if (HASBIT(signal, best_track)) return -1; - - return best_track; -} - -static uint RoadFindPathToStop(const Vehicle *v, TileIndex tile) -{ - uint dist; - if (_patches.yapf.road_use_yapf) { - // use YAPF - dist = YapfRoadVehDistanceToTile(v, tile); - } else { - // use NPF - NPFFindStationOrTileData fstd; - byte trackdir = GetVehicleTrackdir(v); - assert(trackdir != 0xFF); - - fstd.dest_coords = tile; - fstd.station_index = INVALID_STATION; // indicates that the destination is a tile, not a station - - dist = NPFRouteToStationOrTile(v->tile, trackdir, &fstd, TRANSPORT_ROAD, v->owner, INVALID_RAILTYPE).best_path_dist; - // change units from NPF_TILE_LENGTH to # of tiles - if (dist != UINT_MAX) - dist = (dist + NPF_TILE_LENGTH - 1) / NPF_TILE_LENGTH; - } - return dist; -} - -typedef struct RoadDriveEntry { - byte x,y; -} RoadDriveEntry; - -#include "table/roadveh.h" - -static const byte _road_veh_data_1[] = { - 20, 20, 16, 16, 0, 0, 0, 0, - 19, 19, 15, 15, 0, 0, 0, 0, - 16, 16, 12, 12, 0, 0, 0, 0, - 15, 15, 11, 11 -}; - -static const byte _roadveh_data_2[4] = { 0, 1, 8, 9 }; - -static void RoadVehController(Vehicle *v) -{ - Direction new_dir; - Direction old_dir; - RoadDriveEntry rd; - int x,y; - uint32 r; - - // decrease counters - v->tick_counter++; - if (v->u.road.reverse_ctr != 0) v->u.road.reverse_ctr--; - - // handle crashed - if (v->u.road.crashed_ctr != 0) { - RoadVehIsCrashed(v); - return; - } - - RoadVehCheckTrainCrash(v); - - // road vehicle has broken down? - if (v->breakdown_ctr != 0) { - if (v->breakdown_ctr <= 2) { - HandleBrokenRoadVeh(v); - return; - } - v->breakdown_ctr--; - } - - if (v->vehstatus & VS_STOPPED) return; - - ProcessRoadVehOrder(v); - HandleRoadVehLoading(v); - - if (v->current_order.type == OT_LOADING) return; - - if (IsRoadVehInDepot(v)) { - DiagDirection dir; - const RoadDriveEntry* rdp; - byte rd2; - - v->cur_speed = 0; - - dir = GetRoadDepotDirection(v->tile); - v->direction = DiagDirToDir(dir); - - rd2 = _roadveh_data_2[dir]; - rdp = _road_drive_data[(_opt.road_side << 4) + rd2]; - - x = TileX(v->tile) * TILE_SIZE + (rdp[6].x & 0xF); - y = TileY(v->tile) * TILE_SIZE + (rdp[6].y & 0xF); - - if (RoadVehFindCloseTo(v, x, y, v->direction) != NULL) return; - - VehicleServiceInDepot(v); - - StartRoadVehSound(v); - - BeginVehicleMove(v); - - v->vehstatus &= ~VS_HIDDEN; - v->u.road.state = rd2; - v->u.road.frame = 6; - - v->cur_image = GetRoadVehImage(v, v->direction); - UpdateRoadVehDeltaXY(v); - SetRoadVehPosition(v,x,y); - - InvalidateWindowData(WC_VEHICLE_DEPOT, v->tile); - return; - } - - if (!RoadVehAccelerate(v)) return; - - if (v->u.road.overtaking != 0) { - if (++v->u.road.overtaking_ctr >= 35) - /* If overtaking just aborts at a random moment, we can have a out-of-bound problem, - * if the vehicle started a corner. To protect that, only allow an abort of - * overtake if we are on straight road, which are the 8 states below */ - if (v->u.road.state == 0 || v->u.road.state == 1 || - v->u.road.state == 8 || v->u.road.state == 9 || - v->u.road.state == 16 || v->u.road.state == 17 || - v->u.road.state == 24 || v->u.road.state == 25) { - v->u.road.overtaking = 0; - } - } - - BeginVehicleMove(v); - - if (v->u.road.state == 255) { - GetNewVehiclePosResult gp; - - GetNewVehiclePos(v, &gp); - - if (RoadVehFindCloseTo(v, gp.x, gp.y, v->direction) != NULL) { - v->cur_speed = 0; - return; - } - - if ((IsTunnelTile(gp.new_tile) || IsBridgeTile(gp.new_tile)) && VehicleEnterTile(v, gp.new_tile, gp.x, gp.y) & 4) { - //new_dir = RoadGetNewDirection(v, gp.x, gp.y) - v->cur_image = GetRoadVehImage(v, v->direction); - UpdateRoadVehDeltaXY(v); - SetRoadVehPosition(v,gp.x,gp.y); - return; - } - - v->x_pos = gp.x; - v->y_pos = gp.y; - VehiclePositionChanged(v); - if (!(v->vehstatus & VS_HIDDEN)) EndVehicleMove(v); - return; - } - - rd = _road_drive_data[(v->u.road.state + (_opt.road_side << 4)) ^ v->u.road.overtaking][v->u.road.frame + 1]; - -// switch to another tile - if (rd.x & 0x80) { - TileIndex tile = v->tile + TileOffsByDiagDir(rd.x & 3); - int dir = RoadFindPathToDest(v, tile, rd.x & 3); - uint32 r; - Direction newdir; - const RoadDriveEntry *rdp; - - if (dir == -1) { - v->cur_speed = 0; - return; - } - -again: - if ((dir & 7) >= 6) { - /* Turning around */ - tile = v->tile; - } - - rdp = _road_drive_data[(dir + (_opt.road_side << 4)) ^ v->u.road.overtaking]; - - x = TileX(tile) * TILE_SIZE + rdp[0].x; - y = TileY(tile) * TILE_SIZE + rdp[0].y; - - newdir = RoadVehGetSlidingDirection(v, x, y); - if (RoadVehFindCloseTo(v, x, y, newdir) != NULL) return; - - r = VehicleEnterTile(v, tile, x, y); - if (r & 8) { - if (!IsTileType(tile, MP_TUNNELBRIDGE)) { - v->cur_speed = 0; - return; - } - dir = _road_reverse_table[rd.x&3]; - goto again; - } - - if (IS_BYTE_INSIDE(v->u.road.state, 0x20, 0x30) && IsTileType(v->tile, MP_STATION)) { - if ((dir & 7) >= 6) { - v->cur_speed = 0; - return; - } - if (IsRoadStop(v->tile)) { - RoadStop *rs = GetRoadStopByTile(v->tile, GetRoadStopType(v->tile)); - - // reached a loading bay, mark it as used and clear the usage bit - SETBIT(rs->status, v->u.road.state & 2 ? 1 : 0); // occupied bay - CLRBIT(rs->status, 7); // usage bit - } - } - - if (!(r & 4)) { - v->tile = tile; - v->u.road.state = (byte)dir; - v->u.road.frame = 0; - } - if (newdir != v->direction) { - v->direction = newdir; - v->cur_speed -= v->cur_speed >> 2; - } - - v->cur_image = GetRoadVehImage(v, newdir); - UpdateRoadVehDeltaXY(v); - RoadZPosAffectSpeed(v, SetRoadVehPosition(v, x, y)); - return; - } - - if (rd.x & 0x40) { - int dir = RoadFindPathToDest(v, v->tile, rd.x & 3); - uint32 r; - int tmp; - Direction newdir; - const RoadDriveEntry *rdp; - - if (dir == -1) { - v->cur_speed = 0; - return; - } - - tmp = (_opt.road_side << 4) + dir; - rdp = _road_drive_data[tmp]; - - x = TileX(v->tile) * TILE_SIZE + rdp[1].x; - y = TileY(v->tile) * TILE_SIZE + rdp[1].y; - - newdir = RoadVehGetSlidingDirection(v, x, y); - if (RoadVehFindCloseTo(v, x, y, newdir) != NULL) return; - - r = VehicleEnterTile(v, v->tile, x, y); - if (r & 8) { - v->cur_speed = 0; - return; - } - - v->u.road.state = tmp & ~16; - v->u.road.frame = 1; - - if (newdir != v->direction) { - v->direction = newdir; - v->cur_speed -= v->cur_speed >> 2; - } - - v->cur_image = GetRoadVehImage(v, newdir); - UpdateRoadVehDeltaXY(v); - RoadZPosAffectSpeed(v, SetRoadVehPosition(v, x, y)); - return; - } - - x = (v->x_pos & ~15) + (rd.x & 15); - y = (v->y_pos & ~15) + (rd.y & 15); - - new_dir = RoadVehGetSlidingDirection(v, x, y); - - if (!IS_BYTE_INSIDE(v->u.road.state, 0x20, 0x30)) { - Vehicle* u = RoadVehFindCloseTo(v, x, y, new_dir); - - if (u != NULL) { - if (v->u.road.overtaking == 0) RoadVehCheckOvertake(v, u); - return; - } - } - - old_dir = v->direction; - if (new_dir != old_dir) { - v->direction = new_dir; - v->cur_speed -= (v->cur_speed >> 2); - if (old_dir != v->u.road.state) { - v->cur_image = GetRoadVehImage(v, new_dir); - UpdateRoadVehDeltaXY(v); - SetRoadVehPosition(v, v->x_pos, v->y_pos); - return; - } - } - - if (v->u.road.state >= 0x20 && - _road_veh_data_1[v->u.road.state - 0x20 + (_opt.road_side<<4)] == v->u.road.frame) { - RoadStop *rs = GetRoadStopByTile(v->tile, GetRoadStopType(v->tile)); - Station* st = GetStationByTile(v->tile); - - if (v->current_order.type != OT_LEAVESTATION && - v->current_order.type != OT_GOTO_DEPOT) { - Order old_order; - - CLRBIT(rs->status, 7); - - v->last_station_visited = GetStationIndex(v->tile); - - RoadVehArrivesAt(v, st); - - old_order = v->current_order; - v->current_order.type = OT_LOADING; - v->current_order.flags = 0; - - if (old_order.type == OT_GOTO_STATION && - v->current_order.dest == v->last_station_visited) { - v->current_order.flags = - (old_order.flags & (OF_FULL_LOAD | OF_UNLOAD | OF_TRANSFER)) | OF_NON_STOP; - } - - SET_EXPENSES_TYPE(EXPENSES_ROADVEH_INC); - if (LoadUnloadVehicle(v, true)) { - InvalidateWindow(WC_ROADVEH_LIST, v->owner); - MarkRoadVehDirty(v); - } - InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); - return; - } - - if (v->current_order.type != OT_GOTO_DEPOT) { - if (HASBIT(rs->status, 7)) { - v->cur_speed = 0; - return; - } - v->current_order.type = OT_NOTHING; - v->current_order.flags = 0; - ClearSlot(v); - } - SETBIT(rs->status, 7); - - if (rs == v->u.road.slot) { - //we have arrived at the correct station - ClearSlot(v); - } else if (v->u.road.slot != NULL) { - //we have arrived at the wrong station - //XXX The question is .. what to do? Actually we shouldn't be here - //but I guess we need to clear the slot - DEBUG(ms, 0, "Vehicle %d (index %d) arrived at wrong stop", v->unitnumber, v->index); - if (v->tile != v->dest_tile) { - DEBUG(ms, 2, " current tile 0x%X is not destination tile 0x%X. Route problem", v->tile, v->dest_tile); - } - if (v->dest_tile != v->u.road.slot->xy) { - DEBUG(ms, 2, " stop tile 0x%X is not destination tile 0x%X. Multistop desync", v->u.road.slot->xy, v->dest_tile); - } - if (v->current_order.type != OT_GOTO_STATION) { - DEBUG(ms, 2, " current order type (%d) is not OT_GOTO_STATION", v->current_order.type); - } else { - if (v->current_order.dest != st->index) - DEBUG(ms, 2, " current station %d is not target station in current_order.station (%d)", - st->index, v->current_order.dest); - } - - DEBUG(ms, 2, " force a slot clearing"); - ClearSlot(v); - } - - StartRoadVehSound(v); - InvalidateWindowWidget(WC_VEHICLE_VIEW, v->index, STATUS_BAR); - } - - r = VehicleEnterTile(v, v->tile, x, y); - if (r & 8) { - v->cur_speed = 0; - return; - } - - if ((r & 4) == 0) v->u.road.frame++; - - v->cur_image = GetRoadVehImage(v, v->direction); - UpdateRoadVehDeltaXY(v); - RoadZPosAffectSpeed(v, SetRoadVehPosition(v, x, y)); -} - -static void AgeRoadVehCargo(Vehicle *v) -{ - if (_age_cargo_skip_counter != 0) return; - if (v->cargo_days != 255) v->cargo_days++; -} - -void RoadVeh_Tick(Vehicle *v) -{ - AgeRoadVehCargo(v); - RoadVehController(v); -} - -static void CheckIfRoadVehNeedsService(Vehicle *v) -{ - const Depot* depot; - - if (_patches.servint_roadveh == 0) return; - if (!VehicleNeedsService(v)) return; - if (v->vehstatus & VS_STOPPED) return; - if (_patches.gotodepot && VehicleHasDepotOrders(v)) return; - - // Don't interfere with a depot visit scheduled by the user, or a - // depot visit by the order list. - if (v->current_order.type == OT_GOTO_DEPOT && - (v->current_order.flags & (OF_HALT_IN_DEPOT | OF_PART_OF_ORDERS)) != 0) - return; - - // If we already got a slot at a stop, use that FIRST, and go to a depot later - if (v->u.road.slot != NULL) return; - - if (IsRoadVehInDepot(v)) { - VehicleServiceInDepot(v); - return; - } - - // XXX If we already have a depot order, WHY do we search over and over? - depot = FindClosestRoadDepot(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; - } - - if (v->current_order.type == OT_GOTO_DEPOT && - v->current_order.flags & OF_NON_STOP && - !CHANCE16(1, 20)) { - 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_RoadVeh(Vehicle *v) -{ - int32 cost; - - if ((++v->day_counter & 7) == 0) DecreaseVehicleValue(v); - if (v->u.road.blocked_ctr == 0) CheckVehicleBreakdown(v); - - AgeVehicle(v); - CheckIfRoadVehNeedsService(v); - - CheckOrders(v); - - //Current slot has expired - if (v->current_order.type == OT_GOTO_STATION && v->u.road.slot != NULL && v->u.road.slot_age-- == 0) { - DEBUG(ms, 3, "Slot expired for vehicle %d (index %d) at stop 0x%X", - v->unitnumber, v->index, v->u.road.slot->xy); - ClearSlot(v); - } - - if (v->vehstatus & VS_STOPPED) return; - - /* update destination */ - if (v->current_order.type == OT_GOTO_STATION && v->u.road.slot == NULL && !(v->vehstatus & VS_CRASHED)) { - Station* st = GetStation(v->current_order.dest); - RoadStop* rs = GetPrimaryRoadStop(st, v->cargo_type == CT_PASSENGERS ? RS_BUS : RS_TRUCK); - RoadStop* best = NULL; - - if (rs != NULL) { - if (DistanceManhattan(v->tile, st->xy) < 16) { - uint dist, badness; - uint minbadness = UINT_MAX; - - DEBUG(ms, 2, "Attempting to obtain a slot for vehicle %d (index %d) at station %d (0x%X)", - v->unitnumber, v->index, st->index, st->xy - ); - /* Now we find the nearest road stop that has a free slot */ - for (; rs != NULL; rs = rs->next) { - dist = RoadFindPathToStop(v, rs->xy); - if (dist == UINT_MAX) { - DEBUG(ms, 4, " stop 0x%X is unreachable, not treating further", rs->xy); - continue; - } - badness = (rs->num_vehicles + 1) * (rs->num_vehicles + 1) + dist; - - DEBUG(ms, 4, " stop 0x%X has %d vehicle%s waiting", rs->xy, rs->num_vehicles, rs->num_vehicles == 1 ? "":"s"); - DEBUG(ms, 4, " distance is %u", dist); - DEBUG(ms, 4, " badness %u", badness); - - if (badness < minbadness) { - best = rs; - minbadness = badness; - } - } - - if (best != NULL) { - best->num_vehicles++; - DEBUG(ms, 3, "Assigned to stop 0x%X", best->xy); - - v->u.road.slot = best; - v->dest_tile = best->xy; - v->u.road.slot_age = 14; - } else { - DEBUG(ms, 3, "Could not find a suitable stop"); - } - } else { - DEBUG(ms, 5, "Distance from station too far. Postponing slotting for vehicle %d (index %d) at station %d, (0x%X)", - v->unitnumber, v->index, st->index, st->xy); - } - } else { - DEBUG(ms, 4, "No road stop for vehicle %d (index %d) at station %d (0x%X)", - v->unitnumber, v->index, st->index, st->xy); - } - } - - cost = RoadVehInfo(v->engine_type)->running_cost * _price.roadveh_running / 364; - - v->profit_this_year -= cost >> 8; - - SET_EXPENSES_TYPE(EXPENSES_ROADVEH_RUN); - SubtractMoneyFromPlayerFract(v->owner, cost); - - InvalidateWindow(WC_VEHICLE_DETAILS, v->index); - InvalidateWindowClasses(WC_ROADVEH_LIST); -} - - -void RoadVehiclesYearlyLoop(void) -{ - Vehicle *v; - - FOR_ALL_VEHICLES(v) { - if (v->type == VEH_Road) { - v->profit_last_year = v->profit_this_year; - v->profit_this_year = 0; - InvalidateWindow(WC_VEHICLE_DETAILS, v->index); - } - } -} - -/** Refit a road vehicle to the specified cargo type - * @param tile unused - * @param p1 Vehicle ID of the vehicle to refit - * @param p2 Bitstuffed elements - * - p2 = (bit 0-7) - the new cargo type to refit to - * - p2 = (bit 8-15) - the new cargo subtype to refit to - */ -int32 CmdRefitRoadVeh(TileIndex tile, uint32 flags, uint32 p1, uint32 p2) -{ - Vehicle *v; - int32 cost; - CargoID new_cid = GB(p2, 0, 8); - byte new_subtype = GB(p2, 8, 8); - uint16 capacity = CALLBACK_FAILED; - - if (!IsValidVehicleID(p1)) return CMD_ERROR; - - v = GetVehicle(p1); - - if (v->type != VEH_Road || !CheckOwnership(v->owner)) return CMD_ERROR; - if (!IsRoadVehInDepotStopped(v)) return_cmd_error(STR_9013_MUST_BE_STOPPED_INSIDE); - - if (new_cid > NUM_CARGO || !CanRefitTo(v->engine_type, new_cid)) return CMD_ERROR; - - SET_EXPENSES_TYPE(EXPENSES_ROADVEH_RUN); - - if (HASBIT(EngInfo(v->engine_type)->callbackmask, CBM_REFIT_CAPACITY)) { - /* Back up the cargo type */ - CargoID temp_cid = v->cargo_type; - byte temp_subtype = v->cargo_subtype; - v->cargo_type = new_cid; - v->cargo_subtype = new_subtype; - - /* Check the refit capacity callback */ - capacity = GetVehicleCallback(CBID_VEHICLE_REFIT_CAPACITY, 0, 0, v->engine_type, v); - - /* Restore the original cargo type */ - v->cargo_type = temp_cid; - v->cargo_subtype = temp_subtype; - } - - if (capacity == CALLBACK_FAILED) { - /* callback failed or not used, use default capacity */ - const RoadVehicleInfo *rvi = RoadVehInfo(v->engine_type); - - CargoID old_cid = rvi->cargo_type; - /* normally, the capacity depends on the cargo type, a vehicle can - * carry twice as much mail/goods as normal cargo, and four times as - * many passengers - */ - capacity = rvi->capacity; - switch (old_cid) { - case CT_PASSENGERS: break; - case CT_MAIL: - case CT_GOODS: capacity *= 2; break; - default: capacity *= 4; break; - } - switch (new_cid) { - case CT_PASSENGERS: break; - case CT_MAIL: - case CT_GOODS: capacity /= 2; break; - default: capacity /= 4; break; - } - } - _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(capacity, 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; -}