/* 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/alert.h"
#include "mortevielle/keyboard.h"
#include "mortevielle/level15.h"
#include "mortevielle/menu.h"
#include "mortevielle/mor.h"
#include "mortevielle/mouse.h"
#include "mortevielle/outtext.h"
#include "mortevielle/ovd1.h"
#include "mortevielle/parole.h"
#include "mortevielle/sprint.h"
#include "mortevielle/taffich.h"
#include "mortevielle/var_mor.h"

namespace Mortevielle {

// For ScummVM, we need to do check for file errors where we do the file access
const int ioresult = 0;

void dem2() {
	/* Deprecated check for disk 2

	untyped_file f;
	int k;

	// -- demande de disk 2 --
	while (ioresult != 0);
	assign(f, "mort.001");
	//$i-
	reset(f);
	while (ioresult != 0) {
		show_mouse();
		k = do_alert(al_mess2, 1);
		hide_mouse();
		reset(f);
	}
	close(f);
	*/
}

void ani50() {
	crep = animof(1, 1);
	pictout(adani, crep, 63, 12);
	crep = animof(2, 1);
	pictout(adani, crep, 63, 12);
	f2_all = (res == 1);
	repon(2, c_paroles + 143);
}

/*overlay procedure apzuul;
  begin
    if (c_zzz=1) or (c_zzz=2) then
     begin
       zzuul(adcfiec+161,0,1644);
       c_zzz:=succ(c_zzz);
     end;
  end;*/

/* overlay */ void aff50(bool c) {
	caff = 50;
	maff = 0;
	taffich();
	dessine(ades, 63, 12);
	if (c)  ani50();
	else repon(2, c_paroles + 142);
	f3f8();
}

/* overlay */ void init_menu() {
	int i, tai;
	char st[1410];
	Common::File f;

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

	f.read(lettres, 7 * 24);
	f.close();

	// Ask to swap floppy
	dem2();


	for (i = 1; i <= 8; i ++)
		inv[i] = "*                     ";
	inv[7] = "< -*-*-*-*-*-*-*-*-*- ";
	for (i = 1; i <= 7; i ++)
		dep[i] = "*                       ";
	i = 1;
	do {
		deline(i + c_action, st, tai);
		act[i] = delig + "          ";
		if (i < 9) {
			if (i < 6) {
				deline(i + c_saction, st, tai);
				self_[i] = delig + "       ";
			}
			deline(i + c_dis, st, tai);
			dis[i] = delig + ' ';
		}
		i = succ(int, i);
	} while (!(i == 22));
	for (i = 1; i <= 8; i ++) {
		disc[i] = 0x500 + i;
		if (i < 8)  depl[i] = 0x200 + i;
		invt[i] = 0x100 + i;
		if (i > 6)  menu_disable(invt[i]);
	}
	msg3 = no_choice;
	msg4 = no_choice;
	msg[3] = no_choice;
	msg[4] = no_choice;
	clic = false;
}


/* overlay */ void charpal() {
	Common::File f;		// tabdb records
	Common::File ft;	// tfxx
	int i, j, k;
	Common::File fb;	// byte values
	byte b;

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

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

	for (j = 0; j <= 90; j ++) {
		palcga[j].p = fb.readByte();
		for (i = 0; i <= 15; i ++) {
			nhom &with = palcga[j].a[i];

			b = fb.readByte();
			with.n = (uint)b >> 4;
			with.hom[0] = ((uint)b >> 2) & 3;
			with.hom[1] = b & 3;
		}
	}
	palcga[10].a[9] = palcga[10].a[5];
	for (j = 0; j <= 14; j ++) {
		tpt[j].tax = fb.readByte();
		tpt[j].tay = fb.readByte();
		for (i = 1; i <= 20; i ++)
			for (k = 1; k <= 20; k ++)
				tpt[j].des[i][k] = fb.readByte();
	}
	fb.close();
}

/* overlay */ void chartex() {
	int i;
	Common::File f;
	char s[1410];

	/* debug('o3 chartex'); */
	i = 0;
	if (!f.open("TXX.INP"))
		error("Missing file - TXX.INP");

	assert(f.size() <= (maxti * 2));
	for (i = 0; i < f.size() / 2; ++i)
		t_mot[i] = f.readUint16LE();

	f.close();

	if (!f.open("TXX.NTP"))
		error("Missing file - TXX.NTP");
	
	assert(f.size() <= (maxtd * 3));
	for (i = 0; i < (f.size() / 3); ++i) {
		t_rec[i].indis = f.readSint16LE();
		t_rec[i].point = f.readByte();
	}

	f.close();

	deline(578, s, i);
	al_mess = delig;
	deline(579, s, i);
	err_mess = delig;
	deline(580, s, i);
	ind_mess = delig;
	deline(581, s, i);
	al_mess2 = delig;
}

