#include "driver2.h"

#ifndef PSX
#include <stdint.h>
#include <SDL.h>
#endif // !PSX

#include <STRINGS.H>

#include "LIBETC.H"
#include "pad.h"
#include "spool.h"
#include "map.h"
#include "system.h"
#include "main.h"
#include "xaplay.h"
#include "director.h"
#include "sound.h"
#include "texture.h"
#include "models.h"
#include "objanim.h"
#include "glaunch.h"
#include "cars.h"
#include "cosmetic.h"
#include "denting.h"
#include "handling.h"
#include "mission.h"
#include "civ_ai.h"
#include "camera.h"
#include "dr2roads.h"

int date_date = 0xA11;
int date_time = 0x27220B;

int SpecialByRegion[4][20] = {
	{5, 1, 3, 3, 2, 2, 2, 3, 3, 3, 3, 1, 1, 1, 2, 3, 2, 2, 3, 0},
	{2, 4, 1, 1, 4, 4, 3, 3, 3, 3, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0},
	{2, 4, 1, 1, 1, 1, 1, 1, 4, 2, 3, 3, 5, 0, 0, 0, 0, 0, 0, 0},
	{2, 5, 4, 1, 2, 1, 4, 3, 2, 2, 2, 2, 3, 3, 3, 0, 0, 0, 0, 0},
};

char* model_spool_buffer = NULL;

int cell_objects_add[5];
int cell_slots_add[5];

typedef void(*spooledFuncPtr)();

SXYPAIR* Music_And_AmbientOffsets;

AreaDataStr* AreaData;
unsigned char* AreaTPages;	// 16 per area
int NumAreas;

char* RegionSpoolInfo;
unsigned short *spoolinfo_offsets;

char* specmallocptr;
char *specLoadBuffer;

int doSpooling = 1;

short loading_region[4];
int regions_unpacked[4];

int spool_regioncounter;
int spoolerror;	// UNUSED
int spool_regionpos;
volatile int spoolactive;	// volatile is required at least for PC
volatile int quickSpool;
int models_ready;

short specspooldata[3] = { 20, 10, 4 };

int tsetcounter;
int tsetpos;

int spoolcounter;
int spoolseek;		// Probably UNUSED

int loadbank_read;
int loadbank_write;

int spoolpos;
int spoolpos_reading;
int spoolpos_writing;

int allowSpecSpooling;
int startSpecSpool;

int unpack_roadmap_flag;
int unpack_cellptr_flag;

char *packed_cell_pointers;
SPL_REGIONINFO spool_regioninfo[8];

static int sectors_this_chunk;
static volatile int sectors_to_read;
static char *target_address;

static int nTPchunks;
static int nTPchunks_reading;
static int nTPchunks_writing;

static int ntpages;
static int current_sector;
static int switch_spooltype;

static int endchunk;
int send_bank;
int sample_chunk;
int chunk_complete;

int new_area_location;
int LoadingArea = 0;
unsigned short *newmodels = NULL;

SPOOLQ spooldata[48];

#ifdef _DEBUG
#define SPOOL_INFO printInfo
#define SPOOL_WARNING printWarning
#define SPOOL_ERROR printError
#else
#define SPOOL_INFO
#define SPOOL_WARNING
#define SPOOL_ERROR
#endif

#if !defined(PSX) && !defined(SIMPLE_SPOOL)
#include <assert.h>

typedef void(*data_callbackFn)(void);
typedef void(*ready_callbackFn)(unsigned char intr, unsigned char *result);

data_callbackFn g_dataCallbackPC = NULL;
ready_callbackFn g_readyCallbackPC = NULL;
char g_sectorData[2048] = { 0 };
bool g_isSectorDataRead = false;
bool g_spoolDoneFlag = false;

extern char g_CurrentLevelFileName[64];

SDL_Thread* levelSpoolerPCThread = NULL;
SDL_mutex* levelSpoolerPCMutex = NULL;
volatile int levelSpoolerSeekCmd = 0;

//-----------------------------------------------------
// copies read sector data to addr
//-----------------------------------------------------
void getLevSectorPC(char* dest, int count)
{
	count *= 4;

#ifdef _DEBUG
	SPOOLQ* which = &spooldata[spoolpos_reading];
	sectors_this_chunk;
	current_sector;
	sectors_to_read;
#endif // _DEBUG

	assert(count <= 2048);
	assert(dest);
	assert(sectors_to_read > 0);

	//SDL_LockMutex(levelSpoolerPCMutex);

	memcpy(dest, g_sectorData, count);
	g_isSectorDataRead = true;

	//SDL_UnlockMutex(levelSpoolerPCMutex);
}

void levelSpoolerPCDataCallback(data_callbackFn cb)
{
	SDL_LockMutex(levelSpoolerPCMutex);
	g_dataCallbackPC = cb;
	SDL_UnlockMutex(levelSpoolerPCMutex);
}

void levelSpoolerPCReadyCallback(ready_callbackFn cb)
{
	SDL_LockMutex(levelSpoolerPCMutex);
	g_readyCallbackPC = cb;
	SDL_UnlockMutex(levelSpoolerPCMutex);
}

// Main spooler thread function
int levelSpoolerPCFunc(void* data)
{
	//Print incoming data
	SPOOL_WARNING("Running SPOOL thread...\n");

	g_spoolDoneFlag = false;
	g_isSectorDataRead = false;

	ready_callbackFn readyCb = g_readyCallbackPC;
	data_callbackFn dataCb = g_dataCallbackPC;

	FILE* fp = fopen(g_CurrentLevelFileName, "rb");
	if (!fp)
	{
		char errPrint[1024];
		sprintf(errPrint, "Cannot open '%s'\n", g_CurrentLevelFileName);
		SDL_ShowSimpleMessageBox(SDL_MESSAGEBOX_ERROR, "ERROR", errPrint, NULL);

		if (readyCb)
			readyCb(0, { 0x0 });

		return -1;
	}

	do
	{
		SDL_LockMutex(levelSpoolerPCMutex);

		if (levelSpoolerSeekCmd != 0)
		{
			int sector = levelSpoolerSeekCmd;

			if (sector == -1)
			{
				SPOOL_INFO("SPOOL thread recieved 'CdlPause'\n", sector);

				levelSpoolerSeekCmd = 0;
				g_spoolDoneFlag = true;
			}
			else
			{
				SPOOL_INFO("SPOOL thread recieved 'CdlReadS' at %d\n", sector);

				// seek
				fseek(fp, sector * 2048, SEEK_SET);
				levelSpoolerSeekCmd = 0;
			}
		}

		dataCb = g_dataCallbackPC;
		readyCb = g_readyCallbackPC;

		SDL_UnlockMutex(levelSpoolerPCMutex);

		// clear sector before proceed
		ClearMem(g_sectorData, sizeof(g_sectorData));
		fread(g_sectorData, 1, 2048, fp);

		g_isSectorDataRead = false;

		if (readyCb)
		{
			readyCb(1, { 0x0 });
			
			if (g_isSectorDataRead && dataCb)
				dataCb();
		}
		else
			break;

	} while (!g_spoolDoneFlag);

	SPOOL_INFO("SPOOLER thread work done.\n");

	fclose(fp);

	return 0;
}

//-----------------------------------------------------
// reads sector from LEV file
//-----------------------------------------------------
void startReadLevSectorsPC(int sector)
{
	if (!levelSpoolerPCMutex)
		levelSpoolerPCMutex = SDL_CreateMutex();

	SDL_LockMutex(levelSpoolerPCMutex);
	levelSpoolerSeekCmd = sector;
	SDL_UnlockMutex(levelSpoolerPCMutex);

	if (levelSpoolerPCThread && g_spoolDoneFlag)
	{
		int returnValue;
		SDL_WaitThread(levelSpoolerPCThread, &returnValue);

		levelSpoolerPCThread = NULL;
	}

	if (!levelSpoolerPCThread)
	{
		levelSpoolerPCThread = SDL_CreateThread(levelSpoolerPCFunc, "Spooler", NULL);

		if (NULL == levelSpoolerPCThread)
		{
			SPOOL_ERROR("SDL_CreateThread failed: %s\n", SDL_GetError());
		}
	}
}
#endif // !PSX


