bin/ai/compat_0.7.nut

   1 /*
   2  * This file is part of OpenTTD.
   3  * OpenTTD is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2.
   4  * OpenTTD is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
   5  * See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
   6  */
   7
   8 AILog.Info("0.7 API compatibility in effect:");
   9 AILog.Info(" - AITown::GetLastMonthProduction's behaviour has slightly changed.");
  10 AILog.Info(" - AISubsidy::GetDestination returns STATION_INVALID for awarded subsidies.");
  11 AILog.Info(" - AISubsidy::GetSource returns STATION_INVALID for awarded subsidies.");
  12
  13 AISign.GetMaxSignID <- function()
  14 {
  15         local list = AISignList();
  16         local max_id = 0;
  17         foreach (id, d in list) {
  18                 if (id > max_id) max_id = id;
  19         }
  20         return max_id;
  21 }
  22
  23 AITile.GetHeight <- function(tile)
  24 {
  25         if (!AIMap.IsValidTile(tile)) return -1;
  26
  27         return AITile.GetCornerHeight(tile, AITile.CORNER_N);
  28 }
  29
  30 AIOrder.ChangeOrder <- function(vehicle_id, order_position, order_flags)
  31 {
  32         return AIOrder.SetOrderFlags(vehicle_id, order_position, order_flags);
  33 }
  34
  35 AIWaypoint.WAYPOINT_INVALID <- 0xFFFF;
  36
  37 AISubsidy.SourceIsTown <- function(subsidy_id)
  38 {
  39         if (!AISubsidy.IsValidSubsidy(subsidy_id) || AISubsidy.IsAwarded(subsidy_id)) return false;
  40
  41         return AISubsidy.GetSourceType(subsidy_id) == AISubsidy.SPT_TOWN;
  42 }
  43
  44 AISubsidy.GetSource <- function(subsidy_id)
  45 {
  46         if (!AISubsidy.IsValidSubsidy(subsidy_id)) return AIBaseStation.STATION_INVALID;
  47
  48         if (AISubsidy.IsAwarded(subsidy_id)) {
  49                 return AIBaseStation.STATION_INVALID;
  50         }
  51
  52         return AISubsidy.GetSourceIndex(subsidy_id);
  53 }
  54
  55 AISubsidy.DestinationIsTown <- function(subsidy_id)
  56 {
  57         if (!AISubsidy.IsValidSubsidy(subsidy_id) || AISubsidy.IsAwarded(subsidy_id)) return false;
  58
  59         return AISubsidy.GetDestinationType(subsidy_id) == AISubsidy.SPT_TOWN;
  60 }
  61
  62 AISubsidy.GetDestination <- function(subsidy_id)
  63 {
  64         if (!AISubsidy.IsValidSubsidy(subsidy_id)) return AIBaseStation.STATION_INVALID;
  65
  66         if (AISubsidy.IsAwarded(subsidy_id)) {
  67                 return AIBaseStation.STATION_INVALID;
  68         }
  69
  70         return AISubsidy.GetDestinationIndex(subsidy_id);
  71 }
  72
  73 AITown.GetMaxProduction <- function(town_id, cargo_id)
  74 {
  75         return AITown.GetLastMonthProduction(town_id, cargo_id);
  76 }
  77
  78 AIRail.RemoveRailWaypoint <- function(tile)
  79 {
  80         return AIRail.RemoveRailWaypointTileRect(tile, tile, true);
  81 }
  82
  83 AIRail.RemoveRailStationTileRect <- function(tile, tile2)
  84 {
  85         return AIRail.RemoveRailStationTileRectangle(tile, tile2, false);
  86 }
  87
  88 AIVehicle.SkipToVehicleOrder <- function(vehicle_id, order_position)
  89 {
  90         return AIOrder.SkipToOrder(vehicle_id, order_position);
  91 }
  92
  93 AIEngine.IsValidEngine <- function(engine_id)
  94 {
  95         return AIEngine.IsBuildable(engine_id);
  96 }
  97
  98 AIEngine._GetName <- AIEngine.GetName;
  99 AIEngine.GetName <- function(engine_id)
 100 {
 101         if (!AIEngine.IsBuildable(engine_id)) return null;
 102         return AIEngine._GetName(engine_id);
 103 }
 104
 105 AIEngine._GetCargoType <- AIEngine.GetCargoType;
 106 AIEngine.GetCargoType <- function(engine_id)
 107 {
 108         if (!AIEngine.IsBuildable(engine_id)) return 255;
 109         return AIEngine._GetCargoType(engine_id);
 110 }
 111
 112 AIEngine._CanRefitCargo <- AIEngine.CanRefitCargo;
 113 AIEngine.CanRefitCargo <- function(engine_id, cargo_id)
 114 {
 115         if (!AIEngine.IsBuildable(engine_id)) return false;
 116         return AIEngine._CanRefitCargo(engine_id, cargo_id);
 117 }
 118
 119 AIEngine._CanPullCargo <- AIEngine.CanPullCargo;
 120 AIEngine.CanPullCargo <- function(engine_id, cargo_id)
 121 {
 122         if (!AIEngine.IsBuildable(engine_id)) return false;
 123         return AIEngine._CanPullCargo(engine_id, cargo_id);
 124 }
 125
 126 AIEngine._GetCapacity <- AIEngine.GetCapacity;
 127 AIEngine.GetCapacity <- function(engine_id)
 128 {
 129         if (!AIEngine.IsBuildable(engine_id)) return -1;
 130         return AIEngine._GetCapacity(engine_id);
 131 }
 132
 133 AIEngine._GetReliability <- AIEngine.GetReliability;
 134 AIEngine.GetReliability <- function(engine_id)
 135 {
 136         if (!AIEngine.IsBuildable(engine_id)) return -1;
 137         return AIEngine._GetReliability(engine_id);
 138 }
 139
 140 AIEngine._GetMaxSpeed <- AIEngine.GetMaxSpeed;
 141 AIEngine.GetMaxSpeed <- function(engine_id)
 142 {
 143         if (!AIEngine.IsBuildable(engine_id)) return -1;
 144         return AIEngine._GetMaxSpeed(engine_id);
 145 }
 146
 147 AIEngine._GetPrice <- AIEngine.GetPrice;
 148 AIEngine.GetPrice <- function(engine_id)
 149 {
 150         if (!AIEngine.IsBuildable(engine_id)) return -1;
 151         return AIEngine._GetPrice(engine_id);
 152 }
 153
 154 AIEngine._GetMaxAge <- AIEngine.GetMaxAge;
 155 AIEngine.GetMaxAge <- function(engine_id)
 156 {
 157         if (!AIEngine.IsBuildable(engine_id)) return -1;
 158         return AIEngine._GetMaxAge(engine_id);
 159 }
 160
 161 AIEngine._GetRunningCost <- AIEngine.GetRunningCost;
 162 AIEngine.GetRunningCost <- function(engine_id)
 163 {
 164         if (!AIEngine.IsBuildable(engine_id)) return -1;
 165         return AIEngine._GetRunningCost(engine_id);
 166 }
 167
 168 AIEngine._GetPower <- AIEngine.GetPower;
 169 AIEngine.GetPower <- function(engine_id)
 170 {
 171         if (!AIEngine.IsBuildable(engine_id)) return -1;
 172         return AIEngine._GetPower(engine_id);
 173 }
 174
 175 AIEngine._GetWeight <- AIEngine.GetWeight;
 176 AIEngine.GetWeight <- function(engine_id)
 177 {
 178         if (!AIEngine.IsBuildable(engine_id)) return -1;
 179         return AIEngine._GetWeight(engine_id);
 180 }
 181
 182 AIEngine._GetMaxTractiveEffort <- AIEngine.GetMaxTractiveEffort;
 183 AIEngine.GetMaxTractiveEffort <- function(engine_id)
 184 {
 185         if (!AIEngine.IsBuildable(engine_id)) return -1;
 186         return AIEngine._GetMaxTractiveEffort(engine_id);
 187 }
 188
 189 AIEngine._GetDesignDate <- AIEngine.GetDesignDate;
 190 AIEngine.GetDesignDate <- function(engine_id)
 191 {
 192         if (!AIEngine.IsBuildable(engine_id)) return -1;
 193         return AIEngine._GetDesignDate(engine_id);
 194 }
 195
 196 AIEngine._GetVehicleType <- AIEngine.GetVehicleType;
 197 AIEngine.GetVehicleType <- function(engine_id)
 198 {
 199         if (!AIEngine.IsBuildable(engine_id)) return AIVehicle.VT_INVALID;
 200         return AIEngine._GetVehicleType(engine_id);
 201 }
 202
 203 AIEngine._IsWagon <- AIEngine.IsWagon;
 204 AIEngine.IsWagon <- function(engine_id)
 205 {
 206         if (!AIEngine.IsBuildable(engine_id)) return false;
 207         return AIEngine._IsWagon(engine_id);
 208 }
 209
 210 AIEngine._CanRunOnRail <- AIEngine.CanRunOnRail;
 211 AIEngine.CanRunOnRail <- function(engine_id, track_rail_type)
 212 {
 213         if (!AIEngine.IsBuildable(engine_id)) return false;
 214         return AIEngine._CanRunOnRail(engine_id, track_rail_type);
 215 }
 216
 217 AIEngine._HasPowerOnRail <- AIEngine.HasPowerOnRail;
 218 AIEngine.HasPowerOnRail <- function(engine_id, track_rail_type)
 219 {
 220         if (!AIEngine.IsBuildable(engine_id)) return false;
 221         return AIEngine._HasPowerOnRail(engine_id, track_rail_type);
 222 }
 223
 224 AIEngine._GetRoadType <- AIEngine.GetRoadType;
 225 AIEngine.GetRoadType <- function(engine_id)
 226 {
 227         if (!AIEngine.IsBuildable(engine_id)) return AIRoad.ROADTYPE_INVALID;
 228         return AIEngine._GetRoadType(engine_id);
 229 }
 230
 231 AIEngine._GetRailType <- AIEngine.GetRailType;
 232 AIEngine.GetRailType <- function(engine_id)
 233 {
 234         if (!AIEngine.IsBuildable(engine_id)) return AIRail.RAILTYPE_INVALID;
 235         return AIEngine._GetRailType(engine_id);
 236 }
 237
 238 AIEngine._IsArticulated <- AIEngine.IsArticulated;
 239 AIEngine.IsArticulated <- function(engine_id)
 240 {
 241         if (!AIEngine.IsBuildable(engine_id)) return false;
 242         return AIEngine._IsArticulated(engine_id);
 243 }
 244
 245 AIEngine._GetPlaneType <- AIEngine.GetPlaneType;
 246 AIEngine.GetPlaneType <- function(engine_id)
 247 {
 248         if (!AIEngine.IsBuildable(engine_id)) return -1;
 249         return AIEngine._GetPlaneType(engine_id);
 250 }
 251
 252 _AIWaypointList <- AIWaypointList;
 253 class AIWaypointList extends _AIWaypointList {
 254         constructor()
 255         {
 256                 ::_AIWaypointList.constructor(AIWaypoint.WAYPOINT_RAIL);
 257         }
 258 }
 259
 260 AIRoad._BuildRoadStation <- AIRoad.BuildRoadStation;
 261 AIRoad.BuildRoadStation <- function(tile, front, road_veh_type, station_id)
 262 {
 263         if (AIRoad.IsRoadStationTile(tile) && AICompany.IsMine(AITile.GetOwner(tile))) return false;
 264
 265         return AIRoad._BuildRoadStation(tile, front, road_veh_type, station_id);
 266 }
 267
 268 AIRoad._BuildDriveThroughRoadStation <- AIRoad.BuildDriveThroughRoadStation;
 269 AIRoad.BuildDriveThroughRoadStation <- function(tile, front, road_veh_type, station_id)
 270 {
 271         if (AIRoad.IsRoadStationTile(tile) && AICompany.IsMine(AITile.GetOwner(tile))) return false;
 272
 273         return AIRoad._BuildDriveThroughRoadStation(tile, front, road_veh_type, station_id);
 274 }
 275
 276 AIBridgeList.HasNext <-
 277 AIBridgeList_Length.HasNext <-
 278 AICargoList.HasNext <-
 279 AICargoList_IndustryAccepting.HasNext <-
 280 AICargoList_IndustryProducing.HasNext <-
 281 AIDepotList.HasNext <-
 282 AIEngineList.HasNext <-
 283 AIGroupList.HasNext <-
 284 AIIndustryList.HasNext <-
 285 AIIndustryList_CargoAccepting.HasNext <-
 286 AIIndustryList_CargoProducing.HasNext <-
 287 AIIndustryTypeList.HasNext <-
 288 AIList.HasNext <-
 289 AIRailTypeList.HasNext <-
 290 AISignList.HasNext <-
 291 AIStationList.HasNext <-
 292 AIStationList_Vehicle.HasNext <-
 293 AISubsidyList.HasNext <-
 294 AITileList.HasNext <-
 295 AITileList_IndustryAccepting.HasNext <-
 296 AITileList_IndustryProducing.HasNext <-
 297 AITileList_StationType.HasNext <-
 298 AITownList.HasNext <-
 299 AIVehicleList.HasNext <-
 300 AIVehicleList_DefaultGroup.HasNext <-
 301 AIVehicleList_Group.HasNext <-
 302 AIVehicleList_SharedOrders.HasNext <-
 303 AIVehicleList_Station.HasNext <-
 304 AIWaypointList.HasNext <-
 305 AIWaypointList_Vehicle.HasNext <-
 306 function()
 307 {
 308         return !this.IsEnd();
 309 }
 310
 311 AIIndustry._IsCargoAccepted <- AIIndustry.IsCargoAccepted;
 312 AIIndustry.IsCargoAccepted <- function(industry_id, cargo_id)
 313 {
 314         return AIIndustry._IsCargoAccepted(industry_id, cargo_id) != AIIndustry.CAS_NOT_ACCEPTED;
 315 }
 316
 317 AIAbstractList <- AIList;
 318
 319 AIList.ChangeItem <- AIList.SetValue;
 320
 321 AIRail.ERR_NONUNIFORM_STATIONS_DISABLED <- 0xFFFF;
 322
 323 AICompany.GetCompanyValue <- function(company)
 324 {
 325         return AICompany.GetQuarterlyCompanyValue(company, AICompany.CURRENT_QUARTER);
 326 }
 327
 328 AITown.GetLastMonthTransported <- AITown.GetLastMonthSupplied;
 329
 330 AIEvent.AI_ET_INVALID <- AIEvent.ET_INVALID;
 331 AIEvent.AI_ET_TEST <- AIEvent.ET_TEST;
 332 AIEvent.AI_ET_SUBSIDY_OFFER <- AIEvent.ET_SUBSIDY_OFFER;
 333 AIEvent.AI_ET_SUBSIDY_OFFER_EXPIRED <- AIEvent.ET_SUBSIDY_OFFER_EXPIRED;
 334 AIEvent.AI_ET_SUBSIDY_AWARDED <- AIEvent.ET_SUBSIDY_AWARDED;
 335 AIEvent.AI_ET_SUBSIDY_EXPIRED <- AIEvent.ET_SUBSIDY_EXPIRED;
 336 AIEvent.AI_ET_ENGINE_PREVIEW <- AIEvent.ET_ENGINE_PREVIEW;
 337 AIEvent.AI_ET_COMPANY_NEW <- AIEvent.ET_COMPANY_NEW;
 338 AIEvent.AI_ET_COMPANY_IN_TROUBLE <- AIEvent.ET_COMPANY_IN_TROUBLE;
 339 AIEvent.AI_ET_COMPANY_MERGER <- AIEvent.ET_COMPANY_MERGER;
 340 AIEvent.AI_ET_COMPANY_BANKRUPT <- AIEvent.ET_COMPANY_BANKRUPT;
 341 AIEvent.AI_ET_VEHICLE_CRASHED <- AIEvent.ET_VEHICLE_CRASHED;
 342 AIEvent.AI_ET_VEHICLE_LOST <- AIEvent.ET_VEHICLE_LOST;
 343 AIEvent.AI_ET_VEHICLE_WAITING_IN_DEPOT <- AIEvent.ET_VEHICLE_WAITING_IN_DEPOT;
 344 AIEvent.AI_ET_VEHICLE_UNPROFITABLE <- AIEvent.ET_VEHICLE_UNPROFITABLE;
 345 AIEvent.AI_ET_INDUSTRY_OPEN <- AIEvent.ET_INDUSTRY_OPEN;
 346 AIEvent.AI_ET_INDUSTRY_CLOSE <- AIEvent.ET_INDUSTRY_CLOSE;
 347 AIEvent.AI_ET_ENGINE_AVAILABLE <- AIEvent.ET_ENGINE_AVAILABLE;
 348 AIEvent.AI_ET_STATION_FIRST_VEHICLE <- AIEvent.ET_STATION_FIRST_VEHICLE;
 349 AIEvent.AI_ET_DISASTER_ZEPPELINER_CRASHED <- AIEvent.ET_DISASTER_ZEPPELINER_CRASHED;
 350 AIEvent.AI_ET_DISASTER_ZEPPELINER_CLEARED <- AIEvent.ET_DISASTER_ZEPPELINER_CLEARED;
 351 AIOrder.AIOF_NONE <- AIOrder.OF_NONE
 352 AIOrder.AIOF_NON_STOP_INTERMEDIATE <- AIOrder.OF_NON_STOP_INTERMEDIATE
 353 AIOrder.AIOF_NON_STOP_DESTINATION <- AIOrder.OF_NON_STOP_DESTINATION
 354 AIOrder.AIOF_UNLOAD <- AIOrder.OF_UNLOAD
 355 AIOrder.AIOF_TRANSFER <- AIOrder.OF_TRANSFER
 356 AIOrder.AIOF_NO_UNLOAD <- AIOrder.OF_NO_UNLOAD
 357 AIOrder.AIOF_FULL_LOAD <- AIOrder.OF_FULL_LOAD
 358 AIOrder.AIOF_FULL_LOAD_ANY <- AIOrder.OF_FULL_LOAD_ANY
 359 AIOrder.AIOF_NO_LOAD <- AIOrder.OF_NO_LOAD
 360 AIOrder.AIOF_SERVICE_IF_NEEDED <- AIOrder.OF_SERVICE_IF_NEEDED
 361 AIOrder.AIOF_STOP_IN_DEPOT <- AIOrder.OF_STOP_IN_DEPOT
 362 AIOrder.AIOF_GOTO_NEAREST_DEPOT <- AIOrder.OF_GOTO_NEAREST_DEPOT
 363 AIOrder.AIOF_NON_STOP_FLAGS <- AIOrder.OF_NON_STOP_FLAGS
 364 AIOrder.AIOF_UNLOAD_FLAGS <- AIOrder.OF_UNLOAD_FLAGS
 365 AIOrder.AIOF_LOAD_FLAGS <- AIOrder.OF_LOAD_FLAGS
 366 AIOrder.AIOF_DEPOT_FLAGS <- AIOrder.OF_DEPOT_FLAGS
 367 AIOrder.AIOF_INVALID <- AIOrder.OF_INVALID
 368
 369 /* 1.9 adds a vehicle type parameter. */
 370 AIBridge._GetName <- AIBridge.GetName;
 371 AIBridge.GetName <- function(bridge_id)
 372 {
 373         return AIBridge._GetName(bridge_id, AIVehicle.VT_RAIL);
 374 }
 375
 376 /* 1.9 adds parent_group_id to CreateGroup function */
 377 AIGroup._CreateGroup <- AIGroup.CreateGroup;
 378 AIGroup.CreateGroup <- function(vehicle_type)
 379 {
 380         return AIGroup._CreateGroup(vehicle_type, AIGroup.GROUP_INVALID);
 381 }
 382
 383 /* 13 really checks RoadType against RoadType */
 384 AIRoad._HasRoadType <- AIRoad.HasRoadType;
 385 AIRoad.HasRoadType <- function(tile, road_type)
 386 {
 387         local list = AIRoadTypeList(AIRoad.GetRoadTramType(road_type));
 388         foreach (rt, _ in list) {
 389                 if (AIRoad._HasRoadType(tile, rt)) {
 390                         return true;
 391                 }
 392         }
 393         return false;
 394 }
 395
 396 /* 15 renames GetBridgeID */
 397 AIBridge.GetBridgeID <- AIBridge.GetBridgeType;