Darkvater@2423: /* $Id$ */ truelight@2381: 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 "../../depot.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@8254: #include "../../player_func.h" rubidium@8254: #include "../../player_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@8229: PlayerAI _players_ai[MAX_PLAYERS]; truelight@2381: truelight@2381: typedef void AiStateAction(Player *p); 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: truelight@2381: static void AiCase0(Player *p) truelight@2381: { rubidium@8229: _players_ai[p->index].state = AIS_REMOVE_TRACK; rubidium@8229: _players_ai[p->index].state_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiCase1(Player *p) truelight@2381: { rubidium@8229: _players_ai[p->index].cur_veh = NULL; rubidium@8229: _players_ai[p->index].state = AIS_VEH_LOOP; truelight@2381: } truelight@2381: truelight@2381: static void AiStateVehLoop(Player *p) truelight@2381: { truelight@2381: Vehicle *v; truelight@2381: uint index; truelight@2381: rubidium@8229: index = (_players_ai[p->index].cur_veh == NULL) ? 0 : _players_ai[p->index].cur_veh->index + 1; truelight@2381: truelight@2381: FOR_ALL_VEHICLES_FROM(v, index) { truelight@4346: if (v->owner != _current_player) 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 && truelight@2381: (_price.build_railvehicle >> 3) < p->player_money) { rubidium@8229: _players_ai[p->index].state = AIS_VEH_CHECK_REPLACE_VEHICLE; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].state = AIS_SELL_VEHICLE; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].state = AIS_VEH_CHECK_REPLACE_VEHICLE; rubidium@8229: _players_ai[p->index].cur_veh = v; truelight@2381: return; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: rubidium@8229: _players_ai[p->index].state = AIS_WANT_NEW_ROUTE; rubidium@8229: _players_ai[p->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; tron@2544: EngineID i; truelight@2381: peter1138@8389: FOR_ALL_ENGINEIDS_OF_TYPE(i, VEH_TRAIN) { truelight@2381: const RailVehicleInfo *rvi = RailVehInfo(i); truelight@2381: const Engine* e = GetEngine(i); 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) || skidd13@7928: !HasBit(e->player_avail, _current_player) || 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@8389: EngineID i; peter1138@8389: peter1138@8389: FOR_ALL_ENGINEIDS_OF_TYPE(i, VEH_ROAD) { peter1138@5029: const RoadVehicleInfo *rvi = RoadVehInfo(i); tron@3034: const Engine* e = GetEngine(i); tron@4011: skidd13@7928: if (!HasBit(e->player_avail, _current_player) || 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; tron@4011: EngineID i; tron@4011: peter1138@8389: FOR_ALL_ENGINEIDS_OF_TYPE(i, VEH_AIRCRAFT) { tron@3034: const Engine* e = GetEngine(i); tron@4011: skidd13@7928: if (!HasBit(e->player_avail, _current_player) || e->reliability < 0x8A3D) { truelight@2381: continue; tron@4011: } tron@4011: smatz@8402: if ((AircraftVehInfo(i)->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@6990: static Money AiGetBasePrice(const Player* p) truelight@2381: { rubidium@6990: Money base = _price.station_value; truelight@2381: truelight@2381: // adjust base price when more expensive vehicles are available rubidium@8229: switch (_players_ai[p->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: tron@4011: static EngineID AiChooseRoadVehToReplaceWith(const Player* p, const Vehicle* v) truelight@2381: { rubidium@6990: Money avail_money = p->player_money + v->value; truelight@2381: return AiChooseRoadVehToBuild(v->cargo_type, avail_money, v->tile); truelight@2381: } truelight@2381: tron@4011: static EngineID AiChooseAircraftToReplaceWith(const Player* p, const Vehicle* v) truelight@2381: { rubidium@6990: Money avail_money = p->player_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; smatz@8402: if (!IsValidStationID(o->dest)) continue; smatz@8402: const Station *st = GetStation(o->dest); 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: tron@4011: static EngineID AiChooseTrainToReplaceWith(const Player* p, const Vehicle* v) truelight@2381: { rubidium@6990: Money avail_money = p->player_money + v->value; tron@4011: 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: tron@4011: static EngineID AiChooseShipToReplaceWith(const Player* p, const Vehicle* v) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ tron@2544: return INVALID_ENGINE; truelight@2381: } truelight@2381: truelight@2381: static void AiHandleGotoDepot(Player *p, int cmd) truelight@2381: { rubidium@8229: if (_players_ai[p->index].cur_veh->current_order.type != OT_GOTO_DEPOT) rubidium@8229: DoCommand(0, _players_ai[p->index].cur_veh->index, 0, DC_EXEC, cmd); rubidium@8229: rubidium@8229: if (++_players_ai[p->index].state_counter <= 1387) { rubidium@8229: _players_ai[p->index].state = AIS_VEH_DO_REPLACE_VEHICLE; truelight@2381: return; truelight@2381: } truelight@2381: rubidium@8229: if (_players_ai[p->index].cur_veh->current_order.type == OT_GOTO_DEPOT) { rubidium@8229: _players_ai[p->index].cur_veh->current_order.type = OT_DUMMY; rubidium@8229: _players_ai[p->index].cur_veh->current_order.flags = 0; rubidium@8229: InvalidateWindow(WC_VEHICLE_VIEW, _players_ai[p->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@8322: for (uint i = 0; bak->order[i].type != OT_NOTHING; i++) { Darkvater@4560: if (!DoCommandP(0, v->index + (i << 16), PackOrder(&bak->order[i]), NULL, CMD_INSERT_ORDER | CMD_NO_TEST_IF_IN_NETWORK)) truelight@2381: break; tron@2639: } truelight@2381: } truelight@2381: truelight@2381: static void AiHandleReplaceTrain(Player *p) truelight@2381: { rubidium@8229: const Vehicle* v = _players_ai[p->index].cur_veh; rubidium@7653: BackuppedOrders orderbak; tron@2544: EngineID veh; truelight@2381: truelight@2381: // wait until the vehicle reaches the depot. truelight@2381: if (!IsTileDepotType(v->tile, TRANSPORT_RAIL) || v->u.rail.track != 0x80 || !(v->vehstatus&VS_STOPPED)) { Darkvater@4495: AiHandleGotoDepot(p, CMD_SEND_TRAIN_TO_DEPOT); truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: veh = AiChooseTrainToReplaceWith(p, 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); tron@3491: DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_TRAIN); tron@3491: tron@3491: DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiHandleReplaceRoadVeh(Player *p) truelight@2381: { rubidium@8229: const Vehicle* v = _players_ai[p->index].cur_veh; rubidium@8322: BackuppedOrders orderbak; tron@2544: EngineID veh; truelight@2381: rubidium@7490: if (!v->IsStoppedInDepot()) { truelight@2381: AiHandleGotoDepot(p, CMD_SEND_ROADVEH_TO_DEPOT); truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: veh = AiChooseRoadVehToReplaceWith(p, 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); tron@3491: DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_ROADVEH); tron@3491: DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiHandleReplaceAircraft(Player *p) truelight@2381: { rubidium@8229: const Vehicle* v = _players_ai[p->index].cur_veh; rubidium@8322: BackuppedOrders orderbak; tron@2544: EngineID veh; truelight@2381: rubidium@7490: if (!v->IsStoppedInDepot()) { truelight@2381: AiHandleGotoDepot(p, CMD_SEND_AIRCRAFT_TO_HANGAR); truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: veh = AiChooseAircraftToReplaceWith(p, 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); tron@3491: DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_AIRCRAFT); tron@3491: tron@3491: DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiHandleReplaceShip(Player *p) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: tron@4011: typedef EngineID CheckReplaceProc(const Player* p, 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: truelight@2381: typedef void DoReplaceProc(Player *p); 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: truelight@2381: static void AiStateCheckReplaceVehicle(Player *p) truelight@2381: { rubidium@8229: const Vehicle* v = _players_ai[p->index].cur_veh; truelight@2381: rubidium@7387: if (!v->IsValid() || tron@2544: v->owner != _current_player || rubidium@6259: v->type > VEH_SHIP || rubidium@6259: _veh_check_replace_proc[v->type - VEH_TRAIN](p, v) == INVALID_ENGINE) { rubidium@8229: _players_ai[p->index].state = AIS_VEH_LOOP; truelight@2381: } else { rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].state = AIS_VEH_DO_REPLACE_VEHICLE; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiStateDoReplaceVehicle(Player *p) truelight@2381: { rubidium@8229: const Vehicle* v = _players_ai[p->index].cur_veh; rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_VEH_LOOP; truelight@2381: // vehicle is not owned by the player anymore, something went very wrong. rubidium@7387: if (!v->IsValid() || v->owner != _current_player) return; rubidium@6259: _veh_do_replace_proc[v->type - VEH_TRAIN](p); 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: truelight@2381: static bool AiCheckIfRouteIsGood(Player *p, 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: truelight@4346: if (st->owner != _current_player) 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@8229: if (_players_ai[p->index].route_type_mask != 0 && rubidium@8229: !(_players_ai[p->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 tron@4011: if (from->ratings[_current_player] < -100 || tron@4011: to->ratings[_current_player] < -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@8229: _players_ai[p->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: truelight@2381: static void AiWantLongIndustryRoute(Player *p) 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: tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 9; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.unk6 = 1; rubidium@8229: _players_ai[p->index].src.unk7 = 0; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 0x24; rubidium@8229: _players_ai[p->index].src.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->index].src.direction = AiGetDirectionBetweenTiles( rubidium@8229: _players_ai[p->index].src.spec_tile, rubidium@8229: _players_ai[p->index].dst.spec_tile tron@2639: ); rubidium@8229: _players_ai[p->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field truelight@2381: rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 9; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.unk6 = 1; rubidium@8229: _players_ai[p->index].dst.unk7 = 0; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0x34; rubidium@8229: _players_ai[p->index].dst.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->index].dst.direction = AiGetDirectionBetweenTiles( rubidium@8229: _players_ai[p->index].dst.spec_tile, rubidium@8229: _players_ai[p->index].src.spec_tile tron@2639: ); rubidium@8229: _players_ai[p->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill middle field 1 rubidium@8229: _players_ai[p->index].mid1.spec_tile = AiGetPctTileBetween( rubidium@8229: _players_ai[p->index].src.spec_tile, rubidium@8229: _players_ai[p->index].dst.spec_tile, tron@2639: 0x55 tron@2639: ); rubidium@8229: _players_ai[p->index].mid1.use_tile = 0; rubidium@8229: _players_ai[p->index].mid1.rand_rng = 6; rubidium@8229: _players_ai[p->index].mid1.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].mid1.unk6 = 2; rubidium@8229: _players_ai[p->index].mid1.unk7 = 1; rubidium@8229: _players_ai[p->index].mid1.buildcmd_a = 0x30; rubidium@8229: _players_ai[p->index].mid1.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->index].mid1.direction = _players_ai[p->index].src.direction; rubidium@8229: _players_ai[p->index].mid1.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill middle field 2 rubidium@8229: _players_ai[p->index].mid2.spec_tile = AiGetPctTileBetween( rubidium@8229: _players_ai[p->index].src.spec_tile, rubidium@8229: _players_ai[p->index].dst.spec_tile, tron@2639: 0xAA tron@2639: ); rubidium@8229: _players_ai[p->index].mid2.use_tile = 0; rubidium@8229: _players_ai[p->index].mid2.rand_rng = 6; rubidium@8229: _players_ai[p->index].mid2.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].mid2.unk6 = 2; rubidium@8229: _players_ai[p->index].mid2.unk7 = 1; rubidium@8229: _players_ai[p->index].mid2.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].mid2.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->index].mid2.direction = _players_ai[p->index].dst.direction; rubidium@8229: _players_ai[p->index].mid2.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = fr.cargo; rubidium@8229: _players_ai[p->index].num_wagons = 3; rubidium@8229: _players_ai[p->index].build_kind = 2; rubidium@8229: _players_ai[p->index].num_build_rec = 4; rubidium@8229: _players_ai[p->index].num_loco_to_build = 2; rubidium@8229: _players_ai[p->index].num_want_fullload = 2; rubidium@8229: _players_ai[p->index].wagon_list[0] = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantMediumIndustryRoute(Player *p) 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: tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 9; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.unk6 = 1; rubidium@8229: _players_ai[p->index].src.unk7 = 0; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 0x10; rubidium@8229: _players_ai[p->index].src.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 9; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.unk6 = 1; rubidium@8229: _players_ai[p->index].dst.unk7 = 0; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].dst.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = fr.cargo; rubidium@8229: _players_ai[p->index].num_wagons = 3; rubidium@8229: _players_ai[p->index].build_kind = 1; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->index].num_loco_to_build = 1; rubidium@8229: _players_ai[p->index].num_want_fullload = 1; rubidium@8229: _players_ai[p->index].wagon_list[0] = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantShortIndustryRoute(Player *p) 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: tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 9; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.unk6 = 1; rubidium@8229: _players_ai[p->index].src.unk7 = 0; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 0x10; rubidium@8229: _players_ai[p->index].src.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 9; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.unk6 = 1; rubidium@8229: _players_ai[p->index].dst.unk7 = 0; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].dst.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = fr.cargo; rubidium@8229: _players_ai[p->index].num_wagons = 2; rubidium@8229: _players_ai[p->index].build_kind = 1; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->index].num_loco_to_build = 1; rubidium@8229: _players_ai[p->index].num_want_fullload = 1; rubidium@8229: _players_ai[p->index].wagon_list[0] = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantMailRoute(Player *p) 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; tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 7; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.unk6 = 1; rubidium@8229: _players_ai[p->index].src.unk7 = 0; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 0x24; rubidium@8229: _players_ai[p->index].src.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].src.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 7; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.unk6 = 1; rubidium@8229: _players_ai[p->index].dst.unk7 = 0; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0x34; rubidium@8229: _players_ai[p->index].dst.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill middle field 1 rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].mid1.use_tile = 0; rubidium@8229: _players_ai[p->index].mid1.rand_rng = 6; rubidium@8229: _players_ai[p->index].mid1.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].mid1.unk6 = 2; rubidium@8229: _players_ai[p->index].mid1.unk7 = 1; rubidium@8229: _players_ai[p->index].mid1.buildcmd_a = 0x30; rubidium@8229: _players_ai[p->index].mid1.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->index].mid1.direction = _players_ai[p->index].src.direction; rubidium@8229: _players_ai[p->index].mid1.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill middle field 2 rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].mid2.use_tile = 0; rubidium@8229: _players_ai[p->index].mid2.rand_rng = 6; rubidium@8229: _players_ai[p->index].mid2.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].mid2.unk6 = 2; rubidium@8229: _players_ai[p->index].mid2.unk7 = 1; rubidium@8229: _players_ai[p->index].mid2.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].mid2.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->index].mid2.direction = _players_ai[p->index].dst.direction; rubidium@8229: _players_ai[p->index].mid2.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = fr.cargo; rubidium@8229: _players_ai[p->index].num_wagons = 3; rubidium@8229: _players_ai[p->index].build_kind = 2; rubidium@8229: _players_ai[p->index].num_build_rec = 4; rubidium@8229: _players_ai[p->index].num_loco_to_build = 2; rubidium@8229: _players_ai[p->index].num_want_fullload = 0; rubidium@8229: _players_ai[p->index].wagon_list[0] = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantPassengerRoute(Player *p) 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; tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 1)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 7; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.unk6 = 1; rubidium@8229: _players_ai[p->index].src.unk7 = 0; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 0x10; rubidium@8229: _players_ai[p->index].src.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].src.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 7; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.unk6 = 1; rubidium@8229: _players_ai[p->index].dst.unk7 = 0; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].dst.buildcmd_b = 0xFF; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = fr.cargo; rubidium@8229: _players_ai[p->index].num_wagons = 2; rubidium@8229: _players_ai[p->index].build_kind = 1; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->index].num_loco_to_build = 1; rubidium@8229: _players_ai[p->index].num_want_fullload = 0; rubidium@8229: _players_ai[p->index].wagon_list[0] = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_RAIL_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantTrainRoute(Player *p) truelight@2381: { tron@2635: uint16 r = GB(Random(), 0, 16); tron@2635: rubidium@8236: _players_ai[p->index].railtype_to_use = GetBestRailtype(p->index); truelight@2381: truelight@2381: if (r > 0xD000) { truelight@2381: AiWantLongIndustryRoute(p); truelight@2381: } else if (r > 0x6000) { truelight@2381: AiWantMediumIndustryRoute(p); truelight@2381: } else if (r > 0x1000) { truelight@2381: AiWantShortIndustryRoute(p); truelight@2381: } else if (r > 0x800) { truelight@2381: AiWantPassengerRoute(p); truelight@2381: } else { truelight@2381: AiWantMailRoute(p); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiWantLongRoadIndustryRoute(Player *p) 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: tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 2)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 9; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 1; rubidium@8229: _players_ai[p->index].src.direction = 0; rubidium@8229: _players_ai[p->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 9; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].dst.direction = 0; rubidium@8229: _players_ai[p->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = fr.cargo; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->index].num_loco_to_build = 5; rubidium@8229: _players_ai[p->index].num_want_fullload = 5; rubidium@8229: rubidium@8229: // _players_ai[p->index].loco_id = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_ROAD_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantMediumRoadIndustryRoute(Player *p) 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: tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 2)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 9; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 1; rubidium@8229: _players_ai[p->index].src.direction = 0; rubidium@8229: _players_ai[p->index].src.cargo = fr.cargo | 0x80; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 9; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].dst.direction = 0; rubidium@8229: _players_ai[p->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = fr.cargo; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->index].num_loco_to_build = 3; rubidium@8229: _players_ai[p->index].num_want_fullload = 3; rubidium@8229: rubidium@8229: // _players_ai[p->index].loco_id = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_ROAD_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantLongRoadPassengerRoute(Player *p) 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: tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 2)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 10; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 1; rubidium@8229: _players_ai[p->index].src.direction = 0; rubidium@8229: _players_ai[p->index].src.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 10; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].dst.direction = 0; rubidium@8229: _players_ai[p->index].dst.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = CT_PASSENGERS; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->index].num_loco_to_build = 4; rubidium@8229: _players_ai[p->index].num_want_fullload = 0; rubidium@8229: rubidium@8229: // _players_ai[p->index].loco_id = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_ROAD_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantPassengerRouteInsideTown(Player *p) 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: tron@2639: if (!AiCheckIfRouteIsGood(p, &fr, 2)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = t->xy; rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 10; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.buildcmd_a = 1; rubidium@8229: _players_ai[p->index].src.direction = 0; rubidium@8229: _players_ai[p->index].src.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = t->xy; rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 10; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.buildcmd_a = 0xFF; rubidium@8229: _players_ai[p->index].dst.direction = 0; rubidium@8229: _players_ai[p->index].dst.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = CT_PASSENGERS; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->index].num_loco_to_build = 2; rubidium@8229: _players_ai[p->index].num_want_fullload = 0; rubidium@8229: rubidium@8229: // _players_ai[p->index].loco_id = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_ROAD_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = UCHAR_MAX; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantRoadRoute(Player *p) truelight@2381: { tron@2635: uint16 r = GB(Random(), 0, 16); truelight@2381: truelight@2381: if (r > 0x4000) { truelight@2381: AiWantLongRoadIndustryRoute(p); truelight@2381: } else if (r > 0x2000) { truelight@2381: AiWantMediumRoadIndustryRoute(p); truelight@2381: } else if (r > 0x1000) { truelight@2381: AiWantLongRoadPassengerRoute(p); truelight@2381: } else { truelight@2381: AiWantPassengerRouteInsideTown(p); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiWantPassengerAircraftRoute(Player *p) 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 ...) */ smatz@8402: EngineID veh = AiChooseAircraftToBuild(p->player_money, _players_ai[p->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; tron@3033: if (!AiCheckIfRouteIsGood(p, &fr, 4)) return; truelight@2381: truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.to); rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 12; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = GET_TOWN_OR_INDUSTRY_TILE(fr.from); rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 12; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.cargo = fr.cargo; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = fr.cargo; rubidium@8229: _players_ai[p->index].build_kind = 0; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].num_want_fullload = Chance16(1, 5); // 20% chance rubidium@8229: // _players_ai[p->index].loco_id = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_AIRPORT_STUFF; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantOilRigAircraftRoute(Player *p) 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: tron@3033: if (!AiCheckIfRouteIsGood(p, &fr, 4)) return; truelight@2381: truelight@2381: // Fill the source field rubidium@8229: _players_ai[p->index].src.spec_tile = t->xy; rubidium@8229: _players_ai[p->index].src.use_tile = 0; rubidium@8229: _players_ai[p->index].src.rand_rng = 12; rubidium@8229: _players_ai[p->index].src.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].src.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill the dest field rubidium@8229: _players_ai[p->index].dst.spec_tile = in->xy; rubidium@8229: _players_ai[p->index].dst.use_tile = 0; rubidium@8229: _players_ai[p->index].dst.rand_rng = 5; rubidium@8229: _players_ai[p->index].dst.cur_building_rule = 0xFF; rubidium@8229: _players_ai[p->index].dst.cargo = CT_PASSENGERS; truelight@2381: truelight@2381: // Fill common fields rubidium@8229: _players_ai[p->index].cargo_type = CT_PASSENGERS; rubidium@8229: _players_ai[p->index].build_kind = 1; rubidium@8229: _players_ai[p->index].num_build_rec = 2; rubidium@8229: _players_ai[p->index].num_loco_to_build = 1; rubidium@8229: _players_ai[p->index].num_want_fullload = 0; rubidium@8229: // _players_ai[p->index].loco_id = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].order_list_blocks[0] = 0; rubidium@8229: _players_ai[p->index].order_list_blocks[1] = 1; rubidium@8229: _players_ai[p->index].order_list_blocks[2] = 255; rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_AIRPORT_STUFF; rubidium@8229: _players_ai[p->index].timeout_counter = 0; truelight@2381: } truelight@2381: truelight@2381: static void AiWantAircraftRoute(Player *p) truelight@2381: { truelight@2381: uint16 r = (uint16)Random(); truelight@2381: rubidium@4322: if (r >= 0x2AAA || _date < 0x3912 + DAYS_TILL_ORIGINAL_BASE_YEAR) { truelight@2381: AiWantPassengerAircraftRoute(p); truelight@2381: } else { truelight@2381: AiWantOilRigAircraftRoute(p); truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: truelight@2381: truelight@2381: static void AiStateWantNewRoute(Player *p) truelight@2381: { truelight@2381: uint16 r; truelight@2381: int i; truelight@2381: truelight@2381: if (p->player_money < AiGetBasePrice(p) * 500) { rubidium@8229: _players_ai[p->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: tron@3033: if (_patches.ai_disable_veh_train && tron@3033: _patches.ai_disable_veh_roadveh && tron@3033: _patches.ai_disable_veh_aircraft && tron@3033: _patches.ai_disable_veh_ship) { truelight@2381: return; tron@3033: } truelight@2381: truelight@2381: if (r < 0x7626) { truelight@2381: if (_patches.ai_disable_veh_train) continue; truelight@2381: AiWantTrainRoute(p); truelight@2381: } else if (r < 0xC4EA) { truelight@2381: if (_patches.ai_disable_veh_roadveh) continue; truelight@2381: AiWantRoadRoute(p); truelight@2381: } else if (r < 0xD89B) { truelight@2381: if (_patches.ai_disable_veh_aircraft) continue; truelight@2381: AiWantAircraftRoute(p); truelight@2381: } else { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: truelight@2381: // got a route? rubidium@8229: if (_players_ai[p->index].state != AIS_WANT_NEW_ROUTE) break; truelight@2381: truelight@2381: // time out? truelight@2381: if (--i == 0) { rubidium@8229: if (++_players_ai[p->index].state_counter == 556) _players_ai[p->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: { glx@8573: uint rad = (_patches.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)) { truelight@2381: if (t != NULL && rating > t->ratings[_current_player]) { 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: { tron@2544: PlayerID old_player; truelight@2381: uint32 r; tron@3644: Slope slope; truelight@2381: uint h; truelight@2381: truelight@2381: old_player = _current_player; truelight@2381: _current_player = 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: truelight@2381: _current_player = old_player; truelight@2381: } truelight@2381: truelight@2381: static void AiStateBuildDefaultRailBlocks(Player *p) 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@8229: if (++_players_ai[p->index].timeout_counter == 1388) { rubidium@8229: _players_ai[p->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@8229: aib = &_players_ai[p->index].src; rubidium@8229: j = _players_ai[p->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@8229: _players_ai[p->index].build_kind, _players_ai[p->index].num_wagons, truelight@2381: aib->unk6, aib->unk7, tron@3965: aib->direction, aib->cargo, rubidium@8229: _players_ai[p->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@8229: if (_players_ai[p->index].state_counter >= 600) { rubidium@8229: AiDoTerraformLand(aib->use_tile, (DiagDirection)(Random() & 3), 3, (int8)_players_ai[p->index].state_mode); truelight@2381: } truelight@2381: // also try the other terraform direction rubidium@8229: if (++_players_ai[p->index].state_counter >= 1000) { rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].state_mode = -_players_ai[p->index].state_mode; truelight@2381: } truelight@2381: } else if (CheckPlayerHasMoney(cost)) { truelight@2381: // player 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@8229: _players_ai[p->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@8229: aib = &_players_ai[p->index].src; rubidium@8229: j = _players_ai[p->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@8229: _players_ai[p->index].state = AIS_BUILD_RAIL; rubidium@8229: _players_ai[p->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: tron@2643: static bool AiDoFollowTrack(const Player* p) truelight@2381: { truelight@2381: AiRailPathFindData arpfd; tron@2639: rubidium@8229: arpfd.tile = _players_ai[p->index].start_tile_a; rubidium@8229: arpfd.tile2 = _players_ai[p->index].cur_tile_a; truelight@2381: arpfd.flag = false; truelight@2381: arpfd.count = 0; smatz@8392: FollowTrack(_players_ai[p->index].cur_tile_a + TileOffsByDiagDir(_players_ai[p->index].cur_dir_a), TRANSPORT_RAIL, 0, ReverseDiagDir(_players_ai[p->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; truelight@2381: Player *player; 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: tron@2630: static bool AiIsTileBanned(const Player* p, TileIndex tile, byte val) tron@2630: { truelight@2381: int i; truelight@2381: rubidium@8229: for (i = 0; i != _players_ai[p->index].banned_tile_count; i++) { rubidium@8229: if (_players_ai[p->index].banned_tiles[i] == tile && _players_ai[p->index].banned_val[i] == val) { tron@2639: return true; tron@2639: } tron@2639: } truelight@2381: return false; truelight@2381: } truelight@2381: tron@2639: static void AiBanTile(Player* p, TileIndex tile, byte val) tron@2639: { tron@4011: uint i; truelight@2381: rubidium@8229: for (i = lengthof(_players_ai[p->index].banned_tiles) - 1; i != 0; i--) { rubidium@8229: _players_ai[p->index].banned_tiles[i] = _players_ai[p->index].banned_tiles[i - 1]; rubidium@8229: _players_ai[p->index].banned_val[i] = _players_ai[p->index].banned_val[i - 1]; truelight@2381: } truelight@2381: rubidium@8229: _players_ai[p->index].banned_tiles[0] = tile; rubidium@8229: _players_ai[p->index].banned_val[0] = val; rubidium@8229: rubidium@8229: if (_players_ai[p->index].banned_tile_count != lengthof(_players_ai[p->index].banned_tiles)) { rubidium@8229: _players_ai[p->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@8229: if (CmdFailed(DoCommand(tile_new, tile, 0 | _players_ai[arf->player->index].railtype_to_use << 8, 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@8229: CommandCost cost = DoCommand(tile, _players_ai[arf->player->index].railtype_to_use, 0, DC_AUTO, CMD_BUILD_TUNNEL); truelight@2381: rubidium@6950: if (CmdSucceeded(cost) && cost.GetCost() <= (arf->player->player_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. truelight@2381: if (!AiIsTileBanned(arf->player, tile, p[0]) && rubidium@8229: CmdSucceeded(DoCommand(tile, _players_ai[arf->player->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: truelight@2381: static void AiBuildRailConstruct(Player *p) truelight@2381: { truelight@2381: AiRailFinder arf; truelight@2381: int i; truelight@2381: truelight@2381: // Check too much lookahead? truelight@2381: if (AiDoFollowTrack(p)) { rubidium@8229: _players_ai[p->index].state_counter = (Random()&0xE)+6; // Destruct this amount of blocks rubidium@8229: _players_ai[p->index].state_mode = 1; // Start destruct truelight@2381: truelight@2381: // Ban this tile and don't reach it for a while. rubidium@8229: AiBanTile(p, _players_ai[p->index].cur_tile_a, FindFirstBit(GetRailTrackStatus(_players_ai[p->index].cur_tile_a))); truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Setup recursive finder and call it. truelight@2381: arf.player = p; rubidium@8229: arf.final_tile = _players_ai[p->index].cur_tile_b; rubidium@8229: arf.final_dir = _players_ai[p->index].cur_dir_b; truelight@2381: arf.depth = 0; truelight@2381: arf.recursive_mode = 0; truelight@2381: arf.best_ptr = NULL; truelight@2381: arf.cur_best_dist = (uint)-1; truelight@2381: arf.cur_best_depth = 0xff; truelight@2381: arf.best_dist = (uint)-1; truelight@2381: arf.best_depth = 0xff; truelight@2381: arf.cur_best_tile = 0; truelight@2381: arf.best_tile = 0; rubidium@8229: AiBuildRailRecursive(&arf, _players_ai[p->index].cur_tile_a, _players_ai[p->index].cur_dir_a); truelight@2381: truelight@2381: // Reached destination? truelight@2381: if (arf.recursive_mode == 2 && arf.cur_best_depth == 0) { rubidium@8229: _players_ai[p->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@8229: AiDoTerraformLand(_players_ai[p->index].cur_tile_a, _players_ai[p->index].cur_dir_a, 3, 0); tron@4000: } truelight@2381: rubidium@8229: if (++_players_ai[p->index].state_counter == 21) { rubidium@8229: _players_ai[p->index].state_counter = 40; rubidium@8229: _players_ai[p->index].state_mode = 1; truelight@2381: truelight@2381: // Ban this tile rubidium@8229: AiBanTile(p, _players_ai[p->index].cur_tile_a, FindFirstBit(GetRailTrackStatus(_players_ai[p->index].cur_tile_a))); truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: rubidium@8229: _players_ai[p->index].cur_tile_a += TileOffsByDiagDir(_players_ai[p->index].cur_dir_a); truelight@2381: tron@3033: if (arf.best_ptr[0] & 0x80) { smatz@8617: TileIndex t1 = _players_ai[p->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@8617: Track track = AxisToTrack(DiagDirToAxis(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 { smatz@8617: cost = DoCommand(t, _players_ai[p->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? */ smatz@8617: if (!fail) cost = DoCommand(t1, t2, _players_ai[p->index].railtype_to_use | (track << 4), DC_AUTO | DC_NO_WATER, CMD_BUILD_RAILROAD_TRACK); smatz@8617: smatz@8617: if (!fail && CmdSucceeded(cost) && cost.GetCost() <= p->player_money) { smatz@8617: DoCommand(t1, t2, _players_ai[p->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)) { smatz@8617: CommandCost cost = DoCommand(t1, t2, i | (_players_ai[p->index].railtype_to_use << 8), DC_AUTO, CMD_BUILD_BRIDGE); smatz@8617: if (CmdSucceeded(cost) && cost.GetCost() < (p->player_money >> 1) && cost.GetCost() < ((p->player_money + _economy.max_loan - p->current_loan) >> 5)) break; smatz@8617: } smatz@8617: } smatz@8617: smatz@8617: /* Build it */ smatz@8617: DoCommand(t1, t2, i | (_players_ai[p->index].railtype_to_use << 8), DC_AUTO | DC_EXEC, CMD_BUILD_BRIDGE); truelight@2381: } truelight@2381: smatz@8617: _players_ai[p->index].cur_tile_a = t2; rubidium@8229: _players_ai[p->index].state_counter = 0; tron@4000: } else if (arf.best_ptr[0] & 0x40) { truelight@2381: // tunnel rubidium@8229: DoCommand(_players_ai[p->index].cur_tile_a, _players_ai[p->index].railtype_to_use, 0, DC_AUTO | DC_EXEC, CMD_BUILD_TUNNEL); rubidium@8229: _players_ai[p->index].cur_tile_a = _build_tunnel_endtile; rubidium@8229: _players_ai[p->index].state_counter = 0; truelight@2381: } else { truelight@2381: // rail rubidium@8229: _players_ai[p->index].cur_dir_a = (DiagDirection)(arf.best_ptr[1] & 3); rubidium@8229: DoCommand(_players_ai[p->index].cur_tile_a, _players_ai[p->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@8229: _players_ai[p->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: truelight@2381: static bool AiRemoveTileAndGoForward(Player *p) truelight@2381: { truelight@2381: const byte *ptr; rubidium@8229: TileIndex tile = _players_ai[p->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@8229: _players_ai[p->index].cur_tile_a = TILE_MASK(_build_tunnel_endtile - TileOffsByDiagDir(_players_ai[p->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@8229: if (DiagDirToAxis(GetTunnelBridgeDirection(tile)) != (_players_ai[p->index].cur_dir_a & 1)) return false; truelight@2381: tron@3214: tile = GetOtherBridgeEnd(tile); tron@3214: rubidium@8229: tilenew = TILE_MASK(tile - TileOffsByDiagDir(_players_ai[p->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@8229: _players_ai[p->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. frosch@8795: TrackBits bits = GetRailTrackStatus(tile) & DiagdirReachesTracks(ReverseDiagDir(_players_ai[p->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@8229: ptr = _ai_table_15[ReverseDiagDir(_players_ai[p->index].cur_dir_a)]; frosch@8795: while (ptr[0] != track) ptr += 2; rubidium@8229: _players_ai[p->index].cur_dir_a = ReverseDiagDir((DiagDirection)ptr[1]); truelight@2381: truelight@2381: // And then also switch tile. rubidium@8229: _players_ai[p->index].cur_tile_a = TILE_MASK(_players_ai[p->index].cur_tile_a - TileOffsByDiagDir(_players_ai[p->index].cur_dir_a)); truelight@2381: truelight@2381: return true; truelight@2381: } truelight@2381: truelight@2381: truelight@2381: static void AiBuildRailDestruct(Player *p) truelight@2381: { truelight@2381: // Decrease timeout. rubidium@8229: if (!--_players_ai[p->index].state_counter) { rubidium@8229: _players_ai[p->index].state_mode = 2; rubidium@8229: _players_ai[p->index].state_counter = 0; truelight@2381: } truelight@2381: truelight@2381: // Don't do anything if the destination is already reached. rubidium@8229: if (_players_ai[p->index].cur_tile_a == _players_ai[p->index].start_tile_a) return; truelight@2381: truelight@2381: AiRemoveTileAndGoForward(p); truelight@2381: } truelight@2381: truelight@2381: truelight@2381: static void AiBuildRail(Player *p) truelight@2381: { rubidium@8229: switch (_players_ai[p->index].state_mode) { tron@4011: case 0: // Construct mode, build new rail. tron@4011: AiBuildRailConstruct(p); tron@4011: break; tron@4011: tron@4011: case 1: // Destruct mode, destroy the rail currently built. tron@4011: AiBuildRailDestruct(p); 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@8229: AiDoTerraformLand(_players_ai[p->index].cur_tile_a, _players_ai[p->index].cur_dir_a, 3, 0); tron@4011: } tron@4011: rubidium@8229: if (++_players_ai[p->index].state_counter == 4) { rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].state_mode = 0; tron@4011: } truelight@2381: } tron@4011: tron@4011: default: break; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiStateBuildRail(Player *p) 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@8229: if (++_players_ai[p->index].timeout_counter == 1388) { rubidium@8229: _players_ai[p->index].state = AIS_DELETE_RAIL_BLOCKS; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Currently building a rail between two points? rubidium@8229: if (_players_ai[p->index].state_mode != 255) { truelight@2381: AiBuildRail(p); truelight@2381: truelight@2381: // Alternate between edges rubidium@8229: Swap(_players_ai[p->index].start_tile_a, _players_ai[p->index].start_tile_b); rubidium@8229: Swap(_players_ai[p->index].cur_tile_a, _players_ai[p->index].cur_tile_b); rubidium@8229: Swap(_players_ai[p->index].start_dir_a, _players_ai[p->index].start_dir_b); rubidium@8229: Swap(_players_ai[p->index].cur_dir_a, _players_ai[p->index].cur_dir_b); truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Now, find two new points to build between rubidium@8229: num = _players_ai[p->index].num_build_rec; rubidium@8229: aib = &_players_ai[p->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@8229: _players_ai[p->index].state = AIS_BUILD_RAIL_VEH; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].start_tile_a = tile; rubidium@8229: _players_ai[p->index].cur_tile_a = tile; rubidium@8229: _players_ai[p->index].start_dir_a = dir; rubidium@8229: _players_ai[p->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@8229: aib = (&_players_ai[p->index].src) + ((cmd >> 4) & 0xF); rubidium@6491: tile = AiGetEdgeOfDefaultRailBlock(aib->cur_building_rule, aib->use_tile, (cmd >> 2) & 3, &dir); rubidium@8229: _players_ai[p->index].start_tile_b = tile; rubidium@8229: _players_ai[p->index].cur_tile_b = tile; rubidium@8229: _players_ai[p->index].start_dir_b = dir; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].state_mode = 2; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->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: EngineID i; celestar@3355: uint16 best_capacity = 0; celestar@3355: uint16 best_speed = 0; celestar@3355: uint speed; celestar@3355: peter1138@8755: FOR_ALL_ENGINEIDS_OF_TYPE(i, VEH_TRAIN) { celestar@3355: const RailVehicleInfo *rvi = RailVehInfo(i); celestar@3355: const Engine* e = GetEngine(i); celestar@3355: tron@5823: if (!IsCompatibleRail(rvi->railtype, railtype) || belugas@5868: rvi->railveh_type != RAILVEH_WAGON || skidd13@7928: !HasBit(e->player_avail, _current_player)) { 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: truelight@2381: static void AiStateBuildRailVeh(Player *p) 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@8229: ptr = _default_rail_track_data[_players_ai[p->index].src.cur_building_rule]->data; tron@3033: while (ptr->mode != 0) ptr++; truelight@2381: rubidium@8229: tile = TILE_ADD(_players_ai[p->index].src.use_tile, ToTileIndexDiff(ptr->tileoffs)); rubidium@8229: rubidium@8229: rubidium@8229: cargo = _players_ai[p->index].cargo_type; tron@3033: for (i = 0;;) { rubidium@8229: if (_players_ai[p->index].wagon_list[i] == INVALID_VEHICLE) { rubidium@8229: veh = AiFindBestWagon(cargo, _players_ai[p->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@8229: _players_ai[p->index].wagon_list[i] = _new_vehicle_id; rubidium@8229: _players_ai[p->index].wagon_list[i + 1] = INVALID_VEHICLE; truelight@2381: return; truelight@2381: } tron@4000: if (cargo == CT_MAIL) cargo = CT_PASSENGERS; rubidium@8229: if (++i == _players_ai[p->index].num_wagons * 2 - 1) break; truelight@2381: } truelight@2381: truelight@2381: // Which locomotive to build? rubidium@8229: veh = AiChooseTrainToBuild(_players_ai[p->index].railtype_to_use, p->player_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@8229: if (++_players_ai[p->index].state_counter == 1000) { rubidium@8229: for (i = 0; _players_ai[p->index].wagon_list[i] != INVALID_VEHICLE; i++) { rubidium@8229: cost = DoCommand(tile, _players_ai[p->index].wagon_list[i], 0, DC_EXEC, CMD_SELL_RAIL_WAGON); rubidium@6946: assert(CmdSucceeded(cost)); truelight@2381: } rubidium@8229: _players_ai[p->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@8229: i = _players_ai[p->index].wagon_list[_players_ai[p->index].num_wagons * 2 - 2]; rubidium@8229: _players_ai[p->index].wagon_list[_players_ai[p->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@8229: for (i = 0; _players_ai[p->index].wagon_list[i] != INVALID_VEHICLE; i++) { rubidium@8229: DoCommand(tile, _players_ai[p->index].wagon_list[i] | (loco_id << 16), 0, DC_EXEC, CMD_MOVE_RAIL_VEHICLE); truelight@2381: } truelight@2381: rubidium@8229: for (i = 0; _players_ai[p->index].order_list_blocks[i] != 0xFF; i++) { rubidium@8229: const AiBuildRec* aib = &_players_ai[p->index].src + _players_ai[p->index].order_list_blocks[i]; tron@3033: bool is_pass = ( rubidium@8229: _players_ai[p->index].cargo_type == CT_PASSENGERS || rubidium@8229: _players_ai[p->index].cargo_type == CT_MAIL || rubidium@8229: (_opt.landscape == LT_TEMPERATE && _players_ai[p->index].cargo_type == CT_VALUABLES) tron@3033: ); truelight@2381: Order order; truelight@2381: truelight@2381: order.type = OT_GOTO_STATION; truelight@2381: order.flags = 0; tron@4527: order.dest = AiGetStationIdByDef(aib->use_tile, aib->cur_building_rule); truelight@2381: rubidium@8302: if (!is_pass && i == 1) order.flags |= OFB_UNLOAD; rubidium@8229: if (_players_ai[p->index].num_want_fullload != 0 && (is_pass || i == 0)) rubidium@8302: order.flags |= OFB_FULL_LOAD; truelight@2381: rubidium@4434: DoCommand(0, loco_id + (i << 16), PackOrder(&order), DC_EXEC, CMD_INSERT_ORDER); truelight@2381: } truelight@2381: tron@3491: DoCommand(0, loco_id, 0, DC_EXEC, CMD_START_STOP_TRAIN); tron@3491: tron@3491: DoCommand(0, loco_id, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: rubidium@8229: if (_players_ai[p->index].num_want_fullload != 0) _players_ai[p->index].num_want_fullload--; rubidium@8229: rubidium@8229: if (--_players_ai[p->index].num_loco_to_build != 0) { rubidium@8229: // _players_ai[p->index].loco_id = INVALID_VEHICLE; rubidium@8229: _players_ai[p->index].wagon_list[0] = INVALID_VEHICLE; truelight@2381: } else { rubidium@8229: _players_ai[p->index].state = AIS_0; truelight@2381: } truelight@2381: } truelight@2381: truelight@2381: static void AiStateDeleteRailBlocks(Player *p) truelight@2381: { rubidium@8229: const AiBuildRec* aib = &_players_ai[p->index].src; rubidium@8229: uint num = _players_ai[p->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@8229: _players_ai[p->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: truelight@2381: if (_patches.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)) { tron@3033: if (t != NULL && rating > t->ratings[_current_player]) 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 truelight@2381: static bool AiCheckBlockDistances(Player *p, TileIndex tile) truelight@2381: { rubidium@8229: const AiBuildRec* aib = &_players_ai[p->index].src; rubidium@8229: uint num = _players_ai[p->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: truelight@2381: static void AiStateBuildDefaultRoadBlocks(Player *p) 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@8229: if (++_players_ai[p->index].timeout_counter == 1388) { rubidium@8229: _players_ai[p->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@8229: aib = &_players_ai[p->index].src; rubidium@8229: j = _players_ai[p->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@8229: if (_players_ai[p->index].state_counter >= 600) { rubidium@8229: AiDoTerraformLand(aib->use_tile, (DiagDirection)(Random() & 3), 3, (int8)_players_ai[p->index].state_mode); truelight@2381: } truelight@2381: // also try the other terraform direction rubidium@8229: if (++_players_ai[p->index].state_counter >= 1000) { rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].state_mode = -_players_ai[p->index].state_mode; truelight@2381: } rubidium@6491: } else if (CheckPlayerHasMoney(cost) && AiCheckBlockDistances(p, aib->use_tile)) { rubidium@6943: CommandCost r; truelight@2381: truelight@2381: // player 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@8229: aib = &_players_ai[p->index].src; rubidium@8229: j = _players_ai[p->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@8229: _players_ai[p->index].state = AIS_BUILD_ROAD; rubidium@8229: _players_ai[p->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; truelight@2381: Player *player; 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; truelight@2381: arf->cur_best_dist = (uint)-1; 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: truelight@2381: static bool AiCheckRoadFinished(Player *p) truelight@2381: { truelight@2381: AiRoadEnum are; truelight@2381: TileIndex tile; rubidium@8229: DiagDirection dir = _players_ai[p->index].cur_dir_a; truelight@2381: rubidium@8229: are.dest = _players_ai[p->index].cur_tile_b; rubidium@8229: tile = TILE_MASK(_players_ai[p->index].cur_tile_a + TileOffsByDiagDir(dir)); truelight@2381: KUDr@5028: if (IsRoadStopTile(tile) || IsTileDepotType(tile, TRANSPORT_ROAD)) 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: truelight@2381: are.best_dist = (uint)-1; truelight@2381: frosch@8795: while (bits != TRACKDIR_BIT_NONE) { frosch@8795: Trackdir trackdir = RemoveFirstTrackdir(&bits); frosch@8795: FollowTrack(tile, 0x1000 | 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@8229: _players_ai[p->index].cur_tile_a = are.best_tile; frosch@8795: _players_ai[p->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)? rubidium@6842: if (CmdFailed(DoCommand(tile_new, tile, ((0x80 | ROADTYPES_ROAD) << 8), 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@6950: if (CmdSucceeded(cost) && cost.GetCost() <= (arf->player->player_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: truelight@2381: static void AiBuildRoadConstruct(Player *p) truelight@2381: { truelight@2381: AiRoadFinder arf; truelight@2381: int i; truelight@2381: TileIndex tile; truelight@2381: truelight@2381: // Reached destination? truelight@2381: if (AiCheckRoadFinished(p)) { rubidium@8229: _players_ai[p->index].state_mode = 255; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Setup recursive finder and call it. truelight@2381: arf.player = p; rubidium@8229: arf.final_tile = _players_ai[p->index].cur_tile_b; rubidium@8229: arf.final_dir = _players_ai[p->index].cur_dir_b; truelight@2381: arf.depth = 0; truelight@2381: arf.recursive_mode = 0; truelight@2381: arf.best_ptr = NULL; truelight@2381: arf.cur_best_dist = (uint)-1; truelight@2381: arf.cur_best_depth = 0xff; truelight@2381: arf.best_dist = (uint)-1; truelight@2381: arf.best_depth = 0xff; truelight@2381: arf.cur_best_tile = 0; truelight@2381: arf.best_tile = 0; rubidium@8229: AiBuildRoadRecursive(&arf, _players_ai[p->index].cur_tile_a, _players_ai[p->index].cur_dir_a); truelight@2381: truelight@2381: // Reached destination? truelight@2381: if (arf.recursive_mode == 2 && arf.cur_best_depth == 0) { rubidium@8229: _players_ai[p->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@8229: AiDoTerraformLand(_players_ai[p->index].cur_tile_a, _players_ai[p->index].cur_dir_a, 3, 0); rubidium@8229: rubidium@8229: if (++_players_ai[p->index].state_counter == 21) { rubidium@8229: _players_ai[p->index].state_mode = 1; rubidium@8229: rubidium@8229: _players_ai[p->index].cur_tile_a = TILE_MASK(_players_ai[p->index].cur_tile_a + TileOffsByDiagDir(_players_ai[p->index].cur_dir_a)); rubidium@8229: _players_ai[p->index].cur_dir_a = ReverseDiagDir(_players_ai[p->index].cur_dir_a); rubidium@8229: _players_ai[p->index].state_counter = 0; truelight@2381: } truelight@2381: return; truelight@2381: } truelight@2381: rubidium@8229: tile = TILE_MASK(_players_ai[p->index].cur_tile_a + TileOffsByDiagDir(_players_ai[p->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! */ smatz@8617: 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: smatz@8617: if (CmdSucceeded(cost) && cost.GetCost() <= p->player_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)) { smatz@8617: CommandCost cost = DoCommand(t1, t2, i + ((0x80 | ROADTYPES_ROAD) << 8), DC_AUTO, CMD_BUILD_BRIDGE); smatz@8617: if (CmdSucceeded(cost) && cost.GetCost() < (p->player_money >> 1) && cost.GetCost() < ((p->player_money + _economy.max_loan - p->current_loan) >> 5)) break; smatz@8617: } truelight@2381: } smatz@8617: smatz@8617: /* Build it */ smatz@8617: DoCommand(t1, t2, i + ((0x80 | ROADTYPES_ROAD) << 8), DC_AUTO | DC_EXEC, CMD_BUILD_BRIDGE); truelight@2381: } truelight@2381: smatz@8617: _players_ai[p->index].cur_tile_a = t2; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].cur_tile_a = _build_tunnel_endtile; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].cur_dir_a = (DiagDirection)(arf.best_ptr[1] & 3); rubidium@8229: _players_ai[p->index].cur_tile_a = tile; rubidium@8229: _players_ai[p->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: truelight@2381: static void AiBuildRoad(Player *p) truelight@2381: { rubidium@8229: if (_players_ai[p->index].state_mode < 1) { truelight@2381: // Construct mode, build new road. truelight@2381: AiBuildRoadConstruct(p); rubidium@8229: } else if (_players_ai[p->index].state_mode == 1) { truelight@2381: // Destruct mode, not implemented for roads. rubidium@8229: _players_ai[p->index].state_mode = 2; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: } else if (_players_ai[p->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@8229: AiDoTerraformLand(_players_ai[p->index].cur_tile_a, _players_ai[p->index].cur_dir_a, 3, 0); tron@4000: } truelight@2381: rubidium@8229: if (++_players_ai[p->index].state_counter == 4) { rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->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: truelight@2381: static void AiStateBuildRoad(Player *p) 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@8229: if (++_players_ai[p->index].timeout_counter == 1388) { rubidium@8229: _players_ai[p->index].state = AIS_DELETE_ROAD_BLOCKS; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Currently building a road between two points? rubidium@8229: if (_players_ai[p->index].state_mode != 255) { truelight@2381: AiBuildRoad(p); truelight@2381: truelight@2381: // Alternate between edges rubidium@8229: Swap(_players_ai[p->index].start_tile_a, _players_ai[p->index].start_tile_b); rubidium@8229: Swap(_players_ai[p->index].cur_tile_a, _players_ai[p->index].cur_tile_b); rubidium@8229: Swap(_players_ai[p->index].start_dir_a, _players_ai[p->index].start_dir_b); rubidium@8229: Swap(_players_ai[p->index].cur_dir_a, _players_ai[p->index].cur_dir_b); truelight@2381: truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Now, find two new points to build between rubidium@8229: num = _players_ai[p->index].num_build_rec; rubidium@8229: aib = &_players_ai[p->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@8229: _players_ai[p->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@8229: _players_ai[p->index].start_tile_a = tile; rubidium@8229: _players_ai[p->index].cur_tile_a = tile; rubidium@8229: _players_ai[p->index].start_dir_a = dir; rubidium@8229: _players_ai[p->index].cur_dir_a = dir; truelight@2381: truelight@2381: // Find second edge to build to rubidium@8229: aib = (&_players_ai[p->index].src) + (cmd & 0xF); truelight@2381: tile = AiGetRoadBlockEdge(aib->cur_building_rule, aib->use_tile, &dir); rubidium@8229: _players_ai[p->index].start_tile_b = tile; rubidium@8229: _players_ai[p->index].cur_tile_b = tile; rubidium@8229: _players_ai[p->index].start_dir_b = dir; rubidium@8229: _players_ai[p->index].cur_dir_b = dir; truelight@2381: truelight@2381: // And setup state. rubidium@8229: _players_ai[p->index].state_mode = 2; rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->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: truelight@2381: static void AiStateBuildRoadVehicles(Player *p) 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@8229: ptr = _road_default_block_data[_players_ai[p->index].src.cur_building_rule]->data; tron@3033: for (; ptr->mode != 0; ptr++) {} rubidium@8229: tile = TILE_ADD(_players_ai[p->index].src.use_tile, ToTileIndexDiff(ptr->tileoffs)); rubidium@8229: rubidium@8229: veh = AiChooseRoadVehToBuild(_players_ai[p->index].cargo_type, p->player_money, tile); tron@2551: if (veh == INVALID_ENGINE) { rubidium@8229: _players_ai[p->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@8229: if (GetVehicle(loco_id)->cargo_type != _players_ai[p->index].cargo_type) { peter1138@5031: /* Cargo type doesn't match, so refit it */ rubidium@8229: if (CmdFailed(DoCommand(tile, loco_id, _players_ai[p->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@8229: for (i = 0; _players_ai[p->index].order_list_blocks[i] != 0xFF; i++) { rubidium@8229: const AiBuildRec* aib = &_players_ai[p->index].src + _players_ai[p->index].order_list_blocks[i]; tron@2639: bool is_pass = ( rubidium@8229: _players_ai[p->index].cargo_type == CT_PASSENGERS || rubidium@8229: _players_ai[p->index].cargo_type == CT_MAIL || rubidium@8229: (_opt.landscape == LT_TEMPERATE && _players_ai[p->index].cargo_type == CT_VALUABLES) tron@2639: ); truelight@2381: Order order; truelight@2381: truelight@2381: order.type = OT_GOTO_STATION; truelight@2381: order.flags = 0; tron@4527: order.dest = AiGetStationIdFromRoadBlock(aib->use_tile, aib->cur_building_rule); truelight@2381: rubidium@8302: if (!is_pass && i == 1) order.flags |= OFB_UNLOAD; rubidium@8229: if (_players_ai[p->index].num_want_fullload != 0 && (is_pass || i == 0)) rubidium@8302: order.flags |= OFB_FULL_LOAD; truelight@2381: rubidium@4434: DoCommand(0, loco_id + (i << 16), PackOrder(&order), DC_EXEC, CMD_INSERT_ORDER); truelight@2381: } truelight@2381: tron@3491: DoCommand(0, loco_id, 0, DC_EXEC, CMD_START_STOP_ROADVEH); tron@3491: DoCommand(0, loco_id, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: rubidium@8229: if (_players_ai[p->index].num_want_fullload != 0) _players_ai[p->index].num_want_fullload--; rubidium@8229: if (--_players_ai[p->index].num_loco_to_build == 0) _players_ai[p->index].state = AIS_0; truelight@2381: } truelight@2381: truelight@2381: static void AiStateDeleteRoadBlocks(Player *p) truelight@2381: { rubidium@8229: const AiBuildRec* aib = &_players_ai[p->index].src; rubidium@8229: uint num = _players_ai[p->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@8229: _players_ai[p->index].state = AIS_0; truelight@2381: } truelight@2381: truelight@2381: truelight@2381: static void AiStateAirportStuff(Player *p) 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@8229: aib = &_players_ai[p->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.) tron@3033: if (st->owner != OWNER_NONE && st->owner != _current_player) continue; truelight@2381: tron@6032: AirportFTAClass::Flags flags = st->Airport()->flags; tron@6024: rubidium@8229: if (!(flags & (_players_ai[p->index].build_kind == 1 && i == 0 ? 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@8229: } while (++i != _players_ai[p->index].num_build_rec); rubidium@8229: rubidium@8229: _players_ai[p->index].state = AIS_BUILD_DEFAULT_AIRPORT_BLOCKS; rubidium@8229: _players_ai[p->index].state_mode = 255; rubidium@8229: _players_ai[p->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; glx@8574: uint rad = _patches.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; tron@3033: uint i; tron@3033: tron@3033: for (i = 0; (p = _airport_default_block_data[i]) != NULL; i++) { truelight@2381: // If we are doing a helicopter service, avoid building truelight@2381: // airports where they can't land. tron@6024: if (heli && !(GetAirport(p->attr)->flags & AirportFTAClass::HELICOPTERS)) 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: truelight@2381: static void AiStateBuildDefaultAirportBlocks(Player *p) 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@8229: if (++_players_ai[p->index].timeout_counter == 1388) { rubidium@8229: _players_ai[p->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@8229: aib = &_players_ai[p->index].src; rubidium@8229: j = _players_ai[p->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@8229: rule = AiFindBestDefaultAirportBlock(aib->use_tile, aib->cargo, _players_ai[p->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@8229: if (_players_ai[p->index].state_counter >= 600) { rubidium@8229: AiDoTerraformLand(aib->use_tile, (DiagDirection)(Random() & 3), 3, (int8)_players_ai[p->index].state_mode); truelight@2381: } truelight@2381: // also try the other terraform direction rubidium@8229: if (++_players_ai[p->index].state_counter >= 1000) { rubidium@8229: _players_ai[p->index].state_counter = 0; rubidium@8229: _players_ai[p->index].state_mode = -_players_ai[p->index].state_mode; truelight@2381: } rubidium@6491: } else if (CheckPlayerHasMoney(cost) && AiCheckBlockDistances(p, aib->use_tile)) { truelight@2381: // player 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@8229: aib = &_players_ai[p->index].src; rubidium@8229: j = _players_ai[p->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@8229: _players_ai[p->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: truelight@2381: static void AiStateBuildAircraftVehicles(Player *p) 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@8229: ptr = _airport_default_block_data[_players_ai[p->index].src.cur_building_rule]; tron@4000: for (; ptr->mode != 0; ptr++) {} truelight@2381: rubidium@8229: tile = TILE_ADD(_players_ai[p->index].src.use_tile, ToTileIndexDiff(ptr->tileoffs)); rubidium@8229: smatz@8402: /* determine forbidden aircraft bits */ smatz@8402: byte forbidden = 0; smatz@8402: for (i = 0; _players_ai[p->index].order_list_blocks[i] != 0xFF; i++) { smatz@8402: const AiBuildRec *aib = (&_players_ai[p->index].src) + _players_ai[p->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: smatz@8402: veh = AiChooseAircraftToBuild(p->player_money, forbidden); tron@2544: if (veh == INVALID_ENGINE) 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@8229: for (i = 0; _players_ai[p->index].order_list_blocks[i] != 0xFF; i++) { rubidium@8229: AiBuildRec *aib = (&_players_ai[p->index].src) + _players_ai[p->index].order_list_blocks[i]; rubidium@8229: bool is_pass = (_players_ai[p->index].cargo_type == CT_PASSENGERS || _players_ai[p->index].cargo_type == CT_MAIL); truelight@2381: Order order; truelight@2381: truelight@2381: order.type = OT_GOTO_STATION; truelight@2381: order.flags = 0; tron@4527: order.dest = AiGetStationIdFromAircraftBlock(aib->use_tile, aib->cur_building_rule); truelight@2381: rubidium@8302: if (!is_pass && i == 1) order.flags |= OFB_UNLOAD; rubidium@8229: if (_players_ai[p->index].num_want_fullload != 0 && (is_pass || i == 0)) rubidium@8302: order.flags |= OFB_FULL_LOAD; truelight@2381: tron@3491: DoCommand(0, loco_id + (i << 16), PackOrder(&order), DC_EXEC, CMD_INSERT_ORDER); truelight@2381: } truelight@2381: tron@3491: DoCommand(0, loco_id, 0, DC_EXEC, CMD_START_STOP_AIRCRAFT); tron@3491: tron@3491: DoCommand(0, loco_id, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT); truelight@2381: rubidium@8229: if (_players_ai[p->index].num_want_fullload != 0) _players_ai[p->index].num_want_fullload--; rubidium@8229: rubidium@8229: if (--_players_ai[p->index].num_loco_to_build == 0) _players_ai[p->index].state = AIS_0; truelight@2381: } truelight@2381: truelight@2381: static void AiStateCheckShipStuff(Player *p) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: truelight@2381: static void AiStateBuildDefaultShipBlocks(Player *p) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: truelight@2381: static void AiStateDoShipStuff(Player *p) truelight@2381: { rubidium@7455: /* Ships are not implemented in this (broken) AI */ truelight@2381: } truelight@2381: truelight@2381: static void AiStateSellVeh(Player *p) truelight@2381: { rubidium@8229: Vehicle *v = _players_ai[p->index].cur_veh; truelight@2381: truelight@2381: if (v->owner == _current_player) { rubidium@6259: if (v->type == VEH_TRAIN) { truelight@2381: truelight@2381: if (!IsTileDepotType(v->tile, TRANSPORT_RAIL) || v->u.rail.track != 0x80 || !(v->vehstatus&VS_STOPPED)) { truelight@2381: if (v->current_order.type != 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()) { truelight@2381: if (v->current_order.type != 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()) { truelight@2381: if (v->current_order.type != 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@8229: if (++_players_ai[p->index].state_counter <= 832) return; truelight@2381: truelight@2381: if (v->current_order.type == OT_GOTO_DEPOT) { truelight@2381: v->current_order.type = OT_DUMMY; truelight@2381: v->current_order.flags = 0; truelight@2381: InvalidateWindow(WC_VEHICLE_VIEW, v->index); truelight@2381: } truelight@2381: return_to_loop:; rubidium@8229: _players_ai[p->index].state = AIS_VEH_LOOP; truelight@2381: } truelight@2381: truelight@2381: static void AiStateRemoveStation(Player *p) 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@8229: _players_ai[p->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) { tron@4527: if (ord->type == OT_GOTO_STATION) in_use[ord->dest] = 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) { glx@5004: if (st->owner == _current_player && !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: truelight@2381: static void AiRemovePlayerRailOrRoad(Player *p, TileIndex tile) truelight@2381: { tron@3269: TrackBits rails; truelight@2381: truelight@2381: if (IsTileType(tile, MP_RAILWAY)) { truelight@2381: if (!IsTileOwner(tile, _current_player)) 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@8229: _players_ai[p->index].cur_dir_a = DIAGDIR_NE; rubidium@8229: _players_ai[p->index].cur_tile_a = tile; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].cur_dir_a = DIAGDIR_SE; rubidium@8229: _players_ai[p->index].cur_tile_a = tile; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].cur_dir_a = DIAGDIR_SW; rubidium@8229: _players_ai[p->index].cur_tile_a = tile; rubidium@8229: _players_ai[p->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@8229: _players_ai[p->index].cur_dir_a = DIAGDIR_NW; rubidium@8229: _players_ai[p->index].cur_tile_a = tile; rubidium@8229: _players_ai[p->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)) { truelight@2381: if (!IsTileOwner(tile, _current_player)) return; truelight@2381: tron@3033: if (IsLevelCrossing(tile)) goto is_rail_crossing; tron@3033: frosch@8563: if (IsRoadDepot(tile)) { 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); tron@4000: if (IsTileType(t, MP_STATION) && IsTileOwner(t, _current_player)) return; tron@4000: tron@4000: t = tile + TileDiffXY(1, 0); tron@4000: if (IsTileType(t, MP_STATION) && IsTileOwner(t, _current_player)) return; tron@4000: tron@4000: t = tile + TileDiffXY(0, -1); tron@4000: if (IsTileType(t, MP_STATION) && IsTileOwner(t, _current_player)) return; tron@4000: tron@4000: t = tile + TileDiffXY(0, 1); tron@4000: if (IsTileType(t, MP_STATION) && IsTileOwner(t, _current_player)) 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)) { tron@3234: if (!IsTileOwner(tile, _current_player) || 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: truelight@2381: static void AiStateRemoveTrack(Player *p) truelight@2381: { truelight@2381: /* Was 1000 for standard 8x8 maps. */ truelight@2381: int num = MapSizeX() * 4; truelight@2381: truelight@2381: do { rubidium@8229: TileIndex tile = ++_players_ai[p->index].state_counter; truelight@2381: truelight@2381: // Iterated all tiles? truelight@2381: if (tile >= MapSize()) { rubidium@8229: _players_ai[p->index].state = AIS_REMOVE_STATION; truelight@2381: return; truelight@2381: } truelight@2381: truelight@2381: // Remove player stuff in that tile truelight@2381: AiRemovePlayerRailOrRoad(p, tile); rubidium@8229: if (_players_ai[p->index].state != AIS_REMOVE_TRACK) return; truelight@2381: } while (--num); truelight@2381: } truelight@2381: truelight@2381: static void AiStateRemoveSingleRailTile(Player *p) truelight@2381: { truelight@2381: // Remove until we can't remove more. rubidium@8229: if (!AiRemoveTileAndGoForward(p)) _players_ai[p->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: truelight@2381: extern void ShowBuyCompanyDialog(uint player); truelight@2381: truelight@2381: static void AiHandleTakeover(Player *p) truelight@2381: { truelight@2381: if (p->bankrupt_timeout != 0) { tron@3033: p->bankrupt_timeout -= 8; tron@3033: if (p->bankrupt_timeout > 0) return; truelight@2381: p->bankrupt_timeout = 0; truelight@2381: DeleteWindowById(WC_BUY_COMPANY, _current_player); Darkvater@2425: if (IsLocalPlayer()) { truelight@2381: AskExitToGameMenu(); truelight@2381: return; truelight@2381: } Darkvater@4845: if (IsHumanPlayer(_current_player)) return; truelight@2381: } truelight@2381: tron@3033: if (p->bankrupt_asked == 255) return; truelight@2381: truelight@2381: { truelight@2381: uint asked = p->bankrupt_asked; truelight@2381: Player *pp, *best_pl = NULL; truelight@2381: int32 best_val = -1; truelight@2381: truelight@2381: // Ask the guy with the highest performance hist. truelight@2381: FOR_ALL_PLAYERS(pp) { truelight@2381: if (pp->is_active && rubidium@6491: !(asked & 1) && truelight@2381: pp->bankrupt_asked == 0 && truelight@2381: best_val < pp->old_economy[1].performance_history) { truelight@2381: best_val = pp->old_economy[1].performance_history; truelight@2381: best_pl = pp; truelight@2381: } rubidium@6491: asked >>= 1; truelight@2381: } truelight@2381: truelight@2381: // Asked all players? truelight@2381: if (best_val == -1) { truelight@2381: p->bankrupt_asked = 255; truelight@2381: return; truelight@2381: } truelight@2381: skidd13@7931: SetBit(p->bankrupt_asked, best_pl->index); truelight@2381: truelight@2381: if (best_pl->index == _local_player) { truelight@2381: p->bankrupt_timeout = 4440; truelight@2381: ShowBuyCompanyDialog(_current_player); truelight@2381: return; truelight@2381: } Darkvater@4845: if (IsHumanPlayer(best_pl->index)) return; truelight@2381: truelight@2381: // Too little money for computer to buy it? truelight@2381: if (best_pl->player_money >> 1 >= p->bankrupt_value) { truelight@2381: // Computer wants to buy it. rubidium@5587: PlayerID old_p = _current_player; celestar@6404: _current_player = best_pl->index; tron@3491: DoCommand(0, old_p, 0, DC_EXEC, CMD_BUY_COMPANY); truelight@2381: _current_player = old_p; truelight@2381: } truelight@2381: } truelight@2381: } truelight@2381: tron@4011: static void AiAdjustLoan(const Player* p) truelight@2381: { rubidium@6990: Money base = AiGetBasePrice(p); truelight@2381: truelight@2381: if (p->player_money > base * 1400) { truelight@2381: // Decrease loan truelight@2381: if (p->current_loan != 0) { tron@3491: DoCommand(0, 0, 0, DC_EXEC, CMD_DECREASE_LOAN); truelight@2381: } truelight@2381: } else if (p->player_money < base * 500) { truelight@2381: // Increase loan truelight@2381: if (p->current_loan < _economy.max_loan && truelight@2381: p->num_valid_stat_ent >= 2 && rubidium@6491: -(p->old_economy[0].expenses + p->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: truelight@2381: static void AiBuildCompanyHQ(Player *p) truelight@2381: { truelight@2381: TileIndex tile; truelight@2381: truelight@2381: if (p->location_of_house == 0 && truelight@2381: p->last_build_coordinate != 0) { truelight@2381: tile = AdjustTileCoordRandomly(p->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: truelight@2381: void AiDoGameLoop(Player *p) truelight@2381: { truelight@2381: if (p->bankrupt_asked != 0) { truelight@2381: AiHandleTakeover(p); 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@6491: _ai_service_interval = _patches.servint_ispercent ? 80 : 180; truelight@2381: Darkvater@4845: if (IsHumanPlayer(_current_player)) return; truelight@2381: truelight@2381: AiAdjustLoan(p); truelight@2381: AiBuildCompanyHQ(p); 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@8229: if (_players_ai[p->index].state != old_state) { truelight@2381: if (hasdots) truelight@2381: printf("\n"); truelight@2381: hasdots=false; rubidium@8229: printf("AiState: %s\n", _ai_state_names[old_state=_players_ai[p->index].state]); truelight@2381: } else { truelight@2381: printf("."); truelight@2381: hasdots=true; truelight@2381: } truelight@2381: } truelight@2381: #endif truelight@2381: rubidium@8229: _ai_actions[_players_ai[p->index].state](p); truelight@2381: } rubidium@8229: rubidium@8229: rubidium@8229: static const SaveLoad _player_ai_desc[] = { rubidium@8229: SLE_VAR(PlayerAI, state, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, tick, SLE_UINT8), rubidium@8229: SLE_CONDVAR(PlayerAI, state_counter, SLE_FILE_U16 | SLE_VAR_U32, 0, 12), rubidium@8229: SLE_CONDVAR(PlayerAI, state_counter, SLE_UINT32, 13, SL_MAX_VERSION), rubidium@8229: SLE_VAR(PlayerAI, timeout_counter, SLE_UINT16), rubidium@8229: rubidium@8229: SLE_VAR(PlayerAI, state_mode, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, banned_tile_count, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, railtype_to_use, SLE_UINT8), rubidium@8229: rubidium@8229: SLE_VAR(PlayerAI, cargo_type, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, num_wagons, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, build_kind, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, num_build_rec, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, num_loco_to_build, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, num_want_fullload, SLE_UINT8), rubidium@8229: rubidium@8229: SLE_VAR(PlayerAI, route_type_mask, SLE_UINT8), rubidium@8229: rubidium@8229: SLE_CONDVAR(PlayerAI, start_tile_a, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@8229: SLE_CONDVAR(PlayerAI, start_tile_a, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@8229: SLE_CONDVAR(PlayerAI, cur_tile_a, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@8229: SLE_CONDVAR(PlayerAI, cur_tile_a, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@8229: SLE_VAR(PlayerAI, start_dir_a, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, cur_dir_a, SLE_UINT8), rubidium@8229: rubidium@8229: SLE_CONDVAR(PlayerAI, start_tile_b, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@8229: SLE_CONDVAR(PlayerAI, start_tile_b, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@8229: SLE_CONDVAR(PlayerAI, cur_tile_b, SLE_FILE_U16 | SLE_VAR_U32, 0, 5), rubidium@8229: SLE_CONDVAR(PlayerAI, cur_tile_b, SLE_UINT32, 6, SL_MAX_VERSION), rubidium@8229: SLE_VAR(PlayerAI, start_dir_b, SLE_UINT8), rubidium@8229: SLE_VAR(PlayerAI, cur_dir_b, SLE_UINT8), rubidium@8229: rubidium@8229: SLE_REF(PlayerAI, cur_veh, REF_VEHICLE), rubidium@8229: rubidium@8229: SLE_ARR(PlayerAI, wagon_list, SLE_UINT16, 9), rubidium@8229: SLE_ARR(PlayerAI, order_list_blocks, SLE_UINT8, 20), rubidium@8229: SLE_ARR(PlayerAI, 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@8229: static const SaveLoad _player_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@8229: void SaveLoad_AI(PlayerID id) rubidium@8229: { rubidium@8229: PlayerAI *pai = &_players_ai[id]; rubidium@8229: SlObject(pai, _player_ai_desc); rubidium@8229: for (int i = 0; i != pai->num_build_rec; i++) { rubidium@8229: SlObject(&pai->src + i, _player_ai_build_rec_desc); rubidium@8229: } rubidium@8236: }