/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * 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 3 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, see <http://www.gnu.org/licenses/>.
 *
 */

#include "common/system.h"
#include "efh/efh.h"

namespace Efh {

const uint8 *EfhEngine::script_readNumberArray(const uint8 *srcBuffer, int16 destArraySize, int16 *destArray) {
	debugC(6, kDebugScript, "script_readNumberArray");

	const uint8 *buffer = srcBuffer;
	for (int i = 0; i < destArraySize; ++i) {
		buffer++;
		buffer = script_getNumber(buffer, &destArray[i]);
	}

	return buffer;
}

const uint8 *EfhEngine::script_getNumber(const uint8 *srcBuffer, int16 *retBuf) {
	debugC(6, kDebugScript, "script_getNumber");

	const uint8 *buffer = srcBuffer;
	int16 retVal = 0;
	for (;;) {
		uint8 curChar = *buffer;
		if (curChar < 0x30 || curChar > 0x39) {
			break;
		}
		retVal = retVal * 10 + curChar - 0x30;
		buffer++;
	}

	*retBuf = retVal;
	return buffer;
}

int16 EfhEngine::script_parse(Common::String stringBuffer, int16 posX, int16 posY, int16 maxX, int16 maxY, bool scriptExecuteFlag) {
	debugC(3, kDebugScript, "script_parse stringBuffer %d-%d %d-%d %s", posX, posY, maxX, maxY, scriptExecuteFlag ? "True" : "False");
	debugC(6, kDebugScript, "%s", stringBuffer.c_str());

	bool doneFlag = false;
	bool noTextFlag = true;
	int16 retVal = 0xFF;
	int16 joiningNpcId = 0xFF;
	uint16 curLineNb = 0;
	int16 numbLines = (1 + maxY - posY) / 9;
	int16 width = maxX - posX;
	int16 spaceWidth = getStringWidth(" ");
	const uint8 *buffer = (const uint8 *)stringBuffer.c_str();
	char nextWord[80];
	Common::String curLine = "";
	memset(nextWord, 0, sizeof(nextWord));
	int16 curWordPos = 0;
	setTextPos(posX, curLineNb * 9 + posY);

	while (!doneFlag && !shouldQuit()) {
		uint8 curChar = *buffer;
		if (curChar != 0x5E && curChar != 0x20 && curChar != 0 && curChar != 0x7C) { // '^', ' ', NUL, '|'
			noTextFlag = false;
			nextWord[curWordPos++] = curChar;
			++buffer;
			continue;
		}

		if (curChar != 0x5E) { // '^'
			if (curChar == 0)
				doneFlag = true;
			else if (curChar == 0x7C) // '|'
				noTextFlag = false;

			nextWord[curWordPos] = 0;
			int16 widthNextWord = getStringWidth(nextWord);
			int16 widthCurrentLine = spaceWidth + getStringWidth(curLine);

			if (widthCurrentLine + widthNextWord > width || curChar == 0x7C) { // '|'
				if (curLineNb >= numbLines) {
					doneFlag = true;
				} else {
					if (!noTextFlag)
						displayStringAtTextPos(curLine);

					curLine = Common::String(nextWord) + " ";
					++curLineNb;
					setTextPos(posX, posY + curLineNb * 9);
					curWordPos = 0;
				}
			} else {
				curLine += Common::String(nextWord) + " ";
				curWordPos = 0;
			}
			++buffer;
			continue;
		}

		// At this point, curChar == 0x5E '^'
		++buffer;
		int16 opCode = 0;
		buffer = script_getNumber(buffer, &opCode);
		int16 scriptNumberArray[10];
		memset(scriptNumberArray, 0, sizeof(scriptNumberArray));

		switch (opCode) {
		case 0x00:
			// Enter room { full Place Id, posX, posY }
			buffer = script_readNumberArray(buffer, 3, scriptNumberArray);
			if (scriptExecuteFlag) {
				if (_largeMapFlag) {
					_largeMapFlag = false;
					_techDataId_MapPosX = _mapPosX;
					_techDataId_MapPosY = _mapPosY;
				}
				_oldMapPosX = _mapPosX = scriptNumberArray[1];
				_oldMapPosY = _mapPosY = scriptNumberArray[2];
				loadPlacesFile(scriptNumberArray[0], false);
				_checkTileDisabledByScriptFl = true;
				_redrawNeededFl = true;
			}
			break;
		case 0x01:
			// Exit room { }
			if (scriptExecuteFlag) {
				_largeMapFlag = true;
				_oldMapPosX = _mapPosX = _techDataId_MapPosX;
				_oldMapPosY = _mapPosY = _techDataId_MapPosY;
				_checkTileDisabledByScriptFl = true;
				_redrawNeededFl = true;
			}
			break;
		case 0x02:
			// Change map. { map number, posX, posY }
			buffer = script_readNumberArray(buffer, 3, scriptNumberArray);
			if (scriptExecuteFlag) {
				_oldMapPosX = _mapPosX = scriptNumberArray[1];
				_oldMapPosY = _mapPosY = scriptNumberArray[2];
				loadTechMapImp(scriptNumberArray[0]);
				_largeMapFlag = true;
				_checkTileDisabledByScriptFl = true;
				_redrawNeededFl = true;
				doneFlag = true;
			}
			break;
		case 0x03:
			buffer = script_readNumberArray(buffer, 4, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 rangeX = scriptNumberArray[2] - scriptNumberArray[0];
				int16 rangeY = scriptNumberArray[3] - scriptNumberArray[1];

				_mapPosX = getRandom(rangeX) + scriptNumberArray[0] - 1;
				_mapPosY = getRandom(rangeY) + scriptNumberArray[1] - 1;
				_checkTileDisabledByScriptFl = true;
				_redrawNeededFl = true;
			}
			break;
		case 0x04:
			buffer = script_readNumberArray(buffer, 2, scriptNumberArray);
			if (scriptExecuteFlag) {
				_mapPosX = scriptNumberArray[0];
				_mapPosY = scriptNumberArray[1];
				_checkTileDisabledByScriptFl = true;
				_redrawNeededFl = true;
			}
			break;
		case 0x05:
			buffer = script_readNumberArray(buffer, 4, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 npcId = _teamChar[scriptNumberArray[0]]._id;
				if (npcId != -1) {
					int16 scoreId = scriptNumberArray[1];
					_npcBuf[npcId]._activeScore[scoreId] += scriptNumberArray[2] & 0xFF;
					_npcBuf[npcId]._activeScore[scoreId] -= scriptNumberArray[3] & 0xFF;
				}
			}
			break;
		case 0x06:
			buffer = script_readNumberArray(buffer, 2, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 npcId = _teamChar[scriptNumberArray[0]]._id;
				if (npcId != -1) {
					int16 scoreId = scriptNumberArray[1];
					_npcBuf[npcId]._activeScore[scoreId] = scriptNumberArray[2] & 0xFF;
				}
			}
			break;
		case 0x07:
			if (scriptExecuteFlag) {
				totalPartyKill();
			}
			break;
		case 0x08:
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag && scriptNumberArray[0] != -1) {
				_npcBuf[_teamChar[scriptNumberArray[0]]._id]._hitPoints = 0;
			}
			break;
		case 0x09:
			buffer = script_readNumberArray(buffer, 2, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 npcId = _teamChar[scriptNumberArray[0]]._id;
				if (npcId != -1) {
					_npcBuf[npcId]._hitPoints += getRandom(scriptNumberArray[1]);
					if (_npcBuf[npcId]._hitPoints > _npcBuf[npcId]._maxHP)
						_npcBuf[npcId]._hitPoints = _npcBuf[npcId]._maxHP;
				}
			}
			break;
		case 0x0A:
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 npcId = _teamChar[scriptNumberArray[0]]._id;
				if (npcId != -1) {
					_npcBuf[npcId]._hitPoints = _npcBuf[npcId]._maxHP;
				}
			}
			break;
		case 0x0B:
			buffer = script_readNumberArray(buffer, 2, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 npcId = _teamChar[scriptNumberArray[0]]._id;
				if (npcId != -1) {
					_npcBuf[npcId]._hitPoints -= getRandom(scriptNumberArray[1]);
					if (_npcBuf[npcId]._hitPoints < 0)
						_npcBuf[npcId]._hitPoints = 0;
				}
			}
			break;
		case 0x0C:
			buffer = script_readNumberArray(buffer, 2, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 scriptItemId = scriptNumberArray[0];
				bool found = false;
				for (int counter = 0; counter < _teamSize && !found; ++counter) {
					for (uint objectId = 0; objectId < 10; ++objectId) {
						if (_npcBuf[_teamChar[counter]._id]._inventory[objectId]._ref == scriptItemId) {
							removeObject(_teamChar[counter]._id, objectId);
							found = true;
							break;
						}
					}
				}
			}
			break;
		case 0x0D:
			// Put item in inventory { objectId }
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 scriptObjectId = scriptNumberArray[0];
				for (int counter = 0; counter < _teamSize; ++counter) {
					if (giveItemTo(_teamChar[counter]._id, scriptObjectId, 0xFF))
						break;
				}
			}
			break;
		case 0x0E:
			buffer = script_readNumberArray(buffer, 3, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 scriptItemId = scriptNumberArray[0];
				bool found = false;
				for (int counter = 0; counter < _teamSize && !found; ++counter) {
					for (uint objectId = 0; objectId < 10; ++objectId) {
						if (_npcBuf[_teamChar[counter]._id]._inventory[objectId]._ref == scriptItemId) {
							found = true;
							break;
						}
					}
				}

				if (found)
					retVal = scriptNumberArray[1];
				else
					retVal = scriptNumberArray[2];
			}
			break;
		case 0x0F:
			buffer = script_readNumberArray(buffer, 3, scriptNumberArray);
			if (scriptExecuteFlag) {
				if (isNpcATeamMember(scriptNumberArray[0]))
					retVal = scriptNumberArray[1];
				else
					retVal = scriptNumberArray[2];
			}
			break;
		case 0x10:
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag)
				retVal = scriptNumberArray[0];

			break;
		case 0x11:
			if (scriptExecuteFlag)
				_alertDelay = 0;
			break;
		case 0x12:
			// Disable special tile
			if (scriptExecuteFlag) {
				int16 tileId = findMapSpecialTileIndex(_mapPosX, _mapPosY);
				if (tileId != -1)
					_mapSpecialTiles[_techId][tileId]._posX = 0xFF;
			}
			break;
		case 0x13:
			buffer = script_readNumberArray(buffer, 3, scriptNumberArray);
			if (scriptExecuteFlag && _largeMapFlag) {
				_textBoxDisabledByScriptFl = true;
				loadPlacesFile(scriptNumberArray[0], false);
				transitionMap(scriptNumberArray[1], scriptNumberArray[2]);
				setSpecialTechZone(scriptNumberArray[0], scriptNumberArray[1], scriptNumberArray[2]);
				retVal = -1;
			}
			break;
		case 0x14:
			// Add character to team { charId }
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 scriptNpcId = scriptNumberArray[0];
				if (!isNpcATeamMember(scriptNpcId))
					joiningNpcId = scriptNpcId;
				retVal = -1;
			}
			break;
		case 0x15:
			buffer = script_readNumberArray(buffer, 2, scriptNumberArray);
			if (scriptExecuteFlag) {
				_oldMapPosX = _mapPosX = scriptNumberArray[0];
				_oldMapPosY = _mapPosY = scriptNumberArray[1];
				_largeMapFlag = true;
				_redrawNeededFl = true;
			}
			break;
		case 0x16:
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 scriptNpcId = scriptNumberArray[0];
				for (uint counter = 0; counter < 3; ++counter) {
					if (_teamChar[counter]._id == scriptNpcId) {
						removeCharacterFromTeam(counter);
						break;
					}
				}
			}
			break;
		case 0x17:
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 animId = scriptNumberArray[0];
				displayAnimFrames(animId, true);
			}
			break;
		case 0x18:
			buffer = script_readNumberArray(buffer, 2, scriptNumberArray);
			if (scriptExecuteFlag) {
				bool found = false;
				int16 scriptRandomItemId = getRandom(scriptNumberArray[1] - scriptNumberArray[0] + 1) + scriptNumberArray[0] - 1;
				int16 counter;
				for (counter = 0; counter < _teamSize; ++counter) {
					if (giveItemTo(_teamChar[counter]._id, scriptRandomItemId, 0xFF)) {
						found = true;
						break;
					}
				}

				if (!found) {
					drawMapWindow();
					displayFctFullScreen();
					drawMapWindow();
					scriptRandomItemId = displayBoxWithText("Nothing...", 1, 2, true);
					displayFctFullScreen();
				} else {
					_enemyNamePt2 = _npcBuf[_teamChar[counter]._id]._name;
					_nameBuffer = _items[scriptRandomItemId]._name;
					curLine = Common::String::format("%s finds a %s!", _enemyNamePt2.c_str(), _nameBuffer.c_str());
					drawMapWindow();
					displayFctFullScreen();
					drawMapWindow();
					scriptRandomItemId = displayBoxWithText(curLine, 1, 2, true);
					displayFctFullScreen();
				}

				int16 tileId = findMapSpecialTileIndex(_mapPosX, _mapPosY);
				if (tileId != -1) {
					// Disable special tile
					_mapSpecialTiles[_techId][tileId]._posX = 0xFF;
				}
				_redrawNeededFl = true;
			}
			break;
		case 0x19:
			buffer = script_readNumberArray(buffer, 3, scriptNumberArray);
			if (scriptExecuteFlag) {
				if (_largeMapFlag) {
					_mapGameMaps[_techId][scriptNumberArray[0]][scriptNumberArray[1]] = scriptNumberArray[2] & 0xFF;
				} else {
					_curPlace[scriptNumberArray[0]][scriptNumberArray[1]] = scriptNumberArray[2] & 0xFF;
				}
			}
			break;
		case 0x1A:
			buffer = script_readNumberArray(buffer, 2, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 tileId = findMapSpecialTileIndex(scriptNumberArray[0], scriptNumberArray[1]);
				if (tileId != -1) {
					// Disable tile
					_mapSpecialTiles[_techId][tileId]._posX = 0xFF;
				}
			}
			break;
		case 0x1B:
			buffer = script_readNumberArray(buffer, 3, scriptNumberArray);
			if (scriptExecuteFlag) {
				int16 tileId = findMapSpecialTileIndex(scriptNumberArray[0], scriptNumberArray[1]);
				if (tileId != -1) {
					// Disable tile
					_mapSpecialTiles[_techId][tileId]._posX = 0xFF;
				}
				_mapSpecialTiles[_techId][scriptNumberArray[2]]._posX = scriptNumberArray[0];
				_mapSpecialTiles[_techId][scriptNumberArray[2]]._posY = scriptNumberArray[1];
			}
			break;
		case 0x1C:
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag) {
				_history[scriptNumberArray[0]] = 0xFF;
			}
			break;
		case 0x1D:
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag) {
				_history[scriptNumberArray[0]] = 0;
			}
			break;
		case 0x1E:
			// Dialog with condition { historyId, dialogId1, dialogId2 }
			buffer = script_readNumberArray(buffer, 3, scriptNumberArray);
			if (scriptExecuteFlag) {
				if (_history[scriptNumberArray[0]] == 0)
					retVal = scriptNumberArray[2];
				else
					retVal = scriptNumberArray[1];
			}
			break;
		case 0x1F:
			buffer = script_readNumberArray(buffer, 1, scriptNumberArray);
			if (scriptExecuteFlag)
				_alertDelay = scriptNumberArray[0];

			break;
		case 0x20:
			if (scriptExecuteFlag) {
				handleWinSequence();
				_system->quit();
			}
		default:
			break;
		}
	}

	if (!curLine.empty() && curLineNb < numbLines && !noTextFlag)
		displayStringAtTextPos(curLine);

	if (joiningNpcId != 0xFF) {
		displayLowStatusScreen(true);
		int16 teamSlot = handleCharacterJoining();
		if (teamSlot > -1) {
			_teamChar[teamSlot]._id = joiningNpcId;
		}
		refreshTeamSize();
		_sayLowStatusScreen = true;
	}

	return retVal;
}

} // End of namespace Efh