/* 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 original Mortville Manor DOS source code
 * Copyright (c) 1988-1989 Lankhor
 */

#include "common/file.h"
#include "common/str.h"
#include "mortevielle/mor.h"
#include "mortevielle/mouse.h"
#include "mortevielle/outtext.h"
#include "mortevielle/graphics.h"
#include "mortevielle/mortevielle.h"
#include "mortevielle/var_mor.h"

namespace Mortevielle {

Common::String delig;
const byte tabdr[32] = {
	32, 101, 115,  97, 114, 105, 110,
	117, 116, 111, 108,  13, 100,  99,
	112, 109,  46, 118, 130,  39, 102,
	98,  44, 113, 104, 103,  33,  76,
	85, 106,  30,  31
};


const byte tab30[32] = {
	69,  67,  74, 138, 133, 120,  77, 122,
	121,  68,  65,  63,  73,  80,  83,  82,
	156,  45,  58,  79,  49,  86,  78,  84,
	71,  81,  64,  66, 135,  34, 136,  91
};



const byte tab31[32]= {
	93,  47,  48,  53,  50,  70, 124,  75,
	72, 147, 140, 150, 151,  57,  56,  51,
	107, 139,  55,  89, 131,  37,  54,  88,
	119,   0,   0,   0,   0,   0,   0,   0
};

Common::String deline(int num);
typedef unsigned char uchar;

static void cinq_huit(char &c, int &idx, byte &pt, bool &the_end) {
/*
	const uchar rap[32] = { 
		(uchar)',', (uchar)':', (uchar)'@', (uchar)'!', (uchar)'?', (uchar)'-', (uchar)'\207',
		(uchar)'\240', (uchar)'\205', (uchar)'\203', (uchar)'\202', (uchar)'\212', (uchar)'\210', (uchar)'/',
		(uchar)'\213', (uchar)'\214', (uchar)'\242', (uchar)'\047', (uchar)'\223', (uchar)'"', (uchar)'\227',
		(uchar)'\226', (uchar)'0', (uchar)'1', (uchar)'2', (uchar)'3', (uchar)'4', (uchar)'5',
		(uchar)'6', (uchar)'7', (uchar)'8', (uchar)'9'
	};
*/
	uint16 oct, ocd;

	/* 5-8 */
	oct = g_t_mot[idx];
	oct = ((uint16)(oct << (16 - pt))) >> (16 - pt);
	if (pt < 6) {
		++idx;
		oct = oct << (5 - pt);
		pt += 11;
		oct = oct | ((uint)g_t_mot[idx] >> pt);
	} else {
		pt -= 5;
		oct = (uint)oct >> pt;
	}

	switch (oct) {
	case 11:
		c = '$';
		the_end = true;
		break;
	case 30:
	case 31:
		ocd = g_t_mot[idx];
		ocd = (uint16)(ocd << (16 - pt)) >> (16 - pt);
		if (pt < 6) {
			++idx;
			ocd = ocd << (5 - pt);
			pt += 11;
			ocd = ocd | ((uint)g_t_mot[idx] >> pt);
		} else {
			pt -= 5;
			ocd = (uint)ocd >> pt;
		}

		if (oct == 30)
			c = chr(tab30[ocd]);
		else
			c = chr(tab31[ocd]);

		if (c == '\0') {
			the_end = true;
			c = '#';
		}
		break;
	default:
		c = chr(tabdr[oct]);
		break;
	}
}              /* 5-8 */

/**
 * Decode and extract the line with the given Id
 */
Common::String deline(int num) {
	Common::String wrkStr = "";

	if (num < 0) {
		warning("deline: num < 0! Skipping");
	} else if (!g_vm->_txxFileFl) {
		wrkStr = g_vm->getGameString(num);
	} else {
		int i = g_t_rec[num]._indis;
		byte k = g_t_rec[num]._point;
		int length = 0;
		bool endFl = false;
		char let;
		do {
			cinq_huit(let, i, k, endFl);
			if (length < 254)
				wrkStr += let;
			++length;
		} while (!endFl);
	}

	if (wrkStr.lastChar() == '$')
		// Remove trailing '$'
		wrkStr.deleteLastChar();

	return wrkStr;
}

static int l_motsuiv(int p, const char *ch, int &tab) {
	int c = p;

	while ((ch[p] != ' ') && (ch[p] != '$') && (ch[p] != '@'))
		++p;

	return tab * (p - c);
}

/**
 * Engine function - Display Text
 * @remarks	Originally called 'afftex'
 */
void displayStr(Common::String inputStr, int x, int y, int dx, int dy, int typ) {
	int tab;
	Common::String s;
	int i, j;

	// Safeguard: add $ just in case
	inputStr += '$'; 

	g_vm->_screenSurface.putxy(x, y);
	if (g_res == 1)
		tab = 10;
	else
		tab = 6;
	dx *= 6;
	dy *= 6;
	int xc = x;
	int yc = y;
	int xf = x + dx;
	int yf = y + dy;
	int p = 0;
	bool stringParsed = (inputStr[p] == '$');
	s = "";
	while (!stringParsed) {
		switch (inputStr[p]) {
		case '@':
			g_vm->_screenSurface.drawString(s, typ);
			s = "";
			++p;
			xc = x;
			yc += 6;
			g_vm->_screenSurface.putxy(xc, yc);
			break;
		case ' ':
			s += ' ';
			xc += tab;
			++p;
			if (l_motsuiv(p, inputStr.c_str(), tab) + xc > xf) {
				g_vm->_screenSurface.drawString(s, typ);
				s = "";
				xc = x;
				yc += 6;
				if (yc > yf) {
					while (!g_vm->keyPressed())
						;
					i = y;
					do {
						j = x;
						do {
							g_vm->_screenSurface.putxy(j, i);
							g_vm->_screenSurface.drawString(" ", 0);
							j += 6;
						} while (j <= xf);
						i += 6;
					} while (i <= yf);
					yc = y;
				}
				g_vm->_screenSurface.putxy(xc, yc);
			}
			break;
		case '$':
			stringParsed = true;
			g_vm->_screenSurface.drawString(s, typ);
			break;
		default:
			s += inputStr[p];
			++p;
			xc += tab;
			break;
		}
	}
}

void chardes(Common::String filename, int32 skipSize, int length) {
	Common::File f;
	if (!f.open(filename))
		error("Missing file %s", filename.c_str());

	int skipBlock = 0;
	while (skipSize > 127) {
		++skipBlock;
		skipSize -= 128;
	}
	if (skipBlock != 0)
		f.seek(skipBlock * 0x80);

	int remainingSkipSize = abs(skipSize);
	int totalLength = length + remainingSkipSize;
	int memIndx = 0x6000 * 16;
	while (totalLength > 0) {
		f.read(&g_mem[memIndx], 128);
		totalLength -= 128;
		memIndx += 128;
	}
	f.close();

	for (int i = remainingSkipSize; i <= length + remainingSkipSize; ++i) 
		g_mem[0x7000 * 16 + i - remainingSkipSize] = g_mem[0x6000 * 16 + i];
}

void charani(Common::String filename, int32 skipSize, int length) {
	Common::File f;
	if (!f.open(filename))
		error("Missing file - %s", filename.c_str());

	int skipBlock = 0;
	while (skipSize > 127) {
		skipSize = skipSize - 128;
		++skipBlock;
	}
	if (skipBlock != 0)
		f.seek(skipBlock * 0x80);

	int remainingSkipSize = abs(skipSize);
	int fullLength = length + remainingSkipSize;
	int memIndx = 0x6000 * 16;
	while (fullLength > 0) {
		f.read(&g_mem[memIndx], 128);
		fullLength -= 128;
		memIndx += 128;
	}
	f.close();

	for (int i = remainingSkipSize; i <= length + remainingSkipSize; ++i)
		g_mem[kAdrAni * 16 + i - remainingSkipSize] = g_mem[0x6000 * 16 + i];
}

void taffich() {
	byte tran1[] = { 121, 121, 138, 139, 120 };
	byte tran2[] = { 150, 150, 152, 152, 100, 110, 159, 100, 100 };

	int cx, handle, npal;
	int32 lgt;
	int alllum[16];

	int a = g_caff;
	if ((a >= 153) && (a <= 161))
		a = tran2[a - 153];
	else if ((a >= 136) && (a <= 140))
		a = tran1[a - 136];
	int b = a;
	if (g_maff == a)
		return;

	switch (a) {
	case 16:
		g_s._pourc[9] = '*';
		g_s._teauto[42] = '*';
		break;
	case 20:
		g_s._teauto[39] = '*';
		if (g_s._teauto[36] == '*') {
			g_s._pourc[3] = '*';
			g_s._teauto[38] = '*';
		}
		break;
	case 24:
		g_s._teauto[37] = '*';
		break;
	case 30:
		g_s._teauto[9] = '*';
		break;
	case 31:
		g_s._pourc[4] = '*';
		g_s._teauto[35] = '*';
		break;
	case 118:
		g_s._teauto[41] = '*';
		break;
	case 143:
		g_s._pourc[1] = '*';
		break;
	case 150:
		g_s._teauto[34] = '*';
		break;
	case 151:
		g_s._pourc[2] = '*';
		break;
	default:
		break;
	}

	g_vm->_okdes = true;
	g_vm->_mouse.hideMouse();
	lgt = 0;
	Common::String filename;

	if ((a != 50) && (a != 51)) {
		int m = a + 2000;
		if ((m > 2001) && (m < 2010))
			m = 2001;
		if (m == 2011)
			m = 2010;
		if (a == 32)
			m = 2034;
		if ((a == 17) && (g_maff == 14))
			m = 2018;

		if (a > 99) {
			if ((g_is == 1) || (g_is == 0))
				m = 2031;
			else
				m = 2032;
		}

		if (((a > 69) && (a < 80)) || (a == 30) || (a == 31) || (a == 144) || (a == 147) || (a == 149))
			m = 2030;

		if (((a < 27) && (((g_maff > 69) && (!g_s._alreadyEnteredManor)) || (g_maff > 99))) || ((g_maff > 29) && (g_maff < 33)))
			m = 2033;

		g_maff = a;
		if (a == 159)
			a = 86;
		else if (a > 140)
			a = a - 67;
		else if (a > 137)
			a = a - 66;
		else if (a > 99)
			a = a - 64;
		else if (a > 69)
			a = a - 42;
		else if (a > 29)
			a = a - 5;
		else if (a == 26)
			a = 24;
		else if (a > 18)
			a = a - 1;
		npal = a;

		for (cx = 0; cx <= (a - 1); ++cx)
			lgt = lgt + g_l[cx];
		handle = g_l[a];

		filename = "DXX.mor";
	} else {
		filename = "DZZ.mor";
		handle = g_l[87];
		if (a == 51) {
			lgt = handle;
			handle = g_l[88];
		}
		g_maff = a;
		npal = a + 37;
	}
	chardes(filename, lgt, handle);
	if (g_vm->_currGraphicalDevice == MODE_HERCULES) {
		for (int i = 0; i <= 15; ++i) {
			int palh = READ_LE_UINT16(&g_mem[(0x7000 * 16) + ((i + 1) << 1)]);
			alllum[i] = (palh & 15) + (((uint)palh >> 12) & 15) + (((uint)palh >> 8) & 15);
		}
		for (int i = 0; i <= 15; ++i) {
			int k = 0;
			for (int j = 0; j <= 15; ++j)
				if (alllum[j] > alllum[k])
					k = j;
			g_mem[(0x7000 * 16) + 2 + (k << 1)] = g_rang[i];
			alllum[k] = -1;
		}
	}
	g_numpal = npal;
	writepal(npal);

	if ((b < 15) || (b == 16) || (b == 17) || (b == 24) || (b == 26) || (b == 50)) {
		lgt = 0;
		if ((b < 15) || (b == 16) || (b == 17) || (b == 24) || (b == 26)) {
			if (b == 26)
				b = 18;
			else if (b == 24)
				b = 17;
			else if (b > 15)
				--b;
			for (cx = 0; cx <= (b - 1); ++cx)
				lgt += g_l[cx + 89];
			handle = g_l[b + 89];
			filename = "AXX.mor";
		} else if (b == 50) {
			filename = "AZZ.mor";
			handle = 1260;
		}
		charani(filename, lgt, handle);
	}
	g_vm->_mouse.showMouse();
	if ((a < 27) && ((g_maff < 27) || (g_s._currPlace == LANDING)) && (g_msg[4] != OPCODE_ENTER)) {
		if ((a == 13) || (a == 14))
			g_vm->displayAloneText();
		else if (!g_vm->_blo)
			cx = t11(g_s._currPlace);
		g_mpers =  0;
	}
}

} // End of namespace Mortevielle