mor2.cpp

const array<1, 11, integer> men
= {{
		scacher, attacher, defoncer, dormir,
		entrer,  fermer,   frapper,  manger,
		mettre,  ouvrir,   sortir
	}
};

void tinke() {
	const char m1[] = "Mince! Vous entendez du bruit...";
	const char d1[] = " | Vous devriez avoir remarqu‚|       ";
	const char d2[] = "% des indices...";
	const char d3 = '[';
	const char d4 = ']';
	const char d5 = '1';
	const char d6[] = "OK";
	integer cx, cy, haz, nh, cf, j, h, m, cd;
	varying_string<3> stpo;
	boolean am;

	anyone = false;
	calch(j, h, m);
	if (j != jou) {
		jou = j;
		cx = 0;
		do {
			cx = cx + 1;
			if (nbrepm[cx] != 0)  nbrepm[cx] = nbrepm[cx] - 1;
			nbrep[cx] = 0;
		} while (!(cx == 8));
	}
	if ((h > heu) || ((h == 0) && (heu == 23))) {
		heu = h;
		min = 0;
		pendule();
		cf = 0;
		for (cx = 1; cx <= 10; cx ++) if (s.pourc[cx] == '*')  cf = cf + 1;
		if (cf == 10)  stpo = "10";
		else stpo = chr(cf + 48);
		stpou = string(d3) + d5 + d4 + d3 + d1 + stpo + '0' + d2 + d4 + d3 + d6 + d4;
	}
	if (m > min) {
		min = 30;
		pendule();
	}
	if (y_s < 12)  return;
	if (! blo) {
		if ((h == 12) || ((h > 18) && (h < 21)) || ((h >= 0) && (h < 7)))
			t = ti2;
		else t = ti1;
		cf = s.conf;
		if ((cf > 33) && (cf < 66))  t = t - (t / 3);
		if (cf > 65)  t = t - ((t / 3) * 2);
		nh = readclock();
		if ((nh - mh) > t) {
			am = active_menu;
			erase_menu();
			jh = jh + ((nh - mh) / t);
			mh = nh;
			switch (li) {
			case 1:
			case 4 :
				pl1(cf);
				break;
			case 2 :
				pl2(cf);
				break;
			case 5 :
				pl5(cf);
				break;
			case 6:
			case 8 :
				pl6(cf);
				break;
			case 9 :
				pl9(cf);
				break;
			case 10 :
				pl10(cf);
				break;
			case 11 :
				pl11(cf);
				break;
			case 12 :
				pl12(cf);
				break;
			case 13:
			case 14 :
				pl13(cf);
				break;
			case 15:
			case 26 :
				pl15(cf);
				break;
			case 20 :
				pl20(cf);
				break;
			}
			if ((mpers != 0) && (ipers != 10))  mpers = ipers;
			if ((mpers == 0) && (ipers > 0))
				if ((s.mlieu == 13) || (s.mlieu == 14))  cavegre();
				else if (ipers == 10) {
					ipers = 0;
					if (! brt) {
						brt = true;
						hdb = readclock();
						haz = hazard(1, 5);
						if (haz < 5) {
							clsf3();
							ecrf2();
							ecr3(m1);
							haz = (hazard(0, 4)) - 2;
							parole(1, haz, 1);
							clsf3();
						}
					}
				}
			if (am)  draw_menu();
		}
	}
	hfb = readclock();
	if ((brt) && ((hfb - hdb) > 17)) {
		nouvp(li, cx);
		brt = false;
		hdb = 0;
		if ((s.mlieu > 0) && (s.mlieu < 10))  anyone = true;
	}
}

void fenat(char ans) {
	integer coul;

	hide_mouse();
	if (gd == cga)  coul = 2;
	else if (gd == her)  coul = 1;
	else coul = 12;
	affcar(gd, 306, 193, coul, ord(ans));
	boite(300, 191, 16, 8, 15);
	show_mouse();
}


/* NIVEAU 8 */
void afdes(integer ad) {
	taffich();
	dessin(ad);
	okdes = false;
}

void tkey1(boolean d) {
	boolean quest;
	integer x, y, c;
	integer key;

	hide_mouse();
	fenat('K');
	while (keypressed())  key = testou();
	do {
		if (d)  tinke();
		quest = keypressed();
		read_pos_mouse(x, y, c);
	} while (!(quest || (c != 0) || (d && anyone)));
	if (quest)  key = testou();
	clic = false;
	show_mouse();
}

