vehicle_sl.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 <https://www.gnu.org/licenses/old-licenses/gpl-2.0>.
 */

 
#include "../stdafx.h"
 
#include "saveload.h"
#include "compat/vehicle_sl_compat.h"
 
#include "../debug.h"
#include "../vehicle_func.h"
#include "../train.h"
#include "../roadveh.h"
#include "../ship.h"
#include "../aircraft.h"
#include "../timetable.h"
#include "../station_base.h"
#include "../effectvehicle_base.h"
#include "../company_base.h"
#include "../company_func.h"
#include "../disaster_vehicle.h"
#include "../economy_base.h"
 
#include "../safeguards.h"

void ConnectMultiheadedTrains()
{
  for (Train *v : Train::Iterate()) {
    v->other_multiheaded_part = nullptr;
  }
 
  for (Train *v : Train::Iterate()) {
    if (v->IsFrontEngine() || v->IsFreeWagon()) {
      /* Two ways to associate multiheaded parts to each other:
       * sequential-matching: Trains shall be arranged to look like <..>..<..>..<..>..
       * bracket-matching:    Free vehicle chains shall be arranged to look like ..<..<..>..<..>..>..
       *
       * Note: Old savegames might contain chains which do not comply with these rules, e.g.
       *   - the front and read parts have invalid orders
       *   - different engine types might be combined
       *   - there might be different amounts of front and rear parts.
       *
       * Note: The multiheaded parts need to be matched exactly like they are matched on the server, else desyncs will occur.
       *   This is why two matching strategies are needed.
       */
 
      bool sequential_matching = v->IsFrontEngine();
 
      for (Train *u = v; u != nullptr; u = u->GetNextVehicle()) {
        if (u->other_multiheaded_part != nullptr) continue; // we already linked this one
 
        if (u->IsMultiheaded()) {
          if (!u->IsEngine()) {
            /* we got a rear car without a front car. We will convert it to a front one */
            u->SetEngine();
            u->spritenum--;
          }
 
          /* Find a matching back part */
          EngineID eid = u->engine_type;
          Train *w;
          if (sequential_matching) {
            for (w = u->GetNextVehicle(); w != nullptr; w = w->GetNextVehicle()) {
              if (w->engine_type != eid || w->other_multiheaded_part != nullptr || !w->IsMultiheaded()) continue;
 
              /* we found a car to partner with this engine. Now we will make sure it face the right way */
              if (w->IsEngine()) {
                w->ClearEngine();
                w->spritenum++;
              }
              break;
            }
          } else {
            uint stack_pos = 0;
            for (w = u->GetNextVehicle(); w != nullptr; w = w->GetNextVehicle()) {
              if (w->engine_type != eid || w->other_multiheaded_part != nullptr || !w->IsMultiheaded()) continue;
 
              if (w->IsEngine()) {
                stack_pos++;
              } else {
                if (stack_pos == 0) break;
                stack_pos--;
              }
            }
          }
 
          if (w != nullptr) {
            w->other_multiheaded_part = u;
            u->other_multiheaded_part = w;
          } else {
            /* we got a front car and no rear cars. We will fake this one for forget that it should have been multiheaded */
            u->ClearMultiheaded();
          }
        }
      }
    }
  }
}

void ConvertOldMultiheadToNew()
{
  for (Train *t : Train::Iterate()) SetBit(t->subtype, 7); // indicates that it's the old format and needs to be converted in the next loop
 
  for (Train *t : Train::Iterate()) {
    if (HasBit(t->subtype, 7) && ((t->subtype & ~0x80) == 0 || (t->subtype & ~0x80) == 4)) {
      for (Train *u = t; u != nullptr; u = u->Next()) {
        const RailVehicleInfo *rvi = RailVehInfo(u->engine_type);
 
        ClrBit(u->subtype, 7);
        switch (u->subtype) {
          case 0: // TS_Front_Engine
            if (rvi->railveh_type == RailVehicleType::Multihead) u->SetMultiheaded();
            u->SetFrontEngine();
            u->SetEngine();
            break;
 
          case 1: // TS_Artic_Part
            u->subtype = 0;
            u->SetArticulatedPart();
            break;
 
          case 2: // TS_Not_First
            u->subtype = 0;
            if (rvi->railveh_type == RailVehicleType::Wagon) {
              /* normal wagon */
              u->SetWagon();
              break;
            }
            if (rvi->railveh_type == RailVehicleType::Multihead && rvi->image_index == u->spritenum - 1) {
              /* rear end of a multiheaded engine */
              u->SetMultiheaded();
              break;
            }
            if (rvi->railveh_type == RailVehicleType::Multihead) u->SetMultiheaded();
            u->SetEngine();
            break;
 
          case 4: // TS_Free_Car
            u->subtype = 0;
            u->SetWagon();
            u->SetFreeWagon();
            break;
          default: SlErrorCorrupt("Invalid train subtype");
        }
      }
    }
  }
}
 

void UpdateOldAircraft()
{
  /* set airport_flags to 0 for all airports just to be sure */
  for (Station *st : Station::Iterate()) {
    st->airport.blocks = {}; // reset airport
  }
 
  for (Aircraft *a : Aircraft::Iterate()) {
    /* airplane has another vehicle with subtype 4 (shadow), helicopter also has 3 (rotor)
     * skip those */
    if (a->IsNormalAircraft()) {
      /* airplane in terminal stopped doesn't hurt anyone, so goto next */
      if (a->vehstatus.Test(VehState::Stopped) && a->state == 0) {
        a->state = HANGAR;
        continue;
      }
 
      AircraftLeaveHangar(a, a->direction); // make airplane visible if it was in a depot for example
      a->vehstatus.Reset(VehState::Stopped); // make airplane moving
      UpdateAircraftCache(a);
      a->cur_speed = a->vcache.cached_max_speed; // so aircraft don't have zero speed while in air
      if (!a->current_order.IsType(OT_GOTO_STATION) && !a->current_order.IsType(OT_GOTO_DEPOT)) {
        /* reset current order so aircraft doesn't have invalid "station-only" order */
        a->current_order.MakeDummy();
      }
      a->state = FLYING;
      AircraftNextAirportPos_and_Order(a); // move it to the entry point of the airport
      GetNewVehiclePosResult gp = GetNewVehiclePos(a);
      a->tile = TileIndex{}; // aircraft in air is tile=0
 
      /* correct speed of helicopter-rotors */
      if (a->subtype == AIR_HELICOPTER) a->Next()->Next()->cur_speed = 32;
 
      /* set new position x,y,z */
      GetAircraftFlightLevelBounds(a, &a->z_pos, nullptr);
      SetAircraftPosition(a, gp.x, gp.y, GetAircraftFlightLevel(a));
    }
  }
 
  /* Clear aircraft from loading vehicles, if we bumped them into the air. */
  for (Station *st : Station::Iterate()) {
    for (auto iter = st->loading_vehicles.begin(); iter != st->loading_vehicles.end(); /* nothing */) {
      Vehicle *v = *iter;
      if (v->type == VehicleType::Aircraft && !v->current_order.IsType(OT_LOADING)) {
        iter = st->loading_vehicles.erase(iter);
        delete v->cargo_payment;
      } else {
        ++iter;
      }
    }
  }
}

static void CheckValidVehicles()
{
  size_t total_engines = Engine::GetPoolSize();
  VehicleTypeIndexArray<EngineID> first_engine = { EngineID::Invalid(), EngineID::Invalid(), EngineID::Invalid(), EngineID::Invalid() };
 
  for (const Engine *e : Engine::IterateType(VehicleType::Train)) { first_engine[VehicleType::Train] = e->index; break; }
  for (const Engine *e : Engine::IterateType(VehicleType::Road)) { first_engine[VehicleType::Road] = e->index; break; }
  for (const Engine *e : Engine::IterateType(VehicleType::Ship)) { first_engine[VehicleType::Ship] = e->index; break; }
  for (const Engine *e : Engine::IterateType(VehicleType::Aircraft)) { first_engine[VehicleType::Aircraft] = e->index; break; }
 
  for (Vehicle *v : Vehicle::Iterate()) {
    /* Test if engine types match */
    switch (v->type) {
      case VehicleType::Train:
      case VehicleType::Road:
      case VehicleType::Ship:
      case VehicleType::Aircraft:
        if (v->engine_type >= total_engines || v->type != v->GetEngine()->type) {
          v->engine_type = first_engine[v->type];
        }
        break;
 
      default:
        break;
    }
  }
}
 
