ScummVM/scummvm
1
0 Fork 0
mirror of https://github.com/scummvm/scummvm.git synced 2026-06-20 05:45:29 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
b3d7287a2fdca3d7d41ff321bb5ab4149de91c6d
scummvm/engines/asylum/scriptman.cpp
T

561 lines
16 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.
*
* $URL$
* $Id$
*/
#include "asylum/scriptman.h"
#include "common/system.h"
DECLARE_SINGLETON(Asylum::ScriptManager);
namespace Asylum {
static bool g_initialized = false;
ScriptManager::ScriptManager() {
if (!g_initialized) {
g_initialized = true;
_currentLine = 0;
_currentLoops = 0;
_processing = false;
_delayedSceneIndex = -1;
_delayedVideoIndex = -1;
_allowInput = true;
memset(_gameFlags, 0, 1512);
}
}
void ScriptManager::setScript(ActionDefinitions *action) {
_currentScript = action;
if (_currentScript) {
for (uint8 i = 0; i < _currentScript->commands[0].numLines; i++) {
debugC(kDebugLevelScripts,
"Line: %02d/%02d :: 0x%02X (%d, %d, %d, %d, %d, %d, %d, %d, %d)",
i,
_currentScript->commands[0].numLines - 1,
_currentScript->commands[i].opcode,
_currentScript->commands[i].param1,
_currentScript->commands[i].param2,
_currentScript->commands[i].param3,
_currentScript->commands[i].param4,
_currentScript->commands[i].param5,
_currentScript->commands[i].param6,
_currentScript->commands[i].param7,
_currentScript->commands[i].param8,
_currentScript->commands[i].param9);
}
}
}
void ScriptManager::setScene(Scene* scene) {
_scene = scene;
}
void ScriptManager::setScriptIndex(uint32 index) {
_currentScript = 0;
_currentLine = 0;
setScript(_scene->getActionList(index));
}
void ScriptManager::setGameFlag(int flag) {
_gameFlags[flag] &= ~(1 << flag);
}
void ScriptManager::processActionList() {
bool done = false, waitCycle = false;
int lineIncrement = 1;
_processing = true;
if (_currentScript) {
while (!done && !waitCycle) {
lineIncrement = 1; // Reset line increment value
if (_currentLoops > 1000) {
// TODO - processActionLists has run too many iterations
}
// TODO: this should be a pointer to allow changes in commands array
ActionCommand *currentCommand = &_currentScript->commands[_currentLine];
switch (currentCommand->opcode) {
/* 0x00 */ case kReturn0:
done = true;
lineIncrement = 0;
break;
/* 0x01 */ case kSetGameFlag:
setGameFlag(currentCommand->param1);
break;
/* 0x02 */ case kClearGameFlag: {
int flagNum = currentCommand->param1;
_gameFlags[flagNum] &= ~(1 << flagNum);
}
break;
/* 0x03 */ //case kToogleGameFlag:
/* 0x04 */ case kJumpIfGameFlag:
if (currentCommand->param1) {
bool doJump = false;
if (currentCommand->param2)
doJump = _gameFlags[currentCommand->param1] == 0;
else
doJump = _gameFlags[currentCommand->param1] != 0;
if (doJump)
_currentLine = currentCommand->param3;
}
break;
/* 0x05 */ case kHideCursor:
_scene->_screen->hideCursor();
_allowInput = false;
break;
/* 0x06 */ case kShowCursor:
_scene->_screen->showCursor();
_allowInput = true;
break;
/* 0x07 */ case kPlayAnimation: {
int barrierIndex = _scene->_sceneResource->getBarrierIndexById(currentCommand->param1);
if (barrierIndex >= 0)
_scene->_sceneResource->getWorldStats()->barriers[barrierIndex].flags |= 0x20; // TODO - enums for flags (0x20 is visible/playing?)
else
debugC(kDebugLevelScripts,
"Requested invalid object ID:0x%02X in Scene %d Line %d.",
currentCommand->param1,
_scene->getSceneIndex(),
_currentLine);
}
break;
/* 0x08 */ //case kMoveScenePosition:
/* 0x09 */ case kHideActor: {
uint32 actorIndex = 0;
if (currentCommand->param1 == -1)
;//actorIndex = _scene->getWorldStats()->playerActor;
else
actorIndex = currentCommand->param1;
if ((actorIndex >= 0) && (actorIndex < _scene->_sceneResource->getWorldStats()->numActors))
_scene->actorVisible(actorIndex, false);
else
debugC(kDebugLevelScripts,
"Requested invalid actor ID:0x%02X in Scene %d Line %d.",
currentCommand->param1,
_scene->getSceneIndex(),
_currentLine);
}
break;
/* 0x0A */ case kShowActor: {
uint32 actorIndex = 0;
if (currentCommand->param1 == -1)
;//actorIndex = _scene->getWorldStats()->playerActor;
else
actorIndex = currentCommand->param1;
if ((actorIndex >= 0) && (actorIndex < _scene->_sceneResource->getWorldStats()->numActors))
_scene->actorVisible(actorIndex, true);
else
debugC(kDebugLevelScripts,
"Requested invalid actor ID:0x%02X in Scene %d Line %d.",
currentCommand->param1,
_scene->getSceneIndex(),
_currentLine);
}
break;
/* 0x0B */ case kSetActorStats: {
uint32 actorIndex = 0;
if (currentCommand->param1 == -1)
;//actorIndex = _scene->getWorldStats()->playerActor;
else
actorIndex = currentCommand->param1;
if ((actorIndex >= 0) && (actorIndex < _scene->_sceneResource->getWorldStats()->numActors)) {
_scene->setActorPosition(actorIndex, currentCommand->param2, currentCommand->param3);
_scene->setActorAction(actorIndex, currentCommand->param4);
}
else
debugC(kDebugLevelScripts,
"Requested invalid actor ID:0x%02X in Scene %d Script %d Line %d.",
currentCommand->param1,
_scene->getSceneIndex(),
_currentLine);
}
break;
/* 0x0C */ //case kSetSceneMotionStat:
/* 0x0D */ //case kDisableActor:
/* 0x0E */ case kEnableActor: {
int actorIndex = 0;
if (currentCommand->param1 == -1)
;//actorIndex = _scene->getWorldStats()->playerActor;
else
actorIndex = currentCommand->param1;
if (_scene->_sceneResource->getWorldStats()->actors[actorIndex].field_40 == 5) {
enableActorSub(actorIndex, 4);
}
}
break;
/* 0x0F */ case kEnableBarriers: {
int barIdx = _scene->_sceneResource->getBarrierIndexById(currentCommand->param1);
uint32 sndIdx = currentCommand->param3;
uint32 v59 = currentCommand->param2;
if (!_currentScript->counter && _scene->getSceneIndex() != 13 && sndIdx != 0) {
// TODO
// Find a script that actually has a valid param3
// to see if this code is accurate :P
ResourcePack *tmpRes = new ResourcePack(12);
_scene->_sound->playSfx(tmpRes, ((int)(sndIdx != 0) & 5) + 0x80120001);
delete tmpRes;
}
if (_currentScript->counter >= 3 * v59 - 1) {
_currentScript->counter = 0;
_scene->_sceneResource->getWorldStats()->barriers[barIdx].field_67C = 0;
processActionListSub02(_currentScript, currentCommand, 2);
_currentLoops = 1; // v4 = 1;
} else {
int v64;
int v62 = _currentScript->counter + 1;
_currentScript->counter = v62;
if (sndIdx) {
v64 = 1;
int v170 = 3 - v62 / v59;
_scene->_sceneResource->getWorldStats()->barriers[barIdx].field_67C = v170;
} else {
v64 = 0;
_scene->_sceneResource->getWorldStats()->barriers[barIdx].field_67C = v62 / v59 + 1;
}
processActionListSub02(_currentScript, currentCommand, v64);
}
}
break;
/* 0x10 */ case kReturn:
done = true;
lineIncrement = 0;
break;
/* 0x11 */ case kDestroyObject: {
int barrierIndex = _scene->_sceneResource->getBarrierIndexById(currentCommand->param1);
if (barrierIndex >= 0)
_scene->_sceneResource->getWorldStats()->barriers[barrierIndex].flags &= 0xFFFFDF; // TODO - enums for flags (0x20 is visible/playing?)
else
debugC(kDebugLevelScripts,
"Requested invalid object ID:0x%02X in Scene %d Line %d.",
currentCommand->param1,
_scene->getSceneIndex(),
_currentLine);
}
break;
/* 0x12 */ //case k_unk12_JMP_WALK_ACTOR:
/* 0x13 */ //case k_unk13_JMP_WALK_ACTOR:
/* 0x14 */ //case k_unk14_JMP_WALK_ACTOR:
/* 0x15 */ //case k_unk15:
/* 0x16 */ //case kResetAnimation:
/* 0x17 */ //case kClearFlag1Bit0:
/* 0x18 */ //case k_unk18_PLAY_SND:
/* 0x19 */ //case kJumpIfFlag2Bit0:
/* 0x1A */ //case kSetFlag2Bit0:
/* 0x1B */ //case kClearFlag2Bit0:
/* 0x1C */ //case kJumpIfFlag2Bit2:
/* 0x1D */ //case kSetFlag2Bit2:
/* 0x1E */ //case kClearFlag2Bit2:
/* 0x1F */ //case kJumpIfFlag2Bit1:
/* 0x20 */ //case kSetFlag2Bit1:
/* 0x21 */ //case kClearFlag2Bit1:
/* 0x22 */ //case k_unk22:
/* 0x23 */ //case k_unk23:
/* 0x24 */ //case k_unk24:
/* 0x25 */ //case kRunEncounter:
/* 0x26 */ //case kJumpIfFlag2Bit4:
/* 0x27 */ //case kSetFlag2Bit4:
/* 0x28 */ //case kClearFlag2Bit4:
/* 0x29 */ //case kSetActorField638:
/* 0x2A */ //case kJumpIfActorField638:
/* 0x2B */ case kChangeScene:
_delayedSceneIndex = currentCommand->param1 + 4;
debug(kDebugLevelScripts,
"Queueing Scene Change to scene %d...",
_delayedSceneIndex);
break;
/* 0x2C */ //case k_unk2C_ActorSub:
/* 0x2D */ case kPlayMovie:
_delayedVideoIndex = currentCommand->param1;
break;
/* 0x2E */ case kStopAllBarriersSounds:
// TODO: do this for all barriers that have sfx playing
_scene->_sound->stopSfx();
break;
/* 0x2F */ //case kSetActionFlag01:
/* 0x30 */ //case kClearActionFlag01:
/* 0x31 */ //case kResetSceneRect:
/* 0x32 */ //case kChangeMusicById:
/* 0x33 */ case kStopMusic:
_scene->_sound->stopMusic();
break;
/* 0x34 */ //case k_unk34_Status:
/* 0x35 */ //case k_unk35:
/* 0x36 */ //case k_unk36:
/* 0x37 */ case kRunBlowUpPuzzle: {
int blowUpPuzzleIdx = currentCommand->param1;
_scene->setBlowUpPuzzle(new BlowUpPuzzleVCR(_scene));
_scene->getBlowUpPuzzle()->openBlowUp();
}
break;
/* 0x38 */ //case kJumpIfFlag2Bit3:
/* 0x39 */ //case kSetFlag2Bit3:
/* 0x3A */ //case kClearFlag2Bit3:
/* 0x3B */ //case k_unk3B_PALETTE_MOD:
/* 0x3C */ //case k_unk3C_CMP_VAL:
/* 0x3D */ case kWaitUntilFramePlayed: {
int barrierIndex = _scene->_sceneResource->getBarrierIndexById(currentCommand->param1);
if (barrierIndex >= 0) {
uint32 frameNum = 0;
if (currentCommand->param2 == -1)
frameNum = _scene->_sceneResource->getWorldStats()->barriers[barrierIndex].frameCount - 1;
else
frameNum = currentCommand->param2;
if (_scene->_sceneResource->getWorldStats()->barriers[barrierIndex].tickCount < frameNum) {
lineIncrement = 0;
waitCycle = true;
}
} else
debugC(kDebugLevelScripts,
"Requested invalid object ID:0x%02X in Scene %d Line %d.",
currentCommand->param1,
_scene->getSceneIndex(),
_currentLine);
}
break;
/* 0x3E */ case kUpdateWideScreen: {
int barSize = currentCommand->param1;
if(barSize >= 22) {
currentCommand->param1 = 0;
} else {
_scene->_screen->drawWideScreen(4 * barSize);
currentCommand->param1++;
}
}
break;
/* 0x3F */ //case k_unk3F:
/* 0x40 */ //case k_unk40_SOUND:
/* 0x41 */ case kPlaySpeech: {
// TODO - Add support for other param options
uint32 sndIdx = currentCommand->param1;
if ((int)sndIdx >= 0) {
if (sndIdx >= 259) {
sndIdx -= 9;
_scene->_sound->playSfx(_scene->_speechPack, sndIdx - 0x7FFD0000);
} else {
_scene->_sound->playSfx(_scene->_speechPack, sndIdx);
}
} else
debugC(kDebugLevelScripts,
"Requested invalid sound ID:0x%02X in Scene %d Line %d.",
currentCommand->param1,
_scene->getSceneIndex(),
_currentLine);
}
break;
/* 0x42 */ //case k_unk42:
/* 0x43 */ //case k_unk43:
/* 0x44 */ //case kPaletteFade:
/* 0x45 */ //case kStartPaletteFadeThread:
/* 0x46 */ //case k_unk46:
/* 0x47 */ //case kActorFaceObject:
/* 0x48 */ //case k_unk48_MATTE_01:
/* 0x49 */ //case k_unk49_MATTE_90:
/* 0x4A */ //case kJumpIfSoundPlaying:
/* 0x4B */ //case kChangePlayerCharacterIndex:
/* 0x4C */ case kChangeActorField40: { // TODO: figure out what is this field and what values are set
int actorIdx = currentCommand->param1;
int fieldType = currentCommand->param2;
if(fieldType) {
if(_scene->getResources()->getWorldStats()->actors[actorIdx].field_40 < 11) {
_scene->getResources()->getWorldStats()->actors[actorIdx].field_40 = 14;
}
} else {
_scene->getResources()->getWorldStats()->actors[actorIdx].field_40 = 4;
}
}
break;
/* 0x4D */ //case kStopSound:
/* 0x4E */ //case k_unk4E_RANDOM_COMMAND:
/* 0x4F */ case kClearScreen:
if(currentCommand->param1) {
_scene->_screen->clearScreen();
}
break;
/* 0x50 */ //case kQuit:
/* 0x51 */ //case kJumpObjectFrame:
/* 0x52 */ //case k_unk52:
/* 0x53 */ //case k_unk53:
/* 0x54 */ //case k_unk54_SET_ACTIONLIST_6EC:
/* 0x55 */ //case k_unk55:
/* 0x56 */ //case k_unk56:
/* 0x57 */ //case k_unk57:
/* 0x58 */ //case k_unk58:
/* 0x59 */ //case k_unk59:
/* 0x5A */ //case k_unk5A:
/* 0x5B */ //case k_unk5B:
/* 0x5C */ //case k_unk5C:
/* 0x5D */ //case k_unk5D:
/* 0x5E */ //case k_unk5E:
/* 0x5F */ //case k_unk5F:
/* 0x60 */ //case k_unk60_SET_OR_CLR_ACTIONAREA_FLAG:
/* 0x61 */ //case k_unk61:
/* 0x62 */ //case k_unk62_SHOW_OPTIONS_SCREEN:
default:
debugC(kDebugLevelScripts,
"Unhandled opcode 0x%02X in Scene %d Line %d.",
currentCommand->opcode,
_scene->getSceneIndex(),
_currentLine);
break;
} // end switch
_currentLine += lineIncrement;
_currentLoops++;
} // end while
if (done) {
_currentLine = 0;
_currentLoops = 0;
_currentScript = 0;
}
}
_processing = false;
}
void ScriptManager::processActionListSub02(ActionDefinitions* script, ActionCommand *command, int a4) {
int v4 = 0;
int result;
int barrierIdx = 0;
if (a4) {
if (a4 == 1) {
;
} else {
result = a4 - 2;
int v8 = command->param4;
for (int i = 7; i > 0; i--) {
barrierIdx = _scene->getResources()->getBarrierIndexById(v8);
if (barrierIdx)
_scene->getResources()->getWorldStats()->barriers[barrierIdx].field_67C = 0;
v8 += 4;
}
}
// TODO
switch (_scene->getSceneIndex()) {
case 7:
warning("Scene 7 / v4 != 0 Not Implemented");
break;
case 6:
warning("Scene 6 / v4 != 0 Not Implemented");
break;
case 8:
warning("Scene 8 / v4 != 0 Not Implemented");
break;
case 3:
warning("Scene 3 / v4 != 0 Not Implemented");
break;
case 4:
warning("Scene 4 / v4 != 0 Not Implemented");
break;
default:
return;
}
} else {
int v13 = command->param4;
int v4 = script->counter / command->param2 + 4;
for (int i = 7; i > 0; i--) {
barrierIdx = _scene->getResources()->getBarrierIndexById(v13);
if (barrierIdx >= 0)
_scene->getResources()->getWorldStats()->barriers[barrierIdx].field_67C = v4;
v13 += 4;
}
// TODO
switch (_scene->getSceneIndex()) {
case 7:
warning("Scene 7 / v4 = 0 Not Implemented");
break;
case 6:
warning("Scene 6 / v4 = 0 Not Implemented");
break;
case 8:
warning("Scene 8 / v4 = 0 Not Implemented");
break;
case 3:
warning("Scene 3 / v4 = 0 Not Implemented");
break;
case 4:
warning("Scene 4 / v4 = 0 Not Implemented");
break;
default:
return;
}
}
}
void ScriptManager::enableActorSub(int actorIndex, int condition) {
}
ScriptManager::~ScriptManager() {
// TODO Auto-generated destructor stub
}
} // end of namespace Asylum
Reference in new issue View Git Blame Copy Permalink