thirdparty/scummvm
2
0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
scummvm/scumm/script_v100he.cpp
Eugene Sandulenko 154c4af8dc Mass-renamed all variables of Actor object according to our current code 
formatting standards. Earlier we had half of vars named with leading
underscore and half without it.

Now code in actor.cpp is considerably more readable.

svn-id: r17068
2005-03-11 01:10:06 +00:00

2794 lines
56 KiB
C++
Raw Blame History

/* ScummVM - Scumm Interpreter
* Copyright (C) 2001 Ludvig Strigeus
* Copyright (C) 2001-2005 The ScummVM project
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Header$
*
*/
#include "stdafx.h"
#include "common/config-manager.h"
#include "scumm/actor.h"
#include "scumm/charset.h"
#include "scumm/intern.h"
#include "scumm/object.h"
#include "scumm/resource.h"
#include "scumm/resource_v7he.h"
#include "scumm/scumm.h"
#include "scumm/sound.h"
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(o6_invalid),
/* 0C */
OPCODE(o6_setCameraAt),
OPCODE(o6_actorFollowCamera),
OPCODE(o6_loadRoom),
OPCODE(o6_panCameraTo),
/* 10 */
OPCODE(o6_invalid),
OPCODE(o100_jumpToScript),
OPCODE(o6_setClass),
OPCODE(o60_closeFile),
/* 14 */
OPCODE(o6_loadRoomWithEgo),
OPCODE(o6_invalid),
OPCODE(o72_setFilePath),
OPCODE(o100_loadSBNG),
/* 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(o80_drawBox),
/* 24 */
OPCODE(o72_drawWizImage),
OPCODE(o80_drawWizPolygon),
OPCODE(o100_unknownE0),
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(o6_invalid),
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(o70_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_setObjectName),
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_printCursor),
OPCODE(o90_jumpToScriptUnk),
OPCODE(o90_startScriptUnk),
OPCODE(o6_pseudoRoom),
/* 5C */
OPCODE(o6_pushByte),
OPCODE(o72_pushDWord),
OPCODE(o72_addMessageToStack),
OPCODE(o6_pushWord),
/* 60 */
OPCODE(o6_pushWordVar),
OPCODE(o6_putActorAtObject),
OPCODE(o6_putActorAtXY),
OPCODE(o6_invalid),
/* 64 */
OPCODE(o100_redimArray),
OPCODE(o60_rename),
OPCODE(o6_stopObjectCode),
OPCODE(o80_localizeArrayToRoom),
/* 68 */
OPCODE(o100_roomOps),
OPCODE(o6_printActor),
OPCODE(o6_printEgo),
OPCODE(o6_talkActor),
/* 6C */
OPCODE(o6_talkEgo),
OPCODE(o6_invalid),
OPCODE(o60_seekFilePos),
OPCODE(o6_setBoxFlags),
/* 70 */
OPCODE(o6_invalid),
OPCODE(o6_setBoxSet),
OPCODE(o72_setWindowCaption),
OPCODE(o6_shuffle),
/* 74 */
OPCODE(o6_delay),
OPCODE(o6_delayMinutes),
OPCODE(o6_delaySeconds),
OPCODE(o100_startSound),
/* 78 */
OPCODE(o6_invalid),
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_quitPauseRestart),
OPCODE(o6_invalid),
OPCODE(o72_setTimer),
OPCODE(o100_cursorCommand),
/* 8C */
OPCODE(o6_invalid),
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(o6_invalid),
OPCODE(o6_findInventory),
OPCODE(o70_findObject),
/* B0 */
OPCODE(o72_findObjectWithClassOf),
OPCODE(o70_polygonHit),
OPCODE(o6_invalid),
OPCODE(o6_invalid),
/* B4 */
OPCODE(o72_getNumFreeArrays),
OPCODE(o72_getArrayDimSize),
OPCODE(o72_checkGlobQueue),
OPCODE(o100_getResourceSize),
/* B8 */
OPCODE(o100_getSpriteGroupInfo),
OPCODE(o6_invalid),
OPCODE(o100_getWizData),
OPCODE(o6_isActorInBox),
/* BC */
OPCODE(o6_isAnyOf),
OPCODE(o6_getInventoryCount),
OPCODE(o72_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_getSoundElapsedTimeOfSound),
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(o6_invalid),
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 subOp;
byte string[256];
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:
i = pop();
j = pop();
a->putActor(i, j, a->_room);
break;
case 8:
a->_drawToBackBuf = false;
a->_needRedraw = true;
a->_needBgReset = true;
break;
case 9:
{
int top_actor = a->_top;
int bottom_actor = a->_bottom;
a->_drawToBackBuf = true;
a->_needRedraw = true;
a->drawActorCostume();
a->_drawToBackBuf = false;
a->_needRedraw = true;
a->drawActorCostume();
a->_needRedraw = false;
if (a->_top > top_actor)
a->_top = top_actor;
if (a->_bottom < bottom_actor)
a->_bottom = bottom_actor;
}
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();
break;
case 22:
k = getStackList(args, ARRAYSIZE(args));
for (i = 0; i < k; ++i) {
a->setUserCondition(args[i] & 0x7F, args[i] & 0x80);
}
debug(1,"o100_actorOps: case 21 (%d)", k);
break;
case 25: // SO_COSTUME
a->setActorCostume(pop());
break;
case 27: // SO_DEFAULT
a->initActor(0);
break;
case 32:
i = pop();
debug(1,"o100_actorOps: case 32 (%d)", i);
break;
case 52: // SO_ACTOR_NAME
copyScriptString(string);
loadPtrToResource(rtActorName, a->_number, string);
break;
case 53: // SO_ACTOR_NEW
a->initActor(2);
break;
case 57: // SO_PALETTE
j = pop();
i = pop();
checkRange(255, 0, i, "o100_actorOps: Illegal palette slot %d");
a->remapActorPaletteColor(i, j);
a->_needRedraw = true;
break;
case 59:
// Uses 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->_shadowMode = pop();
a->_needRedraw = true;
debug(0, "o100_actorOps: Set actor XMAP idx to %d", a->_shadowMode);
break;
case 74: // SO_STEP_DIST
j = pop();
i = pop();
a->setActorWalkSpeed(i, j);
break;
case 78:
{
copyScriptString(string);
int slot = pop();
int len = resStrLen(string) + 1;
addMessageToStack(string, a->_heTalkQueue[slot].sentence, 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();
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(a->_pos.x, a->_pos.y, a->_room);
break;
case 135: // SO_IGNORE_BOXES
a->_ignoreBoxes = 1;
a->_forceClip = 0;
if (a->isInCurrentRoom())
a->putActor(a->_pos.x, a->_pos.y, a->_room);
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();
a->_heNoTalkAnimation = 1;
a->setTalkCondition(k);
debug(1,"o100_actorOps: case 24 (%d)", 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 subOp = fetchScriptByte();
int array = fetchScriptWord();
int offs, tmp, tmp2, tmp3;
int dim1end, dim1start, dim2end, dim2start;
int id, len, b, c;
ArrayHeader *ah;
int list[128];
byte string[2048];
debug(1,"o100_arrayOps: case %d", subOp);
switch (subOp) {
case 35: // SO_ASSIGN_STRING
decodeScriptString(string);
len = resStrLen(string) + 1;
ah = defineArray(array, kStringArray, 0, 0, 0, len);
memcpy(ah->data, string, len);
break;
case 77: // SO_ASSIGN_STRING
copyScriptString(string);
len = resStrLen(string) + 1;
ah = defineArray(array, kStringArray, 0, 0, 0, len);
memcpy(ah->data, string, len);
break;
case 128: // SO_ASSIGN_2DIM_LIST
len = getStackList(list, ARRAYSIZE(list));
id = readVar(array);
if (id == 0)
error("o100_arrayOps: 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);
}
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);
}
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:
{
// TODO
//Array1
dim1end = pop();
dim1start = pop();
dim2end = pop();
dim2start = pop();
//Array2
array = fetchScriptWord();
dim1end = pop();
dim1start = pop();
dim2end = pop();
dim2start = pop();
}
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);
}
len = c - b;
len |= dim2end;
len = len - dim2end + 1;
offs = (b >= c) ? 1 : -1;
tmp2 = c;
tmp3 = len;
while (dim2start <= dim2end) {
tmp = dim1start;
while (tmp <= dim1end) {
writeArray(array, dim2start, tmp, tmp2);
if (--tmp3 == 0) {
tmp2 = c;
tmp3 = len;
} 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_loadSBNG() {
// Loads SBNG sound resource
byte subOp = fetchScriptByte();
switch (subOp) {
case 0:
//_heSBNGId = pop();
break;
case 53:
//loadSBNG(_heSBNGId, -1);
break;
case 128:
pop();
//loadSBNG(_heSBNGId, pop();
break;
default:
warning("o100_loadSBNG: default case %d", subOp);
}
debug(1,"o100_loadSBNG stub (%d)",subOp);
}
void ScummEngine_v100he::o100_dim2dimArray() {
int a, b, data;
int type = fetchScriptByte();
switch (type) {
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", type);
}
b = pop();
a = pop();
defineArray(fetchScriptWord(), data, 0, a, 0, b);
}
void ScummEngine_v100he::o100_dimArray() {
int data;
int type = fetchScriptByte();
switch (type) {
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", type);
}
defineArray(fetchScriptWord(), data, 0, 0, 0, pop());
}
void ScummEngine_v100he::o100_unknownE0() {
// wizImage related
int b, c, d, num, x1, y1, type = 0;
b = pop();
num = pop();
c = pop();
d = pop();
y1 = pop();
x1 = pop();
byte subOp = fetchScriptByte();
switch (subOp) {
case 1:
{
Actor *a = derefActorSafe(num, "o100_unknownE0");
int top_actor = a->_top;
int bottom_actor = a->_bottom;
a->_drawToBackBuf = true;
a->_needRedraw = true;
a->drawActorCostume();
a->_drawToBackBuf = false;
a->_needRedraw = true;
a->drawActorCostume();
a->_needRedraw = false;
if (a->_top > top_actor)
a->_top = top_actor;
if (a->_bottom < bottom_actor)
a->_bottom = bottom_actor;
type = 2;
}
break;
case 20:
type = 1;
break;
case 40:
{
WizImage wi;
wi.flags = 0;
wi.y1 = y1;
wi.x1 = x1;
wi.resNum = num;
wi.state = 0;
displayWizImage(&wi);
type = 3;
}
break;
default:
error("o100_unknownE0: default case %d", subOp);
}
debug(1,"o100_unknownE0 stub: type %d (%d, num %d, %d, %d, y %d, x %d)", type, b, num, c, d, y1, x1);
}
void ScummEngine_v100he::o100_drawObject() {
byte subOp = fetchScriptByte();
int state, y, x;
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_setSpriteGroupInfo() {
byte string[260];
int type, value1, value2, value3, value4;
byte subOp = fetchScriptByte();
debug(1,"o100_setSpriteGroupInfo (%d)", subOp);
switch (subOp) {
case 0:
_curSpriteGroupId = pop();
break;
case 6:
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_tx_ty(_curSpriteGroupId, value1, value2);
break;
case 18:
value4 = pop();
value3 = pop();
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_bbox(_curSpriteGroupId, value1, value2, value3, value4);
break;
case 38:
type = pop() - 1;
switch (type) {
case 0:
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_case0_0(_curSpriteGroupId, value1, value2);
break;
case 1:
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_case0_1(_curSpriteGroupId, value1);
break;
case 2:
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_case0_2(_curSpriteGroupId, value1);
break;
case 3:
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_case0_3(_curSpriteGroupId, value1);
break;
case 4:
if (!_curSpriteGroupId)
break;
spriteGroupSet_case0_4(_curSpriteGroupId);
break;
case 5:
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_case0_5(_curSpriteGroupId, value1);
break;
case 6:
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_case0_6(_curSpriteGroupId, value1);
break;
case 7:
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_case0_7(_curSpriteGroupId, value1);
break;
default:
error("o100_setSpriteGroupInfo subOp 38: Unknown case %d", subOp);
}
break;
case 40:
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_field_20(_curSpriteGroupId, value1);
break;
case 49:
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_inc_tx_ty(_curSpriteGroupId, value1, value2);
break;
case 52:
copyScriptString(string);
break;
case 53:
if (!_curSpriteGroupId)
break;
spritesResetGroup(_curSpriteGroupId);
break;
case 54:
// dummy case
pop();
pop();
break;
case 59:
value1 = pop();
if (!_curSpriteGroupId)
break;
spriteGroupSet_zorderPriority(_curSpriteGroupId, value1);
break;
case 60:
type = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
switch (type) {
case 0:
spriteGroupSet_scale_x_ratio_mul(_curSpriteGroupId, value1);
break;
case 1:
spriteGroupSet_scale_x_ratio_div(_curSpriteGroupId, value1);
break;
case 2:
spriteGroupSet_scale_y_ratio_mul(_curSpriteGroupId, value1);
break;
case 3:
spriteGroupSet_scale_y_ratio_div(_curSpriteGroupId, value1);
break;
default:
error("o100_setSpriteGroupInfo subOp 60: Unknown case %d", subOp);
}
break;
case 89:
if (!_curSpriteGroupId)
break;
spriteGroupSet_flagNeedRedrawAnd(_curSpriteGroupId);
break;
default:
error("o100_setSpriteGroupInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_resourceRoutines() {
int obj, 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) {
obj = _heResId;
room= getObjectRoom(obj);
loadFlObject(obj, 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);
//assert(objidx != -1);
//lock(_heResType, objidx);
} else {
lock(_heResType, _heResId);
}
break;
case 133:
if (_heResType == rtCharset)
nukeCharset(_heResId);
else
nukeResource(_heResType, _heResId);
break;
case 134:
case 135:
// Heap related
break;
case 136:
debug(5,"stub queueload (%d) resource %d", _heResType, _heResId);
break;
case 137:
if (_heResType == rtScript && _heResId >= _numGlobalScripts)
break;
if (_heResType == rtFlObject) {
objidx = getObjectIndex(_heResId);
//assert(objidx != -1);
//unlock(_heResType, objidx);
} else {
unlock(_heResType, _heResId);
}
break;
default:
error("o100_resourceRoutines: default case %d", subOp);
}
}
void ScummEngine_v100he::o100_wizImageOps() {
byte filename[256];
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;
break;
case 2:
_wizParams.processFlags |= kWPFRotate;
_wizParams.angle = pop();
break;
case 6:
_wizParams.processFlags |= kWPFSetPos;
_wizParams.img.y1 = pop();
_wizParams.img.x1 = pop();
break;
case 7:
_wizParams.processFlags |= 0x80000;
_wizParams.unk_178 = pop();
break;
case 11:
_wizParams.processFlags |= 0x300;
_wizParams.processMode = 2;
_wizParams.box.bottom = pop();
_wizParams.box.right = pop();
_wizParams.box.top = pop();
_wizParams.box.left = pop();
_wizParams.compType = pop();
break;
case 18:
_wizParams.processFlags |= kWPFClipBox;
_wizParams.box.bottom = pop();
_wizParams.box.right = pop();
_wizParams.box.top = pop();
_wizParams.box.left = pop();
break;
case 21:
b = pop();
a = pop();
_wizParams.processFlags |= 0x40;
_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);
break;
case 53:
_wizParams.processMode = 8;
break;
case 54:
_wizParams.processFlags |= 0x10000;
//_wizParams.unk_17C = pop();
//_wizParams.unk_180 = pop();
pop();
pop();
break;
case 55:
_wizParams.img.flags = pop();
_wizParams.img.state = pop();
_wizParams.img.y1 = pop();
_wizParams.img.x1 = pop();
_wizParams.img.resNum = pop();
displayWizImage(&_wizParams.img);
break;
case 57:
_wizParams.processFlags |= 0x8000;
_wizParams.unk_174 = pop();
break;
case 58:
_wizParams.processFlags |= 0x1102;
_wizParams.processMode = 7;
_wizParams.unk_164 = pop();
_wizParams.unk_160 = pop();
_wizParams.compType = pop();
break;
case 64:
_wizParams.processFlags |= kWPFUseFile;
_wizParams.processMode = 4;
copyScriptString(_wizParams.filename);
_wizParams.unk_14C = pop();
break;
case 65:
_wizParams.processFlags |= kWPFZoom;
_wizParams.zoom = pop();
break;
case 67:
_wizParams.processFlags |= kWPFNewFlags;
_wizParams.img.flags = pop();
break;
case 68:
_wizParams.processFlags |= kWPFNewFlags | kWPFSetPos | 2;
_wizParams.img.flags |= kWIFIsPolygon;
_wizParams.unk_160 = _wizParams.img.y1 = _wizParams.img.x1 = pop();
break;
case 70:
_wizParams.processFlags |= 4;
_wizParams.unk_15C = 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)
processWizImage(&_wizParams);
break;
case 128:
pop();
pop();
pop();
pop();
copyScriptString(filename);
_wizParams.processMode = 15;
break;
case 129:
_wizParams.processMode = 14;
break;
case 130:
_wizParams.processMode = 16;
pop();
pop();
copyScriptString(filename);
break;
case 131:
_wizParams.processMode = 13;
break;
case 133:
_wizParams.processMode = 17;
pop();
pop();
pop();
pop();
pop();
pop();
pop();
pop();
break;
case 134:
_wizParams.processFlags |= 0x60000;
_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 |= 0x10000;
_wizParams.unk_380 = pop();
break;
case 136:
_wizParams.processFlags |= 0x60000;
_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 |= 0x60000;
_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 |= 0x60000;
_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);
}
debug(1,"o100_wizImageOps stub (%d)", subOp);
}
void ScummEngine_v100he::o100_dim2dim2Array() {
int data, dim1start, dim1end, dim2start, dim2end;
int type = fetchScriptByte();
switch (type) {
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", type);
}
if (pop() == 2) {
dim1end = pop();
dim1start = pop();
dim2end = pop();
dim2start = pop();
} else {
dim2end = pop();
dim2start = pop();
dim1end = pop();
dim1start = pop();
}
defineArray(fetchScriptWord(), data, dim2start, dim2end, dim1start, dim1end);
}
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);
}
debug(1, "o100_paletteOps stub (%d)", subOp);
}
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 op;
byte filename[100];
op = fetchScriptByte();
switch (op) {
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();
setPalette(a, _roomResource);
break;
case 135:
b = pop();
a = pop();
setPalette(a, b);
break;
case 136: // SO_ROOM_SAVEGAME
_saveTemporaryState = true;
_saveLoadSlot = pop();
_saveLoadFlag = pop();
break;
case 137:
copyScriptString(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", op);
}
}
void ScummEngine_v100he::o100_startSound() {
byte subOp = fetchScriptByte();
switch (subOp) {
case 6:
_heSndFlags |= 16;
pop();
break;
case 55:
_heSndFlags |= 8;
break;
case 83:
{
int value = pop();
int var = pop();
int snd = pop();
debug(1,"o70_startSound: case 29 (snd %d, var %d, value %d)", snd, var, value);
}
break;
case 92:
debug(0, "o100_startSound (ID %d, Offset %d, Channel %d, Flags %d)", _heSndSoundId, _heSndOffset, _heSndChannel, _heSndFlags);
_sound->addSoundToQueue(_heSndSoundId, _heSndOffset, _heSndChannel, _heSndFlags);
break;
case 128:
_heSndFlags |= 2;
break;
case 129:
_heSndChannel = pop();
break;
case 130:
_heSndFlags |= 40;
pop();
break;
case 131:
_heSndFlags |= 4;
break;
case 132:
case 134:
_heSndSoundId = pop();
_heSndOffset = 0;
_heSndSoundFreq = 11025;
_heSndChannel = VAR(VAR_MUSIC_CHANNEL);
break;
case 133:
_heSndFlags |= 80;
pop();
break;
case 135:
_heSndFlags |= 4;
break;
case 136:
_heSndFlags |= 20;
pop();
break;
default:
error("o100_startSound invalid case %d", subOp);
}
}
void ScummEngine_v100he::o100_setSpriteInfo() {
int args[16];
int spriteId, n;
int32 tmp[2];
static int storedFields[2];
byte string[80];
byte subOp = fetchScriptByte();
debug(1,"o100_setSpriteInfo (%d)", subOp);
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++)
spriteInfoSet_rotAngle(spriteId, args[0]);
break;
case 3:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_flagYFlipped(spriteId, args[0]);
break;
case 4:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_field_78_64(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++)
spriteInfoSet_tx_ty(spriteId, args[0], args[1]);
break;
case 7:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_field_7C(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) {
spriteInfoSet_resetClassFlags(i);
}
} else if (code & 0x80) {
for (int i = _curSpriteId; i <= _curMaxSpriteId; ++i) {
spriteInfoSet_setClassFlag(i, code & 0x7F, 1);
}
} else {
for (int i = _curSpriteId; i <= _curMaxSpriteId; ++i) {
spriteInfoSet_setClassFlag(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++)
spriteInfoSet_flagHasImage(spriteId, args[0]);
break;
case 38:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_groupNum(spriteId, args[0]);
break;
case 40:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteAddImageToList(spriteId, 1, &args[0]);
break;
case 48:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_field_80(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++)
spriteInfoSet_Inc_tx_ty(spriteId, args[0], args[1]);
break;
case 52:
copyScriptString(string);
break;
case 53:
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_resetSprite(spriteId);
break;
case 54:
// TODO
pop();
pop();
break;
case 57:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_field_14(spriteId, args[0]);
break;
case 59:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_field_18(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:
spriteInfoSet_flag15(spriteId, args[0]);
break;
case 1:
spriteInfoSet_flag14(spriteId, args[0]);
break;
case 2:
spriteInfoSet_flagActive(spriteId, args[0]);
break;
case 3:
spriteInfoSet_flag13(spriteId, args[0]);
break;
case 4:
spriteInfoSet_flag20(spriteId, args[0]);
break;
default:
break;
}
break;
case 61:
spritesResetTables(true);
break;
case 65:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_zoom(spriteId, args[0]);
break;
case 70:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_field_54(spriteId, args[0]);
break;
case 73:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_resState(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++)
spriteInfoSet_dx_dy(spriteId, args[0], args[1]);
break;
case 75:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++) {
spriteInfoGet_dx_dy(spriteId, tmp[0], tmp[1]);
storedFields[0] = tmp[0];
spriteInfoSet_dx_dy(spriteId, args[0], tmp[1]);
}
break;
case 76:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++) {
spriteInfoGet_dx_dy(spriteId, tmp[0], tmp[1]);
storedFields[1] = tmp[1];
spriteInfoSet_dx_dy(spriteId, tmp[0], args[0]);
}
break;
case 82:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_flagXFlipped(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++)
spriteInfoSet_field_44(spriteId, args[0], args[1]);
break;
case 88:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_setClassFlags(spriteId, args[0]);
break;
case 89:
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
spriteInfoSet_resetClassFlags(spriteId);
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_quitPauseRestart() {
byte subOp = fetchScriptByte();
subOp -= 61;
switch (subOp) {
case 67:
clearDrawObjectQueue();
break;
case 71:
shutDown();
break;
case 72: // SO_RESTART
restart();
break;
case 75:
// Clear screen
// Update palette
break;
default:
error("o100_quitPauseRestart 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:
a = pop();
loadWizCursor(a, rtInventory, 0);
break;
case 0x81:
a = pop();
loadWizCursor(a, rtInventory, 0);
break;
case 0x82:
pop();
a = pop();
loadWizCursor(a, rtInventory, 1);
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:
warning("o100_cursorCommand: default case %x", subOp);
}
VAR(VAR_CURSORSTATE) = _cursor.state;
VAR(VAR_USERPUT) = _userPut;
}
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() {
int16 resID = pop();
int slot = pop();
byte subOp = fetchScriptByte();
switch (subOp) {
case 5:
fetchScriptByte();
writeFileFromArray(slot, resID);
break;
case 42:
_hFileTable[slot].writeUint16LE(resID);
break;
case 43:
_hFileTable[slot].writeUint32LE(resID);
break;
case 45:
_hFileTable[slot].writeByte(resID);
break;
default:
error("o100_writeFile: default case %d", subOp);
}
debug(1, "o100_writeFile: slot %d, subOp %d", slot, subOp);
}
void ScummEngine_v100he::o100_getResourceSize() {
int size = 0, type;
int idx = 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:
if (idx > _numSounds) {
// TODO Music resource size
push(100);
return;
}
type = rtSound;
break;
default:
error("o100_getResourceSize: default type %d", subOp);
}
const byte *ptr = getResourceAddress(type, idx);
if (ptr)
size = READ_BE_UINT32(ptr + 4) - 8;
push(size);
}
void ScummEngine_v100he::o100_getSpriteGroupInfo() {
int32 tx, ty;
int spriteGroupId, type;
byte subOp = fetchScriptByte();
debug(1,"o100_getSpriteGroupInfo (%d)", subOp);
switch (subOp) {
case 5:
spriteGroupId = pop();
if (spriteGroupId)
push(spriteGroupGet_allocateGroupSpritesList(spriteGroupId));
else
push(0);
break;
case 40:
spriteGroupId = pop();
if (spriteGroupId)
push(spriteGroupGet_field_20(spriteGroupId));
else
push(0);
break;
case 54:
// TODO
pop();
pop();
push(0);
break;
case 59:
spriteGroupId = pop();
if (spriteGroupId)
push(spriteGroupGet_zorderPriority(spriteGroupId));
else
push(0);
break;
case 60:
type = pop();
spriteGroupId = pop();
if (spriteGroupId) {
switch(type) {
case 0:
push(spriteGroupGet_scale_x_ratio_mul(spriteGroupId));
break;
case 1:
push(spriteGroupGet_scale_x_ratio_div(spriteGroupId));
break;
case 2:
push(spriteGroupGet_scale_y_ratio_mul(spriteGroupId));
break;
case 3:
push(spriteGroupGet_scale_y_ratio_div(spriteGroupId));
break;
default:
push(0);
}
} else {
push(0);
}
break;
case 85:
spriteGroupId = pop();
if (spriteGroupId) {
spriteGroupGet_tx_ty(spriteGroupId, tx, ty);
push(tx);
} else {
push(0);
}
break;
case 86:
spriteGroupId = pop();
if (spriteGroupId) {
spriteGroupGet_tx_ty(spriteGroupId, tx, ty);
push(ty);
} else {
push(0);
}
break;
default:
error("o100_getSpriteGroupInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::o100_getWizData() {
int state, resId;
int32 w, h;
int16 x, y;
byte subOp = fetchScriptByte();
subOp -= 20;
switch (subOp) {
case 0:
y = pop();
x = pop();
state = pop();
resId = pop();
push(getWizPixelColor(rtImage, resId, state, x, y, 0));
break;
case 6:
resId = pop();
push(getWizImageStates(resId));
break;
case 13:
y = pop();
x = pop();
state = pop();
resId = pop();
push(isWizPixelNonTransparent(rtImage, resId, state, x, y, 0));
break;
case 19:
state = pop();
resId = pop();
getWizImageDim(resId, state, w, h);
push(h);
break;
case 34:
pop();
pop();
pop();
push(0);
warning("o100_getWizData() case 34 unhandled");
break;
case 64:
state = pop();
resId = pop();
getWizImageDim(resId, state, w, h);
push(w);
break;
case 65:
state = pop();
resId = pop();
loadImgSpot(resId, state, x, y);
push(x);
break;
case 66:
state = pop();
resId = pop();
loadImgSpot(resId, state, x, y);
push(y);
break;
case 111:
pop();
pop();
push(0);
warning("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) {
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() {
byte subOp = fetchScriptByte();
switch (subOp) {
case 13:
pop();
pop();
break;
case 20:
pop();
pop();
break;
case 33:
pop();
pop();
pop();
pop();
pop();
pop();
break;
case 53:
pop();
pop();
pop();
break;
case 73:
pop();
pop();
pop();
break;
default:
error("o100_getPaletteData: Unknown case %d", subOp);
}
push(0);
debug(0, "o100_getPaletteData stub (%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();
val = _hFileTable[slot].readUint16LE();
push(val);
break;
case 43:
slot = pop();
val = _hFileTable[slot].readUint32LE();
push(val);
break;
case 45:
slot = pop();
val = _hFileTable[slot].readByte();
push(val);
break;
default:
error("o100_readFile: default case %d", subOp);
}
debug(1, "o100_readFile: slot %d, subOp %d val %d", slot, subOp, val);
}
void ScummEngine_v100he::o100_getSpriteInfo() {
int args[16];
int spriteId, flags, c, d, e, f;
int32 a, b;
byte subOp = fetchScriptByte();
debug(1,"o100_getSpriteInfo (%d)", subOp);
switch (subOp) {
case 3:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_flagYFlipped(spriteId));
else
push(0);
break;
case 4:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_field_78(spriteId));
else
push(1);
break;
case 7:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_field_7C(spriteId));
else
push(0);
break;
case 16:
flags = getStackList(args, ARRAYSIZE(args));
spriteId = pop();
if (spriteId) {
if (flags)
push(spriteInfoGet_classFlagsAnd(spriteId, flags, args));
else
push(spriteInfoGet_classFlags(spriteId, -1));
} else {
push(0);
}
break;
case 26:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_wizSize(spriteId));
else
push(0);
break;
case 30:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_grp_tx(spriteId));
else
push(0);
break;
case 31:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_grp_ty(spriteId));
else
push(0);
break;
case 32:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_flagHasImage(spriteId));
else
push(1);
break;
case 33:
flags = getStackList(args, ARRAYSIZE(args));
c = pop();
d = pop();
e = pop();
f = pop();
push(findSpriteWithClassOf(f, e, d, c, flags, args));
break;
case 38:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_groupNum(spriteId));
else
push(0);
break;
case 39:
spriteId = pop();
if (spriteId) {
getSpriteImageDim(spriteId, a, b);
push(b);
} else {
push(0);
}
break;
case 40:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_resId(spriteId));
else
push(0);
break;
case 48:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_field_80(spriteId));
else
push(0);
break;
case 54:
// TODO
pop();
pop();
push(0);
break;
case 57:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_field_14(spriteId));
else
push(0);
break;
case 59:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_field_18(spriteId));
else
push(0);
break;
case 60:
flags = pop();
spriteId = pop();
if (spriteId) {
switch(flags) {
case 0:
push(spriteInfoGet_flags_15(spriteId));
break;
case 1:
push(spriteInfoGet_flags_14(spriteId));
break;
case 2:
push(spriteInfoGet_flagActive(spriteId));
break;
case 3:
push(spriteInfoGet_flags_13(spriteId));
break;
case 4:
push(spriteInfoGet_flags_20(spriteId));
break;
default:
push(0);
}
} else {
push(0);
}
break;
case 65:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_zoom(spriteId));
else
push(0);
break;
case 70:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_field_54(spriteId));
else
push(0);
break;
case 73:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_resState(spriteId));
else
push(0);
break;
case 75:
spriteId = pop();
if (spriteId) {
spriteInfoGet_dx_dy(spriteId, a, b);
push(a);
} else {
push(0);
}
break;
case 76:
spriteId = pop();
if (spriteId) {
spriteInfoGet_dx_dy(spriteId, a, b);
push(b);
} else {
push(0);
}
break;
case 82:
spriteId = pop();
if (spriteId)
push(spriteInfoGet_flagXFlipped(spriteId));
else
push(0);
break;
case 83:
pop();
spriteId = pop();
if (spriteId)
push(spriteInfoGet_field_44(spriteId));
else
push(0);
break;
case 84:
spriteId = pop();
if (spriteId) {
getSpriteImageDim(spriteId, a, b);
push(a);
} else {
push(0);
}
break;
case 85:
spriteId = pop();
if (spriteId) {
spriteInfoGet_tx_ty(spriteId, a, b);
push(a);
} else {
push(0);
}
break;
case 86:
spriteId = pop();
if (spriteId) {
spriteInfoGet_tx_ty(spriteId, a, b);
push(b);
} else {
push(0);
}
break;
default:
error("o100_getSpriteInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v100he::decodeParseString(int m, int n) {
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[1]._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('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();
break;
case 92:
_string[m].saveDefault();
break;
default:
error("decodeParseString: default case %d", b);
}
}
} // End of namespace Scumm
Reference in a new issue View git blame Copy permalink