/* ScummVM - Scumm Interpreter
 * Copyright (C) 2003 The ScummVM project
 *
 * 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., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 *
 * $Header$
 *
 */

#include "stdafx.h"
#include "mouse.h"
#include "menu.h"
#include "screen.h"
#include "logic.h"
#include "resman.h"
#include "objectman.h"
#include "sworddefs.h"
#include "system.h"
#include "swordres.h"
#include "menu.h"

SwordMouse::SwordMouse(OSystem *system, ResMan *pResMan, ObjectMan *pObjMan) {
	_resMan = pResMan;
	_objMan = pObjMan;
	_system = system;
}

void SwordMouse::initialize(void) {
	_numObjs = 0;
	SwordLogic::_scriptVars[MOUSE_STATUS] = 0; // mouse off and unlocked
	_getOff = 0;
	_specialPtrId = 0;
	_inTopMenu = false;
	_mouseOverride = false;

	for (uint8 cnt = 0; cnt < 17; cnt++)
		_pointers[cnt] = (MousePtr*)_resMan->mouseResOpen(MSE_POINTER + cnt);
}

void SwordMouse::controlPanel(bool on) { // true on entering cpanel, false when leaving
	static uint32 savedPtrId = 0, savedSpecialId = 0;
	if (on) {
		savedPtrId = _currentPtrId;
		savedSpecialId = _specialPtrId;
		_mouseOverride = true;
		setPointer(MSE_POINTER, 0);
	} else {
		_currentPtrId = savedPtrId;
		_specialPtrId = savedSpecialId;
		_mouseOverride = false;
		if (_specialPtrId)
			setPointer(_specialPtrId, 0);
		else
			setPointer(_currentPtrId + MSE_POINTER, 0);
	}
}

void SwordMouse::useLogicAndMenu(SwordLogic *pLogic, SwordMenu *pMenu) {
	_logic = pLogic;
	_menu = pMenu;
}

void SwordMouse::addToList(int id, BsObject *compact) {
	_objList[_numObjs].id = id;
	_objList[_numObjs].compact = compact;
	_numObjs++;
}

void SwordMouse::flushEvents(void) {
	_lastState = _state = 0;
}

void SwordMouse::engine(uint16 x, uint16 y, uint16 eventFlags) {
	_state = 0; // all mouse events are flushed after one cycle.
	if (_lastState) { // delay all events by one cycle to notice L_button + R_button clicks correctly.
		_state = _lastState | eventFlags;
		_lastState = 0;
	} else if (eventFlags)
		_lastState = eventFlags;

	// if we received both, mouse down and mouse up event in this cycle, resort them so that
	// we'll receive the up event in the next one.
	if ((_state & MOUSE_DOWN_MASK) && (_state & MOUSE_UP_MASK)) {
		_lastState = _state & MOUSE_UP_MASK;
		_state &= MOUSE_DOWN_MASK;
	}

	_mouseX = x;
	_mouseY = y;
	if (!(SwordLogic::_scriptVars[MOUSE_STATUS] & 1)) {  // no human?
		// if the mouse is turned off, I want the menu automatically removed,
		// except while in conversation, while examining a menu object or while combining two menu objects!
		/*if ((!subject_status)&&(!menu_looking)&&(!second_icon))
		{
			HideMenu(TOP_MENU);
			menu_status=0;
		}*/
		_numObjs = 0;
		return;	// no human, so we don't want the mouse engine
	}

	if (!SwordLogic::_scriptVars[TOP_MENU_DISABLED]) {
		if (y < 40) { // okay, we are in the top menu.
			if (!_inTopMenu) // are we just entering it?
				_menu->fnStartMenu();
			_menu->checkTopMenu();
			_inTopMenu = true;
		} else if (_inTopMenu) { // we're not in the menu. did we just leave it?
			_menu->fnEndMenu();
			_inTopMenu = false;
		}
	} else if (_inTopMenu) {
		_menu->fnEndMenu();
		_inTopMenu = false;
	}

	SwordLogic::_scriptVars[MOUSE_X] = SwordLogic::_scriptVars[SCROLL_OFFSET_X] + x + 128;
	SwordLogic::_scriptVars[MOUSE_Y] = SwordLogic::_scriptVars[SCROLL_OFFSET_Y] + y + 128 - 40;

	//-
	int32 touchedId = 0;
	uint16 clicked = 0;
	if (y > 40) {
		for (uint16 priority = 0; (priority < 10) && (!touchedId); priority++) {
			for (uint16 cnt = 0; cnt < _numObjs; cnt++) {
				if ((_objList[cnt].compact->o_priority == priority) && 
					(SwordLogic::_scriptVars[MOUSE_X] >= (uint32)_objList[cnt].compact->o_mouse_x1) &&
					(SwordLogic::_scriptVars[MOUSE_X] <= (uint32)_objList[cnt].compact->o_mouse_x2) &&
					(SwordLogic::_scriptVars[MOUSE_Y] >= (uint32)_objList[cnt].compact->o_mouse_y1) &&
					(SwordLogic::_scriptVars[MOUSE_Y] <= (uint32)_objList[cnt].compact->o_mouse_y2)) {
						touchedId = _objList[cnt].id;
						clicked = cnt;
				}
			}
		}
		if (touchedId != (int)SwordLogic::_scriptVars[SPECIAL_ITEM]) { //the mouse collision situation has changed in one way or another
			SwordLogic::_scriptVars[SPECIAL_ITEM] = touchedId;
			if (_getOff) { // there was something else selected before, run its get-off script
				_logic->runMouseScript(NULL, _getOff);
				_getOff = 0;
			}
			if (touchedId) { // there's something new selected, now.
				if	(_objList[clicked].compact->o_mouse_on)	//run its get on
					_logic->runMouseScript(_objList[clicked].compact, _objList[clicked].compact->o_mouse_on);

				_getOff = _objList[clicked].compact->o_mouse_off; //setup get-off for later
			}
		}
	} else
		SwordLogic::_scriptVars[SPECIAL_ITEM] = 0;
	if (_state & MOUSE_DOWN_MASK) {
		if (_inTopMenu && SwordLogic::_scriptVars[SECOND_ITEM])
			_logic->runMouseScript(NULL, _menu->_objectDefs[SwordLogic::_scriptVars[SECOND_ITEM]].useScript);
		
		SwordLogic::_scriptVars[MOUSE_BUTTON] = _state & MOUSE_DOWN_MASK;
		if (SwordLogic::_scriptVars[SPECIAL_ITEM]) {
			BsObject *compact = _objMan->fetchObject(SwordLogic::_scriptVars[SPECIAL_ITEM]);
			_logic->runMouseScript(compact, compact->o_mouse_click);
		}
	}
	_numObjs = 0;
}

