/* 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/>.
 *
 */

#ifndef QDENGINE_MINIGAMES_PUZZLE_ALL_H
#define QDENGINE_MINIGAMES_PUZZLE_ALL_H

#include "common/debug.h"

#include "qdengine/qd_fwd.h"
#include "qdengine/qdcore/qd_minigame_interface.h"

namespace QDEngine {

const int puzzle_ep01[] = {
	220, 193, 340, 186, 464, 193, 577, 186, 227, 306,
	340, 306, 465, 305, 585, 306, 220, 419, 340, 426,
	464, 418, 577, 426
};

const int puzzle_ep02[] = {
	218, 197, 335, 194, 465, 178, 579, 181, 220, 305,
	347, 304, 473, 300, 582, 298, 222, 410, 342, 416,
	469, 426, 579, 427
};

const int puzzle_ep04[] = {
	205, 224, 298, 224, 404, 195, 503, 189, 601, 204,
	218, 319, 306, 308, 416, 287, 504, 263, 587, 285,
	218, 400, 313, 408, 418, 386, 504, 387, 588, 384
};

const int puzzle_ep05[] = {
	205, 223, 297, 223, 404, 194, 503, 189, 601, 203,
	217, 316, 305, 306, 415, 287, 503, 262, 586, 284,
	217, 397, 312, 405, 417, 384, 503, 384, 587, 382
};

const int puzzle_ep07[] = {
	199, 188, 276, 185, 362, 177, 444, 172, 531, 185,
	601, 183, 202, 263, 282, 258, 362, 245, 440, 248,
	524, 254, 598, 265, 200, 342, 282, 341, 357, 342,
	439, 341, 519, 344, 595, 340, 203, 423, 276, 420,
	359, 425, 441, 421, 525, 419, 602, 414
};

const int puzzle_ep08[] = {
	217, 188, 337, 181, 462, 188, 575, 181, 224, 302,
	338, 301, 462, 301, 582, 301, 217, 415, 337, 422,
	462, 414, 575, 421
};

const int puzzle_ep13[] = {
	196, 194, 273, 194, 362, 169, 445, 164, 538, 188,
	606, 188, 197, 266, 283, 255, 365, 231, 438, 235,
	533, 246, 593, 271, 197, 345, 283, 341, 354, 344,
	437, 341, 516, 348, 592, 340, 197, 425, 270, 424,
	357, 430, 440, 427, 526, 416, 601, 412
};

class qdPuzzleAllMiniGame : public qdMiniGameInterface {
public:
	qdPuzzleAllMiniGame(Common::String dll, Common::Language language) : _dll(dll), _language(language) {
		for (uint i = 0; i < ARRAYSIZE(_pieces); i++)
			_pieces[i] = nullptr;
	}
	~qdPuzzleAllMiniGame() {};

	bool init(const qdEngineInterface *engine_interface) {
		debugC(1, kDebugMinigames, "PuzzleAll::init(), dll: %s lang: %d", _dll.c_str(), _language);

		_engine = engine_interface;
		_scene = _engine->current_scene_interface();
		if (!_scene)
			return 0;

		if (_dll == "DLL\\Puzzle_ep01.dll") { // worm
			_numPieces = 12;
			_pieceCoords = puzzle_ep01;
		} else if (_dll == "DLL\\Puzzle_ep02.dll") { // mushrooms
			_numPieces = 12;
			_pieceCoords = puzzle_ep02;
		} else if (_dll == "DLL\\Puzzle_ep04.dll") { // bird
			_numPieces = 15;
			_pieceCoords = puzzle_ep04;
		} else if (_dll == "DLL\\Puzzle_ep05.dll") { // forest
			_numPieces = 15;
			_pieceCoords = puzzle_ep05;
		} else if (_dll == "DLL\\Puzzle_ep07.dll") { // bears
			_numPieces = 24;
			_pieceCoords = puzzle_ep07;
		} else if (_dll == "DLL\\Puzzle_ep08.dll") { // house
			_numPieces = 12;
			_pieceCoords = puzzle_ep08;
		} else if (_dll == "DLL\\Puzzle_ep13.dll") { // harbor
			_numPieces = 24;
			_pieceCoords = puzzle_ep13;
		}

		for (int i = 0; i < _numPieces; i++)
			_pieces[i] = _scene->object_interface(Common::String::format("\xee\xe1\xfa\xe5\xea\xf2_%i", i + 1).c_str());	// "объект_%i"

		_objFinal = _scene->object_interface("$\xf4\xe8\xed\xe0\xeb"); // "$финал"
		_objRan = _scene->object_interface("$\xe7\xe0\xef\xf3\xf1\xf2\xe8\xeb\xe8");	// "$запустили""
		_wasInited = false;

		if (_objFinal->is_state_active("\xed\xe5\xf2")) { // "нет"
			_isFinal = false;

			_minDepthPiece = findMinDepthPiece();
			return true;
		} else {
			if (_objFinal->is_state_active("\xe4\xe0"))	// "да"
				_isFinal = true;

			_minDepthPiece = findMinDepthPiece();
			return true;
		}

		return true;
	}