void tmlieu(integer mli) {
	integer cx, j, i, tail;
	str30 nomp;
	phrase st;


	if (mli == 26)  mli = 15;
	i = 1;
	while ((i < 8) && (v_lieu[i][mli] != 0)) {
		cx = v_lieu[i][mli];
		deline(cx + c_tmlieu, st, tail);
		nomp = delig;
		while (length(nomp) < 30)  nomp = nomp + ' ';
		menut(depl[i], nomp);
		i = i + 1;
	}
	nomp = "*                   ";
	for (cx = 7; cx >= i; cx --) menut(depl[cx], nomp);
}


/* NIVEAU 7 */
void tlu(integer af, integer ob) {
	caff = 32;
	afdes(0);
	repon(6, ob + 4000);
	repon(2, 999);
	tkey1(true);
	caff = af;
	msg[3] = no_choice;
	crep = 998;
}

void delin(integer n) {
	phrase s;
	integer t;

	deline(n, s, t);
}

void affrep() {
	caff = s.mlieu;
	crep = s.mlieu;
}

void mfouen()

{
	integer cx;

	tmlieu(s.mlieu);
	for (cx = 1; cx <= 11; cx ++) menu_enable(men[cx]);
	/* menu_enable( scacher);
	 menu_enable(menup, attacher);
	 menu_enable(menup, defoncer);
	 menu_enable(menup, dormir);
	 menu_enable(menup, entrer);
	 menu_enable(menup, fermer);
	 menu_enable(menup, frapper);
	 menu_enable(menup, manger);
	 menu_enable(menup, mettre);
	 menu_enable(menup, ouvrir);
	 menu_enable(menup, sortir);  */
	menut(sonder, " sonder   ");
	menut(soulever, " soulever ");
}

void atf3f8(integer &key) {
	do {
		key = testou();
	} while (!((key == 61) || (key == 66)));
}

/* NIVEAU 6 */

void tperd() {
	integer cx;

	initouv();
	ment = 0;
	iouv = 0;
	mchai = 0;
	mfouen();
	if (! blo)  t11(21, cx);
	perdu = true;
	clsf1();
	boite(60, 35, 400, 50, 15);
	repon(9, crep);
	clsf2();
	clsf3();
	col = false;
	syn = false;
	okdes = false;
}

void tsort() {
	integer cx;

	if ((iouv > 0) && (s.mlieu != 0))
		if (s.conf < 50)  s.conf = s.conf + 2;
		else s.conf = s.conf + (s.conf / 10);
	for (cx = 1; cx <= 7; cx ++) touv[cx] = chr(0);
	ment = 0;
	iouv = 0;
	mchai = 0;
	debloc(s.mlieu);
}

void st4(integer ob) {
	crep = 997;
	switch (ob) {
	case 114 :
		crep = 109;
		break;
	case 110 :
		crep = 107;
		break;
	case 158 :
		crep = 113;
		break;
	case RANGE_5(152, 156):
	case 150:
	case 100:
	case 157:
	case 160:
	case 161 :
		tlu(caff, ob);
		break;
	}
}

void cherjer(integer ob, boolean &d) {
	integer cx;

	d = false;
	for (cx = 1; cx <= 6; cx ++) d = (d || (ord(s.sjer[cx]) == ob));
	if (s.derobj == ob)  d = true;
}

void st1sama() {
	s.mlieu = 10;
	affrep();
}

void modinv() {
	integer cx, cy, tay, i, r;
	phrase nom;
	str30 nomp;

	cy = 0;
	for (cx = 1; cx <= 6; cx ++)
		if (s.sjer[cx] != chr(0)) {
			cy = succ(integer, cy);
			r = (ord(s.sjer[cx]) + 400);
			deline(r - 501 + c_st41, nom, tay);
			nomp = delig;
			menut(invt[cy], nomp);
			menu_enable(invt[cx]);
		}
	if (cy < 6)
		for (cx = cy + 1; cx <= 6; cx ++) {
			menut(invt[cx], "                       ");
			menu_disable(invt[cx]);
		}
}

void sparl(long_integer adr, long_integer rep) {
	const array<1, 8, integer> haut
	= {{0, 1, -3, 6, -2, 2, 7, -1}};
	integer key, ad, tay, repint;
	phrase st;

	repint = trunc(rep);
	hide_mouse();
	deline(repint + c_paroles, st, tay);
	afftex(st, 230, 4, 65, 24, 5);
	f3f8();
	/*boite(43,30,90,19,15);
	gotoxy(7,5);
	write('F3: Encore');
	gotoxy(7,6);
	write('F8: Stop');*/
	key = 0;
	do {
		parole(repint, haut[caff - 69], 0);
		atf3f8(key);
	} while (!(key == 66));
	hirs();
	show_mouse();
}

void finfouil() {
	fouil = false;
	obpart = false;
	cs = 0;
	is = 0;
	mfouen();
}