// [D] [T]
int check_regions_present(void)
{
	int barrel_region;
	int x, z;
	int region_to_unpack;
	int num_regions_to_unpack;
	int leftright_unpack;
	int topbottom_unpack;
	int retval;
	AREA_LOAD_INFO regions_to_unpack[3];
	char textbuf[128];

	leftright_unpack = 0;
	topbottom_unpack = 0;
	num_regions_to_unpack = 0;

	if (current_barrel_region_xcell < 9) 
	{
		regions_to_unpack[0].xoffset = -1;
		if (region_x != 0) 
		{
			leftright_unpack = 1;
			num_regions_to_unpack = 1;
			regions_to_unpack[0].zoffset = 0;
		}
	}
	else if (current_barrel_region_xcell > 23)
	{
		regions_to_unpack[0].xoffset = 1;

		if (region_x < (cells_across >> 5))
		{
			leftright_unpack = 2;
			num_regions_to_unpack = 1;
			regions_to_unpack[0].zoffset = 0;
		}
	}

	if (current_barrel_region_zcell < 9 && region_z != 0)
	{
		topbottom_unpack = 1;

		regions_to_unpack[num_regions_to_unpack].xoffset = 0;
		regions_to_unpack[num_regions_to_unpack].zoffset = -1;
		num_regions_to_unpack++;
	}
	else if(current_barrel_region_zcell > 23 && region_z != 0)
	{
		topbottom_unpack = 2;

		regions_to_unpack[num_regions_to_unpack].xoffset = 0;
		regions_to_unpack[num_regions_to_unpack].zoffset = 1;
		num_regions_to_unpack++;
	}

	if (num_regions_to_unpack == 2) 
	{
		num_regions_to_unpack = 3;

		if (topbottom_unpack == 1) 
		{
			if (leftright_unpack == 1)
			{
				regions_to_unpack[2].xoffset = -1;
				regions_to_unpack[2].zoffset = -1;
			}
			else 
			{
				regions_to_unpack[2].xoffset = 1;
				regions_to_unpack[2].zoffset = -1;
			}
		}
		else 
		{
			if (leftright_unpack == 1) 
				regions_to_unpack[2].xoffset = -1;
			else 
				regions_to_unpack[2].xoffset = 1;

			regions_to_unpack[2].zoffset = 1;
		}
	}

	retval = 0;
	while (num_regions_to_unpack != 0) 
	{
		x = regions_to_unpack[retval].xoffset;
		z = regions_to_unpack[retval].zoffset;

		region_to_unpack = current_region + x + z * (cells_across >> 5);

		if (loading_region[(region_x + x & 1U) + (region_z + z & 1U) * 2] != -1 &&
			spoolinfo_offsets[region_to_unpack] != 0xffff &&
			loading_region[(region_x + x & 1U) + (region_z + z & 1U) * 2] == region_to_unpack)
		{
			retval++;
		}
		num_regions_to_unpack--;
	}

	if (LoadingArea != 0) 
	{
		if (new_area_location == 1)
		{
			if (current_barrel_region_xcell > 26)
			{
				retval++;
			}
		}
		else
		{
			if (new_area_location < 2) 
			{
				if (new_area_location == 0 && current_barrel_region_zcell > 26)
				{
					retval++;
				}
			}
			else
			{
				barrel_region = current_barrel_region_zcell;
				if ((new_area_location == 2 ||
					(barrel_region = current_barrel_region_xcell, new_area_location == 3)) &&
					barrel_region < 6) 
				{
					retval++;
				}
			}
		}
	}

	return retval;
}

// [D] [T]
void stopgame(void)
{
	StopPadVibration(0);
	StopPadVibration(1);
	PauseSFX();
	DrawSync(0);
	PutDrawEnv(&last->draw);
}

// [D] [T]
void startgame(void)
{
	PutDrawEnv(&current->draw);
	UnPauseSFX();
}

extern POLY_FT4 cd_sprite;
extern unsigned short cd_icon[288];

// [D] [T]
void DrawCDicon(void)
{
	ushort *palette;
	RECT16 dest;

	cd_icon[23] = cd_icon[11];

	palette = &cd_icon[10];

	for (int i = 0; i < 12; i++)
	{
		palette[1] = palette[2];
		palette++;
	}

	setRECT(&dest, 960, 433, 16, 1);
	LoadImage(&dest, (u_long *)palette);

	DrawPrim(&cd_sprite);
	DrawSync(0);
}

// [D] [T]
#ifdef _DEBUG
void _RequestSpool(int type, int data, int offset, int loadsize, char *address, spooledFuncPtr func, const char* requestby, int line)
#define RequestSpool(type, data, offset, loadsize, loadaddr, func) _RequestSpool(type, data, offset, loadsize, loadaddr, func, __FUNCTION__, __LINE__)
#else
void RequestSpool(int type, int data, int offset, int loadsize, char *address, spooledFuncPtr func)
#endif _DEBUG
{
	if (!(spoolcounter < 48))
		trap(0x400);

	SPOOLQ *next;

	next = &spooldata[spoolcounter];

	next->type = type;
	next->data = data;
	next->sector = (citylumps[GameLevel][CITYLUMP_SPOOL].x / 2048) + offset;
	next->nsectors = loadsize;
	next->addr = address;
	next->func = func;

#ifdef _DEBUG
	next->requestby = requestby;
	next->requestbyline = line;
#endif // _DEBUG

	spoolcounter++;
}

// [D] [T]
void InitSpooling(void)
{
	for (int i = 0; i < 4; i++)
	{
		loading_region[i] = -1;
		ClearRegion(i);
	}

	CleanSpooledModelSlots();

	newmodels = NULL;
	spool_regioncounter = 0;
	spoolerror = 0;
	spool_regionpos = 0;
	spoolactive = 0;
	tsetcounter = 0;
	models_ready = 0;
	tsetpos = 0;
	spoolcounter = 0;
	loadbank_read = 0;
	spoolpos = 0;
	unpack_roadmap_flag = 0;
	loadbank_write = 0;
	spoolseek = 0;
	unpack_cellptr_flag = 0;
}

int tsetinfo[32];

// [D] [T]
void SendTPage(void)
{
	unsigned char old;
	uint*clutptr;
	int slot;
	int npalettes;
	int tpage2send;
	int i;
	RECT16 cluts;

	tpage2send = tsetinfo[tsetpos * 2];
	slot = tsetinfo[tsetpos * 2 + 1];

	if (tpage2send == 0xFF || slot == 0xFF)	// [A] bug fix
		return;

	if (nTPchunks == 0) 
	{
		if (slot != tpageloaded[tpage2send] - 1)
		{
			npalettes = *(int *)(model_spool_buffer + 0xE000);

			tpage.w = 64;
			tpage.h = 64;
			cluts.w = 64;

			tpage.x = slot_tpagepos[slot].vx;
			tpage.y = slot_tpagepos[slot].vy;

			cluts.y = slot_clutpos[slot].vy;
			cluts.x = slot_clutpos[slot].vx;

			cluts.h = npalettes / 4 + 1;

			LoadImage(&cluts, (u_long *)(model_spool_buffer + 0xE000 + 4));

			clutptr = (uint*)(texture_cluts[tpage2send]);
			i = 0;

			while (i < npalettes)
			{
				clutptr[0] = getClut(cluts.x + 16, cluts.y) << 0x10 | getClut(cluts.x, cluts.y);
				clutptr[1] = getClut(cluts.x + 48, cluts.y) << 0x10 | getClut(cluts.x + 32, cluts.y);

				clutptr += 2;

				cluts.y++;

				i += 4;
			}

			texture_pages[tpage2send] = getTPage(0, 0, tpage.x, tpage.y);
		}
	}
	else 
	{
		if (slot != tpageloaded[tpage2send] - 1) 
		{
			LoadImage(&tpage, (u_long *)(model_spool_buffer + 0xA000 + (loadbank_write % 2) * 256 * 32));
			tpage.y = tpage.y + tpage.h;
		}

		if (nTPchunks == 4)
		{
			old = tpageslots[slot];
			tpageslots[slot] = tpage2send;

			if(old != 0xFF)	// [A] bug fix
				tpageloaded[old] = 0;

			tpageloaded[tpage2send] = slot + 1;

			tsetpos++;

			if (tsetpos == tsetcounter)
			{
				tsetcounter = 0;
				tsetpos = 0;
			}

#ifndef PSX
			// [A] try override
			LoadTPageFromTIMs(tpage2send);
#endif
		}
	}

	//extern void Emulator_SaveVRAM(const char* outputFileName, int x, int y, int width, int height, int bReadFromFrameBuffer);
	//Emulator_SaveVRAM("VRAM_CLUTS_TPAGES.TGA", 0, 0, 1024, 512, 1);
}

