articulated_vehicles.cpp

Go to the documentation of this file.

/*
 * This file is part of OpenTTD.
 * 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.
 * 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.
 * 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/>.
 */
 
#include "stdafx.h"
#include "train.h"
#include "roadveh.h"
#include "vehicle_func.h"
#include "engine_func.h"
#include "company_func.h"
#include "newgrf.h"
 
#include "table/strings.h"
 
#include "safeguards.h"
 
static const uint MAX_ARTICULATED_PARTS = 100; 
 
static EngineID GetNextArticulatedPart(uint index, EngineID front_type, Vehicle *front = nullptr, bool *mirrored = nullptr)
{
  assert(front == nullptr || front->engine_type == front_type);
 
  const Engine *front_engine = Engine::Get(front_type);
 
  uint16 callback = GetVehicleCallback(CBID_VEHICLE_ARTIC_ENGINE, index, 0, front_type, front);
  if (callback == CALLBACK_FAILED) return INVALID_ENGINE;
 
  if (front_engine->GetGRF()->grf_version < 8) {
    /* 8 bits, bit 7 for mirroring */
    callback = GB(callback, 0, 8);
    if (callback == 0xFF) return INVALID_ENGINE;
    if (mirrored != nullptr) *mirrored = HasBit(callback, 7);
    callback = GB(callback, 0, 7);
  } else {
    /* 15 bits, bit 14 for mirroring */
    if (callback == 0x7FFF) return INVALID_ENGINE;
    if (mirrored != nullptr) *mirrored = HasBit(callback, 14);
    callback = GB(callback, 0, 14);
  }
 
  return GetNewEngineID(front_engine->GetGRF(), front_engine->type, callback);
}
 
bool IsArticulatedEngine(EngineID engine_type)
{
  return HasBit(EngInfo(engine_type)->callback_mask, CBM_VEHICLE_ARTIC_ENGINE);
}
 
uint CountArticulatedParts(EngineID engine_type, bool purchase_window)
{
  if (!HasBit(EngInfo(engine_type)->callback_mask, CBM_VEHICLE_ARTIC_ENGINE)) return 0;
 
  /* If we can't allocate a vehicle now, we can't allocate it in the command
   * either, so it doesn't matter how many articulated parts there are. */
  if (!Vehicle::CanAllocateItem()) return 0;
 
  Vehicle *v = nullptr;
  if (!purchase_window) {
    v = new Vehicle();
    v->engine_type = engine_type;
    v->owner = _current_company;
  }
 
  uint i;
  for (i = 1; i < MAX_ARTICULATED_PARTS; i++) {
    if (GetNextArticulatedPart(i, engine_type, v) == INVALID_ENGINE) break;
  }
 
  delete v;
 
  return i - 1;
}
 
 
static inline uint16 GetVehicleDefaultCapacity(EngineID engine, CargoID *cargo_type)
{
  const Engine *e = Engine::Get(engine);
  CargoID cargo = (e->CanCarryCargo() ? e->GetDefaultCargoType() : (CargoID)CT_INVALID);
  if (cargo_type != nullptr) *cargo_type = cargo;
  if (cargo == CT_INVALID) return 0;
  return e->GetDisplayDefaultCapacity();
}
 
static inline CargoTypes GetAvailableVehicleCargoTypes(EngineID engine, bool include_initial_cargo_type)
{
  const Engine *e = Engine::Get(engine);
  if (!e->CanCarryCargo()) return 0;
 
  CargoTypes cargoes = e->info.refit_mask;
 
  if (include_initial_cargo_type) {
    SetBit(cargoes, e->GetDefaultCargoType());
  }
 
  return cargoes;
}
 
CargoArray GetCapacityOfArticulatedParts(EngineID engine)
{
  CargoArray capacity;
  const Engine *e = Engine::Get(engine);
 
  CargoID cargo_type;
  uint16 cargo_capacity = GetVehicleDefaultCapacity(engine, &cargo_type);
  if (cargo_type < NUM_CARGO) capacity[cargo_type] = cargo_capacity;
 
  if (!e->IsGroundVehicle()) return capacity;
 
  if (!HasBit(e->info.callback_mask, CBM_VEHICLE_ARTIC_ENGINE)) return capacity;
 
  for (uint i = 1; i < MAX_ARTICULATED_PARTS; i++) {
    EngineID artic_engine = GetNextArticulatedPart(i, engine);
    if (artic_engine == INVALID_ENGINE) break;
 
    cargo_capacity = GetVehicleDefaultCapacity(artic_engine, &cargo_type);
    if (cargo_type < NUM_CARGO) capacity[cargo_type] += cargo_capacity;
  }
 
  return capacity;
}
 