void mfoudi() {
	integer cx;

	for (cx = 1; cx <= 7; cx ++) menu_disable(depl[cx]);
	for (cx = 1; cx <= 11; cx ++) menu_disable(men[cx]);
	/* menu_disable(menup, scacher);
	 menu_disable(menup, attacher);
	 menu_disable(menup, defoncer);
	 menu_disable(menup, dormir);
	 menu_disable(menup, entrer);
	 menu_disable(menup, fermer);
	 menu_disable(menup, frapper);
	 menu_disable(menup, manger);
	 menu_disable(menup, mettre);
	 menu_disable(menup, ouvrir);
	 menu_disable(menup, sortir);  */
	menut(sonder, " -SUITE- ");
	menut(soulever, " -STOP-  ");
}

void mennor() {
	menu_up(msg[3]);
}

void premtet() {
	dessine(ades, 10, 80);
	boite(18, 79, 155, 91, 15);
}

/* NIVEAU 5 */
void ajchai() {
	integer cx, cy, lderobj;


	cy = (acha + pred(integer, pred(integer, mchai) * 10));
	cx = 0;
	do {
		cx = cx + 1;
	} while (!((cx > 9) || (tabdon[cy + cx] == 0)));
	if (tabdon[cy + cx] == 0) {
		lderobj = s.derobj;
		tabdon[cy + cx] = lderobj;
	} else crep = 192;
}

void ajjer(integer ob) {
	integer cx;

	cx = 0;
	do {
		cx = cx + 1;
	} while (!((cx > 5) || (ord(s.sjer[cx]) == 0)));
	if (ord(s.sjer[cx]) == 0) {
		s.sjer[(cx)] = chr(ob);
		modinv();
	} else crep = 139;
}

void t1sama() {    /* On entre dans le manoir */
	integer j, h, m;
	boolean d;

	calch(j, h, m);
	if ((h < 5) && (s.mlieu > 18)) {
		cherjer(137, d);
		if (! d) {        /* On n'a pas les cl‚s et il est tard */
			crep = 1511;
			tperd();
		} else st1sama();
	} else if (! s.ipre) {     /* c'est votre premiŠre fois ? */
		ipers = 255;
		affper(ipers);
		caff = 77;
		afdes(0);
		boite(223, 47, 155, 91, 15);
		repon(2, 33);
		tkey1(false);
		mennor();
		hide_mouse();
		hirs();
		premtet();
		sparl(0, 140);
		dessine_rouleau();
		pendule();
		show_mouse();
		s.mlieu = 0;
		affrep();
		t5(10);
		if (! blo)  t11(0, m);
		ipers = 0;
		mpers = 0;
		s.ipre = true;
		/*chech;*/
	} else  st1sama();
}

void t1vier() {
	s.mlieu = 17;
	affrep();
}

void t1neig() {
	inei = inei + 1;
	if (inei > 2) {
		crep = 1506;
		tperd();
	} else {
		okdes = true;
		s.mlieu = 19;
		affrep();
	}
}

void t1deva() {
	inei = 0;
	s.mlieu = 21;
	affrep();
}

void t1derr() {
	s.mlieu = 22;
	affrep();
}

void t1deau() {
	crep = 1503;
	tperd();
}

void tctrm() {
	repon(2, (3000 + ctrm));
	ctrm = 0;
}


void quelquun()

{
	integer haz, cx;

	if (imen)  erase_menu();
	finfouil();
	crep = 997;
L1:
	if (! cache) {
		if (crep == 997)  crep = 138;
		repon(2, crep);
		if (crep == 138)  parole(5, 2, 1);
		else parole(4, 4, 1);
		if (iouv == 0)  s.conf = s.conf + 2;
		else if (s.conf < 50)  s.conf = s.conf + 4;
		else
			s.conf = s.conf + (3 * (s.conf / 10));
		tsort();
		tmlieu(15);
		tip(ipers, cx);
		caff = 69 + cx;
		crep = caff;
		msg[3] = discut;
		msg[4] = disc[cx];
		syn = true;
		col = true;
	} else {
		haz = hazard(1, 3);
		if (haz == 2) {
			cache = false;
			crep = 137;
			goto L1;
		} else {
			repon(2, 136);
			haz = (hazard(0, 4)) - 2;
			parole(3, haz, 1);
			clsf2();
			person();
			debloc(21);
			affrep();
		}
	}
	if (imen)  draw_menu();
}

void tsuiv() {
	integer cx, tbcl;
	integer cl, cy;

	cy = acha + ((mchai - 1) * 10) - 1;
	cx = 0;
	do {
		cx = cx + 1;
		cs = cs + 1;
		cl = cy + cs;
		tbcl = tabdon[cl];
	} while (!((tbcl != 0) || (cs > 9)));
	if ((tbcl != 0) && (cs < 11)) {
		is = is + 1;
		caff = tbcl;
		crep = caff + 400;
		if (ipers != 0)  s.conf = s.conf + 2;
	} else {
		affrep();
		finfouil();
		if (cx > 9)  crep = 131;
	}
}