extern uint8_t _age_cargo_skip_counter; // From misc_sl.cpp

void AfterLoadVehiclesPhase1(bool part_of_load)
{
  for (Vehicle *v : Vehicle::Iterate()) {
    /* Reinstate the previous pointer */
    if (v->Next() != nullptr) v->Next()->previous = v;
    if (v->NextShared() != nullptr) v->NextShared()->previous_shared = v;
 
    if (part_of_load) v->fill_percent_te_id = INVALID_TE_ID;
    v->first = nullptr;
    v->last = nullptr;
    if (v->IsGroundVehicle()) v->GetGroundVehicleCache()->first_engine = EngineID::Invalid();
  }
 
  /* AfterLoadVehicles may also be called in case of NewGRF reload, in this
   * case we may not convert orders again. */
  if (part_of_load) {
    /* Create shared vehicle chain for very old games (pre 5,2) and create
     * OrderList from shared vehicle chains. For this to work correctly, the
     * following conditions must be fulfilled:
     * a) both next_shared and previous_shared are not set for pre 5,2 games
     * b) both next_shared and previous_shared are set for later games
     */
    std::map<uint32_t, OrderList *> mapping;
 
    for (Vehicle *v : Vehicle::Iterate()) {
      if (v->orders != nullptr) {
        if (IsSavegameVersionBefore(SaveLoadVersion::OrderList)) { // Pre-105 didn't save an OrderList
          if (mapping[v->old_orders] == nullptr) {
            /* This adds the whole shared vehicle chain for case b */
 
            /* Creating an OrderList here is safe because the number of vehicles
             * allowed in these savegames matches the number of OrderLists. As
             * such each vehicle can get an OrderList and it will (still) fit. */
            assert(OrderList::CanAllocateItem());
            std::vector<Order> orders;
            for (const OldOrderSaveLoadItem *old_order = GetOldOrder(v->old_orders); old_order != nullptr; old_order = GetOldOrder(old_order->next)) {
              orders.push_back(std::move(old_order->order));
            }
            v->orders = mapping[v->old_orders] = OrderList::Create(std::move(orders), v);
          } else {
            v->orders = mapping[v->old_orders];
            /* For old games (case a) we must create the shared vehicle chain */
            if (IsSavegameVersionBefore(SaveLoadVersion::BigMap, 2)) {
              v->AddToShared(v->orders->GetFirstSharedVehicle());
            }
          }
        } else { // OrderList was saved as such, only recalculate not saved values
          if (v->PreviousShared() == nullptr) {
            v->orders->Initialize(v);
          }
        }
      }
    }
  }
 
  for (Vehicle *v : Vehicle::Iterate()) {
    /* Fill the first pointers. */
    if (v->Previous() == nullptr) {
      for (Vehicle *u = v; u != nullptr; u = u->Next()) {
        u->first = v;
      }
    }
 
    /* Fill the last pointers. */
    if (v->Next() == nullptr) {
      for (Vehicle *u = v; u != nullptr; u = u->Previous()) {
        u->last = v;
      }
    }
  }
 
  if (part_of_load) {
    if (IsSavegameVersionBefore(SaveLoadVersion::OrderList)) {
      /* Before 105 there was no order for shared orders, thus it messed up horribly */
      for (Vehicle *v : Vehicle::Iterate()) {
        if (v->First() != v || v->orders != nullptr || v->previous_shared != nullptr || v->next_shared == nullptr) continue;
 
        /* As above, allocating OrderList here is safe. */
        assert(OrderList::CanAllocateItem());
        v->orders = OrderList::Create();
        v->orders->first_shared = v;
        for (Vehicle *u = v; u != nullptr; u = u->next_shared) {
          u->orders = v->orders;
        }
      }
    }
 
    if (IsSavegameVersionBefore(SaveLoadVersion::UnifyGroundVehicles)) {
      /* The road vehicle subtype was converted to a flag. */
      for (RoadVehicle *rv : RoadVehicle::Iterate()) {
        if (rv->subtype == 0) {
          /* The road vehicle is at the front. */
          rv->SetFrontEngine();
        } else if (rv->subtype == 1) {
          /* The road vehicle is an articulated part. */
          rv->subtype = 0;
          rv->SetArticulatedPart();
        } else {
          SlErrorCorrupt("Invalid road vehicle subtype");
        }
      }
    }
 
    if (IsSavegameVersionBefore(SaveLoadVersion::DisallowRoadReconstruction)) {
      /* In some old savegames there might be some "crap" stored. */
      for (Vehicle *v : Vehicle::Iterate()) {
        if (!v->IsPrimaryVehicle() && v->type != VehicleType::Disaster) {
          v->current_order.Free();
          v->unitnumber = 0;
        }
      }
    }
 
    if (IsSavegameVersionBefore(SaveLoadVersion::NewGRFCustomCargoAging)) {
      /* Set the vehicle-local cargo age counter from the old global counter. */
      for (Vehicle *v : Vehicle::Iterate()) {
        v->cargo_age_counter = _age_cargo_skip_counter;
      }
    }
 
    if (IsSavegameVersionBefore(SaveLoadVersion::ServiceIntervalPercent)) {
      /* Set service interval flags */
      for (Vehicle *v : Vehicle::Iterate()) {
        if (!v->IsPrimaryVehicle()) continue;
 
        const Company *c = Company::Get(v->owner);
        int interval = CompanyServiceInterval(c, v->type);
 
        v->SetServiceIntervalIsCustom(v->GetServiceInterval() != interval);
        v->SetServiceIntervalIsPercent(c->settings.vehicle.servint_ispercent);
      }
    }
 
    if (IsSavegameVersionBefore(SaveLoadVersion::ShipRotation)) {
      /* Ship rotation added */
      for (Ship *s : Ship::Iterate()) {
        s->rotation = s->direction;
      }
    } else {
      for (Ship *s : Ship::Iterate()) {
        if (s->rotation == s->direction) continue;
        /* In case we are rotating on gameload, set the rotation position to
         * the current position, otherwise the applied workaround offset would
         * be with respect to 0,0.
         */
        s->rotation_x_pos = s->x_pos;
        s->rotation_y_pos = s->y_pos;
      }
    }
 
    if (IsSavegameVersionBefore(SaveLoadVersion::TimetableStartTicks)) {
      /* Convert timetable start from a date to an absolute tick in TimerGameTick::counter. */
      for (Vehicle *v : Vehicle::Iterate()) {
        /* If the start date is 0, the vehicle is not waiting to start and can be ignored. */
        if (v->timetable_start == 0) continue;
 
        v->timetable_start = GetStartTickFromDate(TimerGameEconomy::Date(v->timetable_start));
      }
    }
 
    if (IsSavegameVersionBefore(SaveLoadVersion::VehicleEconomyAge)) {
      /* Set vehicle economy age based on calendar age. */
      for (Vehicle *v : Vehicle::Iterate()) {
        v->economy_age = TimerGameEconomy::Date{v->age.base()};
      }
    }
  }
 
  CheckValidVehicles();
}