bool IsArticulatedVehicleRefittable(EngineID engine)
{
  if (IsEngineRefittable(engine)) return true;
 
  const Engine *e = Engine::Get(engine);
  if (!e->IsGroundVehicle()) return false;
 
  if (!HasBit(e->info.callback_mask, CBM_VEHICLE_ARTIC_ENGINE)) return false;
 
  for (uint i = 1; i < MAX_ARTICULATED_PARTS; i++) {
    EngineID artic_engine = GetNextArticulatedPart(i, engine);
    if (artic_engine == INVALID_ENGINE) break;
 
    if (IsEngineRefittable(artic_engine)) return true;
  }
 
  return false;
}
 
void GetArticulatedRefitMasks(EngineID engine, bool include_initial_cargo_type, CargoTypes *union_mask, CargoTypes *intersection_mask)
{
  const Engine *e = Engine::Get(engine);
  CargoTypes veh_cargoes = GetAvailableVehicleCargoTypes(engine, include_initial_cargo_type);
  *union_mask = veh_cargoes;
  *intersection_mask = (veh_cargoes != 0) ? veh_cargoes : ALL_CARGOTYPES;
 
  if (!e->IsGroundVehicle()) return;
  if (!HasBit(e->info.callback_mask, CBM_VEHICLE_ARTIC_ENGINE)) return;
 
  for (uint i = 1; i < MAX_ARTICULATED_PARTS; i++) {
    EngineID artic_engine = GetNextArticulatedPart(i, engine);
    if (artic_engine == INVALID_ENGINE) break;
 
    veh_cargoes = GetAvailableVehicleCargoTypes(artic_engine, include_initial_cargo_type);
    *union_mask |= veh_cargoes;
    if (veh_cargoes != 0) *intersection_mask &= veh_cargoes;
  }
}
 
CargoTypes GetUnionOfArticulatedRefitMasks(EngineID engine, bool include_initial_cargo_type)
{
  CargoTypes union_mask, intersection_mask;
  GetArticulatedRefitMasks(engine, include_initial_cargo_type, &union_mask, &intersection_mask);
  return union_mask;
}
 
CargoTypes GetIntersectionOfArticulatedRefitMasks(EngineID engine, bool include_initial_cargo_type)
{
  CargoTypes union_mask, intersection_mask;
  GetArticulatedRefitMasks(engine, include_initial_cargo_type, &union_mask, &intersection_mask);
  return intersection_mask;
}
 
 
bool IsArticulatedVehicleCarryingDifferentCargoes(const Vehicle *v, CargoID *cargo_type)
{
  CargoID first_cargo = CT_INVALID;
 
  do {
    if (v->cargo_type != CT_INVALID && v->GetEngine()->CanCarryCargo()) {
      if (first_cargo == CT_INVALID) first_cargo = v->cargo_type;
      if (first_cargo != v->cargo_type) {
        if (cargo_type != nullptr) *cargo_type = CT_INVALID;
        return true;
      }
    }
 
    v = v->HasArticulatedPart() ? v->GetNextArticulatedPart() : nullptr;
  } while (v != nullptr);
 
  if (cargo_type != nullptr) *cargo_type = first_cargo;
  return false;
}
 
void CheckConsistencyOfArticulatedVehicle(const Vehicle *v)
{
  const Engine *engine = v->GetEngine();
 
  CargoTypes purchase_refit_union, purchase_refit_intersection;
  GetArticulatedRefitMasks(v->engine_type, true, &purchase_refit_union, &purchase_refit_intersection);
  CargoArray purchase_default_capacity = GetCapacityOfArticulatedParts(v->engine_type);
 
  CargoTypes real_refit_union = 0;
  CargoTypes real_refit_intersection = ALL_CARGOTYPES;
  CargoArray real_default_capacity;
 
  do {
    CargoTypes refit_mask = GetAvailableVehicleCargoTypes(v->engine_type, true);
    real_refit_union |= refit_mask;
    if (refit_mask != 0) real_refit_intersection &= refit_mask;
 
    assert(v->cargo_type < NUM_CARGO);
    real_default_capacity[v->cargo_type] += v->cargo_cap;
 
    v = v->HasArticulatedPart() ? v->GetNextArticulatedPart() : nullptr;
  } while (v != nullptr);
 
  /* Check whether the vehicle carries more cargoes than expected */
  bool carries_more = false;
  for (CargoID cid = 0; cid < NUM_CARGO; cid++) {
    if (real_default_capacity[cid] != 0 && purchase_default_capacity[cid] == 0) {
      carries_more = true;
      break;
    }
  }
 
  /* show a warning once for each GRF after each game load */
  if (real_refit_union != purchase_refit_union || real_refit_intersection != purchase_refit_intersection || carries_more) {
    ShowNewGrfVehicleError(engine->index, STR_NEWGRF_BUGGY, STR_NEWGRF_BUGGY_ARTICULATED_CARGO, GBUG_VEH_REFIT, false);
  }
}
 
