/* 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/config-manager.h"
#include "common/system.h"
#include "common/random.h"
#include "efh/efh.h"

#include "backends/keymapper/keymapper.h"

namespace Efh {

void EfhEngine::decryptImpFile(bool techMapFl) {
	debugC(1, kDebugUtils, "decryptImpFile %s", techMapFl ? "True" : "False");
	uint16 counter = 0;
	uint16 target;
	uint8 *curPtr;

	if (!techMapFl) {
		_imp2PtrArray[counter++] = curPtr = _imp2;
		target = 431;
	} else {
		_imp1PtrArray[counter++] = curPtr = _imp1;
		target = 99;
	}

	do {
		*curPtr = (*curPtr - 3) ^ 0xD7;
		if (*curPtr == 0x40) {
			curPtr += 3;
			if (!techMapFl)
				_imp2PtrArray[counter++] = curPtr;
			else
				_imp1PtrArray[counter++] = curPtr;
		} else
			++curPtr;
	} while (*curPtr != 0x60 && counter <= target && !shouldQuit());

	if (ConfMan.getBool("dump_scripts")) {
		// Dump the decompressed IMP file
		Common::DumpFile dump;
		if (!techMapFl) {
			dump.open("imp2_unc.dump");
			dump.write(_imp2, curPtr - _imp2);
		} else {
			dump.open("imp1_unc.dump");
			dump.write(_imp1, curPtr - _imp1);
		}
		dump.flush();
		dump.close();
	}
}

void EfhEngine::loadImageSet(int16 imageSetId, uint8 *buffer, uint8 **subFilesArray, uint8 *destBuffer) {
	debugC(1, kDebugUtils, "loadImageSet %d", imageSetId);
	Common::Path fileName(Common::String::format("imageset.%d", imageSetId));
	rImageFile(fileName, buffer, subFilesArray, destBuffer);
}

uint32 EfhEngine::uncompressBuffer(uint8 *compressedBuf, uint8 *destBuf) {
	debugC(1, kDebugUtils, "uncompressBuffer");
	if (compressedBuf == nullptr || destBuf == nullptr)
		error("uncompressBuffer - Invalid pointer used in parameter list");

	uint8 *curPtrDest = destBuf;

	uint16 compSize = READ_LE_UINT16(compressedBuf) + 1;
	uint8 *curPtrCompressed = compressedBuf + 2;

	// Not in the original. This has been added for debug purposes (the original function doesn't return a value)
	uint32 decompSize = 0;

	for (;;) {
		uint8 next = *curPtrCompressed++;
		if (--compSize <= 0)
			break;

		if (next != 0xC3) {
			*curPtrDest++ = next;
			++decompSize;
			continue;
		}

		next = *curPtrCompressed++;
		if (--compSize <= 0)
			break;

		if (next == 0) {
			*curPtrDest++ = 0xC3;
			++decompSize;
			continue;
		}

		uint8 loopVal = next;
		next = *curPtrCompressed++;

		for (int i = 0; i < loopVal; ++i) {
			*curPtrDest++ = next;
			++decompSize;
		}

		--compSize;
		if (compSize == 0)
			break;
	}

	curPtrDest[0] = curPtrDest[1] = 0;
	decompSize += 2;

	return decompSize;
}

int16 EfhEngine::getRandom(int16 maxVal) {
	debugC(1, kDebugUtils, "getRandom %d", maxVal);
	if (maxVal <= 0)
		return 0;

	return 1 + _rnd->getRandomNumber(maxVal - 1);
}

Common::CustomEventType EfhEngine::getLastCharAfterAnimCount(int16 delay, bool waitForTTS) {
	debugC(1, kDebugUtils, "getLastCharAfterAnimCount %d", delay);
	if (delay == 0)
		return kActionNone;

	Common::CustomEventType action = kActionNone;

	uint32 lastMs = _system->getMillis();
	Common::TextToSpeechManager *ttsMan = g_system->getTextToSpeechManager();
	while ((delay > 0 || (waitForTTS && ttsMan && ttsMan->isSpeaking())) && action == kActionNone && !shouldQuit()) {
		_system->delayMillis(20);
		uint32 newMs = _system->getMillis();

		if (newMs - lastMs >= 200) {
			lastMs = newMs;
			--delay;
			handleAnimations();
		}

		action = handleAndMapInput(false);
	}

	if (waitForTTS) {
		stopTextToSpeech();
	}

	return action;
}

Common::CustomEventType EfhEngine::getInput(int16 delay) {
	debugC(1, kDebugUtils, "getInput %d", delay);
	if (delay == 0)
		return kActionNone;

	Common::CustomEventType lastAction = kActionNone;
	Common::CustomEventType retVal = kActionNone;
	uint32 lastMs = _system->getMillis();
	Common::TextToSpeechManager *ttsMan = g_system->getTextToSpeechManager();
	while ((delay > 0 || (ttsMan && ttsMan->isSpeaking())) && !shouldQuit()) {
		_system->delayMillis(20);
		uint32 newMs = _system->getMillis();

		if (newMs - lastMs >= 200) {
			lastMs = newMs;
			--delay;
			handleAnimations();
		}

		lastAction = handleAndMapInput(false);
		if (lastAction != kActionNone)
			retVal = lastAction;
	}
	return retVal;
}

Common::CustomEventType EfhEngine::waitForKey() {
	debugC(1, kDebugUtils, "waitForKey");
	Common::CustomEventType retVal = kActionNone;
	Common::Event event;

	uint32 lastMs = _system->getMillis();
	while (retVal == kActionNone && !shouldQuit()) {
		_system->delayMillis(20);
		uint32 newMs = _system->getMillis();

		if (newMs - lastMs >= 200) {
			lastMs = newMs;
			handleAnimations();
		}

		_system->getEventManager()->pollEvent(event);
		switch (event.type) {
		case Common::EVENT_KEYUP:
			retVal = kActionNo;
			break;
		case Common::EVENT_CUSTOM_ENGINE_ACTION_END:
			if (event.customType == kActionQuit) {
				quitGame();
			} else
				retVal = event.customType;
			break;
		default:
			break;
		}
	}

	return retVal;
}

Common::CustomEventType EfhEngine::handleAndMapInput(bool animFl) {
	debugC(1, kDebugUtils, "handleAndMapInput %s", animFl ? "True" : "False");
	// The original checks for the joystick input
	Common::Event event;
	_system->getEventManager()->pollEvent(event);
	Common::CustomEventType retVal = kActionNone;

	uint32 lastMs = _system->getMillis();
	while (retVal == kActionNone && !shouldQuit()) {
		_system->getEventManager()->pollEvent(event);

		if (event.type == Common::EVENT_CUSTOM_ENGINE_ACTION_END) {
			if (event.customType == kActionQuit)
				quitGame();
			else
				retVal = event.customType;
		}

		if (animFl) {
			_system->delayMillis(20);
			uint32 newMs = _system->getMillis();

			if (newMs - lastMs >= 200) {
				lastMs = newMs;
				handleAnimations();
			}
		} else
			break;
	}
	return retVal;
}

bool EfhEngine::getValidationFromUser() {
	debugC(1, kDebugUtils, "getValidationFromUser");

	setKeymap(kKeymapMenu);

	Common::CustomEventType action = handleAndMapInput(true);

	setKeymap(kKeymapDefault);

	if (action == kActionYes) // or if joystick button 1
		return true;

	return false;
}

uint32 EfhEngine::ROR(uint32 val, uint8 shiftVal) {
	return val >> shiftVal | val << (32 - shiftVal);
}

Common::String EfhEngine::getArticle(int pronoun) {
	if (pronoun == 2)
		return "The ";

	return "";
}

void EfhEngine::setKeymap(EfhKeymapCode keymapCode) {
	Common::Keymapper *keymapper = g_system->getEventManager()->getKeymapper();
	keymapper->disableAllGameKeymaps();
	keymapper->getKeymap("efh-quit")->setEnabled(true);
	for(int i = 0;i < ARRAYSIZE(_efhKeymaps); ++i) {
		if (_efhKeymaps[i]._keymap == keymapCode) {
			keymapper->getKeymap(_efhKeymaps[i]._id)->setEnabled(true);
			break;
		}
	}
}
} // End of namespace Efh