/* 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/endian.h"
#include "common/str.h"
#include "common/system.h"
#include "common/textconsole.h"
#include "mortevielle/dialogs.h"
#include "mortevielle/graphics.h"
#include "mortevielle/level15.h"
#include "mortevielle/menu.h"
#include "mortevielle/mor.h"
#include "mortevielle/mortevielle.h"
#include "mortevielle/mouse.h"
#include "mortevielle/outtext.h"
#include "mortevielle/parole2.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 testfi() {
	if (ioresult != 0) {
		// Theoritical message
		warning("IO Error");
		g_vm->quitGame();
	}
}

/**
 * Read the current system time
 */
int readclock() {
	TimeDate dateTime;
	g_system->getTimeAndDate(dateTime);

	int m = dateTime.tm_min * 60;
	int h = dateTime.tm_hour * 3600;
	return h + m + dateTime.tm_sec;
}

void modif(int &nu) {
	if (nu == 26)
		nu = 25;
	else if ((nu > 29) && (nu < 36))
		nu -= 4;
	else if ((nu > 69) && (nu < 78))
		nu -= 37;
	else if ((nu > 99) && (nu < 194))
		nu -= 59;
	else if ((nu > 996) && (nu < 1000))
		nu -= 862;
	else if ((nu > 1500) && (nu < 1507))
		nu -= 1363;
	else if ((nu > 1507) && (nu < 1513))
		nu -= 1364;
	else if ((nu > 1999) && (nu < 2002))
		nu -= 1851;
	else if (nu == 2010)
		nu = 151;
	else if ((nu > 2011) && (nu < 2025))
		nu -= 1860;
	else if (nu == 2026)
		nu = 165;
	else if ((nu > 2029) && (nu < 2037))
		nu -= 1864;
	else if ((nu > 3000) && (nu < 3005))
		nu -= 2828;
	else if (nu == 4100)
		nu = 177;
	else if (nu == 4150)
		nu = 178;
	else if ((nu > 4151) && (nu < 4156))
		nu -= 3973;
	else if (nu == 4157)
		nu = 183;
	else if ((nu == 4160) || (nu == 4161))
		nu -= 3976;
}


void dessine(int ad, int x, int y) {
	hideMouse();
	writepal(g_numpal);
	pictout(ad, 0, x, y);
	showMouse();
}

void dessine_rouleau() {
	writepal(89);
	if (g_currGraphicalDevice == MODE_HERCULES) {
		g_mem[0x7000 * 16 + 14] = 15;
	}
	hideMouse();
	pictout(0x73a2, 0, 0, 0);
	showMouse();
}


void text_color(int c) {
	g_color_txt = c;
}

/* NIVEAU 13 */


void text1(int x, int y, int nb, int m) {
	int co;

	if (g_res == 1)
		co = 10;
	else
		co = 6;
	Common::String tmpStr = deline(m);
	if ((y == 182) && ((int) tmpStr.size() * co > nb * 6))
		y = 176;
	displayStr(tmpStr, x, y, nb, 20, g_color_txt);
}

void initouv() {
	for (int cx = 1; cx <= 7; ++cx)
		g_touv[cx] = chr(0);
}

void ecrf1() {
	// Large drawing
	g_vm->_screenSurface.drawBox(0, 11, 512, 163, 15);
}

void clsf1() {
	hideMouse();
	g_vm->_screenSurface.fillRect(0, Common::Rect(0, 11, 514, 175));

	showMouse();
}

void clsf2() {
	hideMouse();
	if (g_f2_all) {
		g_vm->_screenSurface.fillRect(0, Common::Rect(1, 176, 633, 199));
		g_vm->_screenSurface.drawBox(0, 175, 634, 24, 15);
		g_f2_all = false;
	} else {
		g_vm->_screenSurface.fillRect(0, Common::Rect(1, 176, 633, 190));
		g_vm->_screenSurface.drawBox(0, 175, 634, 15, 15);
	}
	showMouse();
}

void ecrf2() {
	text_color(5);
}

void ecr2(Common::String str_) {
	// Some dead code was present in the original: removed
	g_vm->_screenSurface.putxy(8, 177);
	int tlig = 59 + (g_res - 1) * 36;

	if ((int)str_.size() < tlig)
		g_vm->_screenSurface.writeg(str_, 5);
	else if ((int)str_.size() < (tlig << 1)) {
		g_vm->_screenSurface.putxy(8, 176);
		g_vm->_screenSurface.writeg(copy(str_, 1, (tlig - 1)), 5);
		g_vm->_screenSurface.putxy(8, 182);
		g_vm->_screenSurface.writeg(copy(str_, tlig, tlig << 1), 5);
	} else {
		g_f2_all = true;
		clsf2();
		g_vm->_screenSurface.putxy(8, 176);
		g_vm->_screenSurface.writeg(copy(str_, 1, (tlig - 1)), 5);
		g_vm->_screenSurface.putxy(8, 182);
		g_vm->_screenSurface.writeg(copy(str_, tlig, ((tlig << 1) - 1)), 5);
		g_vm->_screenSurface.putxy(8, 190);
		g_vm->_screenSurface.writeg(copy(str_, tlig << 1, tlig * 3), 5);
	}
}