// [D] [T]
void SpoolSYNC(void)
{
	do {
	} while (spoolactive != 0);
}

// [D] [T]
void LoadInAreaTSets(int area)
{
	int offset;
	int i;

	int slot;

	unsigned char *tpages;
	int ntpages_to_load;
	int navailable;

	char *loadaddr;
	int availableslots[16];

	tpages = AreaTPages + area * 16;
	ntpages_to_load = AreaData[area].num_tpages;

	if (!ntpages_to_load)
		return;

	loadaddr = model_spool_buffer + 0xA000;
	navailable = 0;

	slot = slotsused;

	// get available slots
	for (slot = slotsused; slot < 19; slot++)
	{
		// use free slot immediately
		if (tpageslots[slot] == 0xff)
		{
			availableslots[navailable++] = slot;
			continue;
		}

		for (i = 0; i < ntpages_to_load; i++)
		{
			// check if needed tpages are not already loaded
			if (tpageslots[slot] != tpages[i])
			{
				availableslots[navailable++] = slot;
				break;
			}
		}
	}

	offset = AreaData[area].gfx_offset;

	i = 0;
	for (slot = 0; slot < navailable; slot++)
	{
		if (i < ntpages_to_load)
		{
			tsetinfo[tsetcounter * 2 + 1] = availableslots[slot];
			tsetinfo[tsetcounter * 2] = tpages[i];

			RequestSpool(1, 0, offset, 17, loadaddr, SendTPage);
			offset += 17;

			tsetcounter++;
			i++;
		}
		else
			break;
	}
}

// [D] [T]
void init_spooled_models(void)
{
	int nmodels;
	ushort lod;
	int model_number;
	MODEL *parentmodel;
	char *addr;
	MODEL *model;
	int i;
	int size;

	addr = model_spool_buffer;
	models_ready = 0;

	nmodels = *newmodels;

	SPOOL_INFO("loading %d model slots\n", nmodels);

	unsigned short* new_model_numbers = newmodels + 1;

	for (i = 0; i < nmodels; i++)
	{
		model_number = new_model_numbers[i];

		size = *(int *)addr;
		model = (MODEL *)(addr + 4);

		lod = Low2LowerDetailTable[model_number];

		if (lod != 0xffff && lod != model_number)
			pLodModels[model_number] = modelpointers[lod];

		if (model->instance_number == -1)
		{
			if (model->collision_block != 0)
				model->collision_block += (int)model;

			model->vertices += (int)model;
			model->normals += (int)model;
			model->point_normals += (int)model;

			InitSpooledAnimObj(model_number);
		}
		else
		{
			parentmodel = modelpointers[model->instance_number];

			if (parentmodel->collision_block != 0)
				model->collision_block = parentmodel->collision_block;

			model->vertices = parentmodel->vertices;
			model->normals = parentmodel->normals;
			model->point_normals = parentmodel->point_normals;

			InitSpooledAnimObj(parentmodel->instance_number);
		}
	
		model->poly_block += (int)model;

		modelpointers[model_number] = model;
		pLodModels[model_number] = model;

		addr += size + 4;
	}

	LoadingArea = 0;
}

// [D] [T]
void SetupModels(void)
{
	if (old_region == -1)
		init_spooled_models();
	else
		models_ready = 1;
}

// [D] [T]
void CheckValidSpoolData(void)
{
	if (models_ready)
		init_spooled_models();

	if (spoolactive)
	{
		if (check_regions_present())
		{
			stopgame();

			while (spoolactive)
			{
				DrawCDicon();
				VSync(0);
			}

			startgame();
		}
	}
}

// [D] [T]
void LoadInAreaModels(int area)
{
	int num_freed;

	// [A] invalidate previously used spooled slots
	num_freed = CleanSpooledModelSlots();

	SPOOL_INFO("freed %d model slots\n", num_freed);

	int length = AreaData[area].model_size;
	newmodels = (ushort *)(model_spool_buffer + (length-1) * 2048);

	RequestSpool(3, 0, AreaData[area].model_offset, length, model_spool_buffer, SetupModels);
}

// [D] [T]
void CheckLoadAreaData(int cellx, int cellz)
{
	int nAreas;
	int load;
	int force_load_boundary;
	int i;
	Spool *spoolptr;

	if (spoolinfo_offsets[current_region] == 0xffff)
		return;

	spoolptr = (Spool *)(RegionSpoolInfo + spoolinfo_offsets[current_region]);

#ifndef PSX
	// [A] this fixes spooling not activated bug (reversing bug?)
	if (LoadedArea != spoolptr->super_region && spoolptr->super_region != 0xFF && old_region != -1)
	{
		LoadedArea = spoolptr->super_region;
	}
	else
#endif
	if (old_region == -1 && spoolptr->super_region != 0xFF)
	{
		// just load the area if no
		LoadedArea = spoolptr->super_region;
	}
	else
	{
		nAreas = spoolptr->num_connected_areas;

		if (old_region == -1)
			LoadedArea = -1;
		else if (/*spoolptr->super_region == 0xFF ||*/ nAreas == 0)
			return;

		// [A] Rev 1.1 patch
#define BOUNDARY_MIN 15
#define BOUNDARY_MAX 17

		// check area bounds
		for (i = 0; i < nAreas; i++)
		{
			load = spoolptr->connected_areas[i] >> 6;

			if (LoadedArea != (spoolptr->connected_areas[i] & 0x3f))
			{
				new_area_location = load;

				// [A] bounds?
				if (load == 0 && (cellz > BOUNDARY_MAX))
				{
					break;
				}
				else if (load == 1 && (cellx > BOUNDARY_MAX))
				{
					break;
				}
				else if (load == 2 && (cellz < BOUNDARY_MIN))
				{
					break;
				}
				else if (load == 3 && (cellx < BOUNDARY_MIN))
				{
					break;
				}
			}
		}

		if (nAreas == i)
		{
			if (LoadedArea != -1)
				return;

			LoadedArea = initarea;

			if (initarea == -1)
				return;
		}
		else
		{
			LoadedArea = spoolptr->connected_areas[i] & 0x3f;
		}
	}

	LoadingArea = 1;

	LoadInAreaTSets(LoadedArea);
	LoadInAreaModels(LoadedArea);
}

// [D] [T]
void ClearRegion(int target_region)
{
	int *pvsptr;
	ushort *cell_ptrs_s;
	int loop;

	loop = 1024;
	cell_ptrs_s = cell_ptrs + target_region * 1024;
	pvsptr = (int *)PVS_Buffers[target_region];

	do {
		*cell_ptrs_s++ = 0xffff;
		*pvsptr++ = 0;
	} while (--loop != 0);

	ClearMem(PVS_Buffers[target_region]-4, pvsSize[target_region]);

	RoadMapDataRegions[target_region] = (short*)PVS_Buffers[0];
}

inline int _getIntAdv(char** ptr)
{
	int value = *(int*)*ptr;
	*ptr += 4;
	return value;
}

#define getIntAdv(ptr) _getIntAdv(&ptr)

