libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-26 03:37:53 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
628d64f136
scummvm/engines/gob/inter_v2.cpp
Sven Hesse 1758260c39 Changed debug()s to debugC()s 
svn-id: r20848
2006-02-24 23:31:31 +00:00

1324 lines
28 KiB
C++
Raw Blame History

/* ScummVM - Scumm Interpreter
* Copyright (C) 2004 Ivan Dubrov
* Copyright (C) 2004-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 "gob/gob.h"
#include "gob/global.h"
#include "gob/inter.h"
#include "gob/util.h"
#include "gob/scenery.h"
#include "gob/parse.h"
#include "gob/game.h"
#include "gob/draw.h"
#include "gob/mult.h"
#include "gob/goblin.h"
#include "gob/cdrom.h"
#include "gob/palanim.h"
#include "gob/anim.h"
namespace Gob {
#define OPCODE(x) _OPCODE(Inter_v2, x)
const int Inter_v2::_goblinFuncLookUp[][2] = {
{1, 0},
{2, 1},
{3, 2},
{4, 3},
{5, 4},
{6, 5},
{7, 6},
{8, 7},
{9, 8},
{10, 9},
{12, 10},
{13, 11},
{14, 12},
{15, 13},
{16, 14},
{21, 15},
{22, 16},
{23, 17},
{24, 18},
{25, 19},
{26, 20},
{27, 21},
{28, 22},
{29, 23},
{30, 24},
{32, 25},
{33, 26},
{34, 27},
{35, 28},
{36, 29},
{37, 30},
{40, 31},
{41, 32},
{42, 33},
{43, 34},
{44, 35},
{50, 36},
{52, 37},
{53, 38},
{150, 39},
{152, 40},
{200, 41},
{201, 42},
{202, 43},
{203, 44},
{204, 45},
{250, 46},
{251, 47},
{252, 48},
{500, 49},
{502, 50},
{503, 51},
{600, 52},
{601, 53},
{602, 54},
{603, 55},
{604, 56},
{605, 57},
{1000, 58},
{1001, 59},
{1002, 60},
{1003, 61},
{1004, 62},
{1005, 63},
{1006, 64},
{1008, 65},
{1009, 66},
{1010, 67},
{1011, 68},
{1015, 69},
{2005, 70}
};
Inter_v2::Inter_v2(GobEngine *vm) : Inter_v1(vm) {
setupOpcodes();
}
void Inter_v2::setupOpcodes(void) {
static const OpcodeDrawEntryV2 opcodesDraw[256] = {
/* 00 */
OPCODE(o1_loadMult),
OPCODE(o2_playMult),
OPCODE(o1_freeMult),
{NULL, ""},
/* 04 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
OPCODE(o1_initCursor),
/* 08 */
OPCODE(o1_initCursorAnim),
OPCODE(o1_clearCursorAnim),
OPCODE(o2_setRenderFlags),
{NULL, ""},
/* 0C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 10 */
OPCODE(o1_loadAnim),
OPCODE(o1_freeAnim),
OPCODE(o1_updateAnim),
OPCODE(o2_drawStub),
/* 14 */
OPCODE(o2_initMult),
OPCODE(o1_multFreeMult),
OPCODE(o1_animate),
OPCODE(o1_multLoadMult),
/* 18 */
OPCODE(o1_storeParams),
OPCODE(o1_getObjAnimSize),
OPCODE(o1_loadStatic),
OPCODE(o1_freeStatic),
/* 1C */
OPCODE(o1_renderStatic),
OPCODE(o2_loadCurLayer),
{NULL, ""},
{NULL, ""},
/* 20 */
OPCODE(o2_playCDTrack),
OPCODE(o2_drawStub),
OPCODE(o2_stopCD),
OPCODE(o2_readLIC),
/* 24 */
OPCODE(o2_freeLIC),
OPCODE(o2_getCDTrackPos),
{NULL, ""},
{NULL, ""},
/* 28 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 2C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 30 */
OPCODE(o1_loadFontToSprite),
OPCODE(o1_freeFontToSprite),
{NULL, ""},
{NULL, ""},
/* 34 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 38 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 3C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 40 */
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
/* 44 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 48 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 4C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 50 */
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
/* 54 */
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
{NULL, ""},
/* 58 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 5C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 60 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 64 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 68 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 6C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 70 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 74 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 78 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 7C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 80 */
OPCODE(o2_stub0x80),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
/* 84 */
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
OPCODE(o2_drawStub),
/* 88 */
OPCODE(o2_drawStub),
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 8C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 90 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 94 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 98 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 9C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* A0 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* A4 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* A8 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* AC */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* B0 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* B4 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* B8 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* BC */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* C0 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* C4 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* C8 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* CC */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* D0 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* D4 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* D8 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* DC */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* E0 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* E4 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* E8 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* EC */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* F0 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* F4 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* F8 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* FC */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""}
};
static const OpcodeFuncEntryV2 opcodesFunc[80] = {
/* 00 */
OPCODE(o1_callSub),
OPCODE(o1_callSub),
OPCODE(o1_drawPrintText),
OPCODE(o1_loadCursor),
/* 04 */
{NULL, ""},
OPCODE(o1_call),
OPCODE(o1_repeatUntil),
OPCODE(o1_whileDo),
/* 08 */
OPCODE(o1_callBool),
OPCODE(o2_evaluateStore),
OPCODE(o1_loadSpriteToPos),
{NULL, ""},
/* 0C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 10 */
{NULL, ""},
OPCODE(o1_printText),
OPCODE(o2_loadTot),
OPCODE(o2_palLoad),
/* 14 */
OPCODE(o1_keyFunc),
OPCODE(o1_capturePush),
OPCODE(o1_capturePop),
OPCODE(o1_animPalInit),
/* 18 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 1C */
{NULL, ""},
{NULL, ""},
OPCODE(o1_drawOperations),
OPCODE(o1_setcmdCount),
/* 20 */
OPCODE(o1_return),
OPCODE(o1_renewTimeInVars),
OPCODE(o1_speakerOn),
OPCODE(o1_speakerOff),
/* 24 */
OPCODE(o1_putPixel),
OPCODE(o1_goblinFunc),
OPCODE(o1_createSprite),
OPCODE(o2_freeSprite),
/* 28 */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 2C */
{NULL, ""},
{NULL, ""},
{NULL, ""},
{NULL, ""},
/* 30 */
OPCODE(o1_returnTo),
OPCODE(o1_loadSpriteContent),
OPCODE(o1_copySprite),
OPCODE(o1_fillRect),
/* 34 */
OPCODE(o1_drawLine),
OPCODE(o1_strToLong),
OPCODE(o1_invalidate),
OPCODE(o1_setBackDelta),
/* 38 */
OPCODE(o1_playSound),
OPCODE(o1_stopSound),
OPCODE(o2_loadSound),
OPCODE(o1_freeSoundSlot),
/* 3C */
OPCODE(o1_waitEndPlay),
OPCODE(o1_playComposition),
OPCODE(o1_getFreeMem),
OPCODE(o1_checkData),
/* 40 */
{NULL, ""},
OPCODE(o1_prepareStr),
OPCODE(o1_insertStr),
OPCODE(o1_cutStr),
/* 44 */
OPCODE(o1_strstr),
OPCODE(o1_istrlen),
OPCODE(o1_setMousePos),
OPCODE(o1_setFrameRate),
/* 48 */
OPCODE(o1_animatePalette),
OPCODE(o1_animateCursor),
OPCODE(o1_blitCursor),
OPCODE(o1_loadFont),
/* 4C */
OPCODE(o1_freeFont),
OPCODE(o1_readData),
OPCODE(o1_writeData),
OPCODE(o1_manageDataFile),
};
static const OpcodeGoblinEntryV2 opcodesGoblin[71] = {
/* 00 */
OPCODE(o1_setState),
OPCODE(o1_setCurFrame),
OPCODE(o1_setNextState),
OPCODE(o1_setMultState),
/* 04 */
OPCODE(o1_setOrder),
OPCODE(o1_setActionStartState),
OPCODE(o1_setCurLookDir),
OPCODE(o1_setType),
/* 08 */
OPCODE(o1_setNoTick),
OPCODE(o1_setPickable),
OPCODE(o1_setXPos),
OPCODE(o1_setYPos),
/* 0C */
OPCODE(o1_setDoAnim),
OPCODE(o1_setRelaxTime),
OPCODE(o1_setMaxTick),
OPCODE(o1_getState),
/* 10 */
OPCODE(o1_getCurFrame),
OPCODE(o1_getNextState),
OPCODE(o1_getMultState),
OPCODE(o1_getOrder),
/* 14 */
OPCODE(o1_getActionStartState),
OPCODE(o1_getCurLookDir),
OPCODE(o1_getType),
OPCODE(o1_getNoTick),
/* 18 */
OPCODE(o1_getPickable),
OPCODE(o1_getObjMaxFrame),
OPCODE(o1_getXPos),
OPCODE(o1_getYPos),
/* 1C */
OPCODE(o1_getDoAnim),
OPCODE(o1_getRelaxTime),
OPCODE(o1_getMaxTick),
OPCODE(o1_manipulateMap),
/* 20 */
OPCODE(o1_getItem),
OPCODE(o1_manipulateMapIndirect),
OPCODE(o1_getItemIndirect),
OPCODE(o1_setPassMap),
/* 24 */
OPCODE(o1_setGoblinPosH),
OPCODE(o1_getGoblinPosXH),
OPCODE(o1_getGoblinPosYH),
OPCODE(o1_setGoblinMultState),
/* 28 */
OPCODE(o1_setGoblinUnk14),
OPCODE(o1_setItemIdInPocket),
OPCODE(o1_setItemIndInPocket),
OPCODE(o1_getItemIdInPocket),
/* 2C */
OPCODE(o1_getItemIndInPocket),
OPCODE(o1_setItemPos),
OPCODE(o1_setGoblinPos),
OPCODE(o1_setGoblinState),
/* 30 */
OPCODE(o1_setGoblinStateRedraw),
OPCODE(o1_decRelaxTime),
OPCODE(o1_getGoblinPosX),
OPCODE(o1_getGoblinPosY),
/* 34 */
OPCODE(o1_clearPathExistence),
OPCODE(o1_setGoblinVisible),
OPCODE(o1_setGoblinInvisible),
OPCODE(o1_getObjectIntersect),
/* 38 */
OPCODE(o1_getGoblinIntersect),
OPCODE(o1_setItemPos),
OPCODE(o1_loadObjects),
OPCODE(o1_freeObjects),
/* 3C */
OPCODE(o1_animateObjects),
OPCODE(o1_drawObjects),
OPCODE(o1_loadMap),
OPCODE(o1_moveGoblin),
/* 40 */
OPCODE(o1_switchGoblin),
OPCODE(o1_loadGoblin),
OPCODE(o1_writeTreatItem),
OPCODE(o1_moveGoblin0),
/* 44 */
OPCODE(o1_setGoblinTarget),
OPCODE(o1_setGoblinObjectsPos),
OPCODE(o1_initGoblin)
};
_opcodesDrawV2 = opcodesDraw;
_opcodesFuncV2 = opcodesFunc;
_opcodesGoblinV2 = opcodesGoblin;
}
void Inter_v2::executeDrawOpcode(byte i) {
debugC(1, DEBUG_DRAWOP, "opcodeDraw %d (%s)", i, getOpcodeDrawDesc(i));
OpcodeDrawProcV2 op = _opcodesDrawV2[i].proc;
if (op == NULL)
warning("unimplemented opcodeDraw: %d", i);
else
(this->*op) ();
}
bool Inter_v2::executeFuncOpcode(byte i, byte j, char &cmdCount, int16 &counter, int16 &retFlag) {
debugC(1, DEBUG_FUNCOP, "opcodeFunc %d.%d (%s)", i, j, getOpcodeFuncDesc(i, j));
if ((i > 4) || (j > 15)) {
warning("unimplemented opcodeFunc: %d.%d", i, j);
return false;
}
OpcodeFuncProcV2 op = _opcodesFuncV2[i*16 + j].proc;
if (op == NULL)
warning("unimplemented opcodeFunc: %d.%d", i, j);
else
return (this->*op) (cmdCount, counter, retFlag);
return false;
}
void Inter_v2::executeGoblinOpcode(int i, int16 &extraData, int32 *retVarPtr, Goblin::Gob_Object *objDesc) {
debugC(1, DEBUG_GOBOP, "opcodeGoblin %d (%s)", i, getOpcodeGoblinDesc(i));
OpcodeGoblinProcV2 op = NULL;
for (int j = 0; j < ARRAYSIZE(_goblinFuncLookUp); j++)
if (_goblinFuncLookUp[j][0] == i) {
op = _opcodesGoblinV2[_goblinFuncLookUp[j][1]].proc;
break;
}
if (op == NULL) {
warning("unimplemented opcodeGoblin: %d", i);
_vm->_global->_inter_execPtr -= 2;
_vm->_global->_inter_execPtr += load16() * 2;
}
else
(this->*op) (extraData, retVarPtr, objDesc);
}
const char *Inter_v2::getOpcodeDrawDesc(byte i) {
return _opcodesDrawV2[i].desc;
}
const char *Inter_v2::getOpcodeFuncDesc(byte i, byte j) {
if ((i > 4) || (j > 15))
return "";
return _opcodesFuncV2[i*16 + j].desc;
}
const char *Inter_v2::getOpcodeGoblinDesc(int i) {
for (int j = 0; j < ARRAYSIZE(_goblinFuncLookUp); j++)
if (_goblinFuncLookUp[j][0] == i)
return _opcodesGoblinV2[_goblinFuncLookUp[j][1]].desc;
return "";
}
void Inter_v2::o2_stub0x80(void) {
_vm->_global->_inter_execPtr += 2;
int16 expr1 = _vm->_parse->parseValExpr();
int16 expr2 = _vm->_parse->parseValExpr();
warning("STUB: Gob2 drawOperation 0x80 (%d %d)", expr1, expr2);
}
int16 Inter_v2::loadSound(int16 search) {
int16 id;
int16 slot;
/* int i;
int8 var_7;
char *pointer;
char sndfile[14];
char *dword_2EBF0[60];
int16 word_2EAFE[60];
int8 byte_2EB8A[60];
for (i = 0; i < 60; i++)
dword_2EBF0[i] = 0;*/
warning("STUB: loadSound()");
slot = 0;
if (search == 0) {
slot = _vm->_parse->parseValExpr();
}
id = load16();
// warning("==> %d %d", slot, id);
if (id == -1)
_vm->_global->_inter_execPtr += 9;
return slot;
/* var_7 = 0;
if (search == 0) {
slot = _vm->_parse->parseValExpr();
if (slot < 0) {
var_7 = 1;
slot = -slot;
}
id = load16();
}
else {
// loc_961D
id = load16();
for (slot = 0; slot < 60; slot++)
if ((dword_2EBF0[slot] != 0) && (word_2EAFE[slot] = id))
return slot | 0x8000;
for (slot = 59; slot >= 0; slot--)
if (dword_2EBF0[slot] == 0) break;
}
if (dword_2EBF0[slot] != 0)
_vm->_game->freeSoundSlot(slot);
word_2EAFE[slot] = id;
if (id == -1) {
strcpy(sndfile, _vm->_global->_inter_execPtr);
_vm->_global->_inter_execPtr += 9;
if (var_7 == 0) {
// loc_96EB
strcat(sndfile, ".SND");
// dword_2EBF0[slot] = sub_1F5D0(sndfile);
}
else {
strcat(sndfile, ".ADL");
dword_2EBF0[slot] = _vm->_dataio->getData(sndfile);
}
byte_2EB8A[slot] = 2;
// loc_969D
}
else {
// loc_9735
if (id >= 30000) {
// loc_973E
if ((var_7 == 0) &&
(_vm->_global->_soundFlags & 0x14) &&
(_vm->_game->_totFileData[0x29] >= 51)) {
// loc_9763
if (_vm->_global->_soundFlags & 0x14) {
// loc_976E
// var_E = new char[16];
if (_vm->_inter->_terminate)
return slot;
pointer = _vm->_game->loadExtData(id, NULL, NULL);
if (pointer == NULL) {
// delete[] var_E;
return slot;
}
// loc_97C5
// var_E->pointer = pointer+6;
// var_E->0x0C = pointer[4] << 8 + pointer[5];
// ...
// dword_2EBF0[slot] = var_E;
delete[] pointer;
return slot;
}
else {
// loc_9A59
return slot;
}
}
else {
// loc_99BC
pointer = _vm->_game->loadExtData(id, NULL, NULL);
// ...
delete[] pointer;
return slot;
}
}
else {
// loc_9A13
// pointer = _vm->_game->loadTotResource(id);
return slot;
}
}
if (var_7 != 0)
byte_2EB8A[slot] |= 8;
if (dword_2EBF0[slot])
delete[] dword_2EBF0[slot];
return slot;*/
/* char *dataPtr;
int16 id;
if (slot == -1)
slot = _vm->_parse->parseValExpr();
id = load16();
if (id == -1) {
_vm->_global->_inter_execPtr += 9;
return;
}
if (id >= 30000) {
dataPtr = _vm->_game->loadExtData(id, 0, 0);
_vm->_game->_soundFromExt[slot] = 1;
} else {
dataPtr = _vm->_game->loadTotResource(id);
_vm->_game->_soundFromExt[slot] = 0;
}
warning("STUB: loadSound()");
return;
_vm->_game->loadSound(slot, dataPtr);*/
}
bool Inter_v2::o2_evaluateStore(char &cmdCount, int16 &counter, int16 &retFlag) {
char *savedPos;
int16 varOff;
int16 token;
int16 result;
byte loopCount;
savedPos = _vm->_global->_inter_execPtr;
varOff = _vm->_parse->parseVarIndex();
if (*_vm->_global->_inter_execPtr == 99) {
_vm->_global->_inter_execPtr++;
loopCount = *_vm->_global->_inter_execPtr++;
}
else
loopCount = 1;
for (int i = 0; i < loopCount; i++) {
token = evalExpr(&result);
switch (savedPos[0]) {
case 16:
case 18:
*(_vm->_global->_inter_variables + varOff + i) = _vm->_global->_inter_resVal;
break;
case 17:
case 27:
*(uint16*)(_vm->_global->_inter_variables + varOff + i * 2) = _vm->_global->_inter_resVal;
break;
case 23:
case 26:
WRITE_VAR_OFFSET(varOff + i * 4, _vm->_global->_inter_resVal);
break;
case 24:
*(uint16*)(_vm->_global->_inter_variables + varOff + i * 4) = _vm->_global->_inter_resVal;
break;
case 25:
case 28:
if (token == 20)
*(_vm->_global->_inter_variables + varOff) = result;
else
strcpy(_vm->_global->_inter_variables + varOff, _vm->_global->_inter_resStr);
break;
}
}
return false;
}
bool Inter_v2::o2_palLoad(char &cmdCount, int16 &counter, int16 &retFlag) {
int16 i;
int16 ind1;
int16 ind2;
byte cmd;
char *palPtr;
cmd = *_vm->_global->_inter_execPtr++;
switch(cmd & 0x7f) {
case 48:
if ((_vm->_global->_videoMode < 0x32) || (_vm->_global->_videoMode > 0x63)) {
_vm->_global->_inter_execPtr += 48;
return false;
}
break;
case 49:
if ((_vm->_global->_videoMode != 5) && (_vm->_global->_videoMode != 7)) {
_vm->_global->_inter_execPtr += 18;
return false;
}
break;
case 50:
if (_vm->_global->_videoMode != 0x0D) { // || (word_2D479 == 256) {
_vm->_global->_inter_execPtr += 16;
return false;
}
break;
case 51:
if (_vm->_global->_videoMode < 0x64) {
_vm->_global->_inter_execPtr += 2;
return false;
}
break;
case 52:
if (_vm->_global->_videoMode != 0x0D) { // || (word_2D479 == 256) {
_vm->_global->_inter_execPtr += 48;
return false;
}
break;
case 53:
if (_vm->_global->_videoMode < 0x13) {
_vm->_global->_inter_execPtr += 2;
return false;
}
break;
case 54:
if (_vm->_global->_videoMode < 0x13) {
return false;
}
break;
case 61:
if (_vm->_global->_videoMode < 0x13) {
*_vm->_global->_inter_execPtr += 4;
return false;
}
break;
}
if ((cmd & 0x7f) == 0x30) {
_vm->_global->_inter_execPtr += 48;
return false;
}
_vm->_draw->_applyPal = 0;
if (cmd & 0x80)
cmd &= 0x7f;
else
_vm->_draw->_applyPal = 1;
if (cmd == 49) {
int dl = 0;
for (i = 2; i < 18; i++) {
dl = 1;
if(_vm->_global->_inter_execPtr[i] != 0)
dl = 0;
}
if (dl != 0) {
warning("GOB2 Stub! sub_27413");
/* sub_27413(_draw_frontSurface);
byte_2E521 = 0;
_vm->_global->_inter_execPtr += 18;
break;*/
}
// byte_2E521 = 1;
for (i = 0; i < 18; i++, _vm->_global->_inter_execPtr++) {
if (i < 2) {
if (_vm->_draw->_applyPal == 0)
continue;
_vm->_draw->_unusedPalette1[i] = *_vm->_global->_inter_execPtr;
continue;
}
ind1 = *_vm->_global->_inter_execPtr >> 4;
ind2 = (*_vm->_global->_inter_execPtr & 0xf);
_vm->_draw->_unusedPalette1[i] =
((_vm->_draw->_palLoadData1[ind1] + _vm->_draw->_palLoadData2[ind2]) << 8) +
(_vm->_draw->_palLoadData2[ind1] + _vm->_draw->_palLoadData1[ind2]);
}
_vm->_global->_pPaletteDesc->unused1 = _vm->_draw->_unusedPalette1;
_vm->_video->setFullPalette(_vm->_global->_pPaletteDesc);
return false;
}
switch (cmd) {
case 50:
for (i = 0; i < 16; i++, _vm->_global->_inter_execPtr++)
_vm->_draw->_unusedPalette2[i] = *_vm->_global->_inter_execPtr;
break;
case 52:
for (i = 0; i < 16; i++, _vm->_global->_inter_execPtr += 3) {
_vm->_draw->_vgaSmallPalette[i].red = _vm->_global->_inter_execPtr[0];
_vm->_draw->_vgaSmallPalette[i].green = _vm->_global->_inter_execPtr[1];
_vm->_draw->_vgaSmallPalette[i].blue = _vm->_global->_inter_execPtr[2];
}
_vm->_global->_inter_execPtr += 48;
if (_vm->_global->_videoMode >= 0x13)
return false;
break;
case 53:
palPtr = _vm->_game->loadTotResource(_vm->_inter->load16());
memcpy((char *)_vm->_draw->_vgaPalette, palPtr, 768);
break;
case 54:
memset((char *)_vm->_draw->_vgaPalette, 0, 768);
break;
case 61:
ind1 = *_vm->_global->_inter_execPtr++;
ind2 = (*_vm->_global->_inter_execPtr++ - ind1 + 1) * 3;
palPtr = _vm->_game->loadTotResource(_vm->_inter->load16());
memcpy((char *)_vm->_draw->_vgaPalette + ind1 * 3, palPtr + ind1 * 3, ind2);
if (_vm->_draw->_applyPal) {
_vm->_draw->_applyPal = 0;
_vm->_video->setFullPalette(_vm->_global->_pPaletteDesc);
return false;
}
break;
}
if (!_vm->_draw->_applyPal) {
_vm->_global->_pPaletteDesc->unused2 = _vm->_draw->_unusedPalette2;
_vm->_global->_pPaletteDesc->unused1 = _vm->_draw->_unusedPalette1;
if (_vm->_global->_videoMode < 0x13) {
_vm->_global->_pPaletteDesc->vgaPal = (Video::Color *)_vm->_draw->_vgaSmallPalette;
_vm->_palanim->fade((Video::PalDesc *) _vm->_global->_pPaletteDesc, 0, 0);
return false;
}
if ((_vm->_global->_videoMode < 0x32) || (_vm->_global->_videoMode >= 0x64)) {
_vm->_global->_pPaletteDesc->vgaPal = (Video::Color *)_vm->_draw->_vgaPalette;
_vm->_palanim->fade((Video::PalDesc *) _vm->_global->_pPaletteDesc, 0, 0);
return false;
}
_vm->_global->_pPaletteDesc->vgaPal = (Video::Color *)_vm->_draw->_vgaSmallPalette;
_vm->_palanim->fade((Video::PalDesc *) _vm->_global->_pPaletteDesc, 0, 0);
}
return false;
}
bool Inter_v2::o2_loadTot(char &cmdCount, int16 &counter, int16 &retFlag) {
char buf[20];
int8 size;
int16 i;
if ((*_vm->_global->_inter_execPtr & 0x80) != 0) {
_vm->_global->_inter_execPtr++;
evalExpr(0);
strcpy(buf, _vm->_global->_inter_resStr);
} else {
size = *_vm->_global->_inter_execPtr++;
for (i = 0; i < size; i++)
buf[i] = *_vm->_global->_inter_execPtr++;
buf[size] = 0;
}
if (strcmp(buf, "INSTALL") == 0) {
warning("GOB2 Stub! word_2E515 = _inter_variables[0E8h]");
}
strcat(buf, ".tot");
if (_terminate != 2)
_terminate = true;
strcpy(_vm->_game->_totToLoad, buf);
return false;
}
bool Inter_v2::o2_freeSprite(char &cmdCount, int16 &counter, int16 &retFlag) {
int16 index;
index = load16();
if (_vm->_draw->_spritesArray[index] == 0)
return false;
_vm->_draw->freeSprite(index);
return false;
}
bool Inter_v2::o2_loadSound(char &cmdCount, int16 &counter, int16 &retFlag) {
loadSound(0);
return false;
}
void Inter_v2::o2_setRenderFlags(void) {
int16 expr;
expr = _vm->_parse->parseValExpr();
if (expr & 0x8000) {
_vm->_draw->_renderFlags |= expr & 0x3fff;
}
else {
if (expr & 0x4000)
_vm->_draw->_renderFlags &= expr & 0x3fff;
else
_vm->_draw->_renderFlags = _vm->_parse->parseValExpr();
}
}
void Inter_v2::o2_initMult(void) {
int16 oldAnimHeight;
int16 oldAnimWidth;
int16 oldObjCount;
int16 i;
int16 posXVar;
int16 posYVar;
int16 animDataVar;
oldAnimWidth = _vm->_anim->_areaWidth;
oldAnimHeight = _vm->_anim->_areaHeight;
oldObjCount = _vm->_mult->_objCount;
_vm->_anim->_areaLeft = load16();
_vm->_anim->_areaTop = load16();
_vm->_anim->_areaWidth = load16();
_vm->_anim->_areaHeight = load16();
_vm->_mult->_objCount = load16();
posXVar = _vm->_parse->parseVarIndex();
posYVar = _vm->_parse->parseVarIndex();
animDataVar = _vm->_parse->parseVarIndex();
if (_vm->_mult->_objects == 0) {
// GOB2: _vm->_mult->_renderData = new int16[_vm->_mult->_objCount * 2];
_vm->_mult->_renderData = new int16[_vm->_mult->_objCount * 9];
if (_vm->_inter->_terminate)
return;
warning("GOB2 Stub! dword_2FC74 = new int8[_vm->_mult->_objCount];");
_vm->_mult->_objects = new Mult::Mult_Object[_vm->_mult->_objCount];
for (i = 0; i < _vm->_mult->_objCount; i++) {
_vm->_mult->_objects[i].pPosX = (int32 *)(_vm->_global->_inter_variables + i * 4 + (posXVar / 4) * 4);
_vm->_mult->_objects[i].pPosY = (int32 *)(_vm->_global->_inter_variables + i * 4 + (posYVar / 4) * 4);
_vm->_mult->_objects[i].pAnimData =
(Mult::Mult_AnimData *) (_vm->_global->_inter_variables + animDataVar +
i * 4 * _vm->_global->_inter_animDataSize);
_vm->_mult->_objects[i].pAnimData->isStatic = 1;
_vm->_mult->_objects[i].tick = 0;
_vm->_mult->_objects[i].lastLeft = -1;
_vm->_mult->_objects[i].lastRight = -1;
_vm->_mult->_objects[i].lastTop = -1;
_vm->_mult->_objects[i].lastBottom = -1;
}
} else if (oldObjCount != _vm->_mult->_objCount) {
error("o2_initMult: Object count changed, but storage didn't (old count = %d, new count = %d)",
oldObjCount, _vm->_mult->_objCount);
}
if (_vm->_anim->_animSurf != 0 &&
(oldAnimWidth != _vm->_anim->_areaWidth
|| oldAnimHeight != _vm->_anim->_areaHeight)) {
if (_vm->_anim->_animSurf->flag & 0x80)
_vm->_draw->freeSprite(0x16);
else
delete _vm->_anim->_animSurf;
}
_vm->_draw->adjustCoords(&_vm->_anim->_areaHeight, &_vm->_anim->_areaWidth, 0);
warning("===> %d", _vm->_global->_videoMode);
if (_vm->_anim->_animSurf == 0) {
if (_vm->_global->_videoMode == 18) {
_vm->_anim->_animSurf = new Video::SurfaceDesc;
memcpy(_vm->_anim->_animSurf, _vm->_draw->_frontSurface, sizeof(Video::SurfaceDesc));
_vm->_anim->_animSurf->width = (_vm->_anim->_areaLeft + _vm->_anim->_areaWidth - 1) | 7;
_vm->_anim->_animSurf->width -= (_vm->_anim->_areaLeft & 0x0FF8) - 1;
_vm->_anim->_animSurf->height = _vm->_anim->_areaHeight;
_vm->_anim->_animSurf->vidPtr += 0x0C000;
} else {
if (_vm->_global->_videoMode == 20) {
if (((_vm->_draw->_backSurface->width * _vm->_draw->_backSurface->height) / 2
+ (_vm->_anim->_areaWidth * _vm->_anim->_areaHeight) / 4) < 65536) {
_vm->_anim->_animSurf = new Video::SurfaceDesc;
memcpy(_vm->_anim->_animSurf, _vm->_draw->_frontSurface, sizeof(Video::SurfaceDesc));
_vm->_anim->_animSurf->width = (_vm->_anim->_areaLeft + _vm->_anim->_areaWidth - 1) | 7;
_vm->_anim->_animSurf->width -= (_vm->_anim->_areaLeft & 0x0FF8) - 1;
_vm->_anim->_animSurf->height = _vm->_anim->_areaHeight;
_vm->_anim->_animSurf->vidPtr = _vm->_draw->_backSurface->vidPtr +
_vm->_draw->_backSurface->width * _vm->_draw->_backSurface->height / 4;
} else
_vm->_draw->initBigSprite(0x16, _vm->_anim->_areaWidth, _vm->_anim->_areaHeight, 0);
} else
_vm->_draw->initBigSprite(0x16, _vm->_anim->_areaWidth, _vm->_anim->_areaHeight, 0);
}
if (_terminate)
return;
}
_vm->_draw->adjustCoords(&_vm->_anim->_areaHeight, &_vm->_anim->_areaWidth, 1);
_vm->_draw->_sourceSurface = 21;
_vm->_draw->_destSurface = 22;
_vm->_draw->_spriteLeft = _vm->_anim->_areaLeft;
_vm->_draw->_spriteTop = _vm->_anim->_areaTop;
_vm->_draw->_spriteRight = _vm->_anim->_areaWidth;
_vm->_draw->_spriteBottom = _vm->_anim->_areaHeight;
_vm->_draw->_destSpriteX = 0;
_vm->_draw->_destSpriteY = 0;
_vm->_draw->spriteOperation(0);
debugC(4, DEBUG_GRAPHICS, "o2_initMult: x = %d, y = %d, w = %d, h = %d",
_vm->_anim->_areaLeft, _vm->_anim->_areaTop, _vm->_anim->_areaWidth, _vm->_anim->_areaHeight);
debugC(4, DEBUG_GRAPHICS, " _vm->_mult->_objCount = %d, animation data size = %d", _vm->_mult->_objCount, _vm->_global->_inter_animDataSize);
}
void Inter_v2::o2_loadCurLayer(void) {
_vm->_scenery->_curStatic = _vm->_parse->parseValExpr();
_vm->_scenery->_curStaticLayer = _vm->_parse->parseValExpr();
}
void Inter_v2::o2_playCDTrack(void) {
if ((_vm->_draw->_renderFlags & 0x200) == 0)
_vm->_draw->blitInvalidated();
evalExpr(NULL);
_vm->_cdrom->startTrack(_vm->_global->_inter_resStr);
}
void Inter_v2::o2_stopCD(void) {
_vm->_cdrom->stopPlaying();
}
void Inter_v2::o2_readLIC(void) {
byte result;
char path[40];
result = evalExpr(NULL);
strcpy(path, _vm->_global->_inter_resStr);
strcat(path, ".LIC");
_vm->_cdrom->readLIC(path);
}
void Inter_v2::o2_freeLIC(void) {
_vm->_cdrom->freeLICbuffer();
}
void Inter_v2::o2_getCDTrackPos(void) {
int16 trackpospos;
int16 tracknamepos;
int32 trackpos;
_vm->_util->longDelay(1);
trackpospos = _vm->_parse->parseVarIndex();
// The currently playing trackname would be written there to
// notice trackbound overruns. Since we stop on trackend and
// CDROM::getTrackPos() returns -1 then anyway, we can ignore it.
tracknamepos = _vm->_parse->parseVarIndex();
trackpos = _vm->_cdrom->getTrackPos();
if (trackpos == -1)
trackpos = 32767;
WRITE_VAR(trackpospos >> 2, trackpos);
}
void Inter_v2::o2_playMult(void) {
int16 checkEscape;
checkEscape = load16();
_vm->_mult->setMultData(checkEscape >> 1);
_vm->_mult->playMult(VAR(57), -1, checkEscape & 0x1, 0);
}
} // End of namespace Gob
Reference in New Issue View Git Blame Copy Permalink