void clsf3() {
	hideMouse();
	g_vm->_screenSurface.fillRect(0, Common::Rect(1, 192, 633, 199));
	g_vm->_screenSurface.drawBox(0, 191, 634, 8, 15);
	showMouse();
}

void ecr3(Common::String text) {
	clsf3();
	g_vm->_screenSurface.putxy(8, 192);
	g_vm->_screenSurface.writeg(text, 5);
}

void ecrf6() {
	text_color(5);
	g_vm->_screenSurface.drawBox(62, 33, 363, 80, 15);
}

void ecrf7() {
	text_color(4);
}

void clsf10() {
	int co, cod;
	Common::String st;

	hideMouse();
	if (g_res == 1) {
		co = 634;
		cod = 534;
	} else {
		co = 600;
		cod = 544;
	}
	g_vm->_screenSurface.fillRect(15, Common::Rect(cod, 93, co, 98));
	if (g_s._faithScore < 33)
		st = g_vm->getEngineString(S_COOL);
	else if (g_s._faithScore < 66)
		st = g_vm->getEngineString(S_LOURDE);
	else if (g_s._faithScore > 65)
		st = g_vm->getEngineString(S_MALSAINE);
	
	co = 580 - (g_vm->_screenSurface.getStringWidth(st) / 2);
	g_vm->_screenSurface.putxy(co, 92);
	g_vm->_screenSurface.writeg(st, 4);

	if (g_res == 1)
		co = 620;
	else
		co = 584;

	g_vm->_screenSurface.fillRect(15, Common::Rect(560, 24, co, 86));
	/* rempli(69,12,32,5,255);*/
	showMouse();
}

void stop() {
	hirs();
	g_currGraphicalDevice = MODE_AMSTRAD1512;
	hirs();
	g_vm->quitGame();
}

void paint_rect(int x, int y, int dx, int dy) {
	int co;

	if (g_currGraphicalDevice == MODE_CGA)
		co = 3;
	else
		co = 11;
	g_vm->_screenSurface.fillRect(co, Common::Rect(x, y, x + dx, y + dy));
}

void calch(int &j, int &h, int &m) {
	int nh = readclock();
	int th = g_jh + ((nh - g_mh) / g_t);
	m = ((th % 2) + g_vm__) * 30;
	h = ((uint)th >> 1) + g_vh;
	if (m == 60) {
		m = 0;
		h = h + 1;
	}
	j = (h / 24) + g_vj;
	h = h - ((j - g_vj) * 24);
}

void conv(int x, int &y) {
	int cx = 1;
	y = 128;
	while (cx < x) {
		y = (uint)y >> 1;
		++cx;
	}
}

/* NIVEAU 12 */
void modobj(int m) {
	Common::String strp = Common::String(' ');

	if (m != 500)
		strp = deline(m - 501 + kInventoryStringIndex);

	g_vm->_menu.menut(g_vm->_menu._inventoryMenu[8], strp);
	g_vm->_menu.disableMenuItem(g_vm->_menu._inventoryMenu[8]);
}

void repon(int f, int m) {
	Common::String str_;
	Common::String str1;
	Common::String tmpStr;

	if ((m > 499) && (m < 563)) {
		tmpStr = deline(m - 501 + kInventoryStringIndex);

		if ((int) tmpStr.size() > ((58 + (g_res - 1) * 37) << 1))
			g_f2_all = true;
		else
			g_f2_all = false;

		clsf2();
		displayStr(tmpStr, 8, 176, 85, 3, 5);
	} else {
		modif(m);
		if (f == 8)
			f = 2;
		if (f == 1)
			f = 6;
		if (f == 2) {
			clsf2();
			ecrf2();
			text1(8, 182, 103, m);
			if ((m == 68) || (m == 69))
				g_s._teauto[40] = '*';
			if ((m == 104) && (g_caff == 14)) {
				g_s._teauto[36] = '*';
				if (g_s._teauto[39] == '*') {
					g_s._pourc[3] = '*';
					g_s._teauto[38] = '*';
				}
			}
		}
		if ((f == 6) || (f == 9)) {
			int i;
			if (f == 6)
				i = 4;
			else
				i = 5;

			tmpStr = deline(m);
			displayStr(tmpStr, 80, 40, 60, 25, i);

			if (m == 180)
				g_s._pourc[6] = '*';

			if (m == 179)
				g_s._pourc[10] = '*';
		}
		if (f == 7) {         /* messint */
			ecrf7();
			tmpStr = deline(m);

			int xSmallStr, xLargeStr, dx;
			if (g_res == 1) {
				xSmallStr = 252 - tmpStr.size() * 5;
				xLargeStr = 100;
				dx = 80;
			} else {
				xSmallStr = 252 - tmpStr.size() * 3;
				xLargeStr = 144;
				dx = 50;
			}

			if (tmpStr.size() < 40)
				displayStr(tmpStr, xSmallStr, 86, dx, 3, 5);
			else
				displayStr(tmpStr, xLargeStr, 86, dx, 3, 5);
		}
	}
}

