mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-24 10:45:46 +00:00
404 lines
7.5 KiB
C++
404 lines
7.5 KiB
C++
/* ScummVM - Scumm Interpreter
|
|
* Copyright (C) 2001 Ludvig Strigeus
|
|
* Copyright (C) 2001-2006 The ScummVM project
|
|
*
|
|
* 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.
|
|
*
|
|
* $URL$
|
|
* $Id$
|
|
*
|
|
*/
|
|
|
|
#include "common/stdafx.h"
|
|
|
|
#include "agos/agos.h"
|
|
#include "agos/intern.h"
|
|
|
|
using Common::File;
|
|
|
|
namespace AGOS {
|
|
|
|
uint16 AGOSEngine::getBackExit(int n) {
|
|
switch (n) {
|
|
case 0:return 2;
|
|
case 1:return 3;
|
|
case 2:return 0;
|
|
case 3:return 1;
|
|
case 4:return 5;
|
|
case 5:return 4;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
uint16 AGOSEngine::getDoorState(Item *item, uint16 d) {
|
|
uint16 mask = 3;
|
|
uint16 n;
|
|
|
|
SubRoom *subRoom = (SubRoom *)findChildOfType(item, 1);
|
|
if (subRoom == NULL)
|
|
return 0;
|
|
|
|
d <<= 1;
|
|
mask <<= d;
|
|
n = subRoom->roomExitStates & mask;
|
|
n >>= d;
|
|
|
|
return n;
|
|
}
|
|
|
|
uint16 AGOSEngine::getExitOf(Item *item, uint16 d) {
|
|
SubRoom *subRoom;
|
|
uint16 x;
|
|
uint16 y = 0;
|
|
|
|
subRoom = (SubRoom *)findChildOfType(item, 1);
|
|
if (subRoom == NULL)
|
|
return 0;
|
|
x = d;
|
|
while (x > y) {
|
|
if (getDoorState(item, y) == 0)
|
|
d--;
|
|
y++;
|
|
}
|
|
return subRoom->roomExit[d];
|
|
}
|
|
|
|
void AGOSEngine::changeDoorState(SubRoom *r, uint16 d, uint16 n) {
|
|
uint16 mask=3;
|
|
d <<= 1;
|
|
mask <<= d;
|
|
n <<= d;
|
|
r->roomExitStates &= ~mask;
|
|
r->roomExitStates|= n;
|
|
}
|
|
|
|
void AGOSEngine::setDoorState(Item *i, uint16 d, uint16 n) {
|
|
Item *j;
|
|
SubRoom *r, *r1;
|
|
uint16 d1;
|
|
uint16 y = 0;
|
|
|
|
r = (SubRoom *)findChildOfType(i, 1);
|
|
if (r == NULL)
|
|
return;
|
|
d1 = d;
|
|
while (d > y) {
|
|
if (getDoorState(i, y) == 0)
|
|
d1--;
|
|
y++;
|
|
}
|
|
changeDoorState(r, d, n);
|
|
|
|
j = derefItem(r->roomExit[d1]);
|
|
if (j == NULL)
|
|
return;
|
|
r1 = (SubRoom *)findChildOfType(j, 1);
|
|
if (r1 == NULL)
|
|
return;
|
|
d = getBackExit(d);
|
|
d1 = d;
|
|
y = 0;
|
|
while (d > y) {
|
|
if (getDoorState(j, y) == 0)
|
|
d1--;
|
|
y++;
|
|
}
|
|
/* Check are a complete exit pair */
|
|
if (derefItem(r1->roomExit[d1]) != i)
|
|
return;
|
|
/* Change state of exit coming back */
|
|
changeDoorState(r1, d, n);
|
|
}
|
|
|
|
// Elvira 1 specific
|
|
Item *AGOSEngine::getDoorOf(Item *i, uint16 d) {
|
|
SubGenExit *g;
|
|
Item *x;
|
|
|
|
g = (SubGenExit *)findChildOfType(i, 4);
|
|
if (g == NULL)
|
|
return 0;
|
|
|
|
x = derefItem(g->dest[d]);
|
|
if (x == NULL)
|
|
return 0;
|
|
if (isRoom(x))
|
|
return 0;
|
|
return x;
|
|
}
|
|
|
|
Item *AGOSEngine::getExitOf_e1(Item *item, uint16 d) {
|
|
SubGenExit *g;
|
|
Item *x;
|
|
|
|
g = (SubGenExit *)findChildOfType(item, 4);
|
|
if (g == NULL)
|
|
return 0;
|
|
|
|
x = derefItem(g->dest[d]);
|
|
if (x == NULL)
|
|
return 0;
|
|
if (isRoom(x))
|
|
return x;
|
|
if (x->state != 0)
|
|
return 0;
|
|
return derefItem(x->parent);
|
|
}
|
|
|
|
void AGOSEngine::moveDirn_e1(Item *i, uint x) {
|
|
Item *d, *p;
|
|
|
|
p = derefItem(i->parent);
|
|
if (p == 0)
|
|
return;
|
|
|
|
|
|
d = getExitOf_e1(p, x);
|
|
if (d) {
|
|
if (canPlace(i, d))
|
|
return;
|
|
|
|
setItemParent(i, d);
|
|
return;
|
|
}
|
|
|
|
d = getDoorOf(p, x);
|
|
if (d) {
|
|
const byte *name = getStringPtrByID(d->itemName);
|
|
if (d->state == 1)
|
|
showMessageFormat("%s is closed.\n", name);
|
|
else
|
|
showMessageFormat("%s is locked.\n", name);
|
|
return;
|
|
}
|
|
|
|
showMessageFormat("You can't go that way.\n");
|
|
}
|
|
|
|
// Elvira 2 specific
|
|
int AGOSEngine::changeExitStates(SubSuperRoom *sr, int n, int d, uint16 s) {
|
|
int b, bd;
|
|
uint16 mask = 3;
|
|
uint16 bs = s;
|
|
|
|
switch (d) {
|
|
case 0:
|
|
b =- (sr->roomX); bd = 2;
|
|
if (((n % (sr->roomX * sr->roomY)) / sr->roomX) == 0)
|
|
return(0);
|
|
else
|
|
break;
|
|
case 1:
|
|
b = 1; bd = 3;
|
|
if (((n % (sr->roomX * sr->roomY)) % sr->roomX) == 0)
|
|
return 0;
|
|
else
|
|
break;
|
|
case 2:
|
|
b = sr->roomX; bd = 0;
|
|
if (((n % (sr->roomX * sr->roomY)) / sr->roomX) == (sr->roomY - 1))
|
|
return 0;
|
|
else
|
|
break;
|
|
case 3:
|
|
b =- 1; bd = 1;
|
|
if (((n % (sr->roomX * sr->roomY)) % sr->roomX) == 1)
|
|
return 0;
|
|
else
|
|
break;
|
|
case 4:
|
|
b =- (sr->roomX * sr->roomY); bd = 5;
|
|
if (n < (sr->roomX * sr->roomY))
|
|
return 0;
|
|
else
|
|
break;
|
|
case 5:
|
|
b = sr->roomX * sr->roomY; bd = 4;
|
|
if (n > (sr->roomX * sr->roomY * (sr->roomZ - 1)))
|
|
return 0;
|
|
else
|
|
break;
|
|
default:
|
|
return 0;
|
|
}
|
|
n--;
|
|
d <<= 1;
|
|
mask <<= d;
|
|
s <<= d;
|
|
sr->roomExitStates[n] &= ~mask;
|
|
sr->roomExitStates[n] |= s;
|
|
mask = 3;
|
|
n += b;
|
|
bd <<= 1;
|
|
mask <<= bd;
|
|
bs <<= bd;
|
|
sr->roomExitStates[n] &= ~mask;
|
|
sr->roomExitStates[n] |= bs;
|
|
return 1;
|
|
}
|
|
|
|
uint16 AGOSEngine::getExitState(Item *i, uint16 x, uint16 d) {
|
|
SubSuperRoom *sr;
|
|
uint16 mask = 3;
|
|
uint16 n;
|
|
|
|
sr = (SubSuperRoom *)findChildOfType(i, 4);
|
|
if (sr == NULL)
|
|
return 0;
|
|
|
|
d <<= 1;
|
|
mask <<= d;
|
|
n = sr->roomExitStates[x - 1] & mask;
|
|
n >>= d;
|
|
return n;
|
|
}
|
|
|
|
void AGOSEngine::setExitState(Item *i, uint16 n, uint16 d, uint16 s) {
|
|
SubSuperRoom *sr = (SubSuperRoom *)findChildOfType(i, 4);
|
|
if (sr)
|
|
changeExitStates(sr, n, d, s);
|
|
}
|
|
|
|
void AGOSEngine::setSRExit(Item *i, int n, int d, uint16 s) {
|
|
uint16 mask = 3;
|
|
|
|
SubSuperRoom *sr = (SubSuperRoom *)findChildOfType(i, 4);
|
|
if (sr) {
|
|
n--;
|
|
d <<= 1;
|
|
mask <<= d;
|
|
s <<= d;
|
|
sr->roomExitStates[n] &= ~mask;
|
|
sr->roomExitStates[n] |= s;
|
|
}
|
|
}
|
|
|
|
void AGOSEngine::moveDirn_e2(Item *i, uint x) {
|
|
SubSuperRoom *sr;
|
|
Item *d, *p;
|
|
uint16 a, n;
|
|
|
|
if (i->parent == 0)
|
|
return;
|
|
|
|
p = derefItem(i->parent);
|
|
if (findChildOfType(p, 4)) {
|
|
n = getExitState(p, _superRoomNumber,x);
|
|
if (n == 1) {
|
|
sr = (SubSuperRoom *)findChildOfType(p, 4);
|
|
switch (x) {
|
|
case 0: a = -(sr->roomX); break;
|
|
case 1: a = 1; break;
|
|
case 2: a = sr->roomX; break;
|
|
case 3: a = 0xFFFF; break;
|
|
case 4: a = -(sr->roomX * sr->roomY); break;
|
|
case 5: a = (sr->roomX * sr->roomY); break;
|
|
default: return;
|
|
}
|
|
_superRoomNumber += a;
|
|
}
|
|
return;
|
|
}
|
|
|
|
n = getExitOf(derefItem(i->parent), x);
|
|
if (derefItem(n) == NULL) {
|
|
loadRoomItems(n);
|
|
n=getExitOf(derefItem(i->parent), x);
|
|
}
|
|
|
|
d = derefItem(n);
|
|
if (d) {
|
|
n = getDoorState(derefItem(i->parent), x);
|
|
if (n == 1) {
|
|
if (!canPlace(i, d))
|
|
setItemParent(i, d);
|
|
}
|
|
}
|
|
}
|
|
|
|
// Waxworks specific
|
|
void AGOSEngine::moveDirn_ww(Item *i, uint x) {
|
|
Item *d;
|
|
uint16 n;
|
|
|
|
if (i->parent == 0)
|
|
return;
|
|
|
|
n = getExitOf(derefItem(i->parent), x);
|
|
if (derefItem(n) == NULL) {
|
|
loadRoomItems(n);
|
|
n = getExitOf(derefItem(i->parent), x);
|
|
}
|
|
|
|
d = derefItem(n);
|
|
if (d) {
|
|
n = getDoorState(derefItem(i->parent), x);
|
|
if (n == 1) {
|
|
if (!canPlace(i, d))
|
|
setItemParent(i, d);
|
|
}
|
|
}
|
|
}
|
|
|
|
bool AGOSEngine::loadRoomItems(uint item) {
|
|
byte *p;
|
|
uint i, min_num, max_num;
|
|
char filename[30];
|
|
File in;
|
|
|
|
p = _roomsList;
|
|
if (p == NULL)
|
|
return 0;
|
|
|
|
item -= 2;
|
|
|
|
while (*p) {
|
|
for (i = 0; *p; p++, i++)
|
|
filename[i] = *p;
|
|
filename[i] = 0;
|
|
p++;
|
|
|
|
for (;;) {
|
|
min_num = READ_BE_UINT16(p); p += 2;
|
|
if (min_num == 0)
|
|
break;
|
|
|
|
max_num = READ_BE_UINT16(p); p += 2;
|
|
|
|
if (item >= min_num && item <= max_num) {
|
|
|
|
in.open(filename);
|
|
if (in.isOpen() == false) {
|
|
error("loadRoomItems: Can't load rooms file '%s'", filename);
|
|
}
|
|
|
|
while ((i = in.readUint16BE()) != 0) {
|
|
_itemArrayPtr[i + 2] = (Item *)allocateItem(sizeof(Item));
|
|
readItemFromGamePc(&in, _itemArrayPtr[i + 2]);
|
|
}
|
|
in.close();
|
|
|
|
return 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
debug(1,"loadRoomItems: didn't find %d", item);
|
|
return 0;
|
|
}
|
|
|
|
} // End of namespace AGOS
|