// [D] [T]
void ProcessSpoolInfoLump(char *lump_ptr, int lump_size)
{
	int i;
	int size;
	char *alloclist;

	pvsSize[0] = 0;
	pvsSize[1] = 0;
	pvsSize[2] = 0;
	pvsSize[3] = 0;

	char* ptr = lump_ptr;

	size = getIntAdv(ptr) * 2048;

	if (size < 0x10000)
		size = 0x10000;	// smaller still should be fixed to 64k

	MALLOC_BEGIN();
	model_spool_buffer = D_MALLOC(size);
	MALLOC_END();

	cell_slots_add[4] = 0;
	cell_objects_add[4] = 0;

	int music_and_ambients_size = getIntAdv(ptr);
	Music_And_AmbientOffsets = (SXYPAIR *)ptr;	// [A] seems to be UNUSED
	ptr += music_and_ambients_size;

	NumAreas = getIntAdv(ptr);
	AreaData = (AreaDataStr *)ptr; 
	ptr += sizeof(AreaDataStr) * NumAreas;

	AreaTPages = (unsigned char *)ptr;
	ptr += NumAreas * 16;

	// get the pointers
	int* slots_add = (int *)ptr;
	ptr += sizeof(int) * 4;

	int* objects_add = (int *)ptr;
	ptr += sizeof(int) * 4;

	int* pvsSizes = (int *)ptr;
	ptr += sizeof(int) * 4;

	for (i = 0; i < 4; i++)
	{
		int slots_count = slots_add[i];
		int objects_count = objects_add[i];

		// set last totals
		cell_objects_add[i] = cell_objects_add[4];
		cell_slots_add[i] = cell_slots_add[4];
		
		// increment totals
		cell_slots_add[4] += slots_count;
		cell_objects_add[4] += objects_count;

		// by the fact it's a roadmap size + pvs size
		pvsSize[i] = pvsSizes[i] + 0x7ffU & 0xfffff800;

		MALLOC_BEGIN();
		alloclist = D_MALLOC(pvsSize[i]);
		MALLOC_END();

		PVS_Buffers[i] = alloclist + 4;		// +4 for -1 cases
	}

	int num_of_regions = getIntAdv(ptr);
	spoolinfo_offsets = (ushort*)ptr;
	ptr += sizeof(ushort) * num_of_regions;

	int spoolinfo_size = getIntAdv(ptr);
	RegionSpoolInfo = ptr;
}

// [D] [T]
void WaitCloseLid(void)
{
#ifdef PSX
	void (*old)();
	int loop;

	old = (void(*)())CdReadyCallback(0);
	stopgame();

	while (loop = CdDiskReady(1), loop != 2) 
	{
		DrawCDicon();
		VSync(0);
	}

	startgame();

	CdReadyCallback((CdlCB)old);
#endif // PSX
}

// [D] [T]
void FoundError(char *name, unsigned char intr, unsigned char *result)
{
#ifndef SIMPLE_SPOOL
	CdlLOC p;

#ifdef PSX
	if ((*result & 0x10) != 0)
	{
		WaitCloseLid();
	}
#endif // PSX


#ifdef _DEBUG
	SPOOL_ERROR("FoundError: %s, intr: %d\n", name, intr);
#endif // _DEBUG

	spoolerror = 0x3c;
#ifdef PSX
	CdIntToPos(current_sector, &p);
	CdControlF(CdlReadS, (u_char*)&p);
#else
	UNIMPLEMENTED();
#endif
#endif // SIMPLE_SPOOL
}

void test_changemode(void);
void changemode(SPOOLQ *current);

// [D] [T]
void data_cb_textures(void)
{
#ifndef SIMPLE_SPOOL
	//printf("data_cb_textures remaining: %d\n", sectors_to_read);

	if (chunk_complete != 0) 
	{
		chunk_complete = 0;
		nTPchunks = nTPchunks_writing;

		SendTPage();

		if (nTPchunks != 0)
			loadbank_write++;

		nTPchunks_writing++;

		if (nTPchunks_writing == 5)
		{
			nTPchunks_writing = 0;
			spoolpos_writing++;

			if (ntpages == 0)
			{
				if (switch_spooltype == 0)
				{
#ifdef PSX
					CdDataCallback(0);
#else
					levelSpoolerPCDataCallback(NULL);
#endif // PSX

					if (spoolpos_writing == spoolcounter)
					{
						SPOOL_WARNING("All SPOOL requests (%d) completed successfully on TEXTURES\n", spoolcounter);	// [A]

						spoolcounter = 0;
						spoolpos_writing = 0;
						spoolpos_reading = 0;
						spoolactive = 0;
					}
					else
					{
						UpdateSpool();
					}
				}
				else
				{
					changemode(spooldata + spoolpos_writing);
				}
			}
		}
	}
#endif // SIMPLE_SPOOL
}

// [D] [T]
void ready_cb_textures(unsigned char intr, unsigned char *result)
{
#ifndef SIMPLE_SPOOL
	if (intr == 1)
	{
#ifdef PSX
		CdGetSector(target_address, 0x200);
#else
		getLevSectorPC(target_address, 0x200);
#endif // PSX

		target_address = target_address + 0x800;
		sectors_this_chunk--;
		current_sector++;
		sectors_to_read--;

		if (sectors_this_chunk == 0) 
		{
			if (nTPchunks_reading != 0)
				loadbank_read++;

			nTPchunks_reading++;
			chunk_complete = intr;

			if (sectors_to_read == 0)
			{
				ntpages--;

				if (ntpages == 0)
				{
					spoolpos_reading++;
					test_changemode();
				}
				else
				{
					nTPchunks_reading = 0;
					sectors_to_read = 17;

					target_address = spooldata[spoolpos_reading].addr + 0x4000;
					spoolpos_reading++;

					sectors_this_chunk = intr;
				}
			}
			else 
			{
				sectors_this_chunk = 4;
				target_address = spooldata[spoolpos_reading].addr + (loadbank_read & 1U) * 0x2000;
			}
		}
	}
	else 
		FoundError("ready_cb_textures", intr, result);
#endif // SIMPLE_SPOOL
}

// [D] [T]
void ready_cb_regions(unsigned char intr, unsigned char *result)
{
#ifndef SIMPLE_SPOOL
	if (intr == 1) 
	{
#ifdef PSX
		CdGetSector(target_address, 0x200);
#else
		getLevSectorPC(target_address, 0x200);
#endif // PSX

		target_address = target_address + 0x800;
		sectors_this_chunk--;
		current_sector++;
		sectors_to_read--;

		if (sectors_this_chunk == 0) 
		{
			spoolpos_reading++;
			chunk_complete = intr;

			if (sectors_to_read == 0)
			{
				endchunk = intr;
				test_changemode();
			}
			else 
			{
				target_address = spooldata[spoolpos_reading].addr;
				sectors_this_chunk = (spooldata[spoolpos_reading].nsectors);
			}
		}
	}
	else 
		FoundError("ready_cb_regions", intr, result);
#endif // SIMPLE_SPOOL
}

// [D] [T]
void data_cb_regions(void)
{
#ifndef SIMPLE_SPOOL
	//printf("data_cb_regions remaining: %d\n", sectors_to_read);

	SPOOLQ* current = &spooldata[spoolpos_writing];

	if (chunk_complete != 0) 
	{
		chunk_complete = 0;

		if (current->func != NULL)
			(current->func)();

		spoolpos_writing++;

		if (endchunk != 0)
		{
			if (switch_spooltype == 0) 
			{
#ifdef PSX
				CdDataCallback(0);
#else
				levelSpoolerPCDataCallback(NULL);
#endif // PSX

				if (spoolpos_writing == spoolcounter) 
				{
					SPOOL_WARNING("All SPOOL requests (%d) completed successfully on REGIONS\n", spoolcounter);	// [A]

					spoolcounter = 0;
					spoolpos_writing = 0;
					spoolpos_reading = 0;
					spoolactive = 0;
				}
				else 
				{
					UpdateSpool();
				}
			}
			else 
			{
				changemode(&spooldata[spoolpos_writing]);
			}
		}
	}
#endif // SIMPLE_SPOOL
}


// [D] [T]
void data_cb_misc(void)
{
#ifndef SIMPLE_SPOOL
	//printf("data_cb_misc remaining: %d\n", sectors_to_read);

	SPOOLQ *current = &spooldata[spoolpos_writing];

	if (chunk_complete != 0) 
	{
		chunk_complete = 0;

		if (current->func != NULL)
			(*current->func)();

		spoolpos_writing++;

		if (switch_spooltype == 0)
		{
#ifdef PSX
			CdDataCallback(0);
#else
			levelSpoolerPCDataCallback(NULL);
#endif // PSX
			if (spoolpos_writing == spoolcounter)
			{
				SPOOL_WARNING("All SPOOL requests (%d) completed successfully on MISC\n", spoolcounter);	// [A]

				spoolcounter = 0;
				spoolpos_writing = 0;
				spoolpos_reading = 0;
				spoolactive = 0;
			}
			else
			{
				UpdateSpool();
			}
		}
		else
		{
			changemode(spooldata + spoolpos_writing);
		}
	}
#endif // SIMPLE_SPOOL
}