void t5(int cx) {
	if (cx == 10)
		g_blo = false;

	if (cx != 1) {
		g_bh1 = false;
		g_bf1 = false;
	}

	if (cx != 2)
		g_bh2 = false;

	if (cx != 4) {
		g_bh4 = false;
		g_bf4 = false;
	}

	if (cx != 5)
		g_bh5 = false;
	if (cx != 6)
		g_bh6 = false;
	if (cx != 8)
		g_bh8 = false;
	if (cx != 3)
		g_bt3 = false;
	if (cx != 7)
		g_bt7 = false;
	if (cx != 9)
		g_bh9 = false;
}

void affper(int per) {
	int cx;

	for (cx = 1; cx <= 8; ++cx)
		g_vm->_menu.disableMenuItem(g_vm->_menu._discussMenu[cx]);
	clsf10();
	if ((per & 128) == 128) {
		g_vm->_screenSurface.putxy(560, 24);
		g_vm->_screenSurface.writeg("LEO", 4);
		g_vm->_menu.enableMenuItem(g_vm->_menu._discussMenu[1]);
	}
	if ((per & 64) == 64) {
		g_vm->_screenSurface.putxy(560, 32);
		g_vm->_screenSurface.writeg("PAT", 4);
		g_vm->_menu.enableMenuItem(g_vm->_menu._discussMenu[2]);
	}
	if ((per & 32) == 32) {
		g_vm->_screenSurface.putxy(560, 40);
		g_vm->_screenSurface.writeg("GUY", 4);
		g_vm->_menu.enableMenuItem(g_vm->_menu._discussMenu[3]);
	}
	if ((per & 16) == 16) {
		g_vm->_screenSurface.putxy(560, 48);
		g_vm->_screenSurface.writeg("EVA", 4);
		g_vm->_menu.enableMenuItem(g_vm->_menu._discussMenu[4]);
	}
	if ((per & 8) == 8) {
		g_vm->_screenSurface.putxy(560, 56);
		g_vm->_screenSurface.writeg("BOB", 4);
		g_vm->_menu.enableMenuItem(g_vm->_menu._discussMenu[5]);
	}
	if ((per & 4) == 4) {
		g_vm->_screenSurface.putxy(560, 64);
		g_vm->_screenSurface.writeg("LUC", 4);
		g_vm->_menu.enableMenuItem(g_vm->_menu._discussMenu[6]);
	}
	if ((per & 2) == 2) {
		g_vm->_screenSurface.putxy(560, 72);
		g_vm->_screenSurface.writeg("IDA", 4);
		g_vm->_menu.enableMenuItem(g_vm->_menu._discussMenu[7]);
	}
	if ((per & 1) == 1) {
		g_vm->_screenSurface.putxy(560, 80);
		g_vm->_screenSurface.writeg("MAX", 4);
		g_vm->_menu.enableMenuItem(g_vm->_menu._discussMenu[8]);
	}
	g_ipers = per;
}

void choix(int min, int max, int &per) {
	bool i;
	int cz;

	int rand = getRandomNumber(min, max);
	if (rand > 4) {
		rand = 8 - rand;
		i = true;
	} else
		i = false;

	int cx = 0;
	per = 0;
	while (cx < rand) {
		int cy = getRandomNumber(1, 8);
		conv(cy, cz);
		if ((per & cz) != cz) {
			++cx;
			per |= cz;
		}
	}
	if (i)
		per = 255 - per;
}

void cpl1(int &p) {
	int j, h, m;

	calch(j, h, m);
	// The original uses an || instead of an &&, resulting 
	// in an always true condition. Based on the other tests, 
	// and on other scenes, we use an && instead.
	// if ((h > 7) || (h < 11))
	if ((h > 7) && (h < 11))
		p = 25;
	else if ((h > 10) && (h < 14))
		p = 35;
	else if ((h > 13) && (h < 16))
		p = 50;
	else if ((h > 15) && (h < 18))
		p = 5;
	else if ((h > 17) && (h < 22))
		p = 35;
	else if ((h > 21) && (h < 24))
		p = 50;
	else if ((h >= 0) && (h < 8))
		p = 70;

	g_vm->_menu.mdn();
}

