/* ScummVM - Scumm Interpreter
 * Copyright (C) 2006 The ScummVM project
 *
 * cinE Engine is (C) 2004-2005 by CinE Team
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.

 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.

 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * $URL$
 * $Id$
 *
 */

#include "common/stdafx.h"
#include "common/endian.h"

#include "cine/cine.h"
#include "cine/bg_list.h"
#include "cine/object.h"
#include "cine/sfx_player.h"
#include "cine/sound_driver.h"
#include "cine/various.h"

namespace Cine {

byte *_currentScriptPtr;
uint16 _currentPosition;

byte getNextByte() {
	byte val = *(_currentScriptPtr + _currentPosition);
	_currentPosition++;
	return val;
}

uint16 getNextWord() {
	uint16 val = READ_BE_UINT16(_currentScriptPtr + _currentPosition);
	_currentPosition += 2;
	return val;
}

const char *getNextString() {
	const char *val = (const char *)(_currentScriptPtr + _currentPosition);
	_currentPosition += strlen(val);
	return val;
}

void addGfxElementA0(int16 param1, int16 param2) {
	overlayHeadElement *currentHead = &overlayHead;
	overlayHeadElement *tempHead = currentHead;
	overlayHeadElement *newElement;

	currentHead = tempHead->next;

	while (currentHead) {
		if (objectTable[currentHead->objIdx].mask == objectTable[param1].mask) {
			if (currentHead->type == 2 || currentHead->objIdx == 3) {
				break;
			}
		}

		tempHead = currentHead;
		currentHead = currentHead->next;
	}

	if (currentHead && currentHead->objIdx == param1 && currentHead->type == 20 && currentHead->x == param2)
		return;

	newElement = (overlayHeadElement *)malloc(sizeof(overlayHeadElement));

	newElement->next = tempHead->next;
	tempHead->next = newElement;

	newElement->objIdx = param1;
	newElement->type = 20;

	newElement->x = param2;
	newElement->y = 0;
	newElement->width = 0;
	newElement->color = 0;

	if (!currentHead)
		currentHead = &overlayHead;

	newElement->previous = currentHead->previous;

	currentHead->previous = newElement;
}

void removeSeq(uint16 param1, uint16 param2, uint16 param3) {
	SeqListElement *currentHead = &seqList;
	SeqListElement *tempHead = currentHead;

	while (currentHead && (currentHead->var6 != param1 || currentHead->var4 != param2 || currentHead->varE != param3)) {
		tempHead = currentHead;
		currentHead = tempHead->next;
	}

	if (currentHead && currentHead->var6 == param1 && currentHead->var4 == param2 && currentHead->varE == param3) {
		currentHead->var4 = -1;
	}
}

uint16 isSeqRunning(uint16 param1, uint16 param2, uint16 param3) {
	SeqListElement *currentHead = &seqList;
	SeqListElement *tempHead = currentHead;

	while (currentHead && (currentHead->var6 != param1 || currentHead->var4 != param2 || currentHead->varE != param3)) {
		tempHead = currentHead;
		currentHead = tempHead->next;
	}

	if (currentHead && currentHead->var6 == param1 && currentHead->var4 == param2 && currentHead->varE == param3) {
		return 1;
	}

	return 0;
}

scriptStruct scriptTable[NUM_MAX_SCRIPT];

void createVar9Element(int16 objIdx, int16 param) {
}

void addToBGList(int16 objIdx) {
	int16 x;
	int16 y;
	int16 width;
	int16 height;
	int16 part;

	x = objectTable[objIdx].x;
	y = objectTable[objIdx].y;

	width = animDataTable[objectTable[objIdx].frame].var1;
	height = animDataTable[objectTable[objIdx].frame].height;

	part = objectTable[objIdx].part;

	if (gameType == Cine::GID_OS) {
		drawSpriteRaw2(animDataTable[objectTable[objIdx].frame].ptr1, objectTable[objIdx].part, width, height, page2Raw, x, y);
	} else {
		drawSpriteRaw(animDataTable[objectTable[objIdx].frame].ptr1, animDataTable[objectTable[objIdx].frame].ptr2, width, height, page2Raw, x, y);
	}

	createVar9Element(objIdx, 0);
}

void stopGlobalScript(uint16 scriptIdx) {
	prcLinkedListStruct *currentHead = &globalScriptsHead;
	prcLinkedListStruct *tempHead = currentHead;

	currentHead = tempHead->next;

	while (currentHead && (currentHead->scriptIdx != scriptIdx)) {
		tempHead = currentHead;
		currentHead = tempHead->next;
	}

	if (!currentHead) {
		return;
	}

	if (currentHead->scriptIdx != scriptIdx) {
		return;
	}

	currentHead->scriptIdx = -1;
}

uint16 computeScriptStackSub(byte mode, byte *scriptPtr, int16 *stackPtr, uint16 scriptSize, byte param1, uint16 startOffset) {
	byte *localScriptPtr = scriptPtr;
	uint16 exitScript;
	uint16 i;
	uint16 position;
	uint16 di;

	assert(scriptPtr);
	assert(stackPtr);

	if (mode == 1) {
		for (i = 0; i < SCRIPT_STACK_SIZE; i++) {
			stackPtr[i] = -1;
		}

		position = 0;
	} else {
		position = startOffset;
	}

	exitScript = 0;

	do {
		uint16 opcode = *(localScriptPtr + position);
		position++;

		//printf("Opcode: %X\n",opcode-1);

		switch (opcode - 1) {
		case -1:
		case 0x1B:
			{
				break;
			}
		case 0x89:
		case 0x32:
		case 0x7A:
		case 0x91:
		case 0x9D:
		case 0x8F:
		case 0x7B:
		case 0x8C:
		case 0x8B:
		case 0x85:
		case 0x86:
		case 0x84:
		case 0x88:
			{
				position++;
				break;
			}
		case 0x80:
		case 0x83:
		case 0x26:
			{
				position += 2;
				break;
			}
		case 0xF:
		case 0x1:
		case 0x66:
		case 0x4A:
			{
				position += 3;
				break;
			}
		case 0x0:
		case 0x2:
		case 0x3:
		case 0x4:
		case 0x5:
		case 0x6:
		case 0xA0:
		case 0xA1:
		case 0xA2:
		case 0xA3:
			{
				position += 4;
				break;
			}
		case 0x9:
		case 0xA:
		case 0xB:
		case 0xC:
		case 0xD:
		case 0xE:
		case 0x52:
		case 0x53:
			{
				byte param;
				position++;

				param = *(localScriptPtr + position);
				position++;

				if (param) {
					position++;
				} else {
					position += 2;
				}
				break;
			}
		case 0x9E:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				if (param) {
					position++;
				} else {
					position += 2;
				}
				break;
			}
		case 0x82:
			{
				position += 7;
				break;
			}
		case 0x47:
			{
				position += 8;
				break;
			}
		case 0x51:
		case 0x7:
		case 0x77:
		case 0x78:
		case 0x8:
			{
				position += 9;
				break;
			}
		case 0x7F:
			{
				position += 10;
				break;
			}
		case 0x1D:
			{
				di = *(localScriptPtr + position);
				position++;

				if (mode == 1) {
					stackPtr[di] = position;
				} else {
					if (param1 == di) {
						return position;
					}
				}

				break;
			}
		case 0x59:
		case 0x3B:
		case 0x3C:
		case 0x3D:
		case OP_loadPart:	// skipString
		case 0x6D:
		case 0x8E:
			{
				do {
					position++;
				} while (*(localScriptPtr + position));
				break;
			}
		case 0x90:
		case OP_loadNewPrcName:	//skipVarAndString
			{
				di = *(localScriptPtr + position);
				position++;

				do {
					position++;
				} while (*(localScriptPtr + position));

				break;
			}
		case 0x46:
		case 0x65:
		case 0x4F:
		case 0x40:
		case 0x6A:
		case 0x69:
		case 0x45:
		case 0x6E:
		case 0x6F:
		case 0x70:
			{
				break;
			}
		case 0x1E:
		case 0x1F:
		case 0x20:
		case 0x21:
		case 0x22:
		case 0x23:
		case 0x24:
		case 0x25:
		case 0x68:
		case 0x49:
		case 0x31:
		case 0x13:
		case 0x14:
		case 0x15:
		case 0x16:
		case 0x17:
		case 0x18:
		case 0x19:
		case 0x1A:
			{
				position++;
				break;
			}
		case 0x5A:
			{
				position += 2;
				break;
			}
		case 0x5B:
			{
				break;
			}
		case OP_changeDataDisk:	// skipVar
		case OP_79:
			{
				di = *(localScriptPtr + position);
				position++;

				break;
			}
		case OP_endScript:	// end
			{
				exitScript = 1;
				break;
			}
		case OP_requestCheckPendingDataLoad:	// nop
			{
				break;
			}
		default:
			{
				error
				    ("Unsupported opcode %X in computeScriptStack",
				    opcode - 1);
			}
		}

		if (position > scriptSize) {
			exitScript = 1;
		}

	} while (!exitScript);