// [D] [T]
void ready_cb_misc(unsigned char intr, unsigned char *result)
{
#ifndef SIMPLE_SPOOL
	if (intr == 1) 
	{
#ifdef PSX
		CdGetSector(target_address, 0x200);
#else
		getLevSectorPC(target_address, 0x200);
#endif // PSX

		target_address += 0x800;
		sectors_to_read--;
		current_sector++;

		if (sectors_to_read == 0) 
		{
			spoolpos_reading++;
			chunk_complete = intr;
			test_changemode();
		}
	}
	else 
	{
		FoundError("ready_cb_misc", intr, result);
	}
#endif // SIMPLE_SPOOL
}

// [D] [T]
void test_changemode(void)
{
#ifndef SIMPLE_SPOOL
	SPOOLQ *current = &spooldata[spoolpos_reading];

	if (spoolpos_reading == spoolcounter)
	{
		switch_spooltype = 0;

#ifdef PSX
		CdReadyCallback(0);
		CdControlF(CdlPause, 0);
#else
		levelSpoolerPCReadyCallback(NULL);
		levelSpoolerSeekCmd = -1;
#endif // PSX
	}
	else if (current_sector == current->sector)
	{
		target_address = current->addr;
		switch_spooltype = 1;

		if (current->type == 0)
		{
			sectors_to_read = spool_regioninfo[spool_regionpos + 1].nsectors;
			sectors_this_chunk = (current->nsectors);
#ifdef PSX
			CdReadyCallback(ready_cb_regions);
#else
			levelSpoolerPCReadyCallback(ready_cb_regions);
#endif // PSX
		}
		else if (current->type == 1)
		{
			sectors_to_read = 17;
			target_address += 0x4000;
			nTPchunks_reading = 0;
			nTPchunks_writing = 0;
			ntpages = tsetcounter;
			sectors_this_chunk = 1;
#ifdef PSX
			CdReadyCallback(ready_cb_textures);
#else
			levelSpoolerPCReadyCallback(ready_cb_textures);
#endif // PSX
		}
		else if (current->type == 3)
		{
			sectors_to_read = (current->nsectors);
#ifdef PSX
			CdReadyCallback(ready_cb_misc);
#else
			levelSpoolerPCReadyCallback(ready_cb_misc);
#endif // PSX
		}
	}
	else
	{
		switch_spooltype = 0;

#ifdef PSX
		CdReadyCallback(0);
#else
		levelSpoolerPCReadyCallback(NULL);
#endif // PSX
	}
#endif // SIMPLE_SPOOL
}

// [D] [T]
void changemode(SPOOLQ *current)
{
#ifndef SIMPLE_SPOOL
	switch_spooltype = 0;
	endchunk = 0;

	switch (current->type)
	{
	case 0:
	{
#ifdef PSX
		CdDataCallback(data_cb_regions);
#else
		levelSpoolerPCDataCallback(data_cb_regions);
#endif // PSX
		break;
	}
	case 1:
	{
#ifdef PSX
		CdDataCallback(data_cb_textures);
#else
		levelSpoolerPCDataCallback(data_cb_textures);
#endif // PSX
		break;
	}
	case 3:
	{
#ifdef PSX
		CdDataCallback(data_cb_misc);
#else
		levelSpoolerPCDataCallback(data_cb_misc);
#endif // PSX
		break;
	}
	}
#endif // SIMPLE_SPOOL
}

// [D] [T]
void StartSpooling(void)
{
	if (spoolcounter == 0 || spoolactive)
		return;

	if (XAPrepared())
		return;

#ifdef PSX
			static unsigned char param[8];
			static unsigned char result[8];

			param[0] = CdlModeSize0 | CdlModeSize1 | CdlModeSpeed;
			CdControlB(CdlSetmode, param, result);

			if ((result[0] & (CdlStatError | CdlStatShellOpen)) != 0)
			{
				WaitCloseLid();
			}
#endif // PSX
	spoolactive = 1;
	UpdateSpool();

	if (FastForward)
		SpoolSYNC();
}

// [D] [T] [A] - altered declaration
void unpack_cellpointers(int region_to_unpack, int target_barrel_region, char* cell_addr)
{
	ushort cell;
	ushort* short_ptr;
	ushort* source_packed_data;
	int loop;
	uint bitpos;
	uint pcode;

	int packtype;
	
	unpack_cellptr_flag = 0;
	packtype = *(int *)(cell_addr + 4);
	source_packed_data = (ushort *)(cell_addr + 8);

	if (packtype == 0)
	{
		short_ptr = cell_ptrs + target_barrel_region * 1024;

		for (loop = 0; loop < 1024; loop++)
			*short_ptr++ = 0xffff;
	}
	else if (packtype == 1)
	{
		short_ptr = cell_ptrs + target_barrel_region * 1024;

		for (loop = 0; loop < 1024; loop++)
		{
			cell = *source_packed_data++;

			if (cell != 0xffff)
				cell += cell_slots_add[target_barrel_region];

			*short_ptr++ = cell;
		}
	}
	else if (packtype == 2)
	{
		bitpos = 0x8000;
		pcode = (uint)*source_packed_data;
		source_packed_data++;
		short_ptr = cell_ptrs + target_barrel_region * 1024;

		for (loop = 0; loop < 1024; loop++)
		{
			if (pcode & bitpos)
			{
				cell = *source_packed_data++;
				cell += cell_slots_add[target_barrel_region];

			}
			else
				cell = 0xffff;

			bitpos >>= 1;
			*short_ptr++ = cell;

			if (bitpos == 0)
			{
				bitpos = 0x8000;
				pcode = *source_packed_data++;
			}
		}
	}
	else 
	{
		printError("BAD PACKED CELL POINTER DATA, region = %d\n", region_to_unpack);

		do {
			trap(0x400);
		} while (FrameCnt != 0x78654321);

		unpack_cellptr_flag = 0;
	}
}

// [D] [T] [A] altered unpack_cellpointers
void Unpack_CellPtrs(void)
{
	SPL_REGIONINFO* spool = &spool_regioninfo[spool_regionpos];

	unpack_cellpointers(spool->region_to_unpack, spool->target_barrel_region, spool->cell_addr);
}

// [D] [T]
void GotRegion(void)
{
	uint target_barrel_reg;

	Unpack_CellPtrs();

	target_barrel_reg = spool_regioninfo[spool_regionpos].target_barrel_region;
	spool_regionpos++;

	char* pvs = PVS_Buffers[target_barrel_reg];

	loading_region[target_barrel_reg] = -1;

	int cbr = *(int *)(pvs - 4);
	RoadMapDataRegions[target_barrel_reg] = (short*)(pvs + cbr);

	if (spool_regionpos == spool_regioncounter)
	{
		spool_regioncounter = 0;
		spool_regionpos = 0;
	}
}

