scummvm/engines/mortevielle/alert.cpp

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

namespace Mortevielle {

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


const int nligne = 7;
const matrix<1, 2, 1, 3, int> coord
= {{ {{150, 72, 103}},
		{{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);
	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 - ((cardinal)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, array<1, 2, varying_string<3> > &s, int &esp) {
	int i, l, x;
	char ch;

	i = 1;
	x = coldep;
	for (l = 1; l <= nbcase; l ++) {
		s[l] = "";
		do {
			i = i + 1;
			ch = c[i];
			s[l] = s[l] + ch;
		} while (!(c[i + 1] == ']'));
		i = i + 2;
		while (length(s[l]) < 3)  s[l] = s[l] + ' ';
		putxy(x, 98);
		writeg(string(' ') + s[l] + ' ', 0);
		x = x + esp + 40;
	}
}

int do_alert(Common::String str_, int n) {
	int coldep, esp, i, l, nbcase, quoi, ix;
	Common::String st, chaine;
	matrix<1, 2, 1, 2, int> limit;
	char c, dumi;
	array<1, 2, varying_string<3> > s;
	int cx, cy, cd, nbcol, nblig;
	bool touch, newaff, test, test1, test2, test3, dum;
	Common::String cas;


	/*debug('** do_alert **');*/
	int do_alert_result;
	hide_mouse();
	while (keypressed())  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 (!(set::of('\174', '\135', eos).has(chaine[i + 1]))) {
				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 = (cardinal)(nbcol - nbcase * 40) >> 1;
	coldep = 320 - ((cardinal)nbcol >> 1) + ((cardinal)esp >> 1);
	fait_choix(cas, coldep, nbcase, s, esp);
	limit[1][1] = ((cardinal)(coldep) >> 1) * res;
	limit[1][2] = limit[1][1] + 40;
	if (nbcase == 1) {
		limit[2][1] = limit[2][2];
	} else {
		limit[2][1] = ((cardinal)(320 + ((cardinal)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);
						writeg(string(' ') + s[quoi] + ' ', 0);
					}
					posit(ix, coldep, esp);
					writeg(string(' ') + s[ix] + ' ', 1);
					quoi = ix;
					show_mouse();
				}
			}
		}
		if ((quoi != 0) && ! newaff) {
			hide_mouse();
			posit(quoi, coldep, esp);
			writeg(string(' ') + s[quoi] + ' ', 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);
		writeg(string(' ') + s[n] + ' ', 1);
	}
	charecr(50, succ(int, nligne) << 4);
	show_mouse();
	do_alert_result = quoi;
	return do_alert_result;
}

} // End of namespace Mortevielle