	return position;
}

void computeScriptStack(byte *scriptPtr, int16 *stackPtr, uint16 scriptSize) {
	computeScriptStackSub(1, scriptPtr, stackPtr, scriptSize, 0, 0);
}

uint16 computeScriptStackFromScript(byte *scriptPtr, uint16 currentPosition, uint16 labelIdx, uint16 scriptSize) {
	return computeScriptStackSub(0, scriptPtr, (int16 *)&dummyU16, (uint16)scriptSize, labelIdx, currentPosition);
}

void palRotate(byte a, byte b, byte c) {
	int16 i;
	uint16 currentColor;

	if (c == 1) {
		currentColor = c_palette[b];

		for (i = b; i > a; i--) {
			c_palette[i] = c_palette[i - 1];
		}

		c_palette[a] = currentColor;
	}
}

void addScriptToList0(uint16 idx) {
	uint16 i;
	prcLinkedListStruct *pNewElement;
	prcLinkedListStruct *currentHead = &globalScriptsHead;
	prcLinkedListStruct *tempHead = currentHead;

	assert(idx <= NUM_MAX_SCRIPT);

	currentHead = tempHead->next;

	while (currentHead) {
		tempHead = currentHead;

		assert(tempHead);

		currentHead = tempHead->next;
	}

	pNewElement =(prcLinkedListStruct *)malloc(sizeof(prcLinkedListStruct));

	assert(pNewElement);

	pNewElement->next = tempHead->next;
	tempHead->next = pNewElement;

	// copy the stack into the script instance
	for (i = 0; i < SCRIPT_STACK_SIZE; i++) {
		pNewElement->stack[i] = scriptTable[idx].stack[i];
	}

	for (i = 0; i < 50; i++) {
		pNewElement->localVars[i] = 0;
	}

	pNewElement->compareResult = 0;
	pNewElement->scriptPosition = 0;

	pNewElement->scriptPtr = scriptTable[idx].ptr;
	pNewElement->scriptIdx = idx;
}

#ifdef _DEBUG
#define DEBUG_SCRIPT debugScript
void debugScript(int currentLine, const char *string, ...) {
	va_list va;

	va_start(va, string);
	vprintf(string, va);
	va_end(va);
	printf("\n");
}
#else
#define DEBUG_SCRIPT debugScriptInline
void debugScriptInline(int currentLine, const char *string, ...) {
}
#endif

int16 endScript0(uint16 scriptIdx) {
	prcLinkedListStruct *currentHead = &globalScriptsHead;
	prcLinkedListStruct *tempHead = currentHead;

	//assert(scriptIdx <= NUM_MAX_SCRIPT);

	currentHead = tempHead->next;

	while (currentHead && currentHead->scriptIdx != scriptIdx) {
		tempHead = currentHead;
		currentHead = tempHead->next;
	}

	if (!currentHead) {
		return -1;
	}

	if (currentHead->scriptIdx != scriptIdx) {
		return -1;
	}

	currentHead->scriptIdx = -1;

	return 0;
}

int16 endScript1(uint16 scriptIdx) {
	prcLinkedListStruct *currentHead = &objScriptList;
	prcLinkedListStruct *tempHead = currentHead;

	currentHead = tempHead->next;

	while (currentHead && currentHead->scriptIdx != scriptIdx) {
		tempHead = currentHead;
		currentHead = tempHead->next;
	}

	if (!currentHead) {
		return -1;
	}

	if (currentHead->scriptIdx != scriptIdx) {
		return -1;
	}

	currentHead->scriptIdx = -1;

	return 0;
}

int16 getZoneFromPosition(byte *page, int16 x, int16 y, int16 width) {
	byte *ptr = page + (y * width) + x / 2;
	byte zoneVar;

	if (!(x % 2)) {
		zoneVar = (*(ptr) >> 4) & 0xF;
	} else {
		zoneVar = (*(ptr)) & 0xF;
	}

	return zoneVar;
}

int16 getZoneFromPositionRaw(byte *page, int16 x, int16 y, int16 width) {
	byte *ptr = page + (y * width) + x;
	byte zoneVar;

	zoneVar = (*(ptr)) & 0xF;

	return zoneVar;
}

int16 checkCollision(int16 objIdx, int16 x, int16 y, int16 numZones, int16 zoneIdx) {
	int16 i;
	int16 lx;
	int16 ly;

	lx = objectTable[objIdx].x + x;
	ly = objectTable[objIdx].y + y;

	for (i = 0; i < numZones; i++) {
		int16 idx;

		// if (gameType == GAME_OS)
		{
			idx = getZoneFromPositionRaw(page3Raw, lx + i, ly, 320);
		}
		/*  else
		 * {
		 * idx = getZoneFromPosition(page3, lx + i, ly, 160);
		 * } */

		assert(idx >= 0 && idx <= NUM_MAX_ZONE);

		if (zoneData[idx] == zoneIdx) {
			return 1;
		}
	}

	return 0;
}

uint16 compareVars(int16 a, int16 b) {
	uint16 flag = 0;

	if (a == b) {
		flag |= 1;
	}

	if (a > b) {
		flag |= 2;
	}

	if (a < b) {
		flag |= 4;
	}

	return flag;
}

