libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-18 07:39:08 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
10132f3632
scummvm/engines/mortevielle/actions.cpp

1586 lines
28 KiB
C++
Raw Blame History

/* 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/scummsys.h"
#include "mortevielle/actions.h"
#include "mortevielle/dialogs.h"
#include "mortevielle/level15.h"
#include "mortevielle/menu.h"
#include "mortevielle/mor.h"
#include "mortevielle/mor2.h"
#include "mortevielle/mortevielle.h"
#include "mortevielle/mouse.h"
#include "mortevielle/outtext.h"
#include "mortevielle/parole2.h"
#include "mortevielle/taffich.h"
#include "mortevielle/var_mor.h"
namespace Mortevielle {
/**
* Engine function - Move
* @remarks Originally called 'taller'
*/
void fctMove() {
int cx;
if ((s.mlieu == 26) && (msg[4] == g_vm->_menu._moveMenu[6])) {
s.mlieu = 15;
caff = s.mlieu;
afdes(0);
repon(2, s.mlieu);
}
if ((s.mlieu == 15) && (msg[4] == g_vm->_menu._moveMenu[6])) {
if (!syn)
ecr3(g_vm->getEngineString(S_GO_TO));
tfleche();
if (iesc)
okdes = false;
if ((anyone) || (iesc))
return;
tcoord(1);
if (num == 0)
return;
if (num == 1) {
s.mlieu = 0;
tmlieu(0);
} else if (num == 7) {
s.mlieu = 13;
tmlieu(13);
} else if (num != 6)
s.mlieu = 26;
if ((num > 1) && (num < 6))
ment = num - 1;
if (num > 7)
ment = num - 3;
if (num != 6)
affrep();
else
aldepl();
return;
}
tsort();
cx = 0;
do {
++cx;
} while (g_vm->_menu._moveMenu[cx] != msg[4]);
if (s.mlieu == 19) {
if (cx == 1)
t1deva();
if (cx == 2)
t1neig();
goto L2;
}
if (s.mlieu == 23) {
if (cx == 1)
t1deau();
if (cx == 2)
t1derr();
goto L2;
}
if ((s.mlieu == 11) && (cx == 1))
cx = 6;
if (s.mlieu == 12) {
if (cx == 2)
cx = 6;
if (cx == 5)
cx = 16;
}
if ((s.mlieu == 14) && (cx == 3))
cx = 6;
if (((s.mlieu == 15) || (s.mlieu == 26)) && (cx == 4))
cx = 6;
if ((s.mlieu > 19) && (s.mlieu != 26))
cx += 10;
if ((s.mlieu == 20) && (cx == 13))
cx = 16;
if (s.mlieu == 21) {
if (cx == 12)
cx = 16;
else if (cx > 13)
cx = 15;
}
if ((s.mlieu == 22) && (cx > 14))
cx = 15;
if ((s.mlieu == 24) && (cx != 17))
if (cx > 13)
cx = 15;
if (cx == 1)
s.mlieu = 11;
else if (cx == 2)
s.mlieu = 12;
else if (cx == 3)
s.mlieu = 14;
else if (cx == 4)
s.mlieu = 15;
else if (cx == 5)
cx = 12;
if (cx == 6)
cx = 11;
if (cx == 11)
t1sama();
else if (cx == 12)
t1deva();
else if (cx == 13)
s.mlieu = 20;
else if (cx == 14)
s.mlieu = 24;
else if (cx == 15)
t1neig();
else if (cx == 16)
t1derr();
else if (cx == 17) {
if ((s.ipuit != 120) && (s.ipuit != 140))
crep = 997;
else if (s.ipuit == 120)
crep = 181;
else if (s.conf > 80) {
crep = 1505;
tperd();
} else {
s.mlieu = 23;
affrep();
}
}
if ((cx < 5) || (cx == 13) || (cx == 14))
affrep();
debloc(s.mlieu);
L2:
tmlieu(s.mlieu);
}
/**
* Engine function - Take
* @remarks Originally called 'tprendre'
*/
void fctTake() {
int cx;
if (caff > 99) {
cx = caff;
avpoing(cx);
if (crep != 139) {
if (ipers > 0)
s.conf += 3;
if (obpart) {
if (s.mlieu == 2)
s.iloic = 0;
if (s.mlieu == 13) {
if (s.iboul == caff)
s.iboul = 0;
if (s.ibag == caff)
s.ibag = 0;
}
if (s.mlieu == 14)
s.icave = 0;
if (s.mlieu == 16)
s.icryp = 0;
if (s.mlieu == 17)
s.ivier = 0;
if (s.mlieu == 24)
s.ipuit = 0;
mfouen();
obpart = false;
affrep();
} else {
tabdon[acha + ((mchai - 1) * 10) + cs - 1] = 0;
tsuiv();
++dobj;
if (dobj > 6) {
s.conf += 2;
dobj = 0;
}
}
}
return;
}
if (!syn)
ecr3(g_vm->getEngineString(S_TAKE));
tfleche();
if ((anyone) || (iesc))
return;
if (caff == 3) {
tcoord(2);
if (num == 1) {
crep = 152;
return;
}
}
tcoord(5);
if ((num == 0) || ((num == 1) && (s.mlieu == 16))) {
tcoord(8);
if (num != 0) {
if (ipers > 0)
s.conf += 3;
crep = 997;
if ((s.mlieu == 2) && (s.iloic != 0))
avpoing(s.iloic);
if ((s.mlieu == 13) && (num == 1) && (s.iboul != 0)) {
avpoing(s.iboul);
if ((crep != 997) && (crep != 139))
aniof(2, 7);
}
if ((s.mlieu == 13) && (num == 2) && (s.ibag != 0)) {
avpoing(s.ibag);
if ((crep != 997) && (crep != 139))
aniof(2, 6);
}
if ((s.mlieu == 14) && (s.icave != 0)) {
avpoing(s.icave);
if ((crep != 997) && (crep != 139))
aniof(2, 2);
}
if ((s.mlieu == 16) && (s.icryp != 0))
avpoing(s.icryp);
if ((s.mlieu == 17) && (s.ivier != 0)) {
avpoing(s.ivier);
if ((crep != 997) && (crep != 139)) {
crep = 182;
aniof(2, 1);
}
}
if ((s.mlieu == 24) && (s.ipuit != 0)) {
avpoing(s.ipuit);
if ((crep != 997) && (crep != 139))
aniof(2, 1);
}
if ((crep != 997) && (crep != 182) && (crep != 139))
crep = 999;
}
} else {
if ( ((s.mlieu == 0) && (num == 3)) || ((s.mlieu == 1) && (num == 4))
|| ((s.mlieu == 2) && (num == 1)) || ((s.mlieu == 4) && (num == 3))
|| ((s.mlieu == 5) && (num == 6)) || ((s.mlieu == 6) && (num == 2))
|| ((s.mlieu == 7) && (num == 6)) || ((s.mlieu == 8) && (num == 4))
|| ((s.mlieu == 9) && (num == 4)) || ((s.mlieu == 10) && (num > 2))
|| ((s.mlieu == 11) && (num == 7)) || ((s.mlieu == 12) && (num == 6))
|| ((s.mlieu == 13) && (num > 4)) || ((s.mlieu > 13) && (s.mlieu != 23)) )
crep = 997;
else if (s.mlieu == 23) {
crep = 1504;
tperd();
} else
crep = 120;
}
}
/**
* Engine function - Inventory / Take
* @remarks Originally called 'tsprendre'
*/
void fctInventoryTake() {
int cx, cy, cz;
cx = 0;
do {
++cx;
} while (g_vm->_menu._inventoryMenu[cx] != msg[4]);
cz = 0;
cy = 0;
do {
++cy;
if (ord(s.sjer[cy]) != 0)
++cz;
} while (cz != cx);
cz = ord(s.sjer[cy]);
s.sjer[cy] = chr(0);
modinv();
avpoing(cz);
crep = 998;
clsf2();
}
/**
* Engine function - Lift
* @remarks Originally called 'tsoulever'
*/
void fctLift() {
int cx;
if (!syn)
ecr3(g_vm->getEngineString(S_LIFT));
tfleche();
if ((anyone) || (iesc))
return;
tcoord(3);
if (num == 0) {
tcoord(8);
if (num != 0) {
if (ipers > 0)
++s.conf;
crep = 997;
if ((s.mlieu == 2) && (s.iloic != 0))
treg(s.iloic);
}
return;
}
if (ipers > 0)
++s.conf;
cx = s.mlieu;
if (s.mlieu == 16)
cx = 14;
else if (s.mlieu == 19)
cx = 15;
crep = tabdon[asoul + (cx << 3) + (num - 1)];
if (crep == 255)
crep = 997;
}
/**
* Engine function - Read
* @remarks Originally called 'tlire'
*/
void fctRead() {
if (caff > 99)
st4(caff);
else {
if (!syn)
ecr3(g_vm->getEngineString(S_READ));
tfleche();
if (!(anyone) && !(iesc)) {
tcoord(4);
if (num != 0)
crep = 107;
}
}
}
/**
* Engine function - Self / Read
* @remarks Originally called 'tslire'
*/
void fctSelfRead() {
if (s.derobj == 0)
crep = 186;
else
st4(s.derobj);
}
/**
* Engine function - Look
* @remarks Originally called 'tregarder'
*/
void fctLook() {
int cx;
if (caff > 99) {
crep = 103;
return;
}
if (!syn)
ecr3(g_vm->getEngineString(S_LOOK));
tfleche();
if ((anyone) || (iesc))
return;
tcoord(5);
if (num == 0) {
tcoord(8);
crep = 131;
if (num != 0) {
if (s.mlieu == 13) {
if (num == 1) {
crep = 164;
if (s.ibag != 0)
treg(s.ibag);
else if (s.iboul != 0)
treg(s.iboul);
} else {
crep = 193;
if (s.ibag != 0)
treg(s.ibag);
}
}
if (s.mlieu == 14) {
crep = 164;
if (s.icave != 0)
treg(s.icave);
}
if (s.mlieu == 17) {
crep = 174;
if (s.ivier != 0)
treg(s.ivier);
}
if (s.mlieu == 24) {
crep = 131;
if (s.ipuit != 0)
treg(s.ipuit);
}
}
return;
}
cx = s.mlieu;
if (s.mlieu == 20)
cx = 17;
if ((s.mlieu > 21) && (s.mlieu < 25))
cx -= 4;
if (s.mlieu == 26)
cx = 21;
crep = tabdon[arega + (cx * 7) + num - 1];
if ((s.mlieu == 13) && (num == 8))
crep = 126;
if (s.mlieu == 19)
crep = 103;
if (crep == 255)
crep = 131;
if ((s.mlieu == 1) && (num == 1))
treg(144);
if ((s.mlieu == 5) && (num == 3))
treg(147);
if ((s.mlieu == 8) && (num == 3))
treg(149);
if ((s.mlieu == 9) && (num == 2))
treg(30);
if ((s.mlieu == 10) && (num == 3))
treg(31);
}
/**
* Engine function - Self / Look
* @remarks Originally called 'tsregarder'
*/
void fctSelftLook() {
if (s.derobj != 0)
treg(s.derobj);
else
crep = 186;
}
/**
* Engine function - Search
* @remarks Originally called 'tfouiller'
*/
void fctSearch() {
const byte r[14] = {123, 104, 123, 131, 131, 123, 104, 131, 123, 123, 106, 123, 123, 107};
int cx;
if (caff > 99) {
st7(caff);
return;
}
if (!syn)
ecr3(g_vm->getEngineString(S_SEARCH));
tfleche();
if (anyone || iesc)
return;
if (s.mlieu == 23) {
crep = 1504;
tperd();
return;
}
tcoord(6);
if (num == 0) {
tcoord(7);
if (num != 0) {
cx = 0;
do {
++cx;
} while ((cx <= 6) && (num != ord(touv[cx])));
if (num != ord(touv[cx]))
crep = 187;
else {
if (ipers > 0)
s.conf += 3;
rechai(mchai);
if (mchai != 0) {
cs = 0;
is = 0;
fouil = true;
mfoudi();
tsuiv();
} else
crep = 997;
}
} else {
tcoord(8);
crep = 997;
if (num != 0) {
if (ipers > 0)
s.conf += 3;
if ((s.mlieu != 24) && (s.mlieu != 17) && (s.mlieu != 13)) {
if (s.mlieu == 2) {
crep = 123;
if (s.iloic != 0)
treg(s.iloic);
}
if (s.mlieu == 16) {
crep = 123;
if (s.icryp != 0)
treg(s.icryp);
}
}
}
}
} else {
if (ipers > 0)
s.conf += 3;
crep = 997;
if (s.mlieu < 14)
crep = r[s.mlieu];
if ((s.mlieu == 3) && (num == 2))
crep = 162;
if (s.mlieu == 12) {
if ((num == 3) || (num == 4))
crep = 162;
else if (num == 5)
crep = 159;
}
if (s.mlieu == 19)
crep = 104;
else if (s.mlieu == 16)
crep = 155;
}
}
/**
* Engine function - Self / Search
* @remarks Originally called 'tsfouiller'
*/
void fctSelfSearch() {
if (s.derobj != 0)
st7(s.derobj);
else
crep = 186;
}
/**
* Engine function - Open
* @remarks Originally called 'touvrir'
*/
void fctOpen() {
int cx, haz;
if (!syn)
ecr3(g_vm->getEngineString(S_OPEN));
if (caff == 26) {
if (ment != 0) {
msg[4] = OPCODE_ENTER;
syn = true;
} else
crep = 997;
return;
}
if (caff == 15) {
aldepl();
return;
}
tfleche();
if ((anyone) || (iesc))
return;
tcoord(7);
if (num != 0) {
if (ipers > 0)
s.conf += 2;
++iouv;
cx = 0;
do {
++cx;
} while (!((cx > 6) || (ord(touv[cx]) == 0) || (ord(touv[cx]) == num)));
if (ord(touv[cx]) != num) {
if (!( ((num == 3) && ((s.mlieu == 0) || (s.mlieu == 9) || (s.mlieu == 5) || (s.mlieu == 7)))
|| ((num == 4) && ((s.mlieu == 1) || (s.mlieu == 2) || (s.mlieu == 6)))
|| ((s.mlieu == 4) && (num == 5))
|| ((num == 6) && ((s.mlieu == 7) || (s.mlieu == 10) || (s.mlieu == 8) || (s.mlieu == 13)))
|| ((s.mlieu == 8) && (num == 2))
|| ((s.mlieu == 12) && (num == 7))) ) {
if ( ((s.mlieu > 10) && (s.mlieu < 14))
|| ((s.mlieu > 6) && (s.mlieu < 10))
|| (s.mlieu == 0) || (s.mlieu == 2) || (s.mlieu == 5)) {
haz = hazard(1, 4);
if (haz == 3)
parole(7, 9, 1);
}
touv[cx] = chr(num);
aniof(1, num);
}
cx = s.mlieu;
if (s.mlieu == 16)
cx = 14;
crep = tabdon[aouvr + (cx * 7) + num - 1];
if (crep == 254)
crep = 999;
} else
crep = 18;
}
}
/**
* Engine function - Place
* @remarks Originally called 'tmettre'
*/
void fctPlace() {
bool enterPassageFl;
Common::String str_;
int i;
if (s.derobj == 0) {
crep = 186;
return;
}
if (!syn)
ecr3(g_vm->getEngineString(S_PUT));
tfleche();
if (iesc)
crep = 998;
if ((anyone) || (iesc))
return;
tcoord(8);
if (num != 0) {
crep = 999;
if (caff == 13) {
if (num == 1) {
if (s.iboul != 0)
crep = 188;
else {
s.iboul = s.derobj;
if (s.derobj == 141)
aniof(1, 7);
}
} else if (s.ibag != 0)
crep = 188;
else {
s.ibag = s.derobj;
if (s.derobj == 159)
aniof(1, 6);
}
}
if (caff == 14)
if (s.icave != 0)
crep = 188;
else {
s.icave = s.derobj;
if (s.derobj == 151) {
// Open hidden passage
aniof(1, 2);
aniof(1, 1);
repon(2, 165);
maivid();
parole(6, -9, 1);
// Do you want to enter the hidden passage?
int answer = Alert::show(g_vm->getEngineString(S_YES_NO), 1);
if (answer== 1) {
Common::String alertTxt = deline(582);
i = Alert::show(alertTxt, 1);
tesok = false;
enterPassageFl = Ques::show();
hideMouse();
hirs();
dessine_rouleau();
clsf2();
clsf3();
showMouse();
tinke();
drawClock();
if (ipers != 0)
affper(ipers);
else
person();
g_vm->_menu.displayMenu();
if (enterPassageFl) {
s.mlieu = 17;
tmlieu(17);
} else {
tmlieu(s.mlieu);
writepal(14);
dessin(0);
aniof(1, 2);
aniof(1, 1);
alertTxt = deline(577);
i = Alert::show(alertTxt, 1);
aniof(2, 1);
crep = 166;
}
affrep();
} else {
aniof(2, 1);
crep = 166;
tesok = true;
}
return;
}
}
if (caff == 16)
if (s.icryp == 0)
s.icryp = s.derobj;
else
crep = 188;
if (caff == 17)
if (s.ivier != 0)
crep = 188;
else if (s.derobj == 143) {
s.ivier = 143;
aniof(1, 1);
} else {
crep = 1512;
tperd();
}
if (caff == 24)
if (s.ipuit != 0)
crep = 188;
else if ((s.derobj == 140) || (s.derobj == 120)) {
s.ipuit = s.derobj;
aniof(1, 1);
} else
crep = 185;
if (crep != 188)
maivid();
}
}
/**
* Engine function - Turn
* @remarks Originally called 'ttourner'
*/
void fctTurn() {
if (caff > 99) {
crep = 149;
return;
}
if (!syn)
ecr3(g_vm->getEngineString(S_TURN));
tfleche();
if ((anyone) || (iesc))
return;
tcoord(9);
if (num != 0) {
crep = 997;
if ((s.mlieu == 13) && (s.ibag == 159) && (s.iboul == 141)) {
repon(2, 167);
parole(7, 9, 1);
int answer = Alert::show(g_vm->getEngineString(S_YES_NO), 1);
if (answer == 1)
g_vm->_endGame = true;
else
crep = 168;
}
if ((s.mlieu == 17) && (s.ivier == 143)) {
repon(2, 175);
clsf3();
parole(6, -9, 1);
int answer = Alert::show(g_vm->getEngineString(S_YES_NO), 1);
if (answer == 1) {
s.mlieu = 16;
affrep();
} else
crep = 176;
}
}
}
/**
* Engine function - Hide Self
* @remarks Originally called 'tcacher'
*/
void fctSelfHide() {
if (!syn)
ecr3(g_vm->getEngineString(S_HIDE_SELF));
tfleche();
if (!(anyone) && !(iesc)) {
tcoord(10);
if (num == 0)
cache = false;
else {
cache = true;
crep = 999;
}
}
}
/**
* Engine function - Attach
* @remarks Originally called 'tattacher'
*/
void fctAttach() {
if (s.derobj == 0)
crep = 186;
else {
if (!syn)
ecr3(g_vm->getEngineString(S_TIE));
tfleche();
if (!(anyone) && !(iesc)) {
tcoord(8);
crep = 997;
if ((num != 0) && (s.mlieu == 24)) {
crep = 999;
if ((s.derobj == 120) || (s.derobj == 140)) {
s.ipuit = s.derobj;
aniof(1, 1);
} else
crep = 185;
maivid();
}
}
}
}
/**
* Engine function - Close
* @remarks Originally called 'tfermer'
*/
void fctClose() {
int cx, chai;
if (!syn)
ecr3(g_vm->getEngineString(S_CLOSE));
if (caff < 26) {
tfleche();
if (iesc)
crep = 998;
if ((anyone) || (iesc))
return;
tcoord(7);
if (num != 0) {
cx = 0;
do {
++cx;
} while ((cx <= 6) && (num != ord(touv[cx])));
if (num == ord(touv[cx])) {
aniof(2, num);
crep = 998;
touv[cx] = chr(0);
iouv = iouv - 1;
if (iouv < 0)
iouv = 0;
chai = 9999;
rechai(chai);
if (mchai == chai)
mchai = 0;
} else crep = 187;
}
}
if (caff == 26)
crep = 999;
}
/**
* Engine function - Knock
* @remarks Originally called 'tfrapper'
*/
void fctKnock() {
int l, p, haz;
if (!syn)
ecr3(g_vm->getEngineString(S_HIT));
if (s.mlieu == 15) {
l = Alert::show(g_vm->getEngineString(S_BEFORE_USE_DEP_MENU), 1);
return;
}
if (s.mlieu < 25) {
tfleche();
if (!(anyone) && !(iesc))
if ((s.mlieu < 19) && (s.mlieu != 15))
crep = 133;
else
crep = 997;
return;
}
if (s.mlieu == 26) {
haz = (hazard(0, 8)) - 4;
parole(11, haz, 1);
ecfren(p, haz, s.conf, ment);
l = ment;
if (l != 0)
if (p != -500) {
if (haz > p)
crep = 190;
else {
becfren(l);
frap();
}
} else
frap();
if (ment == 8)
crep = 190;
}
}
/**
* Engine function - Self / Put
* @remarks Originally called 'tposer'
*/
void fctSelfPut() {
int cx, chai;
if (!syn)
ecr3(g_vm->getEngineString(S_POSE));
if (s.derobj == 0)
crep = 186;
else {
if (caff > 99) {
crep = 999;
ajchai();
if (crep != 192)
maivid();
return;
}
tfleche();
if ((anyone) || (iesc))
return;
tcoord(7);
crep = 124;
if (num != 0) {
rechai(chai);
if (chai == 0)
crep = 997;
else {
cx = 0;
do {
++cx;
} while ((cx <= 6) && (num != ord(touv[cx])));
if (num != ord(touv[cx]))
crep = 187;
else {
mchai = chai;
crep = 999;
}
}
} else {
tcoord(8);
if (num != 0) {
crep = 998;
if (caff == 2)
if (s.iloic != 0)
crep = 188;
else
s.iloic = s.derobj;
if (caff == 13) {
if (num == 1) {
if (s.iboul != 0)
crep = 188;
else
s.iboul = s.derobj;
} else if (s.ibag != 0)
crep = 188;
else
s.ibag = s.derobj;
}
if (caff == 16)
if (s.icryp != 0)
crep = 188;
else
s.icryp = s.derobj;
if (caff == 24)
crep = 185;
if ((caff == 14) || (caff == 17))
crep = 124;
} else {
crep = 124;
if (caff == 24) {
tcoord(5);
if (num != 0)
crep = 185;
}
}
}
if (caff == 23)
crep = 185;
if ((crep == 999) || (crep == 185) || (crep == 998)) {
if (crep == 999)
ajchai();
if (crep != 192)
maivid();
}
}
}
/**
* Engine function - Listen
* @remarks Originally called 'tecouter'
*/
void fctListen() {
int l, p, haz, j, h, m;
if (s.mlieu != 26)
crep = 101;
else {
if (ipers != 0)
++s.conf;
ecfren(p, haz, s.conf, ment);
l = ment;
if (l != 0) {
if (p != -500) {
if (haz > p)
crep = 101;
else {
becfren(l);
calch(j, h, m);
haz = hazard(1, 100);
if ((h >= 0) && (h < 8)) {
if (haz > 30)
crep = 101;
else
crep = 178;
} else if (haz > 70)
crep = 101;
else
crep = 178;
}
} else
crep = 178;
}
}
}
/**
* Engine function - Eat
* @remarks Originally called 'tmanger'
*/
void fctEat() {
int j, h, m;
if ((s.mlieu > 15) && (s.mlieu < 26))
crep = 148;
else {
tsort();
s.mlieu = 10;
caff = 10;
debloc(s.mlieu);
tmlieu(s.mlieu);
calch(j, h, m);
if ((h == 12) || (h == 13) || (h == 19)) {
s.conf = s.conf - (s.conf / 7);
if (h == 12)
if (m == 0)
h = 4;
else
h = 3;
if ((h == 13) || (h == 19))
if (m == 0)
h = 2;
else
h = 1;
jh += h;
crep = 135;
tinke();
} else
crep = 134;
}
}
/**
* Engine function - Enter
* @remarks Originally called 'tentrer'
*/
void fctEnter() {
int x, z = 0;
if ((s.mlieu == 21) || (s.mlieu == 22)) {
t1sama();
tmlieu(s.mlieu);
} else if (s.mlieu == 15)
aldepl();
else if (ment == 0)
crep = 997;
else if ((ment == 9) && (s.derobj != 136)) {
crep = 189;
s.teauto[8] = '*';
} else {
if (! blo)
t11(ment, z);
if (z != 0) {
if ((ment == 3) || (ment == 7))
crep = 179;
else {
x = (hazard(0, 10)) - 5;
parole(7, x, 1);
aniof(1, 1);
tip(z, x);
++s.conf;
s.mlieu = 15;
msg[3] = MENU_DISCUSS;
msg[4] = g_vm->_menu._discussMenu[x];
syn = true;
if (ment == 9) {
col = true;
caff = 70;
afdes(0);
repon(2, caff);
} else
col = false;
debloc(ment);
ment = 0;
}
} else {
x = (hazard(0, 10)) - 5;
parole(7, x, 1);
aniof(1, 1);
s.mlieu = ment;
affrep();
debloc(s.mlieu);
tmlieu(s.mlieu);
ment = 0;
mpers = 0;
ipers = 0;
}
}
}
/**
* Engine function - Sleep
* @remarks Originally called 'tdormir'
*/
void fctSleep() {
int z, j, h, m;
if ((s.mlieu > 15) && (s.mlieu < 26)) {
crep = 148;
return;
}
if (s.mlieu != 0) {
tsort();
s.mlieu = 0;
affrep();
afdes(0);
debloc(s.mlieu);
tmlieu(s.mlieu);
}
clsf3();
clsf2();
ecrf2();
ecr2(g_vm->getEngineString(S_WANT_TO_WAKE_UP));
calch(j, h, m);
int answer;
do {
if (h < 8) {
s.conf = s.conf - (s.conf / 20);
z = (7 - h) * 2;
if (m == 30)
--z;
jh += z;
h = 7;
}
jh += 2;
++h;
if (h > 23)
h = 0;
tinke();
answer = Alert::show(g_vm->getEngineString(S_YES_NO), 1);
anyone = false;
} while (answer != 1);
crep = 998;
num = 0;
}
/**
* Engine function - Force
* @remarks Originally called 'tdefoncer'
*/
void fctForce() {
if (!syn)
ecr3(g_vm->getEngineString(S_SMASH));
if (caff < 25)
tfleche();
if ((! anyone) && (! iesc))
if (s.mlieu != 26)
crep = 997;
else {
crep = 143;
s.conf += 2;
}
}
/**
* Engine function - Leave
* @remarks Originally called 'tsortir'
*/
void fctLeave() {
int lx = 0;
tsort();
crep = 0;
if ((s.mlieu == 19) || (s.mlieu == 21) || (s.mlieu == 22) || (s.mlieu == 24))
crep = 997;
else {
if ((s.mlieu < 16) || (s.mlieu == 26))
lx = 10;
if ((s.mlieu == 10) || (s.mlieu == 20))
lx = 21;
if ((s.mlieu < 10) || (s.mlieu == 13))
lx = 15;
if (s.mlieu == 16) {
lx = 17;
crep = 176;
}
if (s.mlieu == 17)
t23coul(lx);
if (s.mlieu == 23)
lx = 24;
if (crep != 997)
s.mlieu = lx;
caff = lx;
if (crep == 0)
crep = lx;
debloc(lx);
tmlieu(lx);
}
}
/**
* Engine function - Wait
* @remarks Originally called 'tattendre'
*/
void fctWait() {
int quel;
mpers = 0;
clsf3();
int answer;
do {
++jh;
tinke();
if (!blo)
t11(s.mlieu, quel);
if ((ipers != 0) && (mpers == 0)) {
crep = 998;
if ((s.mlieu == 13) || (s.mlieu == 14))
cavegre();
if ((s.mlieu > 0) && (s.mlieu < 10))
anyone = true;
mpers = ipers;
if (!anyone)
tinke();
return;
}
repon(2, 102);
answer = Alert::show(g_vm->getEngineString(S_YES_NO), 1);
} while (answer != 2);
crep = 998;
if (!anyone)
tinke();
}
/**
* Engine function - Sound
* @remarks Originally called 'tsonder'
*/
void fctSound() {
if (!syn)
ecr3(g_vm->getEngineString(S_PROBE2));
if (caff < 27) {
tfleche();
if (!(anyone) && (!iesc))
crep = 145;
num = 0;
}
}
/**
* Engine function - Discuss
* @remarks Originally called 'tparler'
*/
void fctDiscuss() {
bool te[47];
int cy, cx, max, haz, suj, co, lig, icm, i, choi, x, y, c;
char tou;
Common::String lib[47];
bool f;
finfouil();
if (col)
suj = 128;
else {
cx = 0;
do {
++cx;
} while (g_vm->_menu._discussMenu[cx] != msg[4]);
caff = 69 + cx;
afdes(0);
repon(2, caff);
suj = caff + 60;
}
tkey1(false);
mennor();
hideMouse();
hirs();
premtet();
sparl(0, suj);
hirs();
for (int ix = 1; ix <= 46; ++ix)
te[ix] = false;
for (int ix = 1; ix <= 45; ++ix) {
lib[ix] = deline(ix + c_tparler);
for (i = lib[ix].size(); i <= 40; ++i)
lib[ix] = lib[ix] + ' ';
}
lib[46] = lib[45];
lib[45] = ' ';
showMouse();
do {
choi = 0;
icm = 0;
co = 0;
lig = 0;
do {
++icm;
g_vm->_screenSurface.putxy(co, lig);
if (s.teauto[icm] == '*')
if (te[icm])
writetp(lib[icm], 1);
else
writetp(lib[icm], 0);
if (icm == 23) {
lig = 0;
co = 320;
} else
lig = lig + 8;
} while (icm != 42);
g_vm->_screenSurface.putxy(320, 176);
writetp(lib[46], 0);
tou = '\0';
do {
moveMouse(f, tou);
CHECK_QUIT;
getMousePos(x, y, c);
x = x * (3 - res);
if (x > 319)
cx = 41;
else
cx = 1;
cy = ((uint)y >> 3) + 1; // 0-199 => 1-25
if ((cy > 23) || ((cx == 41) && ((cy >= 20) && (cy <= 22)))) {
if (choi != 0) {
lig = ((choi - 1) % 23) << 3;
if (choi > 23)
co = 320;
else
co = 0;
g_vm->_screenSurface.putxy(co, lig);
if (te[choi])
writetp(lib[choi], 0);
else
writetp(lib[choi], 1);
te[choi] = !te[choi];
choi = 0;
}
} else {
int ix = cy;
if (cx == 41)
ix = ix + 23;
if (ix != choi) {
if (choi != 0) {
lig = ((choi - 1) % 23) << 3;
if (choi > 23)
co = 320;
else
co = 0;
g_vm->_screenSurface.putxy(co, lig);
if (te[choi])
writetp(lib[choi], 0);
else
writetp(lib[choi], 1);
te[choi] = ! te[choi];
}
if ((s.teauto[ix] == '*') || (ix == 46)) {
lig = ((ix - 1) % 23) << 3;
if (ix > 23)
co = 320;
else
co = 0;
g_vm->_screenSurface.putxy(co, lig);
if (te[ix])
writetp(lib[ix], 0);
else
writetp(lib[ix], 1);
te[ix] = ! te[ix];
choi = ix;
} else
choi = 0;
}
}
} while (!((tou == '\15') || (((c != 0) || g_vm->getMouseClick()) && (choi != 0))));
g_vm->setMouseClick(false);
if (choi != 46) {
int ix = choi - 1;
if (col) {
col = false;
s.mlieu = 15;
if (iouv > 0)
max = 8;
else
max = 4;
haz = hazard(1, max);
if (haz == 2)
suj = 129;
else {
suj = 138;
s.conf = s.conf + (3 * (s.conf / 10));
}
} else if (nbrep[caff - 69] < nbrepm[caff - 69]) {
suj = tabdon[arep + (ix << 3) + (caff - 70)];
s.conf = s.conf + tabdon[arcf + ix];
nbrep[caff - 69] = nbrep[caff - 69] + 1;
} else {
s.conf = s.conf + 3;
suj = 139;
}
hideMouse();
hirs();
premtet();
sparl(0, suj);
showMouse();
if ((suj == 84) || (suj == 86)) {
s.pourc[5] = '*';
s.teauto[7] = '*';
}
if ((suj == 106) || (suj == 108) || (suj == 94)) {
for (int ix = 29; ix <= 31; ++ix)
s.teauto[ix] = '*';
s.pourc[7] = '*';
}
if (suj == 70) {
s.pourc[8] = '*';
s.teauto[32] = '*';
}
hideMouse();
hirs();
showMouse();
}
} while ((choi != 46) && (suj != 138));
if (col) {
s.conf = s.conf + (3 * (s.conf / 10));
hideMouse();
hirs();
premtet();
sparl(0, 138);
showMouse();
col = false;
s.mlieu = 15;
}
ctrm = 0;
hideMouse();
hirs();
dessine_rouleau();
showMouse();
affper(ipers);
tinke();
drawClock();
affrep();
/* chech;*/
tmlieu(s.mlieu);
clsf3();
}
/**
* Engine function - Smell
* @remarks Originally called 'tsentir'
*/
void fctSmell() {
crep = 119;
if (caff < 26) {
if (!syn)
ecr3(g_vm->getEngineString(S_SMELL));
tfleche();
if (!(anyone) && !(iesc))
if (caff == 16)
crep = 153;
} else if (caff == 123)
crep = 110;
num = 0;
}
/**
* Engine function - Scratch
* @remarks Originally called 'tgratter'
*/
void fctScratch() {
crep = 155;
if (caff < 27) {
if (!syn)
ecr3(g_vm->getEngineString(S_SCRATCH));
tfleche();
}
num = 0;
}
/**
* The game is over
* @remarks Originally called 'tmaj1'
*/
void MortevielleEngine::endGame() {
_quitGame = true;
tlu(13, 152);
maivid();
clsf1();
clsf2();
clsf3();
repon(9, 1509);
tkey1(false);
hideMouse();
caff = 70;
taffich();
hirs();
premtet();
sparl(0, 141);
showMouse();
clsf1();
repon(9, 1509);
repon(2, 142);
tkey1(false);
caff = 32;
afdes(0);
repon(6, 34);
repon(2, 35);
musique(0);
tkey1(false);
messint(2036);
tkey1(false);
inzon();
}
/**
* You lost!
* @remarks Originally called 'tencore'
*/
void MortevielleEngine::loseGame() {
int answer;
clsf2();
musique(0);
tkey1(false);
maivid();
inzon();
dprog();
vh = 10;
vm = 0;
vj = 0;
_minute = 0;
_hour = 10;
_day = 0;
repon(2, 180);
answer = Alert::show(g_vm->getEngineString(S_YES_NO), 1);
_quitGame = (answer != 1);
}
} // End of namespace Mortevielle
Reference in New Issue View Git Blame Copy Permalink