void cpl2(int &p) {
	int j, h, m;

	calch(j, h, m);
	if ((h > 7) && (h < 11))
		p = -2;
	if (h == 11)
		p = 100;
	if ((h > 11) && (h < 23))
		p = 10;
	if (h == 23)
		p = 20;
	if ((h >= 0) && (h < 8))
		p = 50;
}

void cpl3(int &p) {
	int j, h, m;

	calch(j, h, m);
	if (((h > 8) && (h < 10)) || ((h > 19) && (h < 24)))
		p = 34;
	if (((h > 9) && (h < 20)) || ((h >= 0) && (h < 9)))
		p = 0;
}

void cpl5(int &p) {
	int j, h, m;

	calch(j, h, m);
	if ((h > 6) && (h < 10))
		p = 0;
	if (h == 10)
		p = 100;
	if ((h > 10) && (h < 24))
		p = 15;
	if ((h >= 0) && (h < 7))
		p = 50;
}

void cpl6(int &p) {
	int j, h, m;

	calch(j, h, m);
	if (((h > 7) && (h < 13)) || ((h > 17) && (h < 20)))
		p = -2;
	if (((h > 12) && (h < 17)) || ((h > 19) && (h < 24)))
		p = 35;
	if (h == 17)
		p = 100;
	if ((h >= 0) && (h < 8))
		p = 60;
}

/**
 * Shows the you are alone message in the status area on the right hand side of the screen
 */
void person() {
	for (int cf = 1; cf <= 8; ++cf)
		g_vm->_menu.disableMenuItem(g_vm->_menu._discussMenu[cf]);

	Common::String sYou = g_vm->getEngineString(S_YOU);
	Common::String sAre = g_vm->getEngineString(S_ARE);
	Common::String sAlone = g_vm->getEngineString(S_ALONE);

	clsf10();
	g_vm->_screenSurface.putxy(580 - (g_vm->_screenSurface.getStringWidth(sYou) / 2), 30);
	g_vm->_screenSurface.writeg(sYou, 4);
	g_vm->_screenSurface.putxy(580 - (g_vm->_screenSurface.getStringWidth(sAre) / 2), 50);
	g_vm->_screenSurface.writeg(sAre, 4);
	g_vm->_screenSurface.putxy(580 - (g_vm->_screenSurface.getStringWidth(sAlone) / 2), 70);
	g_vm->_screenSurface.writeg(sAlone, 4);

	g_ipers = 0;
}

int chlm() {
	int retval = getRandomNumber(1, 2);
	if (retval == 2)
		retval = 128;
	
	return retval;
}

/**
 * Engine function - Draw Clock
 * @remarks	Originally called 'pendule'
 */
void drawClock() {
	const int cv[2][12] = {
		{  5,  8, 10,  8,  5,  0, -5, -8, -10, -8, -5,  0 },
		{ -5, -3,  0,  3,  5,  6,  5,  3,   0, -3, -5, -6 }
	};
	const int x = 580;
	const int y = 123;
	const int rg = 9;
	int h, co;

	hideMouse();
	
	paint_rect(570, 118, 20, 10);
	paint_rect(578, 114, 6, 18);
	if ((g_currGraphicalDevice == MODE_CGA) || (g_currGraphicalDevice == MODE_HERCULES))
		co = 0;
	else
		co = 1;

	if (g_minute == 0)
		g_vm->_screenSurface.drawLine(((uint)x >> 1) * g_res, y, ((uint)x >> 1) * g_res, (y - rg), co);
	else 
		g_vm->_screenSurface.drawLine(((uint)x >> 1) * g_res, y, ((uint)x >> 1) * g_res, (y + rg), co);

	h = g_hour;
	if (h > 12)
		h -= 12;
	if (h == 0)
		h = 12;

	g_vm->_screenSurface.drawLine(((uint)x >> 1) * g_res, y, ((uint)(x + cv[0][h - 1]) >> 1) * g_res, y + cv[1][h - 1], co);
	showMouse();
	g_vm->_screenSurface.putxy(568, 154);

	if (g_hour > 11)
		g_vm->_screenSurface.writeg("PM ", 1);
	else
		g_vm->_screenSurface.writeg("AM ", 1);

	g_vm->_screenSurface.putxy(550, 160);
	if ((g_day >= 0) && (g_day <= 8)) {
		Common::String tmp = g_vm->getEngineString(S_DAY);
		tmp.insertChar((char)(g_day + 49), 0);
		g_vm->_screenSurface.writeg(tmp, 1);
	}
}

/*************
 * NIVEAU 11 *
 *************/

void debloc(int l) {
	g_num = 0;
	g_x = 0;
	g_y = 0;
	if ((l != 26) && (l != 15))
		t5(l);
	g_mpers = g_ipers;
}

void cpl10(int &p, int &h) {
	int j, m;

	calch(j, h, m);
	if (((h > 7) && (h < 11)) || ((h > 11) && (h < 14)) || ((h > 18) && (h < 21)))
		p = 100;
	if ((h == 11) || ((h > 20) && (h < 24)))
		p = 45;
	if (((h > 13) && (h < 17)) || (h == 18))
		p = 35;
	if (h == 17)
		p = 60;
	if ((h >= 0) && (h < 8))
		p = 5;
}

