libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-22 09:49:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
b65f54982e
scummvm/engines/scumm/he/script_v90he.cpp

2384 lines
51 KiB
C++
Raw Blame History

/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
*/
#ifdef ENABLE_HE
#include "scumm/actor.h"
#include "scumm/charset.h"
#include "scumm/he/animation_he.h"
#include "scumm/he/intern_he.h"
#include "scumm/he/logic_he.h"
#include "scumm/object.h"
#include "scumm/resource.h"
#include "scumm/scumm.h"
#include "scumm/sound.h"
#include "scumm/he/sprite_he.h"
#include "scumm/util.h"
namespace Scumm {
#define OPCODE(i, x) _opcodes[i]._OPCODE(ScummEngine_v90he, x)
void ScummEngine_v90he::setupOpcodes() {
ScummEngine_v80he::setupOpcodes();
OPCODE(0x0a, o90_dup_n);
/* 1C */
OPCODE(0x1c, o90_wizImageOps);
OPCODE(0x1d, o90_min);
OPCODE(0x1e, o90_max);
OPCODE(0x1f, o90_sin);
/* 20 */
OPCODE(0x20, o90_cos);
OPCODE(0x21, o90_sqrt);
OPCODE(0x22, o90_atan2);
OPCODE(0x23, o90_getSegmentAngle);
/* 24 */
OPCODE(0x24, o90_getDistanceBetweenPoints);
OPCODE(0x25, o90_getSpriteInfo);
OPCODE(0x26, o90_setSpriteInfo);
OPCODE(0x27, o90_getSpriteGroupInfo);
/* 28 */
OPCODE(0x28, o90_setSpriteGroupInfo);
OPCODE(0x29, o90_getWizData);
OPCODE(0x2a, o90_getActorData);
OPCODE(0x2b, o90_startScriptUnk);
/* 2C */
OPCODE(0x2c, o90_jumpToScriptUnk);
OPCODE(0x2d, o90_videoOps);
OPCODE(0x2e, o90_getVideoData);
OPCODE(0x2f, o90_floodFill);
/* 30 */
OPCODE(0x30, o90_mod);
OPCODE(0x31, o90_shl);
OPCODE(0x32, o90_shr);
OPCODE(0x33, o90_xor);
/* 34 */
OPCODE(0x34, o90_findAllObjectsWithClassOf);
OPCODE(0x35, o90_getPolygonOverlap);
OPCODE(0x36, o90_cond);
OPCODE(0x37, o90_dim2dim2Array);
/* 38 */
OPCODE(0x38, o90_redim2dimArray);
OPCODE(0x39, o90_getLinesIntersectionPoint);
OPCODE(0x3a, o90_sortArray);
OPCODE(0x44, o90_getObjectData);
OPCODE(0x94, o90_getPaletteData);
OPCODE(0x9e, o90_paletteOps);
OPCODE(0xa5, o90_fontUnk);
OPCODE(0xab, o90_getActorAnimProgress);
OPCODE(0xc8, o90_kernelGetFunctions);
OPCODE(0xc9, o90_kernelSetFunctions);
}
void ScummEngine_v90he::o90_dup_n() {
int num;
int args[16];
push(fetchScriptWord());
num = getStackList(args, ARRAYSIZE(args));
for (int i = 0; i < 2; i++) {
for (int j = 0; j < num; j++)
push(args[j]);
}
}
void ScummEngine_v90he::o90_wizImageOps() {
int a, b;
int subOp = fetchScriptByte();
switch (subOp) {
case 32: // HE99+
_wizParams.processFlags |= kWPFUseDefImgWidth;
_wizParams.resDefImgW = pop();
break;
case 33: // HE99+
_wizParams.processFlags |= kWPFUseDefImgHeight;
_wizParams.resDefImgH = pop();
break;
case 46:
// Dummy case
pop();
break;
case 47:
_wizParams.box.bottom = pop();
_wizParams.box.right = pop();
_wizParams.box.top = pop();
_wizParams.box.left = pop();
break;
case 48:
_wizParams.processMode = 1;
break;
case 49:
_wizParams.processFlags |= kWPFUseFile;
_wizParams.processMode = 3;
copyScriptString(_wizParams.filename, sizeof(_wizParams.filename));
break;
case 50:
_wizParams.processFlags |= kWPFUseFile;
_wizParams.processMode = 4;
copyScriptString(_wizParams.filename, sizeof(_wizParams.filename));
_wizParams.fileWriteMode = pop();
break;
case 51:
_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 52:
_wizParams.processFlags |= kWPFNewState;
_wizParams.img.state = pop();
break;
case 53:
_wizParams.processFlags |= kWPFRotate;
_wizParams.angle = pop();
break;
case 54:
_wizParams.processFlags |= kWPFNewFlags;
_wizParams.img.flags |= pop();
break;
case 56:
_wizParams.img.flags = pop();
_wizParams.img.state = pop();
_wizParams.img.y1 = pop();
_wizParams.img.x1 = pop();
_wizParams.img.resNum = pop();
_wiz->displayWizImage(&_wizParams.img);
break;
case 57:
_wizParams.img.resNum = pop();
_wizParams.processMode = 0;
_wizParams.processFlags = 0;
_wizParams.remapNum = 0;
_wizParams.img.flags = 0;
_wizParams.params1 = 0;
_wizParams.params2 = 0;
_wizParams.spriteId = 0;
_wizParams.spriteGroup = 0;
break;
case 62: // HE99+
_wizParams.processFlags |= kWPFMaskImg;
_wizParams.sourceImage = pop();
break;
case 65:
case 154:
_wizParams.processFlags |= kWPFSetPos;
_wizParams.img.y1 = pop();
_wizParams.img.x1 = pop();
break;
case 66:
case 249: // HE98+
b = pop();
a = pop();
_wizParams.processFlags |= kWPFRemapPalette;
_wizParams.processMode = 6;
if (_wizParams.remapNum == 0) {
memset(_wizParams.remapIndex, 0, sizeof(_wizParams.remapIndex));
}
assert(_wizParams.remapNum < ARRAYSIZE(_wizParams.remapIndex));
_wizParams.remapIndex[_wizParams.remapNum] = a;
_wizParams.remapColor[a] = b;
_wizParams.remapNum++;
break;
case 67:
_wizParams.processFlags |= kWPFClipBox;
_wizParams.box.bottom = pop();
_wizParams.box.right = pop();
_wizParams.box.top = pop();
_wizParams.box.left = pop();
adjustRect(_wizParams.box);
break;
case 86: // HE99+
_wizParams.processFlags |= kWPFPaletteNum;
_wizParams.img.palette = pop();
break;
case 92:
_wizParams.processFlags |= kWPFScaled;
_wizParams.scale = pop();
break;
case 98:
_wizParams.processFlags |= kWPFShadow;
_wizParams.img.shadow = pop();
break;
case 131: // HE99+
_wizParams.processFlags |= 0x1000 | 0x100 | 0x2;
_wizParams.processMode = 7;
_wizParams.polygonId2 = pop();
_wizParams.polygonId1 = pop();
_wizParams.compType = pop();
break;
case 133: // HE99+
_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;
case 134: // HE99+
_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 135: // HE99+
_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 136: // HE99+
_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 137: // HE99+
_wizParams.processFlags |= kWPFDstResNum;
_wizParams.dstResNum = pop();
break;
case 139: // HE99+
_wizParams.processFlags |= kWPFParams;
_wizParams.params1 = pop();
_wizParams.params2 = pop();
break;
case 141: // HE99+
_wizParams.processMode = 13;
break;
case 142: // HE99+
_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 143: // HE99+
_wizParams.processMode = 16;
_wizParams.field_23AD = pop();
_wizParams.field_23A9 = pop();
copyScriptString(_wizParams.string1, sizeof(_wizParams.string1));
break;
case 189: // HE99+
_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 196: // HE99+
_wizParams.processMode = 14;
break;
case 217: // HE99+
_wizParams.processMode = 8;
break;
case 246:
_wizParams.processFlags |= kWPFNewFlags | kWPFSetPos | 2;
_wizParams.img.flags |= kWIFIsPolygon;
_wizParams.polygonId1 = _wizParams.img.y1 = _wizParams.img.x1 = pop();
break;
case 255:
if (_wizParams.img.resNum)
_wiz->processWizImage(&_wizParams);
break;
default:
error("o90_wizImageOps: unhandled case %d", subOp);
}
}
void ScummEngine_v90he::o90_min() {
int a = pop();
int b = pop();
if (b < a) {
push(b);
} else {
push(a);
}
}
void ScummEngine_v90he::o90_max() {
int a = pop();
int b = pop();
if (b > a) {
push(b);
} else {
push(a);
}
}
void ScummEngine_v90he::o90_sin() {
double a = pop() * M_PI / 180.;
push((int)(sin(a) * 100000));
}
void ScummEngine_v90he::o90_cos() {
double a = pop() * M_PI / 180.;
push((int)(cos(a) * 100000));
}
void ScummEngine_v90he::o90_sqrt() {
int i = pop();
if (i < 2) {
push(i);
} else {
push((int)sqrt((double)(i + 1)));
}
}
void ScummEngine_v90he::o90_atan2() {
int y = pop();
int x = pop();
int a = (int)(atan2((double)y, (double)x) * 180. / M_PI);
if (a < 0) {
a += 360;
}
push(a);
}
void ScummEngine_v90he::o90_getSegmentAngle() {
int y1 = pop();
int x1 = pop();
int dy = y1 - pop();
int dx = x1 - pop();
int a = (int)(atan2((double)dy, (double)dx) * 180. / M_PI);
if (a < 0) {
a += 360;
}
push(a);
}
void ScummEngine_v90he::o90_getDistanceBetweenPoints() {
int x1, y1, z1, x2, y2, z2, dx, dy, dz, d;
byte subOp = fetchScriptByte();
switch (subOp) {
case 23: // HE100
case 28:
y2 = pop();
x2 = pop();
y1 = pop();
x1 = pop();
dx = x2 - x1;
dy = y2 - y1;
d = dx * dx + dy * dy;
if (d < 2) {
push(d);
} else {
push((int)sqrt((double)(d + 1)));
}
break;
case 24: // HE100
case 29:
z2 = pop();
y2 = pop();
x2 = pop();
z1 = pop();
y1 = pop();
x1 = pop();
dx = x2 - x1;
dy = y2 - y1;
dz = z2 - z1;
d = dx * dx + dy * dy + dz * dz;
if (d < 2) {
push(d);
} else {
push((int)sqrt((double)(d + 1)));
}
break;
default:
error("o90_getDistanceBetweenPoints: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_getSpriteInfo() {
int args[16];
int spriteId, flags, groupId, type;
int32 x, y;
byte subOp = fetchScriptByte();
switch (subOp) {
case 30:
spriteId = pop();
if (spriteId) {
_sprite->getSpritePosition(spriteId, x, y);
push(x);
} else {
push(0);
}
break;
case 31:
spriteId = pop();
if (spriteId) {
_sprite->getSpritePosition(spriteId, x, y);
push(y);
} else {
push(0);
}
break;
case 32:
spriteId = pop();
if (spriteId) {
_sprite->getSpriteImageDim(spriteId, x, y);
push(x);
} else {
push(0);
}
break;
case 33:
spriteId = pop();
if (spriteId) {
_sprite->getSpriteImageDim(spriteId, x, y);
push(y);
} else {
push(0);
}
break;
case 34:
spriteId = pop();
if (spriteId) {
_sprite->getSpriteDist(spriteId, x, y);
push(x);
} else {
push(0);
}
break;
case 35:
spriteId = pop();
if (spriteId) {
_sprite->getSpriteDist(spriteId, x, y);
push(y);
} else {
push(0);
}
break;
case 36:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteImageStateCount(spriteId));
else
push(0);
break;
case 37:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteGroup(spriteId));
else
push(0);
break;
case 38:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteDisplayX(spriteId));
else
push(0);
break;
case 39:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteDisplayY(spriteId));
else
push(0);
break;
case 42:
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 43:
spriteId = pop();
if (spriteId)
push(_sprite->getSpritePriority(spriteId));
else
push(0);
break;
case 45:
if (_game.heversion == 99) {
flags = getStackList(args, ARRAYSIZE(args));
type = pop();
groupId = pop();
y = pop();
x = pop();
push(_sprite->findSpriteWithClassOf(x, y, groupId, type, flags, args));
} else if (_game.heversion == 98) {
type = pop();
groupId = pop();
y = pop();
x = pop();
push(_sprite->findSpriteWithClassOf(x, y, groupId, type, 0, 0));
} else {
groupId = pop();
y = pop();
x = pop();
push(_sprite->findSpriteWithClassOf(x, y, groupId, 0, 0, 0));
}
break;
case 52:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteImageState(spriteId));
else
push(0);
break;
case 62:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteSourceImage(spriteId));
else
push(0);
break;
case 63:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteImage(spriteId));
else
push(0);
break;
case 68:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteFlagEraseType(spriteId));
else
push(1);
break;
case 82:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteFlagAutoAnim(spriteId));
else
push(0);
break;
case 86:
spriteId = pop();
if (spriteId)
push(_sprite->getSpritePalette(spriteId));
else
push(0);
break;
case 92:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteScale(spriteId));
else
push(0);
break;
case 97:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteAnimSpeed(spriteId));
else
push(1);
break;
case 98:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteShadow(spriteId));
else
push(0);
break;
case 124:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteFlagUpdateType(spriteId));
else
push(0);
break;
case 125:
flags = getStackList(args, ARRAYSIZE(args));
spriteId = pop();
if (spriteId) {
push(_sprite->getSpriteClass(spriteId, flags, args));
} else {
push(0);
}
break;
case 139:
flags = pop();
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteGeneralProperty(spriteId, flags));
else
push(0);
break;
case 140:
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteMaskImage(spriteId));
else
push(0);
break;
case 198:
pop();
spriteId = pop();
if (spriteId)
push(_sprite->getSpriteUserValue(spriteId));
else
push(0);
break;
default:
error("o90_getSpriteInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_setSpriteInfo() {
int args[16];
int spriteId;
int32 tmp[2];
int n;
byte subOp = fetchScriptByte();
switch (subOp) {
case 34:
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 35:
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 37:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteGroup(spriteId, args[0]);
break;
case 42:
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 43:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpritePriority(spriteId, args[0]);
break;
case 44:
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:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteImageState(spriteId, args[0]);
break;
case 53:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteAngle(spriteId, args[0]);
break;
case 57:
if (_game.features & GF_HE_985 || _game.heversion >= 99) {
_curMaxSpriteId = pop();
_curSpriteId = pop();
if (_curSpriteId > _curMaxSpriteId)
SWAP(_curSpriteId, _curMaxSpriteId);
} else {
_curSpriteId = pop();
_curMaxSpriteId = _curSpriteId; // to make all functions happy
}
break;
case 62: // HE99+
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteSourceImage(spriteId, args[0]);
break;
case 63:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteImage(spriteId, args[0]);
break;
case 65:
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 68:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteFlagEraseType(spriteId, args[0]);
break;
case 77:
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 82:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteFlagAutoAnim(spriteId, args[0]);
break;
case 86: // HE 98+
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpritePalette(spriteId, args[0]);
break;
case 92: // HE 99+
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteScale(spriteId, args[0]);
break;
case 97: // HE 98+
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteAnimSpeed(spriteId, args[0]);
break;
case 98:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteShadow(spriteId, args[0]);
break;
case 124:
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteFlagUpdateType(spriteId, args[0]);
break;
case 125:
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 139: // HE 99+
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 140: // HE 99+
args[0] = pop();
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->setSpriteMaskImage(spriteId, args[0]);
break;
case 158:
_sprite->resetTables(true);
break;
case 198:
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 217:
if (_curSpriteId > _curMaxSpriteId)
break;
spriteId = _curSpriteId;
if (!spriteId)
spriteId++;
for (; spriteId <= _curMaxSpriteId; spriteId++)
_sprite->resetSprite(spriteId);
break;
default:
error("o90_setSpriteInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_getSpriteGroupInfo() {
int32 tx, ty;
int spriteGroupId, type;
byte subOp = fetchScriptByte();
switch (subOp) {
case 8: // HE 99+
spriteGroupId = pop();
if (spriteGroupId)
push(getGroupSpriteArray(spriteGroupId));
else
push(0);
break;
case 30:
spriteGroupId = pop();
if (spriteGroupId) {
_sprite->getGroupPosition(spriteGroupId, tx, ty);
push(tx);
} else {
push(0);
}
break;
case 31:
spriteGroupId = pop();
if (spriteGroupId) {
_sprite->getGroupPosition(spriteGroupId, tx, ty);
push(ty);
} else {
push(0);
}
break;
case 42: // HE 99+
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 43:
spriteGroupId = pop();
if (spriteGroupId)
push(_sprite->getGroupPriority(spriteGroupId));
else
push(0);
break;
case 63: // HE 99+
spriteGroupId = pop();
if (spriteGroupId)
push(_sprite->getGroupDstResNum(spriteGroupId));
else
push(0);
break;
case 139: // HE 99+
// dummy case
pop();
pop();
push(0);
break;
default:
error("o90_getSpriteGroupInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_setSpriteGroupInfo() {
int type, value1, value2, value3, value4;
byte subOp = fetchScriptByte();
switch (subOp) {
case 37:
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("o90_setSpriteGroupInfo subOp 0: Unknown case %d", subOp);
}
break;
case 42:
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("o90_setSpriteGroupInfo subOp 5: Unknown case %d", subOp);
}
break;
case 43:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupPriority(_curSpriteGroupId, value1);
break;
case 44:
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->moveGroup(_curSpriteGroupId, value1, value2);
break;
case 57:
_curSpriteGroupId = pop();
break;
case 63:
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupImage(_curSpriteGroupId, value1);
break;
case 65:
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupPosition(_curSpriteGroupId, value1, value2);
break;
case 67:
value4 = pop();
value3 = pop();
value2 = pop();
value1 = pop();
if (!_curSpriteGroupId)
break;
_sprite->setGroupBounds(_curSpriteGroupId, value1, value2, value3, value4);
break;
case 93:
if (!_curSpriteGroupId)
break;
_sprite->resetGroupBounds(_curSpriteGroupId);
break;
case 217:
if (!_curSpriteGroupId)
break;
_sprite->resetGroup(_curSpriteGroupId);
break;
default:
error("o90_setSpriteGroupInfo: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_getWizData() {
byte filename[4096];
int resId, state, type;
int32 w, h;
int32 x, y;
byte subOp = fetchScriptByte();
switch (subOp) {
case 30:
state = pop();
resId = pop();
_wiz->getWizImageSpot(resId, state, x, y);
push(x);
break;
case 31:
state = pop();
resId = pop();
_wiz->getWizImageSpot(resId, state, x, y);
push(y);
break;
case 32:
state = pop();
resId = pop();
_wiz->getWizImageDim(resId, state, w, h);
push(w);
break;
case 33:
state = pop();
resId = pop();
_wiz->getWizImageDim(resId, state, w, h);
push(h);
break;
case 36:
resId = pop();
push(_wiz->getWizImageStates(resId));
break;
case 45:
y = pop();
x = pop();
state = pop();
resId = pop();
push(_wiz->isWizPixelNonTransparent(resId, state, x, y, 0));
break;
case 66:
y = pop();
x = pop();
state = pop();
resId = pop();
push(_wiz->getWizPixelColor(resId, state, x, y));
break;
case 130:
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;
case 139:
type = pop();
state = pop();
resId = pop();
push(_wiz->getWizImageData(resId, state, type));
break;
case 141:
pop();
copyScriptString(filename, sizeof(filename));
pop();
push(0);
debug(0, "o90_getWizData() case 111 unhandled");
break;
default:
error("o90_getWizData: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_getActorData() {
ActorHE *a;
int subOp = pop();
int val = pop();
int act = pop();
a = (ActorHE *)derefActor(act, "o90_getActorData");
switch (subOp) {
case 1:
push(a->isUserConditionSet(val));
break;
case 2:
assertRange(0, val, 15, "o90_getActorData: Limb");
push(a->_cost.frame[val] * 4);
break;
case 3:
push(a->getAnimSpeed());
break;
case 4:
push(a->_shadowMode);
break;
case 5:
push(a->_layer);
break;
case 6:
push(a->_hePaletteNum);
break;
default:
error("o90_getActorData: Unknown actor property %d", subOp);
}
}
void ScummEngine_v90he::o90_startScriptUnk() {
int args[25];
int script, cycle;
byte flags;
getStackList(args, ARRAYSIZE(args));
cycle = pop();
script = pop();
flags = fetchScriptByte();
runScript(script, (flags == 199 || flags == 200), (flags == 195 || flags == 200), args, cycle);
}
void ScummEngine_v90he::o90_jumpToScriptUnk() {
int args[25];
int script, cycle;
byte flags;
getStackList(args, ARRAYSIZE(args));
cycle = pop();
script = pop();
flags = fetchScriptByte();
stopObjectCode();
runScript(script, (flags == 199 || flags == 200), (flags == 195 || flags == 200), args, cycle);
}
void ScummEngine_v90he::o90_videoOps() {
// Uses Smacker video
int status = fetchScriptByte();
int subOp = status - 49;
switch (subOp) {
case 0:
copyScriptString(_videoParams.filename, sizeof(_videoParams.filename));
_videoParams.status = status;
break;
case 5:
_videoParams.flags |= pop();
break;
case 8:
memset(_videoParams.filename, 0, sizeof(_videoParams.filename));
_videoParams.status = 0;
_videoParams.flags = 0;
_videoParams.unk2 = pop();
_videoParams.wizResNum = 0;
break;
case 14:
_videoParams.wizResNum = pop();
if (_videoParams.wizResNum)
_videoParams.flags |= 2;
break;
case 116:
_videoParams.status = status;
break;
case 206:
if (_videoParams.status == 49) {
// Start video
if (_videoParams.flags == 0)
_videoParams.flags = 4;
const char *filename = (char *)_videoParams.filename + convertFilePath(_videoParams.filename, sizeof(_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 == 165) {
// Stop video
_moviePlay->close();
}
break;
default:
error("o90_videoOps: unhandled case %d", subOp);
}
}
void ScummEngine_v90he::o90_getVideoData() {
// Uses Smacker video
byte subOp = fetchScriptByte();
switch (subOp) {
case 32: // Get width
pop();
push(_moviePlay->getWidth());
break;
case 33: // Get height
pop();
push(_moviePlay->getHeight());
break;
case 36: // Get frame count
pop();
push(_moviePlay->getFrameCount());
break;
case 52: // Get current frame
pop();
push(_moviePlay->getCurFrame());
break;
case 63: // Get image number
pop();
push(_moviePlay->getImageNum());
break;
case 139: // Get statistics
debug(0, "o90_getVideoData: subOp 107 stub (%d, %d)", pop(), pop());
push(0);
break;
default:
error("o90_getVideoData: unhandled case %d", subOp);
}
}
void ScummEngine_v90he::o90_floodFill() {
byte subOp = fetchScriptByte();
switch (subOp) {
case 54:
pop();
break;
case 57:
memset(&_floodFillParams, 0, sizeof(_floodFillParams));
_floodFillParams.box.left = 0;
_floodFillParams.box.top = 0;
_floodFillParams.box.right = 639;
_floodFillParams.box.bottom = 479;
break;
case 65:
_floodFillParams.y = pop();
_floodFillParams.x = pop();
break;
case 66:
_floodFillParams.flags = pop();
break;
case 67:
_floodFillParams.box.bottom = pop();
_floodFillParams.box.right = pop();
_floodFillParams.box.top = pop();
_floodFillParams.box.left = pop();
break;
case 255:
floodFill(&_floodFillParams, this);
break;
default:
error("o90_floodFill: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_mod() {
int a = pop();
if (a == 0)
error("modulus by zero");
push(pop() % a);
}
void ScummEngine_v90he::o90_shl() {
int a = pop();
push(pop() << a);
}
void ScummEngine_v90he::o90_shr() {
int a = pop();
push(pop() >> a);
}
void ScummEngine_v90he::o90_xor() {
int a = pop();
push(pop() ^ a);
}
void ScummEngine_v90he::o90_findAllObjectsWithClassOf() {
int args[16];
int cond, num, cls, tmp;
bool b;
num = getStackList(args, ARRAYSIZE(args));
int room = pop();
int numObjs = 0;
if (room != _currentRoom)
error("o90_findAllObjectsWithClassOf: current room is not %d", room);
writeVar(0, 0);
defineArray(0, kDwordArray, 0, 0, 0, _numLocalObjects);
for (int i = 1; i < _numLocalObjects; i++) {
cond = 1;
tmp = num;
while (--tmp >= 0) {
cls = args[tmp];
b = getClass(_objs[i].obj_nr, cls);
if ((cls & 0x80 && !b) || (!(cls & 0x80) && b))
cond = 0;
}
if (cond) {
numObjs++;
writeArray(0, 0, numObjs, _objs[i].obj_nr);
}
}
writeArray(0, 0, 0, numObjs);
push(readVar(0));
}
void ScummEngine_v90he::o90_getPolygonOverlap() {
int args1[32];
int args2[32];
int n1 = getStackList(args1, ARRAYSIZE(args1));
int n2 = getStackList(args2, ARRAYSIZE(args2));
int subOp = pop();
switch (subOp) {
case 1:
{
Common::Rect r(args1[0], args1[1], args1[2] + 1, args1[3] + 1);
Common::Point p(args2[0], args2[1]);
push(r.contains(p) ? 1 : 0);
}
break;
case 2:
{
int dx = args2[0] - args1[0];
int dy = args2[1] - args1[1];
int dist = dx * dx + dy * dy;
if (dist >= 2) {
dist = (int)sqrt((double)(dist + 1));
}
if (_game.heversion >= 98) {
push((dist <= args1[2]) ? 1 : 0);
} else {
push((dist > args1[2]) ? 1 : 0);
}
}
break;
case 3:
{
Common::Rect r1(args1[0], args1[1], args1[2] + 1, args1[3] + 1);
Common::Rect r2(args2[0], args2[1], args2[2] + 1, args2[3] + 1);
push(r2.intersects(r1) ? 1 : 0);
}
break;
case 4:
{
int dx = args2[0] - args1[0];
int dy = args2[1] - args1[1];
int dist = dx * dx + dy * dy;
if (dist >= 2) {
dist = (int)sqrt((double)(dist + 1));
}
push((dist < args1[2] && dist < args2[2]) ? 1 : 0);
}
break;
case 5:
{
assert((n1 & 1) == 0);
n1 /= 2;
if (n1 == 0) {
push(0);
} else {
WizPolygon wp;
memset(&wp, 0, sizeof(wp));
wp.numVerts = n1;
assert(n1 < ARRAYSIZE(wp.vert));
for (int i = 0; i < n1; ++i) {
wp.vert[i].x = args1[i * 2 + 0];
wp.vert[i].y = args1[i * 2 + 1];
}
push(_wiz->polygonContains(wp, args2[0], args2[1]) ? 1 : 0);
}
}
break;
// HE 98+
case 6:
{
Common::Rect r1, r2;
_sprite->getSpriteBounds(args2[0], false, r2);
_sprite->getSpriteBounds(args1[0], false, r1);
if (r2.isValidRect() == false) {
push(0);
break;
}
if (n2 == 3) {
r2.left += args2[1];
r2.right += args2[1];
r2.top += args2[2];
r2.bottom += args2[2];
}
if (n1 == 3) {
r1.left += args1[1];
r1.right += args1[1];
r1.top += args1[2];
r1.bottom += args1[2];
}
push(r2.intersects(r1) ? 1 : 0);
}
break;
case 7:
{
Common::Rect r2;
_sprite->getSpriteBounds(args2[0], false, r2);
Common::Rect r1(args1[0], args1[1], args1[2], args1[3]);
if (r2.isValidRect() == false) {
push(0);
break;
}
if (n2 == 3) {
r2.left += args2[1];
r2.right += args2[1];
r2.top += args2[2];
r2.bottom += args2[2];
}
push(r2.intersects(r1) ? 1 : 0);
}
break;
case 8:
case 10: // TODO: Draw sprites to buffer and compare.
{
Common::Rect r1, r2;
_sprite->getSpriteBounds(args2[0], true, r2);
_sprite->getSpriteBounds(args1[0], true, r1);
if (r2.isValidRect() == false) {
push(0);
break;
}
if (n2 == 3) {
r2.left += args2[1];
r2.right += args2[1];
r2.top += args2[2];
r2.bottom += args2[2];
}
if (n1 == 3) {
r1.left += args1[1];
r1.right += args1[1];
r1.top += args1[2];
r1.bottom += args1[2];
}
push(r2.intersects(r1) ? 1 : 0);
}
break;
case 9:
{
Common::Rect r2;
_sprite->getSpriteBounds(args2[0], true, r2);
Common::Rect r1(args1[0], args1[1], args1[2], args1[3]);
if (r2.isValidRect() == false) {
push(0);
break;
}
if (n2 == 3) {
r2.left += args2[1];
r2.right += args2[1];
r2.top += args2[2];
r2.bottom += args2[2];
}
push(r2.intersects(r1) ? 1 : 0);
}
break;
default:
error("o90_getPolygonOverlap: default case %d", subOp);
}
}
void ScummEngine_v90he::o90_cond() {
int a = pop();
int b = pop();
int c = pop();
if (!c)
b = a;
push(b);
}
void ScummEngine_v90he::o90_dim2dim2Array() {
int data, dim1start, dim1end, dim2start, dim2end;
byte subOp = fetchScriptByte();
switch (subOp) {
case 2: // SO_BIT_ARRAY
data = kBitArray;
break;
case 3: // SO_NIBBLE_ARRAY
data = kNibbleArray;
break;
case 4: // SO_BYTE_ARRAY
data = kByteArray;
break;
case 5: // SO_INT_ARRAY
data = kIntArray;
break;
case 6:
data = kDwordArray;
break;
case 7: // SO_STRING_ARRAY
data = kStringArray;
break;
default:
error("o90_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_v90he::o90_redim2dimArray() {
int a, b, c, d;
d = pop();
c = pop();
b = pop();
a = pop();
byte subOp = fetchScriptByte();
switch (subOp) {
case 4:
redimArray(fetchScriptWord(), a, b, c, d, kByteArray);
break;
case 5:
redimArray(fetchScriptWord(), a, b, c, d, kIntArray);
break;
case 6:
redimArray(fetchScriptWord(), a, b, c, d, kDwordArray);
break;
default:
error("o90_redim2dimArray: default type %d", subOp);
}
}
void ScummEngine_v90he::o90_getLinesIntersectionPoint() {
int var_ix = fetchScriptWord();
int var_iy = fetchScriptWord();
int line2_y2 = pop();
int line2_x2 = pop();
int line2_y1 = pop();
int line2_x1 = pop();
int line1_y2 = pop();
int line1_x2 = pop();
int line1_y1 = pop();
int line1_x1 = pop();
int result = 0;
int ix = 0;
int iy = 0;
bool isLine1Point = (line1_x1 == line1_x2 && line1_y1 == line1_y2);
bool isLine2Point = (line2_x1 == line2_x2 && line2_y1 == line2_y2);
if (isLine1Point) {
if (isLine2Point) {
if (line1_x1 == line2_x1 && line1_y1 == line2_y2) {
ix = line1_x1;
iy = line2_x1;
result = 1;
}
} else {
// 1 point and 1 line
int dx2 = line2_x2 - line2_x1;
if (dx2 != 0) {
int dy2 = line2_y2 - line2_y1;
float y = (float)dy2 / dx2 * (line1_x1 - line2_x1) + line2_y1 + .5f;
if (line1_y1 == (int)y) {
ix = line1_x1;
iy = line1_y1;
result = 1;
}
} else {
// vertical line
if (line1_x1 == line2_x1) {
if (line2_y1 > line2_y2) {
if (line1_y1 >= line2_y2 && line1_y1 <= line2_y1) {
ix = line1_x1;
iy = line1_y1;
result = 1;
}
} else {
if (line1_y1 >= line2_y1 && line1_y1 <= line2_y2) {
ix = line1_x1;
iy = line1_y1;
result = 1;
}
}
}
}
}
} else {
if (isLine2Point) {
// 1 point and 1 line
int dx1 = line1_x2 - line1_x1;
if (dx1 != 0) {
int dy1 = line1_y2 - line1_y1;
float y = (float)dy1 / dx1 * (line2_x1 - line1_x1) + line1_y1 + .5f;
if (line2_y1 == (int)y) {
ix = line2_x1;
iy = line2_y1;
result = 1;
}
} else {
// vertical line
if (line2_x1 == line1_x1) {
if (line1_y1 > line1_y2) {
if (line2_y1 >= line1_y2 && line2_y1 <= line1_y1) {
ix = line2_x1;
iy = line2_y1;
result = 1;
}
} else {
if (line2_y1 >= line1_y1 && line2_y1 <= line1_y2) {
ix = line2_x2;
iy = line2_y1;
result = 1;
}
}
}
}
} else {
// 2 lines
int dy1 = line1_y2 - line1_y1;
int dx1 = line1_x2 - line1_x1;
int dy2 = line2_y2 - line2_y1;
int dx2 = line2_x2 - line2_x1;
int det = dx1 * dy2 - dx2 * dy1;
int cross_p1 = dx1 * (line1_y1 - line2_y1) - dy1 * (line1_x1 - line2_x1);
int cross_p2 = dx2 * (line1_y1 - line2_y1) - dy2 * (line1_x1 - line2_x1);
if (det == 0) {
// parallel lines
if (cross_p2 == 0) {
ix = ABS(line2_x2 + line2_x1) / 2;
iy = ABS(line2_y2 + line2_y1) / 2;
result = 2;
}
} else {
float rcp1 = (float)cross_p1 / det;
float rcp2 = (float)cross_p2 / det;
if (rcp1 >= 0 && rcp1 <= 1 && rcp2 >= 0 && rcp2 <= 1) {
ix = (int)(dx1 * rcp2 + line1_x1 + .5f);
iy = (int)(dy1 * rcp2 + line1_y1 + .5f);
result = 1;
}
}
}
}
writeVar(var_ix, ix);
writeVar(var_iy, iy);
push(result);
}
void ScummEngine_v90he::getArrayDim(int array, int *dim2start, int *dim2end, int *dim1start, int *dim1end) {
ArrayHeader *ah = (ArrayHeader *)getResourceAddress(rtString, readVar(array));
assert(ah);
if (dim2start && *dim2start == -1) {
*dim2start = FROM_LE_32(ah->dim2start);
}
if (dim2end && *dim2end == -1) {
*dim2end = FROM_LE_32(ah->dim2end);
}
if (dim1start && *dim1start == -1) {
*dim1start = FROM_LE_32(ah->dim1start);
}
if (dim1end && *dim1end == -1) {
*dim1end = FROM_LE_32(ah->dim1end);
}
}
static int sortArrayOffset;
static int compareByteArray(const void *a, const void *b) {
int va = *((const uint8 *)a + sortArrayOffset);
int vb = *((const uint8 *)b + sortArrayOffset);
return va - vb;
}
static int compareByteArrayReverse(const void *a, const void *b) {
int va = *((const uint8 *)a + sortArrayOffset);
int vb = *((const uint8 *)b + sortArrayOffset);
return vb - va;
}
static int compareIntArray(const void *a, const void *b) {
int va = (int16)READ_LE_UINT16((const uint8 *)a + sortArrayOffset * 2);
int vb = (int16)READ_LE_UINT16((const uint8 *)b + sortArrayOffset * 2);
return va - vb;
}
static int compareIntArrayReverse(const void *a, const void *b) {
int va = (int16)READ_LE_UINT16((const uint8 *)a + sortArrayOffset * 2);
int vb = (int16)READ_LE_UINT16((const uint8 *)b + sortArrayOffset * 2);
return vb - va;
}
static int compareDwordArray(const void *a, const void *b) {
int va = (int32)READ_LE_UINT32((const uint8 *)a + sortArrayOffset * 4);
int vb = (int32)READ_LE_UINT32((const uint8 *)b + sortArrayOffset * 4);
return va - vb;
}
static int compareDwordArrayReverse(const void *a, const void *b) {
int va = (int32)READ_LE_UINT32((const uint8 *)a + sortArrayOffset * 4);
int vb = (int32)READ_LE_UINT32((const uint8 *)b + sortArrayOffset * 4);
return vb - va;
}
/**
* Sort a row range in a two-dimensional array by the value in a given column.
*
* We sort the data in the row range [dim2start..dim2end], according to the value
* in column dim1start == dim1end.
*/
void ScummEngine_v90he::sortArray(int array, int dim2start, int dim2end, int dim1start, int dim1end, int sortOrder) {
debug(9, "sortArray(%d, [%d,%d,%d,%d], %d)", array, dim2start, dim2end, dim1start, dim1end, sortOrder);
assert(dim1start == dim1end);
checkArrayLimits(array, dim2start, dim2end, dim1start, dim1end);
ArrayHeader *ah = (ArrayHeader *)getResourceAddress(rtString, readVar(array));
assert(ah);
const int num = dim2end - dim2start + 1; // number of rows to sort
const int pitch = FROM_LE_32(ah->dim1end) - FROM_LE_32(ah->dim1start) + 1; // length of a row = number of columns in it
const int offset = pitch * (dim2start - FROM_LE_32(ah->dim2start)); // memory offset to the first row to be sorted
sortArrayOffset = dim1start - FROM_LE_32(ah->dim1start); // offset to the column by which we sort
// Now we just have to invoke qsort on the appropriate row range. We
// need to pass sortArrayOffset as an implicit parameter to the
// comparison functions, which makes it necessary to use a global
// (albeit local to this file) variable.
// This could be avoided by using qsort_r or a self-written portable
// analog (this function passes an additional, user determined
// parameter to the comparison function).
// Another idea would be to use Common::sort, but that only is
// suitable if you sort objects of fixed size, which must be known
// during compilation time; clearly this not the case here.
switch (FROM_LE_32(ah->type)) {
case kByteArray:
case kStringArray:
if (sortOrder <= 0) {
qsort(ah->data + offset, num, pitch, compareByteArray);
} else {
qsort(ah->data + offset, num, pitch, compareByteArrayReverse);
}
break;
case kIntArray:
if (sortOrder <= 0) {
qsort(ah->data + offset * 2, num, pitch * 2, compareIntArray);
} else {
qsort(ah->data + offset * 2, num, pitch * 2, compareIntArrayReverse);
}
break;
case kDwordArray:
if (sortOrder <= 0) {
qsort(ah->data + offset * 4, num, pitch * 4, compareDwordArray);
} else {
qsort(ah->data + offset * 4, num, pitch * 4, compareDwordArrayReverse);
}
break;
default:
error("Invalid array type %d", FROM_LE_32(ah->type));
}
}
void ScummEngine_v90he::o90_sortArray() {
byte subOp = fetchScriptByte();
switch (subOp) {
case 129:
case 134: // HE100
{
int array = fetchScriptWord();
int sortOrder = pop();
int dim1end = pop();
int dim1start = pop();
int dim2end = pop();
int dim2start = pop();
getArrayDim(array, &dim2start, &dim2end, &dim1start, &dim1end);
sortArray(array, dim2start, dim2end, dim1start, dim1end, sortOrder);
}
break;
default:
error("o90_sortArray: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_getObjectData() {
byte subOp = fetchScriptByte();
switch (subOp) {
case 32:
if (_heObjectNum == -1)
push(0);
else
push(_objs[_heObjectNum].width);
break;
case 33:
if (_heObjectNum == -1)
push(0);
else
push(_objs[_heObjectNum].height);
break;
case 36:
if (_heObjectNum == -1)
push(0);
else
push(getObjectImageCount(_heObject));
break;
case 38:
if (_heObjectNum == -1)
push(0);
else
push(_objs[_heObjectNum].x_pos);
break;
case 39:
if (_heObjectNum == -1)
push(0);
else
push(_objs[_heObjectNum].y_pos);
break;
case 52:
push(getState(_heObject));
break;
case 57:
_heObject = pop();
_heObjectNum = getObjectIndex(_heObject);
break;
case 139:
// Dummy case
pop();
push(0);
break;
default:
error("o90_getObjectData: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_getPaletteData() {
int c, d, e;
int r, g, b;
int palSlot, color;
byte subOp = fetchScriptByte();
switch (subOp) {
case 45:
e = pop();
d = pop();
palSlot = pop();
b = pop();
g = pop();
r = pop();
push(getHEPaletteSimilarColor(palSlot, r, g, d, e));
break;
case 52:
c = pop();
b = pop();
palSlot = pop();
push(getHEPaletteColorComponent(palSlot, b, c));
break;
case 66:
color = pop();
palSlot = pop();
push(getHEPaletteColor(palSlot, color));
break;
case 132:
c = pop();
b = pop();
if (_game.features & GF_16BIT_COLOR)
push(getHEPalette16BitColorComponent(b, c));
else
push(getHEPaletteColorComponent(1, b, c));
break;
case 217:
b = pop();
b = MAX(0, b);
b = MIN(b, 255);
g = pop();
g = MAX(0, g);
g = MIN(g, 255);
r = pop();
r = MAX(0, r);
r = MIN(r, 255);
if (_game.features & GF_16BIT_COLOR) {
push(get16BitColor(r, g, b));
} else {
push(getHEPaletteSimilarColor(1, r, g, 10, 245));
}
break;
default:
error("o90_getPaletteData: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_paletteOps() {
int a, b, c, d, e;
byte subOp = fetchScriptByte();
switch (subOp) {
case 57:
_hePaletteNum = pop();
break;
case 63:
b = pop();
a = pop();
if (_hePaletteNum != 0) {
setHEPaletteFromImage(_hePaletteNum, a, b);
}
break;
case 66:
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 70:
c = pop();
b = pop();
a = pop();
if (_hePaletteNum != 0) {
for (; a <= b; ++a) {
copyHEPaletteColor(_hePaletteNum, a, c);
}
}
break;
case 76: //HE99+
a = pop();
if (_hePaletteNum != 0) {
setHEPaletteFromCostume(_hePaletteNum, a);
}
break;
case 86:
a = pop();
if (_hePaletteNum != 0) {
copyHEPalette(_hePaletteNum, a);
}
break;
case 175:
b = pop();
a = pop();
if (_hePaletteNum != 0) {
setHEPaletteFromRoom(_hePaletteNum, a, b);
}
break;
case 217:
if (_hePaletteNum != 0) {
restoreHEPalette(_hePaletteNum);
}
break;
case 255:
_hePaletteNum = 0;
break;
default:
error("o90_paletteOps: Unknown case %d", subOp);
}
}
void ScummEngine_v90he::o90_fontUnk() {
// Font related
byte string[80];
int a;
byte subOp = fetchScriptByte();
switch (subOp) {
case 60: // HE100
case 42:
a = pop();
if (a == 2) {
copyScriptString(string, sizeof(string));
push(-1);
} else if (a == 1) {
pop();
writeVar(0, 0);
defineArray(0, kStringArray, 0, 0, 0, 0);
writeArray(0, 0, 0, 0);
push(readVar(0));
}
break;
case 0: // HE100
case 57:
push(1);
break;
default:
error("o90_fontUnk: Unknown case %d", subOp);
}
debug(1, "o90_fontUnk stub (%d)", subOp);
}
void ScummEngine_v90he::o90_getActorAnimProgress() {
Actor *a = derefActor(pop(), "o90_getActorAnimProgress");
push(a->getAnimProgress());
}
void ScummEngine_v90he::o90_kernelGetFunctions() {
int args[29];
int num, tmp;
Actor *a;
num = getStackList(args, ARRAYSIZE(args));
switch (args[0]) {
case 1001:
{
double b = args[1] * M_PI / 180.;
push((int)(sin(b) * 100000));
}
break;
case 1002:
{
double b = args[1] * M_PI / 180.;
push((int)(cos(b) * 100000));
}
break;
case 1969:
a = derefActor(args[1], "o90_kernelGetFunctions: 1969");
tmp = a->_heCondMask;
tmp &= 0x7FFF0000;
push(tmp);
break;
case 2001:
push(_logicHE->dispatch(args[1], num - 2, (int32 *)&args[2]));
break;
default:
error("o90_kernelGetFunctions: default case %d", args[0]);
}
}
void ScummEngine_v90he::o90_kernelSetFunctions() {
int args[29];
int num, tmp;
ActorHE *a;
num = getStackList(args, ARRAYSIZE(args));
switch (args[0]) {
case 20:
a = (ActorHE *)derefActor(args[1], "o90_kernelSetFunctions: 20");
queueAuxBlock(a);
break;
case 21:
_skipDrawObject = 1;
break;
case 22:
_skipDrawObject = 0;
break;
case 23:
clearCharsetMask();
_fullRedraw = true;
break;
case 24:
_skipProcessActors = 1;
redrawAllActors();
break;
case 25:
_skipProcessActors = 0;
redrawAllActors();
break;
case 27:
// Used in readdemo
break;
case 42:
_wiz->_rectOverrideEnabled = true;
_wiz->_rectOverride.left = args[1];
_wiz->_rectOverride.top = args[2];
_wiz->_rectOverride.right = args[3];
_wiz->_rectOverride.bottom = args[4];
adjustRect(_wiz->_rectOverride);
break;
case 43:
_wiz->_rectOverrideEnabled = false;
break;
case 714:
debug(5, "o90_kernelSetFunctions: case 714: type %d resId %d unk1 %d", args[1], args[2], args[3]);
break;
case 1492:
// Remote start script function
break;
case 1969:
a = (ActorHE *)derefActor(args[1], "o90_kernelSetFunctions: 1969");
tmp = a->_heCondMask;
tmp ^= args[2];
tmp &= 0x7FFF0000;
a->_heCondMask ^= tmp;
break;
case 2001:
_logicHE->dispatch(args[1], num - 2, (int32 *)&args[2]);
break;
default:
error("o90_kernelSetFunctions: default case %d (param count %d)", args[0], num);
}
}
} // End of namespace Scumm
#endif // ENABLE_HE
Reference in New Issue View Git Blame Copy Permalink