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

/*
 * This code is based on the original source code of Lord Avalot d'Argent version 1.3.
 * Copyright (c) 1994-1995 Mike, Mark and Thomas Thurman.
 */

#include "avalanche/avalanche.h"

#include "avalanche/scrolls2.h"
#include "avalanche/gyro2.h"
#include "avalanche/logger2.h"
#include "avalanche/enhanced2.h"
#include "avalanche/lucerna2.h"
#include "avalanche/trip6.h"
#include "avalanche/acci2.h"
#include "avalanche/visa2.h"
#include "avalanche/timeout2.h"
#include "avalanche/basher2.h"

#include "common/textconsole.h"

//#include "avalanche/joystick2.h" - Will be implemented later, if it will be implemented at all...

namespace Avalanche {

void Scrolls::setParent(AvalancheEngine *vm) {
	_vm = vm;
}

void Scrolls::init() {
	loadfont();
	resetscrolldriver();
}

void Scrolls::state(byte x) {     /* Sets "Ready" light to whatever */
	warning("STUB: Scrolls::state()");
}

void Scrolls::easteregg() {
	warning("STUB: Scrolls::easteregg()");
}

void Scrolls::say(int16 x, int16 y, Common::String z) { /* Fancy FAST screenwriting */
	warning("STUB: Scrolls::say()");
}

/* Here are the func2edures that Scroll calls */ /* So they must be... */ /*$F+*/

void Scrolls::normscroll() {
	warning("STUB: Scrolls::normscroll()");
}

void Scrolls::dialogue() {
	warning("STUB: Scrolls::dialogue()");
}




void Scrolls::store_(byte what, tunetype &played) {
	memcpy(played+1, played+2, sizeof(played) - 1);
	played[31] = what;
}

bool Scrolls::they_match(tunetype &played) {
	byte fv, mistakes;

	mistakes = 0;

	for (fv = 1; fv <= sizeof(played); fv ++)
		if (played[fv] != _vm->_gyro.tune[fv]) {
			mistakes += 1;
		}

	return mistakes < 5;
}

void Scrolls::music_scroll() {
	warning("STUB: Scrolls::music_scroll()");
}

/* ThatsAll, so put us back to */ /*$F-*/

void Scrolls::resetscrolldriver() {   /* phew */
	_vm->_gyro.scrollbells = 0;
	cfont = roman;
	_vm->_logger.log_epsonroman();
	use_icon = 0;
	_vm->_gyro.interrogation = 0; /* always reset after a scroll comes up. */
}

void Scrolls::dingdongbell() {   /* Pussy's in the well. Who put her in? Little... */
	byte fv;

	for (fv = 1; fv <= _vm->_gyro.scrollbells; fv ++) _vm->_lucerna.errorled(); /* ring the bell "x" times */
}

void Scrolls::dodgem() {     /* This moves the mouse pointer off the scroll so that you can read it. */
	_vm->_gyro.xycheck(); /* Mx & my now contain xy pos of mouse */
	dodgex = _vm->_gyro.mx;
	dodgey = _vm->_gyro.my; /* Store 'em */
	_vm->_gyro.hopto(dodgex, _vm->_gyro.underscroll); /* Move the pointer off the scroll. */
}

void Scrolls::undodgem() {   /* This is the opposite of Dodgem. It moves the
 mouse pointer back, IF you haven't moved it in the meantime. */
	_vm->_gyro.xycheck();
	if ((_vm->_gyro.mx == dodgex) && (_vm->_gyro.my == _vm->_gyro.underscroll))
		/* No change, so restore the pointer's original position. */
		_vm->_gyro.hopto(dodgex, dodgey);
}

void Scrolls::geticon(int16 x, int16 y, byte which) {
	warning("STUB: Scrolls::geticon()");
}

void Scrolls::block_drop(Common::String fn, int16 xl, int16 yl, int16 y) {
	warning("STUB: Scrolls::block_drop()");
}

void Scrolls::drawscroll(func2 gotoit) {     /* This is one of the oldest func2s in the game. */
	warning("STUB: Scrolls::drawscroll()");
}

void Scrolls::bubble(func2 gotoit) {
	warning("STUB: Scrolls::bubble()");
}

bool Scrolls::ask(Common::String question) {
	warning("STUB: Scrolls::ask()");
	return true;
}

void Scrolls::resetscroll() {
	_vm->_gyro.scrolln = 1;
	for (int j = 0; j < 15; j ++)
		for (int i = 0; i < _vm->_gyro.scroll[j].size(); i++)
			_vm->_gyro.scroll[j].setChar(0, i);
}

void Scrolls::natural() {   /* Natural state of bubbles */
	_vm->_gyro.talkx = 320;
	_vm->_gyro.talky = 200;
	_vm->_gyro.talkb = 8;
	_vm->_gyro.talkf = 15;
}

Common::String Scrolls::lsd() {
	Common::String x;

	Common::String lsd_result;
	if (_vm->_gyro.dna.pence < 12) {
		/* just pence */
		x = _vm->_gyro.strf(_vm->_gyro.dna.pence) + 'd';
	} else if (_vm->_gyro.dna.pence < 240) {
		/* shillings & pence */
		x = _vm->_gyro.strf(_vm->_gyro.dna.pence / int32(12)) + '/';
		if ((_vm->_gyro.dna.pence % int32(12)) == 0)  x = x + '-';
		else x = x + _vm->_gyro.strf(_vm->_gyro.dna.pence % int32(12));
	} else   /* L, s & d */
		x = Common::String('œ') + _vm->_gyro.strf(_vm->_gyro.dna.pence / int32(240)) + '.' + _vm->_gyro.strf((_vm->_gyro.dna.pence / int32(12)) % int32(20))
			+ '.' + _vm->_gyro.strf(_vm->_gyro.dna.pence % int32(12));
	if (_vm->_gyro.dna.pence > 12)  x = x + " (that's " + _vm->_gyro.strf(_vm->_gyro.dna.pence) + "d)";
	lsd_result = x;
	return lsd_result;
}




void Scrolls::strip(Common::String &q) {
	warning("STUB: Scrolls::strip()");
}

void Scrolls::solidify(byte n) {
	warning("STUB: Scrolls::solidify()");
}

void Scrolls::calldrivers() {
	warning("STUB: Scrolls::calldrivers()");
}

void Scrolls::display(Common::String z) {
	_vm->_gyro.bufsize = z.size();
	memcpy(_vm->_gyro.buffer, z.c_str() + 1, _vm->_gyro.bufsize);
	calldrivers();
}

void Scrolls::loadfont() {
	warning("STUB: Scrolls::loadfont()");
}

void Scrolls::okay() {
	display("Okay!");
}

void Scrolls::musical_scroll() {
	bool was_virtual;

	display(Common::String("To play the harp...\r\rUse these keys:\r\n") +
	        "Q W E R T Y U I O P [ ]\r\rOr press Enter to stop playing.\4");

	_vm->_lucerna.sprite_run();

	was_virtual = _vm->_gyro.visible == _vm->_gyro.m_virtual;

	if (was_virtual)
		_vm->_gyro.off_virtual();

	drawscroll(&Avalanche::Scrolls::music_scroll);

	if (was_virtual)
		_vm->_gyro.on_virtual();
	resetscroll();
}


} // End of namespace Avalanche