/* 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/str.h"
#include "mortevielle/alert.h"
#include "mortevielle/level15.h"
#include "mortevielle/mouse.h"
#include "mortevielle/sprint.h"

namespace Mortevielle {

/* overlay */ int do_alert(Common::String str_, int n);


const int nligne = 7;

const int coord[3][4] = {
	{0, 0, 0, 0},
	{0, 150, 72, 103},
	{0, 143, 107, 183}
};


static void decod(Common::String s, int &nbc, int &nbl, int &col, Common::String &c, Common::String &cs) {
	int i, k;
	bool v;

	//val(s[2], nbc, i);
	nbc = atoi(s.c_str() + 1);
	i = 0;

	c = "";
	nbl = 0;
	i = 5;
	k = 0;
	v = true;
	col = 0;

	while (s[i] != ']') {
		c = c + s[i];
		if ((s[i] == '|') || (s[i + 1] == ']')) {
			if (k > col)  col = k;
			k = 0;
			nbl = nbl + 1;
		} else if (s[i] != ' ')  v = false;
		i = i + 1;
		k = k + 1;
	}
	if (v)  {
		c = "";
		col = 20;
	} else {
		c = c + ']';
		col = col + 6;
	}
	i = i + 1;
	cs = copy(s, i, 30);
	if (res == 2)  col = col * 6;
	else col = col * 10;
}



static void posit(int ji, int &coldep, int &esp) {
	putxy(coldep + (40 + esp) *pred(int, ji), 98);
}



static void fait_boite(int lidep, int nli, int tx) {
	int x, y, xx, yy;

	if (tx > 640)  tx = 640;
	x = 320 - ((uint)tx >> 1);
	y = pred(int, lidep) << 3;
	xx = x + tx;
	yy = y + (nli << 3);
	box(15, gd, x, y, xx, yy, 255);
	box(0, gd, x, y + 2, xx, y + 4, 255);
	box(0, gd, x, yy - 4, xx, yy - 2, 255);
}



static void fait_choix(Common::String c, int &coldep, int &nbcase, Common::String *str, int &esp) {
	int i, l, x;
	char ch;

	i = 1;
	x = coldep;
	for (l = 1; l <= nbcase; l ++) {
		str[l] = "";
		do {
			i = i + 1;
			ch = c[i];
			str[l] = str[l] + ch;
		} while (!(c[i + 1] == ']'));
		i = i + 2;
		while (str[l].size() < 3)  str[l] = str[l] + ' ';
		putxy(x, 98);

		Common::String tmp(" ");
		tmp += str[l];
		tmp += " ";

		writeg(tmp, 0);
		x = x + esp + 40;
	}
}

int do_alert(Common::String str_, int n) {
	int coldep, esp, i, nbcase, quoi, ix;
	Common::String st, chaine;
	int limit[3][3];
	char dumi;
	Common::String s[3];
	int cx, cy, nbcol, nblig;
	bool newaff, test, test1, test2, test3, dum;
	Common::String cas;


	/*debug('** do_alert **');*/
	memset(&limit[0][0], 0, sizeof(int) * 3 * 3);
	int do_alert_result;
	hide_mouse();
	while (keypressed())
		dumi = get_ch();	// input >> kbd >> dumi;

	clic = false;
	decod(str_, nbcase, nblig, nbcol, chaine, cas);
	sauvecr(50, succ(int, nligne) << 4);

	i = 0;
	if (chaine == "") {
		fait_boite(10, 5, nbcol);
	} else {
		fait_boite(8, 7, nbcol);
		i = 0;
		ywhere = 70;
		do {
			cx = 320;
			st = "";
			while ((chaine[i + 1] != '\174') && (chaine[i + 1] != '\135')) {
				i = i + 1;
				st = st + chaine[i];
				if (res == 2)  cx = cx - 3;
				else cx = cx - 5;
			}
			putxy(cx, ywhere);
			ywhere = ywhere + 6;
			writeg(st, 4);
			i = i + 1;
		} while (!(chaine[i] == ']'));
	}
	if (nbcase == 1)  esp = nbcol - 40;
	else esp = (uint)(nbcol - nbcase * 40) >> 1;
	coldep = 320 - ((uint)nbcol >> 1) + ((uint)esp >> 1);
	fait_choix(cas, coldep, nbcase, &s[0], esp);
	limit[1][1] = ((uint)(coldep) >> 1) * res;
	limit[1][2] = limit[1][1] + 40;
	if (nbcase == 1) {
		limit[2][1] = limit[2][2];
	} else {
		limit[2][1] = ((uint)(320 + ((uint)esp >> 1)) >> 1) * res;
		limit[2][2] = (limit[2][1]) + 40;
	}
	show_mouse();
	quoi = 0;
	dum = false;
	do {
		dumi = '\377';
		mov_mouse(dum, dumi);
		cx = x_s;
		cy = y_s;
		test = (cy > 95) && (cy < 105);
		newaff = false;
		if (test) {
			test1 = (cx > limit[1][1]) && (cx < limit[1][2]);
			test2 = test1;
			if (nbcase > 1)  test2 = test1 || ((cx > limit[2][1]) && (cx < limit[2][2]));
			if (test2) {
				newaff = true;
				if (test1)  ix = 1;
				else ix = 2;
				if (ix != quoi) {
					hide_mouse();
					if (quoi != 0) {
						posit(quoi, coldep, esp);

						Common::String tmp(" ");
						tmp += s[quoi];
						tmp += " ";
						writeg(tmp, 0);
					}
					posit(ix, coldep, esp);

					Common::String tmp2 = " ";
					tmp2 += s[ix];
					tmp2 += " ";
					writeg(tmp2, 1);

					quoi = ix;
					show_mouse();
				}
			}
		}
		if ((quoi != 0) && ! newaff) {
			hide_mouse();
			posit(quoi, coldep, esp);

			Common::String tmp3(" ");
			tmp3 += s[quoi];
			tmp3 += " ";
			writeg(tmp3, 0);

			quoi = 0;
			show_mouse();
		}
		test3 = (cy > 95) && (cy < 105) && (((cx > limit[1][1]) && (cx < limit[1][2]))
		                                    || ((cx > limit[2][1]) && (cx < limit[2][2])));
	} while (!clic);
	clic = false;
	hide_mouse();
	if (! test3)  {
		quoi = n;
		posit(n, coldep, esp);
		Common::String tmp4(" ");
		tmp4 += s[n];
		tmp4 += " ";
		writeg(tmp4, 1);
	}
	charecr(50, succ(int, nligne) << 4);
	show_mouse();
	do_alert_result = quoi;
	return do_alert_result;
}

} // End of namespace Mortevielle