void executeScript(prcLinkedListStruct *scriptElement, uint16 params) {
	uint16 closeScript;

	assert(scriptElement);

	if (scriptElement->scriptIdx == -1) {
		return;
	}

	assert(scriptElement->scriptPtr);

	// Used to be local variables, but as far as I can tell there's no
	// recursion that can mess things up when making them global.

	_currentScriptPtr = scriptElement->scriptPtr;
	_currentPosition = scriptElement->scriptPosition;

	closeScript = 0;

	while (!closeScript) {
		uint16 currentLine = _currentPosition;
		byte opcode = getNextByte();

		//printf("Op: %X\n", opcode - 1);

		// Future Wars:       opcodes 0x00 - 0x7B
		// Operation Stealth: opcodes 0x00 - 0xB6
		//
		// Both opcode tables have plenty of holes in them, though.
		//
		// 0x40: Future Wars only
		// 0x48: Future Wars only

		switch (opcode - 1) {
		case -1:
			{
				break;
			}
		case 0x0:	// OP_modifyObjectParam
			{
				byte objIdx = getNextByte();
				byte paramIdx = getNextByte();
				int16 newValue = getNextWord();

				DEBUG_SCRIPT(currentLine, "modifyObjectParam(objIdx:%d,paramIdx:%d,newValue:%d)", objIdx, paramIdx, newValue);

				modifyObjectParam(objIdx, paramIdx, newValue);

				break;
			}
		case 0x1:	// OP_getObjectParam
			{
				byte objIdx = getNextByte();
				byte paramIdx = getNextByte();
				byte newValue = getNextByte();

				DEBUG_SCRIPT(currentLine, "getObjectParam(objIdx:%d,paramIdx:%d,var:%d)", objIdx, paramIdx, newValue);

				scriptElement->localVars[newValue] = getObjectParam(objIdx, paramIdx);

				break;
			}
		case 0x2:	// OP_addObjectParam
			{
				byte objIdx = getNextByte();
				byte paramIdx = getNextByte();
				int16 newValue = getNextWord();

				DEBUG_SCRIPT(currentLine, "addObjectParam(objIdx:%d,paramIdx:%d,newValue:%d)", objIdx, paramIdx, newValue);

				addObjectParam(objIdx, paramIdx, newValue);

				break;
			}
		case 0x3:	// OP_subObjectParam
			{
				byte objIdx = getNextByte();
				byte paramIdx = getNextByte();
				int16 newValue = getNextWord();

				DEBUG_SCRIPT(currentLine, "subObjectParam(objIdx:%d,paramIdx:%d,newValue:%d)", objIdx, paramIdx, newValue);

				subObjectParam(objIdx, paramIdx, newValue);

				break;
			}
		case 0x4:	// OP_add2ObjectParam
			{
				warning("STUB: Opcode 0x4\n");
				break;
			}
		case 0x5:	// OP_sub2ObjectParam
			{
				warning("STUB: Opcode 0x5\n");
				break;
			}
		case 0x6:	// OP_compareObjectParam
			{
				byte objIdx = getNextByte();
				byte param1 = getNextByte();
				int16 param2 = getNextWord();

				DEBUG_SCRIPT(currentLine, "compareObjectParam(objIdx:%d,type:%d,value:%d)", objIdx, param1, param2);

				scriptElement->compareResult = compareObjectParam(objIdx, param1, param2);

				break;
			}
		case 0x7:	// OP_setupObject
			{
				byte objIdx = getNextByte();
				int16 param1 = getNextWord();
				int16 param2 = getNextWord();
				int16 param3 = getNextWord();
				int16 param4 = getNextWord();

				DEBUG_SCRIPT(currentLine, "setupObject(objIdx:%d,%d,%d,%d,%d)", objIdx, param1, param2, param3, param4);

				setupObject(objIdx, param1, param2, param3, param4);

				break;
			}
		case 0x8:	// OP_checkCollision
			{
				byte objIdx = getNextByte();
				int16 param1 = getNextWord();
				int16 param2 = getNextWord();
				int16 param3 = getNextWord();
				int16 param4 = getNextWord();

				DEBUG_SCRIPT(currentLine, "checkCollision(objIdx:%d,%d,%d,%d,%d)", objIdx, param1, param2, param3, param4);

				scriptElement->compareResult = checkCollision(objIdx, param1, param2, param3, param4);

				break;
			}
		case 0x9:	// OP_loadVar
			{
				byte varIdx = getNextByte();
				byte varType = getNextByte();

				if (varType) {
					byte dataIdx = getNextByte();

					switch (varType) {
					case 1:
						{
							DEBUG_SCRIPT(currentLine, "var[%d] = var[%d]", varIdx, dataIdx);
							scriptElement->localVars[varIdx] = scriptElement->localVars[dataIdx];
							break;
						}
					case 2:
						{
							DEBUG_SCRIPT(currentLine, "var[%d] = globalVars[%d]", varIdx, dataIdx);
							scriptElement->localVars[varIdx] = globalVars[dataIdx];
							break;
						}
					case 3:
						{
							int16 var;

							DEBUG_SCRIPT(currentLine, "var[%d] = mouseX", varIdx, dataIdx);
							getMouseData(mouseUpdateStatus, &dummyU16, (uint16 *)&var, (uint16 *)&dummyU16);
							scriptElement->localVars[varIdx] = var;
							break;
						}
					case 4:
						{
							int16 var;

							DEBUG_SCRIPT(currentLine, "var[%d] = mouseY", varIdx, dataIdx);
							getMouseData(mouseUpdateStatus, &dummyU16, (uint16 *)&dummyU16, (uint16 *)&var);
							scriptElement->localVars[varIdx] = var;
							break;
						}
					case 5:
						{
							DEBUG_SCRIPT(currentLine, "var[%d] = rand mod %d", varIdx, dataIdx);
							scriptElement->localVars[varIdx] = rand() % dataIdx;
							break;
						}
					case 8:
						{
							DEBUG_SCRIPT(currentLine, "var[%d] = file[%d].packedSize", varIdx, dataIdx);
							scriptElement->localVars[varIdx] = partBuffer[dataIdx].packedSize;
							break;
						}
					case 9:
						{
							DEBUG_SCRIPT(currentLine, "var[%d] = file[%d].unpackedSize", varIdx, dataIdx);
							scriptElement->localVars[varIdx] = partBuffer[dataIdx].unpackedSize;
							break;
						}
					default:
						{
							error("executeScript: OP_loadVar: Unknown variable type %d", varType);
						}
					}
				} else {
					int16 newData = getNextWord();

					DEBUG_SCRIPT(currentLine, "var[%d] = %d", varIdx, newData);

					scriptElement->localVars[varIdx] = newData;
				}
				break;
			}
		case 0xA:	// OP_addVar
			{
				byte varIdx = getNextByte();
				byte varType = getNextByte();

				if (varType) {
					byte dataIdx = getNextByte();

					DEBUG_SCRIPT(currentLine, "var[%d] += var[%d]", varIdx, dataIdx);

					scriptElement->localVars[varIdx] += scriptElement->localVars[dataIdx];
				} else {
					int16 newData = getNextWord();

					DEBUG_SCRIPT(currentLine, "var[%d] += %d", varIdx, newData);

					scriptElement->localVars[varIdx] += newData;
				}

				break;
			}
		case 0xB:	// OP_subVar
			{
				byte varIdx = getNextByte();
				byte varType = getNextByte();

				if (varType) {
					byte dataIdx = getNextByte();

					DEBUG_SCRIPT(currentLine, "var[%d] -= var[%d]", varIdx, dataIdx);

					scriptElement->localVars[varIdx] = scriptElement->localVars[varIdx] - scriptElement->localVars[dataIdx];
				} else {
					int16 newData = getNextWord();

					DEBUG_SCRIPT(currentLine, "var[%d] -= %d", varIdx, newData);

					scriptElement->localVars[varIdx] = scriptElement->localVars[varIdx] - newData;
				}

				break;
			}
		case 0xC:	// OP_mulVar
			{
				byte varIdx = getNextByte();
				byte varType = getNextByte();

				if (varType) {
					byte dataIdx = getNextByte();

					DEBUG_SCRIPT(currentLine, "var[%d] *= var[%d]", varIdx, dataIdx);

					scriptElement->localVars[varIdx] = scriptElement->localVars[varIdx] * scriptElement->localVars[dataIdx];
				} else {
					int16 newData = getNextWord();

					DEBUG_SCRIPT(currentLine, "var[%d] *= %d", varIdx, newData);

					scriptElement->localVars[varIdx] = scriptElement->localVars[varIdx] * newData;
				}

				break;
			}
		case 0xD:	// OP_divVar
			{
				byte varIdx = getNextByte();
				byte varType = getNextByte();

				if (varType) {
					byte dataIdx = getNextByte();

					DEBUG_SCRIPT(currentLine, "var[%d] /= var[%d]", varIdx, dataIdx);

					scriptElement->localVars[varIdx] = scriptElement->localVars[varIdx] / scriptElement->localVars[dataIdx];
				} else {
					int16 newData = getNextWord();

					DEBUG_SCRIPT(currentLine, "var[%d] /= %d", varIdx, newData);

					scriptElement->localVars[varIdx] = scriptElement->localVars[varIdx] / newData;
				}

				break;
			}
		case 0xE:	// OP_compareVar
			{
				byte varIdx = getNextByte();
				byte varType = getNextByte();

				if (varType) {
					byte value = getNextByte();

					// printf("Val: %d\n", value);

					if (varType == 1) {
						DEBUG_SCRIPT(currentLine, "compare var[%d] and var[%d]", varIdx, value);

						assert(varIdx < 50);
						assert(value < 50);

						scriptElement->compareResult = compareVars(scriptElement->localVars[varIdx], scriptElement->localVars[value]);
					} else if (varType == 2) {
						DEBUG_SCRIPT(currentLine, "compare var[%d] and globalVar[%d]", varIdx, value);

						assert(varIdx < 50);

						scriptElement->compareResult = compareVars(scriptElement->localVars[varIdx], globalVars[value]);
					}
				} else {
					int16 value = getNextWord();

					DEBUG_SCRIPT(currentLine, "compare var[%d] and %d", varIdx, value);

					scriptElement->compareResult = compareVars(scriptElement->localVars[varIdx], value);
				}

				break;
			}
		case 0xF:	// OP_modifyObjectParam2
			{
				byte objIdx = getNextByte();
				byte paramIdx = getNextByte();
				byte newValue = getNextByte();

				DEBUG_SCRIPT(currentLine, "modifyObjectParam2(objIdx:%d,paramIdx:%d,var[%d])", objIdx, paramIdx, newValue);

				modifyObjectParam(objIdx, paramIdx, scriptElement->localVars[newValue]);

				break;
			}
		case 0x13:	// OP_loadV7Element (OP_loadMask0?)
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "addSpriteOverlay(%d)", param);

				loadOverlayElement(param, 0);

				break;
			}
		case 0x14:	// OP_unloadMask0
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "removeSpriteOverlay(%d)", param);

				freeOverlay(param, 0);

				break;
			}
		case 0x15:
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "addToBGList(%d)", param);

				addToBGList(param);

				break;
			}
		case 0x16:	// OP_loadMask1
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "addOverlay1(%d)", param);

				loadOverlayElement(param, 1);

				break;
			}
		case 0x17:	// OP_unloadMask1
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "removeOverlay1(%d)", param);

				freeOverlay(param, 1);

				break;
			}
		case 0x18:	// OP_loadMask4
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "addOverlayType4(%d)", param);

				loadOverlayElement(param, 4);

				break;
			}
		case 0x19:	// OP_unloadMask4
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "removeSpriteOverlay4(%d)", param);

				freeOverlay(param, 4);

				break;
			}
		case 0x1A:
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "op1A(%d) -> TODO !", param);

				addSpriteFilledToBGList(param);

				break;
			}
		case 0x1B:
			{
				DEBUG_SCRIPT(currentLine, "closeEngine7");
				closeEngine7();
				break;
			}
		case 0x1D:	// OP_label
			{
				byte labelIdx = getNextByte();

				DEBUG_SCRIPT(currentLine, "label(%d)", labelIdx);

				scriptElement->stack[labelIdx] = _currentPosition;

				break;
			}
		case 0x1E:	// OP_goto
			{
				byte labelIdx = getNextByte();

				DEBUG_SCRIPT(currentLine, "goto label(%d)", labelIdx);

				assert(scriptElement->stack[labelIdx] != -1);
				_currentPosition = scriptElement->stack[labelIdx];

				break;
			}
		case 0x1F:	// OP_gotoIfSup
			{
				byte labelIdx = getNextByte();

				if ((scriptElement->compareResult & 2) && !(scriptElement->compareResult & 1)) {
					DEBUG_SCRIPT(currentLine, "if(>) goto %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = scriptElement->stack[labelIdx];
				} else {
					DEBUG_SCRIPT(currentLine, "if(>) goto %d (false)", labelIdx);
				}

				break;
			}
		case 0x20:	// OP_gotoIfSupEqu
			{
				byte labelIdx = getNextByte();

				if (scriptElement->compareResult & 2 || scriptElement->compareResult & 1) {
					DEBUG_SCRIPT(currentLine, "if(>=) goto %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = scriptElement->stack[labelIdx];
				} else {
					DEBUG_SCRIPT(currentLine, "if(>=) goto %d (false)",
					    labelIdx);
				}

				break;
			}
		case 0x21:	// OP_gotoIfInf
			{
				byte labelIdx = getNextByte();

				if ((scriptElement->compareResult & 4) && !(scriptElement->compareResult & 1)) {
					DEBUG_SCRIPT(currentLine, "if(<) goto %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = scriptElement->stack[labelIdx];
				} else {
					DEBUG_SCRIPT(currentLine, "if(<) goto %d (false)", labelIdx);
				}

				break;
			}
		case 0x22:	// OP_gotoIfInfEqu
			{
				byte labelIdx = getNextByte();

				if ((scriptElement->compareResult & 4) || (scriptElement->compareResult & 1)) {
					DEBUG_SCRIPT(currentLine, "if(<=) goto %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = scriptElement->stack[labelIdx];
				} else {
					DEBUG_SCRIPT(currentLine, "if(<=) goto %d (false)", labelIdx);
				}

				break;
			}
		case 0x23:	// OP_gotoIfEqu
			{
				byte labelIdx = getNextByte();

				if (scriptElement->compareResult & 1) {
					DEBUG_SCRIPT(currentLine, "if(==) goto %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = scriptElement->stack[labelIdx];
				} else {
					DEBUG_SCRIPT(currentLine, "if(==) goto %d (false)", labelIdx);
				}

				break;
			}
		case 0x24:	// OP_gotoIfDiff
			{
				byte labelIdx = getNextByte();

				if (!(scriptElement->compareResult & 1)) {
					DEBUG_SCRIPT(currentLine, "if(!=) goto %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = scriptElement->stack[labelIdx];
				} else {
					DEBUG_SCRIPT(currentLine, "if(!=) goto %d (false)", labelIdx);
				}

				break;
			}
		case 0x25:	// OP_removeLabel
			{
				warning("STUB: Opcode 0x25");
				break;
			}
		case 0x26:	// OP_loop
			{
				byte varIdx = getNextByte();
				byte labelIdx = getNextByte();

				scriptElement->localVars[varIdx]--;

				if (scriptElement->localVars[varIdx] >= 0) {
					DEBUG_SCRIPT(currentLine, "loop(var[%]) goto %d (continue)", varIdx, labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = scriptElement->stack[labelIdx];
				} else {
					DEBUG_SCRIPT(currentLine, "loop(var[%]) goto %d (stop)", varIdx, labelIdx);
				}

				break;
			}
		case 0x31:	// OP_startScript (OP_startGlobalScript?)
			{
				byte param = getNextByte();

				assert(param < NUM_MAX_SCRIPT);

				DEBUG_SCRIPT(currentLine, "startScript(%d)", param);

				addScriptToList0(param);
				break;
			}
		case 0x32:	// OP_endGlobalScript
			{
				byte scriptIdx = getNextByte();

				DEBUG_SCRIPT(currentLine, "stopGlobalScript(%d)", scriptIdx);

				stopGlobalScript(scriptIdx);
				break;
			}
		case 0x3B:	// OP_loadResource (OP_loadAnim?)
			{
				const char *param = getNextString();

				DEBUG_SCRIPT(currentLine, "loadResource(\"%s\")", param);

				loadResource(param);
				break;
			}
		case 0x3C:	// OP_loadBg
			{
				const char *param = getNextString();

				DEBUG_SCRIPT(currentLine, "loadBg(\"%s\")", param);

				loadBg(param);
				closeEngine7();
				bgVar0 = 0;

				break;
			}
		case 0x3D:	// OP_loadCt
			{
				const char *param = getNextString();

				DEBUG_SCRIPT(currentLine, "loadCt(\"%s\")", param);

				loadCt(param);
				break;
			}
		case 0x3F:	// OP_loadPart
			{
				const char *param = getNextString();

				DEBUG_SCRIPT(currentLine, "loadPart(\"%s\")", param);

				if (gameType == Cine::GID_FW)
					loadPart(param);

				break;
			}
		case 0x40:	// OP_closePart
			{
				DEBUG_SCRIPT(currentLine, "closePart");

				closePart();
				break;
			}
		case 0x41:	// OP_loadData (OP_loadNewPrcName?)
			{
				byte param1 = getNextByte();
				const char *param2 = getNextString();

				assert(param1 <= 3);

				switch (param1) {
				case 0:
					{
						DEBUG_SCRIPT(currentLine, "loadPrc(\"%s\")", param2);
						strcpy(newPrcName, param2);
						break;
					}
				case 1:
					{
						DEBUG_SCRIPT(currentLine, "loadRel(\"%s\")", param2);
						strcpy(newRelName, param2);
						break;
					}
				case 2:
					{
						DEBUG_SCRIPT(currentLine, "loadObject(\"%s\")", param2);
						strcpy(newObjectName, param2);
						break;
					}
				case 3:
					{
						DEBUG_SCRIPT(currentLine, "loadMsg(\"%s\")", param2);
						strcpy(newMsgName, param2);
						break;
					}
				}

				break;
			}
		case 0x42:	// OP_requestCheckPendingDataLoad
			{
				DEBUG_SCRIPT(currentLine, "request data load");
				checkForPendingDataLoadSwitch = 1;
				break;
			}
		case 0x45:	// OP_blitAndFade
			{
				DEBUG_SCRIPT(currentLine, "request fadein");
				// TODO: use real code

				memcpy(c_palette, tempPalette, sizeof(uint16) * 16);
				drawOverlays();
				flip();

				fadeRequired = 1;
				break;
			}
		case 0x46:	// OP_fadeToBlack
			{
				DEBUG_SCRIPT(currentLine, "request fadeout");
				//fadeToBlack();
				warning("STUB: Opcode 0x46");
				break;
			}
		case 0x47:	// OP_transformPaletteRange
			{
				byte startColor = getNextByte();
				byte numColor = getNextByte();
				uint16 r = getNextWord();
				uint16 g = getNextWord();
				uint16 b = getNextWord();

				DEBUG_SCRIPT(currentLine, "transformPaletteRange(from:%d,numIdx:%d,r:%d,g:%d,b:%d) -> unimplemented", startColor, numColor, r, g, b);

				transformPaletteRange(startColor, numColor, r, g, b);

				break;
			}
		case 0x49:	// OP_setDefaultMenuColor2
			{
				defaultMenuBoxColor2 = getNextByte();

				DEBUG_SCRIPT(currentLine, "setDefaultMenuColor2(%d)", defaultMenuBoxColor2);

				break;
			}
		case 0x4A:
			{
				byte a = getNextByte();
				byte b = getNextByte();
				byte c = getNextByte();

				DEBUG_SCRIPT(currentLine, "palRotate(%d,%d,%d)", a, b, c);

				palRotate(a, b, c);
				break;
			}
		case 0x4F:	// OP_break;
			{
				DEBUG_SCRIPT(currentLine, "break");

				scriptElement->scriptPosition = _currentPosition;
				closeScript = 1;
				break;
			}
		case 0x50:	// OP_endScript
			{
				DEBUG_SCRIPT(currentLine, "endScript");

				if (params == 0) {
					endScript0(scriptElement->scriptIdx);
				} else {
					endScript1(scriptElement->scriptIdx);
				}

				closeScript = 1;
				break;
			}
		case 0x51:	// OP_message
			{
				byte param1 = getNextByte();
				uint16 param2 = getNextWord();
				uint16 param3 = getNextWord();
				uint16 param4 = getNextWord();
				uint16 param5 = getNextWord();

				DEBUG_SCRIPT(currentLine, "message(%d,%d,%d,%d,%d)", param1, param2, param3, param4, param5);

				addMessage(param1, param2, param3, param4, param5);

				break;
			}
		case 0x52:	// OP_loadGlobalVar
			{
				byte varIdx = getNextByte();
				byte varType = getNextByte();

				if (varType) {
					byte dataIdx = getNextByte();

					if (varType == 1) {
						DEBUG_SCRIPT(currentLine, "globalVars[%d] = var[%d]", varIdx, dataIdx);

						globalVars[varIdx] = scriptElement->localVars[dataIdx];
					} else {
						DEBUG_SCRIPT(currentLine, "globalVars[%d] = globalVars[%d]", varIdx, dataIdx);

						globalVars[varIdx] = globalVars[dataIdx];
					}
				} else {
					uint16 newData = getNextWord();

					DEBUG_SCRIPT(currentLine, "globalVars[%d] = %d", varIdx, newData);

					globalVars[varIdx] = newData;
				}

				break;
			}
		case 0x53:	// OP_compareGlobalVar
			{
				byte varIdx = getNextByte();
				byte varType = getNextByte();

				if (varType) {
					byte value = getNextByte();

					DEBUG_SCRIPT(currentLine, "compare globalVars[%d] and var[%d]", varIdx, value);

					scriptElement->compareResult = compareVars(globalVars[varIdx], scriptElement->localVars[value]);
				} else {
					uint16 newData = getNextWord();

					DEBUG_SCRIPT(currentLine,
					    "compare globalVars[%d] and %d",
					    varIdx, newData);

					if (varIdx == 255 && (gameType == Cine::GID_FW)) {	// TODO: fix
						scriptElement->compareResult = 1;
					} else {
						scriptElement->compareResult = compareVars(globalVars[varIdx], newData);
					}
				}

				break;
			}
		case 0x59:	// OP_declareFunctionName
			{
				const char *param = getNextString();

				DEBUG_SCRIPT(currentLine, "comment(%s)", param);
				break;
			}
		case 0x5A:	// OP_freePartRange
			{
				byte startIdx = getNextByte();
				byte numIdx = getNextByte();

				assert(startIdx + numIdx <= NUM_MAX_ANIMDATA);

				DEBUG_SCRIPT(currentLine, "freePartRange(%d,%d)", startIdx, numIdx);

				freePartRange(startIdx, numIdx);

				break;
			}
		case 0x5B:	// OP_unloadAllMasks
			{
				DEBUG_SCRIPT(currentLine, "unloadAllMasks()");

				unloadAllMasks();

				break;
			}
		case 0x63:
			{
				warning("STUB: Opcode 0x63");
				break;
			}
		case 0x64:
			{
				warning("STUB: Opcode 0x64");
				break;
			}
		case 0x65:	// OP_initializeZoneData
			{
				byte i;

				DEBUG_SCRIPT(currentLine, "initializeZoneData()");

				for (i = 0; i < NUM_MAX_ZONE; i++) {
					zoneData[i] = i;
				}

				break;
			}
		case 0x66:	// OP_setZoneDataEntry
			{
				byte zoneIdx = getNextByte();
				uint16 var = getNextWord();

				DEBUG_SCRIPT(currentLine, "setZone[%d] = %d", zoneIdx, var);

				zoneData[zoneIdx] = var;

				break;
			}
		case 0x67:	// OP_getZoneDataEntry
			{
				warning("STUB: Opcode 0x67");
				break;
			}
		case 0x68:	// OP_setDefaultMenuColor
			{
				defaultMenuBoxColor = getNextByte();

				DEBUG_SCRIPT(currentLine, "setDefaultMenuColor(%d)", defaultMenuBoxColor2);

				break;
			}
		case 0x69:	// OP_allowPlayerInput
			{
				DEBUG_SCRIPT(currentLine, "allowPlayerInput()");

				allowPlayerInput = 1;
				break;
			}
		case 0x6A:	// OP_dissallowPlayerInput
			{
				DEBUG_SCRIPT(currentLine, "dissallowPlayerInput()");

				allowPlayerInput = 0;
				break;
			}
		case 0x6B:	// OP_changeDataDisk
			{
				byte newDisk = getNextByte();

				DEBUG_SCRIPT(currentLine, "changeDataDisk(%d)", newDisk);

				checkDataDisk(newDisk);
				break;
			}
		case 0x6D:	// OP_loadMusic
			{
				const char *param = getNextString();

				DEBUG_SCRIPT(currentLine, "loadMusic(%s)", param);
				g_sfxPlayer->load(param);
				break;
			}
		case 0x6E:	// OP_playMusic
			{
				DEBUG_SCRIPT(currentLine, "playMusic()");
				g_sfxPlayer->play();
				break;
			}
		case 0x6F:	// OP_fadeOutMusic
			{
				DEBUG_SCRIPT(currentLine, "fadeOutMusic()");
				g_sfxPlayer->fadeOut();
				break;
			}
		case 0x70:	// OP_stopSample
			{
				DEBUG_SCRIPT(currentLine, "stopSample()");
				g_sfxPlayer->stop();
				break;
			}
		case 0x71:
			{
				warning("STUB: Opcode 0x71");
				break;
			}
		case 0x72:
			{
				warning("STUB: Opcode 0x72");
				break;
			}
		case 0x73:
			{
				warning("STUB: Opcode 0x73");
				break;
			}
		case 0x77:	// OP_playSample
		case 0x78:	// OP_playSample
			{
				DEBUG_SCRIPT(currentLine, "playSample()");

				byte anim = getNextByte();
				byte channel = getNextByte();

				getNextWord();
				getNextByte();

				int16 volume = getNextWord();
				uint16 flag = getNextWord();

				if (volume > 63)
					volume = 63;
				if (volume < 0)
					volume = 63;

				if (animDataTable[anim].ptr1) {
					if (channel >= 10) {
						channel -= 10;
					}
					if (volume < 50) {
						volume = 50;
					}

					g_sfxPlayer->stop();
					
					if (flag == 0xFFFF) {
						g_soundDriver->playSound(animDataTable[anim].ptr1, channel, volume);
					} else {
						g_soundDriver->resetChannel(channel);
					}
				}
				break;
			}
		case 0x79:	// OP_allowSystemMenu
			{
				var22 = getNextByte();

				DEBUG_SCRIPT(currentLine, "OP79 load var22 to %d -> TODO", var22);
				break;
			}
		case 0x7A:	// OP_loadMask5
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "addOverlay5(%d)", param);

				loadOverlayElement(param, 5);
				break;
			}
		case 0x7B:	// OP_unloadMask5
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "freeOverlay5(%d)", param);

				freeOverlay(param, 5);
				break;
			}
		case 0x7F:
			{
				byte param1 = getNextByte();
				byte param2 = getNextByte();
				byte param3 = getNextByte();
				byte param4 = getNextByte();
				uint16 param5 = getNextWord();
				uint16 param6 = getNextWord();
				uint16 param7 = getNextWord();

				DEBUG_SCRIPT(currentLine, "addSeqListElement(%d,%d,%d,%d,%d)", param1, param2, param3, param4, param5, param6, param7);

				addSeqListElement(param1, 0, param2, param3, param4, param5, param6, 0, param7);

				break;
			}
		case 0x80:
			{
				byte a = getNextByte();
				byte b = getNextByte();

				DEBUG_SCRIPT(currentLine, "removeSeq(%d,%d) -> TODO", a, b);

				removeSeq(a, 0, b);
				break;
			}
		case 0x81:
			{
				warning("STUB: Opcode 0x81");
				break;
			}
		case 0x82:
			{
				warning("STUB: Opcode 0x82");
				break;
			}
		case 0x83:
			{
				byte a = getNextByte();
				byte b = getNextByte();

				DEBUG_SCRIPT(currentLine, "OP83(%d,%d) -> TODO", a, b);

				if (isSeqRunning(a, 0, b)) {
					scriptElement->compareResult = 1;
				} else {
					scriptElement->compareResult = 0;
				}
				break;
			}
		case 0x84:	// OP_gotoIfSup nearest
			{
				byte labelIdx = getNextByte();

				if ((scriptElement->compareResult & 2)
				    && !(scriptElement->compareResult & 1)) {
					DEBUG_SCRIPT(currentLine, "if(>) goto nearest %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = computeScriptStackFromScript(scriptElement->scriptPtr, _currentPosition, labelIdx,
									scriptTable[scriptElement->scriptIdx].size);
				} else {
					DEBUG_SCRIPT(currentLine, "if(>) goto nearest %d (false)", labelIdx);
				}

				break;
			}
		case 0x85:	// OP_gotoIfSupEqu nearest
			{
				byte labelIdx = getNextByte();

				if (scriptElement->compareResult & 2 || scriptElement->compareResult & 1) {
					DEBUG_SCRIPT(currentLine, "if(>=) goto nearest %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = computeScriptStackFromScript(scriptElement->scriptPtr, _currentPosition, labelIdx,
								    scriptTable[scriptElement->scriptIdx].size);
				} else {
					DEBUG_SCRIPT(currentLine, "if(>=) goto nearest %d (false)", labelIdx);
				}

				break;
			}
		case 0x86:	// OP_gotoIfInf nearest
			{
				byte labelIdx = getNextByte();

				if ((scriptElement->compareResult & 4) && !(scriptElement->compareResult & 1)) {
					DEBUG_SCRIPT(currentLine, "if(<) goto nearest %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = computeScriptStackFromScript(scriptElement->scriptPtr,
									_currentPosition, labelIdx, scriptTable[scriptElement->scriptIdx].size);
				} else {
					DEBUG_SCRIPT(currentLine, "if(<) goto nearest %d (false)", labelIdx);
				}

				break;
			}
		case 0x87:	// OP_gotoIfInfEqu nearest
			{
				byte labelIdx = getNextByte();

				if ((scriptElement->compareResult & 4) || (scriptElement->compareResult & 1)) {
					DEBUG_SCRIPT(currentLine, "if(<=) goto nearest %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = computeScriptStackFromScript(scriptElement->scriptPtr,
								    _currentPosition, labelIdx, scriptTable[scriptElement->scriptIdx].size);
				} else {
					DEBUG_SCRIPT(currentLine, "if(<=) goto nearest %d (false)", labelIdx);
				}

				break;
			}
		case 0x88:	// OP_gotoIfEqu nearest
			{
				byte labelIdx = getNextByte();

				if (scriptElement->compareResult & 1) {
					DEBUG_SCRIPT(currentLine, "if(==) goto nearest %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = computeScriptStackFromScript(scriptElement->scriptPtr,
								    _currentPosition, labelIdx, scriptTable[scriptElement->scriptIdx].size);
				} else {
					DEBUG_SCRIPT(currentLine, "if(==) goto nearest %d (false)", labelIdx);
				}

				break;
			}
		case 0x89:	// OP_gotoIfDiff nearest
			{
				byte labelIdx = getNextByte();

				if (!(scriptElement->compareResult & 1)) {
					DEBUG_SCRIPT(currentLine, "if(!=) goto nearest %d (true)", labelIdx);
					assert(scriptElement->stack[labelIdx] != -1);
					_currentPosition = computeScriptStackFromScript(scriptElement->scriptPtr,
								    _currentPosition, labelIdx, scriptTable[scriptElement->scriptIdx].size);
				} else {
					DEBUG_SCRIPT(currentLine, "if(!=) goto nearest %d (false)", labelIdx);
				}

				break;
			}
		case 0x8B:
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "startObjectScript(%d)", param);

				runObjectScript(param);
				break;
			}
		case 0x8C:
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "stopObjectScript(%d)", param);

				stopObjectScript(param);
				break;
			}
		case 0x8D:
			{
				warning("STUB: Opcode 0x8D");
				break;
			}
		case 0x8E:
			{
				byte param1 = getNextWord();
				const char *param2 = getNextString();

				DEBUG_SCRIPT(currentLine, "addBackground(%s,%d)", param2, param1);

				addBackground(param2, param1);
				break;
			}
		case 0x8F:
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "removeBackground(%d)", param);

				assert(param);
				if (additionalBgTable[param]) {
					free(additionalBgTable[param]);
					additionalBgTable[param] = NULL;
				}

				if (currentAdditionalBgIdx == param) {
					currentAdditionalBgIdx = 0;
				}

				if (currentAdditionalBgIdx2 == param) {
					currentAdditionalBgIdx2 = 0;
				}

				strcpy(currentBgName[param], "");

				break;
			}
		case 0x90:
			{
				byte param1 = getNextByte();
				const char *param2 = getNextString();

				DEBUG_SCRIPT(currentLine, "loadABS(%d,%s)", param1, param2);

				loadAbs(param2, param1);
				break;
			}
		case 0x91:
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "useBg(%d)", param);

				assert(param <= 8);

				if (additionalBgTable[param]) {
					currentAdditionalBgIdx = param;
					//if (adBgVar0 == 0) {
					//	adBgVar1 = 1;
					//}
				}
				break;
			}
		case 0x95:
			{
				warning("STUB: Opcode 0x95");
				break;
			}
		case 0x9A:	// OP_wasZoneChecked
			{
				warning("STUB: Opcode 0x9A");
				break;
			}
		case 0x9B:
			{
				warning("STUB: Opcode 0x9B");
				break;
			}
		case 0x9C:
			{
				warning("STUB: Opcode 0x9C");
				break;
			}
		case 0x9D:
			{
				byte param = getNextByte();

				DEBUG_SCRIPT(currentLine, "useBgScroll(%d)", param);

				assert(param <= 8);

				if (additionalBgTable[param]) {
					currentAdditionalBgIdx2 = param;
				}
				break;
			}
		case 0x9E:
			{
				byte param1 = getNextByte();

				if (param1) {
					byte param2 = getNextByte();

					DEBUG_SCRIPT(currentLine, "additionalBgVScroll = var[%d]", param2);

					additionalBgVScroll = scriptElement->localVars[param2];
				} else {
					uint16 param2 = getNextWord();

					DEBUG_SCRIPT(currentLine, "additionalBgVScroll = %d", param2);

					additionalBgVScroll = param2;
				}

				break;
			}
		case 0x9F:
			{
				warning("STUB: Opcode 0x9F");
				break;
			}
		case 0xA0:
			{
				uint16 param1 = getNextWord();
				uint16 param2 = getNextWord();

				DEBUG_SCRIPT(currentLine, "addGfxElementA0(%d,%d)", param1, param2);

				addGfxElementA0(param1, param2);
				break;
			}
		case 0xA1:
			{
				warning("STUB: Opcode 0xA1");
				_currentPosition += 4;
				break;
			}
		case 0xA2:
			{
				warning("STUB: Opcode 0xA2");
				_currentPosition += 4;
				break;
			}
		case 0xA3:
			{
				warning("STUB: Opcode 0xA3");
				_currentPosition += 4;
				break;
			}
		case 0xA4:
			{
				warning("STUB: Opcode 0xA4");
				break;
			}
		case 0xA5:
			{
				warning("STUB: Opcode 0xA5");
				break;
			}
		case 0xB6:
			{
				warning("STUB: Opcode 0xB6");
				break;
			}
		default:
			{
				error("Unsupported opcode %X", opcode - 1);
			}
		}
	}
}

