libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-23 18:24:59 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
a1c22f9d7f
scummvm/scumm/script_v90he.cpp
Travis Howell a1c22f9d7f Another HE opcode 
svn-id: r15029
2004-09-12 11:15:26 +00:00

932 lines
16 KiB
C++
Raw Blame History

/* ScummVM - Scumm Interpreter
* Copyright (C) 2001 Ludvig Strigeus
* Copyright (C) 2001-2004 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"
#include "sound/mididrv.h"
#include "sound/mixer.h"
namespace Scumm {
#define OPCODE(x) { &ScummEngine_v90he::x, #x }
void ScummEngine_v90he::setupOpcodes() {
static const OpcodeEntryV90he opcodes[256] = {
/* 00 */
OPCODE(o6_pushByte),
OPCODE(o6_pushWord),
OPCODE(o72_pushDWord),
OPCODE(o6_pushWordVar),
/* 04 */
OPCODE(o72_addMessageToStack),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o72_wordArrayRead),
/* 08 */
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o72_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(o72_compareStackList),
/* 1C */
OPCODE(o90_unknown1C),
OPCODE(o90_getLT),
OPCODE(o90_getGT),
OPCODE(o6_invalid),
/* 20 */
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* 24 */
OPCODE(o6_invalid),
OPCODE(o90_unknown25),
OPCODE(o90_unknown26),
OPCODE(o90_unknown27),
/* 28 */
OPCODE(o90_unknown28),
OPCODE(o90_unknown29),
OPCODE(o6_invalid),
OPCODE(o90_startLocalScript),
/* 2C */
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o90_unknown2F),
/* 30 */
OPCODE(o90_mod),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* 34 */
OPCODE(o90_unknown34),
OPCODE(o6_invalid),
OPCODE(o90_unknown36),
OPCODE(o90_unknown37),
/* 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_invalid),
OPCODE(o6_writeWordVar),
/* 44 */
OPCODE(o6_invalid),
OPCODE(o80_unknown45),
OPCODE(o6_invalid),
OPCODE(o72_wordArrayWrite),
/* 48 */
OPCODE(o6_invalid),
OPCODE(o80_unknown49),
OPCODE(o6_invalid),
OPCODE(o72_wordArrayIndexedWrite),
/* 4C */
OPCODE(o6_invalid),
OPCODE(o80_unknown4D),
OPCODE(o6_invalid),
OPCODE(o6_wordVarInc),
/* 50 */
OPCODE(o72_unknown50),
OPCODE(o6_invalid),
OPCODE(o72_findObject),
OPCODE(o72_wordArrayInc),
/* 54 */
OPCODE(o72_objectX),
OPCODE(o72_objectY),
OPCODE(o6_invalid),
OPCODE(o6_wordVarDec),
/* 58 */
OPCODE(o72_getTimer),
OPCODE(o72_setTimer),
OPCODE(o72_unknown5A),
OPCODE(o72_wordArrayDec),
/* 5C */
OPCODE(o6_if),
OPCODE(o6_ifNot),
OPCODE(o72_startScript),
OPCODE(o6_startScriptQuick),
/* 60 */
OPCODE(o72_startObject),
OPCODE(o72_drawObject),
OPCODE(o72_printWizImage),
OPCODE(o72_getArrayDimSize),
/* 64 */
OPCODE(o72_getNumFreeArrays),
OPCODE(o6_stopObjectCode),
OPCODE(o6_stopObjectCode),
OPCODE(o6_endCutscene),
/* 68 */
OPCODE(o6_cutscene),
OPCODE(o6_stopMusic),
OPCODE(o6_freezeUnfreeze),
OPCODE(o80_cursorCommand),
/* 6C */
OPCODE(o6_breakHere),
OPCODE(o6_ifClassOfIs),
OPCODE(o6_setClass),
OPCODE(o6_getState),
/* 70 */
OPCODE(o80_setState),
OPCODE(o6_setOwner),
OPCODE(o6_getOwner),
OPCODE(o6_jump),
/* 74 */
OPCODE(o7_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(o7_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(o7_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(o7_resourceRoutines),
/* 9C */
OPCODE(o6_roomOps),
OPCODE(o72_actorOps),
OPCODE(o90_unknown9E),
OPCODE(o6_getActorFromXY),
/* A0 */
OPCODE(o6_findObject),
OPCODE(o6_pseudoRoom),
OPCODE(o6_getActorElevation),
OPCODE(o6_getVerbEntrypoint),
/* A4 */
OPCODE(o72_arrayOps),
OPCODE(o6_saveRestoreVerbs),
OPCODE(o6_drawBox),
OPCODE(o6_pop),
/* A8 */
OPCODE(o6_getActorWidth),
OPCODE(o6_wait),
OPCODE(o6_getActorScaleX),
OPCODE(o6_getActorAnimCounter1),
/* AC */
OPCODE(o6_invalid),
OPCODE(o6_isAnyOf),
OPCODE(o7_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(o72_dimArray),
OPCODE(o6_dummy),
OPCODE(o6_startObjectQuick),
OPCODE(o6_startScriptQuick2),
/* C0 */
OPCODE(o72_dim2dimArray),
OPCODE(o72_unknownC1),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* C4 */
OPCODE(o6_abs),
OPCODE(o6_distObjectObject),
OPCODE(o6_distObjectPt),
OPCODE(o6_distPtPt),
/* C8 */
OPCODE(o6_kernelGetFunctions),
OPCODE(o7_kernelSetFunctions),
OPCODE(o6_delayFrames),
OPCODE(o6_pickOneOf),
/* CC */
OPCODE(o6_pickOneOfDefault),
OPCODE(o6_stampObject),
OPCODE(o72_drawWizImage),
OPCODE(o6_invalid),
/* D0 */
OPCODE(o6_getDateTime),
OPCODE(o6_stopTalking),
OPCODE(o6_getAnimateVariable),
OPCODE(o6_invalid),
/* D4 */
OPCODE(o72_shuffle),
OPCODE(o72_jumpToScript),
OPCODE(o6_band),
OPCODE(o6_bor),
/* D8 */
OPCODE(o6_isRoomScriptRunning),
OPCODE(o6_closeFile),
OPCODE(o72_openFile),
OPCODE(o72_readFile),
/* DC */
OPCODE(o72_writeFile),
OPCODE(o72_findAllObjects),
OPCODE(o72_deleteFile),
OPCODE(o6_rename),
/* E0 */
OPCODE(o6_soundOps),
OPCODE(o72_getPixel),
OPCODE(o6_localizeArray),
OPCODE(o72_pickVarRandom),
/* E4 */
OPCODE(o6_setBoxSet),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* E8 */
OPCODE(o6_invalid),
OPCODE(o6_seekFilePos),
OPCODE(o72_redimArray),
OPCODE(o6_readFilePos),
/* EC */
OPCODE(o72_unknownEC),
OPCODE(o72_unknownED),
OPCODE(o7_stringLen),
OPCODE(o72_unknownEF),
/* F0 */
OPCODE(o72_unknownF0),
OPCODE(o72_unknownF1),
OPCODE(o72_checkGlobQueue),
OPCODE(o72_readINI),
/* F4 */
OPCODE(o72_writeINI),
OPCODE(o72_unknownF5),
OPCODE(o72_unknownF6),
OPCODE(o6_invalid),
/* F8 */
OPCODE(o72_unknownF8),
OPCODE(o72_setFilePath),
OPCODE(o72_unknownFA),
OPCODE(o7_unknownFB),
/* FC */
OPCODE(o7_unknownFC),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
};
_opcodesV90he = opcodes;
}
void ScummEngine_v90he::executeOpcode(byte i) {
OpcodeProcV90he op = _opcodesV90he[i].proc;
(this->*op) ();
}
const char *ScummEngine_v90he::getOpcodeDesc(byte i) {
return _opcodesV90he[i].desc;
}
void ScummEngine_v90he::o90_getLT() {
int a = pop();
int b = pop();
if (b < a) {
push(b);
} else {
push(a);
}
}
void ScummEngine_v90he::o90_getGT() {
int a = pop();
int b = pop();
if (b > a) {
push(b);
} else {
push(a);
}
}
void ScummEngine_v90he::o90_startLocalScript() {
int args[16];
int script, entryp;
int flags;
getStackList(args, ARRAYSIZE(args));
entryp = pop();
script = pop();
flags = fetchScriptByte();
runScript(script, (flags == 199 || flags == 200), (flags == 195 || flags == 200), args);
}
void ScummEngine_v90he::o90_unknown1C() {
// For Pajame Sam 2 demo
// Incomplete
int subOp = fetchScriptByte();
subOp -= 46;
switch (subOp) {
case 0:
pop();
break;
case 1:
pop();
pop();
pop();
pop();
break;
case 2:
//Sets a variable to 1
break;
case 3:
//Gets a script string
break;
case 4:
//Gets a script string
pop();
break;
case 5:
pop();
pop();
pop();
pop();
pop();
break;
case 6:
pop();
break;
case 7:
pop();
break;
case 8:
pop();
break;
case 10:
{
int flags = pop();
int state = pop();
int y1 = pop();
int x1 = pop();
int resnum = pop();
if (_fullRedraw) {
assert(_wizImagesNum < ARRAYSIZE(_wizImages));
WizImage *pwi = &_wizImages[_wizImagesNum];
pwi->resnum = resnum;
pwi->x1 = x1;
pwi->y1 = y1;
pwi->flags = flags;
++_wizImagesNum;
} else {
drawWizImage(rtImage, resnum, state, x1, y1, flags);
}
}
break;
case 11:
pop();
break;
case 19:
pop();
pop();
break;
case 209:
break;
default:
warning("o90_unknown1C: unhandled case %d", subOp);
}
debug(1,"o90_unknown1C stub (%d)", subOp);
}
void ScummEngine_v90he::o90_unknown25() {
int args[16];
int subOp = fetchScriptByte();
subOp -= 30;
debug(1,"o90_unknown25 stub (%d)", subOp);
switch (subOp) {
case 0:
pop();
break;
case 1:
pop();
break;
case 2:
pop();
break;
case 3:
pop();
break;
case 4:
pop();
break;
case 5:
pop();
break;
case 6:
pop();
break;
case 7:
pop();
break;
case 8:
pop();
break;
case 9:
pop();
break;
case 12:
pop();
pop();
break;
case 13:
pop();
break;
case 15:
if (_heversion >= 99) {
getStackList(args, ARRAYSIZE(args));
pop();
pop();
pop();
pop();
} else {
pop();
pop();
pop();
}
break;
case 22:
pop();
break;
case 33:
pop();
break;
case 38:
pop();
break;
case 52:
pop();
break;
case 62:
pop();
break;
case 67:
pop();
break;
case 68:
pop();
break;
case 94:
pop();
break;
case 95:
getStackList(args, ARRAYSIZE(args));
pop();
break;
case 168:
pop();
pop();
break;
default:
error("o90_unknown25: Unknown case %d", subOp);
}
push(0);
}
void ScummEngine_v90he::o90_unknown26() {
// Incomplete
int args[16];
int subOp = fetchScriptByte();
subOp -= 34;
switch (subOp) {
case 0:
pop();
break;
case 1:
pop();
break;
case 3:
pop();
break;
case 8:
pop();
pop();
break;
case 9:
pop();
break;
case 10:
pop();
pop();
break;
case 18:
pop();
break;
case 19:
pop();
break;
case 23:
pop();
if (_heversion >= 99)
pop();
break;
case 29:
pop();
break;
case 31:
pop();
pop();
break;
case 34:
pop();
break;
case 43:
pop();
pop();
break;
case 48:
pop();
break;
case 52: // HE 98+
pop();
break;
case 64:
pop();
break;
case 90:
pop();
break;
case 91:
getStackList(args, ARRAYSIZE(args));
break;
case 124:
break;
case 164:
pop();
pop();
break;
case 183:
break;
default:
error("o90_unknown26: Unknown case %d", subOp);
}
debug(1,"o90_unknown26 stub (%d)", subOp);
}
void ScummEngine_v90he::o90_unknown27() {
int subOp = fetchScriptByte();
switch (subOp) {
case 30:
pop();
break;
case 31:
pop();
break;
case 43:
pop();
break;
default:
error("o90_unknown27: Unknown case %d", subOp);
}
push(0);
debug(1,"o90_unknown27 stub (%d)", subOp);
}
void ScummEngine_v90he::o90_unknown28() {
// Incomplete
int subOp = fetchScriptByte();
subOp -= 37;
switch (subOp) {
case 6:
pop();
break;
case 7:
pop();
pop();
break;
case 20:
pop();
break;
case 28:
pop();
pop();
break;
case 30:
pop();
pop();
pop();
pop();
break;
case 180:
break;
default:
error("o90_unknown28: Unknown case %d", subOp);
}
debug(1,"o90_unknown28 stub (%d)", subOp);
}
void ScummEngine_v90he::o90_unknown29() {
int subOp = fetchScriptByte();
subOp -= 30;
switch (subOp) {
case 0:
pop();
pop();
break;
case 1:
pop();
pop();
break;
case 2:
pop();
pop();
break;
case 3:
pop();
pop();
break;
case 6:
pop();
break;
case 15:
pop();
pop();
pop();
pop();
break;
case 36:
pop();
pop();
pop();
pop();
break;
case 100:
pop();
pop();
pop();
pop();
pop();
pop();
break;
default:
error("o90_unknown29: Unknown case %d", subOp);
}
push(0);
debug(1,"o90_unknown29 stub (%d)", subOp);
}
void ScummEngine_v90he::o90_unknown2F() {
int subOp = fetchScriptByte();
subOp -= 54;
switch (subOp) {
case 0:
pop();
break;
case 3:
break;
case 11:
pop();
pop();
break;
case 12:
pop();
break;
case 13:
pop();
pop();
pop();
pop();
break;
case 201:
break;
default:
error("o90_unknown28: Unknown case %d", subOp);
}
debug(1,"o90_unknown2F stub (%d)", subOp);
}
void ScummEngine_v90he::o90_mod() {
int a = pop();
if (a == 0)
error("modulus by zero");
push(pop() % a);
}
void ScummEngine_v90he::o90_unknown34() {
// Incomplete
int args[16];
getStackList(args, ARRAYSIZE(args));
int room = pop();
int i = 1;
if (room != _currentRoom)
warning("o72_findAllObjects: current room is not %d", room);
writeVar(0, 0);
defineArray(0, kDwordArray, 0, 0, 0, _numLocalObjects + 1);
writeArray(0, 0, 0, _numLocalObjects);
while (i < _numLocalObjects) {
writeArray(0, 0, i, _objs[i].obj_nr);
i++;
}
push(readVar(0));
}
void ScummEngine_v90he::o90_unknown36() {
int a = pop();
int b = pop();
int c = pop();
if (!c)
b = a;
push(b);
}
void ScummEngine_v90he::o90_unknown37() {
int data, dim1start, dim1end, dim2start, dim2end;
int type = fetchScriptByte();
switch (type) {
case 2: // SO_BIT_ARRAY
data = kBitArray;
break;
case 3: // SO_NIBBLE_ARRAY
data = kNibbleArray;
break;
case 4: // SO_BYTE_ARRAY
data = kByteArray;
break;
case 5: // SO_INT_ARRAY
data = kIntArray;
break;
case 6:
data = kDwordArray;
break;
case 7: // SO_STRING_ARRAY
data = kStringArray;
break;
default:
error("o90_unknown37: default case %d", type);
}
if (pop() == 2) {
dim1end = pop();
dim1start = pop();
dim2end = pop();
dim2start = pop();
} else {
dim2end = pop();
dim2start = pop();
dim1end = pop();
dim1start = pop();
}
defineArray(fetchScriptWord(), data, dim2start, dim2end, dim1start, dim1end);
debug(1,"o90_unknown37 stub");
}
void ScummEngine_v90he::o90_unknown9E() {
int subOp = fetchScriptByte();
subOp -= 57;
switch (subOp) {
case 0:
pop();
break;
case 6:
pop();
pop();
break;
case 9:
pop();
pop();
pop();
pop();
pop();
break;
case 13:
pop();
pop();
pop();
break;
case 29:
pop();
break;
case 118:
pop();
pop();
break;
case 160:
break;
case 198:
break;
default:
error("o90_unknown9E: Unknown case %d", subOp);
}
debug(1,"o90_unknown9E stub (%d)", subOp);
}
} // End of namespace Scumm
Reference in New Issue View Git Blame Copy Permalink