/* 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/events.h"
#include "gui/message.h"
#include "hypno/hypno.h"

namespace Hypno {

void SpiderEngine::runCode(Code *code) {
	if (code->name == "<puz_matr>")
		runMatrix(code);
	else if (code->name == "<add_ingredient>")
		addIngredient(code);
	else if (code->name == "<check_mixture>")
		checkMixture(code);
	else if (code->name == "<note>")
		runNote(code);
	else if (code->name == "<fuse_panel>")
		runFusePanel(code);
	else if (code->name == "<recept>")
		runRecept(code);
	else if (code->name == "<office>")
		runOffice(code);
	else if (code->name == "<file_cabinet>")
		runFileCabinet(code);
	else if (code->name == "<lock>")
		runLock(code);
	else if (code->name == "<fuse_box>")
		runFuseBox(code);
	else if (code->name == "<credits>")
		showCredits();
	else if (code->name == "<give_up>")
		runGiveUp();
	else
		error("invalid puzzle");
}

void SpiderEngine::runMatrix(Code *code) {
	changeScreenMode("640x480");
	Common::Point mousePos;
	Common::Event event;

	defaultCursor();
	bool data[10][10] = {};
	bool solution[10][10] = {
		{0, 0, 0, 1, 1, 1, 1, 0, 0, 0},
		{0, 0, 1, 1, 1, 1, 1, 1, 0, 0},
		{0, 1, 1, 1, 1, 1, 1, 1, 1, 0},
		{0, 1, 1, 0, 0, 0, 0, 1, 1, 0},
		{0, 1, 1, 1, 1, 1, 1, 1, 1, 0},
		{0, 0, 1, 1, 1, 1, 1, 1, 0, 0},
		{0, 0, 1, 1, 0, 0, 1, 1, 0, 0},
		{0, 0, 1, 1, 0, 0, 1, 1, 0, 0},
		{0, 0, 0, 1, 0, 0, 1, 0, 0, 0},
		{0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
	};
	Common::Rect matrix(175, 96, 461, 385);
	Common::Rect cell(0, 0, 27, 27);
	uint32 activeColor = 2;
	uint32 deactiveColor = 0;

	MVideo *v;

	if (isDemo()) {
		loadImage("puz_matr/matrixbg.smk", 0, 0, false, true);
		v = new MVideo("puz_matr/matintro.smk", Common::Point(0, 0), false, false, false);
	} else {
		loadImage("puz_ally/matrixbg.smk", 0, 0, false, true);
		v = new MVideo("puz_ally/matintro.smk", Common::Point(0, 0), false, false, false);
	}

	playVideo(*v);
	delete v;
	Graphics::Surface *menu;
	Common::Rect menuArea(0, 0, 0, 0);
	bool transparent;
	if (isDemo()) { // No hints in demo
		menu = decodeFrame("int_main/resume.smk", 0);
		transparent = true;
	} else {
		menu = decodeFrame("int_main/hint1.smk", 0);
		transparent = false;
	}

	menuArea = Common::Rect(0, 0, menu->w, menu->h);
	drawImage(*menu, 0, 0, transparent);

	while (!shouldQuit() && _nextLevel.empty()) {

		while (g_system->getEventManager()->pollEvent(event)) {
			mousePos = g_system->getEventManager()->getMousePos();
			// Events
			switch (event.type) {

			case Common::EVENT_QUIT:
			case Common::EVENT_RETURN_TO_LAUNCHER:
				break;

			case Common::EVENT_LBUTTONDOWN:
				if (_h1Area.contains(mousePos)) {
					v = new MVideo("hint/p02h03s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h2Area.contains(mousePos)) {
					v = new MVideo("hint/p02h04s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h3Area.contains(mousePos)) {
					v = new MVideo("hint/p02h05s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (menuArea.contains(mousePos)) {
					if (isDemo())
						_nextLevel = "sixdemo/mis/demo.mis";
					else
						openMainMenuDialog();
					break;
				}

				if (isDemo())
					playSound("sixdemo/demo/sound.lib/matrix.raw", 1);
				else
					playSound("sound.lib/matrix.raw", 1);

				if (matrix.contains(mousePos)) {
					int x = (mousePos.x - 175) / 29;
					int y = (mousePos.y - 96) / 29;
					cell.moveTo(175 + 29 * x + 1, 96 + 29 * y + 1);
					_compositeSurface->fillRect(cell, data[x][y] ? deactiveColor : activeColor);
					data[x][y] = !data[x][y];
				}
				break;

			default:
				break;
			}
		}

		bool found = true;
		for (int x = 0; x < 10; x++) {
			for (int y = 0; y < 10; y++) {
				if (data[x][y] != solution[y][x]) {
					found = false;
					break;
				}
			}
			if (!found)
				break;
		}

		if (found) {
			if (isDemo())
				playSound("sixdemo/demo/sound.lib/matrix_2.raw", 1);
			else {
				MVideo video("cine/shv001s.smk", Common::Point(0, 0), false, false, false);
				runIntro(video);
			}

			_nextLevel = code->levelIfWin;
			_checkpoint = _nextLevel;
			return;
		}

		drawScreen();
		g_system->delayMillis(10);
	}
}

void SpiderEngine::addIngredient(Code *code) {
	if (_sceneState["GS_SWITCH0"]) { // wrong ingredient
		ingredients[0] = true;
	} else if (_sceneState["GS_SWITCH1"]) {
		ingredients[1] = true;
	} else if (_sceneState["GS_SWITCH2"]) {
		ingredients[2] = true;
	} else if (_sceneState["GS_SWITCH3"]) {
		ingredients[3] = true;
	} else if (_sceneState["GS_SWITCH4"]) {
		ingredients[4] = true;
	} else if (_sceneState["GS_SWITCH5"]) {
		ingredients[5] = true;
	} else if (_sceneState["GS_SWITCH6"]) {
		ingredients[6] = true;
	}
	resetSceneState();
	_defaultCursorIdx = 0;
	defaultCursor();
	_nextLevel = "bushard2.mi_";
}

void SpiderEngine::checkMixture(Code *code) {
	_defaultCursorIdx = 0;
	defaultCursor();

	_nextLevel = "bushard2.mi_";
	if (ingredients[0]) {
		MVideo video("cine/blcs005s.smk", Common::Point(0, 0), false, true, false);
		runIntro(video);
		memset(ingredients, 0, 7);
		return;
	}

	bool nothing = true;
	for (int i = 1; i < 7; i++) {
		if (ingredients[i])
			nothing = false;
	}

	if (nothing)
		return;

	for (int i = 1; i < 7; i++) {
		if (!ingredients[i]) {
			MVideo video("cine/blcs005s.smk", Common::Point(0, 0), false, true, false);
			runIntro(video);
			memset(ingredients, 0, 7);
			return;
		}
	}
	_nextLevel = "<after_bus_hard>";
	removeTimers();
}

void SpiderEngine::runNote(Code *code) {
	const char alphaES[] = "abcdefghijklmnopqrstuvwxyz~";
	const char alphaEN[] = "abcdefghijklmnopqrstuvwxyz";
	const char alphaHE[] = "\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEB\xEA\xEC\xEE\xED\xF0\xEF\xF1\xF2\xF4\xF3\xF6\xF7\xF8\xF9\xFA";

	Common::Rect letterBoxES(22, 442, 554, 455);
	Common::Rect letterBoxEN(22, 442, 535, 455);
	Common::Rect letterBoxHE(42, 442, 555, 460);

	const char solEasyES1[] = "hable cpn el svtp z talwe a";
	const char solEasyES2[] = "masz jane";
	char placeEasyES[] = "????? ??? ?? ???? ? ????? ?";

	const char solEasyEN1[] = "speak with russian and save";
	const char solEasyEN2[] = "mary jane";
	char placeEasyEN[] = "????? ???? ??????? ??? ????";
	char placeEasy2[] = "???? ????";

	const char solEasyIT1[] = "parla con il russo e salva";
	const char solEasyIT2[] = "mary jane";
	char placeEasyIT[] = "????? ??? ?? ????? ? ?????";
	char placeEasyIT2[] = "???? ????";

	const char solEasyHE1[] = "\xE9\xF8\xE0\xEE \xFA\xE0 \xEC\xF6\xE4\xE5 \xE9\xF1\xE5\xF8\xE4 \xED\xF2 \xF8\xE1\xE3";
	const char solEasyHE2[] = "\xEF\xE9\xE2";
	char placeEasyHE[] = "???? ?? ???? ????? ?? ???";
	char placeEasyHE2[] = "???";

	const char solHardES1[] = "encvenuse a tmesdzakpw p tv";
	const char solHardES2[] = "mvjes mpsisa";
	char placeHardES[] = "????????? ? ?????????? ? ??";
	char placeHardES2[] = "????? ??????";

	const char solHardEN1[] = "find smerdyakov or your wife";
	const char solHardEN2[] = "dies";
	char placeHardEN[] = "???? ?????????? ?? ???? ????";
	char placeHardEN2[] = "????";

	const char solHardIT1[] = "trova smerdyakov o tua";
	const char solHardIT2[] = "moglie moure";
	char placeHardIT[] = "????? ?????????? ? ???";
	char placeHardIT2[] = "?????? ?????";

	const char solHardHE1[] = "\xEA\xFA\xF9\xE9\xE0\xF9 \xE5\xE0 \xE1\xE5\xF7\xE9\xE3\xF8\xEE\xF1 \xFA\xE0 \xE0\xF6\xEE";
	const char solHardHE2[] = "\xFA\xE5\xEE\xFA";
	char placeHardHE[] = "?????? ?? ???????? ?? ???";
	char placeHardHE2[] = "????";

	changeScreenMode("640x480");
	Common::Point mousePos;
	Common::Event event;

	defaultCursor();
	Common::String alpha;
	Common::String selected = " ";
	char *firstSentence;
	char *secondSentence;
	Common::String firstSolution;
	Common::String secondSolution;
	Common::Rect letterBox;

	Common::Rect firstSentenceBox;
	Common::Rect firstSentenceBoxEasyEN(21, 140, 560, 160);
	Common::Rect firstSentenceBoxEasyES(21, 140, 560, 160);
	Common::Rect firstSentenceBoxEasyIT(21, 140, 540, 160);
	Common::Rect firstSentenceBoxEasyHE(60, 140, 560, 160);

	Common::Rect firstSentenceBoxHardEN(21, 140, 580, 160);
	Common::Rect firstSentenceBoxHardES(21, 140, 560, 160);
	Common::Rect firstSentenceBoxHardIT(21, 140, 456, 160);
	Common::Rect firstSentenceBoxHardHE(60, 140, 560, 160);

	Common::Rect secondSentenceBox;
	Common::Rect secondSentenceBoxEasyEN(21, 140, 196, 201);
	Common::Rect secondSentenceBoxEasyES(21, 180, 195, 195);
	Common::Rect secondSentenceBoxEasyIT(21, 180, 195, 200);
	Common::Rect secondSentenceBoxEasyHE(502, 180, 560, 200);

	Common::Rect secondSentenceBoxHardEN(21, 180, 96, 201);
	Common::Rect secondSentenceBoxHardES(21, 180, 260, 195);
	Common::Rect secondSentenceBoxHardIT(21, 180, 253, 200);
	Common::Rect secondSentenceBoxHardHE(484, 180, 560, 200);

	switch (_language) {
	case Common::EN_USA:
	case Common::DE_DEU:
		alpha = alphaEN;
		letterBox = letterBoxEN;
		if (_sceneState["GS_PUZZLELEVEL"] == 0) { // easy
			firstSentence = (char*) &placeEasyEN;
			secondSentence = (char*) &placeEasy2;
			firstSolution = solEasyEN1;
			secondSolution = solEasyEN2;
			firstSentenceBox = firstSentenceBoxEasyEN;
			secondSentenceBox = secondSentenceBoxEasyEN;
		} else { // hard
			firstSentence = (char*) &placeHardEN;
			secondSentence = (char*) &placeHardEN2;
			firstSolution = solHardEN1;
			secondSolution = solHardEN2;
			firstSentenceBox = firstSentenceBoxHardEN;
			secondSentenceBox = secondSentenceBoxHardEN;
		}
	break;

	case Common::IT_ITA:
		alpha = alphaEN;
		letterBox = letterBoxEN;
		if (_sceneState["GS_PUZZLELEVEL"] == 0) { // easy
			firstSentence = (char*) &placeEasyIT;
			secondSentence = (char*) &placeEasyIT2;
			firstSolution = solEasyIT1;
			secondSolution = solEasyIT2;
			firstSentenceBox = firstSentenceBoxEasyIT;
			secondSentenceBox = secondSentenceBoxEasyIT;
		} else { // hard
			firstSentence = (char*) &placeHardIT;
			secondSentence = (char*) &placeHardIT2;
			firstSolution = solHardIT1;
			secondSolution = solHardIT2;
			firstSentenceBox = firstSentenceBoxHardIT;
			secondSentenceBox = secondSentenceBoxHardIT;
		}
	break;

	case Common::ES_ESP:
		alpha = alphaES;
		letterBox = letterBoxES;
		if (_sceneState["GS_PUZZLELEVEL"] == 0) { // easy
			firstSentence = (char*) &placeEasyES;
			secondSentence = (char*) &placeEasy2;
			firstSolution = solEasyES1;
			secondSolution = solEasyES2;
			firstSentenceBox = firstSentenceBoxEasyES;
			secondSentenceBox = secondSentenceBoxEasyES;
		} else { // hard
			firstSentence = (char*) &placeHardES;
			secondSentence = (char*) &placeHardES2;
			firstSolution = solHardES1;
			secondSolution = solHardES2;
			firstSentenceBox = firstSentenceBoxHardES;
			secondSentenceBox = secondSentenceBoxHardES;
		}
	break;

	case Common::HE_ISR:
		alpha = alphaHE;
		letterBox = letterBoxHE;
		if (_sceneState["GS_PUZZLELEVEL"] == 0) { // easy
			firstSentence = (char*) &placeEasyHE;
			secondSentence = (char*) &placeEasyHE2;
			firstSolution = solEasyHE1;
			secondSolution = solEasyHE2;
			firstSentenceBox = firstSentenceBoxEasyHE;
			secondSentenceBox = secondSentenceBoxEasyHE;
		} else { // hard
			firstSentence = (char*) &placeHardHE;
			secondSentence = (char*) &placeHardHE2;
			firstSolution = solHardHE1;
			secondSolution = solHardHE2;
			firstSentenceBox = firstSentenceBoxHardHE;
			secondSentenceBox = secondSentenceBoxHardHE;
		}
	break;

	default:
		GUI::MessageDialog dialog("The following puzzle is not fully implemented for\
								   the current language yet, so it will be skipped");
		dialog.runModal();
		_nextLevel = code->levelIfWin;
		return;
	break;
	}

	float firstSentenceLength = strlen(firstSentence);
	float secondSentenceLength = strlen(secondSentence);
	Frames letters = decodeFrames("int_ball/letters.smk");
	Common::Point size(letters[0]->w, letters[0]->h);
	MVideo *v = nullptr;

	if (_sceneState["GS_PUZZLELEVEL"] == 0) { // easy
		v = new MVideo("cine/ppv007es.smk", Common::Point(0, 0), false, true, false);
		runIntro(*v);
		delete v;
		loadImage("int_ball/enote.smk", 0, 0, false, true);
	} else { // hard
		v = new MVideo("cine/ppv007hs.smk", Common::Point(0, 0), false, true, false);
		runIntro(*v);
		delete v;
		loadImage("int_ball/hnote.smk", 0, 0, false, true);
	}

	Graphics::Surface *menu = decodeFrame("int_main/hint1.smk", 0);
	Common::Rect menuArea(0, 0, menu->w, menu->h);
	drawImage(*menu, 0, 0, false);

	while (!shouldQuit() && _nextLevel.empty()) {

		while (g_system->getEventManager()->pollEvent(event)) {
			mousePos = g_system->getEventManager()->getMousePos();
			uint32 o1x = firstSentenceBox.left;
			uint32 o1y = firstSentenceBox.top;

			uint32 o2x = secondSentenceBox.left;
			uint32 o2y = secondSentenceBox.top;

			// Events
			switch (event.type) {

			case Common::EVENT_QUIT:
			case Common::EVENT_RETURN_TO_LAUNCHER:
				break;

			case Common::EVENT_LBUTTONDOWN:
				if (_h1Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p10e01s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p11h01s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h2Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p10e02s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p11h03s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h3Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p10e03s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p11h04s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (menuArea.contains(mousePos)) {
					openMainMenuDialog();
					break;
				} else if (letterBox.contains(mousePos)) {
					uint32 idx = (mousePos.x - letterBox.left) / (letterBox.width() / (alpha.size()-1));
					if (_language == Common::HE_ISR) {
						idx = alpha.size() - idx - 1;
					}
					selected = alpha[idx];
					changeCursor("int_ball/letters.smk", idx, true);
					//debug("%s", selected.c_str());
				} else if (firstSentenceBox.contains(mousePos)) {
					if (!selected.empty()) {
						uint32 idx = float(mousePos.x - firstSentenceBox.left) / (firstSentenceBox.width() / firstSentenceLength);
						//debug("idx: %d", idx);
						if (firstSentence[idx] != ' ') {
							firstSentence[idx] = selected[0];
							//debug("%s", firstSentence);
						}
					}
				} else if (secondSentenceBox.contains(mousePos)) {
					if (!selected.empty()) {
						uint32 idx = float(mousePos.x - secondSentenceBox.left) / (secondSentenceBox.width() / secondSentenceLength);
						//debug("idx: %d", idx);
						if (secondSentence[idx] != ' ') {
							secondSentence[idx] = selected[0];
							//debug("%s", secondSentence);
						}
					}
				}

				for (uint i = 0; i < strlen(firstSentence); i++) {
					if (firstSentence[i] != '?' && firstSentence[i] != ' ') {
						drawImage(*letters[alpha.find(firstSentence[i])], o1x, o1y, false);

					}
					o1x = o1x + size.x;
				}

				for (uint i = 0; i < strlen(secondSentence); i++) {
					if (secondSentence[i] != '?' && secondSentence[i] != ' ') {
						drawImage(*letters[alpha.find(secondSentence[i])], o2x, o2y, false);
					}
					o2x = o2x + size.x;
				}
				drawImage(*menu, 0, 0, false);
				break;

			default:
				break;
			}
		}

		if (firstSentence == firstSolution && secondSentence == secondSolution) {
			if (_sceneState["GS_PUZZLELEVEL"] == 0) {
				v = new MVideo("cine/ppv008es.smk", Common::Point(0, 0), false, false, false);
				runIntro(*v);
				delete v;
			} else if (_sceneState["GS_PUZZLELEVEL"] == 1) {
				v = new MVideo("cine/ppv008hs.smk", Common::Point(0, 0), false, false, false);
				runIntro(*v);
				delete v;
			}

			_nextLevel = code->levelIfWin;
			_checkpoint = _nextLevel;
			return;
		}

		drawScreen();
		g_system->delayMillis(10);
	}
}

void SpiderEngine::runRecept(Code *code) {

	if (!_sceneState["GS_SWITCH3"]) { // lights off
		MVideo v("cine/recdark.smk", Common::Point(0, 0), false, false, false);
		runIntro(v);
		_nextLevel = "int_roof.mi_";
		return;
	}

	if (_sceneState["GS_SWITCH2"]) { // camera on
		MVideo v("cine/iobs001s.smk", Common::Point(0, 0), false, true, false);
		runIntro(v);
		_nextLevel = "<over_apt_5>";
		return;
	}

	_nextLevel = "recept.mi_";
}

void SpiderEngine::runOffice(Code *code) {

	if (!_sceneState["GS_SWITCH6"]) { // lights off
		MVideo v("cine/toodark.smk", Common::Point(0, 0), false, true, false);
		runIntro(v);
		_nextLevel = "recept.mi_";
		return;
	}
	_nextLevel = "<alveroff_selector>";
}

void SpiderEngine::runFusePanel(Code *code) {
	changeScreenMode("640x480");
	Common::Point mousePos;
	Common::Event event;

	defaultCursor();
	Common::Rect fuses(363, 52, 598, 408);
	Common::Rect back(0, 446, 640, 480);

	if (_sceneState["GS_PUZZLELEVEL"]) { // hard
		if (_isFuseRust) {
			Common::String intro = "cine/spv029s.smk";
			if (!_intros.contains(intro)) {
				MVideo v(intro, Common::Point(0, 0), false, false, false);
				runIntro(v);
				_intros[intro] = true;
			}

			loadImage("int_alof/fuserust.smk", 0, 0, false, true);
		} else if (_isFuseUnreadable)
			loadImage("int_alof/fuseclea.smk", 0, 0, false, true);
		else
			loadImage("int_alof/fuseread.smk", 0, 0, false, true);

	} else {
		_isFuseRust = false;
		_isFuseUnreadable = false;
		loadImage("int_alof/fuse.smk", 0, 0, false, true);
	}

	Frames switches = decodeFrames("int_alof/switches.smk");
	drawImage(*switches[0], fuses.left, fuses.top, true);
	float dx = 235 / 2.;
	float dy = 355 / 10.;
	Common::Rect cell(0, 0, dx, dy);
	Common::Point origin(364, 54);

	for (int i = 0; i < 2; i++) {
		for (int j = 0; j < 10; j++) {
			cell.moveTo(i*dx, j*dy);
			Graphics::Surface sub = switches[_fuseState[i][j]]->getSubArea(cell);
			drawImage(sub, origin.x + i*dx, origin.y + j*dy, true);
		}
	}

	while (!shouldQuit() && _nextLevel.empty()) {

		while (g_system->getEventManager()->pollEvent(event)) {
			mousePos = g_system->getEventManager()->getMousePos();
			// Events
			switch (event.type) {

			case Common::EVENT_QUIT:
			case Common::EVENT_RETURN_TO_LAUNCHER:
				break;

			case Common::EVENT_LBUTTONDOWN:
				if (back.contains(mousePos)) {
					_nextLevel = code->levelIfWin;
					return;
				}

				if (_isFuseRust && _sceneState["GS_SWITCH8"]) {
					MVideo v("cine/spv031s.smk", Common::Point(0, 0), false, false, false);
					runIntro(v);
					_isFuseRust = false;
					_isFuseUnreadable = true;
					_defaultCursorIdx = 0;
					loadImage("int_alof/fuseclea.smk", 0, 0, false, true);
					defaultCursor();
				} else if (_isFuseUnreadable && _sceneState["GS_SWITCH9"]) {
					MVideo v("cine/spv032s.smk", Common::Point(0, 0), false, false, false);
					runIntro(v);
					_isFuseRust = false;
					_isFuseUnreadable = false;
					_defaultCursorIdx = 0;
					loadImage("int_alof/fuseread.smk", 0, 0, false, true);
					defaultCursor();
				}

				if (_isFuseRust || _isFuseUnreadable)
					break;

				if (fuses.contains(mousePos)) {
					int x = (mousePos.x - origin.x) / dx;
					int y = (mousePos.y - origin.y) / dy;
					_fuseState[x][y] = !_fuseState[x][y];

					for (int i = 0; i < 2; i++) {
						for (int j = 0; j < 10; j++) {
							cell.moveTo(i*dx, j*dy);
							Graphics::Surface sub = switches[_fuseState[i][j]]->getSubArea(cell);
							drawImage(sub, origin.x + i*dx, origin.y + j*dy, true);
						}
					}

					int s = 10*x + y + 1;
					if (s == 1) {
						_sceneState["GS_SWITCH1"] = !_sceneState["GS_SWITCH1"];
					} else if (s == 2) {
						_sceneState["GS_SWITCH2"] = !_sceneState["GS_SWITCH2"];
					} else if (s == 18) {
						_sceneState["GS_SWITCH3"] = !_sceneState["GS_SWITCH3"];
					} else if (s == 12) {
						_sceneState["GS_SWITCH4"] = !_sceneState["GS_SWITCH4"];
					} else if (s == 13) {
						_sceneState["GS_SWITCH5"] = !_sceneState["GS_SWITCH5"];
					} else if (s == 10) {
						_sceneState["GS_SWITCH6"] = !_sceneState["GS_SWITCH6"];
					}

				}
				break;

			case Common::EVENT_MOUSEMOVE:
				if (back.contains(mousePos))
					changeCursor(_defaultCursor, 5); // down arrow
				else
					defaultCursor();

			default:
				break;
			}
		}

		drawScreen();
		g_system->delayMillis(10);
	}
}

void SpiderEngine::runFileCabinet(Code *code) {
	changeScreenMode("640x480");
	Common::Point mousePos;
	Common::Event event;

	uint32 comb[6] = {};
	Common::Rect sel[6];

	sel[0] = Common::Rect(16, 176, 91, 301);
	sel[1] = Common::Rect(108, 176, 183, 301);

	sel[2] = Common::Rect(232, 176, 306, 301);
	sel[3] = Common::Rect(324, 176, 400, 301);

	sel[4] = Common::Rect(453, 176, 526, 301);
	sel[5] = Common::Rect(545, 176, 618, 301);

	Frames nums = decodeFrames("int_alof/combo.smk");
	if (nums.size() != 10)
		error("Invalid number of digits: %d", nums.size());

	defaultCursor();
	Common::Rect back(0, 446, 640, 480);
	loadImage("int_alof/combobg.smk", 0, 0, false, true);
	for (int i = 0; i < 6; i++) {
		drawImage(*nums[comb[i]], sel[i].left, sel[i].top, true);
	}

	MVideo *v = nullptr;
	Graphics::Surface *menu = decodeFrame("int_main/hint1.smk", 0);
	Common::Rect menuArea(0, 0, menu->w, menu->h);

	Common::String intro = "cine/spv040s.smk";
	if (!_intros.contains(intro)) {
		v = new MVideo(intro, Common::Point(0, 0), false, false, false);
		runIntro(*v);
		delete v;
		_intros[intro] = true;
	}

	drawImage(*menu, 0, 0, false);

	while (!shouldQuit() && _nextLevel.empty()) {

		while (g_system->getEventManager()->pollEvent(event)) {
			mousePos = g_system->getEventManager()->getMousePos();
			// Events
			switch (event.type) {

			case Common::EVENT_QUIT:
			case Common::EVENT_RETURN_TO_LAUNCHER:
				break;

			case Common::EVENT_LBUTTONDOWN:

				if (_h1Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p08e02s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p09h01s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h2Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p08e03s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p09h03s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h3Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p08e04s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p09h04s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (menuArea.contains(mousePos)) {
					openMainMenuDialog();
					break;
				} else if (back.contains(mousePos)) {
					if ((_sceneState["GS_PUZZLELEVEL"] == 0 && comb[0] == 3 && comb[1] == 2 && comb[2] == 5 && comb[3] == 7 && comb[4] == 0 && comb[5] == 1) \
					||  (_sceneState["GS_PUZZLELEVEL"] == 1 && comb[0] == 2 && comb[1] == 2 && comb[2] == 5 && comb[3] == 7 && comb[4] == 1 && comb[5] == 6)) {
						v = new MVideo("cine/file0000.smk", Common::Point(0, 0), false, false, false);
						runIntro(*v);
						delete v;
						_sceneState["GS_SWITCH0"] = 1;
					}

					_nextLevel = code->levelIfWin;
					_defaultCursorIdx = 36;
					defaultCursor();
					return;
				}

				for (int i = 0; i < 6; i++) {
					if (sel[i].contains(mousePos))
						comb[i] = (comb[i] + 1) % 10;
				}

				loadImage("int_alof/combobg.smk", 0, 0, false, true);
				for (int i = 0; i < 6; i++) {
					drawImage(*nums[comb[i]], sel[i].left, sel[i].top, true);
				}
				drawImage(*menu, 0, 0, false);
				break;

			case Common::EVENT_RBUTTONDOWN:
				for (int i = 0; i < 6; i++)
					if (sel[i].contains(mousePos)) {
						if (comb[i] == 0)
							comb[i] = 9;
						else
							comb[i] = comb[i] - 1;
					}

				loadImage("int_alof/combobg.smk", 0, 0, false, true);
				for (int i = 0; i < 6; i++) {
					drawImage(*nums[comb[i]], sel[i].left, sel[i].top, true);
				}
				drawImage(*menu, 0, 0, false);
				break;


			default:
				break;
			}
		}

		drawScreen();
		g_system->delayMillis(10);
	}
}

void SpiderEngine::runLock(Code *code) {
	changeScreenMode("640x480");
	Common::Point mousePos;
	Common::Event event;

	uint32 comb[5] = {};
	Common::Rect sel[5];

	sel[0] = Common::Rect(276, 57, 324, 134);
	sel[1] = Common::Rect(348, 57, 396, 134);
	sel[2] = Common::Rect(416, 57, 464, 134);
	sel[3] = Common::Rect(484, 57, 532, 134);
	sel[4] = Common::Rect(552, 57, 601, 134);
	Common::Rect act(345, 337, 537, 404);

	if (_sceneState["GS_PUZZLELEVEL"] == 0) { // easy
		MVideo v("cine/spv051s.smk", Common::Point(0, 0), false, true, false);
		runIntro(v);
		loadImage("factory/elockbg.smk", 0, 0, false, true);
	} else {
		MVideo v("cine/spv051as.smk", Common::Point(0, 0), false, true, false);
		runIntro(v);
		loadImage("factory/hlockbg.smk", 0, 0, false, true);
	}

	Frames nums = decodeFrames("factory/button.smk");
	if (nums.size() != 5)
		error("Invalid number of colors: %d", nums.size());

	defaultCursor();
	for (int i = 0; i < 5; i++) {
		drawImage(*nums[comb[i]], sel[i].left, sel[i].top, true);
	}

	MVideo *v = nullptr;
	Graphics::Surface *menu = decodeFrame("int_main/hint1.smk", 0);
	Common::Rect menuArea(0, 0, menu->w, menu->h);
	drawImage(*menu, 0, 0, false);

	while (!shouldQuit() && _nextLevel.empty()) {

		while (g_system->getEventManager()->pollEvent(event)) {
			mousePos = g_system->getEventManager()->getMousePos();
			// Events
			switch (event.type) {

			case Common::EVENT_QUIT:
			case Common::EVENT_RETURN_TO_LAUNCHER:
				break;

			case Common::EVENT_LBUTTONDOWN:
				if (_h1Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p16e02s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p17h01s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h2Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p16e03s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p17h03s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h3Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p16e04s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p17h04s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (menuArea.contains(mousePos)) {
					openMainMenuDialog();
					break;
				} else if (act.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0 && comb[0] == 4 && comb[1] == 0 && comb[2] == 3 && comb[3] == 1 && comb[4] == 2) {
						_nextLevel = code->levelIfWin;
						_checkpoint = _nextLevel;
					} else if (_sceneState["GS_PUZZLELEVEL"] == 1 && comb[0] == 1 && comb[1] == 3 && comb[2] == 4 && comb[3] == 2 && comb[4] == 0) {
					 	_nextLevel = code->levelIfWin;
						_checkpoint = _nextLevel;
					}
				}

				for (int i = 0; i < 5; i++) {
					if (sel[i].contains(mousePos))
						comb[i] = (comb[i] + 1) % 5;
				}

				if (_sceneState["GS_PUZZLELEVEL"] == 0) // easy
					loadImage("factory/elockbg.smk", 0, 0, false, true);
				else
					loadImage("factory/hlockbg.smk", 0, 0, false, true);

				for (int i = 0; i < 5; i++) {
					drawImage(*nums[comb[i]], sel[i].left, sel[i].top, true);
				}
				drawImage(*menu, 0, 0, false);
				playSound("mouse.raw", 1);
				break;

			default:
				break;
			}
		}

		drawScreen();
		g_system->delayMillis(10);
	}
}


void SpiderEngine::runFuseBox(Code *code) {
	changeScreenMode("640x480");
	Common::Point mousePos;
	Common::Event event;

	defaultCursor();

	bool hdata[8][9] = {};
	bool vdata[9][8] = {};

	bool vsol[9][8] = {
		{0, 0, 0, 0, 0, 0, 0, 0},
		{0, 1, 1, 1, 0, 0, 0, 0},
		{0, 0, 0, 0, 0, 0, 0, 0},
		{0, 0, 0, 0, 0, 0, 0, 0},
		{0, 0, 0, 0, 1, 1, 1, 0},
		{0, 1, 1, 1, 1, 1, 1, 0},
		{0, 0, 0, 0, 0, 0, 0, 0},
		{0, 1, 1, 1, 0, 0, 0, 0},
		{0, 0, 0, 0, 0, 0, 0, 0},
	};

	bool hsol[8][9] = {
		{0, 0, 0, 0, 0, 0, 0, 0, 0},
		{0, 1, 0, 0, 1, 0, 0, 1, 0},
		{0, 1, 0, 0, 1, 0, 0, 1, 0},
		{0, 1, 0, 0, 1, 0, 0, 1, 0},
		{0, 0, 0, 0, 0, 0, 0, 0, 0},
		{0, 1, 0, 0, 1, 0, 0, 0, 0},
		{0, 1, 0, 0, 1, 0, 0, 0, 0},
		{0, 0, 0, 0, 0, 0, 0, 0, 0},
	};

	Common::Rect matrix(289, 89, 551, 351);
	//Common::Point fuse(292, 87);
	Common::Point vz(289, 89);
	Common::Point hz(289, 89);

	uint32 dxVert = 412 - 380;
	uint32 dyVert = 120 - 88;

	uint32 dxHoriz = 359 - 327;
	uint32 dyHoriz = 146 - 114;

	Common::Rect vcell(0, 0, 8, 32);
	Common::Rect hcell(0, 0, 32, 8);
	MVideo *v = nullptr;

	if (_sceneState["GS_PUZZLELEVEL"] == 0) { // easy
		v = new MVideo("cine/ppv011es.smk", Common::Point(0, 0), false, true, false);
		runIntro(*v);
		delete v;
		loadImage("movie2/efusebg.smk", 0, 0, false, true);
	} else { // hard
		v = new MVideo("cine/ppv011hs.smk", Common::Point(0, 0), false, true, false);
		runIntro(*v);
		delete v;
		loadImage("movie2/hfusebg.smk", 0, 0, false, true);
	}

	Frames fuses = decodeFrames("movie2/onoffuse.smk");
	Graphics::Surface *menu = decodeFrame("int_main/hint1.smk", 0);
	Common::Rect menuArea(0, 0, menu->w, menu->h);
	drawImage(*menu, 0, 0, false);

	while (!shouldQuit() && _nextLevel.empty()) {

		while (g_system->getEventManager()->pollEvent(event)) {
			mousePos = g_system->getEventManager()->getMousePos();
			// Events
			switch (event.type) {

			case Common::EVENT_QUIT:
			case Common::EVENT_RETURN_TO_LAUNCHER:
				break;

			case Common::EVENT_LBUTTONDOWN:
				if (_h1Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p18e02s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p19h02s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h2Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p18e03s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p19h03s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (_h3Area.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0)
						v = new MVideo("hint/p18e04s.smk", Common::Point(0, 0), false, false, false);
					else
						v = new MVideo("hint/p19h04s.smk", Common::Point(0, 0), false, false, false);
					runIntro(*v);
					delete v;
					break;
				} else if (menuArea.contains(mousePos)) {
					openMainMenuDialog();
					break;
				} else if (matrix.contains(mousePos)) {
					if (_sceneState["GS_PUZZLELEVEL"] == 0) { // easy
						loadImage("movie2/efusebg.smk", 0, 0, false, true);
					} else { // hard
						loadImage("movie2/hfusebg.smk", 0, 0, false, true);
					}

					debug("\nvdata:");
					for (int i = 0; i < 9; i++) {
						for (int j = 0; j < 8; j++) {
							vcell.moveTo(vz.x + i*dxVert, vz.y + j*dyVert);
							if (vcell.contains(mousePos.x, mousePos.y)) {
								vdata[i][j] = !vdata[i][j];
							}
							debugN("%d, ", vdata[i][j]);
						}
						debugN("\n");
					}

					debug("\nhdata:");
					for (int i = 0; i < 8; i++) {
						for (int j = 0; j < 9; j++) {
							hcell.moveTo(hz.x + i*dxHoriz, hz.y + j*dyHoriz);
							if (hcell.contains(mousePos.x, mousePos.y)) {
								hdata[i][j] = !hdata[i][j];
							}
							debugN("%d, ", hdata[i][j]);
						}
						debugN("\n");
					}

					for (int i = 0; i < 9; i++) {
						for (int j = 0; j < 8; j++) {
							if (vdata[i][j]) {
								vcell.moveTo(i*dxVert, j*dyVert);
								Graphics::Surface sub = fuses[0]->getSubArea(vcell);
								drawImage(sub, vz.x + i*dxVert, vz.y + j*dyVert, true);
							}
						}
					}

					for (int i = 0; i < 8; i++) {
						for (int j = 0; j < 9; j++) {
							if (hdata[i][j]) {
								hcell.moveTo(i*dxHoriz, j*dyHoriz);
								Graphics::Surface sub = fuses[0]->getSubArea(hcell);
								drawImage(sub, hz.x + i*dxHoriz, hz.y + j*dyHoriz, true);
								//debug("Found horizontal fuse between %d, %d and %d, %d", i, j, i + 1, j);
							}
						}
					}
				}
				drawImage(*menu, 0, 0, false);
				break;

			default:
				break;
			}
		}

		bool hfound = true;
		for (int i = 0; i < 8; i++) {
			for (int j = 0; j < 9; j++) {
				if (hdata[i][j] != hsol[i][j]) {
					hfound = false;
					break;
				}
			}
			if (!hfound)
				break;
		}

		bool vfound = true;
		for (int i = 0; i < 9; i++) {
			for (int j = 0; j < 8; j++) {
				if (vdata[i][j] != vsol[i][j]) {
					vfound = false;
					break;
				}
			}
			if (!vfound)
				break;
		}

		if (hfound && vfound) {
			_nextLevel = code->levelIfWin;
			_checkpoint = _nextLevel;
			return;
		}

		drawScreen();
		g_system->delayMillis(10);
	}
}

void SpiderEngine::runGiveUp() {

	if (_restoredContentEnabled) {
		showScore("Spider-man was defeated!");
	}
	_score = 0;
	_nextLevel = "mainmenu.mi_";
}

void SpiderEngine::showScore(const Common::String prefix) {
	Common::String fmessage = "%s\nYou finished the ";
	fmessage = fmessage + (isDemo() ? "demo" : "game") + " with a score of %d points";
	Common::String message = Common::String::format(fmessage.c_str(), prefix.c_str(), _score);
	GUI::MessageDialog dialog(message);
	dialog.runModal();
}

void SpiderEngine::showCredits() {
	changeScreenMode("640x480");
	MVideo video("cine/credits.smk", Common::Point(0, 0), false, true, false);
	runIntro(video);
	if (_restoredContentEnabled && !_checkpoint.empty()) {
		showScore("Spider-Man saved the day!");
	}
	_score = 0;
	_nextLevel = "mainmenu.mi_";
}

} // End of namespace Hypno