Darkvater@2423: /* $Id$ */ truelight@2381: rubidium@9111: /** @file default.cpp The original AI. */ rubidium@9111: truelight@2381: #include "../../stdafx.h" truelight@2381: #include "../../openttd.h" tron@3964: #include "../../aircraft.h" tron@3196: #include "../../bridge_map.h" rubidium@8119: #include "../../tile_cmd.h" maedhros@6453: #include "../../landscape.h" tron@3185: #include "../../rail_map.h" tron@3144: #include "../../road_map.h" tron@3964: #include "../../roadveh.h" tron@3315: #include "../../station_map.h" tron@3184: #include "../../tunnel_map.h" rubidium@8116: #include "../../command_func.h" truelight@2381: #include "../../town.h" truelight@2381: #include "../../industry.h" truelight@2381: #include "../../pathfind.h" truelight@2381: #include "../../airport.h" truelight@2381: #include "../../variables.h" celestar@3359: #include "../../bridge.h" rubidium@8140: #include "../../date_func.h" smatz@8083: #include "../../tunnelbridge_map.h" rubidium@8131: #include "../../window_func.h" rubidium@8144: #include "../../vehicle_func.h" rubidium@8131: #include "../../functions.h" rubidium@8229: #include "../../saveload.h" rubidium@10208: #include "../../company_func.h" rubidium@10208: #include "../../company_base.h" rubidium@8270: #include "../../settings_type.h" tron@2447: #include "default.h" smatz@8398: #include "../../tunnelbridge.h" rubidium@8784: #include "../../order_func.h" truelight@2381: rubidium@8264: #include "../../table/ai_rail.h" rubidium@8264: truelight@2381: // remove some day perhaps? truelight@2381: static uint _ai_service_interval; rubidium@10207: CompanyAI _companies_ai[MAX_COMPANIES]; rubidium@10207: rubidium@10207: typedef void AiStateAction(Company *c); truelight@2381: truelight@2381: enum { rubidium@4344: AIS_0 = 0, rubidium@4344: AIS_1 = 1, rubidium@4344: AIS_VEH_LOOP = 2, rubidium@4344: AIS_VEH_CHECK_REPLACE_VEHICLE = 3, rubidium@4344: AIS_VEH_DO_REPLACE_VEHICLE = 4, rubidium@4344: AIS_WANT_NEW_ROUTE = 5, rubidium@4344: AIS_BUILD_DEFAULT_RAIL_BLOCKS = 6, rubidium@4344: AIS_BUILD_RAIL = 7, rubidium@4344: AIS_BUILD_RAIL_VEH = 8, rubidium@4344: AIS_DELETE_RAIL_BLOCKS = 9, rubidium@4344: AIS_BUILD_DEFAULT_ROAD_BLOCKS = 10, rubidium@4344: AIS_BUILD_ROAD = 11, rubidium@4344: AIS_BUILD_ROAD_VEHICLES = 12, rubidium@4344: AIS_DELETE_ROAD_BLOCKS = 13, rubidium@4344: AIS_AIRPORT_STUFF = 14, truelight@2381: AIS_BUILD_DEFAULT_AIRPORT_BLOCKS = 15, rubidium@4344: AIS_BUILD_AIRCRAFT_VEHICLES = 16, rubidium@4344: AIS_CHECK_SHIP_STUFF = 17, rubidium@4344: AIS_BUILD_DEFAULT_SHIP_BLOCKS = 18, rubidium@4344: AIS_DO_SHIP_STUFF = 19, rubidium@4344: AIS_SELL_VEHICLE = 20, rubidium@4344: AIS_REMOVE_STATION = 21, rubidium@4344: AIS_REMOVE_TRACK = 22, rubidium@4344: AIS_REMOVE_SINGLE_RAIL_TILE = 23 truelight@2381: }; truelight@2381: truelight@2381: frosch@8616: static inline TrackBits GetRailTrackStatus(TileIndex tile) tron@3033: { frosch@8616: return TrackStatusToTrackBits(GetTileTrackStatus(tile, TRANSPORT_RAIL, 0)); truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiCase0(Company *c) truelight@2381: { rubidium@10207: _companies_ai[c->index].state = AIS_REMOVE_TRACK; rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiCase1(Company *c) truelight@2381: { rubidium@10207: _companies_ai[c->index].cur_veh = NULL; rubidium@10207: _companies_ai[c->index].state = AIS_VEH_LOOP; truelight@2381: } truelight@2381: rubidium@10207: static void AiStateVehLoop(Company *c) truelight@2381: { truelight@2381: Vehicle *v; truelight@2381: uint index; truelight@2381: rubidium@10207: index = (_companies_ai[c->index].cur_veh == NULL) ? 0 : _companies_ai[c->index].cur_veh->index + 1; truelight@2381: truelight@2381: FOR_ALL_VEHICLES_FROM(v, index) { rubidium@10207: if (v->owner != _current_company) continue; tron@3033: rubidium@6259: if ((v->type == VEH_TRAIN && v->subtype == 0) || rubidium@6259: v->type == VEH_ROAD || rubidium@6259: (v->type == VEH_AIRCRAFT && IsNormalAircraft(v)) || rubidium@6259: v->type == VEH_SHIP) { truelight@2381: /* replace engine? */ rubidium@6259: if (v->type == VEH_TRAIN && v->engine_type < 3 && rubidium@10207: (_price.build_railvehicle >> 3) < c->money) { rubidium@10207: _companies_ai[c->index].state = AIS_VEH_CHECK_REPLACE_VEHICLE; rubidium@10207: _companies_ai[c->index].cur_veh = v; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: /* not profitable? */ truelight@2381: if (v->age >= 730 && smatz@8614: v->profit_last_year < _price.station_value * 5 * 256 && smatz@8614: v->profit_this_year < _price.station_value * 5 * 256) { rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].state = AIS_SELL_VEHICLE; rubidium@10207: _companies_ai[c->index].cur_veh = v; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: /* not reliable? */ tron@4011: if (v->age >= v->max_age || ( tron@4011: v->age != 0 && tron@4011: GetEngine(v->engine_type)->reliability < 35389 tron@4011: )) { rubidium@10207: _companies_ai[c->index].state = AIS_VEH_CHECK_REPLACE_VEHICLE; rubidium@10207: _companies_ai[c->index].cur_veh = v; truelight@2381: return; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: _companies_ai[c->index].state = AIS_WANT_NEW_ROUTE; rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } truelight@2381: rubidium@6990: static EngineID AiChooseTrainToBuild(RailType railtype, Money money, byte flag, TileIndex tile) truelight@2381: { tron@2544: EngineID best_veh_index = INVALID_ENGINE; truelight@2381: byte best_veh_score = 0; peter1138@9070: const Engine *e; peter1138@9070: peter1138@9070: FOR_ALL_ENGINES_OF_TYPE(e, VEH_TRAIN) { peter1138@9070: EngineID i = e->index; peter1138@9070: const RailVehicleInfo *rvi = &e->u.rail; truelight@2381: tron@5823: if (!IsCompatibleRail(rvi->railtype, railtype) || belugas@5868: rvi->railveh_type == RAILVEH_WAGON || belugas@5868: (rvi->railveh_type == RAILVEH_MULTIHEAD && flag & 1) || rubidium@10207: !HasBit(e->company_avail, _current_company) || tron@2529: e->reliability < 0x8A3D) { truelight@2381: continue; tron@2529: } truelight@2381: peter1138@8449: /* Don't choose an engine designated for passenger use for freight. */ peter1138@8449: if (rvi->ai_passenger_only != 0 && flag == 1) continue; peter1138@8449: peter1138@8389: CommandCost ret = DoCommand(tile, i, 0, 0, CMD_BUILD_RAIL_VEHICLE); rubidium@6950: if (CmdSucceeded(ret) && ret.GetCost() <= money && rvi->ai_rank >= best_veh_score) { peter1138@3022: best_veh_score = rvi->ai_rank; truelight@2381: best_veh_index = i; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: return best_veh_index; truelight@2381: } truelight@2381: rubidium@6990: static EngineID AiChooseRoadVehToBuild(CargoID cargo, Money money, TileIndex tile) truelight@2381: { tron@2544: EngineID best_veh_index = INVALID_ENGINE; peter1138@5029: int32 best_veh_rating = 0; peter1138@9070: const Engine *e; peter1138@9070: peter1138@9070: FOR_ALL_ENGINES_OF_TYPE(e, VEH_ROAD) { peter1138@9070: EngineID i = e->index; peter1138@9070: const RoadVehicleInfo *rvi = &e->u.road; tron@4011: rubidium@10207: if (!HasBit(e->company_avail, _current_company) || e->reliability < 0x8A3D) { truelight@2381: continue; tron@4011: } truelight@2381: peter1138@5016: /* Skip vehicles which can't take our cargo type */ peter1138@5031: if (rvi->cargo_type != cargo && !CanRefitTo(i, cargo)) continue; peter1138@5029: peter1138@5029: /* Rate and compare the engine by speed & capacity */ peter1138@8389: int rating = rvi->max_speed * rvi->capacity; peter1138@5029: if (rating <= best_veh_rating) continue; peter1138@5016: peter1138@8389: CommandCost ret = DoCommand(tile, i, 0, 0, CMD_BUILD_ROAD_VEH); peter1138@5031: if (CmdFailed(ret)) continue; peter1138@5031: peter1138@5031: /* Add the cost of refitting */ rubidium@6950: if (rvi->cargo_type != cargo) ret.AddCost(GetRefitCost(i)); rubidium@6950: if (ret.GetCost() > money) continue; peter1138@5029: peter1138@5029: best_veh_rating = rating; peter1138@5029: best_veh_index = i; tron@3034: } truelight@2381: truelight@2381: return best_veh_index; truelight@2381: } truelight@2381: smatz@8402: /** smatz@8402: * Choose aircraft to build. smatz@8402: * @param money current AI money smatz@8402: * @param forbidden forbidden flags - AIR_HELI = 0 (always allowed), AIR_CTOL = 1 (bit 0), AIR_FAST = 2 (bit 1) smatz@8402: * @return EngineID of aircraft to build smatz@8402: */ smatz@8402: static EngineID AiChooseAircraftToBuild(Money money, byte forbidden) truelight@2381: { tron@2544: EngineID best_veh_index = INVALID_ENGINE; rubidium@6990: Money best_veh_cost = 0; peter1138@9070: const Engine *e; peter1138@9070: peter1138@9070: FOR_ALL_ENGINES_OF_TYPE(e, VEH_AIRCRAFT) { peter1138@9070: EngineID i = e->index; peter1138@9070: const AircraftVehicleInfo *avi = &e->u.air; tron@4011: rubidium@10207: if (!HasBit(e->company_avail, _current_company) || e->reliability < 0x8A3D) { truelight@2381: continue; tron@4011: } tron@4011: peter1138@9070: if ((avi->subtype & forbidden) != 0) continue; truelight@2381: peter1138@8389: CommandCost ret = DoCommand(0, i, 0, DC_QUERY_COST, CMD_BUILD_AIRCRAFT); rubidium@6950: if (CmdSucceeded(ret) && ret.GetCost() <= money && ret.GetCost() >= best_veh_cost) { rubidium@6950: best_veh_cost = ret.GetCost(); truelight@2381: best_veh_index = i; truelight@2381: } tron@3034: } truelight@2381: truelight@2381: return best_veh_index; truelight@2381: } truelight@2381: rubidium@10207: static Money AiGetBasePrice(const Company *c) truelight@2381: { rubidium@6990: Money base = _price.station_value; truelight@2381: truelight@2381: // adjust base price when more expensive vehicles are available rubidium@10207: switch (_companies_ai[c->index].railtype_to_use) { tron@3966: default: NOT_REACHED(); tron@3966: case RAILTYPE_RAIL: break; tron@3966: case RAILTYPE_ELECTRIC: break; tron@3966: case RAILTYPE_MONO: base = (base * 3) >> 1; break; tron@3966: case RAILTYPE_MAGLEV: base *= 2; break; tron@3033: } truelight@2381: truelight@2381: return base; truelight@2381: } truelight@2381: rubidium@10207: static EngineID AiChooseRoadVehToReplaceWith(const Company *c, const Vehicle *v) truelight@2381: { rubidium@10207: Money avail_money = c->money + v->value; truelight@2381: return AiChooseRoadVehToBuild(v->cargo_type, avail_money, v->tile); truelight@2381: } truelight@2381: rubidium@10207: static EngineID AiChooseAircraftToReplaceWith(const Company *c, const Vehicle *v) truelight@2381: { rubidium@10207: Money avail_money = c->money + v->value; smatz@8402: smatz@8402: /* determine forbidden aircraft bits */ smatz@8402: byte forbidden = 0; smatz@8402: const Order *o; smatz@8402: smatz@8402: FOR_VEHICLE_ORDERS(v, o) { smatz@8402: if (!o->IsValid()) continue; rubidium@8840: if (!IsValidStationID(o->GetDestination())) continue; rubidium@8840: const Station *st = GetStation(o->GetDestination()); smatz@8402: if (!(st->facilities & FACIL_AIRPORT)) continue; smatz@8402: smatz@8402: AirportFTAClass::Flags flags = st->Airport()->flags; smatz@8402: if (!(flags & AirportFTAClass::AIRPLANES)) forbidden |= AIR_CTOL | AIR_FAST; // no planes for heliports / oil rigs smatz@8402: if (flags & AirportFTAClass::SHORT_STRIP) forbidden |= AIR_FAST; // no fast planes for small airports smatz@8402: } smatz@8402: tron@4024: return AiChooseAircraftToBuild( smatz@8402: avail_money, forbidden tron@4024: ); truelight@2381: } truelight@2381: rubidium@10207: static EngineID AiChooseTrainToReplaceWith(const Company *c, const Vehicle *v) truelight@2381: { rubidium@10207: Money avail_money = c->money + v->value; rubidium@10207: const Vehicle *u = v; tron@4011: int num = 0; truelight@2381: rubidium@7492: while (++num, u->Next() != NULL) { rubidium@7492: u = u->Next(); truelight@2381: } truelight@2381: truelight@2381: // XXX: check if a wagon truelight@2381: return AiChooseTrainToBuild(v->u.rail.railtype, avail_money, 0, v->tile); truelight@2381: } truelight@2381: smatz@10225: static EngineID AiChooseShipToReplaceWith(const Company *c, const Vehicle *v) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ tron@2544: return INVALID_ENGINE; truelight@2381: } truelight@2381: rubidium@10207: static void AiHandleGotoDepot(Company *c, int cmd) truelight@2381: { rubidium@10207: if (!_companies_ai[c->index].cur_veh->current_order.IsType(OT_GOTO_DEPOT)) rubidium@10207: DoCommand(0, _companies_ai[c->index].cur_veh->index, 0, DC_EXEC, cmd); rubidium@10207: rubidium@10207: if (++_companies_ai[c->index].state_counter <= 1387) { rubidium@10207: _companies_ai[c->index].state = AIS_VEH_DO_REPLACE_VEHICLE; truelight@2381: return; truelight@2381: } truelight@2381: rubidium@10207: if (_companies_ai[c->index].cur_veh->current_order.IsType(OT_GOTO_DEPOT)) { rubidium@10207: _companies_ai[c->index].cur_veh->current_order.MakeDummy(); rubidium@10207: InvalidateWindow(WC_VEHICLE_VIEW, _companies_ai[c->index].cur_veh->index); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiRestoreVehicleOrders(Vehicle *v, BackuppedOrders *bak) truelight@2381: { rubidium@8322: if (bak->order == NULL) return; rubidium@8322: rubidium@8836: for (uint i = 0; !bak->order[i].IsType(OT_NOTHING); i++) { rubidium@8839: if (!DoCommandP(0, v->index + (i << 16), bak->order[i].Pack(), NULL, CMD_INSERT_ORDER | CMD_NO_TEST_IF_IN_NETWORK)) truelight@2381: break; tron@2639: } truelight@2381: } truelight@2381: rubidium@10207: static void AiHandleReplaceTrain(Company *c) truelight@2381: { rubidium@10207: const Vehicle* v = _companies_ai[c->index].cur_veh; rubidium@7653: BackuppedOrders orderbak; tron@2544: EngineID veh; truelight@2381: truelight@2381: // wait until the vehicle reaches the depot. smatz@8961: if (!IsRailDepotTile(v->tile) || v->u.rail.track != TRACK_BIT_DEPOT || !(v->vehstatus & VS_STOPPED)) { rubidium@10207: AiHandleGotoDepot(c, CMD_SEND_TRAIN_TO_DEPOT); truelight@2381: return; truelight@2381: } truelight@2381: rubidium@10207: veh = AiChooseTrainToReplaceWith(c, v); tron@2544: if (veh != INVALID_ENGINE) { truelight@2381: TileIndex tile; truelight@2381: rubidium@7653: BackupVehicleOrders(v, &orderbak); truelight@2381: tile = v->tile; truelight@2381: rubidium@6946: if (CmdSucceeded(DoCommand(0, v->index, 2, DC_EXEC, CMD_SELL_RAIL_WAGON)) && rubidium@6946: CmdSucceeded(DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_RAIL_VEHICLE))) { tron@3948: VehicleID veh = _new_vehicle_id; rubidium@7653: AiRestoreVehicleOrders(GetVehicle(veh), &orderbak); frosch@9921: DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_VEHICLE); tron@3491: tron@3491: DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiHandleReplaceRoadVeh(Company *c) truelight@2381: { rubidium@10207: const Vehicle* v = _companies_ai[c->index].cur_veh; rubidium@8322: BackuppedOrders orderbak; tron@2544: EngineID veh; truelight@2381: rubidium@7490: if (!v->IsStoppedInDepot()) { rubidium@10207: AiHandleGotoDepot(c, CMD_SEND_ROADVEH_TO_DEPOT); truelight@2381: return; truelight@2381: } truelight@2381: rubidium@10207: veh = AiChooseRoadVehToReplaceWith(c, v); tron@2544: if (veh != INVALID_ENGINE) { truelight@2381: TileIndex tile; truelight@2381: rubidium@8322: BackupVehicleOrders(v, &orderbak); truelight@2381: tile = v->tile; truelight@2381: rubidium@6946: if (CmdSucceeded(DoCommand(0, v->index, 0, DC_EXEC, CMD_SELL_ROAD_VEH)) && rubidium@6946: CmdSucceeded(DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_ROAD_VEH))) { tron@3948: VehicleID veh = _new_vehicle_id; tron@4000: rubidium@8322: AiRestoreVehicleOrders(GetVehicle(veh), &orderbak); frosch@9921: DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_VEHICLE); tron@3491: DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiHandleReplaceAircraft(Company *c) truelight@2381: { rubidium@10207: const Vehicle* v = _companies_ai[c->index].cur_veh; rubidium@8322: BackuppedOrders orderbak; tron@2544: EngineID veh; truelight@2381: rubidium@7490: if (!v->IsStoppedInDepot()) { rubidium@10207: AiHandleGotoDepot(c, CMD_SEND_AIRCRAFT_TO_HANGAR); truelight@2381: return; truelight@2381: } truelight@2381: rubidium@10207: veh = AiChooseAircraftToReplaceWith(c, v); tron@2544: if (veh != INVALID_ENGINE) { truelight@2381: TileIndex tile; truelight@2381: rubidium@8322: BackupVehicleOrders(v, &orderbak); truelight@2381: tile = v->tile; truelight@2381: rubidium@6946: if (CmdSucceeded(DoCommand(0, v->index, 0, DC_EXEC, CMD_SELL_AIRCRAFT)) && rubidium@6946: CmdSucceeded(DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_AIRCRAFT))) { tron@3948: VehicleID veh = _new_vehicle_id; rubidium@8322: AiRestoreVehicleOrders(GetVehicle(veh), &orderbak); frosch@9921: DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_VEHICLE); tron@3491: tron@3491: DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiHandleReplaceShip(Company *c) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: rubidium@10207: typedef EngineID CheckReplaceProc(const Company *c, const Vehicle* v); truelight@2381: tron@3033: static CheckReplaceProc* const _veh_check_replace_proc[] = { truelight@2381: AiChooseTrainToReplaceWith, truelight@2381: AiChooseRoadVehToReplaceWith, truelight@2381: AiChooseShipToReplaceWith, truelight@2381: AiChooseAircraftToReplaceWith, truelight@2381: }; truelight@2381: rubidium@10207: typedef void DoReplaceProc(Company *c); tron@3033: static DoReplaceProc* const _veh_do_replace_proc[] = { truelight@2381: AiHandleReplaceTrain, truelight@2381: AiHandleReplaceRoadVeh, truelight@2381: AiHandleReplaceShip, truelight@2381: AiHandleReplaceAircraft truelight@2381: }; truelight@2381: rubidium@10207: static void AiStateCheckReplaceVehicle(Company *c) truelight@2381: { rubidium@10207: const Vehicle* v = _companies_ai[c->index].cur_veh; truelight@2381: rubidium@7387: if (!v->IsValid() || rubidium@10207: v->owner != _current_company || rubidium@6259: v->type > VEH_SHIP || rubidium@10207: _veh_check_replace_proc[v->type - VEH_TRAIN](c, v) == INVALID_ENGINE) { rubidium@10207: _companies_ai[c->index].state = AIS_VEH_LOOP; truelight@2381: } else { rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].state = AIS_VEH_DO_REPLACE_VEHICLE; truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiStateDoReplaceVehicle(Company *c) truelight@2381: { rubidium@10207: const Vehicle* v = _companies_ai[c->index].cur_veh; rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_VEH_LOOP; rubidium@10207: // vehicle is not owned by the company anymore, something went very wrong. rubidium@10207: if (!v->IsValid() || v->owner != _current_company) return; rubidium@10207: _veh_do_replace_proc[v->type - VEH_TRAIN](c); truelight@2381: } truelight@2381: rubidium@6248: struct FoundRoute { truelight@2381: int distance; Darkvater@3344: CargoID cargo; truelight@2381: void *from; truelight@2381: void *to; rubidium@6248: }; truelight@2381: rubidium@6247: static Town *AiFindRandomTown() truelight@2381: { truelight@4356: return GetRandomTown(); truelight@2381: } truelight@2381: rubidium@6247: static Industry *AiFindRandomIndustry() truelight@2381: { celestar@6314: int num = RandomRange(GetMaxIndustryIndex()); rubidium@7390: if (IsValidIndustryID(num)) return GetIndustry(num); celestar@6314: celestar@6314: return NULL; truelight@2381: } truelight@2381: truelight@2381: static void AiFindSubsidyIndustryRoute(FoundRoute *fr) truelight@2381: { truelight@2381: uint i; Darkvater@3344: CargoID cargo; tron@4011: const Subsidy* s; tron@4011: Industry* from; truelight@2381: TileIndex to_xy; truelight@2381: truelight@2381: // initially error truelight@2381: fr->distance = -1; truelight@2381: truelight@2381: // Randomize subsidy index.. truelight@2381: i = RandomRange(lengthof(_subsidies) * 3); tron@3033: if (i >= lengthof(_subsidies)) return; truelight@2381: truelight@2381: s = &_subsidies[i]; truelight@2381: truelight@2381: // Don't want passengers or mail truelight@2381: cargo = s->cargo_type; tron@4011: if (cargo == CT_INVALID || tron@4011: cargo == CT_PASSENGERS || tron@4011: cargo == CT_MAIL || tron@4011: s->age > 7) { truelight@2381: return; tron@4011: } truelight@2381: fr->cargo = cargo; truelight@2381: truelight@2381: fr->from = from = GetIndustry(s->from); truelight@2381: truelight@2381: if (cargo == CT_GOODS || cargo == CT_FOOD) { tron@4011: Town* to_tow = GetTown(s->to); tron@4011: KUDr@4015: if (to_tow->population < (cargo == CT_FOOD ? 200U : 900U)) return; // error truelight@2381: fr->to = to_tow; truelight@2381: to_xy = to_tow->xy; truelight@2381: } else { tron@4011: Industry* to_ind = GetIndustry(s->to); tron@4011: truelight@2381: fr->to = to_ind; truelight@2381: to_xy = to_ind->xy; truelight@2381: } truelight@2381: truelight@2381: fr->distance = DistanceManhattan(from->xy, to_xy); truelight@2381: } truelight@2381: truelight@2381: static void AiFindSubsidyPassengerRoute(FoundRoute *fr) truelight@2381: { truelight@2381: uint i; tron@4011: const Subsidy* s; rubidium@6491: Town *from, *to; truelight@2381: truelight@2381: // initially error truelight@2381: fr->distance = -1; truelight@2381: truelight@2381: // Randomize subsidy index.. truelight@2381: i = RandomRange(lengthof(_subsidies) * 3); tron@3033: if (i >= lengthof(_subsidies)) return; truelight@2381: truelight@2381: s = &_subsidies[i]; truelight@2381: truelight@2381: // Only want passengers tron@3033: if (s->cargo_type != CT_PASSENGERS || s->age > 7) return; truelight@2381: fr->cargo = s->cargo_type; truelight@2381: truelight@2381: fr->from = from = GetTown(s->from); truelight@2381: fr->to = to = GetTown(s->to); truelight@2381: truelight@2381: // They must be big enough tron@3033: if (from->population < 400 || to->population < 400) return; truelight@2381: truelight@2381: fr->distance = DistanceManhattan(from->xy, to->xy); truelight@2381: } truelight@2381: truelight@2381: static void AiFindRandomIndustryRoute(FoundRoute *fr) truelight@2381: { tron@4011: Industry* i; truelight@2381: uint32 r; Darkvater@3344: CargoID cargo; truelight@2381: truelight@2381: // initially error truelight@2381: fr->distance = -1; truelight@2381: truelight@2381: r = Random(); truelight@2381: truelight@2381: // pick a source truelight@2381: fr->from = i = AiFindRandomIndustry(); tron@3033: if (i == NULL) return; truelight@2381: truelight@2381: // pick a random produced cargo glx@7645: cargo = i->produced_cargo[0]; glx@7645: if (r & 1 && i->produced_cargo[1] != CT_INVALID) cargo = i->produced_cargo[1]; truelight@2381: truelight@2381: fr->cargo = cargo; truelight@2381: truelight@2381: // don't allow passengers tron@4011: if (cargo == CT_INVALID || cargo == CT_PASSENGERS) return; truelight@2381: truelight@2381: if (cargo != CT_GOODS && cargo != CT_FOOD) { truelight@2381: // pick a dest, and see if it can receive tron@4011: Industry* i2 = AiFindRandomIndustry(); glx@7645: if (i2 == NULL || i == i2 || glx@7645: (i2->accepts_cargo[0] != cargo && glx@7645: i2->accepts_cargo[1] != cargo && glx@7645: i2->accepts_cargo[2] != cargo)) { truelight@2381: return; tron@4011: } truelight@2381: truelight@2381: fr->to = i2; truelight@2381: fr->distance = DistanceManhattan(i->xy, i2->xy); truelight@2381: } else { truelight@2381: // pick a dest town, and see if it's big enough tron@4011: Town* t = AiFindRandomTown(); tron@4011: KUDr@4015: if (t == NULL || t->population < (cargo == CT_FOOD ? 200U : 900U)) return; truelight@2381: truelight@2381: fr->to = t; truelight@2381: fr->distance = DistanceManhattan(i->xy, t->xy); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiFindRandomPassengerRoute(FoundRoute *fr) truelight@2381: { tron@3033: Town* source; tron@3033: Town* dest; truelight@2381: truelight@2381: // initially error truelight@2381: fr->distance = -1; truelight@2381: truelight@2381: fr->from = source = AiFindRandomTown(); tron@3033: if (source == NULL || source->population < 400) return; truelight@2381: truelight@2381: fr->to = dest = AiFindRandomTown(); tron@3033: if (dest == NULL || source == dest || dest->population < 400) return; truelight@2381: truelight@2381: fr->distance = DistanceManhattan(source->xy, dest->xy); truelight@2381: } truelight@2381: truelight@2381: // Warn: depends on 'xy' being the first element in both Town and Industry truelight@2381: #define GET_TOWN_OR_INDUSTRY_TILE(p) (((Town*)(p))->xy) truelight@2381: rubidium@10207: static bool AiCheckIfRouteIsGood(Company *c, FoundRoute *fr, byte bitmask) truelight@2381: { truelight@2381: TileIndex from_tile, to_tile; truelight@2381: Station *st; tron@4011: int dist; truelight@2381: uint same_station = 0; truelight@2381: truelight@2381: from_tile = GET_TOWN_OR_INDUSTRY_TILE(fr->from); truelight@2381: to_tile = GET_TOWN_OR_INDUSTRY_TILE(fr->to); truelight@2381: truelight@2381: dist = 0xFFFF; tron@4011: FOR_ALL_STATIONS(st) { tron@4011: int cur; tron@4011: rubidium@10207: if (st->owner != _current_company) continue; truelight@2381: cur = DistanceMax(from_tile, st->xy); truelight@2381: if (cur < dist) dist = cur; truelight@2381: cur = DistanceMax(to_tile, st->xy); truelight@2381: if (cur < dist) dist = cur; tron@3033: if (to_tile == from_tile && st->xy == to_tile) same_station++; truelight@2381: } truelight@2381: truelight@2381: // To prevent the AI from building ten busstations in the same town, do some calculations truelight@2381: // For each road or airport station, we want 350 of population! tron@3033: if ((bitmask == 2 || bitmask == 4) && tron@3033: same_station > 2 && tron@4011: ((Town*)fr->from)->population < same_station * 350) { truelight@2381: return false; tron@3033: } tron@3033: rubidium@6858: /* Requiring distance to nearest station to be always under 37 tiles may be suboptimal, rubidium@6858: * Especially for longer aircraft routes that start and end pretty at any arbitrary place on map rubidium@6858: * While it may be nice for AI to cluster their creations together, hardcoded limit is not ideal. rubidium@6858: * If AI will randomly start on some isolated spot, it will never get out of there. rubidium@6858: * AI will have chance of randomly rejecting routes further than 37 tiles from their network, rubidium@6858: * so there will be some attempt to cluster the network together */ rubidium@6858: rubidium@6858: /* Random value between 37 and 292. Low values are exponentially more likely rubidium@6858: * With 50% chance the value will be under 52 tiles */ rubidium@6866: int min_distance = 36 + (1 << (Random() % 9)); // 0..8 rubidium@6858: rubidium@6858: /* Make sure distance to closest station is < min_distance tiles. */ rubidium@6858: if (dist != 0xFFFF && dist > min_distance) return false; tron@3033: rubidium@10207: if (_companies_ai[c->index].route_type_mask != 0 && rubidium@10207: !(_companies_ai[c->index].route_type_mask & bitmask) && skidd13@7967: !Chance16(1, 5)) { truelight@2381: return false; tron@3033: } truelight@2381: truelight@2381: if (fr->cargo == CT_PASSENGERS || fr->cargo == CT_MAIL) { rubidium@5587: const Town* from = (const Town*)fr->from; rubidium@5587: const Town* to = (const Town*)fr->to; tron@4011: tron@4011: if (from->pct_pass_transported > 0x99 || tron@4011: to->pct_pass_transported > 0x99) { truelight@2381: return false; tron@4011: } truelight@2381: truelight@2381: // Make sure it has a reasonably good rating rubidium@10207: if (from->ratings[_current_company] < -100 || rubidium@10207: to->ratings[_current_company] < -100) { truelight@2381: return false; tron@4011: } truelight@2381: } else { tron@3033: const Industry* i = (const Industry*)fr->from; glx@7645: glx@7645: if (i->last_month_pct_transported[fr->cargo != i->produced_cargo[0]] > 0x99 || glx@7645: i->last_month_production[fr->cargo != i->produced_cargo[0]] == 0) { truelight@2381: return false; tron@4011: } truelight@2381: } truelight@2381: rubidium@10207: _companies_ai[c->index].route_type_mask |= bitmask; truelight@2381: return true; truelight@2381: } truelight@2381: truelight@2381: static byte AiGetDirectionBetweenTiles(TileIndex a, TileIndex b) truelight@2381: { truelight@2381: byte i = (TileX(a) < TileX(b)) ? 1 : 0; truelight@2381: if (TileY(a) >= TileY(b)) i ^= 3; truelight@2381: return i; truelight@2381: } truelight@2381: truelight@2381: static TileIndex AiGetPctTileBetween(TileIndex a, TileIndex b, byte pct) truelight@2381: { truelight@2381: return TileXY( truelight@2381: TileX(a) + ((TileX(b) - TileX(a)) * pct >> 8), truelight@2381: TileY(a) + ((TileY(b) - TileY(a)) * pct >> 8) truelight@2381: ); truelight@2381: } truelight@2381: rubidium@10207: static void AiWantLongIndustryRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 60, 90 + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 60, 90 + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 9; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.unk6 = 1; rubidium@10207: _companies_ai[c->index].src.unk7 = 0; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 0x24; rubidium@10207: _companies_ai[c->index].src.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].src.direction = AiGetDirectionBetweenTiles( rubidium@10207: _companies_ai[c->index].src.spec_tile, rubidium@10207: _companies_ai[c->index].dst.spec_tile tron@2639: ); rubidium@10207: _companies_ai[c->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field truelight@2381: rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 9; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.unk6 = 1; rubidium@10207: _companies_ai[c->index].dst.unk7 = 0; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0x34; rubidium@10207: _companies_ai[c->index].dst.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = AiGetDirectionBetweenTiles( rubidium@10207: _companies_ai[c->index].dst.spec_tile, rubidium@10207: _companies_ai[c->index].src.spec_tile tron@2639: ); rubidium@10207: _companies_ai[c->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill middle field 1 rubidium@10207: _companies_ai[c->index].mid1.spec_tile = AiGetPctTileBetween( rubidium@10207: _companies_ai[c->index].src.spec_tile, rubidium@10207: _companies_ai[c->index].dst.spec_tile, tron@2639: 0x55 tron@2639: ); rubidium@10207: _companies_ai[c->index].mid1.use_tile = 0; rubidium@10207: _companies_ai[c->index].mid1.rand_rng = 6; rubidium@10207: _companies_ai[c->index].mid1.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].mid1.unk6 = 2; rubidium@10207: _companies_ai[c->index].mid1.unk7 = 1; rubidium@10207: _companies_ai[c->index].mid1.buildcmd_a = 0x30; rubidium@10207: _companies_ai[c->index].mid1.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].mid1.direction = _companies_ai[c->index].src.direction; rubidium@10207: _companies_ai[c->index].mid1.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill middle field 2 rubidium@10207: _companies_ai[c->index].mid2.spec_tile = AiGetPctTileBetween( rubidium@10207: _companies_ai[c->index].src.spec_tile, rubidium@10207: _companies_ai[c->index].dst.spec_tile, tron@2639: 0xAA tron@2639: ); rubidium@10207: _companies_ai[c->index].mid2.use_tile = 0; rubidium@10207: _companies_ai[c->index].mid2.rand_rng = 6; rubidium@10207: _companies_ai[c->index].mid2.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].mid2.unk6 = 2; rubidium@10207: _companies_ai[c->index].mid2.unk7 = 1; rubidium@10207: _companies_ai[c->index].mid2.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].mid2.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].mid2.direction = _companies_ai[c->index].dst.direction; rubidium@10207: _companies_ai[c->index].mid2.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = fr.cargo; rubidium@10207: _companies_ai[c->index].num_wagons = 3; rubidium@10207: _companies_ai[c->index].build_kind = 2; rubidium@10207: _companies_ai[c->index].num_build_rec = 4; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 2; rubidium@10207: _companies_ai[c->index].num_want_fullload = 2; rubidium@10207: _companies_ai[c->index].wagon_list[0] = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantMediumIndustryRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 40, 60 + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 40, 60 + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 9; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.unk6 = 1; rubidium@10207: _companies_ai[c->index].src.unk7 = 0; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 0x10; rubidium@10207: _companies_ai[c->index].src.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].src.direction = AiGetDirectionBetweenTiles( tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.from), tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.to) tron@3033: ); rubidium@10207: _companies_ai[c->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 9; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.unk6 = 1; rubidium@10207: _companies_ai[c->index].dst.unk7 = 0; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].dst.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = AiGetDirectionBetweenTiles( tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.to), tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.from) tron@3033: ); rubidium@10207: _companies_ai[c->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = fr.cargo; rubidium@10207: _companies_ai[c->index].num_wagons = 3; rubidium@10207: _companies_ai[c->index].build_kind = 1; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 1; rubidium@10207: _companies_ai[c->index].num_want_fullload = 1; rubidium@10207: _companies_ai[c->index].wagon_list[0] = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantShortIndustryRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 15, 40 + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 15, 40 + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 9; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.unk6 = 1; rubidium@10207: _companies_ai[c->index].src.unk7 = 0; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 0x10; rubidium@10207: _companies_ai[c->index].src.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].src.direction = AiGetDirectionBetweenTiles( tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.from), tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.to) tron@3033: ); rubidium@10207: _companies_ai[c->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 9; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.unk6 = 1; rubidium@10207: _companies_ai[c->index].dst.unk7 = 0; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].dst.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = AiGetDirectionBetweenTiles( tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.to), tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.from) tron@3033: ); rubidium@10207: _companies_ai[c->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = fr.cargo; rubidium@10207: _companies_ai[c->index].num_wagons = 2; rubidium@10207: _companies_ai[c->index].build_kind = 1; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 1; rubidium@10207: _companies_ai[c->index].num_want_fullload = 1; rubidium@10207: _companies_ai[c->index].wagon_list[0] = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantMailRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyPassengerRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 60, 110 + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomPassengerRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 60, 110 + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: truelight@2381: fr.cargo = CT_MAIL; rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 7; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.unk6 = 1; rubidium@10207: _companies_ai[c->index].src.unk7 = 0; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 0x24; rubidium@10207: _companies_ai[c->index].src.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].src.direction = AiGetDirectionBetweenTiles( tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.from), tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.to) tron@3033: ); rubidium@10207: _companies_ai[c->index].src.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 7; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.unk6 = 1; rubidium@10207: _companies_ai[c->index].dst.unk7 = 0; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0x34; rubidium@10207: _companies_ai[c->index].dst.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = AiGetDirectionBetweenTiles( tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.to), tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.from) tron@3033: ); rubidium@10207: _companies_ai[c->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill middle field 1 rubidium@10207: _companies_ai[c->index].mid1.spec_tile = AiGetPctTileBetween( tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.from), tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.to), tron@3033: 0x55 tron@3033: ); rubidium@10207: _companies_ai[c->index].mid1.use_tile = 0; rubidium@10207: _companies_ai[c->index].mid1.rand_rng = 6; rubidium@10207: _companies_ai[c->index].mid1.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].mid1.unk6 = 2; rubidium@10207: _companies_ai[c->index].mid1.unk7 = 1; rubidium@10207: _companies_ai[c->index].mid1.buildcmd_a = 0x30; rubidium@10207: _companies_ai[c->index].mid1.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].mid1.direction = _companies_ai[c->index].src.direction; rubidium@10207: _companies_ai[c->index].mid1.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill middle field 2 rubidium@10207: _companies_ai[c->index].mid2.spec_tile = AiGetPctTileBetween( tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.from), tron@3033: GET_TOWN_OR_INDUSTRY_TILE(fr.to), tron@3033: 0xAA tron@3033: ); rubidium@10207: _companies_ai[c->index].mid2.use_tile = 0; rubidium@10207: _companies_ai[c->index].mid2.rand_rng = 6; rubidium@10207: _companies_ai[c->index].mid2.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].mid2.unk6 = 2; rubidium@10207: _companies_ai[c->index].mid2.unk7 = 1; rubidium@10207: _companies_ai[c->index].mid2.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].mid2.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].mid2.direction = _companies_ai[c->index].dst.direction; rubidium@10207: _companies_ai[c->index].mid2.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = fr.cargo; rubidium@10207: _companies_ai[c->index].num_wagons = 3; rubidium@10207: _companies_ai[c->index].build_kind = 2; rubidium@10207: _companies_ai[c->index].num_build_rec = 4; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 2; rubidium@10207: _companies_ai[c->index].num_want_fullload = 0; rubidium@10207: _companies_ai[c->index].wagon_list[0] = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantPassengerRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyPassengerRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 0, 55 + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomPassengerRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 0, 55 + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: truelight@2381: fr.cargo = CT_PASSENGERS; rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 7; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.unk6 = 1; rubidium@10207: _companies_ai[c->index].src.unk7 = 0; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 0x10; rubidium@10207: _companies_ai[c->index].src.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].src.direction = AiGetDirectionBetweenTiles( tron@2639: GET_TOWN_OR_INDUSTRY_TILE(fr.from), tron@2639: GET_TOWN_OR_INDUSTRY_TILE(fr.to) tron@2639: ); rubidium@10207: _companies_ai[c->index].src.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 7; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.unk6 = 1; rubidium@10207: _companies_ai[c->index].dst.unk7 = 0; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].dst.buildcmd_b = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = AiGetDirectionBetweenTiles( tron@2639: GET_TOWN_OR_INDUSTRY_TILE(fr.to), tron@2639: GET_TOWN_OR_INDUSTRY_TILE(fr.from) tron@2639: ); rubidium@10207: _companies_ai[c->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = fr.cargo; rubidium@10207: _companies_ai[c->index].num_wagons = 2; rubidium@10207: _companies_ai[c->index].build_kind = 1; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 1; rubidium@10207: _companies_ai[c->index].num_want_fullload = 0; rubidium@10207: _companies_ai[c->index].wagon_list[0] = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantTrainRoute(Company *c) truelight@2381: { tron@2635: uint16 r = GB(Random(), 0, 16); tron@2635: rubidium@10207: _companies_ai[c->index].railtype_to_use = GetBestRailtype(c->index); truelight@2381: truelight@2381: if (r > 0xD000) { rubidium@10207: AiWantLongIndustryRoute(c); truelight@2381: } else if (r > 0x6000) { rubidium@10207: AiWantMediumIndustryRoute(c); truelight@2381: } else if (r > 0x1000) { rubidium@10207: AiWantShortIndustryRoute(c); truelight@2381: } else if (r > 0x800) { rubidium@10207: AiWantPassengerRoute(c); truelight@2381: } else { rubidium@10207: AiWantMailRoute(c); truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiWantLongRoadIndustryRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 35, 55 + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 35, 55 + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 2)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 9; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 1; rubidium@10207: _companies_ai[c->index].src.direction = 0; rubidium@10207: _companies_ai[c->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 9; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = 0; rubidium@10207: _companies_ai[c->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = fr.cargo; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 5; rubidium@10207: _companies_ai[c->index].num_want_fullload = 5; rubidium@10207: rubidium@10207: // _companies_ai[c->index].loco_id = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_ROAD_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantMediumRoadIndustryRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 15, 40 + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomIndustryRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 15, 40 + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 2)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 9; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 1; rubidium@10207: _companies_ai[c->index].src.direction = 0; rubidium@10207: _companies_ai[c->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 9; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = 0; rubidium@10207: _companies_ai[c->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = fr.cargo; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 3; rubidium@10207: _companies_ai[c->index].num_want_fullload = 3; rubidium@10207: rubidium@10207: // _companies_ai[c->index].loco_id = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_ROAD_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantLongRoadPassengerRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyPassengerRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 55, 180 + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomPassengerRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, 55, 180 + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: truelight@2381: fr.cargo = CT_PASSENGERS; truelight@2381: rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 2)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 10; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 1; rubidium@10207: _companies_ai[c->index].src.direction = 0; rubidium@10207: _companies_ai[c->index].src.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 10; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = 0; rubidium@10207: _companies_ai[c->index].dst.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = CT_PASSENGERS; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 4; rubidium@10207: _companies_ai[c->index].num_want_fullload = 0; rubidium@10207: rubidium@10207: // _companies_ai[c->index].loco_id = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_ROAD_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantPassengerRouteInsideTown(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: Town *t; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // Find a town big enough truelight@2381: t = AiFindRandomTown(); tron@3033: if (t != NULL && t->population >= 700) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: truelight@2381: fr.cargo = CT_PASSENGERS; truelight@2381: fr.from = fr.to = t; truelight@2381: rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 2)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = t->xy; rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 10; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.buildcmd_a = 1; rubidium@10207: _companies_ai[c->index].src.direction = 0; rubidium@10207: _companies_ai[c->index].src.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = t->xy; rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 10; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.buildcmd_a = 0xFF; rubidium@10207: _companies_ai[c->index].dst.direction = 0; rubidium@10207: _companies_ai[c->index].dst.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = CT_PASSENGERS; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 2; rubidium@10207: _companies_ai[c->index].num_want_fullload = 0; rubidium@10207: rubidium@10207: // _companies_ai[c->index].loco_id = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_ROAD_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = UCHAR_MAX; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantRoadRoute(Company *c) truelight@2381: { tron@2635: uint16 r = GB(Random(), 0, 16); truelight@2381: truelight@2381: if (r > 0x4000) { rubidium@10207: AiWantLongRoadIndustryRoute(c); truelight@2381: } else if (r > 0x2000) { rubidium@10207: AiWantMediumRoadIndustryRoute(c); truelight@2381: } else if (r > 0x1000) { rubidium@10207: AiWantLongRoadPassengerRoute(c); truelight@2381: } else { rubidium@10207: AiWantPassengerRouteInsideTown(c); truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiWantPassengerAircraftRoute(Company *c) truelight@2381: { truelight@2381: FoundRoute fr; truelight@2381: int i; truelight@2381: rubidium@6858: /* Get aircraft that would be bought for this route rubidium@6858: * (probably, as conditions may change before the route is fully built, rubidium@6858: * like running out of money and having to select different aircraft, etc ...) */ rubidium@10207: EngineID veh = AiChooseAircraftToBuild(c->money, _companies_ai[c->index].build_kind != 0 ? AIR_CTOL : 0); rubidium@6858: rubidium@6858: /* No aircraft buildable mean no aircraft route */ rubidium@6858: if (veh == INVALID_ENGINE) return; rubidium@6858: rubidium@6858: const AircraftVehicleInfo *avi = AircraftVehInfo(veh); rubidium@6858: rubidium@6858: /* For passengers, "optimal" number of days in transit is about 80 to 100 rubidium@6858: * Calculate "maximum optimal number of squares" from speed for 80 days rubidium@6858: * 20 days should be enough for takeoff, land, taxi, etc ... rubidium@6858: * rubidium@6858: * "A vehicle traveling at 100kph will cross 5.6 tiles per day" -> rubidium@6858: * Since in table aircraft speeds are in "real km/h", this should be accurate rubidium@6858: * We get max_squares = avi->max_speed * 5.6 / 100.0 * 80 */ rubidium@6858: int max_squares = avi->max_speed * 448 / 100; rubidium@6858: rubidium@6858: /* For example this will be 10456 tiles for 2334 km/h aircrafts with realistic aircraft speeds rubidium@6858: * and 836 with "unrealistic" speeds, much more than the original 95 squares limit rubidium@6858: * rubidium@6858: * Size of the map, if not rectangular, it is the larger dimension of it rubidium@6858: */ rubidium@6858: int map_size = max(MapSizeX(), MapSizeY()); rubidium@6858: rubidium@6858: /* Minimum distance between airports is half of map size, clamped between 1% and 20% of optimum. rubidium@6858: * May prevent building plane routes at all on small maps, but they will be ineffective there, so rubidium@6858: * it is feature, not a bug. rubidium@6858: * On smaller distances, buses or trains are usually more effective approach anyway. rubidium@6858: * Additional safeguard is needing at least 20 squares, rubidium@6858: * which may trigger in highly unusual configurations */ rubidium@6858: int min_squares = max(20, max(max_squares / 100, min(max_squares / 5, map_size / 2))); rubidium@6858: rubidium@6858: /* Should not happen, unless aircraft with real speed under approx. 5 km/h is selected. rubidium@6858: * No such exist, unless using some NewGRF with ballons, zeppelins or similar rubidium@6858: * slow-moving stuff. In that case, bail out, it is faster to walk by foot anyway :). */ rubidium@6858: if (max_squares < min_squares) return; rubidium@6858: truelight@2381: i = 60; tron@2952: for (;;) { rubidium@6858: truelight@2381: // look for one from the subsidy list truelight@2381: AiFindSubsidyPassengerRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, min_squares, max_squares + 1)) break; truelight@2381: truelight@2381: // try a random one truelight@2381: AiFindRandomPassengerRoute(&fr); skidd13@7954: if (IsInsideMM(fr.distance, min_squares, max_squares + 1)) break; truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: truelight@2381: fr.cargo = CT_PASSENGERS; rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 4)) return; truelight@2381: truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 12; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 12; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = fr.cargo; rubidium@10207: _companies_ai[c->index].build_kind = 0; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 1; rubidium@6858: /* Using full load always may not be the best. rubidium@6858: * Pick random value and rely on selling the vehicle & route rubidium@6858: * afterwards if the choice was utterly wrong (or maybe altering the value if AI is improved) rubidium@6858: * When traffic is very low or very assymetric, is is better not to full load rubidium@6858: * When traffic is high, full/non-full make no difference rubidium@6858: * It should be better to run with aircraft only one way full 6 times per year, rubidium@6858: * rather than two way full 1 times. rubidium@6858: * Practical experiments with AI show that the non-full-load aircrafts are usually rubidium@6858: * those that survive rubidium@6858: * Also, non-full load is more resistant against starving (by building better stations rubidium@6858: * or using exclusive rights) rubidium@6858: */ rubidium@10207: _companies_ai[c->index].num_want_fullload = Chance16(1, 5); // 20% chance rubidium@10207: // _companies_ai[c->index].loco_id = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_AIRPORT_STUFF; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantOilRigAircraftRoute(Company *c) truelight@2381: { truelight@2381: int i; truelight@2381: FoundRoute fr; truelight@2381: Town *t; truelight@2381: Industry *in; truelight@2381: truelight@2381: i = 60; tron@2952: for (;;) { truelight@2381: // Find a town truelight@2381: t = AiFindRandomTown(); truelight@2381: if (t != NULL) { truelight@2381: // Find a random oil rig industry truelight@4342: in = AiFindRandomIndustry(); belugas@6400: if (in != NULL && GetIndustrySpec(in->type)->behaviour & INDUSTRYBEH_AI_AIRSHIP_ROUTES) { truelight@2381: if (DistanceManhattan(t->xy, in->xy) < 60) truelight@2381: break; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: // only test 60 times tron@3033: if (--i == 0) return; truelight@2381: } truelight@2381: truelight@2381: fr.cargo = CT_PASSENGERS; truelight@2381: fr.from = fr.to = t; truelight@2381: rubidium@10207: if (!AiCheckIfRouteIsGood(c, &fr, 4)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@10207: _companies_ai[c->index].src.spec_tile = t->xy; rubidium@10207: _companies_ai[c->index].src.use_tile = 0; rubidium@10207: _companies_ai[c->index].src.rand_rng = 12; rubidium@10207: _companies_ai[c->index].src.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].src.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill the dest field rubidium@10207: _companies_ai[c->index].dst.spec_tile = in->xy; rubidium@10207: _companies_ai[c->index].dst.use_tile = 0; rubidium@10207: _companies_ai[c->index].dst.rand_rng = 5; rubidium@10207: _companies_ai[c->index].dst.cur_building_rule = 0xFF; rubidium@10207: _companies_ai[c->index].dst.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill common fields rubidium@10207: _companies_ai[c->index].cargo_type = CT_PASSENGERS; rubidium@10207: _companies_ai[c->index].build_kind = 1; rubidium@10207: _companies_ai[c->index].num_build_rec = 2; rubidium@10207: _companies_ai[c->index].num_loco_to_build = 1; rubidium@10207: _companies_ai[c->index].num_want_fullload = 0; rubidium@10207: // _companies_ai[c->index].loco_id = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].order_list_blocks[0] = 0; rubidium@10207: _companies_ai[c->index].order_list_blocks[1] = 1; rubidium@10207: _companies_ai[c->index].order_list_blocks[2] = 255; rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_AIRPORT_STUFF; rubidium@10207: _companies_ai[c->index].timeout_counter = 0; truelight@2381: } truelight@2381: rubidium@10207: static void AiWantAircraftRoute(Company *c) truelight@2381: { truelight@2381: uint16 r = (uint16)Random(); truelight@2381: rubidium@4322: if (r >= 0x2AAA || _date < 0x3912 + DAYS_TILL_ORIGINAL_BASE_YEAR) { rubidium@10207: AiWantPassengerAircraftRoute(c); truelight@2381: } else { rubidium@10207: AiWantOilRigAircraftRoute(c); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: truelight@2381: rubidium@10207: static void AiStateWantNewRoute(Company *c) truelight@2381: { truelight@2381: uint16 r; truelight@2381: int i; truelight@2381: rubidium@10207: if (c->money < AiGetBasePrice(c) * 500) { rubidium@10207: _companies_ai[c->index].state = AIS_0; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: i = 200; tron@2952: for (;;) { truelight@2381: r = (uint16)Random(); truelight@2381: rubidium@9413: if (_settings_game.ai.ai_disable_veh_train && rubidium@9413: _settings_game.ai.ai_disable_veh_roadveh && rubidium@9413: _settings_game.ai.ai_disable_veh_aircraft && rubidium@9413: _settings_game.ai.ai_disable_veh_ship) { truelight@2381: return; tron@3033: } truelight@2381: truelight@2381: if (r < 0x7626) { rubidium@9413: if (_settings_game.ai.ai_disable_veh_train) continue; rubidium@10207: AiWantTrainRoute(c); truelight@2381: } else if (r < 0xC4EA) { rubidium@9413: if (_settings_game.ai.ai_disable_veh_roadveh) continue; rubidium@10207: AiWantRoadRoute(c); truelight@2381: } else if (r < 0xD89B) { rubidium@9413: if (_settings_game.ai.ai_disable_veh_aircraft) continue; rubidium@10207: AiWantAircraftRoute(c); truelight@2381: } else { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: truelight@2381: // got a route? rubidium@10207: if (_companies_ai[c->index].state != AIS_WANT_NEW_ROUTE) break; truelight@2381: truelight@2381: // time out? truelight@2381: if (--i == 0) { rubidium@10207: if (++_companies_ai[c->index].state_counter == 556) _companies_ai[c->index].state = AIS_0; truelight@2381: break; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static bool AiCheckTrackResources(TileIndex tile, const AiDefaultBlockData *p, byte cargo) truelight@2381: { rubidium@9413: uint rad = (_settings_game.station.modified_catchment) ? CA_TRAIN : CA_UNMODIFIED; tron@4011: tron@4011: for (; p->mode != 4; p++) { tron@4011: AcceptedCargo values; tron@4011: TileIndex tile2; truelight@2381: uint w; truelight@2381: uint h; truelight@2381: tron@4011: if (p->mode != 1) continue; tron@4011: tron@4011: tile2 = TILE_ADD(tile, ToTileIndexDiff(p->tileoffs)); truelight@2381: w = GB(p->attr, 1, 3); truelight@2381: h = GB(p->attr, 4, 3); tron@4011: tron@6106: if (p->attr & 1) Swap(w, h); truelight@2381: truelight@2381: if (cargo & 0x80) { truelight@2381: GetProductionAroundTiles(values, tile2, w, h, rad); truelight@2381: return values[cargo & 0x7F] != 0; truelight@2381: } else { truelight@2381: GetAcceptanceAroundTiles(values, tile2, w, h, rad); truelight@2381: if (!(values[cargo] & ~7)) truelight@2381: return false; truelight@2381: if (cargo != CT_MAIL) truelight@2381: return true; rubidium@6491: return !!((values[cargo] >> 1) & ~7); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: return true; truelight@2381: } truelight@2381: rubidium@6943: static CommandCost AiDoBuildDefaultRailTrack(TileIndex tile, const AiDefaultBlockData* p, RailType railtype, byte flag) truelight@2381: { rubidium@6943: CommandCost ret; rubidium@8230: CommandCost total_cost(EXPENSES_CONSTRUCTION); truelight@2381: Town *t = NULL; truelight@2381: int rating = 0; rubidium@6491: int i, j, k; truelight@2381: tron@2952: for (;;) { truelight@2381: // This will seldomly overflow for valid reasons. Mask it to be on the safe side. truelight@2381: uint c = TILE_MASK(tile + ToTileIndexDiff(p->tileoffs)); truelight@2381: truelight@2381: _cleared_town = NULL; truelight@2381: truelight@2381: if (p->mode < 2) { truelight@2381: if (p->mode == 0) { truelight@2381: // Depot tron@3965: ret = DoCommand(c, railtype, p->attr, flag | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, CMD_BUILD_TRAIN_DEPOT); truelight@2381: } else { truelight@2381: // Station rubidium@6491: ret = DoCommand(c, (p->attr & 1) | (p->attr >> 4) << 8 | (p->attr >> 1 & 7) << 16, railtype, flag | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, CMD_BUILD_RAILROAD_STATION); truelight@2381: } truelight@2381: truelight@2381: if (CmdFailed(ret)) return CMD_ERROR; rubidium@6950: total_cost.AddCost(ret); truelight@2381: truelight@2381: clear_town_stuff:; truelight@2381: if (_cleared_town != NULL) { truelight@2381: if (t != NULL && t != _cleared_town) truelight@2381: return CMD_ERROR; truelight@2381: t = _cleared_town; truelight@2381: rating += _cleared_town_rating; truelight@2381: } truelight@2381: } else if (p->mode == 2) { smatz@8006: /* Rail */ tron@2639: if (IsTileType(c, MP_RAILWAY)) return CMD_ERROR; truelight@2381: truelight@2381: j = p->attr; truelight@2381: k = 0; truelight@2381: smatz@8006: /* Build the rail smatz@8006: * note: FOR_EACH_SET_BIT cannot be used here smatz@8006: */ smatz@8006: for (i = 0; i != 6; i++, j >>= 1) { smatz@8006: if (j & 1) { smatz@8006: k = i; smatz@8006: ret = DoCommand(c, railtype, i, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_SINGLE_RAIL); smatz@8006: if (CmdFailed(ret)) return CMD_ERROR; smatz@8006: total_cost.AddCost(ret); smatz@8006: } truelight@2381: } truelight@2381: truelight@2381: /* signals too? */ tron@3033: if (j & 3) { celestar@5387: // Can't build signals on a road. rubidium@7370: if (IsTileType(c, MP_ROAD)) return CMD_ERROR; truelight@2381: truelight@2381: if (flag & DC_EXEC) { truelight@2381: j = 4 - j; truelight@2381: do { tron@3491: ret = DoCommand(c, k, 0, flag, CMD_BUILD_SIGNALS); truelight@2381: } while (--j); truelight@2381: } else { rubidium@6950: ret.AddCost(_price.build_signals); truelight@2381: } truelight@2381: if (CmdFailed(ret)) return CMD_ERROR; rubidium@6950: total_cost.AddCost(ret); truelight@2381: } truelight@2381: } else if (p->mode == 3) { truelight@2381: //Clear stuff and then build single rail. tron@4000: if (GetTileSlope(c, NULL) != SLOPE_FLAT) return CMD_ERROR; tron@3491: ret = DoCommand(c, 0, 0, flag | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, CMD_LANDSCAPE_CLEAR); truelight@2381: if (CmdFailed(ret)) return CMD_ERROR; rubidium@6950: total_cost.AddCost(ret); rubidium@6950: total_cost.AddCost(_price.build_rail); truelight@2381: truelight@2381: if (flag & DC_EXEC) { rubidium@6491: DoCommand(c, railtype, p->attr & 1, flag | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, CMD_BUILD_SINGLE_RAIL); truelight@2381: } truelight@2381: truelight@2381: goto clear_town_stuff; truelight@2381: } else { truelight@2381: // Unk truelight@2381: break; truelight@2381: } truelight@2381: truelight@2381: p++; truelight@2381: } truelight@2381: truelight@2381: if (!(flag & DC_EXEC)) { rubidium@10207: if (t != NULL && rating > t->ratings[_current_company]) { truelight@2381: return CMD_ERROR; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: return total_cost; truelight@2381: } truelight@2381: truelight@2381: // Returns rule and cost rubidium@6943: static int AiBuildDefaultRailTrack(TileIndex tile, byte p0, byte p1, byte p2, byte p3, byte dir, byte cargo, RailType railtype, CommandCost* cost) truelight@2381: { truelight@2381: int i; truelight@2381: const AiDefaultRailBlock *p; truelight@2381: tron@2639: for (i = 0; (p = _default_rail_track_data[i]) != NULL; i++) { truelight@2381: if (p->p0 == p0 && p->p1 == p1 && p->p2 == p2 && p->p3 == p3 && tron@2639: (p->dir == 0xFF || p->dir == dir || ((p->dir - 1) & 3) == dir)) { tron@3965: *cost = AiDoBuildDefaultRailTrack(tile, p->data, railtype, DC_NO_TOWN_RATING); rubidium@6946: if (CmdSucceeded(*cost) && AiCheckTrackResources(tile, p->data, cargo)) truelight@2381: return i; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: return -1; truelight@2381: } truelight@2381: truelight@2381: static const byte _terraform_up_flags[] = { truelight@2381: 14, 13, 12, 11, rubidium@4344: 10, 9, 8, 7, rubidium@4344: 6, 5, 4, 3, rubidium@4344: 2, 1, 0, 1, rubidium@4344: 2, 1, 4, 1, rubidium@4344: 2, 1, 8, 1, rubidium@4344: 2, 1, 4, 2, rubidium@4344: 2, 1 truelight@2381: }; truelight@2381: truelight@2381: static const byte _terraform_down_flags[] = { rubidium@4344: 1, 2, 3, 4, rubidium@4344: 5, 6, 1, 8, truelight@2381: 9, 10, 8, 12, rubidium@4344: 4, 2, 0, 0, rubidium@4344: 1, 2, 3, 4, rubidium@4344: 5, 6, 2, 8, truelight@2381: 9, 10, 1, 12, rubidium@4344: 8, 4 truelight@2381: }; truelight@2381: rubidium@7317: static void AiDoTerraformLand(TileIndex tile, DiagDirection dir, int unk, int mode) truelight@2381: { rubidium@10207: CompanyID old_company; truelight@2381: uint32 r; tron@3644: Slope slope; truelight@2381: uint h; truelight@2381: rubidium@10207: old_company = _current_company; rubidium@10207: _current_company = OWNER_NONE; truelight@2381: truelight@2381: r = Random(); truelight@2381: truelight@2381: unk &= (int)r; truelight@2381: truelight@2381: do { Darkvater@4559: tile = TILE_MASK(tile + TileOffsByDiagDir(dir)); truelight@2381: truelight@2381: r >>= 2; tron@3033: if (r & 2) { rubidium@7317: dir = ChangeDiagDir(dir, (r & 1) ? DIAGDIRDIFF_90LEFT : DIAGDIRDIFF_90RIGHT); truelight@2381: } truelight@2381: } while (--unk >= 0); truelight@2381: truelight@2381: slope = GetTileSlope(tile, &h); truelight@2381: tron@3644: if (slope != SLOPE_FLAT) { tron@3033: if (mode > 0 || (mode == 0 && !(r & 0xC))) { truelight@2381: // Terraform up tron@3491: DoCommand(tile, _terraform_up_flags[slope - 1], 1, truelight@2381: DC_EXEC | DC_AUTO | DC_NO_WATER, CMD_TERRAFORM_LAND); truelight@2381: } else if (h != 0) { truelight@2381: // Terraform down tron@3491: DoCommand(tile, _terraform_down_flags[slope - 1], 0, truelight@2381: DC_EXEC | DC_AUTO | DC_NO_WATER, CMD_TERRAFORM_LAND); truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: _current_company = old_company; truelight@2381: } truelight@2381: rubidium@10207: static void AiStateBuildDefaultRailBlocks(Company *c) truelight@2381: { tron@2639: uint i; tron@2639: int j; truelight@2381: AiBuildRec *aib; truelight@2381: int rule; rubidium@6943: CommandCost cost; truelight@2381: truelight@2381: // time out? rubidium@10207: if (++_companies_ai[c->index].timeout_counter == 1388) { rubidium@10207: _companies_ai[c->index].state = AIS_DELETE_RAIL_BLOCKS; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // do the following 8 times tron@2648: for (i = 0; i < 8; i++) { truelight@2381: // check if we can build the default track rubidium@10207: aib = &_companies_ai[c->index].src; rubidium@10207: j = _companies_ai[c->index].num_build_rec; truelight@2381: do { truelight@2381: // this item has already been built? tron@3033: if (aib->cur_building_rule != 255) continue; truelight@2381: truelight@2381: // adjust the coordinate randomly, truelight@2381: // to make sure that we find a position. truelight@2381: aib->use_tile = AdjustTileCoordRandomly(aib->spec_tile, aib->rand_rng); truelight@2381: truelight@2381: // check if the track can be build there. truelight@2381: rule = AiBuildDefaultRailTrack(aib->use_tile, rubidium@10207: _companies_ai[c->index].build_kind, _companies_ai[c->index].num_wagons, truelight@2381: aib->unk6, aib->unk7, tron@3965: aib->direction, aib->cargo, rubidium@10207: _companies_ai[c->index].railtype_to_use, tron@3965: &cost tron@3033: ); truelight@2381: truelight@2381: if (rule == -1) { truelight@2381: // cannot build, terraform after a while rubidium@10207: if (_companies_ai[c->index].state_counter >= 600) { rubidium@10207: AiDoTerraformLand(aib->use_tile, (DiagDirection)(Random() & 3), 3, (int8)_companies_ai[c->index].state_mode); truelight@2381: } truelight@2381: // also try the other terraform direction rubidium@10207: if (++_companies_ai[c->index].state_counter >= 1000) { rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].state_mode = -_companies_ai[c->index].state_mode; truelight@2381: } rubidium@10207: } else if (CheckCompanyHasMoney(cost)) { rubidium@10207: // company has money, build it. truelight@2381: aib->cur_building_rule = rule; truelight@2381: rubidium@6602: AiDoBuildDefaultRailTrack( truelight@2381: aib->use_tile, truelight@2381: _default_rail_track_data[rule]->data, rubidium@10207: _companies_ai[c->index].railtype_to_use, truelight@2381: DC_EXEC | DC_NO_TOWN_RATING truelight@2381: ); truelight@2381: } rubidium@6491: } while (++aib, --j); tron@2648: } truelight@2381: truelight@2381: // check if we're done with all of them rubidium@10207: aib = &_companies_ai[c->index].src; rubidium@10207: j = _companies_ai[c->index].num_build_rec; truelight@2381: do { tron@2639: if (aib->cur_building_rule == 255) return; rubidium@6491: } while (++aib, --j); truelight@2381: truelight@2381: // yep, all are done. switch state to the rail building state. rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_RAIL; rubidium@10207: _companies_ai[c->index].state_mode = 255; truelight@2381: } truelight@2381: rubidium@7317: static TileIndex AiGetEdgeOfDefaultRailBlock(byte rule, TileIndex tile, byte cmd, DiagDirection *dir) truelight@2381: { truelight@2381: const AiDefaultBlockData *p = _default_rail_track_data[rule]->data; truelight@2381: truelight@2381: while (p->mode != 3 || !((--cmd) & 0x80)) p++; truelight@2381: Darkvater@4559: return tile + ToTileIndexDiff(p->tileoffs) - TileOffsByDiagDir(*dir = p->attr); truelight@2381: } truelight@2381: rubidium@6248: struct AiRailPathFindData { truelight@2381: TileIndex tile; truelight@2381: TileIndex tile2; truelight@2381: int count; truelight@2381: bool flag; rubidium@6248: }; truelight@2381: frosch@8611: static bool AiEnumFollowTrack(TileIndex tile, AiRailPathFindData *a, int track, uint length) truelight@2381: { tron@2639: if (a->flag) return true; truelight@2381: truelight@2381: if (length > 20 || tile == a->tile) { truelight@2381: a->flag = true; truelight@2381: return true; truelight@2381: } truelight@2381: tron@2639: if (DistanceMax(tile, a->tile2) < 4) a->count++; truelight@2381: truelight@2381: return false; truelight@2381: } truelight@2381: rubidium@10207: static bool AiDoFollowTrack(const Company *c) truelight@2381: { truelight@2381: AiRailPathFindData arpfd; tron@2639: rubidium@10207: arpfd.tile = _companies_ai[c->index].start_tile_a; rubidium@10207: arpfd.tile2 = _companies_ai[c->index].cur_tile_a; truelight@2381: arpfd.flag = false; truelight@2381: arpfd.count = 0; rubidium@10207: FollowTrack(_companies_ai[c->index].cur_tile_a + TileOffsByDiagDir(_companies_ai[c->index].cur_dir_a), PATHFIND_FLAGS_NONE, TRANSPORT_RAIL, 0, ReverseDiagDir(_companies_ai[c->index].cur_dir_a), truelight@2381: (TPFEnumProc*)AiEnumFollowTrack, NULL, &arpfd); truelight@2381: return arpfd.count > 8; truelight@2381: } truelight@2381: rubidium@6248: struct AiRailFinder { truelight@2381: TileIndex final_tile; rubidium@7317: DiagDirection final_dir; truelight@2381: byte depth; truelight@2381: byte recursive_mode; rubidium@7317: DiagDirection cur_best_dir; rubidium@7317: DiagDirection best_dir; truelight@2381: byte cur_best_depth; truelight@2381: byte best_depth; truelight@2381: uint cur_best_dist; truelight@2381: const byte *best_ptr; truelight@2381: uint best_dist; truelight@2381: TileIndex cur_best_tile, best_tile; truelight@2381: TileIndex bridge_end_tile; rubidium@10207: Company *company; rubidium@6248: }; truelight@2381: truelight@2381: static const byte _ai_table_15[4][8] = { rubidium@4344: {0, 0, 4, 3, 3, 1, 128 + 0, 64}, rubidium@4344: {1, 1, 2, 0, 4, 2, 128 + 1, 65}, rubidium@4344: {0, 2, 2, 3, 5, 1, 128 + 2, 66}, rubidium@4344: {1, 3, 5, 0, 3, 2, 128 + 3, 67} truelight@2381: }; truelight@2381: truelight@2381: rubidium@10207: static bool AiIsTileBanned(const Company *c, TileIndex tile, byte val) tron@2630: { truelight@2381: int i; truelight@2381: rubidium@10207: for (i = 0; i != _companies_ai[c->index].banned_tile_count; i++) { rubidium@10207: if (_companies_ai[c->index].banned_tiles[i] == tile && _companies_ai[c->index].banned_val[i] == val) { tron@2639: return true; tron@2639: } tron@2639: } truelight@2381: return false; truelight@2381: } truelight@2381: rubidium@10207: static void AiBanTile(Company *c, TileIndex tile, byte val) tron@2639: { tron@4011: uint i; truelight@2381: rubidium@10207: for (i = lengthof(_companies_ai[c->index].banned_tiles) - 1; i != 0; i--) { rubidium@10207: _companies_ai[c->index].banned_tiles[i] = _companies_ai[c->index].banned_tiles[i - 1]; rubidium@10207: _companies_ai[c->index].banned_val[i] = _companies_ai[c->index].banned_val[i - 1]; truelight@2381: } truelight@2381: rubidium@10207: _companies_ai[c->index].banned_tiles[0] = tile; rubidium@10207: _companies_ai[c->index].banned_val[0] = val; rubidium@10207: rubidium@10207: if (_companies_ai[c->index].banned_tile_count != lengthof(_companies_ai[c->index].banned_tiles)) { rubidium@10207: _companies_ai[c->index].banned_tile_count++; tron@2639: } truelight@2381: } truelight@2381: rubidium@7317: static void AiBuildRailRecursive(AiRailFinder *arf, TileIndex tile, DiagDirection dir); truelight@2381: truelight@2381: static bool AiCheckRailPathBetter(AiRailFinder *arf, const byte *p) truelight@2381: { truelight@2381: bool better = false; truelight@2381: truelight@2381: if (arf->recursive_mode < 1) { truelight@2381: // Mode is 0. This means destination has not been found yet. truelight@2381: // If the found path is shorter than the current one, remember it. truelight@2381: if (arf->cur_best_dist < arf->best_dist) { truelight@2381: arf->best_dir = arf->cur_best_dir; truelight@2381: arf->best_dist = arf->cur_best_dist; truelight@2381: arf->best_ptr = p; truelight@2381: arf->best_tile = arf->cur_best_tile; truelight@2381: better = true; truelight@2381: } truelight@2381: } else if (arf->recursive_mode > 1) { truelight@2381: // Mode is 2. truelight@2381: if (arf->best_dist != 0 || arf->cur_best_depth < arf->best_depth) { truelight@2381: arf->best_depth = arf->cur_best_depth; truelight@2381: arf->best_dist = 0; truelight@2381: arf->best_ptr = p; truelight@2381: arf->best_tile = 0; truelight@2381: better = true; truelight@2381: } truelight@2381: } truelight@2381: arf->recursive_mode = 0; rubidium@5587: arf->cur_best_dist = UINT_MAX; truelight@2381: arf->cur_best_depth = 0xff; truelight@2381: truelight@2381: return better; truelight@2381: } truelight@2381: truelight@2381: static inline void AiCheckBuildRailBridgeHere(AiRailFinder *arf, TileIndex tile, const byte *p) truelight@2381: { tron@3644: Slope tileh; tron@3088: uint z; truelight@2381: bool flag; truelight@2381: rubidium@7317: DiagDirection dir2 = (DiagDirection)(p[0] & 3); truelight@2381: tron@3088: tileh = GetTileSlope(tile, &z); frosch@8795: if (tileh == InclinedSlope(ReverseDiagDir(dir2)) || (tileh == SLOPE_FLAT && z != 0)) { tron@4000: TileIndex tile_new = tile; tron@4000: truelight@2381: // Allow bridges directly over bottom tiles tron@3088: flag = z == 0; tron@2952: for (;;) { tron@3088: TileType type; tron@3088: Darkvater@4559: if ((TileIndexDiff)tile_new < -TileOffsByDiagDir(dir2)) return; // Wraping around map, no bridge possible! Darkvater@4559: tile_new = TILE_MASK(tile_new + TileOffsByDiagDir(dir2)); tron@3088: type = GetTileType(tile_new); tron@3088: tron@3644: if (type == MP_CLEAR || type == MP_TREES || GetTileSlope(tile_new, NULL) != SLOPE_FLAT) { truelight@2381: if (!flag) return; truelight@2381: break; truelight@2381: } rubidium@7370: if (type != MP_WATER && type != MP_RAILWAY && type != MP_ROAD) return; truelight@2381: flag = true; truelight@2381: } truelight@2381: truelight@2381: // Is building a (rail)bridge possible at this place (type doesn't matter)? rubidium@10207: if (CmdFailed(DoCommand(tile_new, tile, _companies_ai[arf->company->index].railtype_to_use << 8 | TRANSPORT_RAIL << 15, DC_AUTO, CMD_BUILD_BRIDGE))) { tron@4011: return; tron@4011: } truelight@2381: AiBuildRailRecursive(arf, tile_new, dir2); truelight@2381: truelight@2381: // At the bottom depth, check if the new path is better than the old one. truelight@2381: if (arf->depth == 1) { tron@4011: if (AiCheckRailPathBetter(arf, p)) arf->bridge_end_tile = tile_new; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static inline void AiCheckBuildRailTunnelHere(AiRailFinder *arf, TileIndex tile, const byte *p) truelight@2381: { tron@3088: uint z; tron@3088: frosch@8795: if (GetTileSlope(tile, &z) == InclinedSlope((DiagDirection)(p[0] & 3)) && z != 0) { rubidium@10207: CommandCost cost = DoCommand(tile, _companies_ai[arf->company->index].railtype_to_use, 0, DC_AUTO, CMD_BUILD_TUNNEL); rubidium@10207: rubidium@10207: if (CmdSucceeded(cost) && cost.GetCost() <= (arf->company->money >> 4)) { rubidium@7317: AiBuildRailRecursive(arf, _build_tunnel_endtile, (DiagDirection)(p[0] & 3)); tron@4000: if (arf->depth == 1) AiCheckRailPathBetter(arf, p); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: rubidium@7317: static void AiBuildRailRecursive(AiRailFinder *arf, TileIndex tile, DiagDirection dir) truelight@2381: { truelight@2381: const byte *p; truelight@2381: Darkvater@4559: tile = TILE_MASK(tile + TileOffsByDiagDir(dir)); truelight@2381: truelight@2381: // Reached destination? truelight@2381: if (tile == arf->final_tile) { rubidium@7317: if (arf->final_dir != ReverseDiagDir(dir)) { tron@4011: if (arf->recursive_mode != 2) arf->recursive_mode = 1; truelight@2381: } else if (arf->recursive_mode != 2) { truelight@2381: arf->recursive_mode = 2; truelight@2381: arf->cur_best_depth = arf->depth; truelight@2381: } else { tron@4011: if (arf->depth < arf->cur_best_depth) arf->cur_best_depth = arf->depth; truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Depth too deep? truelight@2381: if (arf->depth >= 4) { truelight@2381: uint dist = DistanceMaxPlusManhattan(tile, arf->final_tile); tron@4000: truelight@2381: if (dist < arf->cur_best_dist) { truelight@2381: // Store the tile that is closest to the final position. truelight@2381: arf->cur_best_depth = arf->depth; truelight@2381: arf->cur_best_dist = dist; truelight@2381: arf->cur_best_tile = tile; truelight@2381: arf->cur_best_dir = dir; truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Increase recursion depth truelight@2381: arf->depth++; truelight@2381: truelight@2381: // Grab pointer to list of stuff that is possible to build truelight@2381: p = _ai_table_15[dir]; truelight@2381: truelight@2381: // Try to build a single rail in all directions. tron@3088: if (GetTileZ(tile) == 0) { truelight@2381: p += 6; truelight@2381: } else { truelight@2381: do { truelight@2381: // Make sure the tile is not in the list of banned tiles and that a rail can be built here. rubidium@10207: if (!AiIsTileBanned(arf->company, tile, p[0]) && rubidium@10207: CmdSucceeded(DoCommand(tile, _companies_ai[arf->company->index].railtype_to_use, p[0], DC_AUTO | DC_NO_WATER | DC_NO_RAIL_OVERLAP, CMD_BUILD_SINGLE_RAIL))) { rubidium@7317: AiBuildRailRecursive(arf, tile, (DiagDirection)p[1]); truelight@2381: } truelight@2381: truelight@2381: // At the bottom depth? tron@4000: if (arf->depth == 1) AiCheckRailPathBetter(arf, p); truelight@2381: truelight@2381: p += 2; rubidium@6491: } while (!(p[0] & 0x80)); truelight@2381: } truelight@2381: truelight@2381: AiCheckBuildRailBridgeHere(arf, tile, p); rubidium@6491: AiCheckBuildRailTunnelHere(arf, tile, p + 1); truelight@2381: truelight@2381: arf->depth--; truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiBuildRailConstruct(Company *c) truelight@2381: { truelight@2381: AiRailFinder arf; truelight@2381: int i; truelight@2381: truelight@2381: // Check too much lookahead? rubidium@10207: if (AiDoFollowTrack(c)) { rubidium@10207: _companies_ai[c->index].state_counter = (Random()&0xE)+6; // Destruct this amount of blocks rubidium@10207: _companies_ai[c->index].state_mode = 1; // Start destruct truelight@2381: truelight@2381: // Ban this tile and don't reach it for a while. rubidium@10207: AiBanTile(c, _companies_ai[c->index].cur_tile_a, FindFirstBit(GetRailTrackStatus(_companies_ai[c->index].cur_tile_a))); truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Setup recursive finder and call it. rubidium@10207: arf.company = c; rubidium@10207: arf.final_tile = _companies_ai[c->index].cur_tile_b; rubidium@10207: arf.final_dir = _companies_ai[c->index].cur_dir_b; truelight@2381: arf.depth = 0; truelight@2381: arf.recursive_mode = 0; truelight@2381: arf.best_ptr = NULL; rubidium@10236: arf.cur_best_dist = UINT_MAX; truelight@2381: arf.cur_best_depth = 0xff; rubidium@10236: arf.best_dist = UINT_MAX; truelight@2381: arf.best_depth = 0xff; truelight@2381: arf.cur_best_tile = 0; truelight@2381: arf.best_tile = 0; rubidium@10207: AiBuildRailRecursive(&arf, _companies_ai[c->index].cur_tile_a, _companies_ai[c->index].cur_dir_a); truelight@2381: truelight@2381: // Reached destination? truelight@2381: if (arf.recursive_mode == 2 && arf.cur_best_depth == 0) { rubidium@10207: _companies_ai[c->index].state_mode = 255; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Didn't find anything to build? truelight@2381: if (arf.best_ptr == NULL) { truelight@2381: // Terraform some tron@4000: for (i = 0; i != 5; i++) { rubidium@10207: AiDoTerraformLand(_companies_ai[c->index].cur_tile_a, _companies_ai[c->index].cur_dir_a, 3, 0); tron@4000: } truelight@2381: rubidium@10207: if (++_companies_ai[c->index].state_counter == 21) { rubidium@10207: _companies_ai[c->index].state_counter = 40; rubidium@10207: _companies_ai[c->index].state_mode = 1; truelight@2381: truelight@2381: // Ban this tile rubidium@10207: AiBanTile(c, _companies_ai[c->index].cur_tile_a, FindFirstBit(GetRailTrackStatus(_companies_ai[c->index].cur_tile_a))); truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: rubidium@10207: _companies_ai[c->index].cur_tile_a += TileOffsByDiagDir(_companies_ai[c->index].cur_dir_a); truelight@2381: tron@3033: if (arf.best_ptr[0] & 0x80) { rubidium@10207: TileIndex t1 = _companies_ai[c->index].cur_tile_a; smatz@8617: TileIndex t2 = arf.bridge_end_tile; smatz@8617: smatz@8617: int32 bridge_len = GetTunnelBridgeLength(t1, t2); smatz@8617: smatz@8617: DiagDirection dir = (TileX(t1) == TileX(t2) ? DIAGDIR_SE : DIAGDIR_SW); smatz@9224: Track track = DiagDirToDiagTrack(dir); smatz@8617: smatz@8617: if (t2 < t1) dir = ReverseDiagDir(dir); smatz@8617: smatz@8617: /* try to build a long rail instead of bridge... */ smatz@8617: bool fail = false; smatz@8617: CommandCost cost; smatz@8617: TileIndex t = t1; smatz@8617: smatz@8617: /* try to build one rail on each tile - can't use CMD_BUILD_RAILROAD_TRACK now, it can build one part of track without failing */ smatz@8617: do { rubidium@10207: cost = DoCommand(t, _companies_ai[c->index].railtype_to_use, track, DC_AUTO | DC_NO_WATER, CMD_BUILD_SINGLE_RAIL); smatz@8617: /* do not allow building over existing track */ smatz@8617: if (CmdFailed(cost) || IsTileType(t, MP_RAILWAY)) { smatz@8617: fail = true; smatz@8617: break; truelight@2381: } smatz@8617: t += TileOffsByDiagDir(dir); smatz@8617: } while (t != t2); smatz@8617: smatz@8617: /* can we build long track? */ rubidium@10207: if (!fail) cost = DoCommand(t1, t2, _companies_ai[c->index].railtype_to_use | (track << 4), DC_AUTO | DC_NO_WATER, CMD_BUILD_RAILROAD_TRACK); rubidium@10207: rubidium@10207: if (!fail && CmdSucceeded(cost) && cost.GetCost() <= c->money) { rubidium@10207: DoCommand(t1, t2, _companies_ai[c->index].railtype_to_use | (track << 4), DC_AUTO | DC_NO_WATER | DC_EXEC, CMD_BUILD_RAILROAD_TRACK); smatz@8617: } else { smatz@8617: smatz@8617: /* Figure out which (rail)bridge type to build smatz@8617: * start with best bridge, then go down to worse and worse bridges smatz@8617: * unnecessary to check for worst bridge (i=0), since AI will always build that. */ smatz@8617: int i; smatz@8617: for (i = MAX_BRIDGES - 1; i != 0; i--) { smatz@8617: if (CheckBridge_Stuff(i, bridge_len)) { rubidium@10207: CommandCost cost = DoCommand(t1, t2, i | _companies_ai[c->index].railtype_to_use << 8 | TRANSPORT_RAIL << 15, DC_AUTO, CMD_BUILD_BRIDGE); rubidium@10207: if (CmdSucceeded(cost) && cost.GetCost() < (c->money >> 1) && cost.GetCost() < ((c->money + _economy.max_loan - c->current_loan) >> 5)) break; smatz@8617: } smatz@8617: } smatz@8617: smatz@8617: /* Build it */ rubidium@10207: DoCommand(t1, t2, i | _companies_ai[c->index].railtype_to_use << 8 | TRANSPORT_RAIL << 15, DC_AUTO | DC_EXEC, CMD_BUILD_BRIDGE); truelight@2381: } truelight@2381: rubidium@10207: _companies_ai[c->index].cur_tile_a = t2; rubidium@10207: _companies_ai[c->index].state_counter = 0; tron@4000: } else if (arf.best_ptr[0] & 0x40) { truelight@2381: // tunnel rubidium@10207: DoCommand(_companies_ai[c->index].cur_tile_a, _companies_ai[c->index].railtype_to_use, 0, DC_AUTO | DC_EXEC, CMD_BUILD_TUNNEL); rubidium@10207: _companies_ai[c->index].cur_tile_a = _build_tunnel_endtile; rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } else { truelight@2381: // rail rubidium@10207: _companies_ai[c->index].cur_dir_a = (DiagDirection)(arf.best_ptr[1] & 3); rubidium@10207: DoCommand(_companies_ai[c->index].cur_tile_a, _companies_ai[c->index].railtype_to_use, arf.best_ptr[0], truelight@2381: DC_EXEC | DC_AUTO | DC_NO_WATER | DC_NO_RAIL_OVERLAP, CMD_BUILD_SINGLE_RAIL); rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } truelight@2381: truelight@2381: if (arf.best_tile != 0) { tron@3033: for (i = 0; i != 2; i++) { truelight@2381: AiDoTerraformLand(arf.best_tile, arf.best_dir, 3, 0); tron@3033: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static bool AiRemoveTileAndGoForward(Company *c) truelight@2381: { truelight@2381: const byte *ptr; rubidium@10207: TileIndex tile = _companies_ai[c->index].cur_tile_a; truelight@2381: TileIndex tilenew; truelight@2381: truelight@2381: if (IsTileType(tile, MP_TUNNELBRIDGE)) { tron@3184: if (IsTunnel(tile)) { truelight@2381: // Clear the tunnel and continue at the other side of it. tron@3491: if (CmdFailed(DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR))) truelight@2381: return false; rubidium@10207: _companies_ai[c->index].cur_tile_a = TILE_MASK(_build_tunnel_endtile - TileOffsByDiagDir(_companies_ai[c->index].cur_dir_a)); truelight@2381: return true; smatz@8390: } else { // IsBridge(tile) truelight@2381: // Check if the bridge points in the right direction. truelight@2381: // This is not really needed the first place AiRemoveTileAndGoForward is called. rubidium@10207: if (DiagDirToAxis(GetTunnelBridgeDirection(tile)) != (_companies_ai[c->index].cur_dir_a & 1)) return false; truelight@2381: tron@3214: tile = GetOtherBridgeEnd(tile); tron@3214: rubidium@10207: tilenew = TILE_MASK(tile - TileOffsByDiagDir(_companies_ai[c->index].cur_dir_a)); truelight@2381: // And clear the bridge. tron@3491: if (CmdFailed(DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR))) truelight@2381: return false; rubidium@10207: _companies_ai[c->index].cur_tile_a = tilenew; truelight@2381: return true; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: // Find the railtype at the position. Quit if no rail there. rubidium@10207: TrackBits bits = GetRailTrackStatus(tile) & DiagdirReachesTracks(ReverseDiagDir(_companies_ai[c->index].cur_dir_a)); frosch@8795: if (bits == TRACK_BIT_NONE) return false; truelight@2381: truelight@2381: // Convert into a bit position that CMD_REMOVE_SINGLE_RAIL expects. frosch@8795: Track track = FindFirstTrack(bits); truelight@2381: truelight@2381: // Then remove and signals if there are any. truelight@2381: if (IsTileType(tile, MP_RAILWAY) && rubidium@3792: GetRailTileType(tile) == RAIL_TILE_SIGNALS) { tron@3491: DoCommand(tile, 0, 0, DC_EXEC, CMD_REMOVE_SIGNALS); truelight@2381: } truelight@2381: truelight@2381: // And also remove the rail. frosch@8795: if (CmdFailed(DoCommand(tile, 0, track, DC_EXEC, CMD_REMOVE_SINGLE_RAIL))) truelight@2381: return false; truelight@2381: truelight@2381: // Find the direction at the other edge of the rail. rubidium@10207: ptr = _ai_table_15[ReverseDiagDir(_companies_ai[c->index].cur_dir_a)]; frosch@8795: while (ptr[0] != track) ptr += 2; rubidium@10207: _companies_ai[c->index].cur_dir_a = ReverseDiagDir((DiagDirection)ptr[1]); truelight@2381: truelight@2381: // And then also switch tile. rubidium@10207: _companies_ai[c->index].cur_tile_a = TILE_MASK(_companies_ai[c->index].cur_tile_a - TileOffsByDiagDir(_companies_ai[c->index].cur_dir_a)); truelight@2381: truelight@2381: return true; truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiBuildRailDestruct(Company *c) truelight@2381: { truelight@2381: // Decrease timeout. rubidium@10207: if (!--_companies_ai[c->index].state_counter) { rubidium@10207: _companies_ai[c->index].state_mode = 2; rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } truelight@2381: truelight@2381: // Don't do anything if the destination is already reached. rubidium@10207: if (_companies_ai[c->index].cur_tile_a == _companies_ai[c->index].start_tile_a) return; rubidium@10207: rubidium@10207: AiRemoveTileAndGoForward(c); truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiBuildRail(Company *c) truelight@2381: { rubidium@10207: switch (_companies_ai[c->index].state_mode) { tron@4011: case 0: // Construct mode, build new rail. rubidium@10207: AiBuildRailConstruct(c); tron@4011: break; tron@4011: tron@4011: case 1: // Destruct mode, destroy the rail currently built. rubidium@10207: AiBuildRailDestruct(c); tron@4011: break; tron@4011: tron@4011: case 2: { tron@4011: uint i; tron@4011: tron@4011: // Terraform some and then try building again. tron@4011: for (i = 0; i != 4; i++) { rubidium@10207: AiDoTerraformLand(_companies_ai[c->index].cur_tile_a, _companies_ai[c->index].cur_dir_a, 3, 0); tron@4011: } tron@4011: rubidium@10207: if (++_companies_ai[c->index].state_counter == 4) { rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].state_mode = 0; tron@4011: } truelight@2381: } tron@4011: tron@4011: default: break; truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiStateBuildRail(Company *c) truelight@2381: { truelight@2381: int num; truelight@2381: AiBuildRec *aib; truelight@2381: byte cmd; truelight@2381: TileIndex tile; rubidium@7317: DiagDirection dir; truelight@2381: truelight@2381: // time out? rubidium@10207: if (++_companies_ai[c->index].timeout_counter == 1388) { rubidium@10207: _companies_ai[c->index].state = AIS_DELETE_RAIL_BLOCKS; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Currently building a rail between two points? rubidium@10207: if (_companies_ai[c->index].state_mode != 255) { rubidium@10207: AiBuildRail(c); truelight@2381: truelight@2381: // Alternate between edges rubidium@10207: Swap(_companies_ai[c->index].start_tile_a, _companies_ai[c->index].start_tile_b); rubidium@10207: Swap(_companies_ai[c->index].cur_tile_a, _companies_ai[c->index].cur_tile_b); rubidium@10207: Swap(_companies_ai[c->index].start_dir_a, _companies_ai[c->index].start_dir_b); rubidium@10207: Swap(_companies_ai[c->index].cur_dir_a, _companies_ai[c->index].cur_dir_b); truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Now, find two new points to build between rubidium@10207: num = _companies_ai[c->index].num_build_rec; rubidium@10207: aib = &_companies_ai[c->index].src; truelight@2381: tron@2952: for (;;) { truelight@2381: cmd = aib->buildcmd_a; truelight@2381: aib->buildcmd_a = 255; truelight@2381: if (cmd != 255) break; truelight@2381: truelight@2381: cmd = aib->buildcmd_b; truelight@2381: aib->buildcmd_b = 255; truelight@2381: if (cmd != 255) break; truelight@2381: truelight@2381: aib++; truelight@2381: if (--num == 0) { rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_RAIL_VEH; rubidium@10207: _companies_ai[c->index].state_counter = 0; // timeout truelight@2381: return; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: // Find first edge to build from. rubidium@6491: tile = AiGetEdgeOfDefaultRailBlock(aib->cur_building_rule, aib->use_tile, cmd & 3, &dir); rubidium@10207: _companies_ai[c->index].start_tile_a = tile; rubidium@10207: _companies_ai[c->index].cur_tile_a = tile; rubidium@10207: _companies_ai[c->index].start_dir_a = dir; rubidium@10207: _companies_ai[c->index].cur_dir_a = dir; rubidium@6491: DoCommand(TILE_MASK(tile + TileOffsByDiagDir(dir)), 0, (dir & 1) ? 1 : 0, DC_EXEC, CMD_REMOVE_SINGLE_RAIL); truelight@2381: truelight@2381: assert(TILE_MASK(tile) != 0xFF00); truelight@2381: truelight@2381: // Find second edge to build to rubidium@10207: aib = (&_companies_ai[c->index].src) + ((cmd >> 4) & 0xF); rubidium@6491: tile = AiGetEdgeOfDefaultRailBlock(aib->cur_building_rule, aib->use_tile, (cmd >> 2) & 3, &dir); rubidium@10207: _companies_ai[c->index].start_tile_b = tile; rubidium@10207: _companies_ai[c->index].cur_tile_b = tile; rubidium@10207: _companies_ai[c->index].start_dir_b = dir; rubidium@10207: _companies_ai[c->index].cur_dir_b = dir; rubidium@6491: DoCommand(TILE_MASK(tile + TileOffsByDiagDir(dir)), 0, (dir & 1) ? 1 : 0, DC_EXEC, CMD_REMOVE_SINGLE_RAIL); truelight@2381: truelight@2381: assert(TILE_MASK(tile) != 0xFF00); truelight@2381: truelight@2381: // And setup state. rubidium@10207: _companies_ai[c->index].state_mode = 2; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].banned_tile_count = 0; truelight@2381: } truelight@2381: tron@3315: static StationID AiGetStationIdByDef(TileIndex tile, int id) truelight@2381: { truelight@2381: const AiDefaultBlockData *p = _default_rail_track_data[id]->data; truelight@2381: while (p->mode != 1) p++; tron@3315: return GetStationIndex(TILE_ADD(tile, ToTileIndexDiff(p->tileoffs))); truelight@2381: } truelight@2381: celestar@3355: static EngineID AiFindBestWagon(CargoID cargo, RailType railtype) celestar@3355: { celestar@3355: EngineID best_veh_index = INVALID_ENGINE; celestar@3355: uint16 best_capacity = 0; celestar@3355: uint16 best_speed = 0; celestar@3355: uint speed; peter1138@9070: const Engine *e; peter1138@9070: peter1138@9070: FOR_ALL_ENGINES_OF_TYPE(e, VEH_TRAIN) { peter1138@9070: EngineID i = e->index; peter1138@9070: const RailVehicleInfo *rvi = &e->u.rail; celestar@3355: tron@5823: if (!IsCompatibleRail(rvi->railtype, railtype) || belugas@5868: rvi->railveh_type != RAILVEH_WAGON || rubidium@10207: !HasBit(e->company_avail, _current_company)) { celestar@3355: continue; celestar@3355: } celestar@3355: tron@4000: if (rvi->cargo_type != cargo) continue; celestar@3355: celestar@3355: /* max_speed of 0 indicates no speed limit */ celestar@3355: speed = rvi->max_speed == 0 ? 0xFFFF : rvi->max_speed; celestar@3355: celestar@3355: if (rvi->capacity >= best_capacity && speed >= best_speed) { celestar@3355: best_capacity = rvi->capacity; celestar@3355: best_speed = best_speed; celestar@3355: best_veh_index = i; celestar@3355: } celestar@3355: } celestar@3355: celestar@3355: return best_veh_index; celestar@3355: } celestar@3355: rubidium@10207: static void AiStateBuildRailVeh(Company *c) truelight@2381: { truelight@2381: const AiDefaultBlockData *ptr; truelight@2381: TileIndex tile; tron@2544: EngineID veh; tron@2544: int i; Darkvater@3348: CargoID cargo; rubidium@6943: CommandCost cost; truelight@2381: Vehicle *v; tron@4000: VehicleID loco_id; truelight@2381: rubidium@10207: ptr = _default_rail_track_data[_companies_ai[c->index].src.cur_building_rule]->data; tron@3033: while (ptr->mode != 0) ptr++; truelight@2381: rubidium@10207: tile = TILE_ADD(_companies_ai[c->index].src.use_tile, ToTileIndexDiff(ptr->tileoffs)); rubidium@10207: rubidium@10207: rubidium@10207: cargo = _companies_ai[c->index].cargo_type; tron@3033: for (i = 0;;) { rubidium@10207: if (_companies_ai[c->index].wagon_list[i] == INVALID_VEHICLE) { rubidium@10207: veh = AiFindBestWagon(cargo, _companies_ai[c->index].railtype_to_use); celestar@3355: /* veh will return INVALID_ENGINE if no suitable wagon is available. celestar@3355: * We shall treat this in the same way as having no money */ celestar@3355: if (veh == INVALID_ENGINE) goto handle_nocash; tron@3491: cost = DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_RAIL_VEHICLE); truelight@2381: if (CmdFailed(cost)) goto handle_nocash; rubidium@10207: _companies_ai[c->index].wagon_list[i] = _new_vehicle_id; rubidium@10207: _companies_ai[c->index].wagon_list[i + 1] = INVALID_VEHICLE; truelight@2381: return; truelight@2381: } tron@4000: if (cargo == CT_MAIL) cargo = CT_PASSENGERS; rubidium@10207: if (++i == _companies_ai[c->index].num_wagons * 2 - 1) break; truelight@2381: } truelight@2381: truelight@2381: // Which locomotive to build? rubidium@10207: veh = AiChooseTrainToBuild(_companies_ai[c->index].railtype_to_use, c->money, cargo != CT_PASSENGERS ? 1 : 0, tile); tron@2544: if (veh == INVALID_ENGINE) { truelight@2381: handle_nocash: truelight@2381: // after a while, if AI still doesn't have cash, get out of this block by selling the wagons. rubidium@10207: if (++_companies_ai[c->index].state_counter == 1000) { rubidium@10207: for (i = 0; _companies_ai[c->index].wagon_list[i] != INVALID_VEHICLE; i++) { rubidium@10207: cost = DoCommand(tile, _companies_ai[c->index].wagon_list[i], 0, DC_EXEC, CMD_SELL_RAIL_WAGON); rubidium@6946: assert(CmdSucceeded(cost)); truelight@2381: } rubidium@10207: _companies_ai[c->index].state = AIS_0; truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Try to build the locomotive tron@3491: cost = DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_RAIL_VEHICLE); rubidium@6946: assert(CmdSucceeded(cost)); tron@3948: loco_id = _new_vehicle_id; truelight@2381: truelight@2381: // Sell a vehicle if the train is double headed. truelight@2381: v = GetVehicle(loco_id); rubidium@7492: if (v->Next() != NULL) { rubidium@10207: i = _companies_ai[c->index].wagon_list[_companies_ai[c->index].num_wagons * 2 - 2]; rubidium@10207: _companies_ai[c->index].wagon_list[_companies_ai[c->index].num_wagons * 2 - 2] = INVALID_VEHICLE; tron@3491: DoCommand(tile, i, 0, DC_EXEC, CMD_SELL_RAIL_WAGON); truelight@2381: } truelight@2381: truelight@2381: // Move the wagons onto the train rubidium@10207: for (i = 0; _companies_ai[c->index].wagon_list[i] != INVALID_VEHICLE; i++) { rubidium@10207: DoCommand(tile, _companies_ai[c->index].wagon_list[i] | (loco_id << 16), 0, DC_EXEC, CMD_MOVE_RAIL_VEHICLE); truelight@2381: } truelight@2381: rubidium@10207: for (i = 0; _companies_ai[c->index].order_list_blocks[i] != 0xFF; i++) { rubidium@10207: const AiBuildRec* aib = &_companies_ai[c->index].src + _companies_ai[c->index].order_list_blocks[i]; tron@3033: bool is_pass = ( rubidium@10207: _companies_ai[c->index].cargo_type == CT_PASSENGERS || rubidium@10207: _companies_ai[c->index].cargo_type == CT_MAIL || rubidium@10207: (_settings_game.game_creation.landscape == LT_TEMPERATE && _companies_ai[c->index].cargo_type == CT_VALUABLES) tron@3033: ); truelight@2381: Order order; truelight@2381: rubidium@8836: order.MakeGoToStation(AiGetStationIdByDef(aib->use_tile, aib->cur_building_rule)); truelight@2381: rubidium@8855: if (!is_pass && i == 1) order.SetUnloadType(OUFB_UNLOAD); rubidium@10207: if (_companies_ai[c->index].num_want_fullload != 0 && (is_pass || i == 0)) rubidium@8855: order.SetLoadType(OLFB_FULL_LOAD); truelight@2381: rubidium@8839: DoCommand(0, loco_id + (i << 16), order.Pack(), DC_EXEC, CMD_INSERT_ORDER); truelight@2381: } truelight@2381: frosch@9921: DoCommand(0, loco_id, 0, DC_EXEC, CMD_START_STOP_VEHICLE); tron@3491: tron@3491: DoCommand(0, loco_id, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: rubidium@10207: if (_companies_ai[c->index].num_want_fullload != 0) _companies_ai[c->index].num_want_fullload--; rubidium@10207: rubidium@10207: if (--_companies_ai[c->index].num_loco_to_build != 0) { rubidium@10207: // _companies_ai[c->index].loco_id = INVALID_VEHICLE; rubidium@10207: _companies_ai[c->index].wagon_list[0] = INVALID_VEHICLE; truelight@2381: } else { rubidium@10207: _companies_ai[c->index].state = AIS_0; truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiStateDeleteRailBlocks(Company *c) truelight@2381: { rubidium@10207: const AiBuildRec* aib = &_companies_ai[c->index].src; rubidium@10207: uint num = _companies_ai[c->index].num_build_rec; tron@4011: truelight@2381: do { tron@4011: const AiDefaultBlockData* b; tron@4011: tron@4011: if (aib->cur_building_rule == 255) continue; tron@4011: for (b = _default_rail_track_data[aib->cur_building_rule]->data; b->mode != 4; b++) { tron@4011: DoCommand(TILE_ADD(aib->use_tile, ToTileIndexDiff(b->tileoffs)), 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); truelight@2381: } rubidium@6491: } while (++aib, --num); truelight@2381: rubidium@10207: _companies_ai[c->index].state = AIS_0; truelight@2381: } truelight@2381: truelight@2381: static bool AiCheckRoadResources(TileIndex tile, const AiDefaultBlockData *p, byte cargo) truelight@2381: { truelight@2381: uint values[NUM_CARGO]; truelight@2381: int rad; truelight@2381: rubidium@9413: if (_settings_game.station.modified_catchment) { rubidium@4434: rad = CA_TRUCK; // Same as CA_BUS at the moment? rubidium@4434: } else { // change that at some point? truelight@2381: rad = 4; truelight@2381: } truelight@2381: tron@3033: for (;; p++) { truelight@2381: if (p->mode == 4) { truelight@2381: return true; truelight@2381: } else if (p->mode == 1) { truelight@2381: TileIndex tile2 = TILE_ADD(tile, ToTileIndexDiff(p->tileoffs)); truelight@2381: truelight@2381: if (cargo & 0x80) { truelight@2381: GetProductionAroundTiles(values, tile2, 1, 1, rad); truelight@2381: return values[cargo & 0x7F] != 0; truelight@2381: } else { truelight@2381: GetAcceptanceAroundTiles(values, tile2, 1, 1, rad); truelight@2381: return (values[cargo]&~7) != 0; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static bool _want_road_truck_station; rubidium@6943: static CommandCost AiDoBuildDefaultRoadBlock(TileIndex tile, const AiDefaultBlockData *p, byte flag); truelight@2381: truelight@2381: // Returns rule and cost rubidium@6943: static int AiFindBestDefaultRoadBlock(TileIndex tile, byte direction, byte cargo, CommandCost *cost) truelight@2381: { truelight@2381: int i; truelight@2381: const AiDefaultRoadBlock *p; truelight@2381: truelight@2381: _want_road_truck_station = (cargo & 0x7F) != CT_PASSENGERS; truelight@2381: tron@3033: for (i = 0; (p = _road_default_block_data[i]) != NULL; i++) { truelight@2381: if (p->dir == direction) { truelight@2381: *cost = AiDoBuildDefaultRoadBlock(tile, p->data, 0); rubidium@6946: if (CmdSucceeded(*cost) && AiCheckRoadResources(tile, p->data, cargo)) truelight@2381: return i; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: return -1; truelight@2381: } truelight@2381: rubidium@6943: static CommandCost AiDoBuildDefaultRoadBlock(TileIndex tile, const AiDefaultBlockData *p, byte flag) truelight@2381: { rubidium@6943: CommandCost ret; rubidium@8230: CommandCost total_cost(EXPENSES_CONSTRUCTION); truelight@2381: Town *t = NULL; truelight@2381: int rating = 0; truelight@2381: int roadflag = 0; truelight@2381: tron@2952: for (;p->mode != 4;p++) { tron@3033: TileIndex c = TILE_MASK(tile + ToTileIndexDiff(p->tileoffs)); truelight@2381: truelight@2381: _cleared_town = NULL; truelight@2381: truelight@2381: if (p->mode == 2) { frosch@8563: if (IsNormalRoadTile(c) && rubidium@6661: (GetRoadBits(c, ROADTYPE_ROAD) & p->attr) != 0) { truelight@2381: roadflag |= 2; truelight@2381: truelight@2381: // all bits are already built? rubidium@6661: if ((GetRoadBits(c, ROADTYPE_ROAD) & p->attr) == p->attr) continue; truelight@2381: } truelight@2381: tron@3491: ret = DoCommand(c, p->attr, 0, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_ROAD); truelight@2381: if (CmdFailed(ret)) return CMD_ERROR; rubidium@6950: total_cost.AddCost(ret); truelight@2381: truelight@2381: continue; truelight@2381: } truelight@2381: truelight@2381: if (p->mode == 0) { truelight@2381: // Depot tron@3491: ret = DoCommand(c, p->attr, 0, flag | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, CMD_BUILD_ROAD_DEPOT); truelight@2381: goto clear_town_stuff; truelight@2381: } else if (p->mode == 1) { truelight@2381: if (_want_road_truck_station) { truelight@2381: // Truck station rubidium@8785: ret = DoCommand(c, p->attr, ROADTYPES_ROAD << 2 | ROADSTOP_TRUCK, flag | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, CMD_BUILD_ROAD_STOP); truelight@2381: } else { truelight@2381: // Bus station rubidium@8785: ret = DoCommand(c, p->attr, ROADTYPES_ROAD << 2 | ROADSTOP_BUS, flag | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, CMD_BUILD_ROAD_STOP); truelight@2381: } truelight@2381: clear_town_stuff:; truelight@2381: truelight@2381: if (CmdFailed(ret)) return CMD_ERROR; rubidium@6950: total_cost.AddCost(ret); truelight@2381: truelight@2381: if (_cleared_town != NULL) { tron@3033: if (t != NULL && t != _cleared_town) return CMD_ERROR; truelight@2381: t = _cleared_town; truelight@2381: rating += _cleared_town_rating; truelight@2381: } truelight@2381: } else if (p->mode == 3) { tron@3033: if (flag & DC_EXEC) continue; tron@3033: tron@3644: if (GetTileSlope(c, NULL) != SLOPE_FLAT) return CMD_ERROR; tron@3033: frosch@8563: if (!IsNormalRoadTile(c)) { tron@3491: ret = DoCommand(c, 0, 0, flag | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, CMD_LANDSCAPE_CLEAR); truelight@2381: if (CmdFailed(ret)) return CMD_ERROR; truelight@2381: } truelight@2381: truelight@2381: } truelight@2381: } truelight@2381: tron@3033: if (!_want_road_truck_station && !(roadflag & 2)) return CMD_ERROR; truelight@2381: truelight@2381: if (!(flag & DC_EXEC)) { rubidium@10207: if (t != NULL && rating > t->ratings[_current_company]) return CMD_ERROR; truelight@2381: } truelight@2381: return total_cost; truelight@2381: } truelight@2381: truelight@2381: // Make sure the blocks are not too close to each other rubidium@10207: static bool AiCheckBlockDistances(Company *c, TileIndex tile) truelight@2381: { rubidium@10207: const AiBuildRec* aib = &_companies_ai[c->index].src; rubidium@10207: uint num = _companies_ai[c->index].num_build_rec; truelight@2381: truelight@2381: do { truelight@2381: if (aib->cur_building_rule != 255) { tron@3033: if (DistanceManhattan(aib->use_tile, tile) < 9) return false; truelight@2381: } truelight@2381: } while (++aib, --num); truelight@2381: truelight@2381: return true; truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiStateBuildDefaultRoadBlocks(Company *c) truelight@2381: { tron@3033: uint i; tron@3033: int j; truelight@2381: AiBuildRec *aib; truelight@2381: int rule; rubidium@6943: CommandCost cost; truelight@2381: truelight@2381: // time out? rubidium@10207: if (++_companies_ai[c->index].timeout_counter == 1388) { rubidium@10207: _companies_ai[c->index].state = AIS_DELETE_RAIL_BLOCKS; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // do the following 8 times tron@3033: for (i = 0; i != 8; i++) { truelight@2381: // check if we can build the default track rubidium@10207: aib = &_companies_ai[c->index].src; rubidium@10207: j = _companies_ai[c->index].num_build_rec; truelight@2381: do { truelight@2381: // this item has already been built? tron@3033: if (aib->cur_building_rule != 255) continue; truelight@2381: truelight@2381: // adjust the coordinate randomly, truelight@2381: // to make sure that we find a position. truelight@2381: aib->use_tile = AdjustTileCoordRandomly(aib->spec_tile, aib->rand_rng); truelight@2381: truelight@2381: // check if the road can be built there. tron@3033: rule = AiFindBestDefaultRoadBlock( tron@3033: aib->use_tile, aib->direction, aib->cargo, &cost tron@3033: ); truelight@2381: truelight@2381: if (rule == -1) { truelight@2381: // cannot build, terraform after a while rubidium@10207: if (_companies_ai[c->index].state_counter >= 600) { rubidium@10207: AiDoTerraformLand(aib->use_tile, (DiagDirection)(Random() & 3), 3, (int8)_companies_ai[c->index].state_mode); truelight@2381: } truelight@2381: // also try the other terraform direction rubidium@10207: if (++_companies_ai[c->index].state_counter >= 1000) { rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].state_mode = -_companies_ai[c->index].state_mode; truelight@2381: } rubidium@10207: } else if (CheckCompanyHasMoney(cost) && AiCheckBlockDistances(c, aib->use_tile)) { rubidium@6943: CommandCost r; truelight@2381: rubidium@10207: // company has money, build it. truelight@2381: aib->cur_building_rule = rule; truelight@2381: truelight@2381: r = AiDoBuildDefaultRoadBlock( truelight@2381: aib->use_tile, truelight@2381: _road_default_block_data[rule]->data, truelight@2381: DC_EXEC | DC_NO_TOWN_RATING truelight@2381: ); rubidium@6946: assert(CmdSucceeded(r)); truelight@2381: } rubidium@6491: } while (++aib, --j); tron@3033: } truelight@2381: truelight@2381: // check if we're done with all of them rubidium@10207: aib = &_companies_ai[c->index].src; rubidium@10207: j = _companies_ai[c->index].num_build_rec; truelight@2381: do { tron@3033: if (aib->cur_building_rule == 255) return; rubidium@6491: } while (++aib, --j); truelight@2381: truelight@2381: // yep, all are done. switch state to the rail building state. rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_ROAD; rubidium@10207: _companies_ai[c->index].state_mode = 255; truelight@2381: } truelight@2381: rubidium@6248: struct AiRoadFinder { truelight@2381: TileIndex final_tile; rubidium@7317: DiagDirection final_dir; truelight@2381: byte depth; truelight@2381: byte recursive_mode; rubidium@7317: DiagDirection cur_best_dir; rubidium@7317: DiagDirection best_dir; truelight@2381: byte cur_best_depth; truelight@2381: byte best_depth; truelight@2381: uint cur_best_dist; truelight@2381: const byte *best_ptr; truelight@2381: uint best_dist; truelight@2381: TileIndex cur_best_tile, best_tile; truelight@2381: TileIndex bridge_end_tile; rubidium@10207: Company *company; rubidium@6248: }; rubidium@6248: rubidium@6248: struct AiRoadEnum { truelight@2381: TileIndex dest; truelight@2381: TileIndex best_tile; frosch@8795: Trackdir best_track; truelight@2381: uint best_dist; rubidium@6248: }; truelight@2381: rubidium@7317: static void AiBuildRoadRecursive(AiRoadFinder *arf, TileIndex tile, DiagDirection dir); truelight@2381: truelight@2381: static bool AiCheckRoadPathBetter(AiRoadFinder *arf, const byte *p) truelight@2381: { truelight@2381: bool better = false; truelight@2381: truelight@2381: if (arf->recursive_mode < 1) { truelight@2381: // Mode is 0. This means destination has not been found yet. truelight@2381: // If the found path is shorter than the current one, remember it. truelight@2381: if (arf->cur_best_dist < arf->best_dist || truelight@2381: (arf->cur_best_dist == arf->best_dist && arf->cur_best_depth < arf->best_depth)) { truelight@2381: arf->best_depth = arf->cur_best_depth; truelight@2381: arf->best_dist = arf->cur_best_dist; truelight@2381: arf->best_dir = arf->cur_best_dir; truelight@2381: arf->best_ptr = p; truelight@2381: arf->best_tile = arf->cur_best_tile; truelight@2381: better = true; truelight@2381: } truelight@2381: } else if (arf->recursive_mode > 1) { truelight@2381: // Mode is 2. truelight@2381: if (arf->best_dist != 0 || arf->cur_best_depth < arf->best_depth) { truelight@2381: arf->best_depth = arf->cur_best_depth; truelight@2381: arf->best_dist = 0; truelight@2381: arf->best_ptr = p; truelight@2381: arf->best_tile = 0; truelight@2381: better = true; truelight@2381: } truelight@2381: } truelight@2381: arf->recursive_mode = 0; rubidium@10236: arf->cur_best_dist = UINT_MAX; truelight@2381: arf->cur_best_depth = 0xff; truelight@2381: truelight@2381: return better; truelight@2381: } truelight@2381: truelight@2381: frosch@8795: static bool AiEnumFollowRoad(TileIndex tile, AiRoadEnum *a, Trackdir track, uint length) truelight@2381: { truelight@2381: uint dist = DistanceManhattan(tile, a->dest); truelight@2381: truelight@2381: if (dist <= a->best_dist) { frosch@8795: TileIndex tile2 = TILE_MASK(tile + TileOffsByDiagDir(TrackdirToExitdir(track))); truelight@2381: frosch@8563: if (IsNormalRoadTile(tile2)) { truelight@2381: a->best_dist = dist; truelight@2381: a->best_tile = tile; truelight@2381: a->best_track = track; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: return false; truelight@2381: } truelight@2381: rubidium@10207: static bool AiCheckRoadFinished(Company *c) truelight@2381: { truelight@2381: AiRoadEnum are; truelight@2381: TileIndex tile; rubidium@10207: DiagDirection dir = _companies_ai[c->index].cur_dir_a; rubidium@10207: rubidium@10207: are.dest = _companies_ai[c->index].cur_tile_b; rubidium@10207: tile = TILE_MASK(_companies_ai[c->index].cur_tile_a + TileOffsByDiagDir(dir)); truelight@2381: smatz@8961: if (IsRoadStopTile(tile) || IsRoadDepotTile(tile)) return false; frosch@8795: TrackdirBits bits = TrackStatusToTrackdirBits(GetTileTrackStatus(tile, TRANSPORT_ROAD, ROADTYPES_ROAD)) & DiagdirReachesTrackdirs(dir); frosch@8795: if (bits == TRACKDIR_BIT_NONE) return false; truelight@2381: rubidium@10236: are.best_dist = UINT_MAX; truelight@2381: frosch@8795: while (bits != TRACKDIR_BIT_NONE) { frosch@8795: Trackdir trackdir = RemoveFirstTrackdir(&bits); frosch@8800: FollowTrack(tile, PATHFIND_FLAGS_DISABLE_TILE_HASH, TRANSPORT_ROAD, ROADTYPES_ROAD, TrackdirToExitdir(trackdir), (TPFEnumProc*)AiEnumFollowRoad, NULL, &are); truelight@2381: } truelight@2381: tron@3033: if (DistanceManhattan(tile, are.dest) <= are.best_dist) return false; tron@3033: tron@3033: if (are.best_dist == 0) return true; truelight@2381: rubidium@10207: _companies_ai[c->index].cur_tile_a = are.best_tile; rubidium@10207: _companies_ai[c->index].cur_dir_a = TrackdirToExitdir(are.best_track); truelight@2381: return false; truelight@2381: } truelight@2381: truelight@2381: truelight@2381: static bool AiBuildRoadHelper(TileIndex tile, int flags, int type) truelight@2381: { tron@4011: static const RoadBits _road_bits[] = { tron@4011: ROAD_X, tron@4011: ROAD_Y, tron@4011: ROAD_NW | ROAD_NE, tron@4011: ROAD_SW | ROAD_SE, tron@4011: ROAD_NW | ROAD_SW, tron@4011: ROAD_SE | ROAD_NE truelight@2381: }; rubidium@6946: return CmdSucceeded(DoCommand(tile, _road_bits[type], 0, flags, CMD_BUILD_ROAD)); truelight@2381: } truelight@2381: truelight@2381: static inline void AiCheckBuildRoadBridgeHere(AiRoadFinder *arf, TileIndex tile, const byte *p) truelight@2381: { tron@3644: Slope tileh; tron@3088: uint z; truelight@2381: bool flag; truelight@2381: rubidium@7317: DiagDirection dir2 = (DiagDirection)(p[0] & 3); truelight@2381: tron@3088: tileh = GetTileSlope(tile, &z); frosch@8795: if (tileh == InclinedSlope(ReverseDiagDir(dir2)) || (tileh == SLOPE_FLAT && z != 0)) { tron@4000: TileIndex tile_new = tile; tron@4000: truelight@2381: // Allow bridges directly over bottom tiles tron@3088: flag = z == 0; tron@2952: for (;;) { tron@3088: TileType type; tron@3088: Darkvater@4559: if ((TileIndexDiff)tile_new < -TileOffsByDiagDir(dir2)) return; // Wraping around map, no bridge possible! Darkvater@4559: tile_new = TILE_MASK(tile_new + TileOffsByDiagDir(dir2)); tron@3088: type = GetTileType(tile_new); tron@3088: smatz@8351: if (type == MP_CLEAR || type == MP_TREES || GetTileSlope(tile_new, NULL) != SLOPE_FLAT) { truelight@2381: // Allow a bridge if either we have a tile that's water, rail or street, truelight@2381: // or if we found an up tile. truelight@2381: if (!flag) return; truelight@2381: break; truelight@2381: } rubidium@7370: if (type != MP_WATER && type != MP_RAILWAY && type != MP_ROAD) return; truelight@2381: flag = true; truelight@2381: } truelight@2381: truelight@2381: // Is building a (rail)bridge possible at this place (type doesn't matter)? frosch@10149: if (CmdFailed(DoCommand(tile_new, tile, ROADTYPES_ROAD << 8 | TRANSPORT_ROAD << 15, DC_AUTO, CMD_BUILD_BRIDGE))) truelight@2381: return; truelight@2381: AiBuildRoadRecursive(arf, tile_new, dir2); truelight@2381: truelight@2381: // At the bottom depth, check if the new path is better than the old one. truelight@2381: if (arf->depth == 1) { tron@3033: if (AiCheckRoadPathBetter(arf, p)) arf->bridge_end_tile = tile_new; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static inline void AiCheckBuildRoadTunnelHere(AiRoadFinder *arf, TileIndex tile, const byte *p) truelight@2381: { tron@3088: uint z; tron@3088: frosch@8795: if (GetTileSlope(tile, &z) == InclinedSlope((DiagDirection)(p[0] & 3)) && z != 0) { rubidium@6943: CommandCost cost = DoCommand(tile, 0x200, 0, DC_AUTO, CMD_BUILD_TUNNEL); truelight@2381: rubidium@10207: if (CmdSucceeded(cost) && cost.GetCost() <= (arf->company->money >> 4)) { rubidium@7317: AiBuildRoadRecursive(arf, _build_tunnel_endtile, (DiagDirection)(p[0] & 3)); tron@4000: if (arf->depth == 1) AiCheckRoadPathBetter(arf, p); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: truelight@2381: rubidium@7317: static void AiBuildRoadRecursive(AiRoadFinder *arf, TileIndex tile, DiagDirection dir) truelight@2381: { truelight@2381: const byte *p; truelight@2381: Darkvater@4559: tile = TILE_MASK(tile + TileOffsByDiagDir(dir)); truelight@2381: truelight@2381: // Reached destination? truelight@2381: if (tile == arf->final_tile) { rubidium@7317: if (ReverseDiagDir(arf->final_dir) == dir) { truelight@2381: arf->recursive_mode = 2; truelight@2381: arf->cur_best_depth = arf->depth; truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Depth too deep? truelight@2381: if (arf->depth >= 4) { truelight@2381: uint dist = DistanceMaxPlusManhattan(tile, arf->final_tile); truelight@2381: if (dist < arf->cur_best_dist) { truelight@2381: // Store the tile that is closest to the final position. truelight@2381: arf->cur_best_dist = dist; truelight@2381: arf->cur_best_tile = tile; truelight@2381: arf->cur_best_dir = dir; truelight@2381: arf->cur_best_depth = arf->depth; truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Increase recursion depth truelight@2381: arf->depth++; truelight@2381: truelight@2381: // Grab pointer to list of stuff that is possible to build truelight@2381: p = _ai_table_15[dir]; truelight@2381: truelight@2381: // Try to build a single rail in all directions. tron@3088: if (GetTileZ(tile) == 0) { truelight@2381: p += 6; truelight@2381: } else { truelight@2381: do { truelight@2381: // Make sure that a road can be built here. truelight@2381: if (AiBuildRoadHelper(tile, DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, p[0])) { rubidium@7317: AiBuildRoadRecursive(arf, tile, (DiagDirection)p[1]); truelight@2381: } truelight@2381: truelight@2381: // At the bottom depth? tron@3033: if (arf->depth == 1) AiCheckRoadPathBetter(arf, p); truelight@2381: truelight@2381: p += 2; tron@3033: } while (!(p[0] & 0x80)); truelight@2381: } truelight@2381: truelight@2381: AiCheckBuildRoadBridgeHere(arf, tile, p); rubidium@6491: AiCheckBuildRoadTunnelHere(arf, tile, p + 1); truelight@2381: truelight@2381: arf->depth--; truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiBuildRoadConstruct(Company *c) truelight@2381: { truelight@2381: AiRoadFinder arf; truelight@2381: int i; truelight@2381: TileIndex tile; truelight@2381: truelight@2381: // Reached destination? rubidium@10207: if (AiCheckRoadFinished(c)) { rubidium@10207: _companies_ai[c->index].state_mode = 255; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Setup recursive finder and call it. rubidium@10207: arf.company = c; rubidium@10207: arf.final_tile = _companies_ai[c->index].cur_tile_b; rubidium@10207: arf.final_dir = _companies_ai[c->index].cur_dir_b; truelight@2381: arf.depth = 0; truelight@2381: arf.recursive_mode = 0; truelight@2381: arf.best_ptr = NULL; rubidium@10236: arf.cur_best_dist = UINT_MAX; truelight@2381: arf.cur_best_depth = 0xff; rubidium@10236: arf.best_dist = UINT_MAX; truelight@2381: arf.best_depth = 0xff; truelight@2381: arf.cur_best_tile = 0; truelight@2381: arf.best_tile = 0; rubidium@10207: AiBuildRoadRecursive(&arf, _companies_ai[c->index].cur_tile_a, _companies_ai[c->index].cur_dir_a); truelight@2381: truelight@2381: // Reached destination? truelight@2381: if (arf.recursive_mode == 2 && arf.cur_best_depth == 0) { rubidium@10207: _companies_ai[c->index].state_mode = 255; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Didn't find anything to build? truelight@2381: if (arf.best_ptr == NULL) { truelight@2381: // Terraform some truelight@2381: do_some_terraform: tron@3033: for (i = 0; i != 5; i++) rubidium@10207: AiDoTerraformLand(_companies_ai[c->index].cur_tile_a, _companies_ai[c->index].cur_dir_a, 3, 0); rubidium@10207: rubidium@10207: if (++_companies_ai[c->index].state_counter == 21) { rubidium@10207: _companies_ai[c->index].state_mode = 1; rubidium@10207: rubidium@10207: _companies_ai[c->index].cur_tile_a = TILE_MASK(_companies_ai[c->index].cur_tile_a + TileOffsByDiagDir(_companies_ai[c->index].cur_dir_a)); rubidium@10207: _companies_ai[c->index].cur_dir_a = ReverseDiagDir(_companies_ai[c->index].cur_dir_a); rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: rubidium@10207: tile = TILE_MASK(_companies_ai[c->index].cur_tile_a + TileOffsByDiagDir(_companies_ai[c->index].cur_dir_a)); truelight@2381: rubidium@6491: if (arf.best_ptr[0] & 0x80) { smatz@8617: TileIndex t1 = tile; smatz@8617: TileIndex t2 = arf.bridge_end_tile; smatz@8617: smatz@8617: int32 bridge_len = GetTunnelBridgeLength(t1, t2); smatz@8617: smatz@8617: Axis axis = (TileX(t1) == TileX(t2) ? AXIS_Y : AXIS_X); smatz@8617: smatz@8617: /* try to build a long road instead of bridge - CMD_BUILD_LONG_ROAD has to fail if it couldn't build at least one piece! */ rubidium@8970: CommandCost cost = DoCommand(t2, t1, (t2 < t1 ? 1 : 2) | (axis << 2) | (ROADTYPE_ROAD << 3), DC_AUTO | DC_NO_WATER, CMD_BUILD_LONG_ROAD); smatz@8617: rubidium@10207: if (CmdSucceeded(cost) && cost.GetCost() <= c->money) { smatz@8617: DoCommand(t2, t1, (t2 < t1 ? 1 : 2) | (axis << 2) | (ROADTYPE_ROAD << 3), DC_AUTO | DC_EXEC | DC_NO_WATER, CMD_BUILD_LONG_ROAD); smatz@8617: } else { smatz@8617: int i; smatz@8617: smatz@8617: /* Figure out what (road)bridge type to build smatz@8617: * start with best bridge, then go down to worse and worse bridges smatz@8617: * unnecessary to check for worse bridge (i=0), since AI will always build that */ smatz@8617: for (i = MAX_BRIDGES - 1; i != 0; i--) { smatz@8617: if (CheckBridge_Stuff(i, bridge_len)) { frosch@10149: CommandCost cost = DoCommand(t1, t2, i | ROADTYPES_ROAD << 8 | TRANSPORT_ROAD << 15, DC_AUTO, CMD_BUILD_BRIDGE); rubidium@10207: if (CmdSucceeded(cost) && cost.GetCost() < (c->money >> 1) && cost.GetCost() < ((c->money + _economy.max_loan - c->current_loan) >> 5)) break; smatz@8617: } truelight@2381: } smatz@8617: smatz@8617: /* Build it */ frosch@10149: DoCommand(t1, t2, i | ROADTYPES_ROAD << 8 | TRANSPORT_ROAD << 15, DC_AUTO | DC_EXEC, CMD_BUILD_BRIDGE); truelight@2381: } truelight@2381: rubidium@10207: _companies_ai[c->index].cur_tile_a = t2; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@6491: } else if (arf.best_ptr[0] & 0x40) { truelight@2381: // tunnel tron@3491: DoCommand(tile, 0x200, 0, DC_AUTO | DC_EXEC, CMD_BUILD_TUNNEL); rubidium@10207: _companies_ai[c->index].cur_tile_a = _build_tunnel_endtile; rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } else { truelight@2381: // road truelight@2381: if (!AiBuildRoadHelper(tile, DC_EXEC | DC_AUTO | DC_NO_WATER | DC_AI_BUILDING, arf.best_ptr[0])) truelight@2381: goto do_some_terraform; truelight@2381: rubidium@10207: _companies_ai[c->index].cur_dir_a = (DiagDirection)(arf.best_ptr[1] & 3); rubidium@10207: _companies_ai[c->index].cur_tile_a = tile; rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } truelight@2381: truelight@2381: if (arf.best_tile != 0) { tron@3033: for (i = 0; i != 2; i++) truelight@2381: AiDoTerraformLand(arf.best_tile, arf.best_dir, 3, 0); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiBuildRoad(Company *c) truelight@2381: { rubidium@10207: if (_companies_ai[c->index].state_mode < 1) { truelight@2381: // Construct mode, build new road. rubidium@10207: AiBuildRoadConstruct(c); rubidium@10207: } else if (_companies_ai[c->index].state_mode == 1) { truelight@2381: // Destruct mode, not implemented for roads. rubidium@10207: _companies_ai[c->index].state_mode = 2; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: } else if (_companies_ai[c->index].state_mode == 2) { tron@3033: uint i; truelight@2381: truelight@2381: // Terraform some and then try building again. tron@4000: for (i = 0; i != 4; i++) { rubidium@10207: AiDoTerraformLand(_companies_ai[c->index].cur_tile_a, _companies_ai[c->index].cur_dir_a, 3, 0); tron@4000: } truelight@2381: rubidium@10207: if (++_companies_ai[c->index].state_counter == 4) { rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].state_mode = 0; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@7317: static TileIndex AiGetRoadBlockEdge(byte rule, TileIndex tile, DiagDirection *dir) truelight@2381: { truelight@2381: const AiDefaultBlockData *p = _road_default_block_data[rule]->data; truelight@2381: while (p->mode != 1) p++; truelight@2381: *dir = p->attr; truelight@2381: return TILE_ADD(tile, ToTileIndexDiff(p->tileoffs)); truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiStateBuildRoad(Company *c) truelight@2381: { truelight@2381: int num; truelight@2381: AiBuildRec *aib; truelight@2381: byte cmd; truelight@2381: TileIndex tile; rubidium@7317: DiagDirection dir; truelight@2381: truelight@2381: // time out? rubidium@10207: if (++_companies_ai[c->index].timeout_counter == 1388) { rubidium@10207: _companies_ai[c->index].state = AIS_DELETE_ROAD_BLOCKS; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Currently building a road between two points? rubidium@10207: if (_companies_ai[c->index].state_mode != 255) { rubidium@10207: AiBuildRoad(c); truelight@2381: truelight@2381: // Alternate between edges rubidium@10207: Swap(_companies_ai[c->index].start_tile_a, _companies_ai[c->index].start_tile_b); rubidium@10207: Swap(_companies_ai[c->index].cur_tile_a, _companies_ai[c->index].cur_tile_b); rubidium@10207: Swap(_companies_ai[c->index].start_dir_a, _companies_ai[c->index].start_dir_b); rubidium@10207: Swap(_companies_ai[c->index].cur_dir_a, _companies_ai[c->index].cur_dir_b); truelight@2381: truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Now, find two new points to build between rubidium@10207: num = _companies_ai[c->index].num_build_rec; rubidium@10207: aib = &_companies_ai[c->index].src; truelight@2381: tron@2952: for (;;) { truelight@2381: cmd = aib->buildcmd_a; truelight@2381: aib->buildcmd_a = 255; truelight@2381: if (cmd != 255) break; truelight@2381: truelight@2381: aib++; truelight@2381: if (--num == 0) { rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_ROAD_VEHICLES; truelight@2381: return; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: // Find first edge to build from. truelight@2381: tile = AiGetRoadBlockEdge(aib->cur_building_rule, aib->use_tile, &dir); rubidium@10207: _companies_ai[c->index].start_tile_a = tile; rubidium@10207: _companies_ai[c->index].cur_tile_a = tile; rubidium@10207: _companies_ai[c->index].start_dir_a = dir; rubidium@10207: _companies_ai[c->index].cur_dir_a = dir; truelight@2381: truelight@2381: // Find second edge to build to rubidium@10207: aib = (&_companies_ai[c->index].src) + (cmd & 0xF); truelight@2381: tile = AiGetRoadBlockEdge(aib->cur_building_rule, aib->use_tile, &dir); rubidium@10207: _companies_ai[c->index].start_tile_b = tile; rubidium@10207: _companies_ai[c->index].cur_tile_b = tile; rubidium@10207: _companies_ai[c->index].start_dir_b = dir; rubidium@10207: _companies_ai[c->index].cur_dir_b = dir; truelight@2381: truelight@2381: // And setup state. rubidium@10207: _companies_ai[c->index].state_mode = 2; rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].banned_tile_count = 0; truelight@2381: } truelight@2381: tron@3315: static StationID AiGetStationIdFromRoadBlock(TileIndex tile, int id) truelight@2381: { truelight@2381: const AiDefaultBlockData *p = _road_default_block_data[id]->data; truelight@2381: while (p->mode != 1) p++; tron@3315: return GetStationIndex(TILE_ADD(tile, ToTileIndexDiff(p->tileoffs))); truelight@2381: } truelight@2381: rubidium@10207: static void AiStateBuildRoadVehicles(Company *c) truelight@2381: { truelight@2381: const AiDefaultBlockData *ptr; truelight@2381: TileIndex tile; tron@4000: VehicleID loco_id; tron@2551: EngineID veh; tron@3033: uint i; truelight@2381: rubidium@10207: ptr = _road_default_block_data[_companies_ai[c->index].src.cur_building_rule]->data; tron@3033: for (; ptr->mode != 0; ptr++) {} rubidium@10207: tile = TILE_ADD(_companies_ai[c->index].src.use_tile, ToTileIndexDiff(ptr->tileoffs)); rubidium@10207: rubidium@10207: veh = AiChooseRoadVehToBuild(_companies_ai[c->index].cargo_type, c->money, tile); tron@2551: if (veh == INVALID_ENGINE) { rubidium@10207: _companies_ai[c->index].state = AIS_0; truelight@2381: return; truelight@2381: } truelight@2381: tron@3491: if (CmdFailed(DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_ROAD_VEH))) return; truelight@2381: tron@3948: loco_id = _new_vehicle_id; truelight@2381: rubidium@10207: if (GetVehicle(loco_id)->cargo_type != _companies_ai[c->index].cargo_type) { peter1138@5031: /* Cargo type doesn't match, so refit it */ rubidium@10207: if (CmdFailed(DoCommand(tile, loco_id, _companies_ai[c->index].cargo_type, DC_EXEC, CMD_REFIT_ROAD_VEH))) { peter1138@5031: /* Refit failed... sell the vehicle */ peter1138@5031: DoCommand(tile, loco_id, 0, DC_EXEC, CMD_SELL_ROAD_VEH); peter1138@5031: return; peter1138@5031: } peter1138@5031: } peter1138@5031: rubidium@10207: for (i = 0; _companies_ai[c->index].order_list_blocks[i] != 0xFF; i++) { rubidium@10207: const AiBuildRec* aib = &_companies_ai[c->index].src + _companies_ai[c->index].order_list_blocks[i]; tron@2639: bool is_pass = ( rubidium@10207: _companies_ai[c->index].cargo_type == CT_PASSENGERS || rubidium@10207: _companies_ai[c->index].cargo_type == CT_MAIL || rubidium@10207: (_settings_game.game_creation.landscape == LT_TEMPERATE && _companies_ai[c->index].cargo_type == CT_VALUABLES) tron@2639: ); truelight@2381: Order order; truelight@2381: rubidium@8836: order.MakeGoToStation(AiGetStationIdFromRoadBlock(aib->use_tile, aib->cur_building_rule)); truelight@2381: rubidium@8855: if (!is_pass && i == 1) order.SetUnloadType(OUFB_UNLOAD); rubidium@10207: if (_companies_ai[c->index].num_want_fullload != 0 && (is_pass || i == 0)) rubidium@8855: order.SetLoadType(OLFB_FULL_LOAD); truelight@2381: rubidium@8839: DoCommand(0, loco_id + (i << 16), order.Pack(), DC_EXEC, CMD_INSERT_ORDER); truelight@2381: } truelight@2381: frosch@9921: DoCommand(0, loco_id, 0, DC_EXEC, CMD_START_STOP_VEHICLE); tron@3491: DoCommand(0, loco_id, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: rubidium@10207: if (_companies_ai[c->index].num_want_fullload != 0) _companies_ai[c->index].num_want_fullload--; rubidium@10207: if (--_companies_ai[c->index].num_loco_to_build == 0) _companies_ai[c->index].state = AIS_0; truelight@2381: } truelight@2381: rubidium@10207: static void AiStateDeleteRoadBlocks(Company *c) truelight@2381: { rubidium@10207: const AiBuildRec* aib = &_companies_ai[c->index].src; rubidium@10207: uint num = _companies_ai[c->index].num_build_rec; tron@4011: truelight@2381: do { tron@4011: const AiDefaultBlockData* b; tron@4011: tron@4011: if (aib->cur_building_rule == 255) continue; tron@4011: for (b = _road_default_block_data[aib->cur_building_rule]->data; b->mode != 4; b++) { tron@4011: if (b->mode > 1) continue; tron@4011: DoCommand(TILE_ADD(aib->use_tile, ToTileIndexDiff(b->tileoffs)), 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); truelight@2381: } rubidium@6491: } while (++aib, --num); truelight@2381: rubidium@10207: _companies_ai[c->index].state = AIS_0; truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: static void AiStateAirportStuff(Company *c) truelight@2381: { tron@4000: const Station* st; truelight@2381: int i; truelight@2381: AiBuildRec *aib; truelight@2381: byte rule; truelight@2381: truelight@2381: // Here we look for an airport we could use instead of building a new truelight@2381: // one. If we find such an aiport for any waypoint, truelight@2381: // AiStateBuildDefaultAirportBlocks() will kindly skip that one when truelight@2381: // building the waypoints. truelight@2381: truelight@2381: i = 0; truelight@2381: do { truelight@2381: // We do this all twice - once for the source (town in the case truelight@2381: // of oilrig route) and then for the destination (oilrig in the truelight@2381: // case of oilrig route). rubidium@10207: aib = &_companies_ai[c->index].src + i; truelight@2381: truelight@2381: FOR_ALL_STATIONS(st) { truelight@2381: // Is this an airport? tron@3033: if (!(st->facilities & FACIL_AIRPORT)) continue; truelight@2381: truelight@2381: // Do we own the airport? (Oilrigs aren't owned, though.) rubidium@10207: if (st->owner != OWNER_NONE && st->owner != _current_company) continue; truelight@2381: tron@6032: AirportFTAClass::Flags flags = st->Airport()->flags; tron@6024: smatz@9330: /* if airport doesn't accept our kind of plane, dismiss it */ rubidium@10207: if (!(flags & (_companies_ai[c->index].build_kind == 1 ? AirportFTAClass::HELICOPTERS : AirportFTAClass::AIRPLANES))) { truelight@2381: continue; tron@6024: } truelight@2381: truelight@2381: // Dismiss airports too far away. truelight@2381: if (DistanceMax(st->airport_tile, aib->spec_tile) > aib->rand_rng) truelight@2381: continue; truelight@2381: truelight@2381: // It's ideal airport, let's take it! truelight@2381: truelight@2381: /* XXX: This part is utterly broken - rule should truelight@2381: * contain number of the rule appropriate for the truelight@2381: * airport type (country, town, ...), see truelight@2381: * _airport_default_block_data (rule is just an index truelight@2381: * in this array). But the only difference between the truelight@2381: * currently existing two rules (rule 0 - town and rule truelight@2381: * 1 - country) is the attr field which is used only truelight@2381: * when building new airports - and that's irrelevant truelight@2381: * for us. So using just about any rule will suffice truelight@2381: * here for now (some of the new airport types would be truelight@2381: * broken because they will probably need different truelight@2381: * tileoff values etc), no matter that tron@3338: * IsHangarTile() makes no sense. --pasky */ KUDr@6027: if (!(flags & AirportFTAClass::AIRPLANES)) { truelight@2381: /* Heliports should have maybe own rulesets but truelight@2381: * OTOH we don't want AI to pick them up when truelight@2381: * looking for a suitable airport type to build. truelight@2381: * So any of rules 0 or 1 would do for now. The truelight@2381: * original rule number was 2 but that's a bug truelight@2381: * because we have no such rule. */ truelight@2381: rule = 1; truelight@2381: } else { tron@3338: rule = IsHangarTile(st->airport_tile); truelight@2381: } truelight@2381: truelight@2381: aib->cur_building_rule = rule; truelight@2381: aib->use_tile = st->airport_tile; truelight@2381: break; truelight@2381: } rubidium@10207: } while (++i != _companies_ai[c->index].num_build_rec); rubidium@10207: rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_DEFAULT_AIRPORT_BLOCKS; rubidium@10207: _companies_ai[c->index].state_mode = 255; rubidium@10207: _companies_ai[c->index].state_counter = 0; truelight@2381: } truelight@2381: rubidium@6943: static CommandCost AiDoBuildDefaultAirportBlock(TileIndex tile, const AiDefaultBlockData *p, byte flag) truelight@2381: { tron@5971: uint32 avail_airports = GetValidAirports(); rubidium@8230: CommandCost ret,total_cost(EXPENSES_CONSTRUCTION); truelight@2381: tron@3033: for (; p->mode == 0; p++) { skidd13@7928: if (!HasBit(avail_airports, p->attr)) return CMD_ERROR; rubidium@6491: ret = DoCommand(TILE_MASK(tile + ToTileIndexDiff(p->tileoffs)), p->attr, 0, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_AIRPORT); truelight@2381: if (CmdFailed(ret)) return CMD_ERROR; rubidium@6950: total_cost.AddCost(ret); truelight@2381: } truelight@2381: truelight@2381: return total_cost; truelight@2381: } truelight@2381: truelight@2381: static bool AiCheckAirportResources(TileIndex tile, const AiDefaultBlockData *p, byte cargo) truelight@2381: { truelight@2381: uint values[NUM_CARGO]; truelight@2381: tron@3033: for (; p->mode == 0; p++) { truelight@2381: TileIndex tile2 = TILE_ADD(tile, ToTileIndexDiff(p->tileoffs)); tron@3876: const AirportFTAClass* airport = GetAirport(p->attr); tron@3876: uint w = airport->size_x; tron@3876: uint h = airport->size_y; rubidium@9413: uint rad = _settings_game.station.modified_catchment ? airport->catchment : (uint)CA_UNMODIFIED; tron@3033: truelight@2381: if (cargo & 0x80) { truelight@2381: GetProductionAroundTiles(values, tile2, w, h, rad); truelight@2381: return values[cargo & 0x7F] != 0; truelight@2381: } else { truelight@2381: GetAcceptanceAroundTiles(values, tile2, w, h, rad); truelight@2381: return values[cargo] >= 8; truelight@2381: } truelight@2381: } truelight@2381: return true; truelight@2381: } truelight@2381: rubidium@6943: static int AiFindBestDefaultAirportBlock(TileIndex tile, byte cargo, byte heli, CommandCost *cost) truelight@2381: { truelight@2381: const AiDefaultBlockData *p; smatz@9329: smatz@9329: bool no_small = false; smatz@9329: smatz@9329: if (!heli) { smatz@9329: /* do not build small airport if we have large available and we are not building heli route */ smatz@9329: uint valid = GetValidAirports(); smatz@9329: for (uint i = 0; (p = _airport_default_block_data[i]) != NULL; i++) { smatz@9331: uint flags = GetAirport(p->attr)->flags; smatz@9331: if (HasBit(valid, p->attr) && (flags & AirportFTAClass::AIRPLANES) && !(flags & AirportFTAClass::SHORT_STRIP)) { smatz@9329: no_small = true; smatz@9329: break; smatz@9329: } smatz@9329: } smatz@9329: } smatz@9329: smatz@9329: for (uint i = 0; (p = _airport_default_block_data[i]) != NULL; i++) { smatz@9329: uint flags = GetAirport(p->attr)->flags; smatz@9329: /* If we are doing a helicopter service, avoid building airports where they can't land */ smatz@9329: if (heli && !(flags & AirportFTAClass::HELICOPTERS)) continue; smatz@9329: /* Similiar with aircraft ... */ smatz@9329: if (!heli && !(flags & AirportFTAClass::AIRPLANES)) continue; smatz@9329: /* Do not build small airport if we prefer large */ smatz@9329: if (no_small && (flags & AirportFTAClass::SHORT_STRIP)) continue; truelight@2381: truelight@2381: *cost = AiDoBuildDefaultAirportBlock(tile, p, 0); rubidium@6946: if (CmdSucceeded(*cost) && AiCheckAirportResources(tile, p, cargo)) truelight@2381: return i; truelight@2381: } truelight@2381: return -1; truelight@2381: } truelight@2381: rubidium@10207: static void AiStateBuildDefaultAirportBlocks(Company *c) truelight@2381: { truelight@2381: int i, j; truelight@2381: AiBuildRec *aib; truelight@2381: int rule; rubidium@6943: CommandCost cost; truelight@2381: truelight@2381: // time out? rubidium@10207: if (++_companies_ai[c->index].timeout_counter == 1388) { rubidium@10207: _companies_ai[c->index].state = AIS_0; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // do the following 8 times truelight@2381: i = 8; truelight@2381: do { truelight@2381: // check if we can build the default rubidium@10207: aib = &_companies_ai[c->index].src; rubidium@10207: j = _companies_ai[c->index].num_build_rec; truelight@2381: do { truelight@2381: // this item has already been built? tron@3033: if (aib->cur_building_rule != 255) continue; truelight@2381: truelight@2381: // adjust the coordinate randomly, truelight@2381: // to make sure that we find a position. truelight@2381: aib->use_tile = AdjustTileCoordRandomly(aib->spec_tile, aib->rand_rng); truelight@2381: truelight@2381: // check if the aircraft stuff can be built there. rubidium@10207: rule = AiFindBestDefaultAirportBlock(aib->use_tile, aib->cargo, _companies_ai[c->index].build_kind, &cost); truelight@2381: truelight@2381: // SetRedErrorSquare(aib->use_tile); truelight@2381: truelight@2381: if (rule == -1) { truelight@2381: // cannot build, terraform after a while rubidium@10207: if (_companies_ai[c->index].state_counter >= 600) { rubidium@10207: AiDoTerraformLand(aib->use_tile, (DiagDirection)(Random() & 3), 3, (int8)_companies_ai[c->index].state_mode); truelight@2381: } truelight@2381: // also try the other terraform direction rubidium@10207: if (++_companies_ai[c->index].state_counter >= 1000) { rubidium@10207: _companies_ai[c->index].state_counter = 0; rubidium@10207: _companies_ai[c->index].state_mode = -_companies_ai[c->index].state_mode; truelight@2381: } rubidium@10207: } else if (CheckCompanyHasMoney(cost) && AiCheckBlockDistances(c, aib->use_tile)) { rubidium@10207: // company has money, build it. rubidium@6943: CommandCost r; truelight@2381: truelight@2381: aib->cur_building_rule = rule; truelight@2381: truelight@2381: r = AiDoBuildDefaultAirportBlock( truelight@2381: aib->use_tile, truelight@2381: _airport_default_block_data[rule], truelight@2381: DC_EXEC | DC_NO_TOWN_RATING truelight@2381: ); rubidium@6946: assert(CmdSucceeded(r)); truelight@2381: } rubidium@6491: } while (++aib, --j); truelight@2381: } while (--i); truelight@2381: truelight@2381: // check if we're done with all of them rubidium@10207: aib = &_companies_ai[c->index].src; rubidium@10207: j = _companies_ai[c->index].num_build_rec; truelight@2381: do { tron@3033: if (aib->cur_building_rule == 255) return; rubidium@6491: } while (++aib, --j); truelight@2381: truelight@2381: // yep, all are done. switch state. rubidium@10207: _companies_ai[c->index].state = AIS_BUILD_AIRCRAFT_VEHICLES; truelight@2381: } truelight@2381: tron@3315: static StationID AiGetStationIdFromAircraftBlock(TileIndex tile, int id) truelight@2381: { truelight@2381: const AiDefaultBlockData *p = _airport_default_block_data[id]; truelight@2381: while (p->mode != 1) p++; tron@3315: return GetStationIndex(TILE_ADD(tile, ToTileIndexDiff(p->tileoffs))); truelight@2381: } truelight@2381: rubidium@10207: static void AiStateBuildAircraftVehicles(Company *c) truelight@2381: { truelight@2381: const AiDefaultBlockData *ptr; truelight@2381: TileIndex tile; tron@2544: EngineID veh; truelight@2381: int i; tron@4000: VehicleID loco_id; truelight@2381: rubidium@10207: ptr = _airport_default_block_data[_companies_ai[c->index].src.cur_building_rule]; tron@4000: for (; ptr->mode != 0; ptr++) {} truelight@2381: rubidium@10207: tile = TILE_ADD(_companies_ai[c->index].src.use_tile, ToTileIndexDiff(ptr->tileoffs)); rubidium@8229: smatz@8402: /* determine forbidden aircraft bits */ smatz@8402: byte forbidden = 0; rubidium@10207: for (i = 0; _companies_ai[c->index].order_list_blocks[i] != 0xFF; i++) { rubidium@10207: const AiBuildRec *aib = (&_companies_ai[c->index].src) + _companies_ai[c->index].order_list_blocks[i]; smatz@8402: const Station *st = GetStationByTile(aib->use_tile); smatz@8402: smatz@8402: if (st == NULL || !(st->facilities & FACIL_AIRPORT)) continue; smatz@8402: smatz@8402: AirportFTAClass::Flags flags = st->Airport()->flags; smatz@8402: if (!(flags & AirportFTAClass::AIRPLANES)) forbidden |= AIR_CTOL | AIR_FAST; // no planes for heliports / oil rigs smatz@8402: if (flags & AirportFTAClass::SHORT_STRIP) forbidden |= AIR_FAST; // no fast planes for small airports smatz@8402: } smatz@8402: rubidium@10207: veh = AiChooseAircraftToBuild(c->money, forbidden); tron@2544: if (veh == INVALID_ENGINE) return; rubidium@9855: if (GetStationByTile(tile)->Airport()->nof_depots == 0) return; Darkvater@2423: Darkvater@2423: /* XXX - Have the AI pick the hangar terminal in an airport. Eg get airport-type Darkvater@2423: * and offset to the FIRST depot because the AI picks the st->xy tile */ tron@6032: tile += ToTileIndexDiff(GetStationByTile(tile)->Airport()->airport_depots[0]); tron@3491: if (CmdFailed(DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_AIRCRAFT))) return; tron@3948: loco_id = _new_vehicle_id; truelight@2381: rubidium@10207: for (i = 0; _companies_ai[c->index].order_list_blocks[i] != 0xFF; i++) { rubidium@10207: AiBuildRec *aib = (&_companies_ai[c->index].src) + _companies_ai[c->index].order_list_blocks[i]; rubidium@10207: bool is_pass = (_companies_ai[c->index].cargo_type == CT_PASSENGERS || _companies_ai[c->index].cargo_type == CT_MAIL); truelight@2381: Order order; truelight@2381: rubidium@8836: order.MakeGoToStation(AiGetStationIdFromAircraftBlock(aib->use_tile, aib->cur_building_rule)); truelight@2381: rubidium@8855: if (!is_pass && i == 1) order.SetUnloadType(OUFB_UNLOAD); rubidium@10207: if (_companies_ai[c->index].num_want_fullload != 0 && (is_pass || i == 0)) rubidium@8855: order.SetLoadType(OLFB_FULL_LOAD); truelight@2381: rubidium@8839: DoCommand(0, loco_id + (i << 16), order.Pack(), DC_EXEC, CMD_INSERT_ORDER); truelight@2381: } truelight@2381: frosch@9921: DoCommand(0, loco_id, 0, DC_EXEC, CMD_START_STOP_VEHICLE); tron@3491: tron@3491: DoCommand(0, loco_id, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: rubidium@10207: if (_companies_ai[c->index].num_want_fullload != 0) _companies_ai[c->index].num_want_fullload--; rubidium@10207: rubidium@10207: if (--_companies_ai[c->index].num_loco_to_build == 0) _companies_ai[c->index].state = AIS_0; truelight@2381: } truelight@2381: rubidium@10207: static void AiStateCheckShipStuff(Company *c) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: rubidium@10207: static void AiStateBuildDefaultShipBlocks(Company *c) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: rubidium@10207: static void AiStateDoShipStuff(Company *c) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: rubidium@10207: static void AiStateSellVeh(Company *c) truelight@2381: { rubidium@10207: Vehicle *v = _companies_ai[c->index].cur_veh; rubidium@10207: rubidium@10207: if (v->owner == _current_company) { rubidium@6259: if (v->type == VEH_TRAIN) { truelight@2381: smatz@8961: if (!IsRailDepotTile(v->tile) || v->u.rail.track != TRACK_BIT_DEPOT || !(v->vehstatus & VS_STOPPED)) { rubidium@8836: if (!v->current_order.IsType(OT_GOTO_DEPOT)) Darkvater@4495: DoCommand(0, v->index, 0, DC_EXEC, CMD_SEND_TRAIN_TO_DEPOT); truelight@2381: goto going_to_depot; truelight@2381: } truelight@2381: truelight@2381: // Sell whole train tron@3491: DoCommand(v->tile, v->index, 1, DC_EXEC, CMD_SELL_RAIL_WAGON); truelight@2381: rubidium@6259: } else if (v->type == VEH_ROAD) { rubidium@7490: if (!v->IsStoppedInDepot()) { rubidium@8836: if (!v->current_order.IsType(OT_GOTO_DEPOT)) tron@3491: DoCommand(0, v->index, 0, DC_EXEC, CMD_SEND_ROADVEH_TO_DEPOT); truelight@2381: goto going_to_depot; truelight@2381: } truelight@2381: tron@3491: DoCommand(0, v->index, 0, DC_EXEC, CMD_SELL_ROAD_VEH); rubidium@6259: } else if (v->type == VEH_AIRCRAFT) { rubidium@7490: if (!v->IsStoppedInDepot()) { rubidium@8836: if (!v->current_order.IsType(OT_GOTO_DEPOT)) tron@3491: DoCommand(0, v->index, 0, DC_EXEC, CMD_SEND_AIRCRAFT_TO_HANGAR); truelight@2381: goto going_to_depot; truelight@2381: } truelight@2381: tron@3491: DoCommand(0, v->index, 0, DC_EXEC, CMD_SELL_AIRCRAFT); rubidium@7455: } else if (v->type == VEH_SHIP) { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: goto return_to_loop; truelight@2381: going_to_depot:; rubidium@10207: if (++_companies_ai[c->index].state_counter <= 832) return; truelight@2381: rubidium@8836: if (v->current_order.IsType(OT_GOTO_DEPOT)) { rubidium@8836: v->current_order.MakeDummy(); truelight@2381: InvalidateWindow(WC_VEHICLE_VIEW, v->index); truelight@2381: } truelight@2381: return_to_loop:; rubidium@10207: _companies_ai[c->index].state = AIS_VEH_LOOP; truelight@2381: } truelight@2381: rubidium@10207: static void AiStateRemoveStation(Company *c) truelight@2381: { truelight@2381: // Remove stations that aren't in use by any vehicle truelight@2381: const Order *ord; truelight@2381: const Station *st; truelight@2381: TileIndex tile; truelight@2381: truelight@2381: // Go to this state when we're done. rubidium@10207: _companies_ai[c->index].state = AIS_1; truelight@2381: truelight@2381: // Get a list of all stations that are in use by a vehicle KUDr@5609: byte *in_use = MallocT(GetMaxStationIndex() + 1); matthijs@5247: memset(in_use, 0, GetMaxStationIndex() + 1); truelight@2381: FOR_ALL_ORDERS(ord) { rubidium@8840: if (ord->IsType(OT_GOTO_STATION)) in_use[ord->GetDestination()] = 1; truelight@2381: } truelight@2381: truelight@2381: // Go through all stations and delete those that aren't in use truelight@2381: FOR_ALL_STATIONS(st) { rubidium@10207: if (st->owner == _current_company && !in_use[st->index] && truelight@2381: ( (st->bus_stops != NULL && (tile = st->bus_stops->xy) != 0) || truelight@2381: (st->truck_stops != NULL && (tile = st->truck_stops->xy)) != 0 || truelight@2381: (tile = st->train_tile) != 0 || truelight@2381: (tile = st->dock_tile) != 0 || truelight@2381: (tile = st->airport_tile) != 0)) { tron@3491: DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: free(in_use); truelight@2381: } truelight@2381: rubidium@10207: static void AiRemoveCompanyRailOrRoad(Company *c, TileIndex tile) truelight@2381: { tron@3269: TrackBits rails; truelight@2381: truelight@2381: if (IsTileType(tile, MP_RAILWAY)) { rubidium@10207: if (!IsTileOwner(tile, _current_company)) return; truelight@2381: tron@3269: if (IsPlainRailTile(tile)) { truelight@2381: is_rail_crossing:; tron@3269: rails = GetRailTrackStatus(tile); tron@3269: tron@3269: if (rails == TRACK_BIT_HORZ || rails == TRACK_BIT_VERT) return; tron@3269: tron@3269: if (rails & TRACK_BIT_3WAY_NE) { truelight@2381: pos_0: tron@3269: if ((GetRailTrackStatus(TILE_MASK(tile - TileDiffXY(1, 0))) & TRACK_BIT_3WAY_SW) == 0) { rubidium@10207: _companies_ai[c->index].cur_dir_a = DIAGDIR_NE; rubidium@10207: _companies_ai[c->index].cur_tile_a = tile; rubidium@10207: _companies_ai[c->index].state = AIS_REMOVE_SINGLE_RAIL_TILE; truelight@2381: return; truelight@2381: } truelight@2381: } truelight@2381: tron@3269: if (rails & TRACK_BIT_3WAY_SE) { truelight@2381: pos_1: tron@3269: if ((GetRailTrackStatus(TILE_MASK(tile + TileDiffXY(0, 1))) & TRACK_BIT_3WAY_NW) == 0) { rubidium@10207: _companies_ai[c->index].cur_dir_a = DIAGDIR_SE; rubidium@10207: _companies_ai[c->index].cur_tile_a = tile; rubidium@10207: _companies_ai[c->index].state = AIS_REMOVE_SINGLE_RAIL_TILE; truelight@2381: return; truelight@2381: } truelight@2381: } truelight@2381: tron@3269: if (rails & TRACK_BIT_3WAY_SW) { truelight@2381: pos_2: tron@3269: if ((GetRailTrackStatus(TILE_MASK(tile + TileDiffXY(1, 0))) & TRACK_BIT_3WAY_NE) == 0) { rubidium@10207: _companies_ai[c->index].cur_dir_a = DIAGDIR_SW; rubidium@10207: _companies_ai[c->index].cur_tile_a = tile; rubidium@10207: _companies_ai[c->index].state = AIS_REMOVE_SINGLE_RAIL_TILE; truelight@2381: return; truelight@2381: } truelight@2381: } truelight@2381: tron@3269: if (rails & TRACK_BIT_3WAY_NW) { truelight@2381: pos_3: tron@3269: if ((GetRailTrackStatus(TILE_MASK(tile - TileDiffXY(0, 1))) & TRACK_BIT_3WAY_SE) == 0) { rubidium@10207: _companies_ai[c->index].cur_dir_a = DIAGDIR_NW; rubidium@10207: _companies_ai[c->index].cur_tile_a = tile; rubidium@10207: _companies_ai[c->index].state = AIS_REMOVE_SINGLE_RAIL_TILE; truelight@2381: return; truelight@2381: } truelight@2381: } truelight@2381: } else { rubidium@6491: static const byte _depot_bits[] = {0x19, 0x16, 0x25, 0x2A}; truelight@2381: tron@3185: DiagDirection dir = GetRailDepotDirection(tile); tron@3185: Darkvater@4559: if (GetRailTrackStatus(tile + TileOffsByDiagDir(dir)) & _depot_bits[dir]) truelight@2381: return; truelight@2381: tron@3491: DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); truelight@2381: } rubidium@7370: } else if (IsTileType(tile, MP_ROAD)) { tron@3033: if (IsLevelCrossing(tile)) goto is_rail_crossing; tron@3033: frosch@8563: if (IsRoadDepot(tile)) { rubidium@10207: if (!IsTileOwner(tile, _current_company)) return; frosch@9341: tron@3153: DiagDirection dir; tron@4000: TileIndex t; truelight@2381: truelight@2381: // Check if there are any stations around. tron@4000: t = tile + TileDiffXY(-1, 0); rubidium@10207: if (IsTileType(t, MP_STATION) && IsTileOwner(t, _current_company)) return; tron@4000: tron@4000: t = tile + TileDiffXY(1, 0); rubidium@10207: if (IsTileType(t, MP_STATION) && IsTileOwner(t, _current_company)) return; tron@4000: tron@4000: t = tile + TileDiffXY(0, -1); rubidium@10207: if (IsTileType(t, MP_STATION) && IsTileOwner(t, _current_company)) return; tron@4000: tron@4000: t = tile + TileDiffXY(0, 1); rubidium@10207: if (IsTileType(t, MP_STATION) && IsTileOwner(t, _current_company)) return; truelight@2381: tron@3179: dir = GetRoadDepotDirection(tile); truelight@2381: tron@3491: DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR); tron@3491: DoCommand( Darkvater@4559: TILE_MASK(tile + TileOffsByDiagDir(dir)), tron@3153: DiagDirToRoadBits(ReverseDiagDir(dir)), truelight@2381: 0, truelight@2381: DC_EXEC, truelight@2381: CMD_REMOVE_ROAD); truelight@2381: } truelight@2381: } else if (IsTileType(tile, MP_TUNNELBRIDGE)) { rubidium@10207: if (!IsTileOwner(tile, _current_company) || tron@3234: !IsBridge(tile) || smatz@8083: GetTunnelBridgeTransportType(tile) != TRANSPORT_RAIL) { truelight@2381: return; tron@3234: } truelight@2381: rubidium@5587: rails = TRACK_BIT_NONE; truelight@2381: smatz@8083: switch (GetTunnelBridgeDirection(tile)) { tron@3196: default: tron@3196: case DIAGDIR_NE: goto pos_2; tron@3196: case DIAGDIR_SE: goto pos_3; tron@3196: case DIAGDIR_SW: goto pos_0; tron@3196: case DIAGDIR_NW: goto pos_1; tron@3196: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiStateRemoveTrack(Company *c) truelight@2381: { truelight@2381: /* Was 1000 for standard 8x8 maps. */ truelight@2381: int num = MapSizeX() * 4; truelight@2381: truelight@2381: do { rubidium@10207: TileIndex tile = ++_companies_ai[c->index].state_counter; truelight@2381: truelight@2381: // Iterated all tiles? truelight@2381: if (tile >= MapSize()) { rubidium@10207: _companies_ai[c->index].state = AIS_REMOVE_STATION; truelight@2381: return; truelight@2381: } truelight@2381: rubidium@10207: // Remove company stuff in that tile rubidium@10207: AiRemoveCompanyRailOrRoad(c, tile); rubidium@10207: if (_companies_ai[c->index].state != AIS_REMOVE_TRACK) return; truelight@2381: } while (--num); truelight@2381: } truelight@2381: rubidium@10207: static void AiStateRemoveSingleRailTile(Company *c) truelight@2381: { truelight@2381: // Remove until we can't remove more. rubidium@10207: if (!AiRemoveTileAndGoForward(c)) _companies_ai[c->index].state = AIS_REMOVE_TRACK; truelight@2381: } truelight@2381: truelight@2381: static AiStateAction * const _ai_actions[] = { truelight@2381: AiCase0, truelight@2381: AiCase1, truelight@2381: AiStateVehLoop, truelight@2381: AiStateCheckReplaceVehicle, truelight@2381: AiStateDoReplaceVehicle, truelight@2381: AiStateWantNewRoute, truelight@2381: truelight@2381: AiStateBuildDefaultRailBlocks, truelight@2381: AiStateBuildRail, truelight@2381: AiStateBuildRailVeh, truelight@2381: AiStateDeleteRailBlocks, truelight@2381: truelight@2381: AiStateBuildDefaultRoadBlocks, truelight@2381: AiStateBuildRoad, truelight@2381: AiStateBuildRoadVehicles, truelight@2381: AiStateDeleteRoadBlocks, truelight@2381: truelight@2381: AiStateAirportStuff, truelight@2381: AiStateBuildDefaultAirportBlocks, truelight@2381: AiStateBuildAircraftVehicles, truelight@2381: truelight@2381: AiStateCheckShipStuff, truelight@2381: AiStateBuildDefaultShipBlocks, truelight@2381: AiStateDoShipStuff, truelight@2381: truelight@2381: AiStateSellVeh, truelight@2381: AiStateRemoveStation, truelight@2381: AiStateRemoveTrack, truelight@2381: truelight@2381: AiStateRemoveSingleRailTile truelight@2381: }; truelight@2381: rubidium@10207: extern void ShowBuyCompanyDialog(CompanyID company); rubidium@10207: rubidium@10207: static void AiHandleTakeover(Company *c) truelight@2381: { rubidium@10207: if (c->bankrupt_timeout != 0) { rubidium@10207: c->bankrupt_timeout -= 8; rubidium@10207: if (c->bankrupt_timeout > 0) return; rubidium@10207: c->bankrupt_timeout = 0; rubidium@10207: DeleteWindowById(WC_BUY_COMPANY, _current_company); rubidium@10207: if (IsLocalCompany()) { truelight@2381: AskExitToGameMenu(); truelight@2381: return; truelight@2381: } rubidium@10207: if (IsHumanCompany(_current_company)) return; truelight@2381: } truelight@2381: rubidium@10207: if (c->bankrupt_asked == 255) return; truelight@2381: truelight@2381: { rubidium@10207: uint asked = c->bankrupt_asked; rubidium@10207: Company *company, *best_company = NULL; truelight@2381: int32 best_val = -1; truelight@2381: truelight@2381: // Ask the guy with the highest performance hist. rubidium@10207: FOR_ALL_COMPANIES(company) { rubidium@9659: if (!(asked & 1) && rubidium@10207: company->bankrupt_asked == 0 && rubidium@10207: best_val < company->old_economy[1].performance_history) { rubidium@10207: best_val = company->old_economy[1].performance_history; rubidium@10207: best_company = company; truelight@2381: } rubidium@6491: asked >>= 1; truelight@2381: } truelight@2381: rubidium@10207: // Asked all companies? truelight@2381: if (best_val == -1) { rubidium@10207: c->bankrupt_asked = 255; truelight@2381: return; truelight@2381: } truelight@2381: rubidium@10207: SetBit(c->bankrupt_asked, best_company->index); rubidium@10207: rubidium@10207: if (best_company->index == _local_company) { rubidium@10207: c->bankrupt_timeout = 4440; rubidium@10207: ShowBuyCompanyDialog(_current_company); truelight@2381: return; truelight@2381: } rubidium@10207: if (IsHumanCompany(best_company->index)) return; truelight@2381: truelight@2381: // Too little money for computer to buy it? rubidium@10207: if (best_company->money >> 1 >= c->bankrupt_value) { truelight@2381: // Computer wants to buy it. rubidium@10207: CompanyID old_company = _current_company; rubidium@10207: _current_company = best_company->index; rubidium@10207: DoCommand(0, old_company, 0, DC_EXEC, CMD_BUY_COMPANY); rubidium@10207: _current_company = old_company; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiAdjustLoan(const Company *c) truelight@2381: { rubidium@10207: Money base = AiGetBasePrice(c); rubidium@10207: rubidium@10207: if (c->money > base * 1400) { truelight@2381: // Decrease loan rubidium@10207: if (c->current_loan != 0) { tron@3491: DoCommand(0, 0, 0, DC_EXEC, CMD_DECREASE_LOAN); truelight@2381: } rubidium@10207: } else if (c->money < base * 500) { truelight@2381: // Increase loan rubidium@10207: if (c->current_loan < _economy.max_loan && rubidium@10207: c->num_valid_stat_ent >= 2 && rubidium@10207: -(c->old_economy[0].expenses + c->old_economy[1].expenses) < base * 60) { tron@3491: DoCommand(0, 0, 0, DC_EXEC, CMD_INCREASE_LOAN); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@10207: static void AiBuildCompanyHQ(Company *c) truelight@2381: { truelight@2381: TileIndex tile; truelight@2381: rubidium@10207: if (c->location_of_HQ == 0 && rubidium@10207: c->last_build_coordinate != 0) { rubidium@10207: tile = AdjustTileCoordRandomly(c->last_build_coordinate, 8); tron@3491: DoCommand(tile, 0, 0, DC_EXEC | DC_AUTO | DC_NO_WATER, CMD_BUILD_COMPANY_HQ); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: rubidium@10207: void AiDoGameLoop(Company *c) truelight@2381: { rubidium@10207: if (c->bankrupt_asked != 0) { rubidium@10207: AiHandleTakeover(c); truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Ugly hack to make sure the service interval of the AI is good, not looking truelight@2381: // to the patch-setting truelight@2381: // Also, it takes into account the setting if the service-interval is in days truelight@2381: // or in % rubidium@9413: _ai_service_interval = _settings_game.vehicle.servint_ispercent ? 80 : 180; truelight@2381: rubidium@10207: if (IsHumanCompany(_current_company)) return; rubidium@10207: rubidium@10207: AiAdjustLoan(c); rubidium@10207: AiBuildCompanyHQ(c); truelight@2381: truelight@2381: #if 0 truelight@2381: { truelight@2381: static byte old_state = 99; truelight@2381: static bool hasdots = false; rubidium@6491: char *_ai_state_names[] = { truelight@2381: "AiCase0", truelight@2381: "AiCase1", truelight@2381: "AiStateVehLoop", truelight@2381: "AiStateCheckReplaceVehicle", truelight@2381: "AiStateDoReplaceVehicle", truelight@2381: "AiStateWantNewRoute", truelight@2381: "AiStateBuildDefaultRailBlocks", truelight@2381: "AiStateBuildRail", truelight@2381: "AiStateBuildRailVeh", truelight@2381: "AiStateDeleteRailBlocks", truelight@2381: "AiStateBuildDefaultRoadBlocks", truelight@2381: "AiStateBuildRoad", truelight@2381: "AiStateBuildRoadVehicles", truelight@2381: "AiStateDeleteRoadBlocks", truelight@2381: "AiStateAirportStuff", truelight@2381: "AiStateBuildDefaultAirportBlocks", truelight@2381: "AiStateBuildAircraftVehicles", truelight@2381: "AiStateCheckShipStuff", truelight@2381: "AiStateBuildDefaultShipBlocks", truelight@2381: "AiStateDoShipStuff", truelight@2381: "AiStateSellVeh", truelight@2381: "AiStateRemoveStation", truelight@2381: "AiStateRemoveTrack", truelight@2381: "AiStateRemoveSingleRailTile" truelight@2381: }; truelight@2381: rubidium@10207: if (_companies_ai[c->index].state != old_state) { truelight@2381: if (hasdots) truelight@2381: printf("\n"); rubidium@8969: hasdots = false; rubidium@10207: printf("AiState: %s\n", _ai_state_names[old_state=_companies_ai[c->index].state]); truelight@2381: } else { truelight@2381: printf("."); rubidium@8969: hasdots = true; truelight@2381: } truelight@2381: } truelight@2381: #endif truelight@2381: rubidium@10207: _ai_actions[_companies_ai[c->index].state](c); truelight@2381: } rubidium@8229: rubidium@8229: rubidium@10207: static const SaveLoad _company_ai_desc[] = { rubidium@10207: SLE_VAR(CompanyAI, state, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, tick, SLE_UINT8), rubidium@10207: SLE_CONDVAR(CompanyAI, state_counter, SLE_FILE_U16 | SLE_VAR_U32, 0, 12), rubidium@10207: SLE_CONDVAR(CompanyAI, state_counter, SLE_UINT32, 13, SL_MAX_VERSION), rubidium@10207: SLE_VAR(CompanyAI, timeout_counter, SLE_UINT16), rubidium@10207: rubidium@10207: SLE_VAR(CompanyAI, state_mode, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, banned_tile_count, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, railtype_to_use, SLE_UINT8), rubidium@10207: rubidium@10207: SLE_VAR(CompanyAI, cargo_type, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, num_wagons, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, build_kind, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, num_build_rec, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, num_loco_to_build, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, num_want_fullload, SLE_UINT8), rubidium@10207: rubidium@10207: SLE_VAR(CompanyAI, route_type_mask, SLE_UINT8), rubidium@10207: rubidium@10207: SLE_CONDVAR(CompanyAI, start_tile_a, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@10207: SLE_CONDVAR(CompanyAI, start_tile_a, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@10207: SLE_CONDVAR(CompanyAI, cur_tile_a, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@10207: SLE_CONDVAR(CompanyAI, cur_tile_a, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@10207: SLE_VAR(CompanyAI, start_dir_a, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, cur_dir_a, SLE_UINT8), rubidium@10207: rubidium@10207: SLE_CONDVAR(CompanyAI, start_tile_b, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@10207: SLE_CONDVAR(CompanyAI, start_tile_b, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@10207: SLE_CONDVAR(CompanyAI, cur_tile_b, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@10207: SLE_CONDVAR(CompanyAI, cur_tile_b, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@10207: SLE_VAR(CompanyAI, start_dir_b, SLE_UINT8), rubidium@10207: SLE_VAR(CompanyAI, cur_dir_b, SLE_UINT8), rubidium@10207: rubidium@10207: SLE_REF(CompanyAI, cur_veh, REF_VEHICLE), rubidium@10207: rubidium@10207: SLE_ARR(CompanyAI, wagon_list, SLE_UINT16, 9), rubidium@10207: SLE_ARR(CompanyAI, order_list_blocks, SLE_UINT8, 20), rubidium@10207: SLE_ARR(CompanyAI, banned_tiles, SLE_UINT16, 16), rubidium@8229: rubidium@8229: SLE_CONDNULL(64, 2, SL_MAX_VERSION), rubidium@8229: SLE_END() rubidium@8229: }; rubidium@8229: rubidium@10207: static const SaveLoad _company_ai_build_rec_desc[] = { rubidium@8229: SLE_CONDVAR(AiBuildRec, spec_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@8229: SLE_CONDVAR(AiBuildRec, spec_tile, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@8229: SLE_CONDVAR(AiBuildRec, use_tile, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@8229: SLE_CONDVAR(AiBuildRec, use_tile, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@8229: SLE_VAR(AiBuildRec, rand_rng, SLE_UINT8), rubidium@8229: SLE_VAR(AiBuildRec, cur_building_rule, SLE_UINT8), rubidium@8229: SLE_VAR(AiBuildRec, unk6, SLE_UINT8), rubidium@8229: SLE_VAR(AiBuildRec, unk7, SLE_UINT8), rubidium@8229: SLE_VAR(AiBuildRec, buildcmd_a, SLE_UINT8), rubidium@8229: SLE_VAR(AiBuildRec, buildcmd_b, SLE_UINT8), rubidium@8229: SLE_VAR(AiBuildRec, direction, SLE_UINT8), rubidium@8229: SLE_VAR(AiBuildRec, cargo, SLE_UINT8), rubidium@8229: SLE_END() rubidium@8229: }; rubidium@8229: rubidium@8229: rubidium@10207: void SaveLoad_AI(CompanyID company) rubidium@8229: { rubidium@10207: CompanyAI *cai = &_companies_ai[company]; rubidium@10207: SlObject(cai, _company_ai_desc); rubidium@10207: for (int i = 0; i != cai->num_build_rec; i++) { rubidium@10207: SlObject(&cai->src + i, _company_ai_build_rec_desc); rubidium@8229: } rubidium@8236: }