# vehicle_sl.cpp

Go to the documentation of this file.

    00001 /* $Id$ */
    00002
    00003 /*
    00004  * This file is part of OpenTTD.
    00005  * 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.
    00006  * 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.
    00007  * 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/>.
    00008  */
    00009
    00012 #include "../stdafx.h"
    00013 #include "../vehicle_func.h"
    00014 #include "../train.h"
    00015 #include "../roadveh.h"
    00016 #include "../ship.h"
    00017 #include "../aircraft.h"
    00018 #include "../station_base.h"
    00019 #include "../effectvehicle_base.h"
    00020
    00021 #include "saveload.h"
    00022
    00023 #include <map>
    00024
    00029 void ConnectMultiheadedTrains()
    00030 {
    00031   Train *v;
    00032
    00033   FOR_ALL_TRAINS(v) {
    00034     v->other_multiheaded_part = NULL;
    00035   }
    00036
    00037   FOR_ALL_TRAINS(v) {
    00038     if (v->IsFrontEngine() || v->IsFreeWagon()) {
    00039       /* Two ways to associate multiheaded parts to each other:
    00040        * sequential-matching: Trains shall be arranged to look like <..>..<..>..<..>..
    00041        * bracket-matching:    Free vehicle chains shall be arranged to look like ..<..<..>..<..>..>..
    00042        *
    00043        * Note: Old savegames might contain chains which do not comply with these rules, e.g.
    00044        *   - the front and read parts have invalid orders
    00045        *   - different engine types might be combined
    00046        *   - there might be different amounts of front and rear parts.
    00047        *
    00048        * Note: The multiheaded parts need to be matched exactly like they are matched on the server, else desyncs will occur.
    00049        *   This is why two matching strategies are needed.
    00050        */
    00051
    00052       bool sequential_matching = v->IsFrontEngine();
    00053
    00054       for (Train *u = v; u != NULL; u = u->GetNextVehicle()) {
    00055         if (u->other_multiheaded_part != NULL) continue; // we already linked this one
    00056
    00057         if (u->IsMultiheaded()) {
    00058           if (!u->IsEngine()) {
    00059             /* we got a rear car without a front car. We will convert it to a front one */
    00060             u->SetEngine();
    00061             u->spritenum--;
    00062           }
    00063
    00064           /* Find a matching back part */
    00065           EngineID eid = u->engine_type;
    00066           Train *w;
    00067           if (sequential_matching) {
    00068             for (w = u->GetNextVehicle(); w != NULL; w = w->GetNextVehicle()) {
    00069               if (w->engine_type != eid || w->other_multiheaded_part != NULL || !w->IsMultiheaded()) continue;
    00070
    00071               /* we found a car to partner with this engine. Now we will make sure it face the right way */
    00072               if (w->IsEngine()) {
    00073                 w->ClearEngine();
    00074                 w->spritenum++;
    00075               }
    00076               break;
    00077             }
    00078           } else {
    00079             uint stack_pos = 0;
    00080             for (w = u->GetNextVehicle(); w != NULL; w = w->GetNextVehicle()) {
    00081               if (w->engine_type != eid || w->other_multiheaded_part != NULL || !w->IsMultiheaded()) continue;
    00082
    00083               if (w->IsEngine()) {
    00084                 stack_pos++;
    00085               } else {
    00086                 if (stack_pos == 0) break;
    00087                 stack_pos--;
    00088               }
    00089             }
    00090           }
    00091
    00092           if (w != NULL) {
    00093             w->other_multiheaded_part = u;
    00094             u->other_multiheaded_part = w;
    00095           } else {
    00096             /* we got a front car and no rear cars. We will fake this one for forget that it should have been multiheaded */
    00097             u->ClearMultiheaded();
    00098           }
    00099         }
    00100       }
    00101     }
    00102   }
    00103 }
    00104
    00109 void ConvertOldMultiheadToNew()
    00110 {
    00111   Train *t;
    00112   FOR_ALL_TRAINS(t) SetBit(t->subtype, 7); // indicates that it's the old format and needs to be converted in the next loop
    00113
    00114   FOR_ALL_TRAINS(t) {
    00115     if (HasBit(t->subtype, 7) && ((t->subtype & ~0x80) == 0 || (t->subtype & ~0x80) == 4)) {
    00116       for (Train *u = t; u != NULL; u = u->Next()) {
    00117         const RailVehicleInfo *rvi = RailVehInfo(u->engine_type);
    00118
    00119         ClrBit(u->subtype, 7);
    00120         switch (u->subtype) {
    00121           case 0: // TS_Front_Engine
    00122             if (rvi->railveh_type == RAILVEH_MULTIHEAD) u->SetMultiheaded();
    00123             u->SetFrontEngine();
    00124             u->SetEngine();
    00125             break;
    00126
    00127           case 1: // TS_Artic_Part
    00128             u->subtype = 0;
    00129             u->SetArticulatedPart();
    00130             break;
    00131
    00132           case 2: // TS_Not_First
    00133             u->subtype = 0;
    00134             if (rvi->railveh_type == RAILVEH_WAGON) {
    00135               /* normal wagon */
    00136               u->SetWagon();
    00137               break;
    00138             }
    00139             if (rvi->railveh_type == RAILVEH_MULTIHEAD && rvi->image_index == u->spritenum - 1) {
    00140               /* rear end of a multiheaded engine */
    00141               u->SetMultiheaded();
    00142               break;
    00143             }
    00144             if (rvi->railveh_type == RAILVEH_MULTIHEAD) u->SetMultiheaded();
    00145             u->SetEngine();
    00146             break;
    00147
    00148           case 4: // TS_Free_Car
    00149             u->subtype = 0;
    00150             u->SetWagon();
    00151             u->SetFreeWagon();
    00152             break;
    00153           default: SlErrorCorrupt("Invalid train subtype");
    00154         }
    00155       }
    00156     }
    00157   }
    00158 }
    00159
    00160
    00162 void UpdateOldAircraft()
    00163 {
    00164   /* set airport_flags to 0 for all airports just to be sure */
    00165   Station *st;
    00166   FOR_ALL_STATIONS(st) {
    00167     st->airport.flags = 0; // reset airport
    00168   }
    00169
    00170   Aircraft *a;
    00171   FOR_ALL_AIRCRAFT(a) {
    00172     /* airplane has another vehicle with subtype 4 (shadow), helicopter also has 3 (rotor)
    00173      * skip those */
    00174     if (a->IsNormalAircraft()) {
    00175       /* airplane in terminal stopped doesn't hurt anyone, so goto next */
    00176       if ((a->vehstatus & VS_STOPPED) && a->state == 0) {
    00177         a->state = HANGAR;
    00178         continue;
    00179       }
    00180
    00181       AircraftLeaveHangar(a, a->direction); // make airplane visible if it was in a depot for example
    00182       a->vehstatus &= ~VS_STOPPED; // make airplane moving
    00183       UpdateAircraftCache(a);
    00184       a->cur_speed = a->vcache.cached_max_speed; // so aircraft don't have zero speed while in air
    00185       if (!a->current_order.IsType(OT_GOTO_STATION) && !a->current_order.IsType(OT_GOTO_DEPOT)) {
    00186         /* reset current order so aircraft doesn't have invalid "station-only" order */
    00187         a->current_order.MakeDummy();
    00188       }
    00189       a->state = FLYING;
    00190       AircraftNextAirportPos_and_Order(a); // move it to the entry point of the airport
    00191       GetNewVehiclePosResult gp = GetNewVehiclePos(a);
    00192       a->tile = 0; // aircraft in air is tile=0
    00193
    00194       /* correct speed of helicopter-rotors */
    00195       if (a->subtype == AIR_HELICOPTER) a->Next()->Next()->cur_speed = 32;
    00196
    00197       /* set new position x,y,z */
    00198       SetAircraftPosition(a, gp.x, gp.y, GetAircraftFlyingAltitude(a));
    00199     }
    00200   }
    00201 }
    00202
    00210 static void CheckValidVehicles()
    00211 {
    00212   size_t total_engines = Engine::GetPoolSize();
    00213   EngineID first_engine[4] = { INVALID_ENGINE, INVALID_ENGINE, INVALID_ENGINE, INVALID_ENGINE };
    00214
    00215   Engine *e;
    00216   FOR_ALL_ENGINES_OF_TYPE(e, VEH_TRAIN) { first_engine[VEH_TRAIN] = e->index; break; }
    00217   FOR_ALL_ENGINES_OF_TYPE(e, VEH_ROAD) { first_engine[VEH_ROAD] = e->index; break; }
    00218   FOR_ALL_ENGINES_OF_TYPE(e, VEH_SHIP) { first_engine[VEH_SHIP] = e->index; break; }
    00219   FOR_ALL_ENGINES_OF_TYPE(e, VEH_AIRCRAFT) { first_engine[VEH_AIRCRAFT] = e->index; break; }
    00220
    00221   Vehicle *v;
    00222   FOR_ALL_VEHICLES(v) {
    00223     /* Test if engine types match */
    00224     switch (v->type) {
    00225       case VEH_TRAIN:
    00226       case VEH_ROAD:
    00227       case VEH_SHIP:
    00228       case VEH_AIRCRAFT:
    00229         if (v->engine_type >= total_engines || v->type != v->GetEngine()->type) {
    00230           v->engine_type = first_engine[v->type];
    00231         }
    00232         break;
    00233
    00234       default:
    00235         break;
    00236     }
    00237   }
    00238 }
    00239
    00240 extern byte _age_cargo_skip_counter; // From misc_sl.cpp
    00241
    00243 void AfterLoadVehicles(bool part_of_load)
    00244 {
    00245   Vehicle *v;
    00246
    00247   FOR_ALL_VEHICLES(v) {
    00248     /* Reinstate the previous pointer */
    00249     if (v->Next() != NULL) v->Next()->previous = v;
    00250     if (v->NextShared() != NULL) v->NextShared()->previous_shared = v;
    00251
    00252     if (part_of_load) v->fill_percent_te_id = INVALID_TE_ID;
    00253     v->first = NULL;
    00254     if (v->IsGroundVehicle()) v->GetGroundVehicleCache()->first_engine = INVALID_ENGINE;
    00255   }
    00256
    00257   /* AfterLoadVehicles may also be called in case of NewGRF reload, in this
    00258    * case we may not convert orders again. */
    00259   if (part_of_load) {
    00260     /* Create shared vehicle chain for very old games (pre 5,2) and create
    00261      * OrderList from shared vehicle chains. For this to work correctly, the
    00262      * following conditions must be fulfilled:
    00263      * a) both next_shared and previous_shared are not set for pre 5,2 games
    00264      * b) both next_shared and previous_shared are set for later games
    00265      */
    00266     std::map<Order*, OrderList*> mapping;
    00267
    00268     FOR_ALL_VEHICLES(v) {
    00269       if (v->orders.old != NULL) {
    00270         if (IsSavegameVersionBefore(105)) { // Pre-105 didn't save an OrderList
    00271           if (mapping[v->orders.old] == NULL) {
    00272             /* This adds the whole shared vehicle chain for case b */
    00273
    00274             /* Creating an OrderList here is safe because the number of vehicles
    00275              * allowed in these savegames matches the number of OrderLists. As
    00276              * such each vehicle can get an OrderList and it will (still) fit. */
    00277             assert(OrderList::CanAllocateItem());
    00278             v->orders.list = mapping[v->orders.old] = new OrderList(v->orders.old, v);
    00279           } else {
    00280             v->orders.list = mapping[v->orders.old];
    00281             /* For old games (case a) we must create the shared vehicle chain */
    00282             if (IsSavegameVersionBefore(5, 2)) {
    00283               v->AddToShared(v->orders.list->GetFirstSharedVehicle());
    00284             }
    00285           }
    00286         } else { // OrderList was saved as such, only recalculate not saved values
    00287           if (v->PreviousShared() == NULL) {
    00288             v->orders.list->Initialize(v->orders.list->first, v);
    00289           }
    00290         }
    00291       }
    00292     }
    00293   }
    00294
    00295   FOR_ALL_VEHICLES(v) {
    00296     /* Fill the first pointers */
    00297     if (v->Previous() == NULL) {
    00298       for (Vehicle *u = v; u != NULL; u = u->Next()) {
    00299         u->first = v;
    00300       }
    00301     }
    00302   }
    00303
    00304   if (part_of_load) {
    00305     if (IsSavegameVersionBefore(105)) {
    00306       /* Before 105 there was no order for shared orders, thus it messed up horribly */
    00307       FOR_ALL_VEHICLES(v) {
    00308         if (v->First() != v || v->orders.list != NULL || v->previous_shared != NULL || v->next_shared == NULL) continue;
    00309
    00310         /* As above, allocating OrderList here is safe. */
    00311         assert(OrderList::CanAllocateItem());
    00312         v->orders.list = new OrderList(NULL, v);
    00313         for (Vehicle *u = v; u != NULL; u = u->next_shared) {
    00314           u->orders.list = v->orders.list;
    00315         }
    00316       }
    00317     }
    00318
    00319     if (IsSavegameVersionBefore(157)) {
    00320       /* The road vehicle subtype was converted to a flag. */
    00321       RoadVehicle *rv;
    00322       FOR_ALL_ROADVEHICLES(rv) {
    00323         if (rv->subtype == 0) {
    00324           /* The road vehicle is at the front. */
    00325           rv->SetFrontEngine();
    00326         } else if (rv->subtype == 1) {
    00327           /* The road vehicle is an articulated part. */
    00328           rv->subtype = 0;
    00329           rv->SetArticulatedPart();
    00330         } else {
    00331           SlErrorCorrupt("Invalid road vehicle subtype");
    00332         }
    00333       }
    00334     }
    00335
    00336     if (IsSavegameVersionBefore(160)) {
    00337       /* In some old savegames there might be some "crap" stored. */
    00338       FOR_ALL_VEHICLES(v) {
    00339         if (!v->IsPrimaryVehicle() && v->type != VEH_DISASTER) {
    00340           v->current_order.Free();
    00341           v->unitnumber = 0;
    00342         }
    00343       }
    00344     }
    00345
    00346     if (IsSavegameVersionBefore(162)) {
    00347       /* Set the vehicle-local cargo age counter from the old global counter. */
    00348       FOR_ALL_VEHICLES(v) {
    00349         v->cargo_age_counter = _age_cargo_skip_counter;
    00350       }
    00351     }
    00352   }
    00353
    00354   CheckValidVehicles();
    00355
    00356   FOR_ALL_VEHICLES(v) {
    00357     assert(v->first != NULL);
    00358
    00359     switch (v->type) {
    00360       case VEH_TRAIN: {
    00361         Train *t = Train::From(v);
    00362         if (t->IsFrontEngine() || t->IsFreeWagon()) {
    00363           t->gcache.last_speed = t->cur_speed; // update displayed train speed
    00364           t->ConsistChanged(false);
    00365         }
    00366         break;
    00367       }
    00368
    00369       case VEH_ROAD: {
    00370         RoadVehicle *rv = RoadVehicle::From(v);
    00371         if (rv->IsFrontEngine()) {
    00372           rv->gcache.last_speed = rv->cur_speed; // update displayed road vehicle speed
    00373           RoadVehUpdateCache(rv);
    00374           if (_settings_game.vehicle.roadveh_acceleration_model != AM_ORIGINAL) {
    00375             rv->CargoChanged();
    00376           }
    00377         }
    00378         break;
    00379       }
    00380
    00381       case VEH_SHIP:
    00382         Ship::From(v)->UpdateCache();
    00383         break;
    00384
    00385       default: break;
    00386     }
    00387   }
    00388
    00389   /* Stop non-front engines */
    00390   if (part_of_load && IsSavegameVersionBefore(112)) {
    00391     FOR_ALL_VEHICLES(v) {
    00392       if (v->type == VEH_TRAIN) {
    00393         Train *t = Train::From(v);
    00394         if (!t->IsFrontEngine()) {
    00395           if (t->IsEngine()) t->vehstatus |= VS_STOPPED;
    00396           /* cur_speed is now relevant for non-front parts - nonzero breaks
    00397            * moving-wagons-inside-depot- and autoreplace- code */
    00398           t->cur_speed = 0;
    00399         }
    00400       }
    00401       /* trains weren't stopping gradually in old OTTD versions (and TTO/TTD)
    00402        * other vehicle types didn't have zero speed while stopped (even in 'recent' OTTD versions) */
    00403       if ((v->vehstatus & VS_STOPPED) && (v->type != VEH_TRAIN || IsSavegameVersionBefore(2, 1))) {
    00404         v->cur_speed = 0;
    00405       }
    00406     }
    00407   }
    00408
    00409   FOR_ALL_VEHICLES(v) {
    00410     switch (v->type) {
    00411       case VEH_ROAD: {
    00412         RoadVehicle *rv = RoadVehicle::From(v);
    00413         rv->roadtype = HasBit(EngInfo(v->First()->engine_type)->misc_flags, EF_ROAD_TRAM) ? ROADTYPE_TRAM : ROADTYPE_ROAD;
    00414         rv->compatible_roadtypes = RoadTypeToRoadTypes(rv->roadtype);
    00415         /* FALL THROUGH */
    00416       }
    00417
    00418       case VEH_TRAIN:
    00419       case VEH_SHIP:
    00420         v->cur_image = v->GetImage(v->direction, EIT_ON_MAP);
    00421         break;
    00422
    00423       case VEH_AIRCRAFT:
    00424         if (Aircraft::From(v)->IsNormalAircraft()) {
    00425           v->cur_image = v->GetImage(v->direction, EIT_ON_MAP);
    00426
    00427           /* The plane's shadow will have the same image as the plane */
    00428           Vehicle *shadow = v->Next();
    00429           shadow->cur_image = v->cur_image;
    00430
    00431           /* In the case of a helicopter we will update the rotor sprites */
    00432           if (v->subtype == AIR_HELICOPTER) {
    00433             Vehicle *rotor = shadow->Next();
    00434             rotor->cur_image = GetRotorImage(Aircraft::From(v), EIT_ON_MAP);
    00435           }
    00436
    00437           UpdateAircraftCache(Aircraft::From(v), true);
    00438         }
    00439         break;
    00440       default: break;
    00441     }
    00442
    00443     v->UpdateDeltaXY(v->direction);
    00444     v->coord.left = INVALID_COORD;
    00445     VehicleUpdatePosition(v);
    00446     VehicleUpdateViewport(v, false);
    00447   }
    00448 }
    00449
    00450 bool TrainController(Train *v, Vehicle *nomove, bool reverse = true); // From train_cmd.cpp
    00451 void ReverseTrainDirection(Train *v);
    00452 void ReverseTrainSwapVeh(Train *v, int l, int r);
    00453
    00455 void FixupTrainLengths()
    00456 {
    00457   /* Vehicle center was moved from 4 units behind the front to half the length
    00458    * behind the front. Move vehicles so they end up on the same spot. */
    00459   Vehicle *v;
    00460   FOR_ALL_VEHICLES(v) {
    00461     if (v->type == VEH_TRAIN && v->IsPrimaryVehicle()) {
    00462       /* The vehicle center is now more to the front depending on vehicle length,
    00463        * so we need to move all vehicles forward to cover the difference to the
    00464        * old center, otherwise wagon spacing in trains would be broken upon load. */
    00465       for (Train *u = Train::From(v); u != NULL; u = u->Next()) {
    00466         if (u->track == TRACK_BIT_DEPOT || (u->vehstatus & VS_CRASHED)) continue;
    00467
    00468         Train *next = u->Next();
    00469
    00470         /* Try to pull the vehicle half its length forward. */
    00471         int diff = (VEHICLE_LENGTH - u->gcache.cached_veh_length) / 2;
    00472         int done;
    00473         for (done = 0; done < diff; done++) {
    00474           if (!TrainController(u, next, false)) break;
    00475         }
    00476
    00477         if (next != NULL && done < diff && u->IsFrontEngine()) {
    00478           /* Pulling the front vehicle forwards failed, we either encountered a dead-end
    00479            * or a red signal. To fix this, we try to move the whole train the required
    00480            * space backwards and re-do the fix up of the front vehicle. */
    00481
    00482           /* Ignore any signals when backtracking. */
    00483           TrainForceProceeding old_tfp = u->force_proceed;
    00484           u->force_proceed = TFP_SIGNAL;
    00485
    00486           /* Swap start<>end, start+1<>end-1, ... */
    00487           int r = CountVehiclesInChain(u) - 1; // number of vehicles - 1
    00488           int l = 0;
    00489           do ReverseTrainSwapVeh(u, l++, r--); while (l <= r);
    00490
    00491           /* We moved the first vehicle which is now the last. Move it back to the
    00492            * original position as we will fix up the last vehicle later in the loop. */
    00493           for (int i = 0; i < done; i++) TrainController(u->Last(), NULL);
    00494
    00495           /* Move the train backwards to get space for the first vehicle. As the stopping
    00496            * distance from a line end is rounded up, move the train one unit more to cater
    00497            * for front vehicles with odd lengths. */
    00498           int moved;
    00499           for (moved = 0; moved < diff + 1; moved++) {
    00500             if (!TrainController(u, NULL, false)) break;
    00501           }
    00502
    00503           /* Swap start<>end, start+1<>end-1, ... again. */
    00504           r = CountVehiclesInChain(u) - 1; // number of vehicles - 1
    00505           l = 0;
    00506           do ReverseTrainSwapVeh(u, l++, r--); while (l <= r);
    00507
    00508           u->force_proceed = old_tfp;
    00509
    00510           /* Tracks are too short to fix the train length. The player has to fix the
    00511            * train in a depot. Bail out so we don't damage the vehicle chain any more. */
    00512           if (moved < diff + 1) break;
    00513
    00514           /* Re-do the correction for the first vehicle. */
    00515           for (done = 0; done < diff; done++) TrainController(u, next, false);
    00516
    00517           /* We moved one unit more backwards than needed for even-length front vehicles,
    00518            * try to move that unit forward again. We don't care if this step fails. */
    00519           TrainController(u, NULL, false);
    00520         }
    00521
    00522         /* If the next wagon is still in a depot, check if it shouldn't be outside already. */
    00523         if (next != NULL && next->track == TRACK_BIT_DEPOT) {
    00524           int d = TicksToLeaveDepot(u);
    00525           if (d <= 0) {
    00526             /* Next vehicle should have left the depot already, show it and pull forward. */
    00527             next->vehstatus &= ~VS_HIDDEN;
    00528             next->track = TrackToTrackBits(GetRailDepotTrack(next->tile));
    00529             for (int i = 0; i >= d; i--) TrainController(next, NULL);
    00530           }
    00531         }
    00532       }
    00533
    00534       /* Update all cached properties after moving the vehicle chain around. */
    00535       Train::From(v)->ConsistChanged(true);
    00536     }
    00537   }
    00538 }
    00539
    00540 static uint8  _cargo_days;
    00541 static uint16 _cargo_source;
    00542 static uint32 _cargo_source_xy;
    00543 static uint16 _cargo_count;
    00544 static uint16 _cargo_paid_for;
    00545 static Money  _cargo_feeder_share;
    00546 static uint32 _cargo_loaded_at_xy;
    00547
    00553 const SaveLoad *GetVehicleDescription(VehicleType vt)
    00554 {
    00556   static const SaveLoad _common_veh_desc[] = {
    00557          SLE_VAR(Vehicle, subtype,               SLE_UINT8),
    00558
    00559          SLE_REF(Vehicle, next,                  REF_VEHICLE_OLD),
    00560      SLE_CONDVAR(Vehicle, name,                  SLE_NAME,                     0,  83),
    00561      SLE_CONDSTR(Vehicle, name,                  SLE_STR | SLF_ALLOW_CONTROL, 0, 84, SL_MAX_VERSION),
    00562      SLE_CONDVAR(Vehicle, unitnumber,            SLE_FILE_U8  | SLE_VAR_U16,   0,   7),
    00563      SLE_CONDVAR(Vehicle, unitnumber,            SLE_UINT16,                   8, SL_MAX_VERSION),
    00564          SLE_VAR(Vehicle, owner,                 SLE_UINT8),
    00565      SLE_CONDVAR(Vehicle, tile,                  SLE_FILE_U16 | SLE_VAR_U32,   0,   5),
    00566      SLE_CONDVAR(Vehicle, tile,                  SLE_UINT32,                   6, SL_MAX_VERSION),
    00567      SLE_CONDVAR(Vehicle, dest_tile,             SLE_FILE_U16 | SLE_VAR_U32,   0,   5),
    00568      SLE_CONDVAR(Vehicle, dest_tile,             SLE_UINT32,                   6, SL_MAX_VERSION),
    00569
    00570      SLE_CONDVAR(Vehicle, x_pos,                 SLE_FILE_U16 | SLE_VAR_U32,   0,   5),
    00571      SLE_CONDVAR(Vehicle, x_pos,                 SLE_UINT32,                   6, SL_MAX_VERSION),
    00572      SLE_CONDVAR(Vehicle, y_pos,                 SLE_FILE_U16 | SLE_VAR_U32,   0,   5),
    00573      SLE_CONDVAR(Vehicle, y_pos,                 SLE_UINT32,                   6, SL_MAX_VERSION),
    00574      SLE_CONDVAR(Vehicle, z_pos,                 SLE_FILE_U8  | SLE_VAR_I32,   0, 163),
    00575      SLE_CONDVAR(Vehicle, z_pos,                 SLE_INT32,                  164, SL_MAX_VERSION),
    00576          SLE_VAR(Vehicle, direction,             SLE_UINT8),
    00577
    00578     SLE_CONDNULL(2,                                                            0,  57),
    00579          SLE_VAR(Vehicle, spritenum,             SLE_UINT8),
    00580     SLE_CONDNULL(5,                                                            0,  57),
    00581          SLE_VAR(Vehicle, engine_type,           SLE_UINT16),
    00582
    00583     SLE_CONDNULL(2,                                                            0,  151),
    00584          SLE_VAR(Vehicle, cur_speed,             SLE_UINT16),
    00585          SLE_VAR(Vehicle, subspeed,              SLE_UINT8),
    00586          SLE_VAR(Vehicle, acceleration,          SLE_UINT8),
    00587          SLE_VAR(Vehicle, progress,              SLE_UINT8),
    00588
    00589          SLE_VAR(Vehicle, vehstatus,             SLE_UINT8),
    00590      SLE_CONDVAR(Vehicle, last_station_visited,  SLE_FILE_U8  | SLE_VAR_U16,   0,   4),
    00591      SLE_CONDVAR(Vehicle, last_station_visited,  SLE_UINT16,                   5, SL_MAX_VERSION),
    00592      SLE_CONDVAR(Vehicle, last_loading_station,  SLE_UINT16,       SL_CAPACITIES, SL_MAX_VERSION),
    00593
    00594          SLE_VAR(Vehicle, cargo_type,            SLE_UINT8),
    00595      SLE_CONDVAR(Vehicle, cargo_subtype,         SLE_UINT8,                   35, SL_MAX_VERSION),
    00596     SLEG_CONDVAR(         _cargo_days,           SLE_UINT8,                    0,  67),
    00597     SLEG_CONDVAR(         _cargo_source,         SLE_FILE_U8  | SLE_VAR_U16,   0,   6),
    00598     SLEG_CONDVAR(         _cargo_source,         SLE_UINT16,                   7,  67),
    00599     SLEG_CONDVAR(         _cargo_source_xy,      SLE_UINT32,                  44,  67),
    00600          SLE_VAR(Vehicle, cargo_cap,             SLE_UINT16),
    00601      SLE_CONDVAR(Vehicle, refit_cap,             SLE_UINT16,       SL_CAPACITIES, SL_MAX_VERSION),
    00602     SLEG_CONDVAR(         _cargo_count,          SLE_UINT16,                   0,  67),
    00603      SLE_CONDLST(Vehicle, cargo.packets,         REF_CARGO_PACKET,            68, SL_MAX_VERSION),
    00604      SLE_CONDLST(Vehicle, cargo.reserved,        REF_CARGO_PACKET,SL_RESERVATION, SL_MAX_VERSION),
    00605      SLE_CONDVAR(Vehicle, cargo_age_counter,     SLE_UINT16,                 162, SL_MAX_VERSION),
    00606
    00607          SLE_VAR(Vehicle, day_counter,           SLE_UINT8),
    00608          SLE_VAR(Vehicle, tick_counter,          SLE_UINT8),
    00609      SLE_CONDVAR(Vehicle, running_ticks,         SLE_UINT8,                   88, SL_MAX_VERSION),
    00610
    00611          SLE_VAR(Vehicle, cur_implicit_order_index,  SLE_UINT8),
    00612      SLE_CONDVAR(Vehicle, cur_real_order_index,  SLE_UINT8,                  158, SL_MAX_VERSION),
    00613     /* num_orders is now part of OrderList and is not saved but counted */
    00614     SLE_CONDNULL(1,                                                            0, 104),
    00615
    00616     /* This next line is for version 4 and prior compatibility.. it temporarily reads
    00617      type and flags (which were both 4 bits) into type. Later on this is
    00618      converted correctly */
    00619      SLE_CONDVAR(Vehicle, current_order.type,    SLE_UINT8,                    0,   4),
    00620      SLE_CONDVAR(Vehicle, current_order.dest,    SLE_FILE_U8  | SLE_VAR_U16,   0,   4),
    00621
    00622     /* Orders for version 5 and on */
    00623      SLE_CONDVAR(Vehicle, current_order.type,    SLE_UINT8,                    5, SL_MAX_VERSION),
    00624      SLE_CONDVAR(Vehicle, current_order.flags,   SLE_UINT8,                    5, SL_MAX_VERSION),
    00625      SLE_CONDVAR(Vehicle, current_order.dest,    SLE_UINT16,                   5, SL_MAX_VERSION),
    00626
    00627     /* Refit in current order */
    00628      SLE_CONDVAR(Vehicle, current_order.refit_cargo,   SLE_UINT8,             36, SL_MAX_VERSION),
    00629      SLE_CONDVAR(Vehicle, current_order.refit_subtype, SLE_UINT8,             36, SL_MAX_VERSION),
    00630
    00631     /* Timetable in current order */
    00632      SLE_CONDVAR(Vehicle, current_order.wait_time,     SLE_UINT16,            67, SL_MAX_VERSION),
    00633      SLE_CONDVAR(Vehicle, current_order.travel_time,   SLE_UINT16,            67, SL_MAX_VERSION),
    00634      SLE_CONDVAR(Vehicle, current_order.max_speed,     SLE_UINT16,           174, SL_MAX_VERSION),
    00635      SLE_CONDVAR(Vehicle, timetable_start,       SLE_INT32,                  129, SL_MAX_VERSION),
    00636
    00637      SLE_CONDREF(Vehicle, orders,                REF_ORDER,                    0, 104),
    00638      SLE_CONDREF(Vehicle, orders,                REF_ORDERLIST,              105, SL_MAX_VERSION),
    00639
    00640      SLE_CONDVAR(Vehicle, age,                   SLE_FILE_U16 | SLE_VAR_I32,   0,  30),
    00641      SLE_CONDVAR(Vehicle, age,                   SLE_INT32,                   31, SL_MAX_VERSION),
    00642      SLE_CONDVAR(Vehicle, max_age,               SLE_FILE_U16 | SLE_VAR_I32,   0,  30),
    00643      SLE_CONDVAR(Vehicle, max_age,               SLE_INT32,                   31, SL_MAX_VERSION),
    00644      SLE_CONDVAR(Vehicle, date_of_last_service,  SLE_FILE_U16 | SLE_VAR_I32,   0,  30),
    00645      SLE_CONDVAR(Vehicle, date_of_last_service,  SLE_INT32,                   31, SL_MAX_VERSION),
    00646      SLE_CONDVAR(Vehicle, service_interval,      SLE_FILE_U16 | SLE_VAR_I32,   0,  30),
    00647      SLE_CONDVAR(Vehicle, service_interval,      SLE_INT32,                   31, SL_MAX_VERSION),
    00648          SLE_VAR(Vehicle, reliability,           SLE_UINT16),
    00649          SLE_VAR(Vehicle, reliability_spd_dec,   SLE_UINT16),
    00650          SLE_VAR(Vehicle, breakdown_ctr,         SLE_UINT8),
    00651          SLE_VAR(Vehicle, breakdown_delay,       SLE_UINT8),
    00652          SLE_VAR(Vehicle, breakdowns_since_last_service, SLE_UINT8),
    00653          SLE_VAR(Vehicle, breakdown_chance,      SLE_UINT8),
    00654      SLE_CONDVAR(Vehicle, build_year,            SLE_FILE_U8 | SLE_VAR_I32,    0,  30),
    00655      SLE_CONDVAR(Vehicle, build_year,            SLE_INT32,                   31, SL_MAX_VERSION),
    00656
    00657          SLE_VAR(Vehicle, load_unload_ticks,     SLE_UINT16),
    00658     SLEG_CONDVAR(         _cargo_paid_for,       SLE_UINT16,                  45, SL_MAX_VERSION),
    00659      SLE_CONDVAR(Vehicle, vehicle_flags,         SLE_UINT8,                   40, SL_MAX_VERSION),
    00660
    00661      SLE_CONDVAR(Vehicle, profit_this_year,      SLE_FILE_I32 | SLE_VAR_I64,   0,  64),
    00662      SLE_CONDVAR(Vehicle, profit_this_year,      SLE_INT64,                   65, SL_MAX_VERSION),
    00663      SLE_CONDVAR(Vehicle, profit_last_year,      SLE_FILE_I32 | SLE_VAR_I64,   0,  64),
    00664      SLE_CONDVAR(Vehicle, profit_last_year,      SLE_INT64,                   65, SL_MAX_VERSION),
    00665     SLEG_CONDVAR(         _cargo_feeder_share,   SLE_FILE_I32 | SLE_VAR_I64,  51,  64),
    00666     SLEG_CONDVAR(         _cargo_feeder_share,   SLE_INT64,                   65,  67),
    00667     SLEG_CONDVAR(         _cargo_loaded_at_xy,   SLE_UINT32,                  51,  67),
    00668      SLE_CONDVAR(Vehicle, value,                 SLE_FILE_I32 | SLE_VAR_I64,   0,  64),
    00669      SLE_CONDVAR(Vehicle, value,                 SLE_INT64,                   65, SL_MAX_VERSION),
    00670
    00671      SLE_CONDVAR(Vehicle, random_bits,           SLE_UINT8,                    2, SL_MAX_VERSION),
    00672      SLE_CONDVAR(Vehicle, waiting_triggers,      SLE_UINT8,                    2, SL_MAX_VERSION),
    00673
    00674      SLE_CONDREF(Vehicle, next_shared,           REF_VEHICLE,                  2, SL_MAX_VERSION),
    00675     SLE_CONDNULL(2,                                                            2,  68),
    00676     SLE_CONDNULL(4,                                                           69, 100),
    00677
    00678      SLE_CONDVAR(Vehicle, group_id,              SLE_UINT16,                  60, SL_MAX_VERSION),
    00679
    00680      SLE_CONDVAR(Vehicle, current_order_time,    SLE_UINT32,                  67, SL_MAX_VERSION),
    00681      SLE_CONDVAR(Vehicle, lateness_counter,      SLE_INT32,                   67, SL_MAX_VERSION),
    00682
    00683     SLE_CONDNULL(10,                                                           2, 143), // old reserved space
    00684
    00685          SLE_END()
    00686   };
    00687
    00688
    00689   static const SaveLoad _train_desc[] = {
    00690     SLE_WRITEBYTE(Vehicle, type, VEH_TRAIN),
    00691     SLE_VEH_INCLUDE(),
    00692          SLE_VAR(Train, crash_anim_pos,      SLE_UINT16),
    00693          SLE_VAR(Train, force_proceed,       SLE_UINT8),
    00694          SLE_VAR(Train, railtype,            SLE_UINT8),
    00695          SLE_VAR(Train, track,               SLE_UINT8),
    00696
    00697      SLE_CONDVAR(Train, flags,               SLE_FILE_U8  | SLE_VAR_U16,   2,  99),
    00698      SLE_CONDVAR(Train, flags,               SLE_UINT16,                 100, SL_MAX_VERSION),
    00699     SLE_CONDNULL(2, 2, 59),
    00700
    00701      SLE_CONDVAR(Train, wait_counter,        SLE_UINT16,                 136, SL_MAX_VERSION),
    00702
    00703     SLE_CONDNULL(2, 2, 19),
    00704      SLE_CONDVAR(Train, gv_flags,            SLE_UINT16,                 139, SL_MAX_VERSION),
    00705     SLE_CONDNULL(11, 2, 143), // old reserved space
    00706
    00707          SLE_END()
    00708   };
    00709
    00710   static const SaveLoad _roadveh_desc[] = {
    00711     SLE_WRITEBYTE(Vehicle, type, VEH_ROAD),
    00712     SLE_VEH_INCLUDE(),
    00713          SLE_VAR(RoadVehicle, state,                SLE_UINT8),
    00714          SLE_VAR(RoadVehicle, frame,                SLE_UINT8),
    00715          SLE_VAR(RoadVehicle, blocked_ctr,          SLE_UINT16),
    00716          SLE_VAR(RoadVehicle, overtaking,           SLE_UINT8),
    00717          SLE_VAR(RoadVehicle, overtaking_ctr,       SLE_UINT8),
    00718          SLE_VAR(RoadVehicle, crashed_ctr,          SLE_UINT16),
    00719          SLE_VAR(RoadVehicle, reverse_ctr,          SLE_UINT8),
    00720
    00721     SLE_CONDNULL(2,                                                               6,  68),
    00722      SLE_CONDVAR(RoadVehicle, gv_flags,             SLE_UINT16,                 139, SL_MAX_VERSION),
    00723     SLE_CONDNULL(4,                                                              69, 130),
    00724     SLE_CONDNULL(2,                                                               6, 130),
    00725     SLE_CONDNULL(16,                                                              2, 143), // old reserved space
    00726
    00727          SLE_END()
    00728   };
    00729
    00730   static const SaveLoad _ship_desc[] = {
    00731     SLE_WRITEBYTE(Vehicle, type, VEH_SHIP),
    00732     SLE_VEH_INCLUDE(),
    00733          SLE_VAR(Ship, state, SLE_UINT8),
    00734
    00735     SLE_CONDNULL(16, 2, 143), // old reserved space
    00736
    00737          SLE_END()
    00738   };
    00739
    00740   static const SaveLoad _aircraft_desc[] = {
    00741     SLE_WRITEBYTE(Vehicle, type, VEH_AIRCRAFT),
    00742     SLE_VEH_INCLUDE(),
    00743          SLE_VAR(Aircraft, crashed_counter,       SLE_UINT16),
    00744          SLE_VAR(Aircraft, pos,                   SLE_UINT8),
    00745
    00746      SLE_CONDVAR(Aircraft, targetairport,         SLE_FILE_U8  | SLE_VAR_U16,   0, 4),
    00747      SLE_CONDVAR(Aircraft, targetairport,         SLE_UINT16,                   5, SL_MAX_VERSION),
    00748
    00749          SLE_VAR(Aircraft, state,                 SLE_UINT8),
    00750
    00751      SLE_CONDVAR(Aircraft, previous_pos,          SLE_UINT8,                    2, SL_MAX_VERSION),
    00752      SLE_CONDVAR(Aircraft, last_direction,        SLE_UINT8,                    2, SL_MAX_VERSION),
    00753      SLE_CONDVAR(Aircraft, number_consecutive_turns, SLE_UINT8,                 2, SL_MAX_VERSION),
    00754
    00755      SLE_CONDVAR(Aircraft, turn_counter,          SLE_UINT8,                  136, SL_MAX_VERSION),
    00756      SLE_CONDVAR(Aircraft, flags,                 SLE_UINT8,                  167, SL_MAX_VERSION),
    00757
    00758     SLE_CONDNULL(13,                                                           2, 143), // old reserved space
    00759
    00760          SLE_END()
    00761   };
    00762
    00763   static const SaveLoad _special_desc[] = {
    00764     SLE_WRITEBYTE(Vehicle, type, VEH_EFFECT),
    00765
    00766          SLE_VAR(Vehicle, subtype,               SLE_UINT8),
    00767
    00768      SLE_CONDVAR(Vehicle, tile,                  SLE_FILE_U16 | SLE_VAR_U32,   0,   5),
    00769      SLE_CONDVAR(Vehicle, tile,                  SLE_UINT32,                   6, SL_MAX_VERSION),
    00770
    00771      SLE_CONDVAR(Vehicle, x_pos,                 SLE_FILE_I16 | SLE_VAR_I32,   0,   5),
    00772      SLE_CONDVAR(Vehicle, x_pos,                 SLE_INT32,                    6, SL_MAX_VERSION),
    00773      SLE_CONDVAR(Vehicle, y_pos,                 SLE_FILE_I16 | SLE_VAR_I32,   0,   5),
    00774      SLE_CONDVAR(Vehicle, y_pos,                 SLE_INT32,                    6, SL_MAX_VERSION),
    00775      SLE_CONDVAR(Vehicle, z_pos,                 SLE_FILE_U8  | SLE_VAR_I32,   0, 163),
    00776      SLE_CONDVAR(Vehicle, z_pos,                 SLE_INT32,                  164, SL_MAX_VERSION),
    00777
    00778          SLE_VAR(Vehicle, cur_image,             SLE_FILE_U16 | SLE_VAR_U32),
    00779     SLE_CONDNULL(5,                                                            0,  57),
    00780          SLE_VAR(Vehicle, progress,              SLE_UINT8),
    00781          SLE_VAR(Vehicle, vehstatus,             SLE_UINT8),
    00782
    00783          SLE_VAR(EffectVehicle, animation_state,    SLE_UINT16),
    00784          SLE_VAR(EffectVehicle, animation_substate, SLE_UINT8),
    00785
    00786      SLE_CONDVAR(Vehicle, spritenum,             SLE_UINT8,                    2, SL_MAX_VERSION),
    00787
    00788     SLE_CONDNULL(15,                                                           2, 143), // old reserved space
    00789
    00790          SLE_END()
    00791   };
    00792
    00793   static const SaveLoad _disaster_desc[] = {
    00794     SLE_WRITEBYTE(Vehicle, type, VEH_DISASTER),
    00795
    00796          SLE_REF(Vehicle, next,                  REF_VEHICLE_OLD),
    00797
    00798          SLE_VAR(Vehicle, subtype,               SLE_UINT8),
    00799      SLE_CONDVAR(Vehicle, tile,                  SLE_FILE_U16 | SLE_VAR_U32,   0,   5),
    00800      SLE_CONDVAR(Vehicle, tile,                  SLE_UINT32,                   6, SL_MAX_VERSION),
    00801      SLE_CONDVAR(Vehicle, dest_tile,             SLE_FILE_U16 | SLE_VAR_U32,   0,   5),
    00802      SLE_CONDVAR(Vehicle, dest_tile,             SLE_UINT32,                   6, SL_MAX_VERSION),
    00803
    00804      SLE_CONDVAR(Vehicle, x_pos,                 SLE_FILE_I16 | SLE_VAR_I32,   0,   5),
    00805      SLE_CONDVAR(Vehicle, x_pos,                 SLE_INT32,                    6, SL_MAX_VERSION),
    00806      SLE_CONDVAR(Vehicle, y_pos,                 SLE_FILE_I16 | SLE_VAR_I32,   0,   5),
    00807      SLE_CONDVAR(Vehicle, y_pos,                 SLE_INT32,                    6, SL_MAX_VERSION),
    00808      SLE_CONDVAR(Vehicle, z_pos,                 SLE_FILE_U8  | SLE_VAR_I32,   0, 163),
    00809      SLE_CONDVAR(Vehicle, z_pos,                 SLE_INT32,                  164, SL_MAX_VERSION),
    00810          SLE_VAR(Vehicle, direction,             SLE_UINT8),
    00811
    00812     SLE_CONDNULL(5,                                                            0,  57),
    00813          SLE_VAR(Vehicle, owner,                 SLE_UINT8),
    00814          SLE_VAR(Vehicle, vehstatus,             SLE_UINT8),
    00815      SLE_CONDVAR(Vehicle, current_order.dest,    SLE_FILE_U8 | SLE_VAR_U16,    0,   4),
    00816      SLE_CONDVAR(Vehicle, current_order.dest,    SLE_UINT16,                   5, SL_MAX_VERSION),
    00817
    00818          SLE_VAR(Vehicle, cur_image,             SLE_FILE_U16 | SLE_VAR_U32),
    00819      SLE_CONDVAR(Vehicle, age,                   SLE_FILE_U16 | SLE_VAR_I32,   0,  30),
    00820      SLE_CONDVAR(Vehicle, age,                   SLE_INT32,                   31, SL_MAX_VERSION),
    00821          SLE_VAR(Vehicle, tick_counter,          SLE_UINT8),
    00822
    00823          SLE_VAR(DisasterVehicle, image_override,            SLE_UINT16),
    00824          SLE_VAR(DisasterVehicle, big_ufo_destroyer_target,  SLE_UINT16),
    00825
    00826     SLE_CONDNULL(16,                                                           2, 143), // old reserved space
    00827
    00828          SLE_END()
    00829   };
    00830
    00831
    00832   static const SaveLoad * const _veh_descs[] = {
    00833     _train_desc,
    00834     _roadveh_desc,
    00835     _ship_desc,
    00836     _aircraft_desc,
    00837     _special_desc,
    00838     _disaster_desc,
    00839     _common_veh_desc,
    00840   };
    00841
    00842   return _veh_descs[vt];
    00843 }
    00844
    00846 static void Save_VEHS()
    00847 {
    00848   Vehicle *v;
    00849   /* Write the vehicles */
    00850   FOR_ALL_VEHICLES(v) {
    00851     SlSetArrayIndex(v->index);
    00852     SlObject(v, GetVehicleDescription(v->type));
    00853   }
    00854 }
    00855
    00857 void Load_VEHS()
    00858 {
    00859   int index;
    00860
    00861   _cargo_count = 0;
    00862
    00863   while ((index = SlIterateArray()) != -1) {
    00864     Vehicle *v;
    00865     VehicleType vtype = (VehicleType)SlReadByte();
    00866
    00867     switch (vtype) {
    00868       case VEH_TRAIN:    v = new (index) Train();           break;
    00869       case VEH_ROAD:     v = new (index) RoadVehicle();     break;
    00870       case VEH_SHIP:     v = new (index) Ship();            break;
    00871       case VEH_AIRCRAFT: v = new (index) Aircraft();        break;
    00872       case VEH_EFFECT:   v = new (index) EffectVehicle();   break;
    00873       case VEH_DISASTER: v = new (index) DisasterVehicle(); break;
    00874       case VEH_INVALID: // Savegame shouldn't contain invalid vehicles
    00875       default: SlErrorCorrupt("Invalid vehicle type");
    00876     }
    00877
    00878     SlObject(v, GetVehicleDescription(vtype));
    00879
    00880     if (_cargo_count != 0 && IsCompanyBuildableVehicleType(v) && CargoPacket::CanAllocateItem()) {
    00881       /* Don't construct the packet with station here, because that'll fail with old savegames */
    00882       CargoPacket *cp = new CargoPacket(_cargo_count, _cargo_days, _cargo_source, _cargo_source_xy, _cargo_loaded_at_xy, _cargo_feeder_share);
    00883       v->cargo.Append(cp);
    00884     }
    00885
    00886     /* Old savegames used 'last_station_visited = 0xFF' */
    00887     if (IsSavegameVersionBefore(5) && v->last_station_visited == 0xFF) {
    00888       v->last_station_visited = INVALID_STATION;
    00889     }
    00890
    00891     if (IsSavegameVersionBefore(SL_CAPACITIES)) v->last_loading_station = INVALID_STATION;
    00892
    00893     if (IsSavegameVersionBefore(5)) {
    00894       /* Convert the current_order.type (which is a mix of type and flags, because
    00895        *  in those versions, they both were 4 bits big) to type and flags */
    00896       v->current_order.flags = GB(v->current_order.type, 4, 4);
    00897       v->current_order.type &= 0x0F;
    00898     }
    00899
    00900     /* Advanced vehicle lists got added */
    00901     if (IsSavegameVersionBefore(60)) v->group_id = DEFAULT_GROUP;
    00902   }
    00903 }
    00904
    00905 static void Ptrs_VEHS()
    00906 {
    00907   Vehicle *v;
    00908   FOR_ALL_VEHICLES(v) {
    00909     SlObject(v, GetVehicleDescription(v->type));
    00910   }
    00911 }
    00912
    00913 extern const ChunkHandler _veh_chunk_handlers[] = {
    00914   { 'VEHS', Save_VEHS, Load_VEHS, Ptrs_VEHS, NULL, CH_SPARSE_ARRAY | CH_LAST},
    00915 };