/* 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/level15.h"
#include "mortevielle/mor.h"
#include "mortevielle/mouse.h"
#include "mortevielle/taffich.h"
#include "mortevielle/var_mor.h"

namespace Mortevielle {

void chardes(Common::String nom, float passe, int long_) {
	int i, p, l;
//	byte b;
	Common::File f;

	/* debug('chardes'); */
	if (!f.open(nom))
		error("Missing file %s", nom.c_str());

	testfi();
	p = 0;
	while (passe > 127) {
		p = p + 1;
		passe = passe - 128;
	}
	if (p != 0)
		f.seek(p * 0x80);
	p = abs((int)passe);
	l = long_ + p;
	i = 0;
	while (l > 0) {
		f.read(&mem[0x6000 * 16 + i], 128);
		testfi();
		l = l - 128;
		i = i + 128;
	}
	f.close();

	for (i = p; i <= long_ + p; i ++) 
		mem[0x7000 * 16 + i - p] = mem[0x6000 * 16 + i];
	/*$i+*/
}

void charani(Common::String nom, float passe, int long_) {
	int i, p, l;
//	byte b;
	Common::File f;

	/* debug('charani'); */
	if (!f.open(nom))
		error("Missing file - %s", nom.c_str());

	testfi();
	p = 0;
	while (passe > 127) {
		passe = passe - 128;
		p = p + 1;
	}
	if (p != 0)
		f.seek(p * 0x80);

	p = abs((int)passe);
	l = long_ + p;
	i = 0;
	while (l > 0) {
		f.read(&mem[0x6000 * 16 + i], 128);
		testfi();
		l = l - 128;
		i = i + 128;
	}
	f.close();

	for (i = p; i <= long_ + p; i ++) mem[0x7314 * 16 + i - p] = mem[0x6000 * 16 + i];
}

void taffich() {
	byte tran1[] = { 121, 121, 138, 139, 120 };	// array<136, 140, byte>
	byte tran2[] = { 150, 150, 152, 152, 100, 110, 159, 100, 100 };	// array<153, 161, byte>

	int i, m, a, b, cx, handle,
	        npal;
	float lgt;
	Common::String nom;
	int palh, k, j;
	int alllum[16];


	a = caff;
	if ((a >= 153) && (a <= 161))
		a = tran2[a - 153];
	else if ((a >= 136) && (a <= 140))
		a = tran1[a - 136];
	b = a;
	if (maff == a)  return;
	if (a == 16) {
		s.pourc[9] = '*';
		s.teauto[42] = '*';
	}
	if (a == 20) {
		s.teauto[39] = '*';
		if (s.teauto[36] == '*') {
			s.pourc[3] = '*';
			s.teauto[38] = '*';
		}
	}
	if (a == 24)  s.teauto[37] = '*';
	if (a == 30)  s.teauto[9] = '*';
	if (a == 31) {
		s.pourc[4] = '*';
		s.teauto[35] = '*';
	}
	if (a == 118)  s.teauto[41] = '*';
	if (a == 143)  s.pourc[1] = '*';
	if (a == 150)  s.teauto[34] = '*';
	if (a == 151)  s.pourc[2] = '*';
	okdes = true;
	hide_mouse();
	lgt = 0;
	if ((a != 50) && (a != 51)) {
		m = a + 2000;
		if ((m > 2001) && (m < 2010))  m = 2001;
		if (m == 2011)  m = 2010;
		if (a == 32)  m = 2034;
		if ((a == 17) && (maff == 14))  m = 2018;
		if (a > 99)
			if ((is == 1) || (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) && (((maff > 69) && (! s.ipre)) || (maff > 99)))
		        || ((maff > 29) && (maff < 33)))  m = 2033;
		messint(m);
		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 + l[cx];
		handle = l[a];
		nom = "DXX.mor";
	} else {
		nom = "DZZ.mor";
		handle = l[87];
		if (a == 51) {
			lgt = handle;
			handle = l[88];
		}
		maff = a;
		npal = a + 37;
	}
	chardes(nom, lgt, handle);
	if (gd == her) {
		for (i = 0; i <= 15; i ++) {
			palh = READ_LE_UINT16(&mem[0x7000 * 16 + (succ(int, i) << 1)]);
			alllum[i] = (palh & 15) + (((uint)palh >> 12) & 15) + (((uint)palh >> 8) & 15);
		}
		for (i = 0; i <= 15; i ++) {
			k = 0;
			for (j = 0; j <= 15; j ++) if (alllum[j] > alllum[k])  k = j;
			mem[0x7000 * 16 + 2 + (k << 1)] = rang[i];
			alllum[k] = -1;
		}
	}
	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 = b - 1;
			for (cx = 0; cx <= (b - 1); cx ++) lgt = lgt + l[cx + 89];
			handle = l[b + 89];
			nom = "AXX.mor";
		} else if (b == 50) {
			nom = "AZZ.mor";
			handle = 1260;
		}
		charani(nom, lgt, handle);
	}
	show_mouse();
	if ((a < 27) && ((maff < 27) || (s.mlieu == 15)) && (msg[4] != entrer)) {
		if ((a == 13) || (a == 14))  person();
		else if (! blo)  t11(s.mlieu, cx);
		mpers =  0;
	}
}

/*    begin
      for i:=0 to 15 do
         begin
           PalH:=WRITE_LE_UINT16(&mem[$7000:succ(i) shl 1];
           Alllum[i]:=PalH and 15 + PalH shr 4 and 15 + PalH shr 8 and 15;
         end;
      for i:=0 to 15 do
         begin
           k:=0;
           for j:=0 to 15 do if Alllum[j]>Alllum[k] then k:=j;
           mem[$7000:2+k shl 1]:= Rang[i];
           Alllum[k]:=-1;
         end;
    end;*/

} // End of namespace Mortevielle