	bool quant(float dt) {
		debugC(3, kDebugMinigames, "PuzzleAll::quant(%f)", dt);

		if (!_wasInited && _objRan->is_state_active("\xed\xe5\xf2")) {	// "нет"
			_rotatingPiece = -1;
			_currentPieceState = -1;
			_pieceIsPut = false;
			_isFinal = false;
			_wasInited = 1;
			_objRan->set_state("\xe4\xe0");	// "да"
		}

		if (_isFinal)
			return true;

		if (!checkSolution() || _scene->mouse_object_interface()) {
			qdMinigameObjectInterface *mouseObj = _scene->mouse_object_interface();

			if (_pieceIsPut) {
				for (int i = 0; i < _numPieces; i++) {
					if (_pieces[i]->is_state_active("to_inv_flag_0")
							|| _pieces[i]->is_state_active("to_inv_flag_90")
							|| _pieces[i]->is_state_active("to_inv_flag_180")
							|| _pieces[i]->is_state_active("to_inv_flag_270")) {

						if (_pieces[i]->is_state_active("to_inv_flag_0"))
							_currentPieceState = _pieces[i]->state_index("inv_0");
						else if (_pieces[i]->is_state_active("to_inv_flag_90"))
							_currentPieceState = _pieces[i]->state_index("inv_90");
						else if (_pieces[i]->is_state_active("to_inv_flag_180"))
							_currentPieceState = _pieces[i]->state_index("inv_180");
						else if (_pieces[i]->is_state_active("to_inv_flag_270"))
							_currentPieceState = _pieces[i]->state_index("inv_270");

						_rotatingPiece = i;
						_pieces[i]->set_state("to_inv");
						_pieceIsPut = false;
					}
				}
			}

			if (mouseObj) {
				if (_rotatingPiece != -1) {
					_pieces[_rotatingPiece]->set_state(_currentPieceState);
					_currentPieceState = -1;
					_rotatingPiece = -1;
				}
			}

			if (_engine->is_mouse_event_active(qdmg::qdEngineInterfaceImpl::MOUSE_EV_LEFT_DOWN)) {
				mgVect2i mousePos = _engine->mouse_cursor_position();
				qdMinigameObjectInterface *obj = _scene->mouse_object_interface();

				if (obj) {
					if (obj->is_state_active("inv_0"))
						obj->set_state("0");
					else if (obj->is_state_active("inv_90"))
						obj->set_state("90");
					else if (obj->is_state_active("inv_180"))
						obj->set_state("180");
					else if (obj->is_state_active("inv_270"))
						obj->set_state("270");

					_minDepthPiece -= 250.0;

					mgVect3f coords = _scene->screen2world_coords(mousePos, _minDepthPiece);
					obj->set_R(coords);

					snapPieces();
				} else {
					_pieceIsPut = true;
				}
			}
		}

		if (_engine->is_mouse_event_active(qdmg::qdEngineInterfaceImpl::MOUSE_EV_RIGHT_DOWN)) {
			qdMinigameObjectInterface *obj = _scene->mouse_object_interface();

			if (obj) {
				if (obj->is_state_active("inv_0"))
					obj->set_state("inv_270");
				else if (obj->is_state_active("inv_90"))
					obj->set_state("inv_0");
				else if (obj->is_state_active("inv_180"))
					obj->set_state("inv_90");
				else if (obj->is_state_active("inv_270"))
					obj->set_state("inv_180");
			}
		}

		return true;
	}

