scummvm/engines/gob/inter_v1.cpp
Sven Hesse 14678f059b GOB: Move OpcodeFunc's return flag into its parameter
To make the meaning of the flag more clear and make the func
opcodes more similar to draw and gob opcodes.

svn-id: r55627
2011-01-29 22:44:06 +00:00

2634 lines
75 KiB
C++

/* 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.
*
* $URL$
* $Id$
*
*/
#include "common/endian.h"
#include "common/str.h"
#include "common/file.h"
#include "gob/gob.h"
#include "gob/inter.h"
#include "gob/global.h"
#include "gob/util.h"
#include "gob/dataio.h"
#include "gob/draw.h"
#include "gob/game.h"
#include "gob/expression.h"
#include "gob/script.h"
#include "gob/resources.h"
#include "gob/hotspots.h"
#include "gob/goblin.h"
#include "gob/inter.h"
#include "gob/map.h"
#include "gob/mult.h"
#include "gob/palanim.h"
#include "gob/scenery.h"
#include "gob/video.h"
#include "gob/videoplayer.h"
#include "gob/sound/sound.h"
namespace Gob {
#define OPCODEVER Inter_v1
#define OPCODEDRAW(i, x) _opcodesDraw[i]._OPCODEDRAW(OPCODEVER, x)
#define OPCODEFUNC(i, x) _opcodesFunc[i]._OPCODEFUNC(OPCODEVER, x)
#define OPCODEGOB(i, x) _opcodesGob[i]._OPCODEGOB(OPCODEVER, x)
Inter_v1::Inter_v1(GobEngine *vm) : Inter(vm) {
}
void Inter_v1::setupOpcodesDraw() {
OPCODEDRAW(0x00, o1_loadMult);
OPCODEDRAW(0x01, o1_playMult);
OPCODEDRAW(0x02, o1_freeMultKeys);
OPCODEDRAW(0x07, o1_initCursor);
OPCODEDRAW(0x08, o1_initCursorAnim);
OPCODEDRAW(0x09, o1_clearCursorAnim);
OPCODEDRAW(0x0A, o1_setRenderFlags);
OPCODEDRAW(0x10, o1_loadAnim);
OPCODEDRAW(0x11, o1_freeAnim);
OPCODEDRAW(0x12, o1_updateAnim);
OPCODEDRAW(0x14, o1_initMult);
OPCODEDRAW(0x15, o1_freeMult);
OPCODEDRAW(0x16, o1_animate);
OPCODEDRAW(0x17, o1_loadMultObject);
OPCODEDRAW(0x18, o1_getAnimLayerInfo);
OPCODEDRAW(0x19, o1_getObjAnimSize);
OPCODEDRAW(0x1A, o1_loadStatic);
OPCODEDRAW(0x1B, o1_freeStatic);
OPCODEDRAW(0x1C, o1_renderStatic);
OPCODEDRAW(0x1D, o1_loadCurLayer);
OPCODEDRAW(0x20, o1_playCDTrack);
OPCODEDRAW(0x21, o1_getCDTrackPos);
OPCODEDRAW(0x22, o1_stopCD);
OPCODEDRAW(0x30, o1_loadFontToSprite);
OPCODEDRAW(0x31, o1_freeFontToSprite);
}
void Inter_v1::setupOpcodesFunc() {
OPCODEFUNC(0x00, o1_callSub);
OPCODEFUNC(0x01, o1_callSub);
OPCODEFUNC(0x02, o1_printTotText);
OPCODEFUNC(0x03, o1_loadCursor);
OPCODEFUNC(0x05, o1_switch);
OPCODEFUNC(0x06, o1_repeatUntil);
OPCODEFUNC(0x07, o1_whileDo);
OPCODEFUNC(0x08, o1_if);
OPCODEFUNC(0x09, o1_assign);
OPCODEFUNC(0x0A, o1_loadSpriteToPos);
OPCODEFUNC(0x11, o1_printText);
OPCODEFUNC(0x12, o1_loadTot);
OPCODEFUNC(0x13, o1_palLoad);
OPCODEFUNC(0x14, o1_keyFunc);
OPCODEFUNC(0x15, o1_capturePush);
OPCODEFUNC(0x16, o1_capturePop);
OPCODEFUNC(0x17, o1_animPalInit);
OPCODEFUNC(0x1E, o1_drawOperations);
OPCODEFUNC(0x1F, o1_setcmdCount);
OPCODEFUNC(0x20, o1_return);
OPCODEFUNC(0x21, o1_renewTimeInVars);
OPCODEFUNC(0x22, o1_speakerOn);
OPCODEFUNC(0x23, o1_speakerOff);
OPCODEFUNC(0x24, o1_putPixel);
OPCODEFUNC(0x25, o1_goblinFunc);
OPCODEFUNC(0x26, o1_createSprite);
OPCODEFUNC(0x27, o1_freeSprite);
OPCODEFUNC(0x30, o1_returnTo);
OPCODEFUNC(0x31, o1_loadSpriteContent);
OPCODEFUNC(0x32, o1_copySprite);
OPCODEFUNC(0x33, o1_fillRect);
OPCODEFUNC(0x34, o1_drawLine);
OPCODEFUNC(0x35, o1_strToLong);
OPCODEFUNC(0x36, o1_invalidate);
OPCODEFUNC(0x37, o1_setBackDelta);
OPCODEFUNC(0x38, o1_playSound);
OPCODEFUNC(0x39, o1_stopSound);
OPCODEFUNC(0x3A, o1_loadSound);
OPCODEFUNC(0x3B, o1_freeSoundSlot);
OPCODEFUNC(0x3C, o1_waitEndPlay);
OPCODEFUNC(0x3D, o1_playComposition);
OPCODEFUNC(0x3E, o1_getFreeMem);
OPCODEFUNC(0x3F, o1_checkData);
OPCODEFUNC(0x41, o1_cleanupStr);
OPCODEFUNC(0x42, o1_insertStr);
OPCODEFUNC(0x43, o1_cutStr);
OPCODEFUNC(0x44, o1_strstr);
OPCODEFUNC(0x45, o1_istrlen);
OPCODEFUNC(0x46, o1_setMousePos);
OPCODEFUNC(0x47, o1_setFrameRate);
OPCODEFUNC(0x48, o1_animatePalette);
OPCODEFUNC(0x49, o1_animateCursor);
OPCODEFUNC(0x4A, o1_blitCursor);
OPCODEFUNC(0x4B, o1_loadFont);
OPCODEFUNC(0x4C, o1_freeFont);
OPCODEFUNC(0x4D, o1_readData);
OPCODEFUNC(0x4E, o1_writeData);
OPCODEFUNC(0x4F, o1_manageDataFile);
}
void Inter_v1::setupOpcodesGob() {
OPCODEGOB( 1, o1_setState);
OPCODEGOB( 2, o1_setCurFrame);
OPCODEGOB( 3, o1_setNextState);
OPCODEGOB( 4, o1_setMultState);
OPCODEGOB( 5, o1_setOrder);
OPCODEGOB( 6, o1_setActionStartState);
OPCODEGOB( 7, o1_setCurLookDir);
OPCODEGOB( 8, o1_setType);
OPCODEGOB( 9, o1_setNoTick);
OPCODEGOB( 10, o1_setPickable);
OPCODEGOB( 12, o1_setXPos);
OPCODEGOB( 13, o1_setYPos);
OPCODEGOB( 14, o1_setDoAnim);
OPCODEGOB( 15, o1_setRelaxTime);
OPCODEGOB( 16, o1_setMaxTick);
OPCODEGOB( 21, o1_getState);
OPCODEGOB( 22, o1_getCurFrame);
OPCODEGOB( 23, o1_getNextState);
OPCODEGOB( 24, o1_getMultState);
OPCODEGOB( 25, o1_getOrder);
OPCODEGOB( 26, o1_getActionStartState);
OPCODEGOB( 27, o1_getCurLookDir);
OPCODEGOB( 28, o1_getType);
OPCODEGOB( 29, o1_getNoTick);
OPCODEGOB( 30, o1_getPickable);
OPCODEGOB( 32, o1_getObjMaxFrame);
OPCODEGOB( 33, o1_getXPos);
OPCODEGOB( 34, o1_getYPos);
OPCODEGOB( 35, o1_getDoAnim);
OPCODEGOB( 36, o1_getRelaxTime);
OPCODEGOB( 37, o1_getMaxTick);
OPCODEGOB( 40, o1_manipulateMap);
OPCODEGOB( 41, o1_getItem);
OPCODEGOB( 42, o1_manipulateMapIndirect);
OPCODEGOB( 43, o1_getItemIndirect);
OPCODEGOB( 44, o1_setPassMap);
OPCODEGOB( 50, o1_setGoblinPosH);
OPCODEGOB( 52, o1_getGoblinPosXH);
OPCODEGOB( 53, o1_getGoblinPosYH);
OPCODEGOB( 150, o1_setGoblinMultState);
OPCODEGOB( 152, o1_setGoblinUnk14);
OPCODEGOB( 200, o1_setItemIdInPocket);
OPCODEGOB( 201, o1_setItemIndInPocket);
OPCODEGOB( 202, o1_getItemIdInPocket);
OPCODEGOB( 203, o1_getItemIndInPocket);
OPCODEGOB( 204, o1_setItemPos);
OPCODEGOB( 250, o1_setGoblinPos);
OPCODEGOB( 251, o1_setGoblinState);
OPCODEGOB( 252, o1_setGoblinStateRedraw);
OPCODEGOB( 500, o1_decRelaxTime);
OPCODEGOB( 502, o1_getGoblinPosX);
OPCODEGOB( 503, o1_getGoblinPosY);
OPCODEGOB( 600, o1_clearPathExistence);
OPCODEGOB( 601, o1_setGoblinVisible);
OPCODEGOB( 602, o1_setGoblinInvisible);
OPCODEGOB( 603, o1_getObjectIntersect);
OPCODEGOB( 604, o1_getGoblinIntersect);
OPCODEGOB( 605, o1_setItemPos);
OPCODEGOB(1000, o1_loadObjects);
OPCODEGOB(1001, o1_freeObjects);
OPCODEGOB(1002, o1_animateObjects);
OPCODEGOB(1003, o1_drawObjects);
OPCODEGOB(1004, o1_loadMap);
OPCODEGOB(1005, o1_moveGoblin);
OPCODEGOB(1006, o1_switchGoblin);
OPCODEGOB(1008, o1_loadGoblin);
OPCODEGOB(1009, o1_writeTreatItem);
OPCODEGOB(1010, o1_moveGoblin0);
OPCODEGOB(1011, o1_setGoblinTarget);
OPCODEGOB(1015, o1_setGoblinObjectsPos);
OPCODEGOB(2005, o1_initGoblin);
}
void Inter_v1::checkSwitchTable(uint32 &offset) {
int16 len;
int32 value;
bool found;
bool notFound;
found = false;
notFound = true;
offset = 0;
value = VAR_OFFSET(_vm->_game->_script->readVarIndex());
len = _vm->_game->_script->readInt8();
while (len != -5) {
for (int i = 0; i < len; i++) {
_vm->_game->_script->evalExpr(0);
if (_terminate)
return;
if (_vm->_game->_script->getResultInt() == value) {
found = true;
notFound = false;
}
}
if (found)
offset = _vm->_game->_script->pos();
_vm->_game->_script->skip(_vm->_game->_script->peekUint16(2) + 2);
found = false;
len = _vm->_game->_script->readInt8();
}
if ((_vm->_game->_script->peekByte() >> 4) != 4)
return;
_vm->_game->_script->skip(1);
if (notFound)
offset = _vm->_game->_script->pos();
_vm->_game->_script->skip(_vm->_game->_script->peekUint16(2) + 2);
}
void Inter_v1::o1_loadMult() {
_vm->_mult->loadMult(_vm->_game->_script->readInt16());
}
void Inter_v1::o1_playMult() {
int16 checkEscape;
checkEscape = _vm->_game->_script->readInt16();
_vm->_mult->playMult(VAR(57), -1, checkEscape, 0);
}
void Inter_v1::o1_freeMultKeys() {
_vm->_game->_script->readInt16();
_vm->_mult->freeMultKeys();
}
void Inter_v1::o1_initCursor() {
int16 width;
int16 height;
int16 count;
_vm->_draw->_cursorHotspotXVar = ((uint16) _vm->_game->_script->readVarIndex()) / 4;
_vm->_draw->_cursorHotspotYVar = ((uint16) _vm->_game->_script->readVarIndex()) / 4;
width = _vm->_game->_script->readInt16();
if (width < 16)
width = 16;
height = _vm->_game->_script->readInt16();
if (height < 16)
height = 16;
_vm->_draw->adjustCoords(0, &width, &height);
count = _vm->_game->_script->readInt16();
if (count < 2)
count = 2;
if ((width != _vm->_draw->_cursorWidth) ||
(height != _vm->_draw->_cursorHeight) ||
(_vm->_draw->_cursorSprites->getWidth() != (width * count))) {
_vm->_draw->freeSprite(Draw::kCursorSurface);
_vm->_draw->_cursorSprites.reset();
_vm->_draw->_cursorSpritesBack.reset();
_vm->_draw->_scummvmCursor.reset();
_vm->_draw->_cursorWidth = width;
_vm->_draw->_cursorHeight = height;
if (count < 0x80)
_vm->_draw->_transparentCursor = 1;
else
_vm->_draw->_transparentCursor = 0;
if (count > 0x80)
count -= 0x80;
_vm->_draw->initSpriteSurf(Draw::kCursorSurface, _vm->_draw->_cursorWidth * count,
_vm->_draw->_cursorHeight, 2);
_vm->_draw->_cursorSpritesBack = _vm->_draw->_spritesArray[Draw::kCursorSurface];
_vm->_draw->_cursorSprites = _vm->_draw->_cursorSpritesBack;
_vm->_draw->_scummvmCursor =
_vm->_video->initSurfDesc(_vm->_global->_videoMode,
_vm->_draw->_cursorWidth, _vm->_draw->_cursorHeight,
SCUMMVM_CURSOR);
for (int i = 0; i < 40; i++) {
_vm->_draw->_cursorAnimLow[i] = -1;
_vm->_draw->_cursorAnimDelays[i] = 0;
_vm->_draw->_cursorAnimHigh[i] = 0;
}
_vm->_draw->_cursorAnimLow[1] = 0;
}
}
void Inter_v1::o1_initCursorAnim() {
int16 ind;
_vm->_draw->_showCursor = 3;
ind = _vm->_game->_script->readValExpr();
_vm->_draw->_cursorAnimLow[ind] = _vm->_game->_script->readInt16();
_vm->_draw->_cursorAnimHigh[ind] = _vm->_game->_script->readInt16();
_vm->_draw->_cursorAnimDelays[ind] = _vm->_game->_script->readInt16();
}
void Inter_v1::o1_clearCursorAnim() {
int16 ind;
_vm->_draw->_showCursor = 0;
ind = _vm->_game->_script->readValExpr();
_vm->_draw->_cursorAnimLow[ind] = -1;
_vm->_draw->_cursorAnimHigh[ind] = 0;
_vm->_draw->_cursorAnimDelays[ind] = 0;
}
void Inter_v1::o1_setRenderFlags() {
_vm->_draw->_renderFlags = _vm->_game->_script->readValExpr();
}
void Inter_v1::o1_loadAnim() {
_vm->_scenery->loadAnim(0);
}
void Inter_v1::o1_freeAnim() {
_vm->_scenery->freeAnim(-1);
}
void Inter_v1::o1_updateAnim() {
int16 deltaX;
int16 deltaY;
int16 flags;
int16 frame;
int16 layer;
int16 animation;
_vm->_game->_script->evalExpr(&deltaX);
_vm->_game->_script->evalExpr(&deltaY);
_vm->_game->_script->evalExpr(&animation);
_vm->_game->_script->evalExpr(&layer);
_vm->_game->_script->evalExpr(&frame);
flags = _vm->_game->_script->readInt16();
_vm->_scenery->updateAnim(layer, frame, animation, flags,
deltaX, deltaY, 1);
}
void Inter_v1::o1_initMult() {
int16 oldAnimHeight;
int16 oldAnimWidth;
int16 oldObjCount;
int16 posXVar;
int16 posYVar;
int16 animDataVar;
oldAnimWidth = _vm->_mult->_animWidth;
oldAnimHeight = _vm->_mult->_animHeight;
oldObjCount = _vm->_mult->_objCount;
_vm->_mult->_animLeft = _vm->_game->_script->readInt16();
_vm->_mult->_animTop = _vm->_game->_script->readInt16();
_vm->_mult->_animWidth = _vm->_game->_script->readInt16();
_vm->_mult->_animHeight = _vm->_game->_script->readInt16();
_vm->_mult->_objCount = _vm->_game->_script->readInt16();
posXVar = _vm->_game->_script->readVarIndex();
posYVar = _vm->_game->_script->readVarIndex();
animDataVar = _vm->_game->_script->readVarIndex();
if (_vm->_mult->_objects && (oldObjCount != _vm->_mult->_objCount)) {
warning("Initializing new objects without having "
"cleaned up the old ones at first");
for (int i = 0; i < _vm->_mult->_objCount; i++) {
delete _vm->_mult->_objects[i].pPosX;
delete _vm->_mult->_objects[i].pPosY;
}
delete[] _vm->_mult->_objects;
delete[] _vm->_mult->_renderData;
_vm->_mult->_objects = 0;
_vm->_mult->_renderObjs = 0;
}
if (_vm->_mult->_objects == 0) {
_vm->_mult->_renderData = new int16[_vm->_mult->_objCount * 9];
memset(_vm->_mult->_renderData, 0,
_vm->_mult->_objCount * 9 * sizeof(int16));
_vm->_mult->_objects = new Mult::Mult_Object[_vm->_mult->_objCount];
memset(_vm->_mult->_objects, 0,
_vm->_mult->_objCount * sizeof(Mult::Mult_Object));
for (int i = 0; i < _vm->_mult->_objCount; i++) {
uint32 offPosX = i * 4 + (posXVar / 4) * 4;
uint32 offPosY = i * 4 + (posYVar / 4) * 4;
uint32 offAnim = animDataVar + i * 4 * _vm->_global->_inter_animDataSize;
_vm->_mult->_objects[i].pPosX = new VariableReference(*_variables, offPosX);
_vm->_mult->_objects[i].pPosY = new VariableReference(*_variables, offPosY);
_vm->_mult->_objects[i].pAnimData =
(Mult::Mult_AnimData *)_variables->getAddressOff8(offAnim);
_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;
}
}
if (_vm->_mult->_animSurf &&
((oldAnimWidth != _vm->_mult->_animWidth) ||
(oldAnimHeight != _vm->_mult->_animHeight))) {
_vm->_draw->freeSprite(Draw::kAnimSurface);
_vm->_mult->_animSurf.reset();
}
if (!_vm->_mult->_animSurf) {
_vm->_draw->initSpriteSurf(Draw::kAnimSurface, _vm->_mult->_animWidth,
_vm->_mult->_animHeight, 0);
_vm->_mult->_animSurf = _vm->_draw->_spritesArray[Draw::kAnimSurface];
}
_vm->_mult->_animSurf->blit(*_vm->_draw->_backSurface,
_vm->_mult->_animLeft, _vm->_mult->_animTop,
_vm->_mult->_animLeft + _vm->_mult->_animWidth - 1,
_vm->_mult->_animTop + _vm->_mult->_animHeight - 1, 0, 0);
debugC(4, kDebugGraphics, "o1_initMult: x = %d, y = %d, w = %d, h = %d",
_vm->_mult->_animLeft, _vm->_mult->_animTop,
_vm->_mult->_animWidth, _vm->_mult->_animHeight);
debugC(4, kDebugGraphics, " _vm->_mult->_objCount = %d, "
"animation data size = %d", _vm->_mult->_objCount,
_vm->_global->_inter_animDataSize);
}
void Inter_v1::o1_freeMult() {
_vm->_mult->freeMult();
}
void Inter_v1::o1_animate() {
_vm->_mult->animate();
}
void Inter_v1::o1_loadMultObject() {
int16 val;
int16 objIndex;
byte *multData;
_vm->_game->_script->evalExpr(&objIndex);
_vm->_game->_script->evalExpr(&val);
*_vm->_mult->_objects[objIndex].pPosX = val;
_vm->_game->_script->evalExpr(&val);
*_vm->_mult->_objects[objIndex].pPosY = val;
debugC(4, kDebugGameFlow, "Loading mult object %d", objIndex);
multData = (byte *)_vm->_mult->_objects[objIndex].pAnimData;
for (int i = 0; i < 11; i++) {
if (_vm->_game->_script->peekUint16() != 99) {
_vm->_game->_script->evalExpr(&val);
multData[i] = val;
} else
_vm->_game->_script->skip(1);
}
}
void Inter_v1::o1_getAnimLayerInfo() {
int16 anim;
int16 layer;
int16 varDX, varDY;
int16 varUnk0;
int16 varFrames;
_vm->_game->_script->evalExpr(&anim);
_vm->_game->_script->evalExpr(&layer);
varDX = _vm->_game->_script->readVarIndex();
varDY = _vm->_game->_script->readVarIndex();
varUnk0 = _vm->_game->_script->readVarIndex();
varFrames = _vm->_game->_script->readVarIndex();
_vm->_scenery->writeAnimLayerInfo(anim, layer,
varDX, varDY, varUnk0, varFrames);
}
void Inter_v1::o1_getObjAnimSize() {
int16 objIndex;
_vm->_game->_script->evalExpr(&objIndex);
uint16 varLeft = _vm->_game->_script->readVarIndex();
uint16 varTop = _vm->_game->_script->readVarIndex();
uint16 varRight = _vm->_game->_script->readVarIndex();
uint16 varBottom = _vm->_game->_script->readVarIndex();
if ((objIndex < 0) || (objIndex >= _vm->_mult->_objCount)) {
warning("o1_getObjAnimSize(): objIndex = %d (%d)", objIndex, _vm->_mult->_objCount);
_vm->_scenery->_toRedrawLeft = 0;
_vm->_scenery->_toRedrawTop = 0;
_vm->_scenery->_toRedrawRight = 0;
_vm->_scenery->_toRedrawBottom = 0;
} else {
Mult::Mult_AnimData &animData = *(_vm->_mult->_objects[objIndex].pAnimData);
if (animData.isStatic == 0)
_vm->_scenery->updateAnim(animData.layer, animData.frame,
animData.animation, 0, *(_vm->_mult->_objects[objIndex].pPosX),
*(_vm->_mult->_objects[objIndex].pPosY), 0);
_vm->_scenery->_toRedrawLeft = MAX<int16>(_vm->_scenery->_toRedrawLeft, 0);
_vm->_scenery->_toRedrawTop = MAX<int16>(_vm->_scenery->_toRedrawTop , 0);
}
WRITE_VAR_OFFSET(varLeft , _vm->_scenery->_toRedrawLeft);
WRITE_VAR_OFFSET(varTop , _vm->_scenery->_toRedrawTop);
WRITE_VAR_OFFSET(varRight , _vm->_scenery->_toRedrawRight);
WRITE_VAR_OFFSET(varBottom, _vm->_scenery->_toRedrawBottom);
}
void Inter_v1::o1_loadStatic() {
_vm->_scenery->loadStatic(0);
}
void Inter_v1::o1_freeStatic() {
_vm->_scenery->freeStatic(-1);
}
void Inter_v1::o1_renderStatic() {
int16 layer;
int16 index;
_vm->_game->_script->evalExpr(&index);
_vm->_game->_script->evalExpr(&layer);
_vm->_scenery->renderStatic(index, layer);
}
void Inter_v1::o1_loadCurLayer() {
_vm->_game->_script->evalExpr(&_vm->_scenery->_curStatic);
_vm->_game->_script->evalExpr(&_vm->_scenery->_curStaticLayer);
}
void Inter_v1::o1_playCDTrack() {
_vm->_game->_script->evalExpr(0);
_vm->_sound->adlibPlayBgMusic(); // Mac version
_vm->_sound->cdPlay(_vm->_game->_script->getResultStr()); // PC CD version
}
void Inter_v1::o1_getCDTrackPos() {
// Used in gob1 CD
// Some scripts busy-wait while calling this opcode.
// This is a very nasty thing to do, so let's add a
// short delay here. It's probably a safe thing to do.
_vm->_util->longDelay(1);
int pos = _vm->_sound->cdGetTrackPos();
if (pos == -1)
pos = 32767;
WRITE_VAR(5, pos);
}
void Inter_v1::o1_stopCD() {
_vm->_sound->adlibStop(); // Mac version
_vm->_sound->cdStop(); // PC CD version
}
void Inter_v1::o1_loadFontToSprite() {
int16 i = _vm->_game->_script->readInt16();
_vm->_draw->_fontToSprite[i].sprite = _vm->_game->_script->readInt16();
_vm->_draw->_fontToSprite[i].base = _vm->_game->_script->readInt16();
_vm->_draw->_fontToSprite[i].width = _vm->_game->_script->readInt16();
_vm->_draw->_fontToSprite[i].height = _vm->_game->_script->readInt16();
}
void Inter_v1::o1_freeFontToSprite() {
int16 i = _vm->_game->_script->readInt16();
_vm->_draw->_fontToSprite[i].sprite = -1;
_vm->_draw->_fontToSprite[i].base = -1;
_vm->_draw->_fontToSprite[i].width = -1;
_vm->_draw->_fontToSprite[i].height = -1;
}
void Inter_v1::o1_callSub(OpFuncParams &params) {
uint16 offset = _vm->_game->_script->readUint16();
debugC(5, kDebugGameFlow, "tot = \"%s\", offset = %d",
_vm->_game->_curTotFile, offset);
if (offset < 128) {
warning("Inter_v1::o1_callSub(): Offset %d points into the header. "
"Skipping call", offset);
return;
}
// Skipping the copy protection screen in Gobliiins
if (!_vm->_copyProtection && (_vm->getGameType() == kGameTypeGob1) && (offset == 3905)
&& !scumm_stricmp(_vm->_game->_curTotFile, _vm->_startTot.c_str())) {
debugC(2, kDebugGameFlow, "Skipping copy protection screen");
return;
}
// Skipping the copy protection screen in Gobliins 2
if (!_vm->_copyProtection && (_vm->getGameType() == kGameTypeGob2) && (offset == 1746)
&& !scumm_stricmp(_vm->_game->_curTotFile, "intro0.tot")) {
debugC(2, kDebugGameFlow, "Skipping copy protection screen");
return;
}
_vm->_game->_script->call(offset);
if ((params.counter == params.cmdCount) && (params.retFlag == 2)) {
_vm->_game->_script->pop(false);
params.doReturn = true;
return;
}
callSub(2);
_vm->_game->_script->pop();
}
void Inter_v1::o1_printTotText(OpFuncParams &params) {
_vm->_draw->printTotText(_vm->_game->_script->readInt16());
}
void Inter_v1::o1_loadCursor(OpFuncParams &params) {
int16 id = _vm->_game->_script->readInt16();
int8 index = _vm->_game->_script->readInt8();
if ((index * _vm->_draw->_cursorWidth) >= _vm->_draw->_cursorSprites->getWidth())
return;
Resource *resource = _vm->_game->_resources->getResource(id);
if (!resource)
return;
_vm->_draw->_cursorSprites->fillRect(index * _vm->_draw->_cursorWidth, 0,
index * _vm->_draw->_cursorWidth + _vm->_draw->_cursorWidth - 1,
_vm->_draw->_cursorHeight - 1, 0);
_vm->_video->drawPackedSprite(resource->getData(),
resource->getWidth(), resource->getHeight(),
index * _vm->_draw->_cursorWidth, 0, 0, *_vm->_draw->_cursorSprites);
_vm->_draw->_cursorAnimLow[index] = 0;
delete resource;
}
void Inter_v1::o1_switch(OpFuncParams &params) {
uint32 offset;
checkSwitchTable(offset);
_vm->_game->_script->call(offset);
if (offset == 0)
_vm->_game->_script->setFinished(true);
if ((params.counter == params.cmdCount) && (params.retFlag == 2)) {
_vm->_game->_script->pop(false);
params.doReturn = true;
return;
}
funcBlock(0);
_vm->_game->_script->pop();
}
void Inter_v1::o1_repeatUntil(OpFuncParams &params) {
int16 size;
bool flag;
_nestLevel[0]++;
uint32 blockPos = _vm->_game->_script->pos();
do {
_vm->_game->_script->seek(blockPos);
size = _vm->_game->_script->peekUint16(2) + 2;
funcBlock(1);
_vm->_game->_script->seek(blockPos + size + 1);
flag = _vm->_game->_script->evalBoolResult();
} while (!flag && !_break && !_terminate && !_vm->shouldQuit());
_nestLevel[0]--;
if (*_breakFromLevel > -1) {
_break = false;
*_breakFromLevel = -1;
}
}
void Inter_v1::o1_whileDo(OpFuncParams &params) {
bool flag;
int16 size;
_nestLevel[0]++;
do {
uint32 startPos = _vm->_game->_script->pos();
flag = _vm->_game->_script->evalBoolResult();
if (_terminate)
return;
uint32 blockPos = _vm->_game->_script->pos();
size = _vm->_game->_script->peekUint16(2) + 2;
if (flag) {
funcBlock(1);
_vm->_game->_script->seek(startPos);
} else
_vm->_game->_script->skip(size);
if (_break || _terminate || _vm->shouldQuit()) {
_vm->_game->_script->seek(blockPos);
_vm->_game->_script->skip(size);
break;
}
} while (flag);
_nestLevel[0]--;
if (*_breakFromLevel > -1) {
_break = false;
*_breakFromLevel = -1;
}
}
void Inter_v1::o1_if(OpFuncParams &params) {
byte cmd;
bool boolRes;
// WORKAROUND: Gob1 goblin stuck on reload bugs present in original - bugs #3018918 and 3065914
if ((_vm->getGameType() == kGameTypeGob1) && (_vm->_game->_script->pos() == 2933) &&
!scumm_stricmp(_vm->_game->_curTotFile, "inter.tot") && VAR(285) != 0) {
warning("Workaround for Gob1 Goblin Stuck On Reload Bug applied...");
// VAR(59) actually locks goblin movement, but these variables trigger this in the script.
WRITE_VAR(285, 0);
}
boolRes = _vm->_game->_script->evalBoolResult();
if (boolRes) {
if ((params.counter == params.cmdCount) && (params.retFlag == 2)) {
params.doReturn = true;
return;
}
_vm->_game->_script->push();
funcBlock(0);
_vm->_game->_script->pop();
_vm->_game->_script->skip(_vm->_game->_script->peekUint16(2) + 2);
debugC(6, kDebugGameFlow, "cmd = %d", (int16) _vm->_game->_script->peekByte());
cmd = _vm->_game->_script->readByte() >> 4;
if (cmd != 12)
return;
_vm->_game->_script->skip(_vm->_game->_script->peekUint16(2) + 2);
} else {
_vm->_game->_script->skip(_vm->_game->_script->peekUint16(2) + 2);
debugC(6, kDebugGameFlow, "cmd = %d", (int16) _vm->_game->_script->peekByte());
cmd = _vm->_game->_script->readByte() >> 4;
if (cmd != 12)
return;
if ((params.counter == params.cmdCount) && (params.retFlag == 2)) {
params.doReturn = true;
return;
}
_vm->_game->_script->push();
funcBlock(0);
_vm->_game->_script->pop();
_vm->_game->_script->skip(_vm->_game->_script->peekUint16(2) + 2);
}
}
void Inter_v1::o1_assign(OpFuncParams &params) {
byte destType = _vm->_game->_script->peekByte();
int16 dest = _vm->_game->_script->readVarIndex();
int16 result;
int16 srcType = _vm->_game->_script->evalExpr(&result);
switch (destType) {
case TYPE_VAR_INT32:
case TYPE_ARRAY_INT32:
WRITE_VAR_OFFSET(dest, _vm->_game->_script->getResultInt());
break;
case TYPE_VAR_STR:
case TYPE_ARRAY_STR:
if (srcType == TYPE_IMM_INT16)
WRITE_VARO_UINT8(dest, result);
else
WRITE_VARO_STR(dest, _vm->_game->_script->getResultStr());
break;
}
}
void Inter_v1::o1_loadSpriteToPos(OpFuncParams &params) {
_vm->_draw->_spriteLeft = _vm->_game->_script->readInt16();
_vm->_draw->_destSpriteX = _vm->_game->_script->readValExpr();
// WORKAROUND: The EGA version of Gobliiins 1 has an invalid expression there
if (_vm->isEGA() && (_vm->_game->_script->pos() == 1398) &&
!scumm_stricmp(_vm->_game->_curTotFile, "intro.tot")) {
_vm->_draw->_destSpriteY = 0;
_vm->_game->_script->skip(1);
} else
_vm->_draw->_destSpriteY = _vm->_game->_script->readValExpr();
_vm->_draw->_transparency = _vm->_game->_script->peekByte() & 1;
_vm->_draw->_destSurface = ((int16) (_vm->_game->_script->peekByte() >> 1)) - 1;
if (_vm->_draw->_destSurface < 0)
_vm->_draw->_destSurface = 101;
_vm->_game->_script->skip(2);
_vm->_draw->spriteOperation(DRAW_LOADSPRITE);
}
void Inter_v1::o1_printText(OpFuncParams &params) {
char buf[60];
int i;
_vm->_draw->_destSpriteX = _vm->_game->_script->readValExpr();
_vm->_draw->_destSpriteY = _vm->_game->_script->readValExpr();
_vm->_draw->_backColor = _vm->_game->_script->readValExpr();
_vm->_draw->_frontColor = _vm->_game->_script->readValExpr();
_vm->_draw->_fontIndex = _vm->_game->_script->readValExpr();
_vm->_draw->_destSurface = Draw::kBackSurface;
_vm->_draw->_textToPrint = buf;
_vm->_draw->_transparency = 0;
if (_vm->_draw->_backColor >= 16) {
_vm->_draw->_backColor = 0;
_vm->_draw->_transparency = 1;
}
do {
for (i = 0; ((_vm->_game->_script->peekChar()) != '.') &&
(_vm->_game->_script->peekByte() != 200);
i++, _vm->_game->_script->skip(1)) {
buf[i] = _vm->_game->_script->peekChar();
}
if (_vm->_game->_script->peekByte() != 200) {
_vm->_game->_script->skip(1);
switch (_vm->_game->_script->peekByte()) {
case TYPE_VAR_INT32:
case TYPE_ARRAY_INT32:
sprintf(buf + i, "%d",
VAR_OFFSET(_vm->_game->_script->readVarIndex()));
break;
case TYPE_VAR_STR:
case TYPE_ARRAY_STR:
sprintf(buf + i, "%s",
GET_VARO_STR(_vm->_game->_script->readVarIndex()));
break;
}
_vm->_game->_script->skip(1);
} else
buf[i] = 0;
_vm->_draw->spriteOperation(DRAW_PRINTTEXT);
} while (_vm->_game->_script->peekByte() != 200);
_vm->_game->_script->skip(1);
}
void Inter_v1::o1_loadTot(OpFuncParams &params) {
char buf[20];
int8 size;
if ((_vm->_game->_script->peekByte() & 0x80) != 0) {
_vm->_game->_script->skip(1);
_vm->_game->_script->evalExpr(0);
Common::strlcpy(buf, _vm->_game->_script->getResultStr(), 16);
} else {
size = _vm->_game->_script->readInt8();
memcpy(buf, _vm->_game->_script->readString(size), size);
buf[size] = '\0';
}
// if (_vm->getGameType() == kGameTypeGeisha)
// strcat(buf, ".0ot");
// else
strcat(buf, ".tot");
if (_terminate != 2)
_terminate = 1;
strcpy(_vm->_game->_totToLoad, buf);
}
void Inter_v1::o1_palLoad(OpFuncParams &params) {
int index1, index2;
int16 id;
byte cmd;
Resource *resource;
cmd = _vm->_game->_script->readByte();
switch (cmd & 0x7F) {
case 48:
if ((_vm->_global->_fakeVideoMode < 0x32) ||
(_vm->_global->_fakeVideoMode > 0x63)) {
_vm->_game->_script->skip(48);
return;
}
break;
case 49:
if ((_vm->_global->_fakeVideoMode != 5) &&
(_vm->_global->_fakeVideoMode != 7)) {
_vm->_game->_script->skip(18);
return;
}
break;
case 50:
if (_vm->_global->_colorCount == 256) {
_vm->_game->_script->skip(16);
return;
}
break;
case 51:
if (_vm->_global->_fakeVideoMode < 0x64) {
_vm->_game->_script->skip(2);
return;
}
break;
case 52:
if (_vm->_global->_colorCount == 256) {
_vm->_game->_script->skip(48);
return;
}
break;
case 53:
if (_vm->_global->_colorCount != 256) {
_vm->_game->_script->skip(2);
return;
}
break;
case 54:
if (_vm->_global->_fakeVideoMode < 0x13) {
return;
}
break;
case 61:
if (_vm->_global->_fakeVideoMode < 0x13) {
_vm->_game->_script->skip(4);
return;
}
break;
}
if ((cmd & 0x7F) == 0x30) {
_vm->_game->_script->skip(48);
return;
}
_vm->_draw->_applyPal = !(cmd & 0x80);
cmd &= 0x7F;
if (cmd == 49) {
bool allZero = true;
for (int i = 2; i < 18; i++) {
if (_vm->_game->_script->peekByte(i) != 0) {
allZero = false;
break;
}
}
if (!allZero) {
_vm->_draw->_frontSurface->clear();
_vm->_draw->_noInvalidated57 = true;
_vm->_game->_script->skip(48);
return;
}
_vm->_draw->_noInvalidated57 = false;
for (int i = 0; i < 18; i++) {
if (i < 2) {
if (!_vm->_draw->_applyPal)
continue;
_vm->_draw->_unusedPalette1[i] = _vm->_game->_script->peekByte();
continue;
}
index1 = _vm->_game->_script->peekByte() >> 4;
index2 = _vm->_game->_script->peekByte() & 0xF;
_vm->_draw->_unusedPalette1[i] =
((_vm->_draw->_palLoadData1[index1] +
_vm->_draw->_palLoadData2[index2]) << 8) +
(_vm->_draw->_palLoadData2[index1] +
_vm->_draw->_palLoadData1[index2]);
_vm->_game->_script->skip(1);
}
_vm->_global->_pPaletteDesc->unused1 = _vm->_draw->_unusedPalette1;
_vm->_video->setFullPalette(_vm->_global->_pPaletteDesc);
return;
}
switch (cmd) {
case 50:
for (int i = 0; i < 16; i++)
_vm->_draw->_unusedPalette2[i] = _vm->_game->_script->readByte();
break;
case 52:
for (int i = 0; i < 16; i++) {
_vm->_draw->_vgaPalette[i].red = _vm->_game->_script->readByte();
_vm->_draw->_vgaPalette[i].green = _vm->_game->_script->readByte();
_vm->_draw->_vgaPalette[i].blue = _vm->_game->_script->readByte();
}
break;
case 53:
resource = _vm->_game->_resources->getResource(_vm->_game->_script->readInt16());
if (!resource)
break;
memcpy((char *)_vm->_draw->_vgaPalette, resource->getData(), MIN<int>(768, resource->getSize()));
delete resource;
break;
case 54:
memset((char *)_vm->_draw->_vgaPalette, 0, 768);
break;
case 61:
index1 = _vm->_game->_script->readByte();
index2 = (_vm->_game->_script->readByte() - index1 + 1) * 3;
id = _vm->_game->_script->readInt16();
resource = _vm->_game->_resources->getResource(id);
if (!resource)
break;
memcpy((char *)_vm->_draw->_vgaPalette + index1 * 3,
resource->getData() + index1 * 3, index2);
delete resource;
// WORKAROUND: The Last Dynasty overwrites the 0. palette entry but depends on it staying black.
if ((_vm->getGameType() == kGameTypeDynasty) && (index1 == 0)) {
_vm->_draw->_vgaPalette[0].red = 0;
_vm->_draw->_vgaPalette[0].green = 0;
_vm->_draw->_vgaPalette[0].blue = 0;
}
if (_vm->_draw->_applyPal) {
_vm->_draw->_applyPal = false;
_vm->_video->setFullPalette(_vm->_global->_pPaletteDesc);
return;
}
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 = _vm->_draw->_vgaPalette;
_vm->_palAnim->fade(_vm->_global->_pPaletteDesc, 0, 0);
return;
}
if ((_vm->_global->_videoMode < 0x32) ||
(_vm->_global->_videoMode >= 0x64)) {
_vm->_global->_pPaletteDesc->vgaPal = _vm->_draw->_vgaPalette;
_vm->_palAnim->fade(_vm->_global->_pPaletteDesc, 0, 0);
return;
}
_vm->_global->_pPaletteDesc->vgaPal = _vm->_draw->_vgaSmallPalette;
_vm->_palAnim->fade(_vm->_global->_pPaletteDesc, 0, 0);
}
}
void Inter_v1::o1_keyFunc(OpFuncParams &params) {
static uint32 lastCalled = 0;
int16 cmd;
int16 key;
uint32 now;
if (!_vm->_vidPlayer->isPlayingLive()) {
_vm->_draw->forceBlit();
_vm->_video->retrace();
}
cmd = _vm->_game->_script->readInt16();
animPalette();
_vm->_draw->blitInvalidated();
now = _vm->_util->getTimeKey();
if (!_noBusyWait)
if ((now - lastCalled) <= 20)
_vm->_util->longDelay(1);
lastCalled = now;
_noBusyWait = false;
// WORKAROUND for bug #1726130: Ween busy-waits in the intro for a counter
// to become 5000. We deliberately slow down busy-waiting, so we shorten
// the counting, too.
if ((_vm->getGameType() == kGameTypeWeen) && (VAR(59) < 4000) &&
(_vm->_game->_script->pos() == 729) &&
!scumm_stricmp(_vm->_game->_curTotFile, "intro5.tot"))
WRITE_VAR(59, 4000);
switch (cmd) {
case -1:
break;
case 0:
_vm->_draw->_showCursor &= ~2;
_vm->_util->longDelay(1);
key = _vm->_game->_hotspots->check(0, 0);
storeKey(key);
_vm->_util->clearKeyBuf();
break;
case 1:
if (_vm->getGameType() != kGameTypeFascination)
_vm->_util->forceMouseUp(true);
key = _vm->_game->checkKeys(&_vm->_global->_inter_mouseX,
&_vm->_global->_inter_mouseY, &_vm->_game->_mouseButtons, 0);
storeKey(key);
break;
case 2:
_vm->_util->processInput(true);
key = _vm->_util->checkKey();
WRITE_VAR(0, key);
_vm->_util->clearKeyBuf();
break;
default:
_vm->_sound->speakerOnUpdate(cmd);
if (cmd < 20) {
_vm->_util->delay(cmd);
_noBusyWait = true;
} else
_vm->_util->longDelay(cmd);
break;
}
}
void Inter_v1::o1_capturePush(OpFuncParams &params) {
int16 left, top;
int16 width, height;
left = _vm->_game->_script->readValExpr();
top = _vm->_game->_script->readValExpr();
width = _vm->_game->_script->readValExpr();
height = _vm->_game->_script->readValExpr();
if ((width < 0) || (height < 0))
return;
_vm->_game->capturePush(left, top, width, height);
(*_vm->_scenery->_pCaptureCounter)++;
}
void Inter_v1::o1_capturePop(OpFuncParams &params) {
if (*_vm->_scenery->_pCaptureCounter != 0) {
(*_vm->_scenery->_pCaptureCounter)--;
_vm->_game->capturePop(1);
}
}
void Inter_v1::o1_animPalInit(OpFuncParams &params) {
_animPalDir[0] = _vm->_game->_script->readInt16();
_animPalLowIndex[0] = _vm->_game->_script->readValExpr();
_animPalHighIndex[0] = _vm->_game->_script->readValExpr();
}
void Inter_v1::o1_drawOperations(OpFuncParams &params) {
byte cmd;
cmd = _vm->_game->_script->readByte();
executeOpcodeDraw(cmd);
}
void Inter_v1::o1_setcmdCount(OpFuncParams &params) {
params.cmdCount = _vm->_game->_script->readByte();
params.counter = 0;
}
void Inter_v1::o1_return(OpFuncParams &params) {
if (params.retFlag != 2)
_break = true;
_vm->_game->_script->setFinished(true);
params.doReturn = true;
}
void Inter_v1::o1_renewTimeInVars(OpFuncParams &params) {
renewTimeInVars();
}
void Inter_v1::o1_speakerOn(OpFuncParams &params) {
_vm->_sound->speakerOn(_vm->_game->_script->readValExpr(), -1);
}
void Inter_v1::o1_speakerOff(OpFuncParams &params) {
_vm->_sound->speakerOff();
}
void Inter_v1::o1_putPixel(OpFuncParams &params) {
_vm->_draw->_destSurface = _vm->_game->_script->readInt16();
_vm->_draw->_destSpriteX = _vm->_game->_script->readValExpr();
_vm->_draw->_destSpriteY = _vm->_game->_script->readValExpr();
_vm->_draw->_frontColor = _vm->_game->_script->readValExpr();
_vm->_draw->spriteOperation(DRAW_PUTPIXEL);
}
void Inter_v1::o1_goblinFunc(OpFuncParams &params) {
OpGobParams gobParams;
bool objDescSet = false;
int16 cmd;
gobParams.extraData = 0;
gobParams.objDesc = 0;
gobParams.retVarPtr.set(*_variables, 236);
cmd = _vm->_game->_script->readInt16();
gobParams.paramCount = _vm->_game->_script->readInt16();
if ((cmd > 0) && (cmd < 17)) {
objDescSet = true;
gobParams.extraData = _vm->_game->_script->readInt16();
gobParams.objDesc = _vm->_goblin->_objects[gobParams.extraData];
gobParams.extraData = _vm->_game->_script->readInt16();
}
if ((cmd > 90) && (cmd < 107)) {
objDescSet = true;
gobParams.extraData = _vm->_game->_script->readInt16();
gobParams.objDesc = _vm->_goblin->_goblins[gobParams.extraData];
gobParams.extraData = _vm->_game->_script->readInt16();
cmd -= 90;
}
if ((cmd > 110) && (cmd < 128)) {
objDescSet = true;
gobParams.extraData = _vm->_game->_script->readInt16();
gobParams.objDesc = _vm->_goblin->_goblins[gobParams.extraData];
cmd -= 90;
} else if ((cmd > 20) && (cmd < 38)) {
objDescSet = true;
gobParams.extraData = _vm->_game->_script->readInt16();
gobParams.objDesc = _vm->_goblin->_objects[gobParams.extraData];
}
/*
NB: The original gobliiins engine did not initialize the gobParams.objDesc
variable, so we manually check if gobParams.objDesc is properly set before
checking if it is zero. If it was not set, we do not return. This
fixes a crash in the EGA version if the life bar is depleted, because
interFunc is called multiple times with cmd == 39.
Bug #1324814
*/
if ((cmd < 40) && objDescSet && !gobParams.objDesc)
return;
executeOpcodeGob(cmd, gobParams);
}
void Inter_v1::o1_createSprite(OpFuncParams &params) {
int16 index;
int16 width, height;
int16 flag;
if (_vm->_game->_script->peekByte(1) == 0) {
index = _vm->_game->_script->readInt16();
width = _vm->_game->_script->readInt16();
height = _vm->_game->_script->readInt16();
} else {
index = _vm->_game->_script->readValExpr();
width = _vm->_game->_script->readValExpr();
height = _vm->_game->_script->readValExpr();
}
flag = _vm->_game->_script->readInt16();
_vm->_draw->initSpriteSurf(index, width, height, flag ? 2 : 0);
}
void Inter_v1::o1_freeSprite(OpFuncParams &params) {
_vm->_draw->freeSprite(_vm->_game->_script->readInt16());
}
void Inter_v1::o1_returnTo(OpFuncParams &params) {
if (params.retFlag == 1) {
_break = true;
_vm->_game->_script->setFinished(true);
params.doReturn = true;
return;
}
if (*_nestLevel == 0)
return;
*_breakFromLevel = *_nestLevel;
_break = true;
_vm->_game->_script->setFinished(true);
params.doReturn = true;
}
void Inter_v1::o1_loadSpriteContent(OpFuncParams &params) {
_vm->_draw->_spriteLeft = _vm->_game->_script->readInt16();
_vm->_draw->_destSurface = _vm->_game->_script->readInt16();
_vm->_draw->_transparency = _vm->_game->_script->readInt16();
_vm->_draw->_destSpriteX = 0;
_vm->_draw->_destSpriteY = 0;
_vm->_draw->spriteOperation(DRAW_LOADSPRITE);
}
void Inter_v1::o1_copySprite(OpFuncParams &params) {
if (_vm->_game->_script->peekByte(1) == 0)
_vm->_draw->_sourceSurface = _vm->_game->_script->readInt16();
else
_vm->_draw->_sourceSurface = _vm->_game->_script->readValExpr();
if (_vm->_game->_script->peekByte(1) == 0)
_vm->_draw->_destSurface = _vm->_game->_script->readInt16();
else
_vm->_draw->_destSurface = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteLeft = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteTop = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteRight = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteBottom = _vm->_game->_script->readValExpr();
_vm->_draw->_destSpriteX = _vm->_game->_script->readValExpr();
_vm->_draw->_destSpriteY = _vm->_game->_script->readValExpr();
_vm->_draw->_transparency = _vm->_game->_script->readInt16();
_vm->_draw->spriteOperation(DRAW_BLITSURF);
}
void Inter_v1::o1_fillRect(OpFuncParams &params) {
int16 destSurf;
_vm->_draw->_destSurface = destSurf = _vm->_game->_script->readInt16();
_vm->_draw->_destSpriteX = _vm->_game->_script->readValExpr();
_vm->_draw->_destSpriteY = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteRight = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteBottom = _vm->_game->_script->readValExpr();
_vm->_draw->_backColor = _vm->_game->_script->readValExpr();
if (!_vm->_draw->_spritesArray[(destSurf >= 100) ? (destSurf - 80) : destSurf])
return;
if (_vm->_draw->_spriteRight < 0) {
_vm->_draw->_destSpriteX += _vm->_draw->_spriteRight - 1;
_vm->_draw->_spriteRight = -_vm->_draw->_spriteRight + 2;
}
if (_vm->_draw->_spriteBottom < 0) {
_vm->_draw->_destSpriteY += _vm->_draw->_spriteBottom - 1;
_vm->_draw->_spriteBottom = -_vm->_draw->_spriteBottom + 2;
}
_vm->_draw->spriteOperation(DRAW_FILLRECT);
}
void Inter_v1::o1_drawLine(OpFuncParams &params) {
_vm->_draw->_destSurface = _vm->_game->_script->readInt16();
_vm->_draw->_destSpriteX = _vm->_game->_script->readValExpr();
_vm->_draw->_destSpriteY = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteRight = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteBottom = _vm->_game->_script->readValExpr();
_vm->_draw->_frontColor = _vm->_game->_script->readValExpr();
_vm->_draw->spriteOperation(DRAW_DRAWLINE);
}
void Inter_v1::o1_strToLong(OpFuncParams &params) {
char str[20];
int16 strVar;
int16 destVar;
int32 res;
strVar = _vm->_game->_script->readVarIndex();
Common::strlcpy(str, GET_VARO_STR(strVar), 20);
res = atoi(str);
destVar = _vm->_game->_script->readVarIndex();
WRITE_VAR_OFFSET(destVar, res);
}
void Inter_v1::o1_invalidate(OpFuncParams &params) {
_vm->_draw->_destSurface = _vm->_game->_script->readInt16();
_vm->_draw->_destSpriteX = _vm->_game->_script->readValExpr();
_vm->_draw->_destSpriteY = _vm->_game->_script->readValExpr();
_vm->_draw->_spriteRight = _vm->_game->_script->readValExpr();
_vm->_draw->_frontColor = _vm->_game->_script->readValExpr();
_vm->_draw->spriteOperation(DRAW_INVALIDATE);
}
void Inter_v1::o1_setBackDelta(OpFuncParams &params) {
_vm->_draw->_backDeltaX = _vm->_game->_script->readValExpr();
_vm->_draw->_backDeltaY = _vm->_game->_script->readValExpr();
}
void Inter_v1::o1_playSound(OpFuncParams &params) {
int16 frequency;
int16 freq2;
int16 repCount;
int16 index;
int16 endRep;
index = _vm->_game->_script->readValExpr();
repCount = _vm->_game->_script->readValExpr();
frequency = _vm->_game->_script->readValExpr();
SoundDesc *sample = _vm->_sound->sampleGetBySlot(index);
_soundEndTimeKey = 0;
if (!sample || sample->empty())
return;
if (repCount < 0) {
if (_vm->_global->_soundFlags < 2)
return;
repCount = -repCount;
_soundEndTimeKey = _vm->_util->getTimeKey();
freq2 = frequency ? frequency : sample->_frequency;
endRep = MAX(repCount - 1, 1);
_soundStopVal = sample->calcFadeOutLength(freq2);
_soundEndTimeKey += sample->calcLength(endRep, freq2, true);
}
if (sample->getType() == SOUND_ADL) {
_vm->_sound->adlibLoadADL(sample->getData(), sample->size(), index);
_vm->_sound->adlibSetRepeating(repCount - 1);
_vm->_sound->adlibPlay();
} else {
_vm->_sound->blasterStop(0);
_vm->_sound->blasterPlay(sample, repCount - 1, frequency);
}
}
void Inter_v1::o1_stopSound(OpFuncParams &params) {
_vm->_sound->adlibStop();
_vm->_sound->blasterStop(_vm->_game->_script->readValExpr());
_soundEndTimeKey = 0;
}
void Inter_v1::o1_loadSound(OpFuncParams &params) {
loadSound(-1);
}
void Inter_v1::o1_freeSoundSlot(OpFuncParams &params) {
_vm->_game->freeSoundSlot(-1);
}
void Inter_v1::o1_waitEndPlay(OpFuncParams &params) {
_vm->_sound->blasterWaitEndPlay();
}
void Inter_v1::o1_playComposition(OpFuncParams &params) {
int16 composition[50];
int16 dataVar;
int16 freqVal;
dataVar = _vm->_game->_script->readVarIndex();
freqVal = _vm->_game->_script->readValExpr();
for (int i = 0; i < 50; i++)
composition[i] = (int16) VAR_OFFSET(dataVar + i * 4);
_vm->_sound->blasterPlayComposition(composition, freqVal);
}
void Inter_v1::o1_getFreeMem(OpFuncParams &params) {
int16 freeVar;
int16 maxFreeVar;
freeVar = _vm->_game->_script->readVarIndex();
maxFreeVar = _vm->_game->_script->readVarIndex();
// HACK
WRITE_VAR_OFFSET(freeVar, 1000000);
WRITE_VAR_OFFSET(maxFreeVar, 1000000);
}
void Inter_v1::o1_checkData(OpFuncParams &params) {
int16 varOff;
_vm->_game->_script->evalExpr(0);
varOff = _vm->_game->_script->readVarIndex();
if (!_vm->_dataIO->hasFile(_vm->_game->_script->getResultStr())) {
warning("File \"%s\" not found", _vm->_game->_script->getResultStr());
WRITE_VAR_OFFSET(varOff, (uint32) -1);
} else
WRITE_VAR_OFFSET(varOff, 50); // "handle" between 50 and 128 = in archive
}
void Inter_v1::o1_cleanupStr(OpFuncParams &params) {
int16 strVar;
strVar = _vm->_game->_script->readVarIndex();
_vm->_util->cleanupStr(GET_VARO_FSTR(strVar));
}
void Inter_v1::o1_insertStr(OpFuncParams &params) {
int16 pos;
int16 strVar;
strVar = _vm->_game->_script->readVarIndex();
_vm->_game->_script->evalExpr(0);
pos = _vm->_game->_script->readValExpr();
char *str = GET_VARO_FSTR(strVar);
_vm->_util->insertStr(_vm->_game->_script->getResultStr(), str, pos);
}
void Inter_v1::o1_cutStr(OpFuncParams &params) {
int16 strVar;
int16 pos;
int16 size;
strVar = _vm->_game->_script->readVarIndex();
pos = _vm->_game->_script->readValExpr();
size = _vm->_game->_script->readValExpr();
_vm->_util->cutFromStr(GET_VARO_STR(strVar), pos, size);
}
void Inter_v1::o1_strstr(OpFuncParams &params) {
int16 strVar;
int16 resVar;
int16 pos;
strVar = _vm->_game->_script->readVarIndex();
_vm->_game->_script->evalExpr(0);
resVar = _vm->_game->_script->readVarIndex();
char *res = strstr(GET_VARO_STR(strVar), _vm->_game->_script->getResultStr());
pos = res ? (res - (GET_VARO_STR(strVar))) : -1;
WRITE_VAR_OFFSET(resVar, pos);
}
void Inter_v1::o1_istrlen(OpFuncParams &params) {
int16 len;
int16 strVar;
strVar = _vm->_game->_script->readVarIndex();
len = strlen(GET_VARO_STR(strVar));
strVar = _vm->_game->_script->readVarIndex();
WRITE_VAR_OFFSET(strVar, len);
}
void Inter_v1::o1_setMousePos(OpFuncParams &params) {
_vm->_global->_inter_mouseX = _vm->_game->_script->readValExpr();
_vm->_global->_inter_mouseY = _vm->_game->_script->readValExpr();
_vm->_global->_inter_mouseX -= _vm->_video->_scrollOffsetX;
_vm->_global->_inter_mouseY -= _vm->_video->_scrollOffsetY;
if (_vm->_global->_useMouse != 0)
_vm->_util->setMousePos(_vm->_global->_inter_mouseX,
_vm->_global->_inter_mouseY);
}
void Inter_v1::o1_setFrameRate(OpFuncParams &params) {
_vm->_util->setFrameRate(_vm->_game->_script->readValExpr());
}
void Inter_v1::o1_animatePalette(OpFuncParams &params) {
_vm->_draw->blitInvalidated();
_vm->_util->waitEndFrame();
animPalette();
storeKey(_vm->_game->checkKeys(&_vm->_global->_inter_mouseX,
&_vm->_global->_inter_mouseY, &_vm->_game->_mouseButtons, 0));
}
void Inter_v1::o1_animateCursor(OpFuncParams &params) {
_vm->_draw->animateCursor(1);
}
void Inter_v1::o1_blitCursor(OpFuncParams &params) {
_vm->_draw->blitCursor();
}
void Inter_v1::o1_loadFont(OpFuncParams &params) {
_vm->_game->_script->evalExpr(0);
uint16 index = _vm->_game->_script->readInt16();
_vm->_draw->animateCursor(4);
_vm->_draw->loadFont(index, _vm->_game->_script->getResultStr());
}
void Inter_v1::o1_freeFont(OpFuncParams &params) {
int16 index;
index = _vm->_game->_script->readInt16();
if (index >= Draw::kFontCount) {
warning("o1_freeFont(): Index %d > count %d", index, Draw::kFontCount);
return;
}
delete _vm->_draw->_fonts[index];
_vm->_draw->_fonts[index] = 0;
}
void Inter_v1::o1_readData(OpFuncParams &params) {
int16 retSize;
int16 size;
int16 dataVar;
int16 offset;
_vm->_game->_script->evalExpr(0);
dataVar = _vm->_game->_script->readVarIndex();
size = _vm->_game->_script->readValExpr();
offset = _vm->_game->_script->readValExpr();
retSize = 0;
WRITE_VAR(1, 1);
Common::SeekableReadStream *stream = _vm->_dataIO->getFile(_vm->_game->_script->getResultStr());
if (!stream)
return;
_vm->_draw->animateCursor(4);
if (offset < 0)
stream->seek(offset + 1, SEEK_END);
else
stream->seek(offset);
if (((dataVar >> 2) == 59) && (size == 4))
WRITE_VAR(59, stream->readUint32LE());
else
retSize = stream->read((byte *)_variables->getAddressOff8(dataVar), size);
if (retSize == size)
WRITE_VAR(1, 0);
delete stream;
}
void Inter_v1::o1_writeData(OpFuncParams &params) {
int16 offset;
int16 size;
int16 dataVar;
// This writes into a file. It's not portable and isn't needed anyway
// (Gobliiins 1 doesn't use save file), so we just warn should it be
// called regardless.
_vm->_game->_script->evalExpr(0);
dataVar = _vm->_game->_script->readVarIndex();
size = _vm->_game->_script->readValExpr();
offset = _vm->_game->_script->readValExpr();
warning("Attempted to write to file \"%s\"", _vm->_game->_script->getResultStr());
WRITE_VAR(1, 0);
}
void Inter_v1::o1_manageDataFile(OpFuncParams &params) {
_vm->_game->_script->evalExpr(0);
if (_vm->_game->_script->getResultStr()[0] != 0)
_vm->_dataIO->openArchive(_vm->_game->_script->getResultStr(), true);
else
_vm->_dataIO->closeArchive(true);
}
void Inter_v1::o1_setState(OpGobParams &params) {
params.objDesc->state = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemStateVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setCurFrame(OpGobParams &params) {
params.objDesc->curFrame = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemFrameVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setNextState(OpGobParams &params) {
params.objDesc->nextState = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemNextStateVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setMultState(OpGobParams &params) {
params.objDesc->multState = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemMultStateVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setOrder(OpGobParams &params) {
params.objDesc->order = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemOrderVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setActionStartState(OpGobParams &params) {
params.objDesc->actionStartState = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemActStartStVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setCurLookDir(OpGobParams &params) {
params.objDesc->curLookDir = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemLookDirVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setType(OpGobParams &params) {
params.objDesc->type = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemTypeVarPtr = (uint32) params.extraData;
if (params.extraData == 0)
params.objDesc->toRedraw = 1;
}
void Inter_v1::o1_setNoTick(OpGobParams &params) {
params.objDesc->noTick = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemNoTickVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setPickable(OpGobParams &params) {
params.objDesc->pickable = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemPickableVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setXPos(OpGobParams &params) {
params.objDesc->xPos = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemScrXVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setYPos(OpGobParams &params) {
params.objDesc->yPos = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemScrYVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setDoAnim(OpGobParams &params) {
params.objDesc->doAnim = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemDoAnimVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setRelaxTime(OpGobParams &params) {
params.objDesc->relaxTime = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemRelaxVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_setMaxTick(OpGobParams &params) {
params.objDesc->maxTick = params.extraData;
if (params.objDesc == _vm->_goblin->_actDestItemDesc)
_vm->_goblin->_destItemMaxTickVarPtr = (uint32) params.extraData;
}
void Inter_v1::o1_getState(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->state;
}
void Inter_v1::o1_getCurFrame(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->curFrame;
}
void Inter_v1::o1_getNextState(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->nextState;
}
void Inter_v1::o1_getMultState(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->multState;
}
void Inter_v1::o1_getOrder(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->order;
}
void Inter_v1::o1_getActionStartState(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->actionStartState;
}
void Inter_v1::o1_getCurLookDir(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->curLookDir;
}
void Inter_v1::o1_getType(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->type;
}
void Inter_v1::o1_getNoTick(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->noTick;
}
void Inter_v1::o1_getPickable(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->pickable;
}
void Inter_v1::o1_getObjMaxFrame(OpGobParams &params) {
params.retVarPtr = (uint32) _vm->_goblin->getObjMaxFrame(params.objDesc);
}
void Inter_v1::o1_getXPos(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->xPos;
}
void Inter_v1::o1_getYPos(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->yPos;
}
void Inter_v1::o1_getDoAnim(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->doAnim;
}
void Inter_v1::o1_getRelaxTime(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->relaxTime;
}
void Inter_v1::o1_getMaxTick(OpGobParams &params) {
params.retVarPtr = (uint32) params.objDesc->maxTick;
}
void Inter_v1::o1_manipulateMap(OpGobParams &params) {
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
int16 item = _vm->_game->_script->readInt16();
manipulateMap(xPos, yPos, item);
}
void Inter_v1::o1_getItem(OpGobParams &params) {
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
if ((_vm->_map->getItem(xPos, yPos) & 0xFF00) != 0)
params.retVarPtr = (uint32) ((_vm->_map->getItem(xPos, yPos) & 0xFF00) >> 8);
else
params.retVarPtr = (uint32) _vm->_map->getItem(xPos, yPos);
}
void Inter_v1::o1_manipulateMapIndirect(OpGobParams &params) {
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
int16 item = _vm->_game->_script->readInt16();
xPos = VAR(xPos);
yPos = VAR(yPos);
item = VAR(item);
manipulateMap(xPos, yPos, item);
}
void Inter_v1::o1_getItemIndirect(OpGobParams &params) {
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
xPos = VAR(xPos);
yPos = VAR(yPos);
if ((_vm->_map->getItem(xPos, yPos) & 0xFF00) != 0)
params.retVarPtr = (uint32) ((_vm->_map->getItem(xPos, yPos) & 0xFF00) >> 8);
else
params.retVarPtr = (uint32) _vm->_map->getItem(xPos, yPos);
}
void Inter_v1::o1_setPassMap(OpGobParams &params) {
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
int16 val = _vm->_game->_script->readInt16();
_vm->_map->setPass(xPos, yPos, val);
}
void Inter_v1::o1_setGoblinPosH(OpGobParams &params) {
int16 layer;
int16 item = _vm->_game->_script->readInt16();
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
_vm->_goblin->_gobPositions[item].x = xPos * 2;
_vm->_goblin->_gobPositions[item].y = yPos * 2;
params.objDesc = _vm->_goblin->_goblins[item];
params.objDesc->nextState = 21;
_vm->_goblin->nextLayer(params.objDesc);
layer = params.objDesc->stateMach[params.objDesc->state][0]->layer;
_vm->_scenery->updateAnim(layer, 0, params.objDesc->animation, 0,
params.objDesc->xPos, params.objDesc->yPos, 0);
params.objDesc->yPos = (_vm->_goblin->_gobPositions[item].y * 6 + 6) -
(_vm->_scenery->_toRedrawBottom - _vm->_scenery->_animTop);
params.objDesc->xPos =
_vm->_goblin->_gobPositions[item].x * 12 -
(_vm->_scenery->_toRedrawLeft - _vm->_scenery->_animLeft);
params.objDesc->curFrame = 0;
params.objDesc->state = 21;
if (_vm->_goblin->_currentGoblin == item) {
_vm->_goblin->_curGobScrXVarPtr = (uint32) params.objDesc->xPos;
_vm->_goblin->_curGobScrYVarPtr = (uint32) params.objDesc->yPos;
_vm->_goblin->_curGobFrameVarPtr = 0;
_vm->_goblin->_curGobStateVarPtr = 18;
_vm->_goblin->_pressedMapX = _vm->_goblin->_gobPositions[item].x;
_vm->_goblin->_pressedMapY = _vm->_goblin->_gobPositions[item].y;
}
}
void Inter_v1::o1_getGoblinPosXH(OpGobParams &params) {
int16 item = _vm->_game->_script->readInt16();
params.retVarPtr = (uint32) (_vm->_goblin->_gobPositions[item].x >> 1);
}
void Inter_v1::o1_getGoblinPosYH(OpGobParams &params) {
int16 item = _vm->_game->_script->readInt16();
params.retVarPtr = (uint32) (_vm->_goblin->_gobPositions[item].y >> 1);
}
void Inter_v1::o1_setGoblinMultState(OpGobParams &params) {
int16 layer;
int16 item = _vm->_game->_script->readInt16();
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
params.objDesc = _vm->_goblin->_goblins[item];
if (yPos == 0) {
params.objDesc->multState = xPos;
params.objDesc->nextState = xPos;
_vm->_goblin->nextLayer(params.objDesc);
layer = params.objDesc->stateMach[params.objDesc->state][0]->layer;
Scenery::AnimLayer *animLayer =
_vm->_scenery->getAnimLayer(params.objDesc->animation, layer);
params.objDesc->xPos = animLayer->posX;
params.objDesc->yPos = animLayer->posY;
_vm->_goblin->_curGobScrXVarPtr = (uint32) params.objDesc->xPos;
_vm->_goblin->_curGobScrYVarPtr = (uint32) params.objDesc->yPos;
_vm->_goblin->_curGobFrameVarPtr = 0;
_vm->_goblin->_curGobStateVarPtr = (uint32) params.objDesc->state;
_vm->_goblin->_curGobNextStateVarPtr = (uint32) params.objDesc->nextState;
_vm->_goblin->_curGobMultStateVarPtr = (uint32) params.objDesc->multState;
_vm->_goblin->_curGobMaxFrameVarPtr =
(uint32) _vm->_goblin->getObjMaxFrame(params.objDesc);
_vm->_goblin->_noPick = 1;
return;
}
params.objDesc->multState = 21;
params.objDesc->nextState = 21;
params.objDesc->state = 21;
_vm->_goblin->nextLayer(params.objDesc);
layer = params.objDesc->stateMach[params.objDesc->state][0]->layer;
_vm->_scenery->updateAnim(layer, 0, params.objDesc->animation, 0,
params.objDesc->xPos, params.objDesc->yPos, 0);
params.objDesc->yPos = (yPos * 6 + 6) -
(_vm->_scenery->_toRedrawBottom - _vm->_scenery->_animTop);
params.objDesc->xPos = xPos * 12 -
(_vm->_scenery->_toRedrawLeft - _vm->_scenery->_animLeft);
_vm->_goblin->_gobPositions[item].x = xPos;
_vm->_goblin->_pressedMapX = xPos;
_vm->_map->_curGoblinX = xPos;
_vm->_goblin->_gobPositions[item].y = yPos;
_vm->_goblin->_pressedMapY = yPos;
_vm->_map->_curGoblinY = yPos;
_vm->_goblin->_curGobScrXVarPtr = (uint32) params.objDesc->xPos;
_vm->_goblin->_curGobScrYVarPtr = (uint32) params.objDesc->yPos;
_vm->_goblin->_curGobFrameVarPtr = 0;
_vm->_goblin->_curGobStateVarPtr = 21;
_vm->_goblin->_curGobNextStateVarPtr = 21;
_vm->_goblin->_curGobMultStateVarPtr = (uint32) -1;
_vm->_goblin->_noPick = 0;
}
void Inter_v1::o1_setGoblinUnk14(OpGobParams &params) {
int16 item = _vm->_game->_script->readInt16();
int16 val = _vm->_game->_script->readInt16();
params.objDesc = _vm->_goblin->_objects[item];
params.objDesc->unk14 = val;
}
void Inter_v1::o1_setItemIdInPocket(OpGobParams &params) {
_vm->_goblin->_itemIdInPocket = _vm->_game->_script->readInt16();
}
void Inter_v1::o1_setItemIndInPocket(OpGobParams &params) {
_vm->_goblin->_itemIndInPocket = _vm->_game->_script->readInt16();
}
void Inter_v1::o1_getItemIdInPocket(OpGobParams &params) {
params.retVarPtr = (uint32) _vm->_goblin->_itemIdInPocket;
}
void Inter_v1::o1_getItemIndInPocket(OpGobParams &params) {
params.retVarPtr = (uint32) _vm->_goblin->_itemIndInPocket;
}
void Inter_v1::o1_setGoblinPos(OpGobParams &params) {
int16 layer;
int16 item = _vm->_game->_script->readInt16();
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
_vm->_goblin->_gobPositions[item].x = xPos;
_vm->_goblin->_gobPositions[item].y = yPos;
params.objDesc = _vm->_goblin->_goblins[item];
params.objDesc->nextState = 21;
_vm->_goblin->nextLayer(params.objDesc);
layer = params.objDesc->stateMach[params.objDesc->state][0]->layer;
_vm->_scenery->updateAnim(layer, 0, params.objDesc->animation, 0,
params.objDesc->xPos, params.objDesc->yPos, 0);
params.objDesc->yPos = (yPos * 6 + 6) -
(_vm->_scenery->_toRedrawBottom - _vm->_scenery->_animTop);
params.objDesc->xPos = xPos * 12 -
(_vm->_scenery->_toRedrawLeft - _vm->_scenery->_animLeft);
params.objDesc->curFrame = 0;
params.objDesc->state = 21;
if (_vm->_goblin->_currentGoblin == item) {
_vm->_goblin->_curGobScrXVarPtr = (uint32) params.objDesc->xPos;
_vm->_goblin->_curGobScrYVarPtr = (uint32) params.objDesc->yPos;
_vm->_goblin->_curGobFrameVarPtr = 0;
_vm->_goblin->_curGobStateVarPtr = 18;
_vm->_goblin->_pressedMapX = _vm->_goblin->_gobPositions[item].x;
_vm->_goblin->_pressedMapY = _vm->_goblin->_gobPositions[item].y;
}
}
void Inter_v1::o1_setGoblinState(OpGobParams &params) {
int16 layer;
int16 item = _vm->_game->_script->readInt16();
int16 state = _vm->_game->_script->readInt16();
params.objDesc = _vm->_goblin->_goblins[item];
params.objDesc->nextState = state;
_vm->_goblin->nextLayer(params.objDesc);
layer = params.objDesc->stateMach[params.objDesc->state][0]->layer;
Scenery::AnimLayer *animLayer =
_vm->_scenery->getAnimLayer(params.objDesc->animation, layer);
params.objDesc->xPos = animLayer->posX;
params.objDesc->yPos = animLayer->posY;
if (item == _vm->_goblin->_currentGoblin) {
_vm->_goblin->_curGobScrXVarPtr = (uint32) params.objDesc->xPos;
_vm->_goblin->_curGobScrYVarPtr = (uint32) params.objDesc->yPos;
_vm->_goblin->_curGobFrameVarPtr = 0;
_vm->_goblin->_curGobStateVarPtr = (uint32) params.objDesc->state;
_vm->_goblin->_curGobMultStateVarPtr = (uint32) params.objDesc->multState;
}
}
void Inter_v1::o1_setGoblinStateRedraw(OpGobParams &params) {
int16 layer;
int16 item = _vm->_game->_script->readInt16();
int16 state = _vm->_game->_script->readInt16();
params.objDesc = _vm->_goblin->_objects[item];
params.objDesc->nextState = state;
_vm->_goblin->nextLayer(params.objDesc);
layer = params.objDesc->stateMach[params.objDesc->state][0]->layer;
Scenery::AnimLayer *animLayer =
_vm->_scenery->getAnimLayer(params.objDesc->animation, layer);
params.objDesc->xPos = animLayer->posX;
params.objDesc->yPos = animLayer->posY;
params.objDesc->toRedraw = 1;
params.objDesc->type = 0;
if (params.objDesc == _vm->_goblin->_actDestItemDesc) {
_vm->_goblin->_destItemScrXVarPtr = (uint32) params.objDesc->xPos;
_vm->_goblin->_destItemScrYVarPtr = (uint32) params.objDesc->yPos;
_vm->_goblin->_destItemStateVarPtr = (uint32) params.objDesc->state;
_vm->_goblin->_destItemNextStateVarPtr = (uint32) -1;
_vm->_goblin->_destItemMultStateVarPtr = (uint32) -1;
_vm->_goblin->_destItemFrameVarPtr = 0;
}
}
void Inter_v1::o1_decRelaxTime(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
params.objDesc = _vm->_goblin->_objects[params.extraData];
params.objDesc->relaxTime--;
if ((params.objDesc->relaxTime < 0) &&
(_vm->_goblin->getObjMaxFrame(params.objDesc) ==
params.objDesc->curFrame)) {
params.objDesc->relaxTime = _vm->_util->getRandom(100) + 50;
params.objDesc->curFrame = 0;
params.objDesc->toRedraw = 1;
}
}
void Inter_v1::o1_getGoblinPosX(OpGobParams &params) {
int16 item = _vm->_game->_script->readInt16();
params.retVarPtr = (uint32) _vm->_goblin->_gobPositions[item].x;
}
void Inter_v1::o1_getGoblinPosY(OpGobParams &params) {
int16 item = _vm->_game->_script->readInt16();
params.retVarPtr = (uint32) _vm->_goblin->_gobPositions[item].y;
}
void Inter_v1::o1_clearPathExistence(OpGobParams &params) {
_vm->_goblin->_pathExistence = 0;
}
void Inter_v1::o1_setGoblinVisible(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
_vm->_goblin->_goblins[params.extraData]->visible = 1;
}
void Inter_v1::o1_setGoblinInvisible(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
_vm->_goblin->_goblins[params.extraData]->visible = 0;
}
void Inter_v1::o1_getObjectIntersect(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
int16 item = _vm->_game->_script->readInt16();
params.objDesc = _vm->_goblin->_objects[params.extraData];
if (_vm->_goblin->objIntersected(params.objDesc,
_vm->_goblin->_goblins[item]))
params.retVarPtr = 1;
else
params.retVarPtr = 0;
}
void Inter_v1::o1_getGoblinIntersect(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
int16 item = _vm->_game->_script->readInt16();
params.objDesc = _vm->_goblin->_goblins[params.extraData];
if (_vm->_goblin->objIntersected(params.objDesc,
_vm->_goblin->_goblins[item]))
params.retVarPtr = 1;
else
params.retVarPtr = 0;
}
void Inter_v1::o1_setItemPos(OpGobParams &params) {
int16 item = _vm->_game->_script->readInt16();
int16 xPos = _vm->_game->_script->readInt16();
int16 yPos = _vm->_game->_script->readInt16();
int16 val = _vm->_game->_script->readInt16();
_vm->_map->_itemPoses[item].x = xPos;
_vm->_map->_itemPoses[item].y = yPos;
_vm->_map->_itemPoses[item].orient = val;
}
void Inter_v1::o1_loadObjects(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
_vm->_goblin->loadObjects(_variables->getAddressVarString(params.extraData));
}
void Inter_v1::o1_freeObjects(OpGobParams &params) {
_vm->_goblin->freeAllObjects();
}
void Inter_v1::o1_animateObjects(OpGobParams &params) {
_vm->_goblin->animateObjects();
}
void Inter_v1::o1_drawObjects(OpGobParams &params) {
_vm->_goblin->drawObjects();
_vm->_sound->adlibPlayBgMusic(); // Mac version
if (_vm->_sound->cdGetTrackPos() == -1)
_vm->_sound->cdPlayBgMusic(); // PC CD version
}
void Inter_v1::o1_loadMap(OpGobParams &params) {
_vm->_map->loadMapsInitGobs();
}
void Inter_v1::o1_moveGoblin(OpGobParams &params) {
int16 item;
params.extraData = _vm->_game->_script->readInt16();
int16 xPos = _vm->_game->_script->readInt16();
if ((uint16) VAR(xPos) == 0) {
item =
_vm->_goblin->doMove(_vm->_goblin->_goblins[_vm->_goblin->_currentGoblin],
1, (uint16) VAR(params.extraData));
} else {
item =
_vm->_goblin->doMove(_vm->_goblin->_goblins[_vm->_goblin->_currentGoblin],
1, 3);
}
if (item != 0)
_vm->_goblin->switchGoblin(item);
}
void Inter_v1::o1_switchGoblin(OpGobParams &params) {
_vm->_goblin->switchGoblin(0);
}
void Inter_v1::o1_loadGoblin(OpGobParams &params) {
_vm->_goblin->loadGobDataFromVars();
}
void Inter_v1::o1_writeTreatItem(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
int16 cmd = _vm->_game->_script->readInt16();
int16 xPos = _vm->_game->_script->readInt16();
if ((uint16) VAR(xPos) == 0) {
WRITE_VAR(cmd, _vm->_goblin->treatItem((uint16) VAR(params.extraData)));
return;
}
WRITE_VAR(cmd, _vm->_goblin->treatItem(3));
}
void Inter_v1::o1_moveGoblin0(OpGobParams &params) {
_vm->_goblin->doMove(_vm->_goblin->_goblins[_vm->_goblin->_currentGoblin],
0, 0);
}
void Inter_v1::o1_setGoblinTarget(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
if (VAR(params.extraData) != 0)
_vm->_goblin->_goesAtTarget = 1;
else
_vm->_goblin->_goesAtTarget = 0;
}
void Inter_v1::o1_setGoblinObjectsPos(OpGobParams &params) {
params.extraData = _vm->_game->_script->readInt16();
params.extraData = VAR(params.extraData);
_vm->_goblin->_objects[10]->xPos = params.extraData;
params.extraData = _vm->_game->_script->readInt16();
params.extraData = VAR(params.extraData);
_vm->_goblin->_objects[10]->yPos = params.extraData;
}
void Inter_v1::o1_initGoblin(OpGobParams &params) {
Goblin::Gob_Object *gobDesc = _vm->_goblin->_goblins[0];
int16 xPos;
int16 yPos;
int16 layer;
if (_vm->_goblin->_currentGoblin != 0) {
_vm->_goblin->_goblins[_vm->_goblin->_currentGoblin]->doAnim = 1;
_vm->_goblin->_goblins[_vm->_goblin->_currentGoblin]->nextState = 21;
_vm->_goblin->nextLayer(_vm->_goblin->_goblins[_vm->_goblin->_currentGoblin]);
_vm->_goblin->_currentGoblin = 0;
gobDesc->doAnim = 0;
gobDesc->type = 0;
gobDesc->toRedraw = 1;
_vm->_goblin->_pressedMapX = _vm->_goblin->_gobPositions[0].x;
_vm->_map->_destX = _vm->_goblin->_gobPositions[0].x;
_vm->_goblin->_gobDestX = _vm->_goblin->_gobPositions[0].x;
_vm->_goblin->_pressedMapY = _vm->_goblin->_gobPositions[0].y;
_vm->_map->_destY = _vm->_goblin->_gobPositions[0].y;
_vm->_goblin->_gobDestY = _vm->_goblin->_gobPositions[0].y;
_vm->_goblin->_curGobVarPtr = 0;
_vm->_goblin->_pathExistence = 0;
_vm->_goblin->_readyToAct = 0;
}
if ((gobDesc->state != 10) && (_vm->_goblin->_itemIndInPocket != -1) &&
(_vm->_goblin->getObjMaxFrame(gobDesc) == gobDesc->curFrame)) {
gobDesc->stateMach = gobDesc->realStateMach;
xPos = _vm->_goblin->_gobPositions[0].x;
yPos = _vm->_goblin->_gobPositions[0].y;
gobDesc->nextState = 10;
layer = _vm->_goblin->nextLayer(gobDesc);
_vm->_scenery->updateAnim(layer, 0, gobDesc->animation, 0,
gobDesc->xPos, gobDesc->yPos, 0);
gobDesc->yPos = (yPos * 6 + 6) -
(_vm->_scenery->_toRedrawBottom - _vm->_scenery->_animTop);
gobDesc->xPos = xPos * 12 -
(_vm->_scenery->_toRedrawLeft - _vm->_scenery->_animLeft);
}
if (gobDesc->state != 10)
return;
if (_vm->_goblin->_itemIndInPocket == -1)
return;
if (gobDesc->curFrame != 10)
return;
params.objDesc = _vm->_goblin->_objects[_vm->_goblin->_itemIndInPocket];
params.objDesc->type = 0;
params.objDesc->toRedraw = 1;
params.objDesc->curFrame = 0;
params.objDesc->order = gobDesc->order;
params.objDesc->animation =
params.objDesc->stateMach[params.objDesc->state][0]->animation;
layer = params.objDesc->stateMach[params.objDesc->state][0]->layer;
_vm->_scenery->updateAnim(layer, 0, params.objDesc->animation, 0,
params.objDesc->xPos, params.objDesc->yPos, 0);
params.objDesc->yPos += (_vm->_goblin->_gobPositions[0].y * 6 + 5) -
_vm->_scenery->_toRedrawBottom;
if (gobDesc->curLookDir == 4) {
params.objDesc->xPos += _vm->_goblin->_gobPositions[0].x * 12 + 14
- (_vm->_scenery->_toRedrawLeft + _vm->_scenery->_toRedrawRight) / 2;
} else {
params.objDesc->xPos += _vm->_goblin->_gobPositions[0].x * 12
- (_vm->_scenery->_toRedrawLeft + _vm->_scenery->_toRedrawRight) / 2;
}
_vm->_goblin->_itemIndInPocket = -1;
_vm->_goblin->_itemIdInPocket = -1;
_vm->_util->beep(50);
}
int16 Inter_v1::loadSound(int16 slot) {
if (slot == -1)
slot = _vm->_game->_script->readValExpr();
uint16 id = _vm->_game->_script->readUint16();
if (id == 0xFFFF) {
_vm->_game->_script->skip(9);
return 0;
}
Resource *resource = _vm->_game->_resources->getResource(id);
if (!resource)
return 0;
SoundDesc *sample = _vm->_sound->sampleGetBySlot(slot);
if (!sample)
return 0;
sample->load(SOUND_SND, resource);
return 0;
}
void Inter_v1::animPalette() {
int16 i;
Video::Color col;
if (_animPalDir[0] == 0)
return;
_vm->_video->waitRetrace();
if (_animPalDir[0] == -1) {
col = _vm->_draw->_vgaSmallPalette[_animPalLowIndex[0]];
for (i = _animPalLowIndex[0]; i < _animPalHighIndex[0]; i++)
_vm->_draw->_vgaSmallPalette[i] = _vm->_draw->_vgaSmallPalette[i + 1];
_vm->_draw->_vgaSmallPalette[_animPalHighIndex[0]] = col;
} else {
col = _vm->_draw->_vgaSmallPalette[_animPalHighIndex[0]];
for (i = _animPalHighIndex[0]; i > _animPalLowIndex[0]; i--)
_vm->_draw->_vgaSmallPalette[i] = _vm->_draw->_vgaSmallPalette[i - 1];
_vm->_draw->_vgaSmallPalette[_animPalLowIndex[0]] = col;
}
_vm->_global->_pPaletteDesc->vgaPal = _vm->_draw->_vgaSmallPalette;
_vm->_video->setFullPalette(_vm->_global->_pPaletteDesc);
}
void Inter_v1::manipulateMap(int16 xPos, int16 yPos, int16 item) {
for (int y = 0; y < _vm->_map->getMapHeight(); y++) {
for (int x = 0; x < _vm->_map->getMapWidth(); x++) {
if ((_vm->_map->getItem(x, y) & 0xFF) == item)
_vm->_map->setItem(x, y, _vm->_map->getItem(x, y) & 0xFF00);
else if (((_vm->_map->getItem(x, y) & 0xFF00) >> 8) == item)
_vm->_map->setItem(x, y, _vm->_map->getItem(x, y) & 0xFF);
}
}
if (xPos < _vm->_map->getMapWidth() - 1) {
if (yPos > 0) {
if (((_vm->_map->getItem(xPos, yPos) & 0xFF00) != 0) ||
((_vm->_map->getItem(xPos, yPos - 1) & 0xFF00) != 0) ||
((_vm->_map->getItem(xPos + 1, yPos) & 0xFF00) != 0) ||
((_vm->_map->getItem(xPos + 1, yPos - 1) & 0xFF00) != 0)) {
_vm->_map->setItem(xPos, yPos,
(_vm->_map->getItem(xPos, yPos) & 0xFF00) + item);
_vm->_map->setItem(xPos, yPos - 1,
(_vm->_map->getItem(xPos, yPos - 1) & 0xFF00) + item);
_vm->_map->setItem(xPos + 1, yPos,
(_vm->_map->getItem(xPos + 1, yPos) & 0xFF00) + item);
_vm->_map->setItem(xPos + 1, yPos - 1,
(_vm->_map->getItem(xPos + 1, yPos - 1) & 0xFF00) + item);
} else {
_vm->_map->setItem(xPos, yPos,
(_vm->_map->getItem(xPos, yPos) & 0xFF) + (item << 8));
_vm->_map->setItem(xPos, yPos - 1,
(_vm->_map->getItem(xPos, yPos - 1) & 0xFF) + (item << 8));
_vm->_map->setItem(xPos + 1, yPos,
(_vm->_map->getItem(xPos + 1, yPos) & 0xFF) + (item << 8));
_vm->_map->setItem(xPos + 1, yPos - 1,
(_vm->_map->getItem(xPos + 1, yPos - 1) & 0xFF) + (item << 8));
}
} else {
if (((_vm->_map->getItem(xPos, yPos) & 0xFF00) != 0) ||
((_vm->_map->getItem(xPos + 1, yPos) & 0xFF00) != 0)) {
_vm->_map->setItem(xPos, yPos,
(_vm->_map->getItem(xPos, yPos) & 0xFF00) + item);
_vm->_map->setItem(xPos + 1, yPos,
(_vm->_map->getItem(xPos + 1, yPos) & 0xFF00) + item);
} else {
_vm->_map->setItem(xPos, yPos,
(_vm->_map->getItem(xPos, yPos) & 0xFF) + (item << 8));
_vm->_map->setItem(xPos + 1, yPos,
(_vm->_map->getItem(xPos + 1, yPos) & 0xFF) + (item << 8));
}
}
} else {
if (yPos > 0) {
if (((_vm->_map->getItem(xPos, yPos) & 0xFF00) != 0) ||
((_vm->_map->getItem(xPos, yPos - 1) & 0xFF00) != 0)) {
_vm->_map->setItem(xPos, yPos,
(_vm->_map->getItem(xPos, yPos) & 0xFF00) + item);
_vm->_map->setItem(xPos, yPos - 1,
(_vm->_map->getItem(xPos, yPos - 1) & 0xFF00) + item);
} else {
_vm->_map->setItem(xPos, yPos,
(_vm->_map->getItem(xPos, yPos) & 0xFF) + (item << 8));
_vm->_map->setItem(xPos, yPos - 1,
(_vm->_map->getItem(xPos, yPos - 1) & 0xFF) + (item << 8));
}
} else {
if ((_vm->_map->getItem(xPos, yPos) & 0xFF00) != 0) {
_vm->_map->setItem(xPos, yPos,
(_vm->_map->getItem(xPos, yPos) & 0xFF00) + item);
} else {
_vm->_map->setItem(xPos, yPos,
(_vm->_map->getItem(xPos, yPos) & 0xFF) + (item << 8));
}
}
}
if ((item < 0) || (item >= 20))
return;
if ((xPos > 1) && (_vm->_map->getPass(xPos - 2, yPos) == 1)) {
_vm->_map->_itemPoses[item].x = xPos - 2;
_vm->_map->_itemPoses[item].y = yPos;
_vm->_map->_itemPoses[item].orient = 4;
return;
}
if ((xPos < _vm->_map->getMapWidth() - 2) &&
(_vm->_map->getPass(xPos + 2, yPos) == 1)) {
_vm->_map->_itemPoses[item].x = xPos + 2;
_vm->_map->_itemPoses[item].y = yPos;
_vm->_map->_itemPoses[item].orient = 0;
return;
}
if ((xPos < _vm->_map->getMapWidth() - 1) &&
(_vm->_map->getPass(xPos + 1, yPos) == 1)) {
_vm->_map->_itemPoses[item].x = xPos + 1;
_vm->_map->_itemPoses[item].y = yPos;
_vm->_map->_itemPoses[item].orient = 0;
return;
}
if ((xPos > 0) && (_vm->_map->getPass(xPos - 1, yPos) == 1)) {
_vm->_map->_itemPoses[item].x = xPos - 1;
_vm->_map->_itemPoses[item].y = yPos;
_vm->_map->_itemPoses[item].orient = 4;
return;
}
}
} // End of namespace Gob