/* overlay */ void dialpre()

{
	int cy, tay;
	char st[1410];
	float ix;
//	char ch;


	/* debug('o3 dialpre'); */
	cy = 0;
	clrscr;
	textcolor(9);
	do {
		cy = cy + 1;
		deline(cy + c_dialpre, st, tay);
		gotoxy(40 - tay / 2, wherey + 1);
		output(delig);
	} while (!(cy == 20));
	ix = 0;
/*	do {
		ix = ix + 1;
	} while (!(keypressed() | (ix == 5e5)));
*/
	crep = 998;
	textcolor(1);
	gotoxy(1, 21);
	clreol;
	gotoxy(1, 23);
	output("CARTE GRAPHIQUE      CGA    EGA    HERCULE/AT&T400    TANDY    AMSTRAD1512");
	gotoxy(12, 24);
	output("Ctrl       C      E            H             T           A");

/*
	do {
		ch = get_ch();	// input >> kbd >> ch;
	} while ((ch != '\1') && (ch != '\3') && (ch != '\5') && (ch != '\24') && (ch != '\10'));
	switch (ch) {
	case '\1':
	case '\3':
	case '\5' :
		gd = (uint)ord(ch) >> 1;
		break;
	case '\10' :
		gd = her;
		break;
	case '\24' :
		gd = tan;
		break;
	}*/

	gotoxy(1, 24);
	clreol;
	gotoxy(1, 23);
	clreol;
	gotoxy(26, 23);
	// "Play using keyboard / ... mouse"
	output("Jeu au Clavier / … la Souris");
	textcolor(4);
	gotoxy(33, 23);
	output("C");
	gotoxy(48, 23);
	output("S");
	/*
	do {
		ch = get_ch();	// input >> kbd >> ch;
	} while ((ch != 'C') && (ch != 'S'));
	int_m = (toupper(ch) == 'S');
	*/
	int_m = true;
}

/* overlay */ void init_lieu() {
	Common::File f_lieu;	// tab_mlieu

	/* debug('o3 init_lieu'); */
	if (!f_lieu.open("MXX.mor"))
		error("Missing file - MXX.mor");

	for (int i = 1; i < 8; ++i)
		for (int j = 0; j < 25; ++j)
			v_lieu[i][j] = f_lieu.readByte(); 

	f_lieu.close();
}


/* overlay */ void music() {
	Common::File fic;
	int k;
	bool fin;
	char ch;
//	float x, y;


	/* debug('o3 music'); */
	if (sonoff)  return;
	rech_cfiec = true;
	
	if (!fic.open("mort.img"))
		error("Missing file - mort.img");

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

	demus(0x3800, 0x5000, 623);
	addfix = (float)((tempo_mus - addv[1])) / 256;
	cctable(tbi);

	fin = false;
	k = 0;
	do {
		fin = keypressed();
		musyc(tbi, 9958 , tempo_mus);
		k = k + 1;
		fin = fin | keypressed() | (k >= 5);
	} while (!fin);
	while (keypressed())  ch = get_ch();	// input >> kbd >> ch;
}


/* overlay */ void charge_bruit5() {
	Common::File f;

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

	f.read(&mem[adbruit5 * 16 + 0], 149);
	/*blockread(f,mem[$5CB0:0],100);
	blockread(f,mem[$3D1F:0],49);*/
	f.close();
}

/* overlay */ void charge_cfiec() {
	Common::File f;

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

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

	rech_cfiec = false;
}


/* overlay */ void charge_cfiph() {
	Common::File f;

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

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

	f.close();
}


/* overlay */ void suite() {
	Common::String cpr;

	hirs();
	repon(7, 2035);
	caff = 51;
	taffich();
	teskbd();
	if (newgd != gd)  gd = newgd;
	hirs();
	dessine(ades, 0, 0);
	gotoxy(20 * pred(int, res) + 8, 24);
	textcolor(7);
	cpr = "COPYRIGHT 1989 : LANKHOR";
	if ((gd == ega) || (gd == ams) || (gd == cga))
		output(cpr);
	else {
		putxy(104 + 72 * res, 190);
		writeg(cpr, 0);
	}
}

} // End of namespace Mortevielle