/* ResidualVM - A 3D game interpreter
 *
 * ResidualVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the AUTHORS
 * 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 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.
 *
 */

#include "engines/myst3/cursor.h"
#include "engines/myst3/directorysubentry.h"
#include "engines/myst3/myst3.h"
#include "engines/myst3/scene.h"
#include "engines/myst3/state.h"

#include "graphics/surface.h"
#include "graphics/imagedec.h"

namespace Myst3 {

struct CursorData {
	uint32 nodeID;
	uint16 hotspotX;
	uint16 hotspotY;
	Texture *texture;
	double transparency;
};

static CursorData availableCursors[13] = {
		{ 1000,  8,  8, 0, 0.25 },
		{ 1001,  8,  8, 0, 0.5  },
		{ 1002,  8,  8, 0, 0.5  },
		{ 1003,  1,  5, 0, 0.5  },
		{ 1004, 14,  5, 0, 0.5  },
		{ 1005, 16, 14, 0, 0.5  },
		{ 1006, 16, 14, 0, 0.5  },
		{ 1007,  8,  8, 0, 0.55 },
		{ 1000,  8,  8, 0, 0.25 },
		{ 1001,  8,  8, 0, 0.5  },
		{ 1011, 16, 16, 0, 0.5  },
		{ 1000,  6,  1, 0, 0.5  },
		{    0,  0,  0, 0, 0    }
};

Cursor::Cursor(Myst3Engine *vm) :
	_vm(vm),
	_position(320, 210),
	_hideLevel(0),
	_lockedAtCenter(false) {

	// Load available cursors
	loadAvailableCursors();

	// Set default cursor
	changeCursor(8);
}

void Cursor::loadAvailableCursors() {
	// Load available cursors
	for (uint i = 0; availableCursors[i].nodeID; i++) {
		const DirectorySubEntry *cursorDesc = _vm->getFileDescription("GLOB", availableCursors[i].nodeID, 0, DirectorySubEntry::kCursor);

		if (!cursorDesc)
			error("Cursor %d does not exist", availableCursors[i].nodeID);

		Common::MemoryReadStream *bmpStream = cursorDesc->getData();
		Graphics::Surface *surface = Graphics::ImageDecoder::loadFile(*bmpStream, Graphics::PixelFormat(4, 8, 8, 8, 8, 0, 8, 16, 24));
		delete bmpStream;

		// Apply the colorkey for transparency
		for (uint u = 0; u < surface->w; u++) {
			for (uint v = 0; v < surface->h; v++) {
				uint32 *pixel = (uint32*)(surface->getBasePtr(u, v));
				if (*pixel == 0xFF00FF00)
					*pixel = 0x0000FF00;

			}
		}

		availableCursors[i].texture = _vm->_gfx->createTexture(surface);

		surface->free();
		delete surface;
	}
}

Cursor::~Cursor() {
	// Free available cursors
	for (uint i = 0; availableCursors[i].nodeID; i++) {
		if (availableCursors[i].texture) {
			_vm->_gfx->freeTexture(availableCursors[i].texture);
			availableCursors[i].texture = 0;
		}
	}
}

void Cursor::changeCursor(uint32 index) {
	assert(index <= 12);

	_currentCursorID = index;
}

void Cursor::lockPosition(bool lock) {
	_lockedAtCenter = lock;

	if (_lockedAtCenter) {
		_position.x = 320;
		_position.y = 210;
	}
}

void Cursor::updatePosition(Common::Point &mouse) {
	if (!_lockedAtCenter) {
		_position += mouse;

		_position.x = CLIP<int16>(_position.x, 0, Renderer::kOriginalWidth);
		_position.y = CLIP<int16>(_position.y, 0, Renderer::kOriginalHeight);
	}
}

void Cursor::draw() {
	CursorData &cursor = availableCursors[_currentCursorID];

	// Rect where to draw the cursor
	Common::Rect screenRect = Common::Rect(cursor.texture->width, cursor.texture->height);
	screenRect.translate(_position.x - cursor.hotspotX, _position.y - cursor.hotspotY);

	// Rect where to draw the cursor
	Common::Rect textureRect = Common::Rect(cursor.texture->width, cursor.texture->height);

	float transparency;
	if (_lockedAtCenter)
		transparency = cursor.transparency;
	else
		transparency = 1.0f;

	_vm->_gfx->drawTexturedRect2D(screenRect, textureRect, cursor.texture, transparency);
}

void Cursor::setVisible(bool show) {
	if (show)
		_hideLevel = MAX<int32>(0, --_hideLevel);
	else
		_hideLevel++;
}

bool Cursor::isVisible() {
	return !_hideLevel && !_vm->_state->getCursorHidden() && !_vm->_state->getCursorLocked();
}

} /* namespace Myst3 */