void AfterLoadVehiclesPhase2(bool part_of_load)
{
  for (Vehicle *v : Vehicle::Iterate()) {
    assert(v->First() != nullptr);
 
    v->trip_occupancy = CalcPercentVehicleFilled(v, nullptr);
 
    switch (v->type) {
      case VehicleType::Train: {
        Train *t = Train::From(v);
        if (t->IsFrontEngine() || t->IsFreeWagon()) {
          t->gcache.last_speed = t->cur_speed; // update displayed train speed
          t->ConsistChanged(CCF_SAVELOAD);
        }
        break;
      }
 
      case VehicleType::Road: {
        RoadVehicle *rv = RoadVehicle::From(v);
        if (rv->IsFrontEngine()) {
          rv->gcache.last_speed = rv->cur_speed; // update displayed road vehicle speed
 
          rv->roadtype = Engine::Get(rv->engine_type)->VehInfo<RoadVehicleInfo>().roadtype;
          rv->compatible_roadtypes = GetRoadTypeInfo(rv->roadtype)->powered_roadtypes;
          RoadTramType rtt = GetRoadTramType(rv->roadtype);
          for (RoadVehicle *u = rv; u != nullptr; u = u->Next()) {
            u->roadtype = rv->roadtype;
            u->compatible_roadtypes = rv->compatible_roadtypes;
            if (GetRoadType(u->tile, rtt) == INVALID_ROADTYPE) SlErrorCorrupt("Road vehicle on invalid road type");
          }
 
          RoadVehUpdateCache(rv);
          if (_settings_game.vehicle.roadveh_acceleration_model != AccelerationModel::Original) {
            rv->CargoChanged();
          }
        }
        break;
      }
 
      case VehicleType::Ship:
        Ship::From(v)->UpdateCache();
        break;
 
      default: break;
    }
  }
 
  /* Stop non-front engines */
  if (part_of_load && IsSavegameVersionBefore(SaveLoadVersion::SplitHQ)) {
    for (Vehicle *v : Vehicle::Iterate()) {
      if (v->type == VehicleType::Train) {
        Train *t = Train::From(v);
        if (!t->IsFrontEngine()) {
          if (t->IsEngine()) t->vehstatus.Set(VehState::Stopped);
          /* cur_speed is now relevant for non-front parts - nonzero breaks
           * moving-wagons-inside-depot- and autoreplace- code */
          t->cur_speed = 0;
        }
      }
      /* trains weren't stopping gradually in old OTTD versions (and TTO/TTD)
       * other vehicle types didn't have zero speed while stopped (even in 'recent' OTTD versions) */
      if (v->vehstatus.Test(VehState::Stopped) && (v->type != VehicleType::Train || IsSavegameVersionBefore(SaveLoadVersion::VehicleCurrencyStationChanges, 1))) {
        v->cur_speed = 0;
      }
    }
  }
 
  for (Vehicle *v : Vehicle::Iterate()) {
    switch (v->type) {
      case VehicleType::Road:
      case VehicleType::Train:
      case VehicleType::Ship:
        v->GetImage(v->direction, EngineImageType::OnMap, &v->sprite_cache.sprite_seq);
        break;
 
      case VehicleType::Aircraft:
        if (Aircraft::From(v)->IsNormalAircraft()) {
          v->GetImage(v->direction, EngineImageType::OnMap, &v->sprite_cache.sprite_seq);
 
          /* The aircraft's shadow will have the same image as the aircraft, but no colour */
          Vehicle *shadow = v->Next();
          if (shadow == nullptr) SlErrorCorrupt("Missing shadow for aircraft");
 
          shadow->sprite_cache.sprite_seq.CopyWithoutPalette(v->sprite_cache.sprite_seq);
 
          /* In the case of a helicopter we will update the rotor sprites */
          if (v->subtype == AIR_HELICOPTER) {
            Vehicle *rotor = shadow->Next();
            if (rotor == nullptr) SlErrorCorrupt("Missing rotor for helicopter");
 
            GetRotorImage(Aircraft::From(v), EngineImageType::OnMap, &rotor->sprite_cache.sprite_seq);
          }
 
          UpdateAircraftCache(Aircraft::From(v), true);
        }
        break;
 
      case VehicleType::Disaster: {
        auto *dv = DisasterVehicle::From(v);
        if (dv->subtype == ST_SMALL_UFO && dv->state != 0) {
          RoadVehicle *u = RoadVehicle::GetIfValid(v->dest_tile.base());
          if (u != nullptr && u->IsFrontEngine()) {
            /* Delete UFO targetting a vehicle which is already a target. */
            if (u->disaster_vehicle != VehicleID::Invalid() && u->disaster_vehicle != dv->index) {
              delete v;
              continue;
            } else {
              u->disaster_vehicle = dv->index;
            }
          }
        }
        break;
      }
 
      default: break;
    }
 
    if (part_of_load && v->unitnumber != 0) {
      Company::Get(v->owner)->freeunits[v->type].UseID(v->unitnumber);
    }
 
    v->UpdateDeltaXY();
    v->coord.left = INVALID_COORD;
    v->sprite_cache.old_coord.left = INVALID_COORD;
    if (v->type != VehicleType::Effect) v->UpdatePosition();
    v->UpdateViewport(false);
  }
}
 
bool TrainController(Train *v, Vehicle *nomove, bool reverse = true); // From train_cmd.cpp
void ReverseTrainSwapVehicles(Train *v);

void FixupTrainLengths()
{
  /* Vehicle center was moved from 4 units behind the front to half the length
   * behind the front. Move vehicles so they end up on the same spot. */
  for (Vehicle *v : Vehicle::Iterate()) {
    if (v->type == VehicleType::Train && v->IsPrimaryVehicle()) {
      /* The vehicle center is now more to the front depending on vehicle length,
       * so we need to move all vehicles forward to cover the difference to the
       * old center, otherwise wagon spacing in trains would be broken upon load. */
      for (Train *u = Train::From(v); u != nullptr; u = u->Next()) {
        if (u->track == Track::Depot || u->vehstatus.Test(VehState::Crashed)) continue;
 
        Train *next = u->Next();
 
        /* Try to pull the vehicle half its length forward. */
        int diff = (VEHICLE_LENGTH - u->gcache.cached_veh_length) / 2;
        int done;
        for (done = 0; done < diff; done++) {
          if (!TrainController(u, next, false)) break;
        }
 
        if (next != nullptr && done < diff && u->IsFrontEngine()) {
          /* Pulling the front vehicle forwards failed, we either encountered a dead-end
           * or a red signal. To fix this, we try to move the whole train the required
           * space backwards and re-do the fix up of the front vehicle. */
 
          /* Ignore any signals when backtracking. */
          TrainForceProceeding old_tfp = u->force_proceed;
          u->force_proceed = TFP_SIGNAL;
 
          /* Swap start<>end, start+1<>end-1, ... */
          ReverseTrainSwapVehicles(u);
 
          /* We moved the first vehicle which is now the last. Move it back to the
           * original position as we will fix up the last vehicle later in the loop. */
          for (int i = 0; i < done; i++) TrainController(u->Last(), nullptr);
 
          /* Move the train backwards to get space for the first vehicle. As the stopping
           * distance from a line end is rounded up, move the train one unit more to cater
           * for front vehicles with odd lengths. */
          int moved;
          for (moved = 0; moved < diff + 1; moved++) {
            if (!TrainController(u, nullptr, false)) break;
          }
 
          /* Swap start<>end, start+1<>end-1, ... again. */
          ReverseTrainSwapVehicles(u);
 
          u->force_proceed = old_tfp;
 
          /* Tracks are too short to fix the train length. The player has to fix the
           * train in a depot. Bail out so we don't damage the vehicle chain any more. */
          if (moved < diff + 1) break;
 
          /* Re-do the correction for the first vehicle. */
          for (done = 0; done < diff; done++) TrainController(u, next, false);
 
          /* We moved one unit more backwards than needed for even-length front vehicles,
           * try to move that unit forward again. We don't care if this step fails. */
          TrainController(u, nullptr, false);
        }
 
        /* If the next wagon is still in a depot, check if it shouldn't be outside already. */
        if (next != nullptr && next->track == Track::Depot) {
          int d = TicksToLeaveDepot(u);
          if (d <= 0) {
            /* Next vehicle should have left the depot already, show it and pull forward. */
            next->vehstatus.Reset(VehState::Hidden);
            next->track = GetRailDepotTrack(next->tile);
            for (int i = 0; i >= d; i--) TrainController(next, nullptr);
          }
        }
      }
 
      /* Update all cached properties after moving the vehicle chain around. */
      Train::From(v)->ConsistChanged(CCF_TRACK);
    }
  }
}
 
static uint8_t  _cargo_periods;
static StationID _cargo_source;
static TileIndex _cargo_source_xy;
static uint16_t _cargo_count;
static uint16_t _cargo_paid_for;
static Money  _cargo_feeder_share;
 
