libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-27 12:16:59 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
6b348c03d5
scummvm/engines/scumm/he/script_v100he.cpp
Travis Howell eb86007b31 Add code for stopping video playback in HE100 games 
svn-id: r24858
2006-12-15 23:54:42 +00:00

3005 lines
62 KiB
C++
Raw Blame History

/* ScummVM - Scumm Interpreter
* Copyright (C) 2001 Ludvig Strigeus
* Copyright (C) 2001-2006 The ScummVM project
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
* $URL$
* $Id$
*
*/
#include "common/stdafx.h"
#include "common/system.h"
#include "scumm/actor.h"
#include "scumm/charset.h"
#include "scumm/he/animation_he.h"
#include "scumm/he/intern_he.h"
#include "scumm/object.h"
#include "scumm/resource.h"
#include "scumm/he/resource_he.h"
#include "scumm/scumm.h"
#include "scumm/he/sound_he.h"
#include "scumm/he/sprite_he.h"
#include "scumm/util.h"
namespace Scumm {
#define OPCODE(x) _OPCODE(ScummEngine_v100he, x)
void ScummEngine_v100he::setupOpcodes() {
static const OpcodeEntryV100he opcodes[256] = {
/* 00 */
OPCODE(o100_actorOps),
OPCODE(o6_add),
OPCODE(o6_faceActor),
OPCODE(o90_sortArray),
/* 04 */
OPCODE(o100_arrayOps),
OPCODE(o6_band),
OPCODE(o6_bor),
OPCODE(o6_breakHere),
/* 08 */
OPCODE(o6_delayFrames),
OPCODE(o90_shl),
OPCODE(o90_shr),
OPCODE(o90_xor),
/* 0C */
OPCODE(o6_setCameraAt),
OPCODE(o6_actorFollowCamera),
OPCODE(o6_loadRoom),
OPCODE(o6_panCameraTo),
/* 10 */
OPCODE(o72_captureWizImage),
OPCODE(o100_jumpToScript),
OPCODE(o6_setClass),
OPCODE(o60_closeFile),
/* 14 */
OPCODE(o6_loadRoomWithEgo),
OPCODE(o6_invalid),
OPCODE(o72_setFilePath),
OPCODE(o100_createSound),
/* 18 */
OPCODE(o6_cutscene),
OPCODE(o6_pop),
OPCODE(o72_traceStatus),
OPCODE(o6_wordVarDec),
/* 1C */
OPCODE(o6_wordArrayDec),
OPCODE(o72_deleteFile),
OPCODE(o100_dim2dimArray),
OPCODE(o100_dimArray),
/* 20 */
OPCODE(o6_div),
OPCODE(o6_animateActor),
OPCODE(o6_doSentence),
OPCODE(o6_drawBox),
/* 24 */
OPCODE(o72_drawWizImage),
OPCODE(o80_drawWizPolygon),
OPCODE(o100_drawLine),
OPCODE(o100_drawObject),
/* 28 */
OPCODE(o6_dup),
OPCODE(o90_dup_n),
OPCODE(o6_endCutscene),
OPCODE(o6_stopObjectCode),
/* 2C */
OPCODE(o6_stopObjectCode),
OPCODE(o6_eq),
OPCODE(o100_floodFill),
OPCODE(o6_freezeUnfreeze),
/* 30 */
OPCODE(o6_ge),
OPCODE(o6_getDateTime),
OPCODE(o100_setSpriteGroupInfo),
OPCODE(o6_gt),
/* 34 */
OPCODE(o100_resourceRoutines),
OPCODE(o6_if),
OPCODE(o6_ifNot),
OPCODE(o100_wizImageOps),
/* 38 */
OPCODE(o72_isAnyOf),
OPCODE(o6_wordVarInc),
OPCODE(o6_wordArrayInc),
OPCODE(o6_jump),
/* 3C */
OPCODE(o90_kernelSetFunctions),
OPCODE(o6_land),
OPCODE(o6_le),
OPCODE(o60_localizeArrayToScript),
/* 40 */
OPCODE(o6_wordArrayRead),
OPCODE(o6_wordArrayIndexedRead),
OPCODE(o6_lor),
OPCODE(o6_lt),
/* 44 */
OPCODE(o90_mod),
OPCODE(o6_mul),
OPCODE(o6_neq),
OPCODE(o100_dim2dim2Array),
/* 48 */
OPCODE(o6_invalid),
OPCODE(o100_redim2dimArray),
OPCODE(o6_not),
OPCODE(o6_invalid),
/* 4C */
OPCODE(o6_beginOverride),
OPCODE(o6_endOverride),
OPCODE(o72_resetCutscene),
OPCODE(o6_setOwner),
/* 50 */
OPCODE(o100_paletteOps),
OPCODE(o70_pickupObject),
OPCODE(o70_polygonOps),
OPCODE(o6_pop),
/* 54 */
OPCODE(o6_printDebug),
OPCODE(o72_printWizImage),
OPCODE(o6_printLine),
OPCODE(o6_printSystem),
/* 58 */
OPCODE(o6_printText),
OPCODE(o100_jumpToScriptUnk),
OPCODE(o100_startScriptUnk),
OPCODE(o6_pseudoRoom),
/* 5C */
OPCODE(o6_pushByte),
OPCODE(o72_pushDWord),
OPCODE(o72_getScriptString),
OPCODE(o6_pushWord),
/* 60 */
OPCODE(o6_pushWordVar),
OPCODE(o6_putActorAtObject),
OPCODE(o6_putActorAtXY),
OPCODE(o6_invalid),
/* 64 */
OPCODE(o100_redimArray),
OPCODE(o72_rename),
OPCODE(o6_stopObjectCode),
OPCODE(o80_localizeArrayToRoom),
/* 68 */
OPCODE(o100_roomOps),
OPCODE(o6_printActor),
OPCODE(o6_printEgo),
OPCODE(o72_talkActor),
/* 6C */
OPCODE(o72_talkEgo),
OPCODE(o6_invalid),
OPCODE(o60_seekFilePos),
OPCODE(o6_setBoxFlags),
/* 70 */
OPCODE(o6_invalid),
OPCODE(o6_setBoxSet),
OPCODE(o100_setSystemMessage),
OPCODE(o6_shuffle),
/* 74 */
OPCODE(o6_delay),
OPCODE(o6_delayMinutes),
OPCODE(o6_delaySeconds),
OPCODE(o100_startSound),
/* 78 */
OPCODE(o80_sourceDebug),
OPCODE(o100_setSpriteInfo),
OPCODE(o6_stampObject),
OPCODE(o72_startObject),
/* 7C */
OPCODE(o100_startScript),
OPCODE(o6_startScriptQuick),
OPCODE(o80_setState),
OPCODE(o6_stopObjectScript),
/* 80 */
OPCODE(o6_stopScript),
OPCODE(o6_stopSentence),
OPCODE(o6_stopSound),
OPCODE(o6_stopTalking),
/* 84 */
OPCODE(o6_writeWordVar),
OPCODE(o6_wordArrayWrite),
OPCODE(o6_wordArrayIndexedWrite),
OPCODE(o6_sub),
/* 88 */
OPCODE(o100_systemOps),
OPCODE(o6_invalid),
OPCODE(o72_setTimer),
OPCODE(o100_cursorCommand),
/* 8C */
OPCODE(o100_videoOps),
OPCODE(o100_wait),
OPCODE(o6_walkActorToObj),
OPCODE(o6_walkActorTo),
/* 90 */
OPCODE(o100_writeFile),
OPCODE(o72_writeINI),
OPCODE(o80_writeConfigFile),
OPCODE(o6_abs),
/* 94 */
OPCODE(o6_getActorWalkBox),
OPCODE(o6_getActorCostume),
OPCODE(o6_getActorElevation),
OPCODE(o6_getObjectOldDir),
/* 98 */
OPCODE(o6_getActorMoving),
OPCODE(o90_getActorData),
OPCODE(o6_getActorRoom),
OPCODE(o6_getActorScaleX),
/* 9C */
OPCODE(o6_getAnimateVariable),
OPCODE(o6_getActorWidth),
OPCODE(o6_getObjectX),
OPCODE(o6_getObjectY),
/* A0 */
OPCODE(o90_atan2),
OPCODE(o90_getSegmentAngle),
OPCODE(o90_getActorAnimProgress),
OPCODE(o90_getDistanceBetweenPoints),
/* A4 */
OPCODE(o6_ifClassOfIs),
OPCODE(o6_invalid),
OPCODE(o90_cond),
OPCODE(o90_cos),
/* A8 */
OPCODE(o6_invalid),
OPCODE(o80_getFileSize),
OPCODE(o6_getActorFromXY),
OPCODE(o72_findAllObjects),
/* AC */
OPCODE(o90_findAllObjectsWithClassOf),
OPCODE(o70_findBox),
OPCODE(o6_findInventory),
OPCODE(o72_findObject),
/* B0 */
OPCODE(o72_findObjectWithClassOf),
OPCODE(o70_polygonHit),
OPCODE(o90_getLinesIntersectionPoint),
OPCODE(o90_fontUnk),
/* B4 */
OPCODE(o72_getNumFreeArrays),
OPCODE(o72_getArrayDimSize),
OPCODE(o100_isResourceLoaded),
OPCODE(o100_getResourceSize),
/* B8 */
OPCODE(o100_getSpriteGroupInfo),
OPCODE(o6_invalid),
OPCODE(o100_getWizData),
OPCODE(o6_isActorInBox),
/* BC */
OPCODE(o6_isAnyOf),
OPCODE(o6_getInventoryCount),
OPCODE(o90_kernelGetFunctions),
OPCODE(o90_max),
/* C0 */
OPCODE(o90_min),
OPCODE(o72_getObjectImageX),
OPCODE(o72_getObjectImageY),
OPCODE(o6_isRoomScriptRunning),
/* C4 */
OPCODE(o90_getObjectData),
OPCODE(o72_openFile),
OPCODE(o90_getPolygonOverlap),
OPCODE(o6_getOwner),
/* C8 */
OPCODE(o100_getPaletteData),
OPCODE(o6_pickOneOf),
OPCODE(o6_pickOneOfDefault),
OPCODE(o80_pickVarRandom),
/* CC */
OPCODE(o72_getPixel),
OPCODE(o6_distObjectObject),
OPCODE(o6_distObjectPt),
OPCODE(o6_distPtPt),
/* D0 */
OPCODE(o6_getRandomNumber),
OPCODE(o6_getRandomNumberRange),
OPCODE(o6_invalid),
OPCODE(o100_readFile),
/* D4 */
OPCODE(o72_readINI),
OPCODE(o80_readConfigFile),
OPCODE(o6_isScriptRunning),
OPCODE(o90_sin),
/* D8 */
OPCODE(o72_getSoundPosition),
OPCODE(o6_isSoundRunning),
OPCODE(o80_getSoundVar),
OPCODE(o100_getSpriteInfo),
/* DC */
OPCODE(o90_sqrt),
OPCODE(o6_startObjectQuick),
OPCODE(o6_startScriptQuick2),
OPCODE(o6_getState),
/* E0 */
OPCODE(o70_compareString),
OPCODE(o70_copyString),
OPCODE(o70_appendString),
OPCODE(o70_concatString),
/* E4 */
OPCODE(o70_getStringLen),
OPCODE(o70_getStringLenForWidth),
OPCODE(o80_stringToInt),
OPCODE(o70_getCharIndexInString),
/* E8 */
OPCODE(o70_getStringWidth),
OPCODE(o60_readFilePos),
OPCODE(o72_getTimer),
OPCODE(o6_getVerbEntrypoint),
/* EC */
OPCODE(o100_getVideoData),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* F0 */
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* F4 */
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* F8 */
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* FC */
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
};
_opcodesV100he = opcodes;
}
void ScummEngine_v100he::executeOpcode(byte i) {
OpcodeProcV100he op = _opcodesV100he[i].proc;
(this->*op) ();
}
const char *ScummEngine_v100he::getOpcodeDesc(byte i) {
return _opcodesV100he[i].desc;
}
void ScummEngine_v100he::o100_actorOps() {
Actor *a;
int i, j, k;
int args[32];
byte string[256];
byte subOp = fetchScriptByte();
if (subOp == 129) {
_curActor = pop();
return;
}
a = derefActorSafe(_curActor, "o100_actorOps");
if (!a)
return;
switch (subOp) {
case 0:
// freddicove Ru Updated
// FIXME: check stack parameters
debug(0,"o100_actorOps: case 0 UNHANDLED");
break;
case 3:
pop();
pop();
pop();
break;
case 4: // SO_ANIMATION_SPEED
a->setAnimSpeed(pop());
break;
case 6:
j = pop();
i = pop();
a->putActor(i, j);
break;
case 8:
a->_drawToBackBuf = false;
a->_needRedraw = true;
a->_needBgReset = true;
break;
case 9:
a->drawActorToBackBuf(a->getPos().x, a->getPos().y);
break;
case 14:
a->_charset = pop();
break;
case 18:
a->_clipOverride.bottom = pop();
a->_clipOverride.right = pop();
a->_clipOverride.top = pop();
a->_clipOverride.left = pop();
adjustRect(a->_clipOverride);
break;
case 22:
k = getStackList(args, ARRAYSIZE(args));
for (i = 0; i < k; ++i) {
a->setUserCondition(args[i] & 0x7F, args[i] & 0x80);
}
break;
case 25: // SO_COSTUME
a->setActorCostume(pop());
break;
case 27: // SO_DEFAULT
a->initActor(0);
break;
case 32:
k = pop();
a->setHEFlag(1, k);
break;
case 52: // SO_ACTOR_NAME
copyScriptString(string, sizeof(string));
loadPtrToResource(rtActorName, a->_number, string);
break;
case 53: // SO_ACTOR_NEW
a->initActor(2);
break;
case 57: // SO_PALETTE
j = pop();
i = pop();
assertRange(0, i, 255, "palette slot");
a->remapActorPaletteColor(i, j);
a->_needRedraw = true;
break;
case 59:
// HE games use reverse order of layering, so we adjust
a->_layer = -pop();
a->_needRedraw = true;
break;
case 63:
a->_hePaletteNum = pop();
a->_needRedraw = true;
break;
case 65: // SO_SCALE
i = pop();
a->setScale(i, i);
break;
case 70: // SO_SHADOW
a->_heXmapNum = pop();
a->_needRedraw = true;
break;
case 74: // SO_STEP_DIST
j = pop();
i = pop();
a->setActorWalkSpeed(i, j);
break;
case 78:
{
copyScriptString(string, sizeof(string));
int slot = pop();
int len = resStrLen(string) + 1;
memcpy(a->_heTalkQueue[slot].sentence, string, len);
a->_heTalkQueue[slot].posX = a->_talkPosX;
a->_heTalkQueue[slot].posY = a->_talkPosY;
a->_heTalkQueue[slot].color = a->_talkColor;
}
break;
case 83: // SO_ACTOR_VARIABLE
i = pop();
a->setAnimVar(pop(), i);
break;
case 87: // SO_ALWAYS_ZCLIP
a->_forceClip = pop();
break;
case 89: // SO_NEVER_ZCLIP
a->_forceClip = 0;
break;
case 128:
_actorClipOverride.bottom = pop();
_actorClipOverride.right = pop();
_actorClipOverride.top = pop();
_actorClipOverride.left = pop();
adjustRect(_actorClipOverride);
break;
case 130: // SO_SOUND
k = getStackList(args, ARRAYSIZE(args));
for (i = 0; i < k; i++)
a->_sound[i] = args[i];
break;
case 131: // SO_ACTOR_WIDTH
a->_width = pop();
break;
case 132: // SO_ANIMATION_DEFAULT
a->_initFrame = 1;
a->_walkFrame = 2;
a->_standFrame = 3;
a->_talkStartFrame = 4;
a->_talkStopFrame = 5;
break;
case 133: // SO_ELEVATION
a->setElevation(pop());
break;
case 134: // SO_FOLLOW_BOXES
a->_ignoreBoxes = 0;
a->_forceClip = 0;
if (a->isInCurrentRoom())
a->putActor();
break;
case 135: // SO_IGNORE_BOXES
a->_ignoreBoxes = 1;
a->_forceClip = 0;
if (a->isInCurrentRoom())
a->putActor();
break;
case 136: // SO_ACTOR_IGNORE_TURNS_OFF
a->_ignoreTurns = false;
break;
case 137: // SO_ACTOR_IGNORE_TURNS_ON
a->_ignoreTurns = true;
break;
case 138: // SO_INIT_ANIMATION
a->_initFrame = pop();
break;
case 139: // SO_STAND_ANIMATION
a->_standFrame = pop();
break;
case 140: // SO_TALK_ANIMATION
a->_talkStopFrame = pop();
a->_talkStartFrame = pop();
break;
case 141: // SO_TALK_COLOR
a->_talkColor = pop();
break;
case 142:
k = pop();
if (k == 0)
k = _rnd.getRandomNumberRng(1, 10);
a->_heNoTalkAnimation = 1;
a->setTalkCondition(k);
break;
case 143: // SO_TEXT_OFFSET
a->_talkPosY = pop();
a->_talkPosX = pop();
break;
case 144: // SO_WALK_ANIMATION
a->_walkFrame = pop();
break;
default:
error("o100_actorOps: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_arrayOps() {
byte *data;
byte string[1024];
int dim1end, dim1start, dim2end, dim2start;
int id, len, b, c, list[128];
int offs, tmp, tmp2;
uint tmp3;
byte subOp = fetchScriptByte();
int array = fetchScriptWord();
debug(9,"o100_arrayOps: array %d case %d", array, subOp);
switch (subOp) {
case 35:
decodeScriptString(string);
len = resStrLen(string);
data = defineArray(array, kStringArray, 0, 0, 0, len);
memcpy(data, string, len);
break;
case 77: // SO_ASSIGN_STRING
copyScriptString(string, sizeof(string));
len = resStrLen(string);
data = defineArray(array, kStringArray, 0, 0, 0, len);
memcpy(data, string, len);
break;
case 128: // SO_ASSIGN_2DIM_LIST
len = getStackList(list, ARRAYSIZE(list));
id = readVar(array);
if (id == 0)
error("Must DIM a two dimensional array before assigning");
c = pop();
while (--len >= 0) {
writeArray(array, c, len, list[len]);
}
break;
case 129: // SO_ASSIGN_INT_LIST
b = pop();
c = pop();
id = readVar(array);
if (id == 0) {
defineArray(array, kDwordArray, 0, 0, 0, b + c - 1);
}
while (c--) {
writeArray(array, 0, b + c, pop());
}
break;
case 130:
len = getStackList(list, ARRAYSIZE(list));
dim1end = pop();
dim1start = pop();
dim2end = pop();
dim2start = pop();
id = readVar(array);
if (id == 0) {
defineArray(array, kDwordArray, dim2start, dim2end, dim1start, dim1end);
}
checkArrayLimits(array, dim2start, dim2end, dim1start, dim1end);
tmp2 = 0;
while (dim2start <= dim2end) {
tmp = dim1start;
while (tmp <= dim1end) {
writeArray(array, dim2start, tmp, list[tmp2++]);
if (tmp2 == len)
tmp2 = 0;
tmp++;
}
dim2start++;
}
break;
case 131:
{
int a2_dim1end = pop();
int a2_dim1start = pop();
int a2_dim2end = pop();
int a2_dim2start = pop();
int array2 = fetchScriptWord();
int a1_dim1end = pop();
int a1_dim1start = pop();
int a1_dim2end = pop();
int a1_dim2start = pop();
if (a1_dim1end - a1_dim1start != a2_dim1end - a2_dim1start || a2_dim2end - a2_dim2start != a1_dim2end - a1_dim2start) {
error("Source and dest ranges size are mismatched");
}
copyArray(array, a1_dim2start, a1_dim2end, a1_dim1start, a1_dim1end, array2, a2_dim2start, a2_dim2end, a2_dim1start, a2_dim1end);
}
break;
case 133:
b = pop();
c = pop();
dim1end = pop();
dim1start = pop();
dim2end = pop();
dim2start = pop();
id = readVar(array);
if (id == 0) {
defineArray(array, kDwordArray, dim2start, dim2end, dim1start, dim1end);
}
checkArrayLimits(array, dim2start, dim2end, dim1start, dim1end);
offs = (b >= c) ? 1 : -1;
tmp2 = c;
tmp3 = c - b + 1;
while (dim2start <= dim2end) {
tmp = dim1start;
while (tmp <= dim1end) {
writeArray(array, dim2start, tmp, tmp2);
if (--tmp3 == 0) {
tmp2 = c;
tmp3 = c - b + 1;
} else {
tmp2 += offs;
}
tmp++;
}
dim2start++;
}
break;
default:
error("o100_arrayOps: default case %d (array %d)", subOp, array);
}
}
void ScummEngine_v100he::o100_jumpToScript() {
int args[25];
int script;
byte flags;
getStackList(args, ARRAYSIZE(args));
script = pop();
flags = fetchScriptByte();
stopObjectCode();
runScript(script, (flags == 128 || flags == 129), (flags == 130 || flags == 129), args);
}
void ScummEngine_v100he::o100_createSound() {
byte subOp = fetchScriptByte();
switch (subOp) {
case 0:
_heSndResId = pop();
break;
case 53:
createSound(_heSndResId, -1);
break;
case 92:
// dummy case
break;
case 128:
createSound(_heSndResId, pop());
break;
default:
error("o100_createSound: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_dim2dimArray() {
int data, dim1end, dim2end;
byte subOp = fetchScriptByte();
switch (subOp) {
case 41: // SO_BIT_ARRAY
data = kBitArray;
break;
case 42: // SO_INT_ARRAY
data = kIntArray;
break;
case 43:
data = kDwordArray;
break;
case 44: // SO_NIBBLE_ARRAY
data = kNibbleArray;
break;
case 45: // SO_BYTE_ARRAY
data = kByteArray;
break;
case 77: // SO_STRING_ARRAY
data = kStringArray;
break;
default:
error("o100_dim2dimArray: default case %d", subOp);
}
dim1end = pop();
dim2end = pop();
defineArray(fetchScriptWord(), data, 0, dim2end, 0, dim1end);
}
void ScummEngine_v100he::o100_dimArray() {
int data;
byte subOp = fetchScriptByte();
switch (subOp) {
case 41: // SO_BIT_ARRAY
data = kBitArray;
break;
case 42: // SO_INT_ARRAY
data = kIntArray;
break;
case 43:
data = kDwordArray;
break;
case 44: // SO_NIBBLE_ARRAY
data = kNibbleArray;
break;
case 45: // SO_BYTE_ARRAY
data = kByteArray;
break;
case 77: // SO_STRING_ARRAY
data = kStringArray;
break;
case 135: // SO_UNDIM_ARRAY
nukeArray(fetchScriptWord());
return;
default:
error("o100_dimArray: default case %d", subOp);
}
defineArray(fetchScriptWord(), data, 0, 0, 0, pop());
}
void ScummEngine_v100he::o100_drawLine() {
int id, unk1, unk2, x, x1, y1;
unk2 = pop();
id = pop();
unk1 = pop();
x = pop();
y1 = pop();
x1 = pop();
byte subOp = fetchScriptByte();
switch (subOp) {
case 1:
drawLine(x1, y1, x, unk1, unk2, 2, id);
break;
case 20:
drawLine(x1, y1, x, unk1, unk2, 1, id);
break;
case 40:
drawLine(x1, y1, x, unk1, unk2, 3, id);
break;
default:
error("o100_drawLine: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_drawObject() {
int state, y, x;
byte subOp = fetchScriptByte();
switch (subOp) {
case 6:
state = 1;
y = pop();
x = pop();
break;
case 7:
state = pop();
y = pop();
x = pop();
break;
case 40:
state = pop();
if (state == 0)
state = 1;
y = x = -100;
break;
default:
error("o100_drawObject: default case %d", subOp);
}
int object = pop();
int objnum = getObjectIndex(object);
if (objnum == -1)
return;
if (y != -100 && x != -100) {
_objs[objnum].x_pos = x * 8;
_objs[objnum].y_pos = y * 8;
}
if (state != -1) {
addObjectToDrawQue(objnum);
putState(object, state);
}
}
void ScummEngine_v100he::o100_floodFill() {
byte subOp = fetchScriptByte();
switch (subOp) {
case 0:
memset(&_floodFillParams, 0, sizeof(_floodFillParams));
_floodFillParams.box.left = 0;
_floodFillParams.box.top = 0;
_floodFillParams.box.right = 639;
_floodFillParams.box.bottom = 479;
break;
case 6:
_floodFillParams.y = pop();
_floodFillParams.x = pop();
break;
case 18:
_floodFillParams.box.bottom = pop();
_floodFillParams.box.right = pop();
_floodFillParams.box.top = pop();
_floodFillParams.box.left = pop();
break;
case 20:
_floodFillParams.flags = pop();
break;
case 67:
pop();
break;
case 92:
floodFill(&_floodFillParams, this);
break;
default:
error("o100_floodFill: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_setSpriteGroupInfo() {
byte string[260];
int type, value1, value2, value3, value4;
byte subOp = fetchScriptByte();
switch (subOp) {
case 0:
_curSpriteGroupId = pop();
break;
case 6:
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupPosition(_curSpriteGroupId, value1, value2);
break;
case 18:
value4 = pop();
value3 = pop();
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupBounds(_curSpriteGroupId, value1, value2, value3, value4);
break;
case 38:
type = pop() - 1;
switch (type) {
case 0:
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->moveGroupMembers(_curSpriteGroupId, value1, value2);
break;
case 1:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupMembersPriority(_curSpriteGroupId, value1);
break;
case 2:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupMembersGroup(_curSpriteGroupId, value1);
break;
case 3:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupMembersUpdateType(_curSpriteGroupId, value1);
break;
case 4:
if (!_curSpriteGroupId)
break;
_sprite->setGroupMembersResetSprite(_curSpriteGroupId);
break;
case 5:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupMembersAnimationSpeed(_curSpriteGroupId, value1);
break;
case 6:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupMembersAutoAnimFlag(_curSpriteGroupId, value1);
break;
case 7:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupMembersShadow(_curSpriteGroupId, value1);
break;
default:
error("o100_setSpriteGroupInfo subOp 38: Unknown case %d", subOp);
}
break;
case 40:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupImage(_curSpriteGroupId, value1);
break;
case 49:
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->moveGroup(_curSpriteGroupId, value1, value2);
break;
case 52:
copyScriptString(string, sizeof(string));
break;
case 53:
if (!_curSpriteGroupId)
break;
_sprite->resetGroup(_curSpriteGroupId);
break;
case 54:
// dummy case
pop();
pop();
break;
case 59:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupPriority(_curSpriteGroupId, value1);
break;
case 60:
type = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
switch (type) {
case 0:
_sprite->setGroupXMul(_curSpriteGroupId, value1);
break;
case 1:
_sprite->setGroupXDiv(_curSpriteGroupId, value1);
break;
case 2:
_sprite->setGroupYMul(_curSpriteGroupId, value1);
break;
case 3:
_sprite->setGroupYDiv(_curSpriteGroupId, value1);
break;
default:
error("o100_setSpriteGroupInfo subOp 60: Unknown case %d", subOp);
}
break;
case 89:
if (!_curSpriteGroupId)
break;
_sprite->resetGroupBounds(_curSpriteGroupId);
break;
default:
error("o100_setSpriteGroupInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_resourceRoutines() {
int objidx, room;
byte subOp = fetchScriptByte();
switch (subOp) {
case 14:
_heResType = rtCharset;
_heResId = pop();
break;
case 25:
_heResType = rtCostume;
_heResId = pop();
break;
case 34:
_heResType = rtFlObject;
_heResId = pop();
break;
case 40:
_heResType = rtImage;
_heResId = pop();
break;
case 47:
if (_heResType == rtFlObject) {
room = getObjectRoom(_heResId);
loadFlObject(_heResId, room);
} else if (_heResType == rtCharset) {
loadCharset(_heResId);
} else {
ensureResourceLoaded(_heResType, _heResId);
}
break;
case 62:
_heResType = rtRoom;
_heResId = pop();
break;
case 66:
_heResType = rtScript;
_heResId = pop();
break;
case 72:
_heResType = rtSound;
_heResId = pop();
break;
case 128:
break;
case 132:
if (_heResType == rtScript && _heResId >= _numGlobalScripts)
break;
if (_heResType == rtFlObject) {
objidx = getObjectIndex(_heResId);
if (objidx == -1)
break;
_res->lock(rtFlObject, _objs[objidx].fl_object_index);
} else {
_res->lock(_heResType, _heResId);
}
break;
case 133:
if (_heResType == rtCharset)
nukeCharset(_heResId);
else
_res->nukeResource(_heResType, _heResId);
break;
case 134:
case 135:
// Heap related
break;
case 136:
if (_heResType == rtScript && _heResId >= _numGlobalScripts)
break;
//queueLoadResource(_heResType, _heResId);
break;
case 137:
if (_heResType == rtScript && _heResId >= _numGlobalScripts)
break;
if (_heResType == rtFlObject) {
objidx = getObjectIndex(_heResId);
if (objidx == -1)
break;
_res->unlock(rtFlObject, _objs[objidx].fl_object_index);
} else {
_res->unlock(_heResType, _heResId);
}
break;
default:
error("o100_resourceRoutines: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_wizImageOps() {
int a, b;
byte subOp = fetchScriptByte();
switch (subOp) {
case 0:
_wizParams.img.resNum = pop();
_wizParams.processMode = 0;
_wizParams.processFlags = 0;
_wizParams.remapNum = 0;
_wizParams.img.flags = 0;
_wizParams.field_184 = 0;
_wizParams.field_180 = 0;
_wizParams.spriteId = 0;
_wizParams.spriteGroup = 0;
break;
case 2:
_wizParams.processFlags |= kWPFRotate;
_wizParams.angle = pop();
break;
case 6:
case 132:
_wizParams.processFlags |= kWPFSetPos;
_wizParams.img.y1 = pop();
_wizParams.img.x1 = pop();
break;
case 7:
_wizParams.processFlags |= kWPFMaskImg;
_wizParams.sourceImage = pop();
break;
case 11:
_wizParams.processFlags |= kWPFClipBox | 0x100;
_wizParams.processMode = 2;
_wizParams.box.bottom = pop();
_wizParams.box.right = pop();
_wizParams.box.top = pop();
_wizParams.box.left = pop();
_wizParams.compType = pop();
adjustRect(_wizParams.box);
break;
case 18:
_wizParams.processFlags |= kWPFClipBox;
_wizParams.box.bottom = pop();
_wizParams.box.right = pop();
_wizParams.box.top = pop();
_wizParams.box.left = pop();
adjustRect(_wizParams.box);
break;
case 21:
b = pop();
a = pop();
_wizParams.processFlags |= kWPFRemapPalette;
_wizParams.processMode = 6;
if (_wizParams.remapNum == 0) {
memset(_wizParams.remapIndex, 0, sizeof(_wizParams.remapIndex));
} else {
assert(_wizParams.remapNum < ARRAYSIZE(_wizParams.remapIndex));
_wizParams.remapIndex[_wizParams.remapNum] = a;
_wizParams.remapColor[a] = b;
++_wizParams.remapNum;
}
break;
case 29:
_wizParams.processMode = 1;
break;
case 36:
_wizParams.box.bottom = pop();
_wizParams.box.right = pop();
_wizParams.box.top = pop();
_wizParams.box.left = pop();
break;
case 37:
// Dummy case
pop();
break;
case 39:
_wizParams.processFlags |= kWPFUseDefImgHeight;
_wizParams.resDefImgH = pop();
break;
case 47:
_wizParams.processFlags |= kWPFUseFile;
_wizParams.processMode = 3;
copyScriptString(_wizParams.filename, sizeof(_wizParams.filename));
break;
case 53:
_wizParams.processMode = 8;
break;
case 54:
_wizParams.processFlags |= 0x100000;
_wizParams.field_180 = pop();
_wizParams.field_184 = pop();
break;
case 55:
_wizParams.img.flags = pop();
_wizParams.img.state = pop();
_wizParams.img.y1 = pop();
_wizParams.img.x1 = pop();
_wizParams.spriteId = 0;
_wizParams.spriteGroup = 0;
_wizParams.img.resNum = pop();
_wiz->displayWizImage(&_wizParams.img);
break;
case 57:
_wizParams.processFlags |= kWPFPaletteNum;
_wizParams.img.palette = pop();
break;
case 58:
_wizParams.processFlags |= 0x1000 | 0x100 | 0x2;
_wizParams.processMode = 7;
_wizParams.polygonId2 = pop();
_wizParams.polygonId1 = pop();
_wizParams.compType = pop();
break;
case 64:
_wizParams.processFlags |= kWPFUseFile;
_wizParams.processMode = 4;
copyScriptString(_wizParams.filename, sizeof(_wizParams.filename));
_wizParams.fileWriteMode = pop();
break;
case 65:
_wizParams.processFlags |= kWPFScaled;
_wizParams.scale = pop();
break;
case 67:
_wizParams.processFlags |= kWPFNewFlags;
_wizParams.img.flags |= pop();
break;
case 68:
_wizParams.processFlags |= kWPFNewFlags | kWPFSetPos | 2;
_wizParams.img.flags |= kWIFIsPolygon;
_wizParams.polygonId1 = _wizParams.img.y1 = _wizParams.img.x1 = pop();
break;
case 70:
_wizParams.processFlags |= kWPFShadow;
_wizParams.img.shadow = pop();
break;
case 73:
_wizParams.processFlags |= kWPFNewState;
_wizParams.img.state = pop();
break;
case 84:
_wizParams.processFlags |= kWPFUseDefImgWidth;
_wizParams.resDefImgW = pop();
break;
case 92:
if (_wizParams.img.resNum)
_wiz->processWizImage(&_wizParams);
break;
case 128:
_wizParams.field_239D = pop();
_wizParams.field_2399 = pop();
_wizParams.field_23A5 = pop();
_wizParams.field_23A1 = pop();
copyScriptString(_wizParams.string2, sizeof(_wizParams.string2));
_wizParams.processMode = 15;
break;
case 129:
_wizParams.processMode = 14;
break;
case 130:
_wizParams.processMode = 16;
_wizParams.field_23AD = pop();
_wizParams.field_23A9 = pop();
copyScriptString(_wizParams.string1, sizeof(_wizParams.string1));
break;
case 131:
_wizParams.processMode = 13;
break;
case 133:
_wizParams.processMode = 17;
_wizParams.field_23CD = pop();
_wizParams.field_23C9 = pop();
_wizParams.field_23C5 = pop();
_wizParams.field_23C1 = pop();
_wizParams.field_23BD = pop();
_wizParams.field_23B9 = pop();
_wizParams.field_23B5 = pop();
_wizParams.field_23B1 = pop();
break;
case 134:
_wizParams.processFlags |= kWPFFillColor | kWPFClipBox2;
_wizParams.processMode = 12;
_wizParams.fillColor = pop();
_wizParams.box2.top = _wizParams.box2.bottom = pop();
_wizParams.box2.left = _wizParams.box2.right = pop();
break;
case 135:
_wizParams.processFlags |= kWPFDstResNum;
_wizParams.dstResNum = pop();
break;
case 136:
_wizParams.processFlags |= kWPFFillColor | kWPFClipBox2;
_wizParams.processMode = 10;
_wizParams.fillColor = pop();
_wizParams.box2.bottom = pop();
_wizParams.box2.right = pop();
_wizParams.box2.top = pop();
_wizParams.box2.left = pop();
break;
case 137:
_wizParams.processFlags |= kWPFFillColor | kWPFClipBox2;
_wizParams.processMode = 11;
_wizParams.fillColor = pop();
_wizParams.box2.top = _wizParams.box2.bottom = pop();
_wizParams.box2.left = _wizParams.box2.right = pop();
break;
case 138:
_wizParams.processFlags |= kWPFFillColor | kWPFClipBox2;
_wizParams.processMode = 9;
_wizParams.fillColor = pop();
_wizParams.box2.bottom = pop();
_wizParams.box2.right = pop();
_wizParams.box2.top = pop();
_wizParams.box2.left = pop();
break;
default:
error("o100_wizImageOps: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_dim2dim2Array() {
int data, dim1start, dim1end, dim2start, dim2end;
byte subOp = fetchScriptByte();
switch (subOp) {
case 41: // SO_BIT_ARRAY
data = kBitArray;
break;
case 42: // SO_INT_ARRAY
data = kIntArray;
break;
case 43:
data = kDwordArray;
break;
case 44: // SO_NIBBLE_ARRAY
data = kNibbleArray;
break;
case 45: // SO_BYTE_ARRAY
data = kByteArray;
break;
case 77: // SO_STRING_ARRAY
data = kStringArray;
break;
default:
error("o100_dim2dim2Array: default case %d", subOp);
}
if (pop() == 2) {
dim1end = pop();
dim1start = pop();
dim2end = pop();
dim2start = pop();
} else {
dim2end = pop();
dim2start = pop();
dim1end = pop();
dim1start = pop();
}
defineArray(fetchScriptWord(), data, dim2start, dim2end, dim1start, dim1end);
}
void ScummEngine_v100he::o100_redim2dimArray() {
int a, b, c, d;
d = pop();
c = pop();
b = pop();
a = pop();
byte subOp = fetchScriptByte();
switch (subOp) {
case 42:
redimArray(fetchScriptWord(), a, b, c, d, kIntArray);
break;
case 43:
redimArray(fetchScriptWord(), a, b, c, d, kDwordArray);
break;
case 45:
redimArray(fetchScriptWord(), a, b, c, d, kByteArray);
break;
default:
error("o100_redim2dimArray: default type %d", subOp);
}
}
void ScummEngine_v100he::o100_paletteOps() {
int a, b, c, d, e;
byte subOp = fetchScriptByte();
switch (subOp) {
case 0:
_hePaletteNum = pop();
break;
case 20:
e = pop();
d = pop();
c = pop();
b = pop();
a = pop();
if (_hePaletteNum != 0) {
for (; a <= b; ++a) {
setHEPaletteColor(_hePaletteNum, a, c, d, e);
}
}
break;
case 25:
a = pop();
if (_hePaletteNum != 0) {
setHEPaletteFromCostume(_hePaletteNum, a);
}
break;
case 40:
b = pop();
a = pop();
if (_hePaletteNum != 0) {
setHEPaletteFromImage(_hePaletteNum, a, b);
}
break;
case 53:
if (_hePaletteNum != 0) {
restoreHEPalette(_hePaletteNum);
}
break;
case 57:
a = pop();
if (_hePaletteNum != 0) {
copyHEPalette(_hePaletteNum, a);
}
break;
case 63:
b = pop();
a = pop();
if (_hePaletteNum != 0) {
setHEPaletteFromRoom(_hePaletteNum, a, b);
}
break;
case 81:
c = pop();
b = pop();
a = pop();
if (_hePaletteNum) {
for (; a <= b; ++a) {
copyHEPaletteColor(_hePaletteNum, a, c);
}
}
break;
case 92:
_hePaletteNum = 0;
break;
default:
error("o100_paletteOps: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_jumpToScriptUnk() {
int args[25];
int script, cycle;
byte flags;
getStackList(args, ARRAYSIZE(args));
cycle = pop();
script = pop();
flags = fetchScriptByte();
stopObjectCode();
runScript(script, (flags == 128 || flags == 129), (flags == 130 || flags == 129), args, cycle);
}
void ScummEngine_v100he::o100_startScriptUnk() {
int args[25];
int script, cycle;
byte flags;
getStackList(args, ARRAYSIZE(args));
cycle = pop();
script = pop();
flags = fetchScriptByte();
runScript(script, (flags == 128 || flags == 129), (flags == 130 || flags == 129), args, cycle);
}
void ScummEngine_v100he::o100_redimArray() {
int newX, newY;
newY = pop();
newX = pop();
byte subOp = fetchScriptByte();
switch (subOp) {
case 42:
redimArray(fetchScriptWord(), 0, newX, 0, newY, kIntArray);
break;
case 43:
redimArray(fetchScriptWord(), 0, newX, 0, newY, kDwordArray);
break;
case 45:
redimArray(fetchScriptWord(), 0, newX, 0, newY, kByteArray);
break;
default:
error("o100_redimArray: default type %d", subOp);
}
}
void ScummEngine_v100he::o100_roomOps() {
int a, b, c, d, e;
byte filename[100];
byte subOp = fetchScriptByte();
switch (subOp) {
case 63: // SO_ROOM_PALETTE
d = pop();
c = pop();
b = pop();
a = pop();
setPalColor(d, a, b, c);
break;
case 129:
b = pop();
a = pop();
swapObjects(a, b);
break;
case 130:
a = pop();
b = pop();
copyPalColor(a, b);
break;
case 131: // SO_ROOM_FADE
// Defaults to 1 but doesn't use fade effects
a = pop();
break;
case 132: // SO_ROOM_INTENSITY
c = pop();
b = pop();
a = pop();
darkenPalette(a, a, a, b, c);
break;
case 133: // SO_RGB_ROOM_INTENSITY
e = pop();
d = pop();
c = pop();
b = pop();
a = pop();
darkenPalette(a, b, c, d, e);
break;
case 134: // SO_ROOM_NEW_PALETTE
a = pop();
setCurrentPalette(a);
break;
case 135:
b = pop();
a = pop();
setRoomPalette(a, b);
break;
case 136: // SO_ROOM_SAVEGAME
_saveTemporaryState = true;
_saveLoadSlot = pop();
_saveLoadFlag = pop();
break;
case 137:
copyScriptString(filename, sizeof(filename));
_saveLoadFlag = pop();
_saveLoadSlot = 1;
_saveTemporaryState = true;
break;
case 138: // SO_ROOM_SCREEN
b = pop();
a = pop();
initScreens(a, _screenHeight);
break;
case 139: // SO_ROOM_SCROLL
b = pop();
a = pop();
if (a < (_screenWidth / 2))
a = (_screenWidth / 2);
if (b < (_screenWidth / 2))
b = (_screenWidth / 2);
if (a > _roomWidth - (_screenWidth / 2))
a = _roomWidth - (_screenWidth / 2);
if (b > _roomWidth - (_screenWidth / 2))
b = _roomWidth - (_screenWidth / 2);
VAR(VAR_CAMERA_MIN_X) = a;
VAR(VAR_CAMERA_MAX_X) = b;
break;
default:
error("o100_roomOps: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_setSystemMessage() {
byte name[1024];
copyScriptString(name, sizeof(name));
byte subOp = fetchScriptByte();
switch (subOp) {
case 80: // Set Window Caption
// TODO: The 'name' string can contain non-ASCII data. This can lead to
// problems, because (a) the encoding used for "name" is not clear,
// (b) OSystem::setWindowCaption only supports ASCII. As a result, odd
// behavior can occur, from strange wrong titles, up to crashes (happens
// under Mac OS X).
//
// Possible fixes/workarounds:
// - Simply stop using this. It's a rather unimportant "feature" anyway.
// - Try to translate the text to ASCII.
// - Refine OSystem to accept window captions that are non-ASCII, e.g.
// by enhancing all backends to deal with UTF-8 data. Of course, then
// one still would have to convert 'name' to the correct encoding.
//_system->setWindowCaption((const char *)name);
break;
case 131: // Set Version
debug(1,"o100_setSystemMessage: (%d) %s", subOp, name);
break;
default:
error("o100_setSystemMessage: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_startSound() {
byte filename[260];
int var, value;
byte subOp = fetchScriptByte();
switch (subOp) {
case 6:
_heSndFlags |= 16;
_heSndOffset = pop();
break;
case 47:
copyScriptString(filename, sizeof(filename));
_heSndSoundId = pop();
if (_heSndSoundId)
debug(0, "Load sound %d from file %s\n", _heSndSoundId, filename);
break;
case 55:
_heSndFlags |= 8;
break;
case 83:
value = pop();
var = pop();
_heSndSoundId = pop();
((SoundHE *)_sound)->setSoundVar(_heSndSoundId, var, value);
break;
case 92:
_sound->addSoundToQueue(_heSndSoundId, _heSndOffset, _heSndChannel, _heSndFlags);
break;
case 128:
_heSndFlags |= 2;
break;
case 129:
_heSndChannel = pop();
break;
case 130:
_heSndFlags |= 64;
pop();
break;
case 131:
_heSndFlags |= 1;
break;
case 132: // Music
case 134: // Sound
_heSndSoundId = pop();
_heSndOffset = 0;
_heSndSoundFreq = 11025;
_heSndChannel = VAR(VAR_SOUND_CHANNEL);
_heSndFlags = 0;
break;
case 133:
_heSndFlags |= 128;
pop();
break;
case 135:
_heSndFlags |= 4;
break;
case 136:
_heSndFlags |= 32;
pop();
break;
default:
error("o100_startSound invalid case %d", subOp);
}
}
void ScummEngine_v100he::o100_setSpriteInfo() {
int args[16];
int spriteId, n;
int32 tmp[2];
byte string[80];
byte subOp = fetchScriptByte();
switch (subOp) {
case 0:
_curMaxSpriteId = pop();
_curSpriteId = pop();
if (_curSpriteId > _curMaxSpriteId)
SWAP(_curSpriteId, _curMaxSpriteId);
break;
case 2:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteAngle(spriteId, args[0]);
break;
case 3:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteFlagAutoAnim(spriteId, args[0]);
break;
case 4:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteAnimSpeed(spriteId, args[0]);
break;
case 6:
args[1] = pop();
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpritePosition(spriteId, args[0], args[1]);
break;
case 7:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteSourceImage(spriteId, args[0]);
break;
case 16:
n = getStackList(args, ARRAYSIZE(args));
if (_curSpriteId != 0 && _curMaxSpriteId != 0 && n != 0) {
int *p = &args[n - 1];
do {
int code = *p;
if (code == 0) {
for (int i = _curSpriteId; i <= _curMaxSpriteId; ++i) {
_sprite->setSpriteResetClass(i);
}
} else if (code & 0x80) {
for (int i = _curSpriteId; i <= _curMaxSpriteId; ++i) {
_sprite->setSpriteSetClass(i, code & 0x7F, 1);
}
} else {
for (int i = _curSpriteId; i <= _curMaxSpriteId; ++i) {
_sprite->setSpriteSetClass(i, code & 0x7F, 0);
}
}
--p;
} while (--n);
}
break;
case 32:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteFlagEraseType(spriteId, args[0]);
break;
case 38:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteGroup(spriteId, args[0]);
break;
case 40:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteImage(spriteId, args[0]);
break;
case 48:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteMaskImage(spriteId, args[0]);
break;
case 49:
args[1] = pop();
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->moveSprite(spriteId, args[0], args[1]);
break;
case 52:
copyScriptString(string, sizeof(string));
break;
case 53:
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->resetSprite(spriteId);
break;
case 54:
args[1] = pop();
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteGeneralProperty(spriteId, args[0], args[1]);
break;
case 57:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpritePalette(spriteId, args[0]);
break;
case 59:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpritePriority(spriteId, args[0]);
break;
case 60:
args[1] = pop();
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
switch (args[1]) {
case 0:
_sprite->setSpriteFlagXFlipped(spriteId, args[0]);
break;
case 1:
_sprite->setSpriteFlagYFlipped(spriteId, args[0]);
break;
case 2:
_sprite->setSpriteFlagActive(spriteId, args[0]);
break;
case 3:
_sprite->setSpriteFlagDoubleBuffered(spriteId, args[0]);
break;
case 4:
_sprite->setSpriteFlagRemapPalette(spriteId, args[0]);
break;
default:
break;
}
break;
case 61:
_sprite->resetTables(true);
break;
case 65:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteScale(spriteId, args[0]);
break;
case 70:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteShadow(spriteId, args[0]);
break;
case 73:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteImageState(spriteId, args[0]);
break;
case 74:
args[1] = pop();
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteDist(spriteId, args[0], args[1]);
break;
case 75:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++) {
_sprite->getSpriteDist(spriteId, tmp[0], tmp[1]);
_sprite->setSpriteDist(spriteId, args[0], tmp[1]);
}
break;
case 76:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++) {
_sprite->getSpriteDist(spriteId, tmp[0], tmp[1]);
_sprite->setSpriteDist(spriteId, tmp[0], args[0]);
}
break;
case 82:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteFlagUpdateType(spriteId, args[0]);
break;
case 83:
args[1] = pop();
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteUserValue(spriteId, args[0], args[1]);
break;
case 88:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteField84(spriteId, args[0]);
break;
case 89:
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteField84(spriteId, 0);
break;
default:
error("o100_setSpriteInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_startScript() {
int args[25];
int script;
byte flags;
getStackList(args, ARRAYSIZE(args));
script = pop();
flags = fetchScriptByte();
runScript(script, (flags == 128 || flags == 129), (flags == 130 || flags == 129), args);
}
void ScummEngine_v100he::o100_systemOps() {
byte string[1024];
byte subOp = fetchScriptByte();
subOp -= 61;
switch (subOp) {
case 0:
restart();
break;
case 67:
clearDrawObjectQueue();
break;
case 71:
// Confirm shutdown
shutDown();
break;
case 72:
shutDown();
break;
case 73:
copyScriptString(string, sizeof(string));
debug(0, "Start game (%s)", string);
break;
case 74:
copyScriptString(string, sizeof(string));
debug(0, "Start executable (%s)", string);
break;
case 75:
restoreBackgroundHE(Common::Rect(_screenWidth, _screenHeight));
updatePalette();
break;
default:
error("o100_systemOps invalid case %d", subOp);
}
}
void ScummEngine_v100he::o100_cursorCommand() {
int a, i;
int args[16];
byte subOp = fetchScriptByte();
switch (subOp) {
case 0xE: // SO_CHARSET_SET
initCharset(pop());
break;
case 0xF: // SO_CHARSET_COLOR
getStackList(args, ARRAYSIZE(args));
for (i = 0; i < 16; i++)
_charsetColorMap[i] = _charsetData[_string[1]._default.charset][i] = (unsigned char)args[i];
break;
case 0x80:
case 0x81:
a = pop();
_wiz->loadWizCursor(a);
break;
case 0x82:
pop();
a = pop();
_wiz->loadWizCursor(a);
break;
case 0x86: // SO_CURSOR_ON Turn cursor on
_cursor.state = 1;
break;
case 0x87: // SO_CURSOR_OFF Turn cursor off
_cursor.state = 0;
break;
case 0x88: // SO_CURSOR_SOFT_ON Turn soft cursor on
_cursor.state++;
if (_cursor.state > 1)
error("o100_cursorCommand: Cursor state greater than 1 in script");
break;
case 0x89: // SO_CURSOR_SOFT_OFF Turn soft cursor off
_cursor.state--;
break;
case 0x8B: // SO_USERPUT_ON
_userPut = 1;
break;
case 0x8C: // SO_USERPUT_OFF
_userPut = 0;
break;
case 0x8D: // SO_USERPUT_SOFT_ON
_userPut++;
break;
case 0x8E: // SO_USERPUT_SOFT_OFF
_userPut--;
break;
default:
error("o100_cursorCommand: default case %x", subOp);
}
VAR(VAR_CURSORSTATE) = _cursor.state;
VAR(VAR_USERPUT) = _userPut;
}
void ScummEngine_v100he::o100_videoOps() {
// Uses Bink video
byte subOp = fetchScriptByte();
switch (subOp) {
case 0:
memset(_videoParams.filename, 0, sizeof(_videoParams.filename));
_videoParams.unk2 = pop();
break;
case 19:
_videoParams.status = 19;
break;
case 40:
_videoParams.wizResNum = pop();
if (_videoParams.wizResNum)
_videoParams.flags |= 2;
break;
case 47:
copyScriptString(_videoParams.filename, sizeof(_videoParams.filename));
_videoParams.status = 47;
break;
case 67:
_videoParams.flags |= pop();
break;
case 92:
if (_videoParams.status == 47) {
// Start video
if (_videoParams.flags == 0)
_videoParams.flags = 4;
const char *filename = (char *)_videoParams.filename + convertFilePath(_videoParams.filename);
if (_videoParams.flags == 2) {
VAR(119) = _moviePlay->load(filename, _videoParams.flags, _videoParams.wizResNum);
} else {
VAR(119) = _moviePlay->load(filename, _videoParams.flags);
}
} else if (_videoParams.status == 19) {
// Stop video
_moviePlay->closeFile();
}
break;
default:
error("o100_videoOps: unhandled case %d", subOp);
}
debug(1,"o100_videoOps stub (%d)", subOp);
}
void ScummEngine_v100he::o100_wait() {
int actnum;
int offs = -2;
Actor *a;
byte subOp = fetchScriptByte();
switch (subOp) {
case 128: // SO_WAIT_FOR_ACTOR Wait for actor
offs = fetchScriptWordSigned();
actnum = pop();
a = derefActor(actnum, "o100_wait:168");
if (a->_moving)
break;
return;
case 129: // SO_WAIT_FOR_CAMERA Wait for camera
if (camera._cur.x / 8 != camera._dest.x / 8)
break;
return;
case 130: // SO_WAIT_FOR_MESSAGE Wait for message
if (VAR(VAR_HAVE_MSG))
break;
return;
case 131: // SO_WAIT_FOR_SENTENCE
if (_sentenceNum) {
if (_sentence[_sentenceNum - 1].freezeCount && !isScriptInUse(VAR(VAR_SENTENCE_SCRIPT)))
return;
break;
}
if (!isScriptInUse(VAR(VAR_SENTENCE_SCRIPT)))
return;
break;
default:
error("o100_wait: default case 0x%x", subOp);
}
_scriptPointer += offs;
o6_breakHere();
}
void ScummEngine_v100he::o100_writeFile() {
int32 resID = pop();
int slot = pop();
byte subOp = fetchScriptByte();
assert(_hOutFileTable[slot]);
switch (subOp) {
case 5:
fetchScriptByte();
writeFileFromArray(slot, resID);
break;
case 42:
_hOutFileTable[slot]->writeUint16LE(resID);
break;
case 43:
_hOutFileTable[slot]->writeUint32LE(resID);
break;
case 45:
_hOutFileTable[slot]->writeByte(resID);
break;
default:
error("o100_writeFile: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_isResourceLoaded() {
// Reports percentage of resource loaded by queue
int type;
byte subOp = fetchScriptByte();
/* int idx = */ pop();
switch (subOp) {
case 25:
type = rtCostume;
break;
case 40:
type = rtImage;
break;
case 62:
type = rtRoom;
break;
case 66:
type = rtScript;
break;
case 72:
type = rtSound;
break;
default:
error("o100_isResourceLoaded: default case %d", subOp);
}
push(100);
}
void ScummEngine_v100he::o100_getResourceSize() {
const byte *ptr;
int size, type;
int resid = pop();
byte subOp = fetchScriptByte();
switch (subOp) {
case 25:
type = rtCostume;
break;
case 40:
type = rtImage;
break;
case 62:
type = rtRoomImage;
break;
case 66:
type = rtScript;
break;
case 72:
push (getSoundResourceSize(resid));
return;
default:
error("o100_getResourceSize: default type %d", subOp);
}
ptr = getResourceAddress(type, resid);
assert(ptr);
size = READ_BE_UINT32(ptr + 4) - 8;
push(size);
}
void ScummEngine_v100he::o100_getSpriteGroupInfo() {
int32 tx, ty;
int spriteGroupId, type;
byte subOp = fetchScriptByte();
switch (subOp) {
case 5:
spriteGroupId = pop();
if (spriteGroupId)
push(getGroupSpriteArray(spriteGroupId));
else
push(0);
break;
case 40:
spriteGroupId = pop();
if (spriteGroupId)
push(_sprite->getGroupDstResNum(spriteGroupId));
else
push(0);
break;
case 54:
// TODO: U32 related
pop();
pop();
push(0);
break;
case 59:
spriteGroupId = pop();
if (spriteGroupId)
push(_sprite->getGroupPriority(spriteGroupId));
else
push(0);
break;
case 60:
type = pop();
spriteGroupId = pop();
if (spriteGroupId) {
switch (type) {
case 0:
push(_sprite->getGroupXMul(spriteGroupId));
break;
case 1:
push(_sprite->getGroupXDiv(spriteGroupId));
break;
case 2:
push(_sprite->getGroupYMul(spriteGroupId));
break;
case 3:
push(_sprite->getGroupYDiv(spriteGroupId));
break;
default:
push(0);
}
} else {
push(0);
}
break;
case 85:
spriteGroupId = pop();
if (spriteGroupId) {
_sprite->getGroupPosition(spriteGroupId, tx, ty);
push(tx);
} else {
push(0);
}
break;
case 86:
spriteGroupId = pop();
if (spriteGroupId) {
_sprite->getGroupPosition(spriteGroupId, tx, ty);
push(ty);
} else {
push(0);
}
break;
default:
error("o100_getSpriteGroupInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_getWizData() {
byte filename[4096];
int resId, state, type;
int32 w, h;
int32 x, y;
byte subOp = fetchScriptByte();
subOp -= 20;
switch (subOp) {
case 0:
y = pop();
x = pop();
state = pop();
resId = pop();
push(_wiz->getWizPixelColor(resId, state, x, y, 0));
break;
case 6:
resId = pop();
push(_wiz->getWizImageStates(resId));
break;
case 13:
y = pop();
x = pop();
state = pop();
resId = pop();
push(_wiz->isWizPixelNonTransparent(resId, state, x, y, 0));
break;
case 19:
state = pop();
resId = pop();
_wiz->getWizImageDim(resId, state, w, h);
push(h);
break;
case 34:
type = pop();
state = pop();
resId = pop();
push(_wiz->getWizImageData(resId, state, type));
break;
case 64:
state = pop();
resId = pop();
_wiz->getWizImageDim(resId, state, w, h);
push(w);
break;
case 65:
state = pop();
resId = pop();
_wiz->getWizImageSpot(resId, state, x, y);
push(x);
break;
case 66:
state = pop();
resId = pop();
_wiz->getWizImageSpot(resId, state, x, y);
push(y);
break;
case 111:
pop();
copyScriptString(filename, sizeof(filename));
pop();
push(0);
debug(0, "o100_getWizData() case 111 unhandled");
break;
case 112:
h = pop();
w = pop();
y = pop();
x = pop();
state = pop();
resId = pop();
if (x == -1 && y == -1 && w == -1 && h == -1) {
_wiz->getWizImageDim(resId, state, w, h);
x = 0;
y = 0;
}
push(computeWizHistogram(resId, state, x, y, w, h));
break;
default:
error("o100_getWizData: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_getPaletteData() {
int b, c, d, e;
int palSlot, color;
byte subOp = fetchScriptByte();
switch (subOp) {
case 13:
c = pop();
b = pop();
push(getHEPaletteColorComponent(1, b, c));
break;
case 20:
color = pop();
palSlot = pop();
push(getHEPaletteColor(palSlot, color));
break;
case 33:
e = pop();
d = pop();
palSlot = pop();
pop();
c = pop();
b = pop();
push(getHEPaletteSimilarColor(palSlot, b, c, d, e));
break;
case 53:
pop();
c = pop();
c = MAX(0, c);
c = MIN(c, 255);
b = pop();
b = MAX(0, b);
b = MIN(b, 255);
push(getHEPaletteSimilarColor(1, b, c, 10, 245));
break;
case 73:
c = pop();
b = pop();
palSlot = pop();
push(getHEPaletteColorComponent(palSlot, b, c));
break;
default:
error("o100_getPaletteData: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_readFile() {
int slot, val;
int32 size;
byte subOp = fetchScriptByte();
switch (subOp) {
case 5:
fetchScriptByte();
size = pop();
slot = pop();
val = readFileToArray(slot, size);
push(val);
break;
case 42:
slot = pop();
assert(_hInFileTable[slot]);
val = _hInFileTable[slot]->readUint16LE();
push(val);
break;
case 43:
slot = pop();
assert(_hInFileTable[slot]);
val = _hInFileTable[slot]->readUint32LE();
push(val);
break;
case 45:
slot = pop();
assert(_hInFileTable[slot]);
val = _hInFileTable[slot]->readByte();
push(val);
break;
default:
error("o100_readFile: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_getSpriteInfo() {
int args[16];
int spriteId, flags, groupId, type;
int32 x, y;
byte subOp = fetchScriptByte();
switch (subOp) {
case 3:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteFlagAutoAnim(spriteId));
else
push(0);
break;
case 4:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteAnimSpeed(spriteId));
else
push(1);
break;
case 7:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteSourceImage(spriteId));
else
push(0);
break;
case 16:
flags = getStackList(args, ARRAYSIZE(args));
spriteId = pop();
if (spriteId) {
push(_sprite->getSpriteClass(spriteId, flags, args));
} else {
push(0);
}
break;
case 26:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteImageStateCount(spriteId));
else
push(0);
break;
case 30:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteDisplayX(spriteId));
else
push(0);
break;
case 31:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteDisplayY(spriteId));
else
push(0);
break;
case 32:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteFlagEraseType(spriteId));
else
push(1);
break;
case 33:
flags = getStackList(args, ARRAYSIZE(args));
type = pop();
groupId = pop();
y = pop();
x = pop();
push(_sprite->findSpriteWithClassOf(x, y, groupId, type, flags, args));
break;
case 38:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteGroup(spriteId));
else
push(0);
break;
case 39:
spriteId = pop();
if (spriteId) {
_sprite->getSpriteImageDim(spriteId, x, y);
push(y);
} else {
push(0);
}
break;
case 40:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteImage(spriteId));
else
push(0);
break;
case 48:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteMaskImage(spriteId));
else
push(0);
break;
case 54:
flags = pop();
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteGeneralProperty(spriteId, flags));
else
push(0);
break;
case 57:
spriteId = pop();
if (spriteId)
push(_sprite->getSpritePalette(spriteId));
else
push(0);
break;
case 59:
spriteId = pop();
if (spriteId)
push(_sprite->getSpritePriority(spriteId));
else
push(0);
break;
case 60:
flags = pop();
spriteId = pop();
if (spriteId) {
switch (flags) {
case 0:
push(_sprite->getSpriteFlagXFlipped(spriteId));
break;
case 1:
push(_sprite->getSpriteFlagYFlipped(spriteId));
break;
case 2:
push(_sprite->getSpriteFlagActive(spriteId));
break;
case 3:
push(_sprite->getSpriteFlagDoubleBuffered(spriteId));
break;
case 4:
push(_sprite->getSpriteFlagRemapPalette(spriteId));
break;
default:
push(0);
}
} else {
push(0);
}
break;
case 65:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteScale(spriteId));
else
push(0);
break;
case 70:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteShadow(spriteId));
else
push(0);
break;
case 73:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteImageState(spriteId));
else
push(0);
break;
case 75:
spriteId = pop();
if (spriteId) {
_sprite->getSpriteDist(spriteId, x, y);
push(x);
} else {
push(0);
}
break;
case 76:
spriteId = pop();
if (spriteId) {
_sprite->getSpriteDist(spriteId, x, y);
push(y);
} else {
push(0);
}
break;
case 82:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteFlagUpdateType(spriteId));
else
push(0);
break;
case 83:
pop();
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteUserValue(spriteId));
else
push(0);
break;
case 84:
spriteId = pop();
if (spriteId) {
_sprite->getSpriteImageDim(spriteId, x, y);
push(x);
} else {
push(0);
}
break;
case 85:
spriteId = pop();
if (spriteId) {
_sprite->getSpritePosition(spriteId, x, y);
push(x);
} else {
push(0);
}
break;
case 86:
spriteId = pop();
if (spriteId) {
_sprite->getSpritePosition(spriteId, x, y);
push(y);
} else {
push(0);
}
break;
default:
error("o100_getSpriteInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_getVideoData() {
// Uses Bink video
byte subOp = fetchScriptByte();
subOp -= 26;
switch (subOp) {
case 0:
pop();
push(_moviePlay->getFrameCount());
break;
case 13:
pop();
push(_moviePlay->getHeight());
break;
case 14:
pop();
push(_moviePlay->getImageNum());
break;
case 28:
debug(0, "o100_getVideoData: subOp 28 stub (%d, %d)", pop(), pop());
push(0);
break;
case 47:
pop();
push(_moviePlay->getCurFrame());
break;
case 58:
pop();
push(_moviePlay->getWidth());
break;
default:
error("o100_getVideoData: unhandled case %d", subOp);
}
}
void ScummEngine_v100he::decodeParseString(int m, int n) {
Actor *a;
int i, colors, size;
int args[31];
byte name[1024];
byte b = fetchScriptByte();
switch (b) {
case 6: // SO_AT
_string[m].ypos = pop();
_string[m].xpos = pop();
_string[m].overhead = false;
break;
case 12: // SO_CENTER
_string[m].center = true;
_string[m].overhead = false;
break;
case 18: // SO_CLIPPED
_string[m].right = pop();
break;
case 20: // SO_COLOR
_string[m].color = pop();
break;
case 21:
colors = pop();
if (colors == 1) {
_string[m].color = pop();
} else {
push(colors);
getStackList(args, ARRAYSIZE(args));
for (i = 0; i < 16; i++)
_charsetColorMap[i] = _charsetData[_string[m]._default.charset][i] = (unsigned char)args[i];
_string[m].color = _charsetColorMap[0];
}
break;
case 35:
decodeScriptString(name, true);
printString(m, name);
break;
case 46: // SO_LEFT
_string[m].center = false;
_string[m].overhead = false;
break;
case 51: // SO_MUMBLE
_string[m].no_talk_anim = true;
break;
case 56: // SO_OVERHEAD
_string[m].overhead = true;
_string[m].no_talk_anim = false;
break;
case 78:
{
byte *dataPtr = getResourceAddress(rtTalkie, pop());
byte *text = findWrappedBlock(MKID_BE('TEXT'), dataPtr, 0, 0);
size = getResourceDataSize(text);
memcpy(name, text, size);
printString(m, name);
}
break;
case 79: // SO_TEXTSTRING
printString(m, _scriptPointer);
_scriptPointer += resStrLen(_scriptPointer) + 1;
break;
case 91:
_string[m].loadDefault();
if (n) {
_actorToPrintStrFor = pop();
if (_actorToPrintStrFor != 0xFF) {
a = derefActor(_actorToPrintStrFor, "decodeParseString");
_string[m].color = a->_talkColor;
}
}
break;
case 92:
_string[m].saveDefault();
break;
default:
error("decodeParseString: default case %d", b);
}
}
} // End of namespace Scumm
Reference in New Issue View Git Blame Copy Permalink