void executeList1(void) {
	prcLinkedListStruct *currentHead = objScriptList.next;

	while (currentHead) {
		prcLinkedListStruct *tempHead;

		tempHead = currentHead->next;

		executeScript(currentHead, 1);

		currentHead = tempHead;
	}
}

void executeList0(void) {
	prcLinkedListStruct *currentHead = globalScriptsHead.next;

	while (currentHead) {
		prcLinkedListStruct *tempHead;

		executeScript(currentHead, 0);

		tempHead = currentHead->next;
		currentHead = tempHead;
	}
}

void purgeList1(void) {
}

void purgeList0(void) {
}

////////////////////////////////////
// SCRIPT DECOMPILER

#ifdef DUMP_SCRIPTS

byte decompileBuffer[10000][1000];
uint16 decompileBufferPosition = 0;

byte bufferDec[256];

byte compareString1[256];
byte compareString2[256];

byte *getObjPramName(byte paramIdx) {
	switch (paramIdx) {
	case 1:
		return ".X";
	case 2:
		return ".Y";
	case 3:
		return ".mask";
	case 4:
		return ".frame";
	case 5:
		return ".status";
	case 6:
		return ".costume";
	default:
		sprintf(bufferDec, ".param%d", paramIdx);
		return bufferDec;
	}
}