void AddArticulatedParts(Vehicle *first)
{
  VehicleType type = first->type;
  if (!HasBit(EngInfo(first->engine_type)->callback_mask, CBM_VEHICLE_ARTIC_ENGINE)) return;
 
  Vehicle *v = first;
  for (uint i = 1; i < MAX_ARTICULATED_PARTS; i++) {
    bool flip_image;
    EngineID engine_type = GetNextArticulatedPart(i, first->engine_type, first, &flip_image);
    if (engine_type == INVALID_ENGINE) return;
 
    /* In the (very rare) case the GRF reported wrong number of articulated parts
     * and we run out of available vehicles, bail out. */
    if (!Vehicle::CanAllocateItem()) return;
 
    GroundVehicleCache *gcache = v->GetGroundVehicleCache();
    gcache->first_engine = v->engine_type; // Needs to be set before first callback
 
    const Engine *e_artic = Engine::Get(engine_type);
    switch (type) {
      default: NOT_REACHED();
 
      case VEH_TRAIN: {
        Train *front = Train::From(first);
        Train *t = new Train();
        v->SetNext(t);
        v = t;
 
        t->subtype = 0;
        t->track = front->track;
        t->railtype = front->railtype;
 
        t->spritenum = e_artic->u.rail.image_index;
        if (e_artic->CanCarryCargo()) {
          t->cargo_type = e_artic->GetDefaultCargoType();
          t->cargo_cap = e_artic->u.rail.capacity;  // Callback 36 is called when the consist is finished
        } else {
          t->cargo_type = front->cargo_type; // Needed for livery selection
          t->cargo_cap = 0;
        }
        t->refit_cap = 0;
 
        t->SetArticulatedPart();
        break;
      }
 
      case VEH_ROAD: {
        RoadVehicle *front = RoadVehicle::From(first);
        RoadVehicle *rv = new RoadVehicle();
        v->SetNext(rv);
        v = rv;
 
        rv->subtype = 0;
        gcache->cached_veh_length = VEHICLE_LENGTH; // Callback is called when the consist is finished
        rv->state = RVSB_IN_DEPOT;
 
        rv->roadtype = front->roadtype;
        rv->compatible_roadtypes = front->compatible_roadtypes;
 
        rv->spritenum = e_artic->u.road.image_index;
        if (e_artic->CanCarryCargo()) {
          rv->cargo_type = e_artic->GetDefaultCargoType();
          rv->cargo_cap = e_artic->u.road.capacity;  // Callback 36 is called when the consist is finished
        } else {
          rv->cargo_type = front->cargo_type; // Needed for livery selection
          rv->cargo_cap = 0;
        }
        rv->refit_cap = 0;
 
        rv->SetArticulatedPart();
        break;
      }
    }
 
    /* get common values from first engine */
    v->direction = first->direction;
    v->owner = first->owner;
    v->tile = first->tile;
    v->x_pos = first->x_pos;
    v->y_pos = first->y_pos;
    v->z_pos = first->z_pos;
    v->date_of_last_service = first->date_of_last_service;
    v->build_year = first->build_year;
    v->vehstatus = first->vehstatus & ~VS_STOPPED;
 
    v->cargo_subtype = 0;
    v->max_age = 0;
    v->engine_type = engine_type;
    v->value = 0;
    v->sprite_cache.sprite_seq.Set(SPR_IMG_QUERY);
    v->random_bits = VehicleRandomBits();
 
    if (flip_image) v->spritenum++;
 
    v->UpdatePosition();
  }
}