	bool checkSolution() {
		if (_scene->mouse_object_interface())
			return false;

		for (int i = 0; i < _numPieces; i++)
			if (!_pieces[0]->is_state_active("0"))
				return false;

		mgVect2i piecePos;

		for (int i = 0; i < _numPieces; i++) {
			piecePos = _pieces[i]->screen_R();

			if (ABS(_pieceCoords[i * 2 + 0] - piecePos.x) > 10 ||
				ABS(_pieceCoords[i * 2 + 1] - piecePos.y) > 10)
				return false;
		}

		_isFinal = true;
		_objFinal->set_state("\xe4\xe0");	// "да"

		_minDepthPiece -= 250.0;

		mgVect3f coords = _scene->screen2world_coords(_objFinal->screen_R(), _minDepthPiece);
		_objFinal->set_R(coords);

		return true;
	}

	void snapPieces() {
		mgVect2i piecePos;
		mgVect3f newPiecePos;

		for (int i = 0; i < _numPieces; i++) {
			piecePos = _pieces[i]->screen_R();
			float depth = _scene->screen_depth(_pieces[i]->R());

			if (_pieces[i]->is_state_active("0")) {
				if (ABS(_pieceCoords[i * 2 + 0] - piecePos.x) <= 10 &&
						ABS(_pieceCoords[i * 2 + 1] - piecePos.y) <= 10) {
					piecePos.x = _pieceCoords[i * 2 + 0];
					piecePos.y = _pieceCoords[i * 2 + 1];

					newPiecePos = _scene->screen2world_coords(piecePos, depth);
					_pieces[i]->set_R(newPiecePos);
				}
			}
		}
	}

	bool finit() {
		debugC(1, kDebugMinigames, "PuzzleAll::finit()");

		if (_scene)  {
			_engine->release_scene_interface(_scene);
			_scene = 0;
		}

 		return true;
	}

	bool new_game(const qdEngineInterface *engine_interface) {
		return true;
	}

	int save_game(const qdEngineInterface *engine_interface, const qdMinigameSceneInterface *scene_interface, char *buffer, int buffer_size) {
		return 0;
	}

	int load_game(const qdEngineInterface *engine_interface, const qdMinigameSceneInterface *scene_interface, const char *buffer, int buffer_size) {
		return 0;
	}

	enum { INTERFACE_VERSION = 112 };
	int version() const {
		return INTERFACE_VERSION;
	}

private:
	float findMinDepthPiece() {
		float min = 100000.0;

		for (int i = 0; i < _numPieces; i++) {
			float depth = _scene->screen_depth(_pieces[i]->R());

			if (min > depth)
				min = depth;
		}

		return min;
	}

private:
	const qdEngineInterface *_engine = nullptr;
	qdMinigameSceneInterface *_scene = nullptr;

	qdMinigameObjectInterface *_pieces[24];
	const int *_pieceCoords = nullptr;

	qdMinigameObjectInterface *_objFinal = nullptr;
	qdMinigameObjectInterface *_objRan = nullptr;

	bool _wasInited = false;
	bool _isFinal = false;

	float _minDepthPiece = 0.0;
	int _rotatingPiece = -1;
	bool _pieceIsPut = true;
	int _currentPieceState = 0;

	int _numPieces = 12;

	Common::String _dll;
	Common::Language _language;
};

} // namespace QDEngine

#endif // QDENGINE_MINIGAMES_PUZZLE_ALL_H