/* $Id$ */
/** @file ai_vehicle.cpp handles the functions of the AIVehicle class */
#include "ai_vehicle.hpp"
#include "ai_cargo.hpp"
#include "../../command.h"
#include "../../vehicle.h"
#include "../../depot.h"
#include "../../engine.h"
#include "../../player.h"
/* static */ bool AIVehicle::IsValidEngine(EngineID engine_id)
{
return ::IsEngineIndex(engine_id); // TODO: implement 'can I build this engine check'
}
/* static */ bool AIVehicle::IsValidVehicle(VehicleID vehicle_id)
{
return ::IsValidVehicleID(vehicle_id) && ::GetVehicle(vehicle_id)->owner == _current_player;
}
EngineID AIVehicle::FindBestVehicle(CargoID cargo, uint8 min_reliability, VehicleType veh_type)
{
if (!AICargo::IsValidCargo(cargo) || min_reliability > 100) return INVALID_ENGINE;
EngineID best_engine = INVALID_ENGINE;
EngineID engine_id;
FOR_ALL_ENGINEIDS_OF_TYPE(engine_id, veh_type) {
/* Is the vehicle available for this player */
if (IsEngineBuildable(engine_id, veh_type, _current_player) &&
GetEngine(engine_id)->reliability * 100 >= min_reliability << 16) {
switch (veh_type) {
case VEH_ROAD: if (RoadVehInfo(engine_id)->cargo_type != cargo && !CanRefitTo(engine_id, cargo)) continue; break;
case VEH_TRAIN: if (RailVehInfo(engine_id)->cargo_type != cargo && !CanRefitTo(engine_id, cargo)) continue; break;
case VEH_SHIP: if (ShipVehInfo(engine_id)->cargo_type != cargo && !CanRefitTo(engine_id, cargo)) continue; break;
case VEH_AIRCRAFT: if (cargo != CT_PASSENGERS && !CanRefitTo(engine_id, cargo)) continue; break;
default: NOT_REACHED();
}
best_engine = engine_id;
}
}
return best_engine;
}
EngineID AIVehicle::FindBestRoadVehicle(CargoID cargo, uint8 min_reliability)
{
return this->FindBestVehicle(cargo, min_reliability, VEH_ROAD);
}
EngineID AIVehicle::FindBestAircraftVehicle(CargoID cargo, uint8 min_reliability)
{
return this->FindBestVehicle(cargo, min_reliability, VEH_AIRCRAFT);
}
VehicleID AIVehicle::BuildVehicle(TileIndex depot, EngineID engine_id)
{
if (!this->IsValidEngine(engine_id)) return false;
/* Reset the internal NewVehicleID in case we are in TestMode */
AIObject::SetNewVehicleID(0);
bool ret;
switch (::GetEngine(engine_id)->type) {
case VEH_ROAD: ret = this->DoCommand(depot, engine_id, 0, CMD_BUILD_ROAD_VEH); break;
case VEH_TRAIN: ret = this->DoCommand(depot, engine_id, 0, CMD_BUILD_RAIL_VEHICLE); break;
case VEH_SHIP: ret = this->DoCommand(depot, engine_id, 0, CMD_BUILD_SHIP); break;
case VEH_AIRCRAFT: ret = this->DoCommand(depot, engine_id, 0, CMD_BUILD_AIRCRAFT); break;
default: NOT_REACHED(); return INVALID_VEHICLE;
}
return ret ? AIObject::GetNewVehicleID() : INVALID_VEHICLE;
}
VehicleID AIVehicle::CloneVehicle(TileIndex depot, VehicleID vehicle_id, bool share_orders)
{
if (!this->IsValidVehicle(vehicle_id)) return false;
/* Reset the internal NewVehicleID in case we are in TestMode */
AIObject::SetNewVehicleID(0);
bool ret = this->DoCommand(depot, vehicle_id, share_orders, CMD_CLONE_VEHICLE);
return ret ? AIObject::GetNewVehicleID() : INVALID_VEHICLE;
}
bool AIVehicle::RefitVehicle(VehicleID vehicle_id, CargoID cargo)
{
if (!this->IsValidVehicle(vehicle_id) || !AICargo::IsValidCargo(cargo)) return false;
switch (::GetVehicle(vehicle_id)->type) {
case VEH_ROAD: return this->DoCommand(0, vehicle_id, cargo, CMD_REFIT_ROAD_VEH);
case VEH_TRAIN: return this->DoCommand(0, vehicle_id, cargo, CMD_REFIT_RAIL_VEHICLE);
case VEH_SHIP: return this->DoCommand(0, vehicle_id, cargo, CMD_REFIT_SHIP);
case VEH_AIRCRAFT: return this->DoCommand(0, vehicle_id, cargo, CMD_REFIT_AIRCRAFT);
default: return false;
}
}
bool AIVehicle::SellVehicle(VehicleID vehicle_id)
{
if (!this->IsValidVehicle(vehicle_id)) return false;
switch (::GetVehicle(vehicle_id)->type) {
case VEH_ROAD: return this->DoCommand(0, vehicle_id, 0, CMD_SELL_ROAD_VEH);
case VEH_TRAIN: return this->DoCommand(0, vehicle_id, 0, CMD_SELL_RAIL_WAGON);
case VEH_SHIP: return this->DoCommand(0, vehicle_id, 0, CMD_SELL_SHIP);
case VEH_AIRCRAFT: return this->DoCommand(0, vehicle_id, 0, CMD_SELL_AIRCRAFT);
default: return false;
}
}
bool AIVehicle::SendVehicleToDepot(VehicleID vehicle_id)
{
if (!this->IsValidVehicle(vehicle_id)) return false;
switch (::GetVehicle(vehicle_id)->type) {
case VEH_ROAD: return this->DoCommand(0, vehicle_id, 0, CMD_SEND_ROADVEH_TO_DEPOT);
case VEH_TRAIN: return this->DoCommand(0, vehicle_id, 0, CMD_SEND_TRAIN_TO_DEPOT);
case VEH_SHIP: return this->DoCommand(0, vehicle_id, 0, CMD_SEND_SHIP_TO_DEPOT);
case VEH_AIRCRAFT: return this->DoCommand(0, vehicle_id, 0, CMD_SEND_AIRCRAFT_TO_HANGAR);
default: return false;
}
}
bool AIVehicle::StartStopVehicle(VehicleID vehicle_id)
{
if (!this->IsValidVehicle(vehicle_id)) return false;
switch (::GetVehicle(vehicle_id)->type) {
case VEH_ROAD: return this->DoCommand(0, vehicle_id, 0, CMD_START_STOP_ROADVEH);
case VEH_TRAIN: return this->DoCommand(0, vehicle_id, 0, CMD_START_STOP_TRAIN);
case VEH_SHIP: return this->DoCommand(0, vehicle_id, 0, CMD_START_STOP_SHIP);
case VEH_AIRCRAFT: return this->DoCommand(0, vehicle_id, 0, CMD_START_STOP_AIRCRAFT);
default: return false;
}
}
bool AIVehicle::SkipVehicleOrder(VehicleID vehicle_id)
{
if (!this->IsValidVehicle(vehicle_id)) return false;
return this->DoCommand(0, vehicle_id, 0, CMD_SKIP_TO_ORDER);
}
/* static */ TileIndex AIVehicle::GetLocation(VehicleID vehicle_id)
{
if (!AIVehicle::IsValidVehicle(vehicle_id)) return INVALID_TILE;
return ::GetVehicle(vehicle_id)->tile;
}
/* static */ EngineID AIVehicle::GetEngineType(VehicleID vehicle_id)
{
if (!AIVehicle::IsValidVehicle(vehicle_id)) return INVALID_ENGINE;
return ::GetVehicle(vehicle_id)->engine_type;
}
/* static */ int32 AIVehicle::GetUnitNumber(VehicleID vehicle_id)
{
if (!AIVehicle::IsValidVehicle(vehicle_id)) return -1;
return ::GetVehicle(vehicle_id)->unitnumber;
}
/* static */ int32 AIVehicle::GetAge(VehicleID vehicle_id)
{
if (!AIVehicle::IsValidVehicle(vehicle_id)) return -1;
return ::GetVehicle(vehicle_id)->age;
}
/* static */ int32 AIVehicle::GetMaxAge(VehicleID vehicle_id)
{
if (!AIVehicle::IsValidVehicle(vehicle_id)) return -1;
return ::GetVehicle(vehicle_id)->max_age;
}
/* static */ int32 AIVehicle::GetAgeLeft(VehicleID vehicle_id)
{
if (!AIVehicle::IsValidVehicle(vehicle_id)) return -1;
return ::GetVehicle(vehicle_id)->max_age - ::GetVehicle(vehicle_id)->age;
}
/* static */ int32 AIVehicle::GetProfitThisYear(VehicleID vehicle_id)
{
if (!AIVehicle::IsValidVehicle(vehicle_id)) return -1;
return ::GetVehicle(vehicle_id)->profit_this_year;
}
/* static */ int32 AIVehicle::GetProfitLastYear(VehicleID vehicle_id)
{
if (!AIVehicle::IsValidVehicle(vehicle_id)) return -1;
return ::GetVehicle(vehicle_id)->profit_last_year;
}