void cpl11(int &p, int &h) {
	int j, m;

	calch(j, h, m);
	if (((h > 8) && (h < 12)) || ((h > 20) && (h < 24)))
		p = 25;
	if (((h > 11) && (h < 14)) || ((h > 18) && (h < 21)))
		p = 5;
	if ((h > 13) && (h < 17))
		p = 55;
	if ((h > 16) && (h < 19))
		p = 45;
	if ((h >= 0) && (h < 9))
		p = 0;
}

void cpl12(int &p) {
	int j, h, m;

	calch(j, h, m);
	if (((h > 8) && (h < 15)) || ((h > 16) && (h < 22)))
		p = 55;
	if (((h > 14) && (h < 17)) || ((h > 21) && (h < 24)))
		p = 25;
	if ((h >= 0) && (h < 5))
		p = 0;
	if ((h > 4) && (h < 9))
		p = 15;
}

void cpl13(int &p) {
	p = 0;
}

void cpl15(int &p) {
	int j, h, m;

	calch(j, h, m);
	if ((h > 7) && (h < 12))
		p = 25;
	else if ((h > 11) && (h < 14))
		p = 0;
	else if ((h > 13) && (h < 18))
		p = 10;
	else if ((h > 17) && (h < 20))
		p = 55;
	else if ((h > 19) && (h < 22))
		p = 5;
	else if ((h > 21) && (h < 24))
		p = 15;
	else if ((h >= 0) && (h < 8))
		p = -15;
}

void cpl20(int &p, int &h) {
	int j, m;

	calch(j, h, m);
	if (h == 10)
		p = 65;
	else if ((h > 10) && (h < 21))
		p = 5;
	else if ((h > 20) && (h < 24))
		p = -15;
	else if ((h >= 0) && (h < 5))
		p = -300;
	else if ((h > 4) && (h < 10))
		p = -5;
}

/**
 * Engine function - Check who is in the Green Room
 * @remarks	Originally called 'quelq1'
 */
void setPresenceGreenRoom(int l) {
	int per = getRandomNumber(1, 2);
	if (l == 1) {
		if (per == 1)
			g_bh1 = true;
		else
			g_bf1 = true;
	} else if (l == 4) {
		if (per == 1)
			g_bh4 = true;
		else
			g_bf4 = true;
	}

	g_ipers = 10;
}

/**
 * Engine function - Check who is in the Purple Room
 * @remarks	Originally called 'quelq2'
 */
void setPresencePurpleRoom() {
	if (g_li == 2)
		g_bh2 = true;
	else
		g_bh9 = true;

	g_ipers = 10;
}

/**
 * Engine function - Check who is in the Blue Room
 * @remarks	Originally called 'quelq5'
 */
void setPresenceBlueRoom() {
	g_bh5 = true;
	g_ipers = 10;
}

/**
 * Engine function - Check who is in the Red Room
 * @remarks	Originally called 'quelq6'
 */
void setPresenceRedRoom(int l) {
	if (l == 6)
		g_bh6 = true;
	else if (l == 8)
		g_bh8 = true;

	g_ipers = 10;
}

/**
 * Engine function - Check who is in the Dining Room
 * @remarks	Originally called 'quelq10'
 */
int setPresenceDiningRoom(int h) {
	int retVal = 0;

	if ((h >= 0) && (h < 8))
		retVal = chlm();
	else {
		int min = 0, max = 0;
		if ((h > 7) && (h < 10)) {
			min = 5;
			max = 7;
		} else if ((h > 9) && (h < 12)) {
			min = 1;
			max = 4;
		} else if (((h > 11) && (h < 15)) || ((h > 18) && (h < 21))) {
			min = 6;
			max = 8;
		} else if (((h > 14) && (h < 19)) || ((h > 20) && (h < 24))) {
			min = 1;
			max = 5;
		}
		choix(min, max, retVal);
	}
	affper(retVal);

	return retVal;
}

/**
 * Engine function - Check who is in the Bureau
 * @remarks	Originally called 'quelq11'
 */
int setPresenceBureau(int h) {
	int retVal = 0;

	if ((h >= 0) && (h < 8))
		retVal = chlm();
	else {
		int min = 0, max = 0;
		if (((h > 7) && (h < 10)) || ((h > 20) && (h < 24))) {
			min = 1;
			max = 3;
		} else if (((h > 9) && (h < 12)) || ((h > 13) && (h < 19))) {
			min = 1;
			max = 4;
		} else if (((h > 11) && (h < 14)) || ((h > 18) && (h < 21))) {
			min = 1;
			max = 2;
		}
		choix(min, max, retVal);
	}
	affper(retVal);

	return retVal;
}

