mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-03 15:41:41 +00:00
1097 lines
22 KiB
C++
1097 lines
22 KiB
C++
/* ScummVM - Scumm Interpreter
|
|
* Copyright (C) 2001 Ludvig Strigeus
|
|
* Copyright (C) 2001-2005 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
*
|
|
* $Header$
|
|
*
|
|
*/
|
|
|
|
|
|
#include "stdafx.h"
|
|
|
|
#include "common/config-manager.h"
|
|
|
|
#include "scumm/actor.h"
|
|
#include "scumm/charset.h"
|
|
#include "scumm/intern.h"
|
|
#include "scumm/object.h"
|
|
#include "scumm/resource.h"
|
|
#include "scumm/resource_v7he.h"
|
|
#include "scumm/scumm.h"
|
|
#include "scumm/sound.h"
|
|
#include "scumm/verbs.h"
|
|
|
|
namespace Scumm {
|
|
|
|
#define OPCODE(x) _OPCODE(ScummEngine_v70he, x)
|
|
|
|
void ScummEngine_v70he::setupOpcodes() {
|
|
static const OpcodeEntryv70he opcodes[256] = {
|
|
/* 00 */
|
|
OPCODE(o6_pushByte),
|
|
OPCODE(o6_pushWord),
|
|
OPCODE(o6_pushByteVar),
|
|
OPCODE(o6_pushWordVar),
|
|
/* 04 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_byteArrayRead),
|
|
OPCODE(o6_wordArrayRead),
|
|
/* 08 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_byteArrayIndexedRead),
|
|
OPCODE(o6_wordArrayIndexedRead),
|
|
/* 0C */
|
|
OPCODE(o6_dup),
|
|
OPCODE(o6_not),
|
|
OPCODE(o6_eq),
|
|
OPCODE(o6_neq),
|
|
/* 10 */
|
|
OPCODE(o6_gt),
|
|
OPCODE(o6_lt),
|
|
OPCODE(o6_le),
|
|
OPCODE(o6_ge),
|
|
/* 14 */
|
|
OPCODE(o6_add),
|
|
OPCODE(o6_sub),
|
|
OPCODE(o6_mul),
|
|
OPCODE(o6_div),
|
|
/* 18 */
|
|
OPCODE(o6_land),
|
|
OPCODE(o6_lor),
|
|
OPCODE(o6_pop),
|
|
OPCODE(o6_invalid),
|
|
/* 1C */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 20 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 24 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 28 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 2C */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 30 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 34 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 38 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 3C */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* 40 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_writeByteVar),
|
|
OPCODE(o6_writeWordVar),
|
|
/* 44 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_byteArrayWrite),
|
|
OPCODE(o6_wordArrayWrite),
|
|
/* 48 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_byteArrayIndexedWrite),
|
|
OPCODE(o6_wordArrayIndexedWrite),
|
|
/* 4C */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_byteVarInc),
|
|
OPCODE(o6_wordVarInc),
|
|
/* 50 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_byteArrayInc),
|
|
OPCODE(o6_wordArrayInc),
|
|
/* 54 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_byteVarDec),
|
|
OPCODE(o6_wordVarDec),
|
|
/* 58 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_byteArrayDec),
|
|
OPCODE(o6_wordArrayDec),
|
|
/* 5C */
|
|
OPCODE(o6_if),
|
|
OPCODE(o6_ifNot),
|
|
OPCODE(o6_startScript),
|
|
OPCODE(o6_startScriptQuick),
|
|
/* 60 */
|
|
OPCODE(o6_startObject),
|
|
OPCODE(o6_drawObject),
|
|
OPCODE(o6_drawObjectAt),
|
|
OPCODE(o6_invalid),
|
|
/* 64 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_stopObjectCode),
|
|
OPCODE(o6_stopObjectCode),
|
|
OPCODE(o6_endCutscene),
|
|
/* 68 */
|
|
OPCODE(o6_cutscene),
|
|
OPCODE(o6_stopMusic),
|
|
OPCODE(o6_freezeUnfreeze),
|
|
OPCODE(o6_cursorCommand),
|
|
/* 6C */
|
|
OPCODE(o6_breakHere),
|
|
OPCODE(o6_ifClassOfIs),
|
|
OPCODE(o6_setClass),
|
|
OPCODE(o6_getState),
|
|
/* 70 */
|
|
OPCODE(o60_setState),
|
|
OPCODE(o6_setOwner),
|
|
OPCODE(o6_getOwner),
|
|
OPCODE(o6_jump),
|
|
/* 74 */
|
|
OPCODE(o70_startSound),
|
|
OPCODE(o6_stopSound),
|
|
OPCODE(o6_startMusic),
|
|
OPCODE(o6_stopObjectScript),
|
|
/* 78 */
|
|
OPCODE(o6_panCameraTo),
|
|
OPCODE(o6_actorFollowCamera),
|
|
OPCODE(o6_setCameraAt),
|
|
OPCODE(o6_loadRoom),
|
|
/* 7C */
|
|
OPCODE(o6_stopScript),
|
|
OPCODE(o6_walkActorToObj),
|
|
OPCODE(o6_walkActorTo),
|
|
OPCODE(o6_putActorAtXY),
|
|
/* 80 */
|
|
OPCODE(o6_putActorAtObject),
|
|
OPCODE(o6_faceActor),
|
|
OPCODE(o6_animateActor),
|
|
OPCODE(o6_doSentence),
|
|
/* 84 */
|
|
OPCODE(o70_pickupObject),
|
|
OPCODE(o6_loadRoomWithEgo),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_getRandomNumber),
|
|
/* 88 */
|
|
OPCODE(o6_getRandomNumberRange),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_getActorMoving),
|
|
OPCODE(o6_isScriptRunning),
|
|
/* 8C */
|
|
OPCODE(o70_getActorRoom),
|
|
OPCODE(o6_getObjectX),
|
|
OPCODE(o6_getObjectY),
|
|
OPCODE(o6_getObjectOldDir),
|
|
/* 90 */
|
|
OPCODE(o6_getActorWalkBox),
|
|
OPCODE(o6_getActorCostume),
|
|
OPCODE(o6_findInventory),
|
|
OPCODE(o6_getInventoryCount),
|
|
/* 94 */
|
|
OPCODE(o6_getVerbFromXY),
|
|
OPCODE(o6_beginOverride),
|
|
OPCODE(o6_endOverride),
|
|
OPCODE(o6_setObjectName),
|
|
/* 98 */
|
|
OPCODE(o6_isSoundRunning),
|
|
OPCODE(o6_setBoxFlags),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o70_resourceRoutines),
|
|
/* 9C */
|
|
OPCODE(o60_roomOps),
|
|
OPCODE(o60_actorOps),
|
|
OPCODE(o6_verbOps),
|
|
OPCODE(o6_getActorFromXY),
|
|
/* A0 */
|
|
OPCODE(o70_findObject),
|
|
OPCODE(o6_pseudoRoom),
|
|
OPCODE(o6_getActorElevation),
|
|
OPCODE(o6_getVerbEntrypoint),
|
|
/* A4 */
|
|
OPCODE(o6_arrayOps),
|
|
OPCODE(o6_saveRestoreVerbs),
|
|
OPCODE(o6_drawBox),
|
|
OPCODE(o6_pop),
|
|
/* A8 */
|
|
OPCODE(o6_getActorWidth),
|
|
OPCODE(o60_wait),
|
|
OPCODE(o6_getActorScaleX),
|
|
OPCODE(o6_getActorAnimCounter1),
|
|
/* AC */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_isAnyOf),
|
|
OPCODE(o70_quitPauseRestart),
|
|
OPCODE(o6_isActorInBox),
|
|
/* B0 */
|
|
OPCODE(o6_delay),
|
|
OPCODE(o6_delaySeconds),
|
|
OPCODE(o6_delayMinutes),
|
|
OPCODE(o6_stopSentence),
|
|
/* B4 */
|
|
OPCODE(o6_printLine),
|
|
OPCODE(o6_printCursor),
|
|
OPCODE(o6_printDebug),
|
|
OPCODE(o6_printSystem),
|
|
/* B8 */
|
|
OPCODE(o6_printActor),
|
|
OPCODE(o6_printEgo),
|
|
OPCODE(o6_talkActor),
|
|
OPCODE(o6_talkEgo),
|
|
/* BC */
|
|
OPCODE(o6_dimArray),
|
|
OPCODE(o6_stopObjectCode),
|
|
OPCODE(o6_startObjectQuick),
|
|
OPCODE(o6_startScriptQuick2),
|
|
/* C0 */
|
|
OPCODE(o6_dim2dimArray),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* C4 */
|
|
OPCODE(o6_abs),
|
|
OPCODE(o6_distObjectObject),
|
|
OPCODE(o6_distObjectPt),
|
|
OPCODE(o6_distPtPt),
|
|
/* C8 */
|
|
OPCODE(o60_kernelGetFunctions),
|
|
OPCODE(o70_kernelSetFunctions),
|
|
OPCODE(o6_delayFrames),
|
|
OPCODE(o6_pickOneOf),
|
|
/* CC */
|
|
OPCODE(o6_pickOneOfDefault),
|
|
OPCODE(o6_stampObject),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* D0 */
|
|
OPCODE(o6_getDateTime),
|
|
OPCODE(o6_stopTalking),
|
|
OPCODE(o6_getAnimateVariable),
|
|
OPCODE(o6_invalid),
|
|
/* D4 */
|
|
OPCODE(o6_shuffle),
|
|
OPCODE(o6_jumpToScript),
|
|
OPCODE(o6_band),
|
|
OPCODE(o6_bor),
|
|
/* D8 */
|
|
OPCODE(o6_isRoomScriptRunning),
|
|
OPCODE(o60_closeFile),
|
|
OPCODE(o60_openFile),
|
|
OPCODE(o60_readFile),
|
|
/* DC */
|
|
OPCODE(o60_writeFile),
|
|
OPCODE(o6_findAllObjects),
|
|
OPCODE(o60_deleteFile),
|
|
OPCODE(o60_rename),
|
|
/* E0 */
|
|
OPCODE(o60_soundOps),
|
|
OPCODE(o6_getPixel),
|
|
OPCODE(o60_localizeArrayToScript),
|
|
OPCODE(o6_pickVarRandom),
|
|
/* E4 */
|
|
OPCODE(o6_setBoxSet),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
/* E8 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o60_seekFilePos),
|
|
OPCODE(o60_redimArray),
|
|
OPCODE(o60_readFilePos),
|
|
/* EC */
|
|
OPCODE(o70_copyString),
|
|
OPCODE(o70_getStringWidth),
|
|
OPCODE(o70_getStringLen),
|
|
OPCODE(o70_appendString),
|
|
/* F0 */
|
|
OPCODE(o70_concatString),
|
|
OPCODE(o70_compareString),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o70_readINI),
|
|
/* F4 */
|
|
OPCODE(o70_writeINI),
|
|
OPCODE(o70_getStringLenForWidth),
|
|
OPCODE(o70_getCharIndexInString),
|
|
OPCODE(o6_invalid),
|
|
/* F8 */
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o70_setFilePath),
|
|
OPCODE(o70_setWindowCaption),
|
|
OPCODE(o70_polygonOps),
|
|
/* FC */
|
|
OPCODE(o70_polygonHit),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
OPCODE(o6_invalid),
|
|
};
|
|
|
|
_opcodesv70he = opcodes;
|
|
}
|
|
|
|
void ScummEngine_v70he::executeOpcode(byte i) {
|
|
OpcodeProcv70he op = _opcodesv70he[i].proc;
|
|
(this->*op) ();
|
|
}
|
|
|
|
const char *ScummEngine_v70he::getOpcodeDesc(byte i) {
|
|
return _opcodesv70he[i].desc;
|
|
}
|
|
|
|
int ScummEngine_v70he::getStringCharWidth(byte chr) {
|
|
int charset = _string[0]._default.charset;
|
|
|
|
byte *ptr = getResourceAddress(rtCharset, charset);
|
|
if (ptr == 0)
|
|
error("getStringCharWidth::charset %d not found!", charset);
|
|
ptr += 29;
|
|
|
|
int spacing = 0;
|
|
|
|
int offs = READ_LE_UINT32(ptr + chr * 4 + 4);
|
|
if (offs) {
|
|
spacing = ptr[offs] + (signed char)ptr[offs + 2];
|
|
}
|
|
|
|
return spacing;
|
|
}
|
|
|
|
int ScummEngine_v70he::setupStringArray(int size) {
|
|
writeVar(0, 0);
|
|
defineArray(0, kStringArray, 0, size + 1);
|
|
writeArray(0, 0, 0, 0);
|
|
return readVar(0);
|
|
}
|
|
|
|
void ScummEngine_v70he::appendSubstring(int dst, int src, int srcOffs, int len) {
|
|
int dstOffs, value;
|
|
int i = 0;
|
|
|
|
if (len == -1) {
|
|
len = resStrLen(getStringAddress(src));
|
|
srcOffs = 0;
|
|
}
|
|
|
|
dstOffs = resStrLen(getStringAddress(dst));
|
|
|
|
len -= srcOffs;
|
|
len++;
|
|
|
|
while (i < len) {
|
|
writeVar(0, src);
|
|
value = readArray(0, 0, srcOffs + i);
|
|
writeVar(0, dst);
|
|
writeArray(0, 0, dstOffs + i, value);
|
|
i++;
|
|
}
|
|
|
|
writeArray(0, 0, dstOffs + i, 0);
|
|
}
|
|
|
|
int ScummEngine_v70he::findObject(int x, int y, int num, int *args) {
|
|
int i, b, result;
|
|
int cond, cls, tmp;
|
|
byte a;
|
|
const int mask = 0xF;
|
|
|
|
for (i = 1; i < _numLocalObjects; i++) {
|
|
result = 0;
|
|
if ((_objs[i].obj_nr < 1) || getClass(_objs[i].obj_nr, kObjectClassUntouchable))
|
|
continue;
|
|
|
|
// Check polygon bounds
|
|
if (_wiz.polygonDefined(_objs[i].obj_nr)) {
|
|
if (_wiz.polygonHit(_objs[i].obj_nr, x, y) != 0)
|
|
result = _objs[i].obj_nr;
|
|
else if (VAR_POLYGONS_ONLY != 0xFF && VAR(VAR_POLYGONS_ONLY))
|
|
continue;
|
|
}
|
|
|
|
if (!result) {
|
|
// Check object bounds
|
|
b = i;
|
|
do {
|
|
a = _objs[b].parentstate;
|
|
b = _objs[b].parent;
|
|
if (b == 0) {
|
|
if (_objs[i].x_pos <= x && _objs[i].width + _objs[i].x_pos > x &&
|
|
_objs[i].y_pos <= y && _objs[i].height + _objs[i].y_pos > y)
|
|
result = _objs[i].obj_nr;
|
|
break;
|
|
}
|
|
} while ((_objs[b].state & mask) == a);
|
|
}
|
|
|
|
if (result) {
|
|
if (!num)
|
|
return result;
|
|
|
|
// Check object class
|
|
cond = 1;
|
|
tmp = num;
|
|
while (--tmp >= 0) {
|
|
cls = args[tmp];
|
|
b = getClass(i, cls);
|
|
if ((cls & 0x80 && !b) || (!(cls & 0x80) && b))
|
|
cond = 0;
|
|
}
|
|
|
|
if (cond)
|
|
return result;
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_startSound() {
|
|
byte subOp = fetchScriptByte();
|
|
|
|
switch (subOp) {
|
|
case 9:
|
|
_heSndFlags |= 4;
|
|
break;
|
|
case 23:
|
|
{
|
|
int value = pop();
|
|
int var = pop();
|
|
int snd = pop();
|
|
debug(1,"o70_startSound: case 29 (snd %d, var %d, value %d)", snd, var, value);
|
|
}
|
|
break;
|
|
case 56:
|
|
_heSndFlags |= 2;
|
|
break;
|
|
case 164:
|
|
_heSndFlags |= 2;
|
|
break;
|
|
case 224:
|
|
_heSndSoundFreq = pop();
|
|
break;
|
|
|
|
case 230:
|
|
_heSndChannel = pop();
|
|
break;
|
|
|
|
case 231:
|
|
_heSndOffset = pop();
|
|
break;
|
|
|
|
case 232:
|
|
_heSndSoundId = pop();
|
|
_heSndOffset = 0;
|
|
_heSndSoundFreq = 11025;
|
|
_heSndChannel = VAR(VAR_MUSIC_CHANNEL);
|
|
break;
|
|
|
|
case 245:
|
|
_heSndFlags |= 1;
|
|
break;
|
|
|
|
case 255:
|
|
debug(1, "o70_startSound (ID %d, Offset %d, Channel %d, Flags %d)", _heSndSoundId, _heSndOffset, _heSndChannel, _heSndFlags);
|
|
_sound->addSoundToQueue(_heSndSoundId, _heSndOffset, _heSndChannel, _heSndFlags);
|
|
_heSndFlags = 0;
|
|
break;
|
|
|
|
default:
|
|
error("o70_startSound invalid case %d", subOp);
|
|
}
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_pickupObject() {
|
|
int obj, room;
|
|
|
|
room = pop();
|
|
obj = pop();
|
|
if (room == 0)
|
|
room = getObjectRoom(obj);
|
|
|
|
addObjectToInventory(obj, room);
|
|
putOwner(obj, VAR(VAR_EGO));
|
|
if (_heversion <= 70) {
|
|
putClass(obj, kObjectClassUntouchable, 1);
|
|
putState(obj, 1);
|
|
markObjectRectAsDirty(obj);
|
|
clearDrawObjectQueue();
|
|
}
|
|
runInventoryScript(obj); /* Difference */
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_getActorRoom() {
|
|
int act = pop();
|
|
|
|
if (act < _numActors) {
|
|
Actor *a = derefActor(act, "o70_getActorRoom");
|
|
push(a->_room);
|
|
} else
|
|
push(getObjectRoom(act));
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_resourceRoutines() {
|
|
int resid, op;
|
|
op = fetchScriptByte();
|
|
|
|
switch (op) {
|
|
case 100: // SO_LOAD_SCRIPT
|
|
resid = pop();
|
|
ensureResourceLoaded(rtScript, resid);
|
|
break;
|
|
case 101: // SO_LOAD_SOUND
|
|
resid = pop();
|
|
ensureResourceLoaded(rtSound, resid);
|
|
break;
|
|
case 102: // SO_LOAD_COSTUME
|
|
resid = pop();
|
|
ensureResourceLoaded(rtCostume, resid);
|
|
break;
|
|
case 103: // SO_LOAD_ROOM
|
|
resid = pop();
|
|
ensureResourceLoaded(rtRoom, resid);
|
|
break;
|
|
case 104: // SO_NUKE_SCRIPT
|
|
resid = pop();
|
|
setResourceCounter(rtScript, resid, 0x7F);
|
|
break;
|
|
case 105: // SO_NUKE_SOUND
|
|
resid = pop();
|
|
setResourceCounter(rtSound, resid, 0x7F);
|
|
break;
|
|
case 106: // SO_NUKE_COSTUME
|
|
resid = pop();
|
|
setResourceCounter(rtCostume, resid, 0x7F);
|
|
break;
|
|
case 107: // SO_NUKE_ROOM
|
|
resid = pop();
|
|
setResourceCounter(rtRoom, resid, 0x7F);
|
|
break;
|
|
case 108: // SO_LOCK_SCRIPT
|
|
resid = pop();
|
|
if (resid >= _numGlobalScripts)
|
|
break;
|
|
lock(rtScript, resid);
|
|
break;
|
|
case 109: // SO_LOCK_SOUND
|
|
resid = pop();
|
|
lock(rtSound, resid);
|
|
break;
|
|
case 110: // SO_LOCK_COSTUME
|
|
resid = pop();
|
|
lock(rtCostume, resid);
|
|
break;
|
|
case 111: // SO_LOCK_ROOM
|
|
resid = pop();
|
|
if (resid > 0x7F)
|
|
resid = _resourceMapper[resid & 0x7F];
|
|
lock(rtRoom, resid);
|
|
break;
|
|
case 112: // SO_UNLOCK_SCRIPT
|
|
resid = pop();
|
|
if (resid >= _numGlobalScripts)
|
|
break;
|
|
unlock(rtScript, resid);
|
|
break;
|
|
case 113: // SO_UNLOCK_SOUND
|
|
resid = pop();
|
|
unlock(rtSound, resid);
|
|
break;
|
|
case 114: // SO_UNLOCK_COSTUME
|
|
resid = pop();
|
|
unlock(rtCostume, resid);
|
|
break;
|
|
case 115: // SO_UNLOCK_ROOM
|
|
resid = pop();
|
|
if (resid > 0x7F)
|
|
resid = _resourceMapper[resid & 0x7F];
|
|
unlock(rtRoom, resid);
|
|
break;
|
|
case 116:
|
|
break;
|
|
case 117: // SO_LOAD_CHARSET
|
|
resid = pop();
|
|
loadCharset(resid);
|
|
break;
|
|
case 118: // SO_NUKE_CHARSET
|
|
resid = pop();
|
|
nukeCharset(resid);
|
|
break;
|
|
case 119: // SO_LOAD_OBJECT
|
|
{
|
|
int room, obj = popRoomAndObj(&room);
|
|
loadFlObject(obj, room);
|
|
break;
|
|
}
|
|
case 120: /* queue for load */
|
|
case 121:
|
|
case 122:
|
|
case 123:
|
|
case 203:
|
|
debug(5,"stub queueload (%d) resource %d", op, pop());
|
|
break;
|
|
case 159:
|
|
resid = pop();
|
|
unlock(rtImage, resid);
|
|
break;
|
|
case 192:
|
|
resid = pop();
|
|
nukeResource(rtImage, resid);
|
|
break;
|
|
case 201:
|
|
resid = pop();
|
|
ensureResourceLoaded(rtImage, resid);
|
|
break;
|
|
case 202:
|
|
resid = pop();
|
|
lock(rtImage, resid);
|
|
break;
|
|
case 233:
|
|
resid = pop();
|
|
debug(5,"stub o70_resourceRoutines lock object %d", resid);
|
|
break;
|
|
case 235:
|
|
resid = pop();
|
|
debug(5,"stub o70_resourceRoutines unlock object %d", resid);
|
|
break;
|
|
case 239:
|
|
// Used in airport
|
|
break;
|
|
default:
|
|
debug(1,"o70_resourceRoutines: default case %d", op);
|
|
}
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_findObject() {
|
|
int y = pop();
|
|
int x = pop();
|
|
int r = findObject(x, y, 0, 0);
|
|
push(r);
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_quitPauseRestart() {
|
|
byte subOp = fetchScriptByte();
|
|
int par1;
|
|
|
|
switch (subOp) {
|
|
case 22: // HE80+
|
|
clearDrawObjectQueue();
|
|
break;
|
|
case 26: // HE80+
|
|
// Clear screen
|
|
// Update palette
|
|
break;
|
|
case 158: // SO_RESTART
|
|
restart();
|
|
break;
|
|
case 160:
|
|
// FIXME: check
|
|
shutDown();
|
|
break;
|
|
case 250:
|
|
par1 = pop();
|
|
warning("stub: o70_quitPauseRestart subOpcode %d", subOp);
|
|
break;
|
|
case 253:
|
|
par1 = pop();
|
|
warning("stub: o70_quitPauseRestart subOpcode %d", subOp);
|
|
case 244: // SO_QUIT
|
|
shutDown();
|
|
break;
|
|
case 251:
|
|
case 252:
|
|
warning("stub: o70_quitPauseRestart subOpcode %d", subOp);
|
|
break;
|
|
default:
|
|
warning("o70_quitPauseRestart invalid case %d", subOp);
|
|
}
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_copyString() {
|
|
int dst, size;
|
|
int src = pop();
|
|
|
|
size = resStrLen(getStringAddress(src)) + 1;
|
|
dst = setupStringArray(size);
|
|
|
|
appendSubstring(dst, src, -1, -1);
|
|
|
|
push(dst);
|
|
debug(1,"o70_copyString");
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_getStringWidth() {
|
|
int array, pos, len;
|
|
int chr, width = 0;
|
|
|
|
len = pop();
|
|
pos = pop();
|
|
array = pop();
|
|
|
|
if (len == -1) {
|
|
pos = 0;
|
|
len = resStrLen(getStringAddress(array));
|
|
}
|
|
|
|
writeVar(0, array);
|
|
while (pos <= len) {
|
|
chr = readArray(0, 0, pos);
|
|
if (chr == 0)
|
|
break;
|
|
width += getStringCharWidth(chr);
|
|
pos++;
|
|
}
|
|
|
|
push(width);
|
|
debug(1,"o70_getStringWidth (%d)", width);
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_kernelSetFunctions() {
|
|
int args[29];
|
|
int num;
|
|
Actor *a;
|
|
|
|
num = getStackList(args, ARRAYSIZE(args));
|
|
|
|
debug(1, "o70_kernelSetFunctions: case %d (param count %d)", args[0], num);
|
|
switch (args[0]) {
|
|
case 1:
|
|
// Used to restore images when decorating cake in
|
|
// Fatty Bear's Birthday Surprise
|
|
virtScreenLoad(args[1], args[2], args[3], args[4], args[5]);
|
|
break;
|
|
case 20: // HE72+
|
|
a = derefActor(args[1], "o70_kernelSetFunctions: 20");
|
|
queueAuxBlock(a);
|
|
break;
|
|
case 21:
|
|
_skipDrawObject = 1;
|
|
break;
|
|
case 22:
|
|
_skipDrawObject = 0;
|
|
break;
|
|
case 23:
|
|
_charset->clearCharsetMask();
|
|
_fullRedraw = 1;
|
|
break;
|
|
case 24:
|
|
_skipProcessActors = 1;
|
|
_fullRedraw = 1;
|
|
break;
|
|
case 25:
|
|
_skipProcessActors = 0;
|
|
_fullRedraw = 1;
|
|
break;
|
|
case 30:
|
|
a = derefActor(args[1], "o70_kernelSetFunctions: 30");
|
|
a->_clipOverride.bottom = args[2];
|
|
break;
|
|
case 42:
|
|
// drawWizImage related
|
|
warning("o70_kernelSetFunctions: unhandled case 42");
|
|
break;
|
|
case 43:
|
|
// drawWizImage related
|
|
warning("o70_kernelSetFunctions: unhandled case 43");
|
|
break;
|
|
default:
|
|
error("o70_kernelSetFunctions: default case %d (param count %d)", args[0], num);
|
|
}
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_getStringLen() {
|
|
int id, len;
|
|
byte *addr;
|
|
|
|
id = pop();
|
|
|
|
addr = getStringAddress(id);
|
|
if (!addr)
|
|
error("o70_getStringLen: Reference to zeroed array pointer (%d)", id);
|
|
|
|
len = resStrLen(getStringAddress(id));
|
|
push(len);
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_appendString() {
|
|
int dst, size;
|
|
|
|
int len = pop();
|
|
int srcOffs = pop();
|
|
int src = pop();
|
|
|
|
size = len - srcOffs + 2;
|
|
dst = setupStringArray(size);
|
|
|
|
appendSubstring(dst, src, srcOffs, len);
|
|
|
|
push(dst);
|
|
debug(1,"o70_appendString");
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_concatString() {
|
|
int dst, size;
|
|
|
|
int src2 = pop();
|
|
int src1 = pop();
|
|
|
|
size = resStrLen(getStringAddress(src1));
|
|
size += resStrLen(getStringAddress(src2)) + 1;
|
|
dst = setupStringArray(size);
|
|
|
|
appendSubstring(dst, src1, 0, -1);
|
|
appendSubstring(dst, src2, 0, -1);
|
|
|
|
push(dst);
|
|
debug(1,"o70_concatString");
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_compareString() {
|
|
int result;
|
|
|
|
int array1 = pop();
|
|
int array2 = pop();
|
|
|
|
byte *string1 = getStringAddress(array1);
|
|
if (!string1)
|
|
error("o70_compareString: Reference to zeroed array pointer (%d)", array1);
|
|
|
|
byte *string2 = getStringAddress(array2);
|
|
if (!string2)
|
|
error("o70_compareString: Reference to zeroed array pointer (%d)", array2);
|
|
|
|
while (*string1 == *string2) {
|
|
if (*string2 == 0) {
|
|
push(0);
|
|
return;
|
|
}
|
|
|
|
string1++;
|
|
string2++;
|
|
}
|
|
|
|
result = (*string1 > *string2) ? -1 : 1;
|
|
push(result);
|
|
debug(1,"o70_compareString (%d, %d, %d)", array1, array2, result);
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_readINI() {
|
|
int len;
|
|
int type;
|
|
byte option[256];
|
|
|
|
// we pretend that we don't have .ini file
|
|
addMessageToStack(_scriptPointer, option, sizeof(option));
|
|
len = resStrLen(_scriptPointer);
|
|
_scriptPointer += len + 1;
|
|
|
|
type = pop();
|
|
switch (type) {
|
|
case 1: // number
|
|
if (!strcmp((char *)option, "NoPrinting"))
|
|
push(1);
|
|
else
|
|
push(0);
|
|
break;
|
|
case 2: // string
|
|
writeVar(0, 0);
|
|
defineArray(0, kStringArray, 0, 0);
|
|
writeArray(0, 0, 0, 0);
|
|
push(readVar(0)); // var ID string
|
|
break;
|
|
default:
|
|
error("o70_readINI: default type %d", type);
|
|
}
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_writeINI() {
|
|
int type, value;
|
|
byte option[256], option2[256];
|
|
int len;
|
|
|
|
type = pop();
|
|
value = pop();
|
|
|
|
addMessageToStack(_scriptPointer, option, sizeof(option));
|
|
len = resStrLen(_scriptPointer);
|
|
_scriptPointer += len + 1;
|
|
|
|
switch (type) {
|
|
case 1: // number
|
|
debug(1, "o70_writeINI: %s set to %d", option, value);
|
|
break;
|
|
case 2: // string
|
|
addMessageToStack(_scriptPointer, option2, sizeof(option2));
|
|
len = resStrLen(_scriptPointer);
|
|
_scriptPointer += len + 1;
|
|
debug(1, "o70_writeINI: %s set to %s", option, option2);
|
|
break;
|
|
default:
|
|
error("o70_writeINI: default type %d", type);
|
|
}
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_getStringLenForWidth() {
|
|
int chr, max;
|
|
int array, len, pos, width = 0;
|
|
|
|
max = pop();
|
|
pos = pop();
|
|
array = pop();
|
|
|
|
len = resStrLen(getStringAddress(array));
|
|
|
|
writeVar(0, array);
|
|
while (pos <= len) {
|
|
chr = readArray(0, 0, pos);
|
|
width += getStringCharWidth(chr);
|
|
if (width >= max) {
|
|
push(pos);
|
|
return;
|
|
}
|
|
pos++;
|
|
}
|
|
|
|
push(len);
|
|
debug(1,"o70_getStringLenForWidth (%d)", len);
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_getCharIndexInString() {
|
|
int array, end, len, pos, value;
|
|
|
|
value = pop();
|
|
end = pop();
|
|
pos = pop();
|
|
array = pop();
|
|
|
|
if (end >= 0) {
|
|
len = resStrLen(getStringAddress(array));
|
|
if (len < end)
|
|
end = len;
|
|
} else {
|
|
end = 0;
|
|
}
|
|
|
|
if (pos < 0)
|
|
pos = 0;
|
|
|
|
writeVar(0, array);
|
|
if (end > pos) {
|
|
while (end >= pos) {
|
|
if (readArray(0, 0, pos) == value) {
|
|
push(pos);
|
|
return;
|
|
}
|
|
pos++;
|
|
}
|
|
} else {
|
|
while (end <= pos) {
|
|
if (readArray(0, 0, pos) == value) {
|
|
push(pos);
|
|
return;
|
|
}
|
|
pos--;
|
|
}
|
|
}
|
|
|
|
push(-1);
|
|
debug(1,"o70_getCharIndexInString");
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_setFilePath() {
|
|
// File related
|
|
int len;
|
|
byte filename[100];
|
|
|
|
addMessageToStack(_scriptPointer, filename, sizeof(filename));
|
|
|
|
len = resStrLen(_scriptPointer);
|
|
_scriptPointer += len + 1;
|
|
|
|
debug(1,"stub o70_setFilePath(%s)", filename);
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_setWindowCaption() {
|
|
int num = fetchScriptByte();
|
|
int len = resStrLen(_scriptPointer);
|
|
debug(1,"stub o70_setWindowCaption(%d, \"%s\")", num, _scriptPointer);
|
|
_scriptPointer += len + 1;
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_polygonOps() {
|
|
int vert1x, vert1y, vert2x, vert2y, vert3x, vert3y, vert4x, vert4y;
|
|
int id;
|
|
int fromId, toId;
|
|
|
|
byte subOp = fetchScriptByte();
|
|
|
|
switch (subOp) {
|
|
case 68: // HE 100
|
|
case 69: // HE 100
|
|
case 246:
|
|
case 248:
|
|
vert4y = pop();
|
|
vert4x = pop();
|
|
vert3y = pop();
|
|
vert3x = pop();
|
|
vert2y = pop();
|
|
vert2x = pop();
|
|
vert1y = pop();
|
|
vert1x = pop();
|
|
id = pop();
|
|
_wiz.polygonStore(id, (subOp == 69 || subOp == 248), vert1x, vert1y, vert2x, vert2y, vert3x, vert3y, vert4x, vert4y);
|
|
break;
|
|
case 28: // HE 100
|
|
case 247:
|
|
toId = pop();
|
|
fromId = pop();
|
|
_wiz.polygonErase(fromId, toId);
|
|
break;
|
|
default:
|
|
error("o70_polygonOps: default case %d", subOp);
|
|
}
|
|
}
|
|
|
|
void ScummEngine_v70he::o70_polygonHit() {
|
|
int y = pop();
|
|
int x = pop();
|
|
push(_wiz.polygonHit(0, x, y));
|
|
}
|
|
|
|
} // End of namespace Scumm
|