tron@2186: /* $Id$ */ tron@2186: truelight@0: #include "stdafx.h" Darkvater@1891: #include "openttd.h" tron@3558: #include "station_map.h" tron@507: #include "table/strings.h" tron@2163: #include "functions.h" tron@679: #include "map.h" truelight@0: #include "town.h" truelight@0: #include "industry.h" truelight@0: #include "station.h" truelight@0: #include "economy.h" truelight@0: #include "player.h" truelight@0: #include "engine.h" truelight@0: #include "vehicle.h" truelight@988: #include "signs.h" truelight@1322: #include "debug.h" truelight@1313: #include "depot.h" peter1138@2814: #include "network.h" peter1138@2814: #include "ai/ai.h" rubidium@4261: #include "date.h" truelight@0: truelight@1322: enum { truelight@1322: HEADER_SIZE = 49, truelight@1322: BUFFER_SIZE = 4096, truelight@0: truelight@1322: OLD_MAP_SIZE = 256 * 256 truelight@1322: }; truelight@0: truelight@1322: typedef struct LoadgameState { truelight@1322: FILE *file; truelight@0: truelight@1322: uint chunk_size; truelight@0: truelight@1322: bool decoding; truelight@1322: byte decode_char; truelight@0: truelight@1322: uint buffer_count; truelight@1322: uint buffer_cur; truelight@1322: byte buffer[BUFFER_SIZE]; truelight@0: truelight@1322: uint total_read; truelight@1322: bool failed; truelight@1322: } LoadgameState; truelight@0: truelight@1322: /* OldChunk-Type */ Darkvater@3627: typedef enum OldChunkTypes { Darkvater@3627: OC_SIMPLE = 0, Darkvater@3627: OC_NULL = 1, Darkvater@3627: OC_CHUNK = 2, Darkvater@3627: OC_ASSERT = 3, Darkvater@3627: /* 8 bytes allocated (256 max) */ truelight@1322: Darkvater@3627: OC_VAR_I8 = 1 << 8, Darkvater@3627: OC_VAR_U8 = 2 << 8, Darkvater@3627: OC_VAR_I16 = 3 << 8, Darkvater@3627: OC_VAR_U16 = 4 << 8, Darkvater@3627: OC_VAR_I32 = 5 << 8, Darkvater@3627: OC_VAR_U32 = 6 << 8, Darkvater@3627: OC_VAR_I64 = 7 << 8, Darkvater@3627: /* 8 bytes allocated (256 max) */ truelight@1322: Darkvater@3627: OC_FILE_I8 = 1 << 16, Darkvater@3627: OC_FILE_U8 = 2 << 16, Darkvater@3627: OC_FILE_I16 = 3 << 16, Darkvater@3627: OC_FILE_U16 = 4 << 16, Darkvater@3627: OC_FILE_I32 = 5 << 16, Darkvater@3627: OC_FILE_U32 = 6 << 16, Darkvater@3627: /* 8 bytes allocated (256 max) */ truelight@1322: truelight@1322: OC_INT8 = OC_VAR_I8 | OC_FILE_I8, truelight@1322: OC_UINT8 = OC_VAR_U8 | OC_FILE_U8, truelight@1322: OC_INT16 = OC_VAR_I16 | OC_FILE_I16, truelight@1322: OC_UINT16 = OC_VAR_U16 | OC_FILE_U16, truelight@1322: OC_INT32 = OC_VAR_I32 | OC_FILE_I32, truelight@1322: OC_UINT32 = OC_VAR_U32 | OC_FILE_U32, truelight@1322: Darkvater@3627: OC_TILE = OC_VAR_U32 | OC_FILE_U16, Darkvater@3627: Darkvater@3627: OC_END = 0 ///< End of the whole chunk, all 32bits set to zero Darkvater@3627: } OldChunkType; Darkvater@3627: Darkvater@3627: typedef bool OldChunkProc(LoadgameState *ls, int num); Darkvater@3627: Darkvater@3627: typedef struct OldChunks { Darkvater@3627: OldChunkType type; ///< Type of field Darkvater@3627: uint32 amount; ///< Amount of fields Darkvater@3627: Darkvater@3627: void *ptr; ///< Pointer where to save the data (may only be set if offset is 0) Darkvater@3627: uint offset; ///< Offset from basepointer (may only be set if ptr is NULL) Darkvater@3627: OldChunkProc *proc; ///< Pointer to function that is called with OC_CHUNK Darkvater@3627: } OldChunks; Darkvater@3627: truelight@1322: /* If it fails, check lines above.. */ truelight@1322: assert_compile(sizeof(TileIndex) == 4); truelight@1322: truelight@1322: static uint32 _bump_assert_value; truelight@1322: static bool _read_ttdpatch_flags; truelight@1322: Darkvater@3627: static OldChunkType GetOldChunkType(OldChunkType type) {return GB(type, 0, 8);} Darkvater@3627: static OldChunkType GetOldChunkVarType(OldChunkType type) {return GB(type, 8, 8) << 8;} Darkvater@3627: static OldChunkType GetOldChunkFileType(OldChunkType type) {return GB(type, 16, 8) << 16;} Darkvater@3627: Darkvater@3627: static inline byte CalcOldVarLen(OldChunkType type) Darkvater@3627: { Darkvater@3627: static const byte type_mem_size[] = {0, 1, 1, 2, 2, 4, 4, 8}; Darkvater@3627: byte length = GB(type, 8, 8); Darkvater@3627: assert(length != 0 && length < lengthof(type_mem_size)); Darkvater@3627: return type_mem_size[length]; Darkvater@3627: } Darkvater@3627: truelight@1322: /** truelight@1322: * truelight@1322: * Reads a byte from a file (do not call yourself, use ReadByte()) truelight@1322: * truelight@1322: */ truelight@1322: static byte ReadByteFromFile(LoadgameState *ls) truelight@0: { truelight@1322: /* To avoid slow reads, we read BUFFER_SIZE of bytes per time truelight@1322: and just return a byte per time */ truelight@1322: if (ls->buffer_cur >= ls->buffer_count) { truelight@1322: /* Read some new bytes from the file */ truelight@4321: int count = (int)fread(ls->buffer, 1, BUFFER_SIZE, ls->file); truelight@0: truelight@1322: /* We tried to read, but there is nothing in the file anymore.. */ truelight@1322: if (count == 0) { Darkvater@5568: DEBUG(oldloader, 0, "Read past end of file, loading failed"); truelight@1322: ls->failed = true; truelight@1322: } truelight@1322: truelight@1322: ls->buffer_count = count; truelight@1322: ls->buffer_cur = 0; truelight@0: } truelight@0: truelight@1322: return ls->buffer[ls->buffer_cur++]; truelight@0: } truelight@0: truelight@1322: /** truelight@1322: * truelight@1322: * Reads a byte from the buffer and decompress if needed truelight@1322: * truelight@1322: */ truelight@1322: static byte ReadByte(LoadgameState *ls) truelight@0: { truelight@1322: /* Old savegames have a nice compression algorithm (RLE) truelight@1322: which means that we have a chunk, which starts with a length truelight@1322: byte. If that byte is negative, we have to repeat the next byte truelight@1322: that many times (+1). Else, we need to read that amount of bytes. truelight@1322: Works pretty good if you have many zero's behind eachother */ truelight@0: tron@2453: if (ls->chunk_size == 0) { tron@2453: /* Read new chunk */ tron@2453: int8 new_byte = ReadByteFromFile(ls); truelight@1322: tron@2453: if (new_byte < 0) { tron@2453: /* Repeat next char for new_byte times */ tron@2453: ls->decoding = true; tron@2453: ls->decode_char = ReadByteFromFile(ls); tron@2453: ls->chunk_size = -new_byte + 1; tron@2453: } else { tron@2453: ls->decoding = false; tron@2453: ls->chunk_size = new_byte + 1; tron@2453: } truelight@0: } truelight@193: tron@2453: ls->total_read++; tron@2453: ls->chunk_size--; truelight@1322: tron@2453: return ls->decoding ? ls->decode_char : ReadByteFromFile(ls); truelight@1322: } truelight@1322: Darkvater@3627: static inline uint16 ReadUint16(LoadgameState *ls) Darkvater@3627: { Darkvater@3627: byte x = ReadByte(ls); Darkvater@3627: return x | ReadByte(ls) << 8; Darkvater@3627: } Darkvater@3627: Darkvater@3627: static inline uint32 ReadUint32(LoadgameState *ls) Darkvater@3627: { Darkvater@3627: uint16 x = ReadUint16(ls); Darkvater@3627: return x | ReadUint16(ls) << 16; Darkvater@3627: } Darkvater@3627: truelight@1322: /** truelight@1322: * truelight@1322: * Loads a chunk from the old savegame truelight@1322: * truelight@1322: */ truelight@1322: static bool LoadChunk(LoadgameState *ls, void *base, const OldChunks *chunks) truelight@1322: { truelight@1322: const OldChunks *chunk = chunks; truelight@1325: byte *base_ptr = base; truelight@1322: truelight@1322: while (chunk->type != OC_END) { tron@4000: byte* ptr = chunk->ptr; tron@4000: uint i; truelight@1322: truelight@1322: for (i = 0; i < chunk->amount; i++) { Darkvater@3626: if (ls->failed) return false; truelight@1322: truelight@1322: /* Handle simple types */ Darkvater@3627: if (GetOldChunkType(chunk->type) != 0) { Darkvater@3627: switch (GetOldChunkType(chunk->type)) { Darkvater@3626: /* Just read the byte and forget about it */ Darkvater@3626: case OC_NULL: ReadByte(ls); break; truelight@1322: truelight@1322: case OC_CHUNK: truelight@1322: /* Call function, with 'i' as parameter to tell which item we tron@2951: * are going to read */ tron@2951: if (!chunk->proc(ls, i)) return false; truelight@1322: break; truelight@1322: truelight@1322: case OC_ASSERT: Darkvater@5568: DEBUG(oldloader, 4, "Assert point: 0x%X / 0x%X", ls->total_read, chunk->offset + _bump_assert_value); Darkvater@3626: if (ls->total_read != chunk->offset + _bump_assert_value) ls->failed = true; Darkvater@3629: default: break; truelight@1322: } truelight@1322: } else { truelight@1322: uint32 res = 0; truelight@1322: Darkvater@3627: /* Reading from the file: bits 16 to 23 have the FILE type */ Darkvater@3627: switch (GetOldChunkFileType(chunk->type)) { Darkvater@3627: case OC_FILE_I8: res = (int8)ReadByte(ls); break; Darkvater@3627: case OC_FILE_U8: res = ReadByte(ls); break; Darkvater@3627: case OC_FILE_I16: res = (int16)ReadUint16(ls); break; Darkvater@3627: case OC_FILE_U16: res = ReadUint16(ls); break; Darkvater@3627: case OC_FILE_I32: res = (int32)ReadUint32(ls); break; Darkvater@3627: case OC_FILE_U32: res = ReadUint32(ls); break; Darkvater@3627: default: NOT_REACHED(); truelight@1322: } truelight@1322: truelight@1322: /* Sanity check */ truelight@1325: assert(base_ptr != NULL || chunk->ptr != NULL); truelight@1322: Darkvater@3627: /* Writing to the var: bits 8 to 15 have the VAR type */ Darkvater@3627: if (chunk->ptr == NULL) ptr = base_ptr + chunk->offset; truelight@1322: Darkvater@3627: /* Write the data */ Darkvater@3627: switch (GetOldChunkVarType(chunk->type)) { Darkvater@3627: case OC_VAR_I8: *(int8 *)ptr = GB(res, 0, 8); break; Darkvater@3627: case OC_VAR_U8: *(uint8 *)ptr = GB(res, 0, 8); break; Darkvater@3627: case OC_VAR_I16:*(int16 *)ptr = GB(res, 0, 16); break; Darkvater@3627: case OC_VAR_U16:*(uint16*)ptr = GB(res, 0, 16); break; Darkvater@3627: case OC_VAR_I32:*(int32 *)ptr = res; break; Darkvater@3627: case OC_VAR_U32:*(uint32*)ptr = res; break; Darkvater@3627: case OC_VAR_I64:*(int64 *)ptr = res; break; Darkvater@3627: default: NOT_REACHED(); Darkvater@3627: } truelight@1322: Darkvater@3627: /* Increase pointer base for arrays when looping */ Darkvater@3627: if (chunk->amount > 1 && chunk->ptr != NULL) ptr += CalcOldVarLen(chunk->type); truelight@1322: } truelight@1322: } truelight@1322: truelight@1322: chunk++; truelight@1322: } truelight@1322: truelight@1322: return true; truelight@1322: } truelight@1322: truelight@1322: /** truelight@1322: * truelight@1322: * Initialize some data before reading truelight@1322: * truelight@1322: */ truelight@1322: static void InitLoading(LoadgameState *ls) truelight@1322: { truelight@1322: ls->chunk_size = 0; truelight@1322: ls->total_read = 0; truelight@1322: ls->failed = false; truelight@1322: truelight@1322: ls->decoding = false; truelight@1322: ls->decode_char = 0; truelight@1322: truelight@1322: ls->buffer_cur = 0; truelight@1322: ls->buffer_count = 0; truelight@1322: memset(ls->buffer, 0, BUFFER_SIZE); truelight@1322: truelight@1322: _bump_assert_value = 0; truelight@1322: truelight@1322: _read_ttdpatch_flags = false; truelight@1322: } truelight@1322: truelight@1322: truelight@1322: /* truelight@1322: * Begin -- Stuff to fix the savegames to be OpenTTD compatible truelight@1322: */ truelight@1322: truelight@1322: extern uint32 GetOldTownName(uint32 townnameparts, byte old_town_name_type); truelight@1322: truelight@1322: static void FixOldTowns(void) truelight@1322: { truelight@1322: Town *town; truelight@1322: truelight@1322: /* Convert town-names if needed */ truelight@1322: FOR_ALL_TOWNS(town) { truelight@1322: if (IS_INT_INSIDE(town->townnametype, 0x20C1, 0x20C3)) { truelight@1322: town->townnametype = SPECSTR_TOWNNAME_ENGLISH + _opt.town_name; truelight@1322: town->townnameparts = GetOldTownName(town->townnameparts, _opt.town_name); truelight@1322: } truelight@193: } truelight@0: } truelight@0: truelight@1322: static void FixOldStations(void) truelight@0: { truelight@1322: Station *st; truelight@919: truelight@1322: FOR_ALL_STATIONS(st) { truelight@1322: /* Check if we need to swap width and height for the station */ tron@3558: if (st->train_tile != 0 && GetRailStationAxis(st->train_tile) != AXIS_X) { tron@1396: swap_byte(&st->trainst_w, &st->trainst_h); darkvater@4: } truelight@0: truelight@1322: /* Check if there is a bus or truck station, and convert to new format */ truelight@1322: if (st->bus_tile_obsolete != 0) { truelight@1322: st->bus_stops = AllocateRoadStop(); truelight@1322: st->bus_stops->xy = st->bus_tile_obsolete; truelight@1322: st->bus_stops->used = true; truelight@1322: st->bus_stops->status = 3; truelight@1322: st->bus_stops->station = st->index; truelight@1322: st->bus_stops->next = NULL; truelight@1322: st->bus_stops->prev = NULL; celestar@3431: st->bus_stops->num_vehicles = 0; truelight@1284: } truelight@1284: truelight@1322: if (st->lorry_tile_obsolete != 0) { truelight@1322: st->truck_stops = AllocateRoadStop(); truelight@1322: st->truck_stops->xy = st->lorry_tile_obsolete; truelight@1322: st->truck_stops->used = true; truelight@1322: st->truck_stops->status = 3; truelight@1322: st->truck_stops->station = st->index; truelight@1322: st->truck_stops->next = NULL; truelight@1322: st->truck_stops->prev = NULL; celestar@3431: st->truck_stops->num_vehicles = 0; truelight@0: } truelight@1024: } truelight@1024: } truelight@1024: truelight@1322: static void FixOldVehicles(void) truelight@0: { truelight@1024: /* Check for shared orders, and link them correctly */ tron@2951: Vehicle* v; truelight@1024: tron@2951: FOR_ALL_VEHICLES(v) { Darkvater@3626: Vehicle *u; truelight@1024: tron@2951: FOR_ALL_VEHICLES_FROM(u, v->index + 1) { tron@2951: /* If a vehicle has the same orders, add the link to eachother tron@2951: * in both vehicles */ tron@2951: if (v->orders == u->orders) { tron@2951: v->next_shared = u; tron@2951: u->prev_shared = v; tron@2951: break; truelight@1024: } truelight@1024: } truelight@1024: } truelight@0: } truelight@0: truelight@1322: /* truelight@1322: * End -- Stuff to fix the savegames to be OpenTTD compatible truelight@1322: */ truelight@0: truelight@193: truelight@1322: /* Help: truelight@1322: * - OCL_SVAR: load 'type' to offset 'offset' in a struct of type 'base', which must also truelight@1322: * be given via base in LoadChunk() as real pointer truelight@1322: * - OCL_VAR: load 'type' to a global var truelight@1322: * - OCL_END: every struct must end with this truelight@1322: * - OCL_NULL: read 'amount' of bytes and send them to /dev/null or something truelight@1322: * - OCL_CHUNK: load an other proc to load a part of the savegame, 'amount' times truelight@1322: * - OCL_ASSERT: to check if we are really at the place we expect to be.. because old savegames are too binary to be sure ;) truelight@1322: */ truelight@4321: #define OCL_SVAR(type, base, offset) { type, 1, NULL, (uint)offsetof(base, offset), NULL } truelight@1322: #define OCL_VAR(type, amount, pointer) { type, amount, pointer, 0, NULL } truelight@1322: #define OCL_END() { OC_END, 0, NULL, 0, NULL } truelight@1322: #define OCL_NULL(amount) { OC_NULL, amount, NULL, 0, NULL } truelight@1322: #define OCL_CHUNK(amount, proc) { OC_CHUNK, amount, NULL, 0, proc } truelight@1322: #define OCL_ASSERT(size) { OC_ASSERT, 1, NULL, size, NULL } truelight@0: truelight@1322: /* The savegames has some hard-coded pointers, because it always enters the same truelight@1322: piece of memory.. we don't.. so we need to remap ;) truelight@1322: Old Towns are 94 bytes big truelight@1322: Old Orders are 2 bytes big */ truelight@1322: #define REMAP_TOWN_IDX(x) ((x) - (0x0459154 - 0x0458EF0)) / 94 truelight@1322: #define REMAP_ORDER_IDX(x) ((x) - (0x045AB08 - 0x0458EF0)) / 2 truelight@0: truelight@1322: extern TileIndex _animated_tile_list[256]; tron@1328: extern char _name_array[512][32]; truelight@0: Darkvater@3626: static byte _old_vehicle_multiplier; truelight@1322: static uint8 _old_map3[OLD_MAP_SIZE * 2]; truelight@1322: static bool _new_ttdpatch_format; truelight@1322: static uint32 _old_town_index; truelight@1322: static uint16 _old_string_id; truelight@1322: static uint16 _old_string_id_2; truelight@1322: tron@2752: static void ReadTTDPatchFlags(void) truelight@1322: { truelight@1322: int i; truelight@1322: tron@2951: if (_read_ttdpatch_flags) return; truelight@1322: truelight@1322: _read_ttdpatch_flags = true; truelight@1322: truelight@1322: /* TTDPatch misuses _old_map3 for flags.. read them! */ Darkvater@3626: _old_vehicle_multiplier = _old_map3[0]; truelight@1322: /* Somehow.... there was an error in some savegames, so 0 becomes 1 truelight@1322: and 1 becomes 2. The rest of the values are okay */ Darkvater@3626: if (_old_vehicle_multiplier < 2) _old_vehicle_multiplier++; truelight@1322: truelight@1322: /* TTDPatch incraeses the Vehicle-part in the middle of the game, truelight@1322: so if the multipler is anything else but 1, the assert fails.. truelight@1322: bump the assert value so it doesn't! truelight@1322: (1 multipler == 850 vehicles truelight@1322: 1 vehicle == 128 bytes */ Darkvater@3626: _bump_assert_value = (_old_vehicle_multiplier - 1) * 850 * 128; truelight@1322: truelight@1326: /* Check if we have a modern TTDPatch savegame (has extra data all around) */ tron@3033: _new_ttdpatch_format = (memcmp(&_old_map3[0x1FFFA], "TTDp", 4) == 0); truelight@1322: truelight@1322: /* Clean the misused places */ tron@3033: for (i = 0; i < 17; i++) _old_map3[i] = 0; tron@3033: for (i = 0x1FE00; i < 0x20000; i++) _old_map3[i] = 0; truelight@1322: Darkvater@5568: if (_new_ttdpatch_format) DEBUG(oldloader, 1, "Found TTDPatch game"); truelight@1322: Darkvater@5568: DEBUG(oldloader, 1, "Vehicle-multiplier is set to %d (%d vehicles)", _old_vehicle_multiplier, _old_vehicle_multiplier * 850); truelight@0: } truelight@0: truelight@1322: static const OldChunks town_chunk[] = { truelight@1322: OCL_SVAR( OC_TILE, Town, xy ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_U32, Town, population ), truelight@1322: OCL_SVAR( OC_UINT16, Town, townnametype ), truelight@1322: OCL_SVAR( OC_UINT32, Town, townnameparts ), truelight@1322: OCL_SVAR( OC_UINT8, Town, grow_counter ), truelight@1322: OCL_NULL( 1 ), // sort_index, no longer in use truelight@1322: OCL_NULL( 4 ), // sign-coordinates, no longer in use truelight@1322: OCL_NULL( 2 ), // namewidth, no longer in use truelight@1322: OCL_SVAR( OC_UINT16, Town, flags12 ), truelight@1322: OCL_NULL( 10 ), // radius, no longer in use truelight@988: truelight@1322: OCL_SVAR( OC_UINT16, Town, ratings[0] ), truelight@1322: OCL_SVAR( OC_UINT16, Town, ratings[1] ), truelight@1322: OCL_SVAR( OC_UINT16, Town, ratings[2] ), truelight@1322: OCL_SVAR( OC_UINT16, Town, ratings[3] ), truelight@1322: OCL_SVAR( OC_UINT16, Town, ratings[4] ), truelight@1322: OCL_SVAR( OC_UINT16, Town, ratings[5] ), truelight@1322: OCL_SVAR( OC_UINT16, Town, ratings[6] ), truelight@1322: OCL_SVAR( OC_UINT16, Town, ratings[7] ), truelight@0: truelight@1322: /* XXX - This is pretty odd.. we read 32bit, but only write 8bit.. sure there is truelight@1322: nothing changed?? */ truelight@1322: OCL_SVAR( OC_FILE_U32 | OC_VAR_U8, Town, have_ratings ), truelight@1322: OCL_SVAR( OC_FILE_U32 | OC_VAR_U8, Town, statues ), truelight@1322: OCL_SVAR( OC_UINT16, Town, num_houses ), truelight@1322: OCL_SVAR( OC_UINT8, Town, time_until_rebuild ), truelight@1322: OCL_SVAR( OC_UINT8, Town, growth_rate ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, Town, new_max_pass ), truelight@1322: OCL_SVAR( OC_UINT16, Town, new_max_mail ), truelight@1322: OCL_SVAR( OC_UINT16, Town, new_act_pass ), truelight@1322: OCL_SVAR( OC_UINT16, Town, new_act_mail ), truelight@1322: OCL_SVAR( OC_UINT16, Town, max_pass ), truelight@1322: OCL_SVAR( OC_UINT16, Town, max_mail ), truelight@1322: OCL_SVAR( OC_UINT16, Town, act_pass ), truelight@1322: OCL_SVAR( OC_UINT16, Town, act_mail ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Town, pct_pass_transported ), truelight@1322: OCL_SVAR( OC_UINT8, Town, pct_mail_transported ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, Town, new_act_food ), truelight@1322: OCL_SVAR( OC_UINT16, Town, new_act_water ), truelight@1322: OCL_SVAR( OC_UINT16, Town, act_food ), truelight@1322: OCL_SVAR( OC_UINT16, Town, act_water ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Town, road_build_months ), truelight@1322: OCL_SVAR( OC_UINT8, Town, fund_buildings_months ), truelight@1322: truelight@1322: OCL_NULL( 8 ), // some junk at the end of the record truelight@1322: truelight@1322: OCL_END() truelight@1322: }; truelight@1322: static bool LoadOldTown(LoadgameState *ls, int num) truelight@1322: { tron@4983: if (!AddBlockIfNeeded(&_Town_pool, num)) truelight@1322: error("Towns: failed loading savegame: too many towns"); truelight@1322: truelight@1322: return LoadChunk(ls, GetTown(num), town_chunk); truelight@0: } truelight@0: truelight@1322: static uint16 _old_order; truelight@1322: static const OldChunks order_chunk[] = { truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_order ), truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldOrder(LoadgameState *ls, int num) truelight@0: { tron@4977: if (!AddBlockIfNeeded(&_Order_pool, num)) truelight@1322: error("Orders: failed loading savegame: too many orders"); truelight@1322: Darkvater@3626: if (!LoadChunk(ls, NULL, order_chunk)) return false; truelight@1322: truelight@1322: AssignOrder(GetOrder(num), UnpackOldOrder(_old_order)); truelight@1322: truelight@1322: /* Relink the orders to eachother (in TTD(Patch) the orders for one truelight@1322: vehicle are behind eachother, with OT_NOTHING as indication that truelight@1322: it is the last order */ truelight@1322: if (num > 0 && GetOrder(num)->type != OT_NOTHING) truelight@1322: GetOrder(num - 1)->next = GetOrder(num); truelight@1322: truelight@1322: return true; truelight@0: } truelight@0: truelight@1322: static const OldChunks depot_chunk[] = { truelight@1322: OCL_SVAR( OC_TILE, Depot, xy ), truelight@1322: OCL_VAR ( OC_UINT32, 1, &_old_town_index ), truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldDepot(LoadgameState *ls, int num) darkvater@436: { tron@4973: if (!AddBlockIfNeeded(&_Depot_pool, num)) truelight@1322: error("Depots: failed loading savegame: too many depots"); darkvater@436: Darkvater@3626: if (!LoadChunk(ls, GetDepot(num), depot_chunk)) return false; truelight@1322: truelight@4346: if (IsValidDepot(GetDepot(num))) { truelight@1322: GetDepot(num)->town_index = REMAP_TOWN_IDX(_old_town_index); darkvater@436: } darkvater@436: truelight@1322: return true; truelight@1322: } darkvater@436: truelight@1322: static int32 _old_price; truelight@1322: static uint16 _old_price_frac; truelight@1322: static const OldChunks price_chunk[] = { truelight@1322: OCL_VAR ( OC_INT32, 1, &_old_price ), truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_price_frac ), truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldPrice(LoadgameState *ls, int num) truelight@1322: { Darkvater@3626: if (!LoadChunk(ls, NULL, price_chunk)) return false; darkvater@436: truelight@1322: /* We use a struct to store the prices, but they are ints in a row.. truelight@1322: so just access the struct as an array of int32's */ truelight@1322: ((int32*)&_price)[num] = _old_price; truelight@1322: _price_frac[num] = _old_price_frac; darkvater@436: truelight@1322: return true; truelight@1322: } darkvater@436: truelight@1322: static const OldChunks cargo_payment_rate_chunk[] = { truelight@1322: OCL_VAR ( OC_INT32, 1, &_old_price ), truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_price_frac ), truelight@1322: truelight@1322: OCL_NULL( 2 ), // Junk truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldCargoPaymentRate(LoadgameState *ls, int num) truelight@1322: { Darkvater@3626: if (!LoadChunk(ls, NULL, cargo_payment_rate_chunk)) return false; truelight@1322: truelight@1322: _cargo_payment_rates[num] = -_old_price; truelight@1322: _cargo_payment_rates_frac[num] = _old_price_frac; truelight@1322: truelight@1322: return true; truelight@1322: } truelight@1322: truelight@1322: static uint8 _old_platforms; truelight@1322: static uint _current_station_id; truelight@1322: truelight@1322: static const OldChunks goods_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT16, GoodsEntry, waiting_acceptance ), truelight@1322: OCL_SVAR( OC_UINT8, GoodsEntry, days_since_pickup ), truelight@1322: OCL_SVAR( OC_UINT8, GoodsEntry, rating ), truelight@1322: OCL_SVAR( OC_FILE_U8 | OC_VAR_U16, GoodsEntry, enroute_from ), truelight@1322: OCL_SVAR( OC_UINT8, GoodsEntry, enroute_time ), truelight@1322: OCL_SVAR( OC_UINT8, GoodsEntry, last_speed ), truelight@1322: OCL_SVAR( OC_UINT8, GoodsEntry, last_age ), truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldGood(LoadgameState *ls, int num) truelight@1322: { truelight@1322: Station *st = GetStation(_current_station_id); truelight@1322: return LoadChunk(ls, &st->goods[num], goods_chunk); truelight@1322: } truelight@1322: truelight@1322: static const OldChunks station_chunk[] = { truelight@1322: OCL_SVAR( OC_TILE, Station, xy ), truelight@1322: OCL_VAR ( OC_UINT32, 1, &_old_town_index ), truelight@1322: truelight@1322: OCL_SVAR( OC_TILE, Station, bus_tile_obsolete ), truelight@1322: OCL_SVAR( OC_TILE, Station, lorry_tile_obsolete ), truelight@1322: OCL_SVAR( OC_TILE, Station, train_tile ), truelight@1322: OCL_SVAR( OC_TILE, Station, airport_tile ), truelight@1322: OCL_SVAR( OC_TILE, Station, dock_tile ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT8, 1, &_old_platforms ), truelight@1322: truelight@1322: OCL_NULL( 1 ), // sort-index, no longer in use truelight@1322: OCL_NULL( 2 ), // sign-width, no longer in use truelight@1322: truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_string_id ), truelight@1322: truelight@1322: OCL_NULL( 4 ), // sign left/top, no longer in use truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, Station, had_vehicle_of_type ), truelight@1322: truelight@1322: OCL_CHUNK( 12, LoadOldGood ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Station, time_since_load ), truelight@1322: OCL_SVAR( OC_UINT8, Station, time_since_unload ), truelight@1322: OCL_SVAR( OC_UINT8, Station, delete_ctr ), truelight@1322: OCL_SVAR( OC_UINT8, Station, owner ), truelight@1322: OCL_SVAR( OC_UINT8, Station, facilities ), truelight@1322: OCL_SVAR( OC_UINT8, Station, airport_type ), truelight@1322: OCL_NULL( 2 ), // Bus/truck status, no longer in use truelight@1322: OCL_SVAR( OC_UINT8, Station, blocked_months_obsolete ), truelight@1322: OCL_NULL( 1 ), // Unknown truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_U32, Station, airport_flags ), celestar@3580: OCL_NULL( 2 ), // last_vehicle. now last_vehicle_type truelight@1322: truelight@1322: OCL_NULL( 4 ), // Junk at end of chunk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; truelight@1322: static bool LoadOldStation(LoadgameState *ls, int num) truelight@1322: { truelight@1322: Station *st; truelight@1322: tron@4980: if (!AddBlockIfNeeded(&_Station_pool, num)) truelight@1322: error("Stations: failed loading savegame: too many stations"); truelight@1322: truelight@1322: st = GetStation(num); truelight@1322: _current_station_id = num; truelight@1322: truelight@1322: if (!LoadChunk(ls, st, station_chunk)) truelight@1322: return false; truelight@1322: truelight@4346: if (IsValidStation(st)) { truelight@1322: if (st->train_tile) { truelight@1322: /* Calculate the trainst_w and trainst_h */ tron@2140: uint w = GB(_old_platforms, 3, 3); tron@2140: uint h = GB(_old_platforms, 0, 3); truelight@1322: st->trainst_w = w; truelight@1322: st->trainst_h = h; darkvater@436: } darkvater@436: truelight@1322: st->town = GetTown(REMAP_TOWN_IDX(_old_town_index)); truelight@1322: st->string_id = RemapOldStringID(_old_string_id); darkvater@436: } darkvater@436: truelight@1322: return true; truelight@1322: } darkvater@436: truelight@1322: static const OldChunks industry_chunk[] = { truelight@1322: OCL_SVAR( OC_TILE, Industry, xy ), truelight@1322: OCL_VAR ( OC_UINT32, 1, &_old_town_index ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, width ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, height ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, produced_cargo[0] ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, produced_cargo[1] ), darkvater@436: truelight@1322: OCL_SVAR( OC_UINT16, Industry, cargo_waiting[0] ), truelight@1322: OCL_SVAR( OC_UINT16, Industry, cargo_waiting[1] ), darkvater@436: truelight@1322: OCL_SVAR( OC_UINT8, Industry, production_rate[0] ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, production_rate[1] ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Industry, accepts_cargo[0] ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, accepts_cargo[1] ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, accepts_cargo[2] ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Industry, prod_level ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, Industry, last_mo_production[0] ), truelight@1322: OCL_SVAR( OC_UINT16, Industry, last_mo_production[1] ), truelight@1322: OCL_SVAR( OC_UINT16, Industry, last_mo_transported[0] ), truelight@1322: OCL_SVAR( OC_UINT16, Industry, last_mo_transported[1] ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Industry, pct_transported[0] ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, pct_transported[1] ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, Industry, total_production[0] ), truelight@1322: OCL_SVAR( OC_UINT16, Industry, total_production[1] ), truelight@1322: OCL_SVAR( OC_UINT16, Industry, total_transported[0] ), truelight@1322: OCL_SVAR( OC_UINT16, Industry, total_transported[1] ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Industry, type ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, owner ), belugas@4942: OCL_SVAR( OC_UINT8, Industry, random_color ), rubidium@4326: OCL_SVAR( OC_FILE_U8 | OC_VAR_I32, Industry, last_prod_year ), truelight@1322: OCL_SVAR( OC_UINT16, Industry, counter ), truelight@1322: OCL_SVAR( OC_UINT8, Industry, was_cargo_delivered ), truelight@1322: truelight@1322: OCL_NULL( 9 ), // Random junk at the end of this chunk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldIndustry(LoadgameState *ls, int num) truelight@1322: { truelight@1322: Industry *i; truelight@1322: tron@4976: if (!AddBlockIfNeeded(&_Industry_pool, num)) truelight@1322: error("Industries: failed loading savegame: too many industries"); truelight@1322: truelight@1322: i = GetIndustry(num); Darkvater@3626: if (!LoadChunk(ls, i, industry_chunk)) return false; truelight@1322: truelight@4346: if (IsValidIndustry(i)) { truelight@1322: i->town = GetTown(REMAP_TOWN_IDX(_old_town_index)); darkvater@436: } darkvater@436: truelight@1322: return true; truelight@1322: } darkvater@436: tron@2498: static PlayerID _current_player_id; truelight@1322: static uint16 _old_inaugurated_year; truelight@1322: static int32 _old_yearly; truelight@1322: truelight@1322: static const OldChunks player_yearly_chunk[] = { truelight@1322: OCL_VAR( OC_INT32, 1, &_old_yearly ), truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool OldPlayerYearly(LoadgameState *ls, int num) truelight@1322: { truelight@1322: int i; celestar@1962: Player *p = GetPlayer(_current_player_id); truelight@1322: truelight@1322: for (i = 0; i < 13; i++) { Darkvater@3626: if (!LoadChunk(ls, NULL, player_yearly_chunk)) return false; truelight@1322: truelight@1322: p->yearly_expenses[num][i] = _old_yearly; truelight@1322: } truelight@1322: truelight@1322: return true; darkvater@436: } truelight@0: truelight@1322: static const OldChunks player_economy_chunk[] = { truelight@1322: OCL_SVAR( OC_INT32, PlayerEconomyEntry, income ), truelight@1322: OCL_SVAR( OC_INT32, PlayerEconomyEntry, expenses ), truelight@1322: OCL_SVAR( OC_INT32, PlayerEconomyEntry, delivered_cargo ), truelight@1322: OCL_SVAR( OC_INT32, PlayerEconomyEntry, performance_history ), truelight@1322: OCL_SVAR( OC_FILE_I32 | OC_VAR_I64, PlayerEconomyEntry, company_value ), truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool OldPlayerEconomy(LoadgameState *ls, int num) truelight@0: { truelight@1322: int i; celestar@1962: Player *p = GetPlayer(_current_player_id); truelight@1322: Darkvater@3626: if (!LoadChunk(ls, &p->cur_economy, player_economy_chunk)) return false; truelight@1322: truelight@1322: /* Don't ask, but the number in TTD(Patch) are inversed to OpenTTD */ truelight@1322: p->cur_economy.income = -p->cur_economy.income; truelight@1322: p->cur_economy.expenses = -p->cur_economy.expenses; truelight@1322: truelight@1322: for (i = 0; i < 24; i++) { Darkvater@3626: if (!LoadChunk(ls, &p->old_economy[i], player_economy_chunk)) return false; truelight@1322: truelight@1322: p->old_economy[i].income = -p->old_economy[i].income; truelight@1322: p->old_economy[i].expenses = -p->old_economy[i].expenses; truelight@1322: } truelight@1322: truelight@1322: return true; truelight@1322: } truelight@1322: truelight@1322: static const OldChunks player_ai_build_rec_chunk[] = { truelight@1322: OCL_SVAR( OC_TILE, AiBuildRec, spec_tile ), truelight@1322: OCL_SVAR( OC_TILE, AiBuildRec, use_tile ), truelight@1322: OCL_SVAR( OC_UINT8, AiBuildRec, rand_rng ), truelight@1322: OCL_SVAR( OC_UINT8, AiBuildRec, cur_building_rule ), truelight@1322: OCL_SVAR( OC_UINT8, AiBuildRec, unk6 ), truelight@1322: OCL_SVAR( OC_UINT8, AiBuildRec, unk7 ), truelight@1322: OCL_SVAR( OC_UINT8, AiBuildRec, buildcmd_a ), truelight@1322: OCL_SVAR( OC_UINT8, AiBuildRec, buildcmd_b ), truelight@1322: OCL_SVAR( OC_UINT8, AiBuildRec, direction ), truelight@1322: OCL_SVAR( OC_UINT8, AiBuildRec, cargo ), truelight@1322: truelight@1322: OCL_NULL( 8 ), // Junk... truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool OldLoadAIBuildRec(LoadgameState *ls, int num) truelight@1322: { celestar@1962: Player *p = GetPlayer(_current_player_id); truelight@1322: truelight@1322: switch (num) { truelight@1322: case 0: return LoadChunk(ls, &p->ai.src, player_ai_build_rec_chunk); truelight@1322: case 1: return LoadChunk(ls, &p->ai.dst, player_ai_build_rec_chunk); truelight@1322: case 2: return LoadChunk(ls, &p->ai.mid1, player_ai_build_rec_chunk); truelight@1322: case 3: return LoadChunk(ls, &p->ai.mid2, player_ai_build_rec_chunk); truelight@1322: } truelight@1322: truelight@1322: return false; truelight@1322: } truelight@1322: static const OldChunks player_ai_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, state ), truelight@1322: OCL_NULL( 1 ), // Junk truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, state_mode ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, state_counter ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, timeout_counter ), truelight@1322: truelight@1322: OCL_CHUNK( 4, OldLoadAIBuildRec ), truelight@1322: truelight@1322: OCL_NULL( 20 ), // More junk truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, cargo_type ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, num_wagons ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, build_kind ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, num_build_rec ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, num_loco_to_build ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, num_want_fullload ), truelight@1322: truelight@1322: OCL_NULL( 14 ), // Oh no more junk :| truelight@1322: truelight@1322: OCL_NULL( 2 ), // Loco-id, not used truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[0] ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[1] ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[2] ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[3] ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[4] ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[5] ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[6] ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[7] ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, wagon_list[8] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[0] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[1] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[2] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[3] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[4] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[5] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[6] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[7] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[8] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[9] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[10] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[11] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[12] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[13] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[14] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[15] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[16] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[17] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[18] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, order_list_blocks[19] ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, start_tile_a ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, start_tile_b ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, cur_tile_a ), truelight@1322: OCL_SVAR( OC_UINT16, PlayerAI, cur_tile_b ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, start_dir_a ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, start_dir_b ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, cur_dir_a ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, cur_dir_b ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_tile_count ), truelight@1322: truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[0] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[0] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[1] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[1] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[2] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[2] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[3] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[3] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[4] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[4] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[5] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[5] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[6] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[6] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[7] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[7] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[8] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[8] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[9] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[9] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[10] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[10] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[11] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[11] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[12] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[12] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[13] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[13] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[14] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[14] ), truelight@1322: OCL_SVAR( OC_TILE, PlayerAI, banned_tiles[15] ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, banned_val[15] ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, railtype_to_use ), truelight@1322: OCL_SVAR( OC_UINT8, PlayerAI, route_type_mask ), truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool OldPlayerAI(LoadgameState *ls, int num) truelight@1322: { celestar@1962: Player *p = GetPlayer(_current_player_id); truelight@1322: truelight@1322: return LoadChunk(ls, &p->ai, player_ai_chunk); truelight@1322: } truelight@1322: truelight@1322: static const OldChunks player_chunk[] = { truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_string_id ), truelight@1322: OCL_SVAR( OC_UINT32, Player, name_2 ), truelight@1322: OCL_SVAR( OC_UINT32, Player, face ), truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_string_id_2 ), truelight@1322: OCL_SVAR( OC_UINT32, Player, president_name_2 ), truelight@1322: truelight@1322: OCL_SVAR( OC_INT32, Player, player_money ), truelight@1322: OCL_SVAR( OC_INT32, Player, current_loan ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Player, player_color ), truelight@1322: OCL_SVAR( OC_UINT8, Player, player_money_fraction ), truelight@1322: OCL_SVAR( OC_UINT8, Player, quarters_of_bankrupcy ), truelight@1322: OCL_SVAR( OC_UINT8, Player, bankrupt_asked ), truelight@1322: OCL_SVAR( OC_UINT32, Player, bankrupt_value ), truelight@1322: OCL_SVAR( OC_UINT16, Player, bankrupt_timeout ), truelight@1322: truelight@1322: OCL_SVAR( OC_FILE_U32 | OC_VAR_U16, Player, cargo_types ), truelight@1322: truelight@1322: OCL_CHUNK( 3, OldPlayerYearly ), truelight@1322: OCL_CHUNK( 1, OldPlayerEconomy ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_inaugurated_year ), truelight@1322: OCL_SVAR( OC_TILE, Player, last_build_coordinate ), truelight@1322: OCL_SVAR( OC_UINT8, Player, num_valid_stat_ent ), truelight@1322: truelight@1322: OCL_CHUNK( 1, OldPlayerAI ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Player, block_preview ), truelight@1322: OCL_SVAR( OC_UINT8, Player, ai.tick ), celestar@2147: OCL_SVAR( OC_UINT8, Player, avail_railtypes ), truelight@1322: OCL_SVAR( OC_TILE, Player, location_of_house ), truelight@1322: OCL_SVAR( OC_UINT8, Player, share_owners[0] ), truelight@1322: OCL_SVAR( OC_UINT8, Player, share_owners[1] ), truelight@1322: OCL_SVAR( OC_UINT8, Player, share_owners[2] ), truelight@1322: OCL_SVAR( OC_UINT8, Player, share_owners[3] ), truelight@1322: truelight@1322: OCL_NULL( 8 ), // junk at end of chunk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; tron@2951: truelight@1322: static bool LoadOldPlayer(LoadgameState *ls, int num) truelight@1322: { celestar@1962: Player *p = GetPlayer(num); truelight@1322: truelight@1322: _current_player_id = num; truelight@1322: Darkvater@3626: if (!LoadChunk(ls, p, player_chunk)) return false; truelight@1322: truelight@1322: p->name_1 = RemapOldStringID(_old_string_id); truelight@1322: p->president_name_1 = RemapOldStringID(_old_string_id_2); truelight@1322: p->money64 = p->player_money; truelight@1322: truelight@1322: if (num == 0) { truelight@1322: /* If the first player has no name, make sure we call it UNNAMED */ truelight@1322: if (p->name_1 == 0) truelight@1322: p->name_1 = STR_SV_UNNAMED; truelight@1322: } else { truelight@1322: /* Beside some multiplayer maps (1 on 1), which we don't official support, truelight@1322: all other players are an AI.. mark them as such */ Darkvater@3345: p->is_ai = true; truelight@1322: } truelight@1322: truelight@1322: /* Sometimes it is better to not ask.. in old scenarios, the money truelight@1322: was always 893288 pounds. In the newer versions this is correct, truelight@1322: but correct for those oldies truelight@1322: Ps: this also means that if you had exact 893288 pounds, you will go back truelight@1322: to 10000.. this is a very VERY small chance ;) */ truelight@1326: if (p->player_money == 893288) truelight@1322: p->money64 = p->player_money = p->current_loan = 100000; truelight@1322: truelight@1322: _player_colors[num] = p->player_color; rubidium@4326: p->inaugurated_year = _old_inaugurated_year; truelight@1322: if (p->location_of_house == 0xFFFF) truelight@1322: p->location_of_house = 0; truelight@1322: Darkvater@2019: /* State 20 for AI players is sell vehicle. Since the AI struct is not Darkvater@2019: * really figured out as of now, p->ai.cur_veh; needed for 'sell vehicle' Darkvater@2019: * is NULL and the function will crash. To fix this, just change the state Darkvater@2019: * to some harmless state, like 'loop vehicle'; 1 */ Darkvater@4845: if (!IsHumanPlayer(num) && p->ai.state == 20) p->ai.state = 1; Darkvater@2019: peter1138@2814: if (p->is_ai && (!_networking || _network_server) && _ai.enabled) peter1138@2814: AI_StartNewAI(p->index); peter1138@2814: truelight@1322: return true; truelight@1322: } truelight@1322: truelight@1322: static uint32 _old_order_ptr; truelight@1322: static uint16 _old_next_ptr; truelight@1322: static uint32 _current_vehicle_id; truelight@1322: truelight@1322: static const OldChunks vehicle_train_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT8, VehicleRail, track ), truelight@1322: OCL_SVAR( OC_UINT8, VehicleRail, force_proceed ), truelight@1322: OCL_SVAR( OC_UINT16, VehicleRail, crash_anim_pos ), truelight@1322: OCL_SVAR( OC_UINT8, VehicleRail, railtype ), truelight@1322: truelight@1322: OCL_NULL( 5 ), // Junk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static const OldChunks vehicle_road_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT8, VehicleRoad, state ), truelight@1322: OCL_SVAR( OC_UINT8, VehicleRoad, frame ), peter1138@3009: OCL_SVAR( OC_UINT16, VehicleRoad, blocked_ctr ), truelight@1322: OCL_SVAR( OC_UINT8, VehicleRoad, overtaking ), truelight@1322: OCL_SVAR( OC_UINT8, VehicleRoad, overtaking_ctr ), truelight@1322: OCL_SVAR( OC_UINT16, VehicleRoad, crashed_ctr ), truelight@1322: OCL_SVAR( OC_UINT8, VehicleRoad, reverse_ctr ), truelight@1322: truelight@1322: OCL_NULL( 1 ), // Junk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static const OldChunks vehicle_ship_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT8, VehicleShip, state ), truelight@1322: truelight@1322: OCL_NULL( 9 ), // Junk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static const OldChunks vehicle_air_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT8, VehicleAir, pos ), truelight@1322: OCL_SVAR( OC_FILE_U8 | OC_VAR_U16, VehicleAir, targetairport ), truelight@1322: OCL_SVAR( OC_UINT16, VehicleAir, crashed_counter ), truelight@1322: OCL_SVAR( OC_UINT8, VehicleAir, state ), truelight@1322: truelight@1322: OCL_NULL( 5 ), // Junk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static const OldChunks vehicle_special_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT16, VehicleSpecial, unk0 ), truelight@1322: OCL_SVAR( OC_UINT8, VehicleSpecial, unk2 ), truelight@1322: truelight@1322: OCL_NULL( 7 ), // Junk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static const OldChunks vehicle_disaster_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT16, VehicleDisaster, image_override ), truelight@1322: OCL_SVAR( OC_UINT16, VehicleDisaster, unk2 ), truelight@1322: truelight@1322: OCL_NULL( 6 ), // Junk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static const OldChunks vehicle_empty_chunk[] = { truelight@1322: OCL_NULL( 10 ), // Junk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldVehicleUnion(LoadgameState *ls, int num) truelight@1322: { truelight@1322: Vehicle *v = GetVehicle(_current_vehicle_id); truelight@1322: uint temp = ls->total_read; truelight@1322: bool res; truelight@1322: truelight@1322: switch (v->type) { truelight@1322: case VEH_Train: res = LoadChunk(ls, &v->u.rail, vehicle_train_chunk); break; truelight@1322: case VEH_Road: res = LoadChunk(ls, &v->u.road, vehicle_road_chunk); break; truelight@1322: case VEH_Ship: res = LoadChunk(ls, &v->u.ship, vehicle_ship_chunk); break; truelight@1322: case VEH_Aircraft: res = LoadChunk(ls, &v->u.air, vehicle_air_chunk); break; truelight@1322: case VEH_Special: res = LoadChunk(ls, &v->u.special, vehicle_special_chunk); break; truelight@1322: case VEH_Disaster: res = LoadChunk(ls, &v->u.disaster, vehicle_disaster_chunk); break; truelight@1322: default: res = LoadChunk(ls, NULL, vehicle_empty_chunk); break; truelight@1322: } truelight@1322: truelight@1322: /* This chunk size should always be 10 bytes */ truelight@1322: if (ls->total_read - temp != 10) { Darkvater@5568: DEBUG(oldloader, 4, "Assert failed in Vehicle"); truelight@1322: return false; truelight@1322: } truelight@1322: truelight@1322: return res; truelight@1322: } truelight@1322: truelight@1322: static const OldChunks vehicle_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, type ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, subtype ), truelight@1322: truelight@1326: OCL_NULL( 2 ), // Hash, calculated automatically truelight@1326: OCL_NULL( 2 ), // Index, calculated automatically truelight@1322: truelight@1322: OCL_VAR ( OC_UINT32, 1, &_old_order_ptr ), truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_order ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, num_orders ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, cur_order_index ), truelight@1322: OCL_SVAR( OC_TILE, Vehicle, dest_tile ), truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, load_unload_time_rem ), rubidium@4326: OCL_SVAR( OC_FILE_U16 | OC_VAR_U32, Vehicle, date_of_last_service ), truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, service_interval ), truelight@1322: OCL_SVAR( OC_FILE_U8 | OC_VAR_U16, Vehicle, last_station_visited ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, tick_counter ), truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, max_speed ), truelight@1322: truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, Vehicle, x_pos ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, Vehicle, y_pos ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, z_pos ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, direction ), truelight@1322: OCL_SVAR( OC_INT8, Vehicle, x_offs ), truelight@1322: OCL_SVAR( OC_INT8, Vehicle, y_offs ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, sprite_width ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, sprite_height ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, z_height ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, owner ), truelight@1322: OCL_SVAR( OC_TILE, Vehicle, tile ), truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, cur_image ), truelight@1322: truelight@1326: OCL_NULL( 8 ), // Vehicle sprite box, calculated automatically truelight@1322: truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_U8, Vehicle, vehstatus ), truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, cur_speed ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, subspeed ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, acceleration ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, progress ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, cargo_type ), truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, cargo_cap ), truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, cargo_count ), truelight@1322: OCL_SVAR( OC_FILE_U8 | OC_VAR_U16, Vehicle, cargo_source ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, cargo_days ), truelight@1322: rubidium@4326: OCL_SVAR( OC_FILE_U16 | OC_VAR_U32, Vehicle, age ), rubidium@4326: OCL_SVAR( OC_FILE_U16 | OC_VAR_U32, Vehicle, max_age ), rubidium@4326: OCL_SVAR( OC_FILE_U8 | OC_VAR_I32, Vehicle, build_year ), truelight@1322: OCL_SVAR( OC_FILE_U8 | OC_VAR_U16, Vehicle, unitnumber ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, engine_type ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, spritenum ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, day_counter ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, breakdowns_since_last_service ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, breakdown_ctr ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, breakdown_delay ), truelight@1322: OCL_SVAR( OC_UINT8, Vehicle, breakdown_chance ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, reliability ), truelight@1322: OCL_SVAR( OC_UINT16, Vehicle, reliability_spd_dec ), truelight@1322: truelight@1322: OCL_SVAR( OC_INT32, Vehicle, profit_this_year ), truelight@1322: OCL_SVAR( OC_INT32, Vehicle, profit_last_year ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_next_ptr ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT32, Vehicle, value ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT16, 1, &_old_string_id ), truelight@1322: truelight@1322: OCL_CHUNK( 1, LoadOldVehicleUnion ), truelight@1322: truelight@1322: OCL_NULL( 20 ), // Junk at end of struct (TTDPatch has some data in it) truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldVehicle(LoadgameState *ls, int num) truelight@1322: { tron@959: uint i; truelight@0: truelight@1322: /* Read the TTDPatch flags, because we need some info from it */ truelight@1322: ReadTTDPatchFlags(); truelight@0: Darkvater@3626: for (i = 0; i < _old_vehicle_multiplier; i++) { truelight@1322: Vehicle *v; truelight@0: Darkvater@3626: _current_vehicle_id = num * _old_vehicle_multiplier + i; truelight@1322: tron@4972: if (!AddBlockIfNeeded(&_Vehicle_pool, _current_vehicle_id)) truelight@1322: error("Vehicles: failed loading savegame: too many vehicles"); truelight@1322: truelight@1322: v = GetVehicle(_current_vehicle_id); Darkvater@3626: if (!LoadChunk(ls, v, vehicle_chunk)) return false; truelight@1322: truelight@1340: /* This should be consistent, else we have a big problem... */ truelight@1340: if (v->index != _current_vehicle_id) { Darkvater@5568: DEBUG(oldloader, 0, "Loading failed - vehicle-array is invalid"); truelight@1340: return false; truelight@1340: } truelight@1340: truelight@1322: if (_old_order_ptr != 0 && _old_order_ptr != 0xFFFFFFFF) { truelight@1322: v->orders = GetOrder(REMAP_ORDER_IDX(_old_order_ptr)); truelight@1322: } truelight@1322: AssignOrder(&v->current_order, UnpackOldOrder(_old_order)); truelight@1322: truelight@1322: /* For some reason we need to correct for this */ truelight@1322: switch (v->spritenum) { truelight@1322: case 0xfd: break; truelight@1322: case 0xff: v->spritenum = 0xfe; break; truelight@1322: default: v->spritenum >>= 1; break; truelight@1322: } truelight@1322: truelight@1322: if (_old_next_ptr != 0xFFFF) truelight@1322: v->next = GetVehicle(_old_next_ptr); truelight@1322: truelight@1322: v->string_id = RemapOldStringID(_old_string_id); truelight@1322: truelight@1322: /* Vehicle-subtype is different in TTD(Patch) */ Darkvater@3626: if (v->type == VEH_Special) v->subtype = v->subtype >> 1; truelight@0: } truelight@0: truelight@1322: return true; truelight@1322: } truelight@1322: truelight@1322: static const OldChunks sign_chunk[] = { truelight@4349: OCL_SVAR( OC_UINT16, Sign, str ), truelight@4349: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32,Sign, x ), truelight@4349: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32,Sign, y ), truelight@4349: OCL_SVAR( OC_FILE_U16 | OC_VAR_I8, Sign, z ), truelight@1322: truelight@1322: OCL_NULL( 6 ), // Width of sign, no longer in use truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldSign(LoadgameState *ls, int num) truelight@1322: { tron@4979: if (!AddBlockIfNeeded(&_Sign_pool, num)) truelight@1322: error("Signs: failed loading savegame: too many signs"); truelight@1322: truelight@1322: return LoadChunk(ls, GetSign(num), sign_chunk); truelight@1322: } truelight@1322: truelight@1322: static const OldChunks engine_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT16, Engine, player_avail ), rubidium@4326: OCL_SVAR( OC_FILE_U16 | OC_VAR_U32, Engine, intro_date ), rubidium@4326: OCL_SVAR( OC_FILE_U16 | OC_VAR_U32, Engine, age ), truelight@1322: OCL_SVAR( OC_UINT16, Engine, reliability ), truelight@1322: OCL_SVAR( OC_UINT16, Engine, reliability_spd_dec ), truelight@1322: OCL_SVAR( OC_UINT16, Engine, reliability_start ), truelight@1322: OCL_SVAR( OC_UINT16, Engine, reliability_max ), truelight@1322: OCL_SVAR( OC_UINT16, Engine, reliability_final ), truelight@1322: OCL_SVAR( OC_UINT16, Engine, duration_phase_1 ), truelight@1322: OCL_SVAR( OC_UINT16, Engine, duration_phase_2 ), truelight@1322: OCL_SVAR( OC_UINT16, Engine, duration_phase_3 ), truelight@1322: truelight@1322: OCL_SVAR( OC_UINT8, Engine, lifelength ), truelight@1322: OCL_SVAR( OC_UINT8, Engine, flags ), truelight@1322: OCL_SVAR( OC_UINT8, Engine, preview_player ), truelight@1322: OCL_SVAR( OC_UINT8, Engine, preview_wait ), truelight@1322: OCL_SVAR( OC_UINT8, Engine, railtype ), truelight@1322: truelight@1322: OCL_NULL( 1 ), // Junk truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldEngine(LoadgameState *ls, int num) truelight@1322: { tron@2951: if (!LoadChunk(ls, GetEngine(num), engine_chunk)) return false; truelight@1322: truelight@1322: /* Make sure wagons are marked as do-not-age */ truelight@1322: if ((num >= 27 && num < 54) || (num >= 57 && num < 84) || (num >= 89 && num < 116)) tron@1926: GetEngine(num)->age = 0xFFFF; truelight@1322: truelight@1322: return true; truelight@1322: } truelight@1322: truelight@1322: static const OldChunks subsidy_chunk[] = { truelight@1322: OCL_SVAR( OC_UINT8, Subsidy, cargo_type ), truelight@1322: OCL_SVAR( OC_UINT8, Subsidy, age ), truelight@1322: OCL_SVAR( OC_FILE_U8 | OC_VAR_U16, Subsidy, from ), truelight@1322: OCL_SVAR( OC_FILE_U8 | OC_VAR_U16, Subsidy, to ), truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: Darkvater@3626: static inline bool LoadOldSubsidy(LoadgameState *ls, int num) truelight@1322: { truelight@1322: return LoadChunk(ls, &_subsidies[num], subsidy_chunk); truelight@1322: } truelight@1322: truelight@1322: static const OldChunks game_difficulty_chunk[] = { truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, max_no_competitors ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, competitor_start_time ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, number_towns ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, number_industries ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, max_loan ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, initial_interest ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, vehicle_costs ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, competitor_speed ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, competitor_intelligence ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, vehicle_breakdowns ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, subsidy_multiplier ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, construction_cost ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, terrain_type ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, quantity_sea_lakes ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, economy ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, line_reverse_mode ), truelight@1322: OCL_SVAR( OC_FILE_U16 | OC_VAR_I32, GameDifficulty, disasters ), truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: Darkvater@3626: static inline bool LoadOldGameDifficulty(LoadgameState *ls, int num) truelight@1322: { truelight@1322: return LoadChunk(ls, &_opt.diff, game_difficulty_chunk); truelight@1322: } truelight@1322: truelight@1322: truelight@1322: static bool LoadOldMapPart1(LoadgameState *ls, int num) truelight@1322: { truelight@1322: uint i; truelight@1322: truelight@1322: for (i = 0; i < OLD_MAP_SIZE; i++) { tron@2360: _m[i].m1 = ReadByte(ls); truelight@1322: } truelight@1322: for (i = 0; i < OLD_MAP_SIZE; i++) { tron@2049: _m[i].m2 = ReadByte(ls); truelight@1322: } truelight@1322: for (i = 0; i < OLD_MAP_SIZE; i++) { truelight@1322: _old_map3[i * 2] = ReadByte(ls); truelight@1322: _old_map3[i * 2 + 1] = ReadByte(ls); truelight@1322: } truelight@1322: for (i = 0; i < OLD_MAP_SIZE / 4; i++) { tron@2049: byte b = ReadByte(ls); tron@2049: _m[i * 4 + 0].extra = GB(b, 0, 2); tron@2049: _m[i * 4 + 1].extra = GB(b, 2, 2); tron@2049: _m[i * 4 + 2].extra = GB(b, 4, 2); tron@2049: _m[i * 4 + 3].extra = GB(b, 6, 2); truelight@1322: } truelight@1322: truelight@1326: return !ls->failed; truelight@1322: } Darkvater@3626: truelight@1322: static bool LoadOldMapPart2(LoadgameState *ls, int num) truelight@1322: { truelight@1322: uint i; truelight@1322: truelight@1322: for (i = 0; i < OLD_MAP_SIZE; i++) { tron@2049: _m[i].type_height = ReadByte(ls); truelight@1322: } truelight@1322: for (i = 0; i < OLD_MAP_SIZE; i++) { tron@2049: _m[i].m5 = ReadByte(ls); truelight@1322: } truelight@1322: truelight@1326: return !ls->failed; truelight@1322: } truelight@1322: truelight@1322: static uint32 _old_cur_town_ctr; truelight@1322: static const OldChunks main_chunk[] = { truelight@1322: OCL_ASSERT( 0 ), rubidium@4326: OCL_VAR ( OC_FILE_U16 | OC_VAR_U32, 1, &_date ), truelight@1322: OCL_VAR ( OC_UINT16, 1, &_date_fract ), truelight@1322: OCL_NULL( 600 ), // TextEffects truelight@1322: OCL_VAR ( OC_UINT32, 2, &_random_seeds[0] ), truelight@1322: truelight@1322: OCL_ASSERT( 0x264 ), truelight@1322: OCL_CHUNK( 70, LoadOldTown ), truelight@1322: OCL_ASSERT( 0x1C18 ), truelight@1322: OCL_CHUNK(5000, LoadOldOrder ), truelight@1322: OCL_ASSERT( 0x4328 ), truelight@1322: truelight@1322: OCL_VAR ( OC_TILE, 256, &_animated_tile_list[0] ), truelight@1322: OCL_NULL( 4 ), // old end-of-order-list-pointer, no longer in use truelight@1322: truelight@1322: OCL_CHUNK( 255, LoadOldDepot ), truelight@1322: OCL_ASSERT( 0x4B26 ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT32, 1, &_old_cur_town_ctr ), truelight@1322: OCL_NULL( 2 ), // timer_counter, no longer in use truelight@1322: OCL_NULL( 2 ), // land_code, no longer in use truelight@1322: truelight@1322: OCL_VAR ( OC_FILE_U16 | OC_VAR_U8, 1, &_age_cargo_skip_counter ), truelight@1322: OCL_VAR ( OC_UINT16, 1, &_tick_counter ), truelight@1322: OCL_VAR ( OC_TILE, 1, &_cur_tileloop_tile ), truelight@1322: truelight@1322: OCL_CHUNK( 49, LoadOldPrice ), truelight@1322: OCL_CHUNK( 12, LoadOldCargoPaymentRate ), truelight@1322: truelight@1322: OCL_ASSERT( 0x4CBA ), truelight@1322: truelight@1322: OCL_CHUNK( 1, LoadOldMapPart1 ), truelight@1322: truelight@1322: OCL_ASSERT( 0x48CBA ), truelight@1322: truelight@1322: OCL_CHUNK(250, LoadOldStation ), truelight@1322: OCL_CHUNK( 90, LoadOldIndustry ), truelight@1322: OCL_CHUNK( 8, LoadOldPlayer ), truelight@1322: truelight@1322: OCL_ASSERT( 0x547F2 ), truelight@1322: truelight@1322: OCL_CHUNK( 850, LoadOldVehicle ), truelight@1322: truelight@1322: OCL_ASSERT( 0x6F0F2 ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT8, 32 * 500, &_name_array[0] ), truelight@1322: truelight@1322: OCL_NULL( 0x2000 ), // Old hash-table, no longer in use truelight@1322: truelight@1322: OCL_CHUNK( 40, LoadOldSign ), truelight@1322: OCL_CHUNK(256, LoadOldEngine ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT16, 1, &_vehicle_id_ctr_day ), truelight@1322: truelight@1322: OCL_CHUNK( 8, LoadOldSubsidy ), truelight@1322: truelight@1322: OCL_VAR ( OC_FILE_U16 | OC_VAR_U32, 1, &_next_competitor_start ), truelight@1322: OCL_VAR ( OC_FILE_I16 | OC_VAR_I32, 1, &_saved_scrollpos_x ), truelight@1322: OCL_VAR ( OC_FILE_I16 | OC_VAR_I32, 1, &_saved_scrollpos_y ), truelight@1322: OCL_VAR ( OC_FILE_U16 | OC_VAR_U8, 1, &_saved_scrollpos_zoom ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT32, 1, &_economy.max_loan ), truelight@1322: OCL_VAR ( OC_UINT32, 1, &_economy.max_loan_unround ), truelight@1322: OCL_VAR ( OC_FILE_U16 | OC_VAR_U32, 1, &_economy.fluct ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT16, 1, &_disaster_delay ), truelight@1322: truelight@1322: OCL_NULL( 144 ), // cargo-stuff, calculated in InitializeLandscapeVariables truelight@1322: truelight@1322: OCL_VAR ( OC_UINT16, 256, &_engine_name_strings[0] ), truelight@1322: truelight@1322: OCL_NULL( 144 ), // AI cargo-stuff, calculated in InitializeLandscapeVariables truelight@1322: OCL_NULL( 2 ), // Company indexes of players, no longer in use truelight@1322: truelight@1322: OCL_VAR ( OC_FILE_U8 | OC_VAR_U16, 1, &_station_tick_ctr ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT8, 1, &_opt.currency ), peter1138@3342: OCL_VAR ( OC_UINT8, 1, &_opt.units ), truelight@1322: OCL_VAR ( OC_FILE_U8 | OC_VAR_U32, 1, &_cur_player_tick_index ), truelight@1322: truelight@1326: OCL_NULL( 2 ), // Date stuff, calculated automatically truelight@1326: OCL_NULL( 8 ), // Player colors, calculated automatically truelight@1322: truelight@1322: OCL_VAR ( OC_UINT8, 1, &_economy.infl_amount ), truelight@1322: OCL_VAR ( OC_UINT8, 1, &_economy.infl_amount_pr ), truelight@1322: OCL_VAR ( OC_UINT8, 1, &_economy.interest_rate ), truelight@1322: OCL_VAR ( OC_UINT8, 1, &_avail_aircraft ), truelight@1322: OCL_VAR ( OC_UINT8, 1, &_opt.road_side ), truelight@1322: OCL_VAR ( OC_UINT8, 1, &_opt.town_name ), truelight@1322: truelight@1322: OCL_CHUNK( 1, LoadOldGameDifficulty ), truelight@1322: truelight@1322: OCL_ASSERT( 0x77130 ), truelight@1322: truelight@1322: OCL_VAR ( OC_UINT8, 1, &_opt.diff_level ), truelight@1322: OCL_VAR ( OC_UINT8, 1, &_opt.landscape ), truelight@1322: OCL_VAR ( OC_UINT8, 1, &_trees_tick_ctr ), truelight@1322: truelight@1322: OCL_NULL( 1 ), // Custom vehicle types yes/no, no longer used truelight@1322: OCL_VAR ( OC_UINT8, 1, &_opt.snow_line ), truelight@1322: truelight@1322: OCL_NULL( 32 ), // new_industry_randtable, no longer used (because of new design) truelight@1322: OCL_NULL( 36 ), // cargo-stuff, calculated in InitializeLandscapeVariables truelight@1322: truelight@1322: OCL_ASSERT( 0x77179 ), truelight@1322: truelight@1322: OCL_CHUNK( 1, LoadOldMapPart2 ), truelight@1322: truelight@1322: OCL_ASSERT( 0x97179 ), truelight@1322: truelight@1322: /* Below any (if available) extra chunks from TTDPatch can follow */ truelight@1322: truelight@1322: OCL_END() truelight@1322: }; Darkvater@3626: truelight@1322: static bool LoadOldMain(LoadgameState *ls) truelight@1322: { truelight@1322: int i; truelight@1322: truelight@1322: /* The first 49 is the name of the game + checksum, skip it */ truelight@1322: fseek(ls->file, HEADER_SIZE, SEEK_SET); truelight@1322: Darkvater@5568: DEBUG(oldloader, 4, "Reading main chunk..."); truelight@1322: /* Load the biggest chunk */ tron@2452: if (!LoadChunk(ls, NULL, main_chunk)) { Darkvater@5568: DEBUG(oldloader, 0, "Loading failed"); truelight@1322: return false; truelight@1322: } Darkvater@5568: DEBUG(oldloader, 4, "Done, converting game data..."); truelight@1322: truelight@1322: /* Fix some general stuff */ truelight@1322: _opt.landscape = _opt.landscape & 0xF; truelight@1322: truelight@1322: /* Remap some pointers */ truelight@1322: _cur_town_ctr = REMAP_TOWN_IDX(_old_cur_town_ctr); truelight@1322: truelight@1322: /* _old_map3 is changed in _map3_lo and _map3_hi */ truelight@1322: for (i = 0; i < OLD_MAP_SIZE; i++) { tron@2049: _m[i].m3 = _old_map3[i * 2]; tron@2049: _m[i].m4 = _old_map3[i * 2 + 1]; truelight@1322: } truelight@1322: truelight@1322: for (i = 0; i < OLD_MAP_SIZE; i ++) { Darkvater@2019: if (IsTileType(i, MP_RAILWAY)) { Darkvater@2019: /* We save presignals different from TTDPatch, convert them */ rubidium@3792: if (GetRailTileType(i) == RAIL_TILE_SIGNALS) { Darkvater@2019: /* This byte is always zero in TTD for this type of tile */ tron@2049: if (_m[i].m4) /* Convert the presignals to our own format */ tron@2049: _m[i].m4 = (_m[i].m4 >> 1) & 7; truelight@0: } Darkvater@2019: /* TTDPatch stores PBS things in L6 and all elsewhere; so we'll just rubidium@4549: * clear it for ourselves and let OTTD's rebuild PBS itself */ tron@2049: _m[i].m4 &= 0xF; /* Only keep the lower four bits; upper four is PBS */ truelight@0: } truelight@0: } truelight@0: truelight@1322: /* Fix the game to be compatible with OpenTTD */ truelight@1322: FixOldTowns(); truelight@1322: FixOldStations(); truelight@1322: FixOldVehicles(); truelight@0: truelight@1322: AddTypeToEngines(); truelight@0: truelight@1322: /* We have a new difficulty setting */ truelight@1322: _opt.diff.town_council_tolerance = clamp(_opt.diff_level, 0, 2); truelight@0: Darkvater@5568: DEBUG(oldloader, 4, "Finished converting game data"); Darkvater@5568: DEBUG(oldloader, 1, "TTD(Patch) savegame successfully converted"); truelight@0: truelight@1322: return true; truelight@1322: } truelight@1322: truelight@1322: bool LoadOldSaveGame(const char *file) truelight@1322: { tron@2452: LoadgameState ls; tron@2452: Darkvater@5568: DEBUG(oldloader, 4, "Trying to load a TTD(Patch) savegame"); truelight@1322: tron@2452: InitLoading(&ls); truelight@1322: truelight@1322: /* Open file */ tron@2452: ls.file = fopen(file, "rb"); truelight@1322: tron@2452: if (ls.file == NULL) { Darkvater@5568: DEBUG(oldloader, 0, "Cannot open file '%s'", file); truelight@1322: return false; truelight@0: } truelight@0: truelight@1322: /* Load the main chunk */ tron@2452: if (!LoadOldMain(&ls)) return false; truelight@193: tron@2452: fclose(ls.file); truelight@1322: truelight@1340: _pause = 2; truelight@1340: truelight@0: return true; truelight@0: } truelight@0: Darkvater@4221: void GetOldSaveGameName(char *title, const char *path, const char *file) truelight@0: { Darkvater@4221: char filename[MAX_PATH]; Darkvater@4221: FILE *f; Darkvater@4221: Darkvater@4221: snprintf(filename, lengthof(filename), "%s" PATHSEP "%s", path, file); Darkvater@4221: f = fopen(filename, "rb"); Darkvater@4221: title[0] = '\0'; Darkvater@4221: title[48] = '\0'; truelight@0: Darkvater@3626: if (f == NULL) return; truelight@1326: Darkvater@3626: if (fread(title, 1, 48, f) != 48) snprintf(title, 48, "Corrupt file"); truelight@1322: truelight@0: fclose(f); truelight@0: }