/* 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 "mortevielle/dialogs.h"
#include "mortevielle/keyboard.h"
#include "mortevielle/menu.h"
#include "mortevielle/mor.h"
#include "mortevielle/mortevielle.h"
#include "mortevielle/mouse.h"
#include "mortevielle/outtext.h"
#include "mortevielle/ovd1.h"
#include "mortevielle/speech.h"
#include "mortevielle/sound.h"
#include "mortevielle/var_mor.h"

namespace Mortevielle {

void charpal() {
	Common::File f;
	byte b;

	if (!f.open("fxx.mor"))
		error("Missing file - fxx.mor");
	for (int i = 0; i < 108; ++i)
		g_l[i] = f.readSint16LE();
	f.close();

	if (!f.open("plxx.mor"))
		error("Missing file - plxx.mor");
	for (int i = 0; i <= 90; ++i) {
		for (int j = 1; j <= 16; ++j) {
			g_tabpal[i][j].x = f.readByte();
			g_tabpal[i][j].y = f.readByte();
		}
	}
	f.close();
	
	if (!f.open("cxx.mor"))
		error("Missing file - cxx.mor");

	for (int j = 0; j <= 90; ++j) {
		g_palcga[j]._p = f.readByte();
		for (int i = 0; i <= 15; ++i) {
			nhom &with = g_palcga[j]._a[i];

			b = f.readByte();
			with._id = (uint)b >> 4;
			with._hom[0] = ((uint)b >> 2) & 3;
			with._hom[1] = b & 3;
		}
	}

	g_palcga[10]._a[9] = g_palcga[10]._a[5];
	for (int j = 0; j <= 14; ++j) {
		g_tpt[j]._tax = f.readByte();
		g_tpt[j]._tay = f.readByte();
		for (int i = 1; i <= 20; ++i)
			for (int k = 1; k <= 20; ++k)
				g_tpt[j]._des[i][k] = f.readByte();
	}
	f.close();
}

void chartex() {
	Common::File inpFile;
	Common::File ntpFile;

	g_vm->_txxFileFl = false;
	if (g_vm->getLanguage() == Common::EN_ANY) {
		warning("English version expected - Switching to DAT file");
		return;
	}

	if (!inpFile.open("TXX.INP")) {
		if (!inpFile.open("TXX.MOR")) {
			warning("Missing file - TXX.INP or .MOR - Switching to DAT file");
			return;
		}
	} 
	if (!ntpFile.open("TXX.NTP")) {
		warning("Missing file - TXX.INP or .MOR - Switching to DAT file");
		return;
	}
	
	if ((inpFile.size() > (maxti * 2)) || (ntpFile.size() > (maxtd * 3))) {
		warning("TXX file - Unexpected format - Switching to DAT file");
		return;
	} 

	for (int i = 0; i < inpFile.size() / 2; ++i)
		g_t_mot[i] = inpFile.readUint16LE();

	inpFile.close();
	g_vm->_txxFileFl = true;

	for (int i = 0; i < (ntpFile.size() / 3); ++i) {
		g_t_rec[i]._indis = ntpFile.readSint16LE();
		g_t_rec[i]._point = ntpFile.readByte();
	}

	ntpFile.close();

}

/**
 * The original engine used this method to display a starting text screen letting the player
 * select the graphics mode to use
 */
void dialpre() {
	/* debug('o3 dialpre'); */
	g_crep = 998;
	int_m = true;
}

void music() {
	if (g_vm->_soundOff)
		return;

	g_vm->_reloadCFIEC = true;
	
	Common::File fic;
	if (!fic.open("mort.img"))
		error("Missing file - mort.img");

	fic.read(&g_mem[0x3800 * 16 + 0], 500);
	fic.read(&g_mem[0x47a0 * 16 + 0], 123);
	fic.close();

	g_vm->_soundManager.decodeMusic(&g_mem[0x3800 * 16], &g_mem[0x5000 * 16], 623);
	g_addfix = (float)((kTempoMusic - g_addv[1])) / 256;
	g_vm->_speechManager.cctable(g_tbi);

	bool fin = false;
	int k = 0;
	do {
		fin = keypressed();
		g_vm->_soundManager.musyc(g_tbi, 9958, kTempoMusic);
		++k;
		fin = fin | keypressed() | (k >= 5);
	} while (!fin);
	while (keypressed())
		get_ch();	// input >> kbd >> ch;
}


void loadBRUIT5() {
	Common::File f;

	if (!f.open("bruit5"))
		error("Missing file - bruit5");

	f.read(&g_mem[kAdrNoise5 * 16 + 0], 149 * 128);
	f.close();
}

void loadCFIEC() {
	Common::File f;

	if (!f.open("cfiec.mor"))
		error("Missing file - cfiec.mor");

	f.read(&g_adcfiec[0], 822 * 128);
	f.close();

	g_vm->_reloadCFIEC = false;
}


void loadCFIPH() {
	Common::File f;

	if (!f.open("cfiph.mor"))
		error("Missing file - cfiph.mor");

	for (int i = 0; i < (f.size() / 2); ++i)
		g_t_cph[i] = f.readSint16LE();

	f.close();
}

void suite() {
	hirs();
	repon(7, 2035);
	g_caff = 51;
	taffich();
	teskbd();
	if (g_vm->_newGraphicalDevice != g_vm->_currGraphicalDevice)
		g_vm->_currGraphicalDevice = g_vm->_newGraphicalDevice;
	hirs();
	dessine(g_ades, 0, 0);

	Common::String cpr = "COPYRIGHT 1989 : LANKHOR";
	g_vm->_screenSurface.putxy(104 + 72 * g_res, 185);
	g_vm->_screenSurface.drawString(cpr, 0);
}

} // End of namespace Mortevielle