class SlVehicleCommon : public DefaultSaveLoadHandler<SlVehicleCommon, Vehicle> {
public:
  static inline const SaveLoad description[] = {
    SaveLoad::Variable<VarFileType::U8>("subtype", SLE_OBJECT_ADDRESS(Vehicle, subtype)),
 
    SaveLoad::Reference<SLRefType::OldVehicle>("next", SLE_OBJECT_ADDRESS(Vehicle, next)),
    SaveLoad::Variable<VarFileType::StringID>("name", SLE_OBJECT_ADDRESS(Vehicle, name), SaveLoadVersion::MinVersion, SaveLoadVersion::ReplaceCustomNameArray),
    SaveLoad::String("name", SLE_OBJECT_ADDRESS(Vehicle, name), StringValidationSetting::AllowControlCode, SaveLoadVersion::ReplaceCustomNameArray),
    SaveLoad::Variable<VarFileType::U8>("unitnumber", SLE_OBJECT_ADDRESS(Vehicle, unitnumber), SaveLoadVersion::MinVersion, SaveLoadVersion::LargerUnitNumber),
    SaveLoad::Variable<VarFileType::U16>("unitnumber", SLE_OBJECT_ADDRESS(Vehicle, unitnumber), SaveLoadVersion::LargerUnitNumber),
    SaveLoad::Variable<VarFileType::U8>("owner", SLE_OBJECT_ADDRESS(Vehicle, owner)),
    SaveLoad::Variable<VarFileType::U16>("tile", SLE_OBJECT_ADDRESS(Vehicle, tile), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U32>("tile", SLE_OBJECT_ADDRESS(Vehicle, tile), SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U16>("dest_tile", SLE_OBJECT_ADDRESS(Vehicle, dest_tile), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U32>("dest_tile", SLE_OBJECT_ADDRESS(Vehicle, dest_tile), SaveLoadVersion::MultipleRoadStops),
 
    SaveLoad::Variable<VarFileType::U16>("x_pos", SLE_OBJECT_ADDRESS(Vehicle, x_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U32>("x_pos", SLE_OBJECT_ADDRESS(Vehicle, x_pos), SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U16>("y_pos", SLE_OBJECT_ADDRESS(Vehicle, y_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U32>("y_pos", SLE_OBJECT_ADDRESS(Vehicle, y_pos), SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U8>("z_pos", SLE_OBJECT_ADDRESS(Vehicle, z_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::VehicleCentreAndZPos),
    SaveLoad::Variable<VarFileType::I32>("z_pos", SLE_OBJECT_ADDRESS(Vehicle, z_pos), SaveLoadVersion::VehicleCentreAndZPos),
    SaveLoad::Variable<VarFileType::U8>("direction", SLE_OBJECT_ADDRESS(Vehicle, direction)),
 
    SaveLoad::Variable<VarFileType::U8>("spritenum", SLE_OBJECT_ADDRESS(Vehicle, spritenum)),
    SaveLoad::Variable<VarFileType::U16>("engine_type", SLE_OBJECT_ADDRESS(Vehicle, engine_type)),
    SaveLoad::Variable<VarFileType::U16>("cur_speed", SLE_OBJECT_ADDRESS(Vehicle, cur_speed)),
    SaveLoad::Variable<VarFileType::U8>("subspeed", SLE_OBJECT_ADDRESS(Vehicle, subspeed)),
    SaveLoad::Variable<VarFileType::U8>("acceleration", SLE_OBJECT_ADDRESS(Vehicle, acceleration)),
    SaveLoad::Variable<VarFileType::U32>("motion_counter", SLE_OBJECT_ADDRESS(Vehicle, motion_counter), SaveLoadVersion::VehMotionCounter),
    SaveLoad::Variable<VarFileType::U8>("progress", SLE_OBJECT_ADDRESS(Vehicle, progress)),
 
    SaveLoad::Variable<VarFileType::U8>("vehstatus", SLE_OBJECT_ADDRESS(Vehicle, vehstatus)),
    SaveLoad::Variable<VarFileType::U8>("last_station_visited", SLE_OBJECT_ADDRESS(Vehicle, last_station_visited), SaveLoadVersion::MinVersion, SaveLoadVersion::BigMap),
    SaveLoad::Variable<VarFileType::U16>("last_station_visited", SLE_OBJECT_ADDRESS(Vehicle, last_station_visited), SaveLoadVersion::BigMap),
    SaveLoad::Variable<VarFileType::U16>("last_loading_station", SLE_OBJECT_ADDRESS(Vehicle, last_loading_station), SaveLoadVersion::GoalProgressPlaneAcceleration),
 
    SaveLoad::Variable<VarFileType::U8>("cargo_type", SLE_OBJECT_ADDRESS(Vehicle, cargo_type)),
    SaveLoad::Variable<VarFileType::U8>("cargo_subtype", SLE_OBJECT_ADDRESS(Vehicle, cargo_subtype), SaveLoadVersion::LiveryRefit),
    SaveLoad::Variable<VarFileType::U8>("cargo_days", SLE_GLOBAL_ADDRESS(_cargo_periods), SaveLoadVersion::MinVersion, SaveLoadVersion::CargoPackets),
    SaveLoad::Variable<VarFileType::U8>("cargo_source", SLE_GLOBAL_ADDRESS(_cargo_source), SaveLoadVersion::MinVersion, SaveLoadVersion::LargerCargoSource),
    SaveLoad::Variable<VarFileType::U16>("cargo_source", SLE_GLOBAL_ADDRESS(_cargo_source), SaveLoadVersion::LargerCargoSource, SaveLoadVersion::CargoPackets),
    SaveLoad::Variable<VarFileType::U32>("cargo_source_xy", SLE_GLOBAL_ADDRESS(_cargo_source_xy), SaveLoadVersion::CargoSourceTile, SaveLoadVersion::CargoPackets),
    SaveLoad::Variable<VarFileType::U16>("cargo_cap", SLE_OBJECT_ADDRESS(Vehicle, cargo_cap)),
    SaveLoad::Variable<VarFileType::U16>("refit_cap", SLE_OBJECT_ADDRESS(Vehicle, refit_cap), SaveLoadVersion::GoalProgressPlaneAcceleration),
    SaveLoad::Variable<VarFileType::U16>("cargo_count", SLE_GLOBAL_ADDRESS(_cargo_count), SaveLoadVersion::MinVersion, SaveLoadVersion::CargoPackets),
    SaveLoad::ReferenceList<SLRefType::CargoPacket>("cargo.packets", SLE_OBJECT_ADDRESS(Vehicle, cargo.packets), SaveLoadVersion::CargoPackets),
    SaveLoad::Array<VarFileType::U32, to_underlying(VehicleCargoList::MoveToAction::End)>("cargo.action_counts", SLE_OBJECT_ADDRESS(Vehicle, cargo.action_counts), SaveLoadVersion::CargoReservation),
    SaveLoad::Variable<VarFileType::U16>("cargo_age_counter", SLE_OBJECT_ADDRESS(Vehicle, cargo_age_counter), SaveLoadVersion::NewGRFCustomCargoAging),
 
    SaveLoad::Variable<VarFileType::U8>("day_counter", SLE_OBJECT_ADDRESS(Vehicle, day_counter)),
    SaveLoad::Variable<VarFileType::U8>("tick_counter", SLE_OBJECT_ADDRESS(Vehicle, tick_counter)),
    SaveLoad::Variable<VarFileType::U8>("running_ticks", SLE_OBJECT_ADDRESS(Vehicle, running_ticks), SaveLoadVersion::FractionProfitRunningTicks),
 
    SaveLoad::Variable<VarFileType::U8>("cur_implicit_order_index", SLE_OBJECT_ADDRESS(Vehicle, cur_implicit_order_index)),
    SaveLoad::Variable<VarFileType::U8>("cur_real_order_index", SLE_OBJECT_ADDRESS(Vehicle, cur_real_order_index), SaveLoadVersion::TrackRealAndAutoOrders),
 
    /* This next line is for version 4 and prior compatibility.. it temporarily reads
    type and flags (which were both 4 bits) into type. Later on this is
    converted correctly */
    SaveLoad::Variable<VarFileType::U8>("current_order.type", SLE_OBJECT_ADDRESS(Vehicle, current_order.type), SaveLoadVersion::MinVersion, SaveLoadVersion::BigMap),
    SaveLoad::Variable<VarFileType::U8>("current_order.dest", SLE_OBJECT_ADDRESS(Vehicle, current_order.dest), SaveLoadVersion::MinVersion, SaveLoadVersion::BigMap),
 
    /* Orders for version 5 and on */
    SaveLoad::Variable<VarFileType::U8>("current_order.type", SLE_OBJECT_ADDRESS(Vehicle, current_order.type), SaveLoadVersion::BigMap),
    SaveLoad::Variable<VarFileType::U8>("current_order.flags", SLE_OBJECT_ADDRESS(Vehicle, current_order.flags), SaveLoadVersion::BigMap),
    SaveLoad::Variable<VarFileType::U16>("current_order.dest", SLE_OBJECT_ADDRESS(Vehicle, current_order.dest), SaveLoadVersion::BigMap),
 
    /* Refit in current order */
    SaveLoad::Variable<VarFileType::U8>("current_order.refit_cargo", SLE_OBJECT_ADDRESS(Vehicle, current_order.refit_cargo), SaveLoadVersion::RefitOrders),
 
    /* Timetable in current order */
    SaveLoad::Variable<VarFileType::U16>("current_order.wait_time", SLE_OBJECT_ADDRESS(Vehicle, current_order.wait_time), SaveLoadVersion::Timetables),
    SaveLoad::Variable<VarFileType::U16>("current_order.travel_time", SLE_OBJECT_ADDRESS(Vehicle, current_order.travel_time), SaveLoadVersion::Timetables),
    SaveLoad::Variable<VarFileType::U16>("current_order.max_speed", SLE_OBJECT_ADDRESS(Vehicle, current_order.max_speed), SaveLoadVersion::CurrentOrderMaxSpeed),
    SaveLoad::Variable<VarFileType::I32>("timetable_start", SLE_OBJECT_ADDRESS(Vehicle, timetable_start), SaveLoadVersion::TimetableStart, SaveLoadVersion::TimetableStartTicks),
    SaveLoad::Variable<VarFileType::U64>("timetable_start", SLE_OBJECT_ADDRESS(Vehicle, timetable_start), SaveLoadVersion::TimetableStartTicks),
 
    SaveLoad::Variable<VarFileType::U16>("orders", SLE_OBJECT_ADDRESS(Vehicle, old_orders), SaveLoadVersion::MinVersion, SaveLoadVersion::MoreCargoPackets),
    SaveLoad::Variable<VarFileType::U32>("orders", SLE_OBJECT_ADDRESS(Vehicle, old_orders), SaveLoadVersion::MoreCargoPackets, SaveLoadVersion::OrderList),
    SaveLoad::Reference<SLRefType::OrderList>("orders", SLE_OBJECT_ADDRESS(Vehicle, orders), SaveLoadVersion::OrderList),
 
    SaveLoad::Variable<VarFileType::U16>("age", SLE_OBJECT_ADDRESS(Vehicle, age), SaveLoadVersion::MinVersion, SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::I32>("age", SLE_OBJECT_ADDRESS(Vehicle, age), SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::I32>("economy_age", SLE_OBJECT_ADDRESS(Vehicle, economy_age), SaveLoadVersion::VehicleEconomyAge),
    SaveLoad::Variable<VarFileType::U16>("max_age", SLE_OBJECT_ADDRESS(Vehicle, max_age), SaveLoadVersion::MinVersion, SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::I32>("max_age", SLE_OBJECT_ADDRESS(Vehicle, max_age), SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::U16>("date_of_last_service", SLE_OBJECT_ADDRESS(Vehicle, date_of_last_service), SaveLoadVersion::MinVersion, SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::I32>("date_of_last_service", SLE_OBJECT_ADDRESS(Vehicle, date_of_last_service), SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::I32>("date_of_last_service_newgrf", SLE_OBJECT_ADDRESS(Vehicle, date_of_last_service_newgrf), SaveLoadVersion::NewGRFLastService),
    SaveLoad::Variable<VarFileType::U16>("service_interval", SLE_OBJECT_ADDRESS(Vehicle, service_interval), SaveLoadVersion::MinVersion, SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::U32>("service_interval", SLE_OBJECT_ADDRESS(Vehicle, service_interval), SaveLoadVersion::BigDates, SaveLoadVersion::ServiceIntervalPercent),
    SaveLoad::Variable<VarFileType::U16>("service_interval", SLE_OBJECT_ADDRESS(Vehicle, service_interval), SaveLoadVersion::ServiceIntervalPercent),
    SaveLoad::Variable<VarFileType::U16>("reliability", SLE_OBJECT_ADDRESS(Vehicle, reliability)),
    SaveLoad::Variable<VarFileType::U16>("reliability_spd_dec", SLE_OBJECT_ADDRESS(Vehicle, reliability_spd_dec)),
    SaveLoad::Variable<VarFileType::U8>("breakdown_ctr", SLE_OBJECT_ADDRESS(Vehicle, breakdown_ctr)),
    SaveLoad::Variable<VarFileType::U8>("breakdown_delay", SLE_OBJECT_ADDRESS(Vehicle, breakdown_delay)),
    SaveLoad::Variable<VarFileType::U8>("breakdowns_since_last_service", SLE_OBJECT_ADDRESS(Vehicle, breakdowns_since_last_service)),
    SaveLoad::Variable<VarFileType::U8>("breakdown_chance", SLE_OBJECT_ADDRESS(Vehicle, breakdown_chance)),
    SaveLoad::Variable<VarFileType::U8>("build_year", SLE_OBJECT_ADDRESS(Vehicle, build_year), SaveLoadVersion::MinVersion, SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::I32>("build_year", SLE_OBJECT_ADDRESS(Vehicle, build_year), SaveLoadVersion::BigDates),
 
    SaveLoad::Variable<VarFileType::U16>("load_unload_ticks", SLE_OBJECT_ADDRESS(Vehicle, load_unload_ticks)),
    SaveLoad::Variable<VarFileType::U16>("cargo_paid_for", SLE_GLOBAL_ADDRESS(_cargo_paid_for), SaveLoadVersion::CountPaidForCargo),
    SaveLoad::Variable<VarFileType::U8>("vehicle_flags", SLE_OBJECT_ADDRESS(Vehicle, vehicle_flags), SaveLoadVersion::GradualLoading, SaveLoadVersion::ServiceIntervalPercent),
    SaveLoad::Variable<VarFileType::U16>("vehicle_flags", SLE_OBJECT_ADDRESS(Vehicle, vehicle_flags), SaveLoadVersion::ServiceIntervalPercent),
 
    SaveLoad::Variable<VarFileType::I32>("profit_this_year", SLE_OBJECT_ADDRESS(Vehicle, profit_this_year), SaveLoadVersion::MinVersion, SaveLoadVersion::UnifyCurrency),
    SaveLoad::Variable<VarFileType::I64>("profit_this_year", SLE_OBJECT_ADDRESS(Vehicle, profit_this_year), SaveLoadVersion::UnifyCurrency),
    SaveLoad::Variable<VarFileType::I32>("profit_last_year", SLE_OBJECT_ADDRESS(Vehicle, profit_last_year), SaveLoadVersion::MinVersion, SaveLoadVersion::UnifyCurrency),
    SaveLoad::Variable<VarFileType::I64>("profit_last_year", SLE_OBJECT_ADDRESS(Vehicle, profit_last_year), SaveLoadVersion::UnifyCurrency),
    SaveLoad::Variable<VarFileType::I32>("cargo_feeder_share", SLE_GLOBAL_ADDRESS(_cargo_feeder_share), SaveLoadVersion::FeederShare, SaveLoadVersion::UnifyCurrency),
    SaveLoad::Variable<VarFileType::I64>("cargo_feeder_share", SLE_GLOBAL_ADDRESS(_cargo_feeder_share), SaveLoadVersion::UnifyCurrency, SaveLoadVersion::CargoPackets),
    SaveLoad::Variable<VarFileType::I32>("value", SLE_OBJECT_ADDRESS(Vehicle, value), SaveLoadVersion::MinVersion, SaveLoadVersion::UnifyCurrency),
    SaveLoad::Variable<VarFileType::I64>("value", SLE_OBJECT_ADDRESS(Vehicle, value), SaveLoadVersion::UnifyCurrency),
 
    SaveLoad::Variable<VarFileType::U8>("random_bits", SLE_OBJECT_ADDRESS(Vehicle, random_bits), SaveLoadVersion::VehicleCurrencyStationChanges, SaveLoadVersion::ExtendVehicleRandom),
    SaveLoad::Variable<VarFileType::U16>("random_bits", SLE_OBJECT_ADDRESS(Vehicle, random_bits), SaveLoadVersion::ExtendVehicleRandom),
    SaveLoad::Variable<VarFileType::U8>("waiting_triggers", SLE_OBJECT_ADDRESS(Vehicle, waiting_random_triggers), SaveLoadVersion::VehicleCurrencyStationChanges),
 
    SaveLoad::Reference<SLRefType::Vehicle>("next_shared", SLE_OBJECT_ADDRESS(Vehicle, next_shared), SaveLoadVersion::VehicleCurrencyStationChanges),
    SaveLoad::Variable<VarFileType::U16>("group_id", SLE_OBJECT_ADDRESS(Vehicle, group_id), SaveLoadVersion::VehicleGroups),
 
    SaveLoad::Variable<VarFileType::U32>("current_order_time", SLE_OBJECT_ADDRESS(Vehicle, current_order_time), SaveLoadVersion::Timetables, SaveLoadVersion::TimetableTicksType),
    SaveLoad::Variable<VarFileType::I32>("current_order_time", SLE_OBJECT_ADDRESS(Vehicle, current_order_time), SaveLoadVersion::TimetableTicksType),
    SaveLoad::Variable<VarFileType::U64>("last_loading_tick", SLE_OBJECT_ADDRESS(Vehicle, last_loading_tick), SaveLoadVersion::LastLoadingTick),
    SaveLoad::Variable<VarFileType::I32>("lateness_counter", SLE_OBJECT_ADDRESS(Vehicle, lateness_counter), SaveLoadVersion::Timetables),
 
    SaveLoad::Variable<VarFileType::U64>("depot_unbunching_last_departure", SLE_OBJECT_ADDRESS(Vehicle, depot_unbunching_last_departure), SaveLoadVersion::DepotUnbunching),
    SaveLoad::Variable<VarFileType::U64>("depot_unbunching_next_departure", SLE_OBJECT_ADDRESS(Vehicle, depot_unbunching_next_departure), SaveLoadVersion::DepotUnbunching),
    SaveLoad::Variable<VarFileType::I32>("round_trip_time", SLE_OBJECT_ADDRESS(Vehicle, round_trip_time), SaveLoadVersion::DepotUnbunching),
  };
 
  static inline const SaveLoadCompatTable compat_description = _vehicle_common_sl_compat;
 
  void Save(Vehicle *v) const override
  {
    SlObject(v, this->GetDescription());
  }
 
  void Load(Vehicle *v) const override
  {
    SlObject(v, this->GetLoadDescription());
  }
 
  void FixPointers(Vehicle *v) const override
  {
    SlObject(v, this->GetDescription());
  }
};
 
class SlVehicleTrain : public DefaultSaveLoadHandler<SlVehicleTrain, Vehicle> {
public:
  static inline const SaveLoad description[] = {
    SaveLoad::Struct<SlVehicleCommon>("common"),
    SaveLoad::Variable<VarFileType::U16>("crash_anim_pos", SLE_OBJECT_ADDRESS(Train, crash_anim_pos)),
    SaveLoad::Variable<VarFileType::U8>("force_proceed", SLE_OBJECT_ADDRESS(Train, force_proceed)),
    SaveLoad::Variable<VarFileType::U8>("track", SLE_OBJECT_ADDRESS(Train, track)),
 
    SaveLoad::Variable<VarFileType::U8>("flags", SLE_OBJECT_ADDRESS(Train, flags), SaveLoadVersion::VehicleCurrencyStationChanges, SaveLoadVersion::Yapp),
    SaveLoad::Variable<VarFileType::U16>("flags", SLE_OBJECT_ADDRESS(Train, flags), SaveLoadVersion::Yapp),
    SaveLoad::Variable<VarFileType::U16>("wait_counter", SLE_OBJECT_ADDRESS(Train, wait_counter), SaveLoadVersion::SplitLoadWaitCounters),
    SaveLoad::Variable<VarFileType::U16>("gv_flags", SLE_OBJECT_ADDRESS(Train, gv_flags), SaveLoadVersion::RvRealisticAcceleration),
  };
  static inline const SaveLoadCompatTable compat_description = _vehicle_train_sl_compat;
 
  void Save(Vehicle *v) const override
  {
    if (v->type != VehicleType::Train) return;
    SlObject(v, this->GetDescription());
  }
 
  void Load(Vehicle *v) const override
  {
    if (v->type != VehicleType::Train) return;
    SlObject(v, this->GetLoadDescription());
  }
 
  void FixPointers(Vehicle *v) const override
  {
    if (v->type != VehicleType::Train) return;
    SlObject(v, this->GetDescription());
  }
};
 
class SlVehicleRoadVehPath : public VectorSaveLoadHandler<SlVehicleRoadVehPath, RoadVehicle, RoadVehPathElement> {
public:
  static inline const SaveLoad description[] = {
    SaveLoad::Variable<VarFileType::U8>("trackdir", SLE_OBJECT_ADDRESS(RoadVehPathElement, trackdir)),
    SaveLoad::Variable<VarFileType::U32>("tile", SLE_OBJECT_ADDRESS(RoadVehPathElement, tile)),
  };
  static inline const SaveLoadCompatTable compat_description = {};
 
  std::vector<RoadVehPathElement> &GetVector(RoadVehicle *rv) const override { return rv->path; }
};
 
class SlVehicleRoadVeh : public DefaultSaveLoadHandler<SlVehicleRoadVeh, Vehicle> {
public:
  static inline std::vector<Trackdir> rv_path_td;
  static inline std::vector<TileIndex> rv_path_tile;
 
  static inline const SaveLoad description[] = {
    SaveLoad::Struct<SlVehicleCommon>("common"),
    SaveLoad::Variable<VarFileType::U8>("state", SLE_OBJECT_ADDRESS(RoadVehicle, state)),
    SaveLoad::Variable<VarFileType::U8>("frame", SLE_OBJECT_ADDRESS(RoadVehicle, frame)),
    SaveLoad::Variable<VarFileType::U16>("blocked_ctr", SLE_OBJECT_ADDRESS(RoadVehicle, blocked_ctr)),
    SaveLoad::Variable<VarFileType::U8>("overtaking", SLE_OBJECT_ADDRESS(RoadVehicle, overtaking)),
    SaveLoad::Variable<VarFileType::U8>("overtaking_ctr", SLE_OBJECT_ADDRESS(RoadVehicle, overtaking_ctr)),
    SaveLoad::Variable<VarFileType::U16>("crashed_ctr", SLE_OBJECT_ADDRESS(RoadVehicle, crashed_ctr)),
    SaveLoad::Variable<VarFileType::U8>("reverse_ctr", SLE_OBJECT_ADDRESS(RoadVehicle, reverse_ctr)),
    SaveLoad::Vector<VarFileType::U8>("path.td", SLE_GLOBAL_ADDRESS(rv_path_td), SaveLoadVersion::RoadvehPathCache, SaveLoadVersion::PathCacheFormat),
    SaveLoad::Vector<VarFileType::U32>("path.tile", SLE_GLOBAL_ADDRESS(rv_path_tile), SaveLoadVersion::RoadvehPathCache, SaveLoadVersion::PathCacheFormat),
    SaveLoad::StructList<SlVehicleRoadVehPath>("path", SaveLoadVersion::PathCacheFormat),
    SaveLoad::Variable<VarFileType::U16>("gv_flags", SLE_OBJECT_ADDRESS(RoadVehicle, gv_flags), SaveLoadVersion::RvRealisticAcceleration),
  };
  static inline const SaveLoadCompatTable compat_description = _vehicle_roadveh_sl_compat;
 
  static void ConvertPathCache(RoadVehicle &rv)
  {
    /* The two vectors should be the same size, but if not we can just ignore the cache and not cause more issues. */
    if (rv_path_td.size() != rv_path_tile.size()) {
      Debug(Facility::Sl, Severity::Error, "Found RoadVehicle {} with invalid path cache, ignoring.", rv.index);
      return;
    }
    size_t n = std::min(rv_path_td.size(), rv_path_tile.size());
    if (n == 0) return;
 
    rv.path.reserve(n);
    for (size_t c = 0; c < n; ++c) {
      rv.path.emplace_back(rv_path_td[c], rv_path_tile[c]);
    }
 
    /* Path cache is now taken from back instead of front, so needs reversing. */
    std::reverse(std::begin(rv.path), std::end(rv.path));
  }
 
  void Save(Vehicle *v) const override
  {
    if (v->type != VehicleType::Road) return;
    SlObject(v, this->GetDescription());
  }
 
  void Load(Vehicle *v) const override
  {
    if (v->type != VehicleType::Road) return;
    SlObject(v, this->GetLoadDescription());
    if (!IsSavegameVersionBefore(SaveLoadVersion::RoadvehPathCache) && IsSavegameVersionBefore(SaveLoadVersion::PathCacheFormat)) {
      ConvertPathCache(*static_cast<RoadVehicle *>(v));
    }
  }
 
  void FixPointers(Vehicle *v) const override
  {
    if (v->type != VehicleType::Road) return;
    SlObject(v, this->GetDescription());
  }
};
 
class SlVehicleShipPath : public VectorSaveLoadHandler<SlVehicleShipPath, Ship, ShipPathElement> {
public:
  static inline const SaveLoad description[] = {
    SaveLoad::Variable<VarFileType::U8>("trackdir", SLE_OBJECT_ADDRESS(ShipPathElement, trackdir)),
  };
  static inline const SaveLoadCompatTable compat_description = {};
 
  std::vector<ShipPathElement> &GetVector(Ship *s) const override { return s->path; }
};
 
class SlVehicleShip : public DefaultSaveLoadHandler<SlVehicleShip, Vehicle> {
public:
  static inline std::vector<Trackdir> ship_path_td;
 
  static inline const SaveLoad description[] = {
    SaveLoad::Struct<SlVehicleCommon>("common"),
    SaveLoad::Variable<VarFileType::U8>("state", SLE_OBJECT_ADDRESS(Ship, state)),
    SaveLoad::Vector<VarFileType::U8>("path", SLE_GLOBAL_ADDRESS(ship_path_td), SaveLoadVersion::ShipPathCache, SaveLoadVersion::PathCacheFormat),
    SaveLoad::StructList<SlVehicleShipPath>("path", SaveLoadVersion::PathCacheFormat),
    SaveLoad::Variable<VarFileType::U8>("rotation", SLE_OBJECT_ADDRESS(Ship, rotation), SaveLoadVersion::ShipRotation),
    SaveLoad::Variable<VarFileType::U8>("flags", SLE_OBJECT_ADDRESS(Ship, flags)),
  };
  static inline const SaveLoadCompatTable compat_description = _vehicle_ship_sl_compat;
 
  void Save(Vehicle *v) const override
  {
    if (v->type != VehicleType::Ship) return;
    SlObject(v, this->GetDescription());
  }
 
  void Load(Vehicle *v) const override
  {
    if (v->type != VehicleType::Ship) return;
    SlObject(v, this->GetLoadDescription());
 
    if (IsSavegameVersionBefore(SaveLoadVersion::PathCacheFormat)) {
      /* Path cache is now taken from back instead of front, so needs reversing. */
      Ship *s = static_cast<Ship *>(v);
      std::transform(std::rbegin(ship_path_td), std::rend(ship_path_td), std::back_inserter(s->path), [](Trackdir trackdir) { return trackdir; });
    }
  }
 
  void FixPointers(Vehicle *v) const override
  {
    if (v->type != VehicleType::Ship) return;
    SlObject(v, this->GetDescription());
  }
};
 
class SlVehicleAircraft : public DefaultSaveLoadHandler<SlVehicleAircraft, Vehicle> {
public:
  static inline const SaveLoad description[] = {
    SaveLoad::Struct<SlVehicleCommon>("common"),
    SaveLoad::Variable<VarFileType::U16>("crashed_counter", SLE_OBJECT_ADDRESS(Aircraft, crashed_counter)),
    SaveLoad::Variable<VarFileType::U8>("pos", SLE_OBJECT_ADDRESS(Aircraft, pos)),
 
    SaveLoad::Variable<VarFileType::U8>("targetairport", SLE_OBJECT_ADDRESS(Aircraft, targetairport), SaveLoadVersion::MinVersion, SaveLoadVersion::BigMap),
    SaveLoad::Variable<VarFileType::U16>("targetairport", SLE_OBJECT_ADDRESS(Aircraft, targetairport), SaveLoadVersion::BigMap),
 
    SaveLoad::Variable<VarFileType::U8>("state", SLE_OBJECT_ADDRESS(Aircraft, state)),
 
    SaveLoad::Variable<VarFileType::U8>("previous_pos", SLE_OBJECT_ADDRESS(Aircraft, previous_pos), SaveLoadVersion::VehicleCurrencyStationChanges),
    SaveLoad::Variable<VarFileType::U8>("last_direction", SLE_OBJECT_ADDRESS(Aircraft, last_direction), SaveLoadVersion::VehicleCurrencyStationChanges),
    SaveLoad::Variable<VarFileType::U8>("number_consecutive_turns", SLE_OBJECT_ADDRESS(Aircraft, number_consecutive_turns), SaveLoadVersion::VehicleCurrencyStationChanges),
 
    SaveLoad::Variable<VarFileType::U8>("turn_counter", SLE_OBJECT_ADDRESS(Aircraft, turn_counter), SaveLoadVersion::SplitLoadWaitCounters),
    SaveLoad::Variable<VarFileType::U8>("flags", SLE_OBJECT_ADDRESS(Aircraft, flags), SaveLoadVersion::NewGRFAircraftRange),
  };
  static inline const SaveLoadCompatTable compat_description = _vehicle_aircraft_sl_compat;
 
  void Save(Vehicle *v) const override
  {
    if (v->type != VehicleType::Aircraft) return;
    SlObject(v, this->GetDescription());
  }
 
  void Load(Vehicle *v) const override
  {
    if (v->type != VehicleType::Aircraft) return;
    SlObject(v, this->GetLoadDescription());
  }
 
  void FixPointers(Vehicle *v) const override
  {
    if (v->type != VehicleType::Aircraft) return;
    SlObject(v, this->GetDescription());
  }
};
 
class SlVehicleEffect : public DefaultSaveLoadHandler<SlVehicleEffect, Vehicle> {
public:
  static inline const SaveLoad description[] = {
    SaveLoad::Variable<VarFileType::U8>("subtype", SLE_OBJECT_ADDRESS(Vehicle, subtype)),
 
    SaveLoad::Variable<VarFileType::U16>("tile", SLE_OBJECT_ADDRESS(Vehicle, tile), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U32>("tile", SLE_OBJECT_ADDRESS(Vehicle, tile), SaveLoadVersion::MultipleRoadStops),
 
    SaveLoad::Variable<VarFileType::I16>("x_pos", SLE_OBJECT_ADDRESS(Vehicle, x_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::I32>("x_pos", SLE_OBJECT_ADDRESS(Vehicle, x_pos), SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::I16>("y_pos", SLE_OBJECT_ADDRESS(Vehicle, y_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::I32>("y_pos", SLE_OBJECT_ADDRESS(Vehicle, y_pos), SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U8>("z_pos", SLE_OBJECT_ADDRESS(Vehicle, z_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::VehicleCentreAndZPos),
    SaveLoad::Variable<VarFileType::I32>("z_pos", SLE_OBJECT_ADDRESS(Vehicle, z_pos), SaveLoadVersion::VehicleCentreAndZPos),
 
    SaveLoad::Variable<VarFileType::U16>("sprite_cache.sprite_seq.seq[0].sprite", SLE_OBJECT_ADDRESS(Vehicle, sprite_cache.sprite_seq.seq[0].sprite)),
    SaveLoad::Variable<VarFileType::U8>("progress", SLE_OBJECT_ADDRESS(Vehicle, progress)),
    SaveLoad::Variable<VarFileType::U8>("vehstatus", SLE_OBJECT_ADDRESS(Vehicle, vehstatus)),
 
    SaveLoad::Variable<VarFileType::U16>("animation_state", SLE_OBJECT_ADDRESS(EffectVehicle, animation_state)),
    SaveLoad::Variable<VarFileType::U8>("animation_substate", SLE_OBJECT_ADDRESS(EffectVehicle, animation_substate)),
 
    SaveLoad::Variable<VarFileType::U8>("spritenum", SLE_OBJECT_ADDRESS(Vehicle, spritenum), SaveLoadVersion::VehicleCurrencyStationChanges),
  };
  static inline const SaveLoadCompatTable compat_description = _vehicle_effect_sl_compat;
 
  void Save(Vehicle *v) const override
  {
    if (v->type != VehicleType::Effect) return;
    SlObject(v, this->GetDescription());
  }
 
  void Load(Vehicle *v) const override
  {
    if (v->type != VehicleType::Effect) return;
    SlObject(v, this->GetLoadDescription());
  }
 
  void FixPointers(Vehicle *v) const override
  {
    if (v->type != VehicleType::Effect) return;
    SlObject(v, this->GetDescription());
  }
};
 
class SlVehicleDisaster : public DefaultSaveLoadHandler<SlVehicleDisaster, Vehicle> {
public:
  static inline const SaveLoad description[] = {
    SaveLoad::Reference<SLRefType::OldVehicle>("next", SLE_OBJECT_ADDRESS(Vehicle, next)),
 
    SaveLoad::Variable<VarFileType::U8>("subtype", SLE_OBJECT_ADDRESS(Vehicle, subtype)),
    SaveLoad::Variable<VarFileType::U16>("tile", SLE_OBJECT_ADDRESS(Vehicle, tile), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U32>("tile", SLE_OBJECT_ADDRESS(Vehicle, tile), SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U16>("dest_tile", SLE_OBJECT_ADDRESS(Vehicle, dest_tile), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U32>("dest_tile", SLE_OBJECT_ADDRESS(Vehicle, dest_tile), SaveLoadVersion::MultipleRoadStops),
 
    SaveLoad::Variable<VarFileType::I16>("x_pos", SLE_OBJECT_ADDRESS(Vehicle, x_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::I32>("x_pos", SLE_OBJECT_ADDRESS(Vehicle, x_pos), SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::I16>("y_pos", SLE_OBJECT_ADDRESS(Vehicle, y_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::I32>("y_pos", SLE_OBJECT_ADDRESS(Vehicle, y_pos), SaveLoadVersion::MultipleRoadStops),
    SaveLoad::Variable<VarFileType::U8>("z_pos", SLE_OBJECT_ADDRESS(Vehicle, z_pos), SaveLoadVersion::MinVersion, SaveLoadVersion::VehicleCentreAndZPos),
    SaveLoad::Variable<VarFileType::I32>("z_pos", SLE_OBJECT_ADDRESS(Vehicle, z_pos), SaveLoadVersion::VehicleCentreAndZPos),
    SaveLoad::Variable<VarFileType::U8>("direction", SLE_OBJECT_ADDRESS(Vehicle, direction)),
 
    SaveLoad::Variable<VarFileType::U8>("owner", SLE_OBJECT_ADDRESS(Vehicle, owner)),
    SaveLoad::Variable<VarFileType::U8>("vehstatus", SLE_OBJECT_ADDRESS(Vehicle, vehstatus)),
    SaveLoad::Variable<VarFileType::U8>("current_order.dest", SLE_OBJECT_ADDRESS(DisasterVehicle, state), SaveLoadVersion::MinVersion, SaveLoadVersion::BigMap),
    SaveLoad::Variable<VarFileType::U16>("current_order.dest", SLE_OBJECT_ADDRESS(DisasterVehicle, state), SaveLoadVersion::BigMap, SaveLoadVersion::DisasterVehState),
    SaveLoad::Variable<VarFileType::U16>("state", SLE_OBJECT_ADDRESS(DisasterVehicle, state), SaveLoadVersion::DisasterVehState),
 
    SaveLoad::Variable<VarFileType::U16>("sprite_cache.sprite_seq.seq[0].sprite", SLE_OBJECT_ADDRESS(Vehicle, sprite_cache.sprite_seq.seq[0].sprite)),
    SaveLoad::Variable<VarFileType::U16>("age", SLE_OBJECT_ADDRESS(Vehicle, age), SaveLoadVersion::MinVersion, SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::I32>("age", SLE_OBJECT_ADDRESS(Vehicle, age), SaveLoadVersion::BigDates),
    SaveLoad::Variable<VarFileType::U8>("tick_counter", SLE_OBJECT_ADDRESS(Vehicle, tick_counter)),
 
    SaveLoad::Variable<VarFileType::U16>("image_override", SLE_OBJECT_ADDRESS(DisasterVehicle, image_override), SaveLoadVersion::MinVersion, SaveLoadVersion::LinkgraphLocationDisasterStore),
    SaveLoad::Variable<VarFileType::U32>("image_override", SLE_OBJECT_ADDRESS(DisasterVehicle, image_override), SaveLoadVersion::LinkgraphLocationDisasterStore),
    SaveLoad::Variable<VarFileType::U16>("big_ufo_destroyer_target", SLE_OBJECT_ADDRESS(DisasterVehicle, big_ufo_destroyer_target), SaveLoadVersion::MinVersion, SaveLoadVersion::LinkgraphLocationDisasterStore),
    SaveLoad::Variable<VarFileType::U32>("big_ufo_destroyer_target", SLE_OBJECT_ADDRESS(DisasterVehicle, big_ufo_destroyer_target), SaveLoadVersion::LinkgraphLocationDisasterStore),
    SaveLoad::Variable<VarFileType::U8>("flags", SLE_OBJECT_ADDRESS(DisasterVehicle, flags), SaveLoadVersion::MaxBridgeMapHeight),
  };
 
  static inline const SaveLoadCompatTable compat_description = _vehicle_disaster_sl_compat;
 
  void Save(Vehicle *v) const override
  {
    if (v->type != VehicleType::Disaster) return;
    SlObject(v, this->GetDescription());
  }
 
  void Load(Vehicle *v) const override
  {
    if (v->type != VehicleType::Disaster) return;
    SlObject(v, this->GetLoadDescription());
  }
 
  void FixPointers(Vehicle *v) const override
  {
    if (v->type != VehicleType::Disaster) return;
    SlObject(v, this->GetDescription());
  }
};
 
static const SaveLoad _vehicle_desc[] = {
  SaveLoad::SaveByte("type", SLE_OBJECT_ADDRESS(Vehicle, type)),
  SaveLoad::Struct<SlVehicleTrain>("train"),
  SaveLoad::Struct<SlVehicleRoadVeh>("roadveh"),
  SaveLoad::Struct<SlVehicleShip>("ship"),
  SaveLoad::Struct<SlVehicleAircraft>("aircraft"),
  SaveLoad::Struct<SlVehicleEffect>("effect"),
  SaveLoad::Struct<SlVehicleDisaster>("disaster"),
};
 
struct VEHSChunkHandler : ChunkHandler {
  VEHSChunkHandler() : ChunkHandler("VEHS", ChunkType::SparseTable) {}
 
  void Save() const override
  {
    SlTableHeader(_vehicle_desc);
 
    /* Write the vehicles */
    for (Vehicle *v : Vehicle::Iterate()) {
      SlSetArrayIndex(v->index);
      SlObject(v, _vehicle_desc);
    }
  }
 
  void Load() const override
  {
    const std::vector<SaveLoad> slt = SlCompatTableHeader(_vehicle_desc, _vehicle_sl_compat);
 
    int index;
 
    _cargo_count = 0;
 
    while ((index = SlIterateArray()) != -1) {
      Vehicle *v;
      VehicleType vtype = (VehicleType)SlReadByte();
 
      switch (vtype) {
        case VehicleType::Train: v = Train::CreateAtIndex(VehicleID(index)); break;
        case VehicleType::Road: v = RoadVehicle::CreateAtIndex(VehicleID(index)); break;
        case VehicleType::Ship: v = Ship::CreateAtIndex(VehicleID(index)); break;
        case VehicleType::Aircraft: v = Aircraft::CreateAtIndex(VehicleID(index)); break;
        case VehicleType::Effect: v = EffectVehicle::CreateAtIndex(VehicleID(index)); break;
        case VehicleType::Disaster: v = DisasterVehicle::CreateAtIndex(VehicleID(index)); break;
        case VehicleType::Invalid: // Savegame shouldn't contain invalid vehicles
        default: SlErrorCorrupt("Invalid vehicle type");
      }
 
      SlObject(v, slt);
 
      if (_cargo_count != 0 && IsCompanyBuildableVehicleType(v) && CargoPacket::CanAllocateItem()) {
        /* Don't construct the packet with station here, because that'll fail with old savegames */
        CargoPacket *cp = CargoPacket::Create(_cargo_count, _cargo_periods, _cargo_source, _cargo_source_xy, _cargo_feeder_share);
        v->cargo.Append(cp);
      }
 
      /* Old savegames used 'last_station_visited = 0xFF' */
      if (IsSavegameVersionBefore(SaveLoadVersion::BigMap) && v->last_station_visited == 0xFF) {
        v->last_station_visited = StationID::Invalid();
      }
 
      if (IsSavegameVersionBefore(SaveLoadVersion::GoalProgressPlaneAcceleration)) v->last_loading_station = StationID::Invalid();
 
      if (IsSavegameVersionBefore(SaveLoadVersion::BigMap)) {
        /* Convert the current_order.type (which is a mix of type and flags, because
         *  in those versions, they both were 4 bits big) to type and flags */
        v->current_order.flags = GB(v->current_order.type, 4, 4);
        v->current_order.type &= 0x0F;
      }
 
      /* Advanced vehicle lists got added */
      if (IsSavegameVersionBefore(SaveLoadVersion::VehicleGroups)) v->group_id = DEFAULT_GROUP;
    }
  }
 
  void FixPointers() const override
  {
    for (Vehicle *v : Vehicle::Iterate()) {
      SlObject(v, _vehicle_desc);
    }
  }
};
 
static const VEHSChunkHandler VEHS;
static const ChunkHandlerRef veh_chunk_handlers[] = {
  VEHS,
};
 
extern const ChunkHandlerTable _veh_chunk_handlers(veh_chunk_handlers);