// [D] [T]
void UpdateSpool(void)
{
#ifdef SIMPLE_SPOOL
	extern char g_CurrentLevelFileName[64];

	FILE* fp = fopen(g_CurrentLevelFileName, "rb");

	if (!fp)
	{
		char errPrint[1024];
		sprintf(errPrint, "Cannot open '%s'\n", g_CurrentLevelFileName);
		SDL_ShowSimpleMessageBox(SDL_MESSAGEBOX_ERROR, "ERROR", errPrint, NULL);
		return;
	}

	for (; spoolpos_reading < spoolcounter; spoolpos_reading++)
	{
		SPOOLQ *current = &spooldata[spoolpos_reading];

#ifdef _DEBUG
		char* nameType;
		switch (current->type)
		{
		case 0:	// regions
			nameType = "REGION";
			break;
		case 1:	// textures
			nameType = "TPAGE";
			break;
		case 2:	// sbk
			nameType = "SBK";
			break;
		case 3:	// misc
			nameType = "MISC";
			break;
		}

		SPOOL_WARNING("spool type=%s cb=%d sec=%d cnt=%d id=%d\n", nameType, current->func ? 1 : 0, current->sector, current->nsectors, spoolpos_reading);
#endif // _DEBUG

		// seek to required sector
		fseek(fp, current->sector * 2048, SEEK_SET);

		switch (current->type)
		{
		case 0:	// regions
			fread(current->addr, 2048, current->nsectors, fp);

			if (current->func)
				current->func();

			break;
		case 1:	// textures

			// read cluts
			nTPchunks = 0;
			fread(current->addr + 0x4000, 2048, 1, fp);
			SendTPage();

			nTPchunks++;

			// read tpage (4 sectors 4 times = 16)
			for (int i = 0; i < 4; i++)
			{
				fread(current->addr + (loadbank_write & 1U) * 256 * 32, 2048, 4, fp);
				SendTPage();

				nTPchunks++;
			}

			break;
		case 2:	// sbk
			// nothing to do with this
			break;
		case 3:	// misc
			fread(current->addr, 2048, current->nsectors, fp);

			if (current->func)
				current->func();

			break;
		}
	}

	spoolcounter = 0;
	spoolpos_reading = 0;
	spoolactive = 0;

	fclose(fp);

#else
	char bVar1;
	CdlLOC pos;

	SPOOLQ *current = &spooldata[spoolpos_reading];

	if (!XAPrepared())
	{
		target_address = current->addr;
		bVar1 = current->type;

		if (bVar1 == 0) // SPOOLTYPE_REGIONS
		{
			sectors_this_chunk = (current->nsectors);
			sectors_to_read = spool_regioninfo[spool_regionpos].nsectors;

			spoolseek = 5;
#ifdef PSX
			CdDataCallback(data_cb_regions);
			CdReadyCallback(ready_cb_regions);
#else
			levelSpoolerPCDataCallback(data_cb_regions);
			levelSpoolerPCReadyCallback(ready_cb_regions);
#endif // PSX
		}
		else if (bVar1 == 1) // SPOOLTYPE_TEXTURES
		{
			spoolseek = 5;

			nTPchunks_reading = 0;
			nTPchunks_writing = 0;
			sectors_to_read = 17;
			ntpages = tsetcounter;
			sectors_this_chunk = 1;

#ifdef PSX
			CdDataCallback(data_cb_textures);
			CdReadyCallback(ready_cb_textures);
#else
			levelSpoolerPCDataCallback(data_cb_textures);
			levelSpoolerPCReadyCallback(ready_cb_textures);
#endif // PSX

			target_address = target_address + 0x4000;
		}
		else if (bVar1 == 3)  // SPOOLTYPE_MISC
		{
			sectors_to_read = (current->nsectors);

			spoolseek = 5;
#ifdef PSX
			CdDataCallback(data_cb_misc);
			CdReadyCallback(ready_cb_misc);
#else
			levelSpoolerPCDataCallback(data_cb_misc);
			levelSpoolerPCReadyCallback(ready_cb_misc);
#endif // PSX
		}

		current_sector = current->sector;
		endchunk = 0;
		switch_spooltype = 0;

		// run sector reading
#ifdef PSX
		CdIntToPos(current_sector, &pos);
		CdControlF(CdlReadS, (u_char*)&pos);
#else
		startReadLevSectorsPC(current_sector);
#endif // PSX
	}
#endif
}

// [D] [T]
int LoadRegionData(int region, int target_region)
{
	char *cell_buffer;
	ushort *spofs;
	int offset;
	Spool *spoolptr;
	char *roadmap_buffer;	// D1 leftover?

	roadmap_buffer = NULL; // [A]

	spofs = (spoolinfo_offsets + region);

	if (*spofs == 0xFFFF)	// has region offset?
		return 0;

	loading_region[target_region] = region;
	cell_buffer = packed_cell_pointers;
	spoolptr = (Spool *)(RegionSpoolInfo + *spofs);

	offset = spoolptr->offset;

#ifndef PSX
	if (gDemoLevel)
	{
		RequestSpool(0, 0, offset, spoolptr->roadm_size, PVS_Buffers[target_region], NULL);
		offset += spoolptr->roadm_size;

		RequestSpool(0, 0, offset, spoolptr->cell_data_size[1], packed_cell_pointers, NULL);
		offset += spoolptr->cell_data_size[1];

		RequestSpool(0, 0, offset, spoolptr->cell_data_size[0], (char *)(cells + cell_slots_add[target_region]), NULL);
		offset += spoolptr->cell_data_size[0];

		RequestSpool(0, 0, offset, spoolptr->cell_data_size[2], (char *)(cell_objects + num_straddlers + cell_objects_add[target_region]), GotRegion);
		offset += spoolptr->cell_data_size[2];

		//offset -= spoolptr->roadm_size; // [A] if PVS_Buffers loading temporarily disabled this should be uncommented
	}
	else if (gDriver1Level)
	{
		// TODO: ....

		RequestSpool(0, 0, offset, spoolptr->cell_data_size[0], (char *)(cell_objects + num_straddlers + cell_objects_add[target_region]), NULL);
		offset += spoolptr->cell_data_size[0];

		RequestSpool(0, 0, offset, spoolptr->cell_data_size[1], (char *)(cells + cell_slots_add[target_region]), NULL);
		offset += spoolptr->cell_data_size[1];

		RequestSpool(0, 0, offset, spoolptr->cell_data_size[2], packed_cell_pointers, GotRegion);
		offset += spoolptr->cell_data_size[2];

	}
	else
#endif
	{
		RequestSpool(0, 0, offset, spoolptr->cell_data_size[1], packed_cell_pointers, NULL);
		offset += spoolptr->cell_data_size[1];

		RequestSpool(0, 0, offset, spoolptr->cell_data_size[0], (char *)(cells + cell_slots_add[target_region]), NULL);
		offset += spoolptr->cell_data_size[0];

		RequestSpool(0, 0, offset, spoolptr->cell_data_size[2], (char *)(cell_objects + num_straddlers + cell_objects_add[target_region]), NULL);
		offset += spoolptr->cell_data_size[2];

		RequestSpool(0, 0, offset, spoolptr->roadm_size, PVS_Buffers[target_region] - 4, GotRegion);
		offset += spoolptr->roadm_size;
	}

	spool_regioninfo[spool_regioncounter].nsectors = offset - spoolptr->offset;

	spool_regioninfo[spool_regioncounter].region_to_unpack = region;
	spool_regioninfo[spool_regioncounter].target_barrel_region = target_region;
	spool_regioninfo[spool_regioncounter].cell_addr = cell_buffer;
	spool_regioninfo[spool_regioncounter].roadm_addr = roadmap_buffer;

	return 1;
}

int RoadMapRegions[4];

// [D] [T]
void UnpackRegion(int region_to_unpack, int target_barrel_region)
{
	if (loading_region[target_barrel_region] == -1)
	{
		if (LoadRegionData(region_to_unpack, target_barrel_region))
			spool_regioncounter++;

		regions_unpacked[target_barrel_region] = region_to_unpack;
		RoadMapRegions[target_barrel_region] = region_to_unpack;
	}
}


//---------------------------------------------------------------------

void SpecialStartNextBlock(void);

// [D] [T] [A]
void SpecClutsSpooled(void)
{
	char *loadaddr;
	RECT16 specCluts;

	specCluts.x = slot_clutpos[specialSlot].vx;
	specCluts.y = slot_clutpos[specialSlot].vy;
	specCluts.w = 16;
	specCluts.h = 1;

	loadaddr = specLoadBuffer;

	for (int i = 0; i < 2; i++)
	{
		int index = specialSlot + i;
		int tpage = specTpages[GameLevel][(specspooldata[2]-1) * 2 + i];

		carTpages[GameLevel][i + 6] = tpageslots[index] = tpage;
		tpageloaded[tpage] = specialSlot + i + 1;

		slot_tpagepos[index].vx = tpagepos[index].x;
		slot_tpagepos[index].vy = tpagepos[index].y;

		texture_pages[tpage] = GetTPage(0, 0, slot_tpagepos[index].vx, slot_tpagepos[index].vy);
		
		for (int j = 0; j < tpage_texamts[tpage]; j++)
		{
			LoadImage2(&specCluts, (u_long*)loadaddr);
			loadaddr += 32;

			texture_cluts[tpage][j] = GetClut(specCluts.x, specCluts.y);
			IncrementClutNum(&specCluts);
		}

#ifndef PSX
		// [A] try override
		LoadTPageFromTIMs(tpage);
#endif
	}

	if (quickSpool != 1)
		DrawSyncCallback(SpecialStartNextBlock);
}

int *modelMemory;

int lengthLowBlock;
int lastCleanBlock;
int lengthDamBlock;