/**
 * Engine function - Check who is in the Kitchen
 * @remarks	Originally called 'quelq12'
 */
int setPresenceKitchen() {
	int retVal = chlm();
	affper(retVal);

	return retVal;
}

/**
 * Engine function - Check who is in the Landing
 * @remarks	Originally called 'quelq15'
 */
int setPresenceLanding() {
	bool test = false;
	int rand = 0;
	do {
		rand = getRandomNumber(1, 8);
		test = (((rand == 1) && (g_bh2 || g_bh9)) ||
		        ((rand == 2) && g_bh8) ||
		        ((rand == 3) && g_bh4) ||
		        ((rand == 4) && g_bf4) ||
		        ((rand == 5) && g_bh6) ||
		        ((rand == 6) && g_bh1) ||
		        ((rand == 7) && g_bf1) ||
		        ((rand == 8) && g_bh5));
	} while (test);

	int retVal = 0;
	conv(rand, retVal);
	affper(retVal);

	return retVal;
}

/**
 * Engine function - Check who is in the chapel
 * @remarks	Originally called 'quelq20'
 */
int setPresenceChapel(int h) {
	int retVal = 0;

	if (((h >= 0) && (h < 10)) || ((h > 18) && (h < 24)))
		retVal = chlm();
	else {
		int min = 0, max = 0;
		if ((h > 9) && (h < 12)) {
			min = 3;
			max = 7;
		} else if ((h > 11) && (h < 18)) {
			min = 1;
			max = 2;
		} else if (h == 18) {
			min = 2;
			max = 4;
		}
		choix(min, max, retVal);
	}
	affper(retVal);

	return retVal;
}


void frap() {
	int j, h, m;

	calch(j, h, m);
	if ((h >= 0) && (h < 8))
		g_crep = 190;
	else {
		if (getRandomNumber(1, 100) > 70)
			g_crep = 190;
		else
			g_crep = 147;
	}
}

void nouvp(int l, int &p) {
	p = 0;
	if (l == 1) {
		if (g_bh1)
			p = 4;
		if (g_bf1)
			p = 2;
	} else if (((l == 2) && (g_bh2)) || ((l == 9) && (g_bh9)))
		p = 128;
	else if (l == 4) {
		if (g_bh4)
			p = 32;
		if (g_bf4)
			p = 16;
	} else if ((l == 5) && (g_bh5))
		p = 1;
	else if ((l == 6) && (g_bh6))
		p = 8;
	else if ((l == 8) && (g_bh8))
		p = 64;
	else if (((l == 3) && (g_bt3)) || ((l == 7) && (g_bt7)))
		p = 9;

	if (p != 9)
		affper(p);
}



void tip(int ip, int &cx) {
	if (ip == 128)
		cx = 1;
	else if (ip == 64)
		cx = 2;
	else if (ip == 32)
		cx = 3;
	else if (ip == 16)
		cx = 4;
	else if (ip == 8)
		cx = 5;
	else if (ip == 4)
		cx = 6;
	else if (ip == 2)
		cx = 7;
	else if (ip == 1)
		cx = 8;
}


void ecfren(int &p, int &rand, int cf, int l) {
	if (l == 0)
		person();
	p = -500;
	rand = 0;
	if (((l == 1) && (!g_bh1) && (!g_bf1)) || ((l == 4) && (!g_bh4) && (!g_bf4)))
		cpl1(p);
	if ((l == 2) && (!g_bh2) && (!g_bh9))
		cpl2(p);
	if (((l == 3) && (!g_bt3)) || ((l == 7) && (!g_bt7)))
		cpl3(p);
	if ((l == 5) && (!g_bh5))
		cpl5(p);
	if (((l == 6) && (!g_bh6)) || ((l == 8) && (!g_bh8)))
		cpl6(p);
	if ((l == 9) && (!g_bh9) && (!g_bh2))
		p = 10;
	if (((l == 2) && (g_bh9)) || ((l == 9) && (g_bh2)))
		p = -400;
	if (p != -500) {
		p = p + cf;
		rand = getRandomNumber(1, 100);
	}
}

void becfren(int l) {
	if ((l == 1) || (l == 4)) {
		int rand = getRandomNumber(1, 2);
		if (l == 1) {
			if (rand == 1)
				g_bh1 = true;
			else
				g_bf1 = true;
		} else { // l == 4
			if (rand == 1)
				g_bh4 = true;
			else
				g_bf4 = true;
		}
	} else if (l == 2)
		g_bh2 = true;
	else if (l == 3)
		g_bt3 = true;
	else if (l == 5)
		g_bh5 = true;
	else if (l == 6)
		g_bh6 = true;
	else if (l == 7)
		g_bt7 = true;
	else if (l == 8)
		g_bh8 = true;
	else if (l == 9)
		g_bh9 = true;
}