void decompileScript(byte *scriptPtr, int16 *stackPtr, uint16 scriptSize, uint16 scriptIdx) {
	byte lineBuffer[256];
	byte *localScriptPtr = scriptPtr;
	uint16 exitScript;
	uint32 position = 0;

	assert(scriptPtr);
	// assert(stackPtr);

	exitScript = 0;

	sprintf(decompileBuffer[decompileBufferPosition++], "--------- SCRIPT %d ---------\n", scriptIdx);

	do {
		uint16 opcode = *(localScriptPtr + position);
		position++;

		if (position == scriptSize) {
			opcode = 0;
		}

		printf("%X\n", opcode - 1);

		strcpy(lineBuffer, "");

		switch (opcode - 1) {
		case -1:
			{
				break;
			}
		case 0x0:
			{
				byte param1;
				byte param2;
				int16 param3;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "obj[%d]%s = %d\n", param1, getObjPramName(param2), param3);

				break;
			}
		case 0x1:
			{
				byte param1;
				byte param2;
				byte param3;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "var[%d]=obj[%d]%s\n", param3, param1, getObjPramName(param2));
				break;
			}
		case 0x2:
			{
				byte param1;
				byte param2;
				int16 param3;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "obj[%d]%s+=%d\n", param1, getObjPramName(param2), param3);

				break;
			}
		case 0x3:
			{
				byte param1;
				byte param2;
				int16 param3;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "obj[%d]%s-=%d\n", param1, getObjPramName(param2), param3);

				break;
			}
		case 0x4:
			{
				byte param1;
				byte param2;
				int16 param3;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "obj[%d]%s+=obj[%d]%s\n", param1, getObjPramName(param2), param3, getObjPramName(param2));

				break;
			}
		case 0x5:
			{
				byte param1;
				byte param2;
				int16 param3;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "obj[%d]%s-=obj[%d]%s\n", param1, getObjPramName(param2), param3, getObjPramName(param2));

				break;
			}
		case 0x6:
			{
				byte param1;
				byte param2;
				int16 param3;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(compareString1, "obj[%d]%s", param1, getObjPramName(param2));
				sprintf(compareString2, "%d", param3);

				break;
			}
		case 0x7:
			{
				byte param1;
				int16 param2;
				int16 param3;
				int16 param4;
				int16 param5;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param4 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param5 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "setupObject(Idx:%d,X:%d,Y:%d,mask:%d,frame:%d)\n", param1, param2, param3, param4, param5);

				break;
			}
		case 0x8:
			{
				byte param1;
				int16 param2;
				int16 param3;
				int16 param4;
				int16 param5;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param4 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param5 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "checkCollision(%d,%d,%d,%d,%d)\n", param1, param2, param3, param4, param5);

				break;
			}
		case 0x9:
			{
				byte param1;
				int16 param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				if (param2) {
					byte param3;

					param3 = *(localScriptPtr + position);
					position++;

					if (param2 == 1) {
						sprintf(lineBuffer, "var[%d]=var[%d]\n", param1, param3);
					} else if (param2 == 2) {
						sprintf(lineBuffer, "var[%d]=globalVar[%d]\n", param1, param3);
					} else if (param2 == 3) {
						sprintf(lineBuffer, "var[%d]=mouse.X\n", param1);
					} else if (param2 == 4) {
						sprintf(lineBuffer, "var[%d]=mouse.Y\n", param1);
					} else if (param2 == 5) {
						sprintf(lineBuffer, "var[%d]=rand() mod %d\n", param1, param3);
					} else {
						error("decompileScript: 0x09: param2 = %d", param2);
					}
				} else {
					int16 param3;

					param3 = READ_BE_UINT16(localScriptPtr + position);
					position += 2;

					sprintf(lineBuffer, "var[%d]=%d\n", param1, param3);
				}

				break;
			}
		case 0xA:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				if (param2) {
					byte param3;

					param3 = *(localScriptPtr + position);
					position++;

					sprintf(lineBuffer, "var[%d]+=var[%d]\n", param1, param3);
				} else {
					int16 param3;

					param3 = READ_BE_UINT16(localScriptPtr +  position);
					position += 2;

					sprintf(lineBuffer, "var[%d]+=%d\n", param1, param3);
				}
				break;
			}
		case 0xB:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				if (param2) {
					byte param3;

					param3 = *(localScriptPtr + position);
					position++;

					sprintf(lineBuffer, "var[%d]-=var[%d]\n", param1, param3);
				} else {
					int16 param3;

					param3 = READ_BE_UINT16(localScriptPtr + position);
					position += 2;

					sprintf(lineBuffer, "var[%d]-=%d\n", param1, param3);
				}
				break;
			}
		case 0xC:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				if (param2) {
					byte param3;

					param3 = *(localScriptPtr + position);
					position++;

					sprintf(lineBuffer, "var[%d]*=var[%d]\n", param1, param3);
				} else {
					int16 param3;

					param3 = READ_BE_UINT16(localScriptPtr + position);
					position += 2;

					sprintf(lineBuffer, "var[%d]*=%d\n", param1, param3);
				}
				break;
			}
		case 0xD:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				if (param2) {
					byte param3;

					param3 = *(localScriptPtr + position);
					position++;

					sprintf(lineBuffer, "var[%d]/=var[%d]\n", param1, param3);
				} else {
					int16 param3;

					param3 = READ_BE_UINT16(localScriptPtr + position);
					position += 2;

					sprintf(lineBuffer, "var[%d]/=%d\n", param1, param3);
				}
				break;
			}
		case 0xE:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				if (param2) {
					byte param3;

					param3 = *(localScriptPtr + position);
					position++;

					if (param2 == 1) {
						sprintf(compareString1, "var[%d]", param1);
						sprintf(compareString2, "var[%d]", param3);

					} else if (param2 == 2) {
						sprintf(compareString1, "var[%d]", param1);
						sprintf(compareString2, "globalVar[%d]", param3);
					} else {
						error("decompileScript: 0x0E: param2 = %d", param2);
					}
				} else {
					int16 param3;

					param3 = READ_BE_UINT16(localScriptPtr + position);
					position += 2;

					sprintf(compareString1, "var[%d]", param1);
					sprintf(compareString2, "%d", param3);
				}
				break;
			}
		case 0xF:
			{
				byte param1;
				byte param2;
				byte param3;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "obj[%d]%s=var[%d]\n", param1, getObjPramName(param2), param3);

				break;
			}
		case 0x13:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "loadMask0(%d)\n", param);

				break;
			}
		case 0x14:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "unloadMask0(%d)\n", param);

				break;
			}
		case 0x15:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_15(%d)\n", param);

				break;
			}
		case 0x16:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "loadMask1(%d)\n", param);

				break;
			}
		case 0x17:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "unloadMask0(%d)\n", param);

				break;
			}
		case 0x18:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "loadMask4(%d)\n", param);

				break;
			}
		case 0x19:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "unloadMask4(%d)\n", param);

				break;
			}
		case 0x1A:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_1A(%d)\n", param);

				break;
			}
		case 0x1B:
			{
				sprintf(lineBuffer, "closeEngine7()\n");
				break;
			}
		case 0x1D:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "label(%d)\n", param);

				break;
			}
		case 0x1E:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "goto(%d)\n", param);

				break;
			}
		case 0x1F:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "if(%s>%s) goto(%d)\n", compareString1, compareString2, param);

				break;
			}
		case 0x20:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "if(%s>=%s) goto(%d)\n", compareString1, compareString2, param);

				break;
			}
		case 0x21:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "if(%s<%s) goto(%d)\n", compareString1, compareString2, param);

				break;
			}
		case 0x22:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "if(%s<=%s) goto(%d)\n", compareString1, compareString2, param);

				break;
			}
		case 0x23:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "if(%s==%s) goto(%d)\n", compareString1, compareString2, param);

				break;
			}
		case 0x24:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "if(%s!=%s) goto(%d)\n", compareString1, compareString2, param);

				break;
			}
		case 0x25:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "removeLabel(%d)\n", param);

				break;
			}
		case 0x26:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;
				param2 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "loop(--var[%d]) -> label(%d)\n", param1, param2);

				break;
			}
		case 0x31:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "startGlobalScript(%d)\n", param);

				break;
			}
		case 0x32:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "endGlobalScript(%d)\n", param);

				break;
			}
		case 0x3B:
			{
				sprintf(lineBuffer, "loadResource(%s)\n", localScriptPtr + position);

				position += strlen(localScriptPtr + position) + 1;
				break;
			}
		case 0x3C:
			{
				sprintf(lineBuffer, "loadBg(%s)\n",	localScriptPtr + position);

				position += strlen(localScriptPtr + position) + 1;
				break;
			}
		case 0x3D:
			{
				sprintf(lineBuffer, "loadCt(%s)\n", localScriptPtr + position);

				position += strlen(localScriptPtr + position) + 1;
				break;
			}
		case OP_loadPart:
			{
				sprintf(lineBuffer, "loadPart(%s)\n", localScriptPtr + position);

				position += strlen(localScriptPtr + position) + 1;
				break;
			}
		case 0x40:
			{
				sprintf(lineBuffer, "closePart()\n");
				break;
			}
		case OP_loadNewPrcName:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "loadPrc(%d,%s)\n", param, localScriptPtr + position);

				position += strlen(localScriptPtr + position) + 1;
				break;
			}
		case OP_requestCheckPendingDataLoad:	// nop
			{
				sprintf(lineBuffer, "requestCheckPendingDataLoad()\n");
				break;
			}
		case 0x45:
			{
				sprintf(lineBuffer, "blitAndFade()\n");
				break;
			}
		case 0x46:
			{
				sprintf(lineBuffer, "fadeToBlack()\n");
				break;
			}
		case 0x47:
			{
				byte param1;
				byte param2;
				int16 param3;
				int16 param4;
				int16 param5;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param4 = READ_BE_UINT16)(localScriptPtr + position);
				position += 2;

				param5 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "transformPaletteRange(%d,%d,%d,%d,%d)\n", param1, param2, param3, param4, param5);

				break;
			}
		case 0x49:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "setDefaultMenuColor2(%d)\n", param);

				break;
			}
		case 0x4F:
			{
				sprintf(lineBuffer, "break()\n");
				exitScript = 1;
				break;
			}
		case 0x50:
			{
				sprintf(lineBuffer, "endScript()\n\n");
				break;
			}
		case 0x51:
			{
				byte param1;
				int16 param2;
				int16 param3;
				int16 param4;
				int16 param5;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param4 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param5 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "message(%d,%d,%d,%d,%d)\n", param1, param2, param3, param4, param5);

				break;
			}
		case 0x52:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				if (param2) {
					byte param3;

					param3 = *(localScriptPtr + position);
					position++;

					if (param2 == 1) {
						sprintf(lineBuffer, "globalVar[%d] = var[%d]\n", param1, param3);
					} else if (param2 == 2) {
						sprintf(lineBuffer, "globalVar[%d] = globalVar[%d]\n", param1, param3);
					} else {
						error("decompileScript: 0x52: param2 = %d", param2);
					}
				} else {
					int16 param3;

					param3 = READ_BE_UINT16(localScriptPtr + position);
					position += 2;

					sprintf(lineBuffer, "globalVar[%d] = %d\n", param1, param3);
				}
				break;
			}
		case 0x53:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				if (param2) {
					byte param3;

					param3 = *(localScriptPtr + position);
					position++;

					if (param2 == 1) {
						sprintf(compareString1, "globalVar[%d]", param1);
						sprintf(compareString2, "var[%d]", param3);
					} else if (param2 == 2) {
						sprintf(compareString1, "globalVar[%d]", param1);
						sprintf(compareString2, "globalVar[%d]", param3);
					} else {
						error("decompileScript: 0x53: param2 = %d", param2);
					}
				} else {
					int16 param3;

					param3 = READ_BE_UINT16(localScriptPtr + position);
					position += 2;

					sprintf(compareString1, "globalVar[%d]", param1);
					sprintf(compareString2, "%d", param3);
				}
				break;
			}
		case 0x59:
			{
				sprintf(lineBuffer, "comment: %s\n", localScriptPtr + position);

				position += strlen(localScriptPtr + position);
				break;
			}
		case 0x5A:
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "freePartRang(%d,%d)\n", param1, param2);

				break;
			}
		case 0x5B:
			{
				sprintf(lineBuffer, "unloadAllMasks()\n");
				break;
			}
		case 0x65:
			{
				sprintf(lineBuffer, "setupTableUnk1()\n");
				break;
			}
		case 0x66:
			{
				byte param1;
				int16 param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "tableUnk1[%d] = %d\n", param1, param2);

				break;
			}
		case 0x68:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "setDefaultMenuBoxColor(%d)\n", param);

				break;
			}
		case 0x69:
			{
				sprintf(lineBuffer, "allowPlayerInput()\n");
				break;
			}
		case 0x6A:
			{
				sprintf(lineBuffer, "disallowPlayerInput()\n");
				break;
			}
		case OP_changeDataDisk:
			{
				byte newDisk;

				newDisk = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "changeDataDisk(%d)\n", newDisk);

				break;
			}
		case 0x6D:
			{
				sprintf(lineBuffer, "loadDat(%s)\n", localScriptPtr + position);

				position += strlen(localScriptPtr + position) + 1;
				break;
			}
		case 0x6E:	// nop
			{
				sprintf(lineBuffer, "updateDat()\n");
				break;
			}
		case 0x6F:
			{
				sprintf(lineBuffer, "OP_6F() -> dat related\n");
				break;
			}
		case 0x70:
			{
				sprintf(lineBuffer, "stopSample()\n");
				break;
			}
		case OP_79:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "allowSystemMenu(%d)\n", param);

				break;
			}
		case 0x77:
			{
				byte param1;
				byte param2;
				int16 param3;
				byte param4;
				int16 param5;
				int16 param6;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param4 = *(localScriptPtr + position);
				position++;

				param5 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param6 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "playSample(%d,%d,%d,%d,%d,%d)\n", param1, param2, param3, param4, param5, param6);

				break;
			}
		case 0x78:
			{
				byte param1;
				byte param2;
				int16 param3;
				byte param4;
				int16 param5;
				int16 param6;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param4 = *(localScriptPtr + position);
				position++;

				param5 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param6 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "OP_78(%d,%d,%d,%d,%d,%d)\n", param1, param2, param3, param4, param5, param6);

				break;
			}
		case 0x7A:
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_7A(%d)\n", param);

				break;
			}
		case 0x7B:	// OS only
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_7B(%d)\n", param);

				break;
			}
		case 0x7F:	// OS only
			{
				byte param1;
				byte param2;
				byte param3;
				byte param4;
				int16 param5;
				int16 param6;
				int16 param7;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = *(localScriptPtr + position);
				position++;

				param4 = *(localScriptPtr + position);
				position++;

				param5 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param6 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param7 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(lineBuffer, "OP_7F(%d,%d,%d,%d,%d)\n", param1, param2, param3, param4, param5, param6, param7);

				break;
			}
		case 0x80:	// OS only
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_80(%d,%d)\n", param1, param2);

				break;
			}
		case 0x82:	// OS only
			{
				byte param1;
				byte param2;
				uint16 param3;
				uint16 param4;
				byte param5;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param4 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param5 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_82(%d,%d,%d,%d,%d)\n", param1, param2, param3, param4, param5);

				break;
			}
		case 0x83:	// OS only
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_83(%d,%d)\n", param1, param2);

				break;
			}
		case 0x89:	// OS only
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "if(%s!=%s) goto next label(%d)\n", compareString1, compareString2, param);

				break;
			}
		case 0x8B:	// OS only
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_8B(%d)\n", param);

				break;
			}
		case 0x8C:	// OS only
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_8C(%d)\n", param);

				break;
			}
		case 0x8D:	// OS only
			{
				int16 param1;
				int16 param2;
				int16 param3;
				int16 param4;
				int16 param5;
				int16 param6;
				int16 param7;
				int16 param8;

				param1 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param2 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param3 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param4 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param5 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param6 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param7 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				param8 = READ_BE_UINT16(localScriptPtr + position);
				position += 2;

				sprintf(compareString1, "obj[%d]", param1);
				sprintf(compareString2, "{%d,%d,%d,%d,%d,%d,%d}", param2, param3, param4, param5, param6, param7, param8);

				break;
			}
		case 0x8E:	// OS only
			{
				byte param1;

				param1 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "ADDBG(%d,%s)\n", param1, localScriptPtr + position);

				position += strlen(localScriptPtr + position);

				break;
			}
		case 0x8F:	// OS only
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_8F(%d)\n", param);

				break;
			}
		case 0x90:	// OS only
			{
				byte param1;

				param1 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "loadABS(%d,%s)\n", param1, localScriptPtr + position);

				position += strlen(localScriptPtr + position);

				break;
			}
		case 0x91:	// OS only
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_91(%d)\n", param);

				break;
			}
		case 0x9D:	// OS only
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_9D(%d) -> flip img idx\n", param);

				break;
			}
		case 0x9E:	// OS only
			{
				byte param;

				param = *(localScriptPtr + position);
				position++;

				if (param) {
					byte param2;

					param2 = *(localScriptPtr + position);
					position++;

					sprintf(lineBuffer, "OP_9E(%d,%d)\n", param, param2);
				} else {
					int16 param2;

					param2 = READ_BE_UINT16(localScriptPtr + position);
					position += 2;

					sprintf(lineBuffer, "OP_9E(%d,%d)\n", param, param2);
				}

				break;
			}
		case 0xA0:	// OS only
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_A0(%d,%d)\n", param1, param2);

				break;
			}
		case 0xA1:	// OS only
			{
				byte param1;
				byte param2;

				param1 = *(localScriptPtr + position);
				position++;

				param2 = *(localScriptPtr + position);
				position++;

				sprintf(lineBuffer, "OP_A1(%d,%d)\n", param1, param2);

				break;
			}
		default:
			{
				sprintf(lineBuffer, "Unsupported opcode %X in decompileScript\n\n", opcode - 1);
				position = scriptSize;
				break;
			}
		}

		// printf(lineBuffer);
		strcpy(decompileBuffer[decompileBufferPosition++], lineBuffer);

		exitScript = 0;
		if (position >= scriptSize) {
			exitScript = 1;
		}

	} while (!exitScript);
}

void dumpScript(byte *dumpName) {
	File *fHandle;
	uint16 i;

	fHandle = fopen(dumpName, "wt+");

	for (i = 0; i < decompileBufferPosition; i++) {
		fprintf(fHandle, decompileBuffer[i]);
	}

	fclose(fHandle);

	decompileBufferPosition = 0;
}

#endif

} // End of namespace Cine