uint16 SwordMouse::testEvent(void) {
	return _state;
}

void SwordMouse::setLuggage(uint32 resId, uint32 rate) {
	warning("stub: SwordMouse::setLuggage(%d, %d)", resId, rate);
}

void SwordMouse::setPointer(uint32 resId, uint32 rate) {
	if (_specialPtrId) {
		_resMan->resClose(_specialPtrId);
		_specialPtrId = 0;
	}
	_frame = 0;

	if ((resId == 0) || (!(SwordLogic::_scriptVars[MOUSE_STATUS] & 1) && (!_mouseOverride))) {
		_system->set_mouse_cursor(NULL, 0, 0, 0, 0);
		_system->show_mouse(false);
	} else {
		if (resId <= MSE_ARROW9)
			_currentPtrId = resId - MSE_POINTER;
		else {
			_currentPtrId = 0;
			_specialPtrId = resId;
			_specialPtr = (MousePtr*)_resMan->mouseResOpen(resId);
		}
		animate();
		_system->show_mouse(true);
	}
}

void SwordMouse::animate(void) {
	MousePtr *currentPtr;
	if ((SwordLogic::_scriptVars[MOUSE_STATUS] == 1) || _mouseOverride) {
		if (_specialPtrId)
			currentPtr = _specialPtr;
		else
			currentPtr = _pointers[_currentPtrId];

		_frame = (_frame + 1) % currentPtr->numFrames;
		uint16 size = currentPtr->sizeX * currentPtr->sizeY;
		_system->set_mouse_cursor(currentPtr->data + 0x30 + _frame * size, currentPtr->sizeX, currentPtr->sizeY, currentPtr->hotSpotX, currentPtr->hotSpotY);
	}
}

void SwordMouse::fnNoHuman(void) {
	if (SwordLogic::_scriptVars[MOUSE_STATUS] & 2) // locked, can't do anything
		return ;
	SwordLogic::_scriptVars[MOUSE_STATUS] = 0; // off & unlocked
	setLuggage(0, 0);
	setPointer(0, 0);
}

void SwordMouse::fnAddHuman(void) {
	if (SwordLogic::_scriptVars[MOUSE_STATUS] & 2) // locked, can't do anything
		return ;
	SwordLogic::_scriptVars[MOUSE_STATUS] = 1;
	SwordLogic::_scriptVars[SPECIAL_ITEM] = 0; // _scriptVars is unsigned...
	_getOff = SCR_std_off;
	setPointer(MSE_POINTER, 0);
	_mouseCount = 3;

}

void SwordMouse::fnBlankMouse(void) {
	setPointer(0, 0);
}

void SwordMouse::fnNormalMouse(void) {
	setPointer(MSE_POINTER, 0);
}

void SwordMouse::fnLockMouse(void) {
	SwordLogic::_scriptVars[MOUSE_STATUS] |= 2;
}

void SwordMouse::fnUnlockMouse(void) {
	SwordLogic::_scriptVars[MOUSE_STATUS] &= 1;
}

void SwordMouse::giveCoords(uint16 *x, uint16 *y) {
	*x = _mouseX;
	*y = _mouseY;
}