/* 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 "lucerna.h"
//#include "trip5.h"
//#include "Acci.h"
//#include "basher.h"
//#include "visa.h"
//#include "timeout.h"

#include "common/textconsole.h"

namespace Avalanche {

const int16 Scrolls::roman = 0;
const int16 Scrolls::italic = 1;

const int16 Scrolls::halficonwidth = 19; /* Half the width of an icon. */



Scrolls::Scrolls() : aboutscroll(false)  {
}

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


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

	if (_vm->_gyro.ledstatus == x)  return; /* Already like that! */

	warning("STUB: Scrolls::state(). Calls of Pascal units need to be removed.");
	//switch (x) {
	//case 0:
	//	setfillstyle(1, black);
	//	break; /* Off */
	//case 1:
	//	setfillstyle(9, green);
	//	break; /* Half-on (menus) */
	//case 2:
	//	setfillstyle(1, green);
	//	break; /* On (kbd) */
	//case 3:
	//	setfillstyle(6, green);
	//	break; /* Hit a key */
	//}

	_vm->_gyro.super_off();

	/*	for (page_ = 0; page_ <= 1; page_ ++) {
	setactivepage(page_);
	bar(419, 195, 438, 197);
	}*/

	_vm->_gyro.super_on();
	_vm->_gyro.ledstatus = x;
}

void Scrolls::easteregg() {
	uint16 fv, ff;

	warning("STUB: Scrolls::easteregg(). Calls of Pascal units need to be removed.");

	/*	background(15);
	for (fv = 4; fv <= 100; fv ++)
	for (ff = 0; ff <= 70; ff ++) {
	sound(fv * 100 + ff * 10);
	delay(1);
	}
	nosound;
	setcolor(10);
	settextstyle(0, 0, 3);
	settextjustify(1, 1);
	outtextxy(320, 100, "GIED");
	settextstyle(0, 0, 1);
	settextjustify(0, 2);*/

	_vm->_gyro.background(0);
}

void Scrolls::say(int16 x, int16 y, Common::String z) { /* Fancy FAST screenwriting */
	const int16 locol = 2;
	byte xx, yy, ox, bit, lz, t;
	int16 yp;
	bool offset;
	byte itw[12][80];

	offset = x % 8 == 4;
	x = x / 8;
	lz = z.size();
	ox = 0;
	_vm->_logger.log_scrollline();

	for (xx = 1; xx <= lz; xx ++) {
		switch (z[xx]) {
		case '\22': {
			cfont = roman;
			_vm->_logger.log_roman();
					}
					break;
		case '\6': {
			cfont = italic;
			_vm->_logger.log_italic();
					}
					break;
		default: {
			ox += 1;
			for (yy = 1; yy <= 12; yy ++) itw[yy][ox] = ~ ch[cfont][z[xx]][yy + 1];
			_vm->_logger.log_scrollchar(Common::String(z[xx]));
					}
		}
	}

	lz = ox;
	if (offset) {
		/* offsetting routine */
		lz += 1;
		for (yy = 1; yy <= 12; yy ++) {
			bit = 240;
			itw[yy][lz] = 255;
			for (xx = 1; xx <= lz; xx ++) {
				t = itw[yy][xx];
				itw[yy][xx] = bit + t / 16;
				bit = t << 4;
			}
		}
	}
	yp = x + y * 80 + (1 - _vm->_gyro.cp) * _vm->_gyro.pagetop;
	for (yy = 1; yy <= 12; yy ++) {
		yp += 80;
		for (bit = 0; bit <= locol; bit ++) {
			/*port[0x3c4] = 2;
			port[0x3ce] = 4;
			port[0x3c5] = 1 << bit;
			port[0x3cf] = bit;
			move(itw[yy], mem[0xa000 * yp], lz);
				
			Some old Pascal-ish. To be removed. */

			warning("STUB: Scrolls::say()");
		}
	}

}

/* Here are the procedures 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, played+1, sizeof(played) - 1);
	played[30] = what;
}



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

	bool they_match_result;
	mistakes = 0;

	for (fv = 1; fv <= sizeof(played); fv ++)
		if (played[fv] != Gyro::tune[fv]) {
			mistakes++;
		}

		they_match_result = mistakes < 5;
		return they_match_result;
}

void Scrolls::music_scroll() {
	char r;
	byte value;

	byte last_one, this_one;

	tunetype played;


	state(3);
	_vm->_gyro.seescroll = true;
	_vm->_gyro.on();
	_vm->_gyro.newpointer(4);
	//do {
	//do {
	//	Gyro::check(); /* was "checkclick;" */
	//	if (Enhanced::keypressede())  break;
	//} while (!(Gyro::mpress > 0) || buttona1() || buttonb1());
	//
	// Needs joystick - not sure it will be implemented.

	//if (Gyro::mpress == 0) {
	//	inkey(); Needs Lucerna to proceed.
	//	
	//}
	//}

}











} // End of namespace Avalanche