/* NIVEAU 10 */
void init_nbrepm() {
	const byte ipm[9] = { 0, 4, 5, 6, 7, 5, 6, 5, 8 };

	for (int idx = 0; idx < 9; ++idx)
		g_nbrepm[idx] = ipm[idx];
}

void phaz(int &rand, int &p, int cf) {
	p += cf;
	rand = getRandomNumber(1, 100);
}

void inzon() {
	copcha();

	g_s._ipre  = false;
	g_s._selectedObjectId = 0;
	g_s._cellarObjectId = 0;
	g_s._atticBallHoleObjectId = 0;
	g_s._atticRodHoleObjectId = 0;
	g_s._wellObjectId = 0;
	g_s._secretPassageObjectId = 0;
	g_s._purpleRoomObjectId = 136;
	g_s._cryptObjectId = 141;
	g_s._faithScore = getRandomNumber(4, 10);
	g_s._currPlace = MANOR_FRONT;

	for (int cx = 2; cx <= 6; ++cx)
		g_s._sjer[cx] = chr(0);

	g_s._sjer[1] = chr(113);
	g_s._heure = chr(20);

	for (int cx = 1; cx <= 10; ++cx)
		g_s._pourc[cx] = ' ';

	for (int cx = 1; cx <= 6; ++cx)
		g_s._teauto[cx] = '*';

	for (int cx = 7; cx <= 9; ++cx)
		g_s._teauto[cx] = ' ';

	for (int cx = 10; cx <= 28; ++cx)
		g_s._teauto[cx] = '*';

	for (int cx = 29; cx <= 42; ++cx)
		g_s._teauto[cx] = ' ';

	g_s._teauto[33] = '*';

	for (int cx = 1; cx <= 8; ++cx)
		g_nbrep[cx] = 0;

	init_nbrepm();
}

void dprog() {
	g_li = 21;
	g_jh = 0;
	if (!g_s._ipre)
		g_blo = true;
	g_t = ti1;
	g_mh = readclock();
}

void pl1(int cf) {
	if (((g_li == 1) && (!g_bh1) && (!g_bf1)) || ((g_li == 4) && (!g_bh4) && (!g_bf4))) {
		int p, rand;
		cpl1(p);
		phaz(rand, p, cf);

		if (rand > p)
			person();
		else
			setPresenceGreenRoom(g_li);
	}
}

void pl2(int cf) {
	if (!g_bh2) {
		int p, rand;
		cpl2(p);
		phaz(rand, p, cf);

		if (rand > p)
			person();
		else
			setPresencePurpleRoom();
	}
}

void pl5(int cf) {
	if (!g_bh5) {
		int p, rand;
		cpl5(p);
		phaz(rand, p, cf);

		if (rand > p)
			person();
		else
			setPresenceBlueRoom();
	}
}

void pl6(int cf) {
	if (((g_li == 6) && (!g_bh6)) || ((g_li == 8) && (!g_bh8))) {
		int p, rand;
		cpl6(p);
		phaz(rand, p, cf);

		if (rand > p)
			person();
		else
			setPresenceRedRoom(g_li);
	}
}

void pl9(int cf) {
	if (!g_bh9) {
		cf = -10;
		int p, rand;
		phaz(rand, p, cf);

		if (rand > p)
			person();
		else
			setPresencePurpleRoom();
	}
}

void pl10(int cf) {
	int p, h, rand;
	cpl10(p, h);
	phaz(rand, p, cf);

	if (rand > p)
		person();
	else
		p = setPresenceDiningRoom(h);
}

void pl11(int cf) {
	int p, h, rand;

	cpl11(p, h);
	phaz(rand, p, cf);
	if (rand > p)
		person();
	else
		p = setPresenceBureau(h);
}

void pl12(int cf) {
	int p, rand;

	cpl12(p);
	phaz(rand, p, cf);
	if (rand > p)
		person();
	else
		p = setPresenceKitchen();
}

void pl13(int cf) {
	int p, rand;

	cpl13(p);
	phaz(rand, p, cf);
	if (rand > p)
		person();
	else
		p = setPresenceKitchen();
}

void pl15(int cf) {
	int p, rand;

	cpl15(p);
	phaz(rand, p, cf);
	if (rand > p)
		person();
	else
		p = setPresenceLanding();
}

void pl20(int cf) {
	int p, h, rand;

	cpl20(p, h);
	phaz(rand, p, cf);
	if (rand > p)
		person();
	else
		p = setPresenceChapel(h);
}