int firstLowBlock;
int firstDamBlock;

int specBlocksToLoad = 0;
int specialState = 0;
char specModelValid = 1;
int specSpoolComplete;

// [D] [T]
void CleanModelSpooled(void)
{
	int *loadaddr;
	int *mem;

	loadaddr = (int *)specLoadBuffer;
	
	if (specBlocksToLoad == lastCleanBlock-1) 
	{
		loadaddr = (int *)(specLoadBuffer + 12);

		modelMemory = (int *)specmallocptr;
		gCarCleanModelPtr[4] = (MODEL *)modelMemory;
	}

	// memcpy
	while (loadaddr < (int*)(specLoadBuffer + 2048))
		*modelMemory++ = *loadaddr++;

	mem = (int*)((int)gCarCleanModelPtr[4] + gCarCleanModelPtr[4]->poly_block);	// [A] pls check, might be invalid

	if (specBlocksToLoad == 0 || mem < modelMemory)
	{
#ifndef PSX
		// [A] vertices
		LoadCarModelFromFile((char*)gCarCleanModelPtr[4], MissionHeader->residentModels[4], CAR_MODEL_CLEAN);
#endif
		
		specBlocksToLoad = 0;
		modelMemory = mem;

		gCarCleanModelPtr[4]->vertices += (int)gCarCleanModelPtr[4];
		gCarCleanModelPtr[4]->normals += (int)gCarCleanModelPtr[4];
		gCarCleanModelPtr[4]->point_normals += (int)gCarCleanModelPtr[4];
		gCarCleanModelPtr[4]->poly_block += (int)gCarCleanModelPtr[4];

		NewCarModel[4].nlist = (SVECTOR *)gCarCleanModelPtr[4]->point_normals;
		NewCarModel[4].vlist = (SVECTOR *)gCarCleanModelPtr[4]->vertices;
	}

	if (quickSpool != 1)
		DrawSyncCallback(SpecialStartNextBlock);
}

int damOffset;

// [D] [T]
void DamagedModelSpooled(void)
{
	int *loadaddr;
	int *mem;

	loadaddr = (int *)specLoadBuffer;

	if (specBlocksToLoad == lengthDamBlock-1) 
	{
		loadaddr = (int *)(specLoadBuffer + damOffset);

		gCarDamModelPtr[4] = (MODEL *)modelMemory;
	}
	
	// memcpy
	while (loadaddr < (int*)(specLoadBuffer + 2048))
		*modelMemory++ = *loadaddr++;

	mem = (int*)((int)gCarDamModelPtr[4] + gCarDamModelPtr[4]->poly_block);	// [A] pls check, might be invalid

	if (specBlocksToLoad == 0 || mem < modelMemory)
	{
#ifndef PSX
		// [A] vertices
		LoadCarModelFromFile((char*)gCarDamModelPtr[4], MissionHeader->residentModels[4], CAR_MODEL_DAMAGED);
#endif
		
		specBlocksToLoad = 0;
		modelMemory = mem;

		gCarDamModelPtr[4]->vertices += (int)gCarDamModelPtr[4];
		gCarDamModelPtr[4]->normals += (int)gCarDamModelPtr[4];
		gCarDamModelPtr[4]->poly_block += (int)gCarDamModelPtr[4];
		gCarDamModelPtr[4]->point_normals += (int)gCarDamModelPtr[4];
	}

	if (quickSpool != 1)
		DrawSyncCallback(SpecialStartNextBlock);

}

int lowOffset;

// [D] [T]
void LowModelSpooled(void)
{
	int *loadaddr;
	int *mem;

	loadaddr = (int *)specLoadBuffer;

	if (specBlocksToLoad == lengthLowBlock - 1) 
	{
		loadaddr = (int *)(specLoadBuffer + lowOffset);

		gCarLowModelPtr[4] = (MODEL *)modelMemory;
	}
	
	// memcpy
	while (loadaddr < (int*)(specLoadBuffer + 2048))
		*modelMemory++ = *loadaddr++;

	mem = (int*)((int)gCarLowModelPtr[4] + gCarLowModelPtr[4]->poly_block);	// [A] pls check, might be invalid

	if (specBlocksToLoad == 0 || mem < modelMemory)
	{
#ifndef PSX
		// [A] vertices
		LoadCarModelFromFile((char*)gCarLowModelPtr[4], MissionHeader->residentModels[4], CAR_MODEL_LOWDETAIL);
#endif
		
		specBlocksToLoad = 0;
		modelMemory = mem;

		gCarLowModelPtr[4]->vertices += (int)gCarLowModelPtr[4];
		gCarLowModelPtr[4]->normals += (int)gCarLowModelPtr[4];
		gCarLowModelPtr[4]->poly_block += (int)gCarLowModelPtr[4];
		gCarLowModelPtr[4]->point_normals += (int)gCarLowModelPtr[4];

		NewLowCarModel[4].nlist = (SVECTOR *)gCarLowModelPtr[4]->point_normals;
		NewLowCarModel[4].vlist = (SVECTOR *)gCarLowModelPtr[4]->vertices;
	}

	if (quickSpool != 1)
		DrawSyncCallback(SpecialStartNextBlock);
}


// [D] [T] [A]
void CleanSpooled(void)
{
	MODEL *model;

	if (specBlocksToLoad == 6)
	{
		// [A] for readability sake
		int size_1 = ((int *)specmallocptr)[0];
		int size_2 = ((int *)specmallocptr)[1];
		int size_3 = ((int *)specmallocptr)[2];

		lastCleanBlock = size_1 + 2048 + 11;
		lastCleanBlock >>= 11;

		firstDamBlock = size_1 + 12;
		firstDamBlock >>= 11;

		firstLowBlock = size_1 + size_2 + 12;
		firstLowBlock >>= 11;

		int lastDamBlock = size_1 + size_2 + 2048 + 11;
		lastDamBlock >>= 11;

		lengthDamBlock = lastDamBlock - firstDamBlock;
		damOffset = size_1 - (firstDamBlock * 2048 - 12);

		int lastLowBlock = size_1 + size_2 + size_3 + 2048 + 11;
		lastLowBlock >>= 11;

		lengthLowBlock = lastLowBlock - firstLowBlock;
		lowOffset = size_1 + size_2 - (firstLowBlock * 2048 - 12);
	}

	model = (MODEL *)(specmallocptr + 12);

	if (specBlocksToLoad == 7-lastCleanBlock) 
	{
#ifndef PSX
		// [A] polygons
		LoadCarModelFromFile((char*)model, MissionHeader->residentModels[4], CAR_MODEL_CLEAN);
#endif
		
		model->vertices += (int)model;
		model->poly_block += (int)model;
		model->normals += (int)model;
		model->point_normals += (int)model;

		whichCP = baseSpecCP;

		buildNewCarFromModel(&NewCarModel[4], model, 0);
		specBlocksToLoad = 0;
	}

	if (quickSpool != 1)
		DrawSyncCallback(SpecialStartNextBlock);
}


// [D] [T]
void LowSpooled(void)
{
	MODEL *model;

	if (specBlocksToLoad == 0) 
	{
		model = (MODEL *)(specmallocptr + lowOffset);

#ifndef PSX
		// [A] loads car model from file
		LoadCarModelFromFile((char*)model, MissionHeader->residentModels[4], CAR_MODEL_LOWDETAIL);
#endif
		
		model->vertices += (int)model;
		model->normals += (int)model;
		model->poly_block += (int)model;
		model->point_normals += (int)model;

		buildNewCarFromModel(&NewLowCarModel[4], model, 0);
	}

	if (quickSpool != 1) 
		DrawSyncCallback(SpecialStartNextBlock);
}