void tfleche() {
	boolean qust;
	char touch;
	integer dummy, cd, xmo, ymo;

	if (num == 9999)  return;
	fenat(chr(152));
	rect = false;
	do {
		touch = '\0';

		do {
			mov_mouse(qust, touch);
			if (clic)  rect = (x_s < 256 * res) && (y_s < 176) && (y_s > 12);
			tinke();
		} while (!(qust || rect || anyone));

		if (qust && (touch == '\103'))  dummy = do_alert(stpou, 1);
	} while (!((touch == '\73') || ((touch == '\104') && (x != 0) && (y != 0)) ||
	           (anyone) || (rect)));
	if (touch == '\73')  iesc = true;
	if (rect) {
		x = x_s;
		y = y_s;
	}
}

void tcoord(integer sx)

{
	integer sy, ix, iy, cb, cy, ib;
	integer a, b, atdon;


	num = 0;
	crep = 999;
	a = 0;
	atdon = amzon + 3;
	cy = 0;
	while (cy < caff) {
		a = a + tabdon[atdon];
		atdon = atdon + 4;
		cy = succ(integer, cy);
	}
	/*     for cy:=0 to caff-1 do
	          a:=a+ tabdon[amzon+3+4*cy];
	     b:= peek(amzon+3+4*caff); */
	b = tabdon[atdon];
	if (b == 0)  goto L1;
	a = a + fleche;
	cb = 0;
	for (cy = 0; cy <= (sx - 2); cy ++) {
		ib = (tabdon[a + cb] << 8) + tabdon[succ(integer, a + cb)];
		cb = cb + (ib * 4) + 2;
	}
	ib = (tabdon[a + cb] << 8) + tabdon[succ(integer, a + cb)];
	if (ib == 0)  goto L1;
	cy = 1;
	do {
		cb = cb + 2;
		sx = tabdon[a + cb] * res;
		sy = tabdon[succ(integer, a + cb)];
		cb = cb + 2;
		ix = tabdon[a + cb] * res;
		iy = tabdon[succ(integer, a + cb)];
		cy = cy + 1;
	} while (!(((x >= sx) && (x <= ix) && (y >= sy) && (y <= iy))
	           || (cy > ib)));
	if ((x >= sx) && (x <= ix) && (y >= sy) && (y <= iy))

	{
		num = cy - 1;
		return;
	}
L1:
	crep = 997;
}


void st7(integer ob) {
	crep = 183;
	if ((ob == 116) || (ob == 144))  crep = 104;
	if ((ob == 126) || (ob == 111))  crep = 108;
	if (ob == 132)  crep = 111;
	if (ob == 142)  crep = 112;
	if (crep == 183)  st4(ob);
}

void treg(integer ob) {
	integer mdes;

	mdes = caff;
	caff = ob;
	if (((caff > 29) && (caff < 33)) || (caff == 144) ||
	        (caff == 147) || (caff == 149) || (msg[4] == sregarder)) {
		afdes(0);
		if ((caff > 29) && (caff < 33))  repon(2, caff);
		else repon(2, (caff + 400));
		tkey1(true);
		caff = mdes;
		msg[3] = 0;
		crep = 998;
	} else {
		obpart = true;
		crep = caff + 400;
		mfoudi();
	}
}

void avpoing(integer &ob) {
	crep = 999;
	if (s.derobj != 0)  ajjer(s.derobj);
	if (crep != 139) {
		modobj(ob + 400);
		s.derobj = ob;
		ob = 0;
	}
}

void rechai(integer &ch) {
	integer cx;

	cx = s.mlieu;
	if (s.mlieu == 16)  cx = 14;
	ch = tabdon[achai + (cx * 7) + pred(integer, num)];
}

void t23coul(integer &l) {
	boolean d;

	cherjer(143, d);
	l = 14;
	if (! d) {
		crep = 1512;
		tperd();
	}
}

void maivid() {
	s.derobj = 0;
	modobj(500);
}

void st13(integer ob) {
	if ((ob == 114) || (ob == 116) || (ob == 126) || (ob == 132) ||
	        (ob == 111) || (ob == 106) || (ob == 102) || (ob == 100) ||
	        (ob == 110) || (ob == 153) || (ob == 154) || (ob == 155) ||
	        (ob == 156) || (ob == 157) || (ob == 144) || (ob == 158) ||
	        (ob == 150) || (ob == 152))  crep = 999;
	else crep = 105;
}

void aldepl() {
	integer dummy;

	dummy = do_alert("[1][Alors, utilisez le menu DEP...][ok]", 1);
}