void t11(int l11, int &a) {
	int p, rand;

	ecfren(p, rand, g_s._faithScore, l11);
	g_li = l11;
	if ((l11 > 0) && (l11 < 10)) {
		if (p != -500) {
			if (rand > p) {
				person();
				a = 0;
			} else {
				becfren(g_li);
				nouvp(g_li, a);
			}
		} else
			nouvp(g_li, a);
	}

	if (l11 > 9) {
		if ((l11 > 15) && (l11 != 20) && (l11 != 26))
			person();
		else {
			int h = 0;
			if (l11 == 10)
				cpl10(p, h);
			if (l11 == 11)
				cpl11(p, h);
			if (l11 == 12)
				cpl12(p);
			if ((l11 == 13) || (l11 == 14))
				cpl13(p);
			if ((l11 == 15) || (l11 == 26))
				cpl15(p);
			if (l11 == 20)
				cpl20(p, h);
			p += g_s._faithScore;
			rand = getRandomNumber(1, 100);
			if (rand > p) {
				person();
				a = 0;
			} else {
				if (l11 == 10)
					p = setPresenceDiningRoom(h);
				if (l11 == 11)
					p = setPresenceBureau(h);
				if ((l11 == 12) || (l11 == 13) || (l11 == 14))
					p = setPresenceKitchen();
				if ((l11 == 15) || (l11 == 26))
					p = setPresenceLanding();
				if (l11 == 20)
					p = setPresenceChapel(h);
				a = p;
			}
		}
	}
}

void cavegre() {
	g_s._faithScore += 2;
	if (g_s._faithScore > 69)
		g_s._faithScore += (g_s._faithScore / 10);
	clsf3();
	ecrf2();
	ecr3(g_vm->getEngineString(S_SOMEONE_ENTERS));
	int rand = (getRandomNumber(0, 4)) - 2;
	parole(2, rand, 1);

	// The original was doing here a useless loop.
	// It has been removed

	clsf3();
	person();
}

void writetp(Common::String s, int t) {
	if (g_res == 2)
		g_vm->_screenSurface.writeg(s, t);
	else
		g_vm->_screenSurface.writeg(copy(s, 1, 25), t);
}

void aniof(int ouf, int num) {
	if ((g_caff == 7) && ((num == 4) || (num == 5)))
		return;
	
	if ((g_caff == 10) && (num == 7))
		num = 6;

	if (g_caff == 12) {
		if (num == 3)
			num = 4;
		else if (num == 4)
			num = 3;
	}

	int ad = adani;
	int offset = animof(ouf, num);

	GfxSurface surface;
	surface.decode(&g_mem[ad * 16 + offset]);
	g_vm->_screenSurface.drawPicture(surface, 0, 12);

	ecrf1();
}

void musique(int so) {
	if (so == 0) {
		/* musik(0) */
		;
	} else if ((g_prebru == 0) && (!g_s._ipre)) {
		parole(10, 1, 1);
		++g_prebru;
	} else {
		bool i = false;
		if ((g_s._currPlace == MOUNTAIN) || (g_s._currPlace == MANOR_FRONT) || (g_s._currPlace == MANOR_BACK)) {
			if (getRandomNumber(1, 3) == 2) {
				parole(9, getRandomNumber(2, 4), 1);
				i = true;
			}
		}
		if (g_s._currPlace == CHAPEL) {
			if (getRandomNumber(1, 2) == 1) {
				parole(8, 1, 1);
				i = true;
			}
		}

		if (g_s._currPlace == WELL) {
			if (getRandomNumber(1, 2) == 2) {
				parole(12, 1, 1);
				i = true;
			}
		}

		if (g_s._currPlace == 23) {
			parole(13, 1, 1);
			i = true;
		}
		if (!i)
			parole(getRandomNumber(1, 17), 1, 2);
	}
}

/* NIVEAU 9 */
void dessin(int ad) {
	if (ad != 0)
		dessine(g_ades, ((ad % 160) * 2), (ad / 160));
	else {
		clsf1();
		if (g_caff > 99) {
			dessine(g_ades, 60, 33);
			g_vm->_screenSurface.drawBox(118, 32, 291, 121, 15);         // Medium box
		} else if (g_caff > 69) {
			dessine(g_ades, 112, 48);           // Heads
			g_vm->_screenSurface.drawBox(222, 47, 155, 91, 15);
		} else {
			dessine(g_ades, 0, 12);
			ecrf1();
			if ((g_caff < 30) || (g_caff > 32)) {
				for (int cx = 1; cx <= 6; ++cx) {
					if (ord(g_touv[cx]) != 0)
						aniof(1, ord(g_touv[cx]));
				}

				if (g_caff == 13) {
					if (g_s._atticBallHoleObjectId == 141)
						aniof(1, 7);

					if (g_s._atticRodHoleObjectId == 159)
						aniof(1, 6);
				}
				if ((g_caff == 14) && (g_s._cellarObjectId == 151))
					aniof(1, 2);

				if ((g_caff == 17) && (g_s._secretPassageObjectId == 143))
					aniof(1, 1);

				if ((g_caff == 24) && (g_s._wellObjectId != 0))
					aniof(1, 1);
			}
			
			if (g_caff < 26)
				musique(1);
		}
	}
}

} // End of namespace Mortevielle