// [D] [T]
void Tada(void)
{
	int spec_tpage;
	RECT16 tpagerect;

	if (specialState == 2)
	{
		tpagerect.w = 64;
		tpagerect.h = 16;

		spec_tpage = specialSlot + 1;
		tpagerect.x = tpagepos[spec_tpage].x;
		tpagerect.y = tpagepos[spec_tpage].y + (15 - specBlocksToLoad) * 16;

		if (specBlocksToLoad == 15) 
			update_slotinfo(specTpages[GameLevel][specspooldata[2]-1], specialSlot, &tpagerect);

		LoadImage(&tpagerect, (u_long *)specLoadBuffer);
	}
	else
	{
		if (specialState > 2) 
		{
			if (specialState != 4)
				return;

			SetupSpecCosmetics(specLoadBuffer);
			FixCarCos(&car_cosmetics[4], MissionHeader->residentModels[4]);
			SetupSpecDenting(specLoadBuffer + sizeof(CAR_COSMETICS));

			if (quickSpool == 1)
				return;

			DrawSyncCallback(SpecialStartNextBlock);
			return;
		}

		if (specialState != 1)
			return;

		spec_tpage = specialSlot;
		tpagerect.w = 64;
		tpagerect.h = 16;

		tpagerect.x = tpagepos[spec_tpage].x;
		tpagerect.y = tpagepos[spec_tpage].y + (15 - specBlocksToLoad) * 16;

		if (specBlocksToLoad == 15) 
			update_slotinfo(specTpages[GameLevel][specspooldata[2]-1], spec_tpage, &tpagerect);

		LoadImage(&tpagerect, (u_long *)specLoadBuffer);
	}

	if (quickSpool != 1)
		DrawSyncCallback(SpecialStartNextBlock);
}

// [D] [T]
void SpecialStartNextBlock(void)
{
	char *loadaddr;
	int fileSector;
	spooledFuncPtr spoolFunc;

	loadaddr = specLoadBuffer;
	DrawSyncCallback(0);

	// if previous state blocks are fully loaded, start next state
	if (specBlocksToLoad == 0)
	{
		switch (specialState) 
		{
			case 0:
			case 1:
				specBlocksToLoad = 16;
				break;
			case 2:
			case 3:
				specBlocksToLoad = 1;
				break;
			case 4:
				specBlocksToLoad = 7;
				break;
			case 5:
			case 8:
				specBlocksToLoad = lengthLowBlock;
				break;
			case 6:
				specBlocksToLoad = lastCleanBlock;
				break;
			case 7:
				specBlocksToLoad = lengthDamBlock;
				break;
			default:
				specBlocksToLoad = 0;
		}

		specialState++;
	}

	fileSector = 0x1400 + (citystart[GameLevel] - citylumps[GameLevel][CITYLUMP_SPOOL].x / 2048) + (specspooldata[2]-1) * 42;

	switch (specialState)
	{
		case 1:
			spoolFunc = Tada;
			fileSector += (17 - specBlocksToLoad);
			break;
		case 2:
			spoolFunc = Tada;
			fileSector += (33 - specBlocksToLoad);
			break;
		case 3:
			spoolFunc = SpecClutsSpooled;
			break;
		case 4:
			fileSector += 33;
			spoolFunc = Tada;
			break;
		case 5:
			spoolFunc = CleanSpooled;
			fileSector += (41 - specBlocksToLoad);
			loadaddr = specmallocptr + (7 - specBlocksToLoad) * 2048;
			break;
		case 6:
			spoolFunc = LowSpooled;
			fileSector += ((firstLowBlock + lengthLowBlock) - specBlocksToLoad) + 34;
			loadaddr = specmallocptr + (lengthLowBlock - specBlocksToLoad) * 2048;
			break;
		case 7:
			spoolFunc = CleanModelSpooled;
			fileSector += (lastCleanBlock - specBlocksToLoad) + 34;
			break;
		case 8:
			spoolFunc = DamagedModelSpooled;
			fileSector += ((firstDamBlock + lengthDamBlock) - specBlocksToLoad) + 34;
			break;
		case 9:
			spoolFunc = LowModelSpooled;
			fileSector += ((firstLowBlock + lengthLowBlock) - specBlocksToLoad) + 34;
			break;
		default:
			if (quickSpool == 1)
			{
				specModelValid = 1;
				specialState = 0;
				quickSpool = 0;
				specSpoolComplete = 0;
				return;
			}

			specSpoolComplete = 1;
			return;
	}

	RequestSpool(3, 0, fileSector, 1, loadaddr, spoolFunc);
	specBlocksToLoad--;
}

// [D] [T]
void CheckSpecialSpool(void)
{
	int ret;
	int iVar2;
	CAR_DATA *lcp;

	if (startSpecSpool != -1 && startSpecSpool+400 < CameraCnt) 
	{
		while (specSpoolComplete == 0)
		{
			SpoolSYNC();

			if (DrawSync(1) == 0)
				SpecialStartNextBlock();

			StartSpooling();
		}

		specModelValid = 1;
		specialState = 0;
		specBlocksToLoad = 0;
		specSpoolComplete = 0;
		startSpecSpool = -1;
	}

	if (allowSpecSpooling && 
		specSpoolComplete != 1 && 
		GameType != GAME_PURSUIT &&
		LoadedArea != -1 &&
		SpecialByRegion[GameLevel][LoadedArea] != MissionHeader->residentModels[4]-7) 
	{
		lcp = car_data;

		// if there are cars that still using special models, deny spooling
		do	// [A]
		{
			if (MissionHeader->residentModels[lcp->ap.model] > 4)
				return;

			lcp++;
		} while (lcp < &car_data[MAX_CARS]);


		specModelValid = 0;
		startSpecSpool = CameraCnt;

		gCarDamModelPtr[4] = NULL;
		gCarCleanModelPtr[4] = NULL;
		gCarLowModelPtr[4] = NULL;

		specspooldata[2] = SpecialByRegion[GameLevel][LoadedArea];
		MissionHeader->residentModels[4] = SpecialByRegion[GameLevel][LoadedArea] + 7;

		if (specialState == 0)
			SpecialStartNextBlock();
	}
}

// [D] [T]
void QuickSpoolSpecial(void)
{
	quickSpool = 1;
	specialState = 0;
	specBlocksToLoad = 0;

	gCarCleanModelPtr[4] = NULL;
	gCarDamModelPtr[4] = NULL;
	gCarLowModelPtr[4] = NULL;

	specspooldata[2] = MissionHeader->residentModels[4]-7;

	do {
		SpoolSYNC();
		DrawSync(0);
		SpecialStartNextBlock();
		StartSpooling();
	} while (quickSpool == 1);
}

// [D] [T]
void PrepareSecretCar(void)
{
	allowSpecSpooling = 0;
	PingOutAllSpecialCivCars();

	gCarDamModelPtr[4] = NULL;
	gCarCleanModelPtr[4] = NULL;
	gCarLowModelPtr[4] = NULL;

	specspooldata[2] = 5;
	specModelValid = 0;
	startSpecSpool = CameraCnt;
	MissionHeader->residentModels[4] = 12;
	specialState = 0;
	specBlocksToLoad = 0;
	SpecialStartNextBlock();
}

// [D] [T]
void InitSpecSpool(void)
{
	// [A] Rev 1.1 removes that, but I wonder if it breaks something...
	switch (gCurrentMissionNumber)
	{
		case 2: 
		case 4:
		case 6:
		case 7:
		case 10:
		case 11:
		case 12:
		case 13:
		case 16:
		case 18:
		case 19:
		case 20:
		case 24:
		case 26:
		case 27:
		case 29:
		case 30:
		case 31:
		case 33:
		case 35:
		case 38:
		case 39:
		case 40:
		case 58:
		case 59:
		case 60:
		case 61:
		case 62:
		case 63:
		case 64:
		case 65:
		case 70:
		case 78:
		case 86:
		case 94:
		case 228:
		case 229:
		case 236:
		case 237:
		case 244:
		case 245:
		case 252:
		case 253:
		case 352:
		case 353:
		case 360:
		case 169:
		case 368:
		case 369:
		case 376:
		case 377:
		case 420:
		case 421:
		case 428:
		case 429:
		case 436:
		case 437:
		case 444:
		case 445:
		case 480:
		case 481:
		case 482:
		case 483:
		case 484:
		case 485:
		case 486:
		case 487:
		case 498:
		case 499:
		case 500:
		case 501:
		case 502:
		case 503:
		case 504:
		case 505:
			allowSpecSpooling = 0;
			break;
		default:
			allowSpecSpooling = 1;
	}

#ifndef PSX
	if(gDemoLevel || gDriver1Level)
		allowSpecSpooling = 0;
#endif

	specModelValid = 1;
	specialState = 0;
	specBlocksToLoad = 0;
	quickSpool = 0;
	specSpoolComplete = 0;
	startSpecSpool = -1;
}