scummvm/engines/illusions/scriptman.cpp
johndoe123 d77d4ed4a6 ILLUSIONS: Fix bug which occured when trying to walk while talking
- Fix minor bugs
- Work on talk thread handling
2018-07-20 06:43:33 +00:00

380 lines
11 KiB
C++

/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
*/
#include "illusions/illusions.h"
#include "illusions/scriptman.h"
#include "illusions/abortablethread.h"
#include "illusions/actor.h"
#include "illusions/camera.h"
#include "illusions/scriptthread.h"
#include "illusions/scriptopcodes.h"
#include "illusions/talkthread.h"
#include "illusions/timerthread.h"
namespace Illusions {
// ActiveScenes
ActiveScenes::ActiveScenes() {
clear();
}
void ActiveScenes::clear() {
_stack.clear();
}
void ActiveScenes::push(uint32 sceneId) {
ActiveScene activeScene;
activeScene._sceneId = sceneId;
activeScene._pauseCtr = 0;
_stack.push(activeScene);
}
void ActiveScenes::pop() {
_stack.pop();
}
void ActiveScenes::pauseActiveScene() {
++_stack.top()._pauseCtr;
}
void ActiveScenes::unpauseActiveScene() {
--_stack.top()._pauseCtr;
}
uint ActiveScenes::getActiveScenesCount() {
return _stack.size();
}
void ActiveScenes::getActiveSceneInfo(uint index, uint32 *sceneId, int *pauseCtr) {
if (sceneId)
*sceneId = _stack[index - 1]._sceneId;
if (pauseCtr)
*pauseCtr = _stack[index - 1]._pauseCtr;
}
uint32 ActiveScenes::getCurrentScene() {
if (_stack.size() > 0)
return _stack.top()._sceneId;
return 0;
}
bool ActiveScenes::isSceneActive(uint32 sceneId) {
for (uint i = 0; i < _stack.size(); ++i)
if (_stack[i]._sceneId == sceneId && _stack[i]._pauseCtr <= 0)
return true;
return false;
}
// TriggerFunction
TriggerFunction::TriggerFunction(uint32 sceneId, uint32 verbId, uint32 objectId2, uint32 objectId, TriggerFunctionCallback *callback)
: _sceneId(sceneId), _verbId(verbId), _objectId2(objectId2), _objectId(objectId), _callback(callback) {
}
TriggerFunction::~TriggerFunction() {
delete _callback;
}
void TriggerFunction::run(uint32 callingThreadId) {
(*_callback)(this, callingThreadId);
}
// TriggerFunctions
void TriggerFunctions::add(uint32 sceneId, uint32 verbId, uint32 objectId2, uint32 objectId, TriggerFunctionCallback *callback) {
ItemsIterator it = findInternal(sceneId, verbId, objectId2, objectId);
if (it != _triggerFunctions.end()) {
delete *it;
_triggerFunctions.erase(it);
}
_triggerFunctions.push_back(new TriggerFunction(sceneId, verbId, objectId2, objectId, callback));
}
TriggerFunction *TriggerFunctions::find(uint32 sceneId, uint32 verbId, uint32 objectId2, uint32 objectId) {
ItemsIterator it = findInternal(sceneId, verbId, objectId2, objectId);
if (it != _triggerFunctions.end())
return (*it);
return 0;
}
void TriggerFunctions::removeBySceneId(uint32 sceneId) {
ItemsIterator it = _triggerFunctions.begin();
while (it != _triggerFunctions.end()) {
if ((*it)->_sceneId == sceneId) {
delete *it;
it = _triggerFunctions.erase(it);
} else
++it;
}
}
TriggerFunctions::ItemsIterator TriggerFunctions::findInternal(uint32 sceneId, uint32 verbId, uint32 objectId2, uint32 objectId) {
ItemsIterator it = _triggerFunctions.begin();
for (; it != _triggerFunctions.end(); ++it) {
TriggerFunction *triggerFunction = *it;
if (triggerFunction->_sceneId == sceneId && triggerFunction->_verbId == verbId &&
triggerFunction->_objectId2 == objectId2 && triggerFunction->_objectId == objectId)
break;
}
return it;
}
// ScriptStack
ScriptStack::ScriptStack() {
clear();
}
void ScriptStack::clear() {
for (uint i = 0; i < 256; ++i)
_stack[i] = (int16)0xEEEE;
_stackPos = 256;
}
void ScriptStack::push(int16 value) {
--_stackPos;
if (_stackPos > 0)
_stack[_stackPos] = value;
}
int16 ScriptStack::pop() {
int16 value = 0;
if (_stackPos < 256) {
value = _stack[_stackPos];
_stack[_stackPos] = (int16)0xEEEE;
++_stackPos;
}
return value;
}
int16 ScriptStack::peek() {
int16 value = 0;
if (_stackPos < 256)
value = _stack[_stackPos];
return value;
}
int16 *ScriptStack::topPtr() {
return &_stack[_stackPos];
}
// ScriptMan
ScriptMan::ScriptMan(IllusionsEngine *vm)
: _vm(vm), _pauseCtr(0), _doScriptThreadInit(false) {
_threads = new ThreadList(vm);
_scriptOpcodes = new ScriptOpcodes(vm);
_field8 = 1;
_fieldA = 0;
_fieldE = 240;
}
ScriptMan::~ScriptMan() {
delete _threads;
delete _scriptOpcodes;
}
void ScriptMan::setSceneIdThreadId(uint32 theSceneId, uint32 theThreadId) {
_theSceneId = theSceneId;
_theThreadId = theThreadId;
}
void ScriptMan::startScriptThread(uint32 threadId, uint32 callingThreadId,
uint32 value8, uint32 valueC, uint32 value10) {
debug(2, "Starting script thread %08X", threadId);
byte *scriptCodeIp = _scriptResource->getThreadCode(threadId);
newScriptThread(threadId, callingThreadId, 0, scriptCodeIp, value8, valueC, value10);
}
void ScriptMan::startAnonScriptThread(int32 threadId, uint32 callingThreadId,
uint32 value8, uint32 valueC, uint32 value10) {
debug(2, "Starting anonymous script thread %08X", threadId);
uint32 tempThreadId = newTempThreadId();
byte *scriptCodeIp = _scriptResource->getThreadCode(threadId);
scriptCodeIp = _scriptResource->getThreadCode(threadId);
newScriptThread(tempThreadId, callingThreadId, 0, scriptCodeIp, value8, valueC, value10);
}
uint32 ScriptMan::startTempScriptThread(byte *scriptCodeIp, uint32 callingThreadId,
uint32 value8, uint32 valueC, uint32 value10) {
uint32 tempThreadId = newTempThreadId();
debug(2, "Starting temp script thread %08X", tempThreadId);
newScriptThread(tempThreadId, callingThreadId, 0, scriptCodeIp, value8, valueC, value10);
return tempThreadId;
}
uint32 ScriptMan::startAbortableTimerThread(uint32 duration, uint32 threadId) {
return newTimerThread(duration, threadId, true);
}
uint32 ScriptMan::startTimerThread(uint32 duration, uint32 threadId) {
return newTimerThread(duration, threadId, false);
}
uint32 ScriptMan::startAbortableThread(byte *scriptCodeIp1, byte *scriptCodeIp2, uint32 callingThreadId) {
uint32 tempThreadId = newTempThreadId();
debug(2, "Starting abortable thread %08X", tempThreadId);
uint32 scriptThreadId = startTempScriptThread(scriptCodeIp1, tempThreadId, 0, 0, 0);
AbortableThread *abortableThread = new AbortableThread(_vm, tempThreadId, callingThreadId, 0,
scriptThreadId, scriptCodeIp2);
_threads->startThread(abortableThread);
return tempThreadId;
}
uint32 ScriptMan::startTalkThread(int16 duration, uint32 objectId, uint32 talkId, uint32 sequenceId1,
uint32 sequenceId2, uint32 namedPointId, uint32 callingThreadId) {
debug(2, "Starting talk thread");
uint32 tempThreadId = newTempThreadId();
_threads->endTalkThreadsNoNotify();
TalkThread *talkThread = new TalkThread(_vm, tempThreadId, callingThreadId, 0,
duration, objectId, talkId, sequenceId1, sequenceId2, namedPointId);
_threads->startThread(talkThread);
return tempThreadId;
}
bool ScriptMan::findTriggerCause(uint32 sceneId, uint32 verbId, uint32 objectId2, uint32 objectId, uint32 &codeOffs) {
ProgInfo *progInfo = _scriptResource->getProgInfo(sceneId & 0xFFFF);
if (progInfo)
return progInfo->findTriggerCause(verbId, objectId2, objectId, codeOffs);
return false;
}
void ScriptMan::setCurrFontId(uint32 fontId) {
_fontId = fontId;
}
bool ScriptMan::checkActiveTalkThreads() {
return _threads->isActiveThread(kMsgQueryTalkThreadActive);
}
uint32 ScriptMan::clipTextDuration(uint32 duration) {
switch (_field8) {
case 2:
if (duration == 0)
duration = 240;
break;
case 3:
if (duration < _fieldA)
duration = _fieldA;
break;
case 4:
if (duration > _fieldA)
duration = _fieldA;
break;
}
return duration;
}
void ScriptMan::reset() {
_scriptResource->_blockCounters.clear();
_scriptResource->_properties.clear();
// TODO script_sub_417FF0(1, 0);
}
bool ScriptMan::enterScene(uint32 sceneId, uint32 threadId) {
ProgInfo *progInfo = _scriptResource->getProgInfo(sceneId & 0xFFFF);
if (!progInfo) {
// TODO dumpActiveScenes(_globalSceneId, threadId);
sceneId = _theSceneId;
}
_activeScenes.push(sceneId);
return progInfo != 0;
}
void ScriptMan::exitScene(uint32 threadId) {
uint32 sceneId = _activeScenes.getCurrentScene();
// TODO krnfileDump(sceneId);
// TODO UpdateFunctions_disableByTag__TODO_maybe(sceneId);
_threads->terminateThreadsByTag(sceneId, threadId);
_vm->_controls->destroyControlsByTag(sceneId);
_vm->_triggerFunctions->removeBySceneId(sceneId);
_vm->_resSys->unloadResourcesByTag(sceneId);
_activeScenes.pop();
}
void ScriptMan::enterPause(uint32 threadId) {
uint32 sceneId = _activeScenes.getCurrentScene();
_vm->_camera->pushCameraMode();
_threads->suspendThreadsByTag(sceneId, threadId);
_vm->_controls->pauseControlsByTag(sceneId);
_vm->_actorItems->pauseByTag(sceneId);
_vm->_backgroundItems->pauseByTag(sceneId);
_activeScenes.pauseActiveScene();
}
void ScriptMan::leavePause(uint32 threadId) {
uint32 sceneId = _activeScenes.getCurrentScene();
_vm->_backgroundItems->unpauseByTag(sceneId);
_vm->_actorItems->unpauseByTag(sceneId);
_vm->_controls->unpauseControlsByTag(sceneId);
_threads->notifyThreadsByTag(sceneId, threadId);
_vm->_camera->popCameraMode();
_activeScenes.unpauseActiveScene();
}
void ScriptMan::dumpActiveScenes(uint32 sceneId, uint32 threadId) {
uint activeScenesCount = _activeScenes.getActiveScenesCount();
while (activeScenesCount > 0) {
uint32 activeSceneId;
_activeScenes.getActiveSceneInfo(activeScenesCount, &activeSceneId, 0);
if (activeSceneId == sceneId)
break;
exitScene(threadId);
--activeScenesCount;
}
_vm->_camera->clearCameraModeStack();
}
void ScriptMan::newScriptThread(uint32 threadId, uint32 callingThreadId, uint notifyFlags,
byte *scriptCodeIp, uint32 value8, uint32 valueC, uint32 value10) {
ScriptThread *scriptThread = new ScriptThread(_vm, threadId, callingThreadId, notifyFlags,
scriptCodeIp, value8, valueC, value10);
_threads->startThread(scriptThread);
if (_pauseCtr > 0)
scriptThread->pause();
if (_doScriptThreadInit) {
int updateResult = kTSRun;
while (scriptThread->_pauseCtr <= 0 && updateResult != kTSTerminate && updateResult != kTSYield)
updateResult = scriptThread->update();
}
}
uint32 ScriptMan::newTimerThread(uint32 duration, uint32 callingThreadId, bool isAbortable) {
uint32 tempThreadId = newTempThreadId();
TimerThread *timerThread = new TimerThread(_vm, tempThreadId, callingThreadId, 0,
duration, isAbortable);
_threads->startThread(timerThread);
return tempThreadId;
}
uint32 ScriptMan::newTempThreadId() {
uint32 threadId = _nextTempThreadId + 2 * _scriptResource->_codeCount;
if (threadId > 65535) {
_nextTempThreadId = 0;
threadId = 2 * _scriptResource->_codeCount;
}
++_nextTempThreadId;
return 0x00020000 | threadId;
}
} // End of namespace Illusions