aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Bouclet2010-11-29 20:49:14 +0000
committerBastien Bouclet2010-11-29 20:49:14 +0000
commit5f8e6e3824823869fdb2fd5d4dae334817d318be (patch)
tree89ba987ed34670db918fd04250c1ee28306317ee
parentabe06f098caef6a260f34420e55a5f2921f7c525 (diff)
downloadscummvm-rg350-5f8e6e3824823869fdb2fd5d4dae334817d318be.tar.gz
scummvm-rg350-5f8e6e3824823869fdb2fd5d4dae334817d318be.tar.bz2
scummvm-rg350-5f8e6e3824823869fdb2fd5d4dae334817d318be.zip
MOHAWK: Start splitting Myst scripts into one class per Stack.
svn-id: r54592
-rw-r--r--engines/mohawk/module.mk2
-rw-r--r--engines/mohawk/myst.cpp17
-rw-r--r--engines/mohawk/myst_scripts.cpp3715
-rw-r--r--engines/mohawk/myst_scripts.h155
-rw-r--r--engines/mohawk/myst_scripts_myst.cpp3813
-rw-r--r--engines/mohawk/myst_scripts_myst.h164
-rw-r--r--engines/mohawk/myst_scripts_selenitic.cpp544
-rw-r--r--engines/mohawk/myst_scripts_selenitic.h89
8 files changed, 4654 insertions, 3845 deletions
diff --git a/engines/mohawk/module.mk b/engines/mohawk/module.mk
index 2304121c87..3628b3e1d8 100644
--- a/engines/mohawk/module.mk
+++ b/engines/mohawk/module.mk
@@ -13,6 +13,8 @@ MODULE_OBJS = \
myst_vars.o \
myst_saveload.o \
myst_scripts.o \
+ myst_scripts_myst.o \
+ myst_scripts_selenitic.o \
resource.o \
resource_cache.o \
riven.o \
diff --git a/engines/mohawk/myst.cpp b/engines/mohawk/myst.cpp
index b4ec087b61..1a237db916 100644
--- a/engines/mohawk/myst.cpp
+++ b/engines/mohawk/myst.cpp
@@ -30,6 +30,9 @@
#include "mohawk/cursors.h"
#include "mohawk/graphics.h"
#include "mohawk/myst.h"
+#include "mohawk/myst_scripts.h"
+#include "mohawk/myst_scripts_myst.h"
+#include "mohawk/myst_scripts_selenitic.h"
#include "mohawk/myst_saveload.h"
#include "mohawk/dialogs.h"
#include "mohawk/resource.h"
@@ -82,8 +85,6 @@ MohawkEngine_Myst::MohawkEngine_Myst(OSystem *syst, const MohawkGameDescription
_view.scriptResCount = 0;
_view.scriptResources = NULL;
- _scriptParser->disableInitOpcodes();
-
if ((getFeatures() & GF_ME) && getPlatform() == Common::kPlatformMacintosh) {
const Common::FSNode gameDataDir(ConfMan.get("path"));
SearchMan.addSubDirectoryMatching(gameDataDir, "CD Data");
@@ -235,7 +236,6 @@ Common::Error MohawkEngine_Myst::run() {
_console = new MystConsole(this);
_varStore = new MystVar(this);
_saveLoad = new MystSaveLoad(this, _saveFileMan);
- _scriptParser = new MystScriptParser(this);
_loadDialog = new GUI::SaveLoadChooser(_("Load game:"), _("Load"));
_loadDialog->setSaveMode(false);
_optionsDialog = new MystOptionsDialog(this);
@@ -354,6 +354,17 @@ void MohawkEngine_Myst::changeToStack(uint16 stack) {
_curStack = stack;
+ delete _scriptParser;
+
+ switch (_curStack) {
+ case kSeleniticStack:
+ _scriptParser = new MystScriptParser_Selenitic(this);
+ break;
+ default:
+ _scriptParser = new MystScriptParser_Myst(this);
+ break;
+ }
+
// If the array is empty, add a new one. Otherwise, delete the first
// entry which is the stack file (the second, if there, is the help file).
if (_mhk.empty())
diff --git a/engines/mohawk/myst_scripts.cpp b/engines/mohawk/myst_scripts.cpp
index b67c109acc..976a6d50a6 100644
--- a/engines/mohawk/myst_scripts.cpp
+++ b/engines/mohawk/myst_scripts.cpp
@@ -47,7 +47,7 @@ MystScriptEntry::~MystScriptEntry() {
delete[] argv;
}
-const uint8 stack_map[8] = {
+const uint8 MystScriptParser::stack_map[8] = {
kSeleniticStack,
kStoneshipStack,
kMystStack,
@@ -58,7 +58,7 @@ const uint8 stack_map[8] = {
kMystStack
};
-const uint16 start_card[8] = {
+const uint16 MystScriptParser::start_card[8] = {
1282,
2029,
4396,
@@ -135,101 +135,6 @@ void MystScriptParser::setupOpcodes() {
OPCODE(46, opcode_46),
// Opcodes 47 to 99 Not Present
- // "Stack-Specific" Opcodes
- OPCODE(100, opcode_100),
- OPCODE(101, opcode_101),
- OPCODE(102, opcode_102),
- OPCODE(103, opcode_103),
- OPCODE(104, opcode_104),
- OPCODE(105, opcode_105),
- OPCODE(106, opcode_106),
- OPCODE(107, opcode_107),
- OPCODE(108, opcode_108),
- OPCODE(109, opcode_109),
- OPCODE(110, opcode_110),
- OPCODE(111, opcode_111),
- OPCODE(112, opcode_112),
- OPCODE(113, opcode_113),
- OPCODE(114, opcode_114),
- OPCODE(115, opcode_115),
- OPCODE(116, opcode_116),
- OPCODE(117, opcode_117),
- OPCODE(118, opcode_118),
- OPCODE(119, opcode_119),
- OPCODE(120, opcode_120),
- OPCODE(121, opcode_121),
- OPCODE(122, opcode_122),
- OPCODE(123, opcode_123),
- OPCODE(124, opcode_124),
- OPCODE(125, opcode_125),
- OPCODE(126, opcode_126),
- OPCODE(127, opcode_127),
- OPCODE(128, opcode_128),
- OPCODE(129, opcode_129),
- OPCODE(130, opcode_130),
- OPCODE(131, opcode_131),
- OPCODE(132, opcode_132),
- OPCODE(133, opcode_133),
- // Opcodes 134 to 146 Not Present
- OPCODE(147, opcode_147),
- // Opcodes 148 to 163 Not Present
- OPCODE(164, opcode_164),
- // Opcodes 165 to 168 Not Present
- OPCODE(169, opcode_169),
- // Opcodes 170 to 181 Not Present
- OPCODE(182, opcode_182),
- OPCODE(183, opcode_183),
- OPCODE(184, opcode_184),
- OPCODE(185, opcode_185),
- // Opcodes 186 to 195 Not Present
- OPCODE(196, opcode_196), // Demo only
- OPCODE(197, opcode_197), // Demo only
- OPCODE(198, opcode_198),
- OPCODE(199, opcode_199),
-
- // "Init" Opcodes
- OPCODE(200, opcode_200),
- OPCODE(201, opcode_201),
- OPCODE(202, opcode_202),
- OPCODE(203, opcode_203),
- OPCODE(204, opcode_204),
- OPCODE(205, opcode_205),
- OPCODE(206, opcode_206),
- OPCODE(207, opcode_207),
- OPCODE(208, opcode_208),
- OPCODE(209, opcode_209),
- OPCODE(210, opcode_210),
- OPCODE(211, opcode_211),
- OPCODE(212, opcode_212),
- OPCODE(213, opcode_213),
- OPCODE(214, opcode_214),
- OPCODE(215, opcode_215),
- OPCODE(216, opcode_216),
- OPCODE(217, opcode_217),
- OPCODE(218, opcode_218),
- OPCODE(219, opcode_219),
- OPCODE(220, opcode_220),
- OPCODE(221, opcode_221),
- OPCODE(222, opcode_222),
- // Opcodes 223 to 297 Not Present
- OPCODE(298, opcode_298), // Demo only
- OPCODE(299, opcode_299), // Demo only
-
- // "Exit" Opcodes
- OPCODE(300, opcode_300),
- OPCODE(301, opcode_301),
- OPCODE(302, opcode_302),
- OPCODE(303, opcode_303),
- OPCODE(304, opcode_304),
- OPCODE(305, opcode_305),
- OPCODE(306, opcode_306),
- OPCODE(307, opcode_307),
- OPCODE(308, opcode_308),
- OPCODE(309, opcode_309),
- // Opcodes 310 to 311 Not Present
- OPCODE(312, opcode_312),
- // Opcodes 313 and greater Not Present
-
OPCODE(0xFFFF, NOP)
};
@@ -237,34 +142,6 @@ void MystScriptParser::setupOpcodes() {
_opcodeCount = ARRAYSIZE(myst_opcodes);
}
-void MystScriptParser::disableInitOpcodes() {
- opcode_200_disable();
- opcode_201_disable();
- opcode_202_disable();
- opcode_203_disable();
- opcode_204_disable();
- opcode_205_disable();
- opcode_206_disable();
- opcode_209_disable();
- opcode_210_disable();
- opcode_211_disable();
- opcode_212_disable();
-}
-
-void MystScriptParser::runPersistentOpcodes() {
- opcode_200_run();
- opcode_201_run();
- opcode_202_run();
- opcode_203_run();
- opcode_204_run();
- opcode_205_run();
- opcode_206_run();
- opcode_209_run();
- opcode_210_run();
- opcode_211_run();
- opcode_212_run();
-}
-
void MystScriptParser::runScript(MystScript script, MystResource *invokingResource) {
_invokingResource = invokingResource;
@@ -1361,3592 +1238,4 @@ void MystScriptParser::opcode_46(uint16 op, uint16 var, uint16 argc, uint16 *arg
unknown(op, var, argc, argv);
}
-void MystScriptParser::opcode_100(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- // Hard coded SoundId valid only for Intro Stack.
- // Other stacks use Opcode 40, which takes SoundId values as arguments.
- const uint16 soundIdLinkSrc = 5;
-
- switch (_vm->getCurStack()) {
- case kIntroStack:
- debugC(kDebugScript, "Opcode %d: ChangeStack", op);
- debugC(kDebugScript, "\tvar: %d", var);
-
- // TODO: Merge with changeStack (Opcode 40) Implementation?
- if (_vm->_varStore->getVar(var) == 5 || _vm->_varStore->getVar(var) > 7) {
- // TODO: Dead Book i.e. Released Sirrus/Achenar
- } else {
- // Play Linking Sound, blocking...
- _vm->_sound->stopSound();
- Audio::SoundHandle *handle = _vm->_sound->playSound(soundIdLinkSrc);
- while (_vm->_mixer->isSoundHandleActive(*handle))
- _vm->_system->delayMillis(10);
-
- // Play Flyby Entry Movie on Masterpiece Edition. The Macintosh version is currently hooked
- // up to the Cinepak versions of the video (the 'c' suffix) until the SVQ1 decoder is completed.
- if ((_vm->getFeatures() & GF_ME)) {
- switch (stack_map[_vm->_varStore->getVar(var)]) {
- case kSeleniticStack:
- if (_vm->getPlatform() == Common::kPlatformMacintosh)
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_SEc", kMasterpieceOnly));
- else
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("selenitic flyby", kMasterpieceOnly));
- break;
- case kStoneshipStack:
- if (_vm->getPlatform() == Common::kPlatformMacintosh)
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_STc", kMasterpieceOnly));
- else
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("stoneship flyby", kMasterpieceOnly));
- break;
- // Myst Flyby Movie not used in Original Masterpiece Edition Engine
- case kMystStack:
- if (_vm->_tweaksEnabled) {
- if (_vm->getPlatform() == Common::kPlatformMacintosh)
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_MYc", kMasterpieceOnly));
- else
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("myst flyby", kMasterpieceOnly));
- }
- break;
- case kMechanicalStack:
- if (_vm->getPlatform() == Common::kPlatformMacintosh)
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_MEc", kMasterpieceOnly));
- else
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("mech age flyby", kMasterpieceOnly));
- break;
- case kChannelwoodStack:
- if (_vm->getPlatform() == Common::kPlatformMacintosh)
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_CHc", kMasterpieceOnly));
- else
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("channelwood flyby", kMasterpieceOnly));
- break;
- default:
- break;
- }
- }
-
- uint16 varValue = _vm->_varStore->getVar(var);
- _vm->changeToStack(stack_map[varValue]);
- _vm->changeToCard(start_card[varValue]);
-
- // TODO: No soundIdLinkDst for Opcode 100 link? Check Original.
- }
- break;
- case kStoneshipStack:
- // Used for Cards 2185 (Water Pump)
- varUnusedCheck(op, var);
-
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Unknown Function", op);
-
- // TODO: Called when Water Pump Button is pressed? Animation?
- } else
- unknown(op, var, argc, argv);
- break;
- case kDniStack:
- // Used in Card 5022 (Rocks)
- varUnusedCheck(op, var);
-
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Unknown Function", op);
-
- // TODO: Fill in Logic.
- } else
- unknown(op, var, argc, argv);
- break;
- case kCreditsStack:
- case kMakingOfStack:
- _vm->_system->quit();
- break;
- case kDemoSlidesStack:
- // TODO: Change to changeStack call?
- _vm->changeToStack(kDemoStack);
- _vm->changeToCard(2001);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_101(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- varUnusedCheck(op, var);
-
- if (argc == 0) {
- // Used on Card 1191 (Maze Runner)
- // Called when Red Warning Button is pushed
-
- debugC(kDebugScript, "Opcode %d: Repeat Buzzer Sound?", op);
-
- // TODO: Fill in logic...
- // Repeat buzzer sound
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- if (argc == 6) {
- // Used by Door Buttons to Brothers' Rooms
- // Cards 2294, 2255
- Common::Rect u0_rect = Common::Rect(argv[0], argv[1], argv[2], argv[3]);
- uint16 u1 = argv[3];
- uint16 u2 = argv[2];
-
- debugC(kDebugScript, "Opcode %d: Unknown", op);
- debugC(kDebugScript, "u0_rect.left: %d", u0_rect.left);
- debugC(kDebugScript, "u0_rect.top: %d", u0_rect.top);
- debugC(kDebugScript, "u0_rect.right: %d", u0_rect.right);
- debugC(kDebugScript, "u0_rect.bottom: %d", u0_rect.bottom);
- debugC(kDebugScript, "u1: %d", u1);
- debugC(kDebugScript, "u2: %d", u2);
-
- // TODO: Fill in logic...
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoPreviewStack:
- case kMystStack:
- debugC(kDebugScript, "Opcode %d: Decrement Variable", op);
- if (argc == 0) {
- debugC(kDebugScript, "\tvar: %d", var);
- uint16 varValue = _vm->_varStore->getVar(var);
- // Logic to prevent decrement to negative
- if (varValue != 0)
- _vm->_varStore->setVar(var, varValue - 1);
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- varUnusedCheck(op, var);
-
- if (argc == 1) {
- debugC(kDebugScript, "Opcode %d: Play Pipe Movie and Sound", op);
-
- uint16 soundId = argv[0];
- debugC(kDebugScript, "\tsoundId: %d", soundId);
-
- _vm->_sound->playSound(soundId);
-
- // TODO: Get Movie Location from Invoking Resource Rect, rather than
- // hardcoded 267, 170 ?
-
- // TODO: Need version of playMovie blocking which allows selection
- // of start and finish points.
- if (!_vm->_varStore->getVar(6)) {
- // Play Pipe Extending i.e. 0 to 1/2 way through file
- _vm->_video->playMovie(_vm->wrapMovieFilename("pipebrid", kChannelwoodStack), 267, 170);
- } else {
- // Play Pipe Retracting i.e. 1/2 way to end of file
- _vm->_video->playMovie(_vm->wrapMovieFilename("pipebrid", kChannelwoodStack), 267, 170);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- case kDniStack:
- // Used in Card 5014 (Atrus)
- // Hotspot Resource Used to hand Page to Atrus...
- varUnusedCheck(op, var);
- // TODO: Fill in Logic.
- break;
- case kDemoStack:
- varUnusedCheck(op, var);
-
- // Used on Card 2000, 2002 and 2003
- // Triggered by Click
- if (argc == 0) {
- // TODO: Fill in Logic.. Fade in?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_102(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- if (argc == 2) {
- debugC(kDebugScript, "Opcode %d: Play Book Room Movie", op);
-
- uint16 startTime = argv[0];
- uint16 endTime = argv[1];
-
- debugC(kDebugScript, "\tstartTime: %d", startTime);
- debugC(kDebugScript, "\tendTime: %d", endTime);
-
- warning("TODO: Opcode %d Movie Time Index %d to %d", op, startTime, endTime);
- // TODO: Need version of playMovie blocking which allows selection
- // of start and finish points.
- _vm->_video->playMovie(_vm->wrapMovieFilename("bkroom", kStoneshipStack), 159, 99);
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoPreviewStack:
- case kMystStack:
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Increment Variable", op);
- debugC(kDebugScript, "\tvar: %d", var);
-
- // AFAIK no logic to put ceiling on increment at least in this opcode
- _vm->_varStore->setVar(var, _vm->_varStore->getVar(var) + 1);
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- varUnusedCheck(op, var);
-
- if (argc == 2 || argc == 3) {
- debugC(kDebugScript, "Opcode %d: Draw Full Screen Image, Optional Delay and Change Card", op);
-
- uint16 imageId = argv[0];
- uint16 cardId = argv[1];
- uint16 delay = 0;
-
- if (argc == 3)
- delay = argv[2]; // TODO: Not sure about purpose of this parameter...
-
- debugC(kDebugScript, "\timageId: %d", imageId);
- debugC(kDebugScript, "\tcardId: %d", cardId);
- debugC(kDebugScript, "\tdelay: %d", delay);
-
- _vm->_gfx->copyImageToScreen(imageId, Common::Rect(0, 0, 544, 333));
- _vm->_system->delayMillis(delay / 100);
- _vm->changeToCard(cardId);
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoStack:
- varUnusedCheck(op, var);
-
- // Used on Card 2002 and 2003
- // Triggered by Click
- if (argc == 0) {
- // TODO: Fill in Logic.. Fade out?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_103(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- if (argc == 1) {
- // Used on Card 2197 (Sirrus' Room Drawers)
- debugC(kDebugScript, "Opcode %d: Unknown", op);
-
- uint16 u0 = argv[0];
-
- debugC(kDebugScript, "\tu0: %d", u0);
- // TODO: Fill in Logic...
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoPreviewStack:
- case kMystStack:
- // Used on Myst Card 4162 (Fireplace Grid)
- if (argc == 1) {
- debugC(kDebugScript, "Opcode %d: Toggle Variable with Bitmask", op);
-
- uint16 bitmask = argv[0];
- uint16 varValue = _vm->_varStore->getVar(var);
-
- debugC(kDebugScript, "\tvar: %d", var);
- debugC(kDebugScript, "\tbitmask: 0x%02X", bitmask);
-
- if (varValue & bitmask)
- _vm->_varStore->setVar(var, varValue & ~bitmask);
- else
- _vm->_varStore->setVar(var, varValue | bitmask);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_104(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- // Used for Card 2004 (Achenar's Room Drawers)
- // Used for Closeup of Torn Note?
- if (argc == 1) {
- debugC(kDebugScript, "Opcode %d: Unknown Function", op);
-
- uint16 u0 = argv[0];
- debugC(kDebugScript, "\tu0: %d", u0);
-
- // TODO: Fill in Function...
- // Does u0 correspond to a resource Id? Enable? Disable?
- // Similar to Opcode 111 (Stoneship Version).. But does this also
- // draw closeup image of note / change to closeup card?
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- varUnusedCheck(op, var);
-
- // Used on Myst Card 4162 and 4166 (Fireplace Puzzle Rotation Movies)
- if (argc == 1) {
- debugC(kDebugScript, "Opcode %d: Play Fireplace Puzzle Rotation Movies", op);
-
- uint16 movieNum = argv[0];
- debugC(kDebugScript, "\tmovieNum: %d", movieNum);
-
- if (movieNum == 0)
- _vm->_video->playMovie(_vm->wrapMovieFilename("fpin", kMystStack), 167, 5);
- if (movieNum == 1)
- _vm->_video->playMovie(_vm->wrapMovieFilename("fpout", kMystStack), 167, 5);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- varUnusedCheck(op, var);
-
- // Used on Mechanical Card 6043 (Weapons Rack with Snake Box)
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Trigger Playing Of Snake Movie", op);
-
- // TODO: Trigger Type 6 To Play Snake Movie.. Resource #3 on card.
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- varUnusedCheck(op, var);
-
- // Used on Channelwood Card 3280
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Do Water Tank Valve Open Animation", op);
- Common::Rect rect = _invokingResource->getRect();
-
- // TODO: Need to load the image ids from Script Resources structure of VIEW
- for (uint16 imageId = 3595; imageId <= 3601; imageId++) {
- _vm->_gfx->copyImageToScreen(imageId, rect);
- _vm->_gfx->updateScreen();
- _vm->_system->delayMillis(50);
- }
-
- // TODO: Is 8 gotten from var7 of calling hotspot, rather than hardcoded?
- _vm->_varStore->setVar(8, 1);
- _vm->_varStore->setVar(19, 1);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_105(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- if (argc == 1) {
- uint16 soundId = argv[0];
-
- debugC(kDebugScript, "Opcode %d: Sound Receiver Water Button", op);
- debugC(kDebugScript, "\tvar: %d", var);
-
- // TODO: Complete Function including Var Change?
- _vm->_sound->playSound(soundId);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- if (argc == 1) {
- varUnusedCheck(op, var);
-
- uint16 soundId = argv[0];
- uint16 boxValue = 0;
- Audio::SoundHandle *handle;
-
- debugC(kDebugScript, "Opcode %d: Ship Puzzle Logic", op);
- debugC(kDebugScript, "\tsoundId: %d", soundId);
-
- // Logic for Myst Ship Box Puzzle Solution
- for (byte i = 0; i < 8; i++)
- boxValue |= _vm->_varStore->getVar(i + 26) ? (1 << i) : 0;
-
- uint16 var10 = _vm->_varStore->getVar(10);
-
- if (boxValue == 0x32 && var10 == 0) {
- handle = _vm->_sound->playSound(soundId);
-
- while (_vm->_mixer->isSoundHandleActive(*handle))
- _vm->_system->delayMillis(10);
-
- _vm->_varStore->setVar(10, 1);
- } else if (boxValue != 0x32 && var10 == 1) {
- handle = _vm->_sound->playSound(soundId);
-
- while (_vm->_mixer->isSoundHandleActive(*handle))
- _vm->_system->delayMillis(10);
-
- _vm->_varStore->setVar(10, 0);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- varUnusedCheck(op, var);
-
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Play Stairs Movement Movie", op);
-
- if (_vm->_varStore->getVar(10)) {
- // TODO: Play Movie from 0 to 1/2 way...
- _vm->_video->playMovie(_vm->wrapMovieFilename("hhstairs", kMechanicalStack), 174, 222);
- } else {
- // TODO: Play Movie from 1/2 way to end...
- _vm->_video->playMovie(_vm->wrapMovieFilename("hhstairs", kMechanicalStack), 174, 222);
- }
- }
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_106(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- if (argc == 1) {
- uint16 soundId = argv[0];
-
- debugC(kDebugScript, "Opcode %d: Sound Receiver Volcanic Crack Button", op);
- debugC(kDebugScript, "\tvar: %d", var);
-
- // TODO: Complete Function including Var Change?
- _vm->_sound->playSound(soundId);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_107(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- if (argc == 1) {
- uint16 soundId = argv[0];
-
- debugC(kDebugScript, "Opcode %d: Sound Receiver Clock Button", op);
- debugC(kDebugScript, "\tvar: %d", var);
-
- // TODO: Complete Function including Var Change?
- _vm->_sound->playSound(soundId);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_108(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- if (argc == 1) {
- uint16 soundId = argv[0];
-
- debugC(kDebugScript, "Opcode %d: Sound Receiver Crystal Rocks Button", op);
- debugC(kDebugScript, "\tvar: %d", var);
-
- // TODO: Complete Function including Var Change?
- _vm->_sound->playSound(soundId);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_109(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- if (argc == 1) {
- uint16 soundId = argv[0];
-
- debugC(kDebugScript, "Opcode %d: Sound Receiver Wind Button", op);
- debugC(kDebugScript, "\tvar: %d", var);
-
- // TODO: Complete Function including Var Change?
- _vm->_sound->playSound(soundId);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- if (argc == 1) {
- int16 signedValue = argv[0];
-
- debugC(kDebugScript, "Opcode %d: Add Signed Value to Var", op);
- debugC(kDebugScript, "\tVar: %d", var);
- debugC(kDebugScript, "\tsignedValue: %d", signedValue);
-
- _vm->_varStore->setVar(var, _vm->_varStore->getVar(var) + signedValue);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_110(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- if (argc == 15) {
- // Used for Selenitic Maze Runner Exit Logic
- uint16 CardIdEntry = argv[0];
- uint16 CardIdExit = argv[1];
- uint16 u0 = argv[2];
- Common::Rect rect1 = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
- uint16 rect1UpdateDirection = argv[7];
- uint16 u1 = argv[8];
- Common::Rect rect2 = Common::Rect(argv[9], argv[10], argv[11], argv[12]);
- uint16 rect2UpdateDirection = argv[13];
- uint16 u2 = argv[14];
-
- debugC(kDebugScript, "Opcode %d: Maze Runner Exit Logic and Door Open Animation", op);
- debugC(kDebugScript, "\tExit Card: %d", CardIdEntry);
- debugC(kDebugScript, "\tEntry Card: %d", CardIdExit);
- debugC(kDebugScript, "\tu0 (Exit Var?): %d", u0);
-
- debugC(kDebugScript, "\trect1.left: %d", rect1.left);
- debugC(kDebugScript, "\trect1.top: %d", rect1.top);
- debugC(kDebugScript, "\trect1.right: %d", rect1.right);
- debugC(kDebugScript, "\trect1.bottom: %d", rect1.bottom);
- debugC(kDebugScript, "\trect1 updateDirection: %d", rect1UpdateDirection);
- debugC(kDebugScript, "\tu1: %d", u1);
-
- debugC(kDebugScript, "\trect2.left: %d", rect2.left);
- debugC(kDebugScript, "\trect2.top: %d", rect2.top);
- debugC(kDebugScript, "\trect2.right: %d", rect2.right);
- debugC(kDebugScript, "\trect2.bottom: %d", rect2.bottom);
- debugC(kDebugScript, "\trect2 updateDirection: %d", rect2UpdateDirection);
- debugC(kDebugScript, "\tu2: %d", u2);
-
- // TODO: Finish Implementing Logic...
- // HACK: Bypass Higher Logic for now...
- _vm->changeToCard(argv[1]);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_111(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- if (argc == 0) {
- // Used on Card 1245 (Sound Receiver)
- // Used by Source Selection Buttons...
-
- debugC(kDebugScript, "Opcode %d: Unknown", op);
- // TODO: Fill in Function...
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- if (argc == 1) {
- // Used for Card 2004 (Achenar's Room Drawers)
- // Used by Drawers Hotspots...
-
- debugC(kDebugScript, "Opcode %d: Unknown Function", op);
-
- uint16 u0 = argv[0];
- debugC(kDebugScript, "\tu0: %d", u0);
-
- // TODO: Fill in Function...
- // Does u0 correspond to a resource Id? Enable? Disable?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_112(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- // Used for Card 2013 (Achenar's Rose-Skull Hologram)
- if (argc == 3) {
- debugC(kDebugScript, "Opcode %d: Rose-Skull Hologram Playback", op);
-
- uint16 varValue = _vm->_varStore->getVar(var);
-
- debugC(kDebugScript, "\tVar: %d = %d", var, varValue);
-
- uint16 startPoint = argv[0];
- uint16 endPoint = argv[1];
- uint16 u0 = argv[2];
-
- debugC(kDebugScript, "\tstartPoint: %d", startPoint);
- debugC(kDebugScript, "\tendPoint: %d", endPoint);
- debugC(kDebugScript, "\tu0: %d", u0);
-
- // TODO: Fill in Function...
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_113(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used on Myst 4143 (Dock near Marker Switch)
- if (argc == 9) {
- uint16 soundId = argv[0];
-
- uint16 u0 = argv[1];
- uint16 u1 = argv[2];
-
- Common::Rect rect = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
-
- uint16 updateDirection = argv[7];
- uint16 u2 = argv[8];
-
- debugC(kDebugScript, "Opcode %d: Vault Open Logic", op);
- debugC(kDebugScript, "\tsoundId: %d", soundId);
- debugC(kDebugScript, "\tu0: %d", u0);
- debugC(kDebugScript, "\tu1: %d", u1);
-
- debugC(kDebugScript, "\trect.left: %d", rect.left);
- debugC(kDebugScript, "\trect.top: %d", rect.top);
- debugC(kDebugScript, "\trect.right: %d", rect.right);
- debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
- debugC(kDebugScript, "\trect updateDirection: %d", updateDirection);
- debugC(kDebugScript, "\tu2: %d", u2);
-
- if ((_vm->_varStore->getVar(2) == 1) &&
- (_vm->_varStore->getVar(3) == 1) &&
- (_vm->_varStore->getVar(4) == 0) &&
- (_vm->_varStore->getVar(5) == 1) &&
- (_vm->_varStore->getVar(6) == 1) &&
- (_vm->_varStore->getVar(7) == 1) &&
- (_vm->_varStore->getVar(8) == 1) &&
- (_vm->_varStore->getVar(9) == 1)) {
- // TODO: Implement correct function...
- // Blit Image in Left to Right Vertical stripes i.e. transistion
- // like door opening
- _vm->_sound->playSound(soundId);
- // TODO: Set 41 to 1 if page already present in hand.
- _vm->_varStore->setVar(41, 2);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_114(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used on Myst 4143 (Dock near Marker Switch)
- if (argc == 9) {
- uint16 soundId = argv[0];
-
- uint16 u0 = argv[1];
- uint16 u1 = argv[2];
-
- Common::Rect rect = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
-
- uint16 updateDirection = argv[7];
- uint16 u2 = argv[8];
-
- debugC(kDebugScript, "Opcode %d: Vault Close Logic", op);
- debugC(kDebugScript, "\tsoundId: %d", soundId);
- debugC(kDebugScript, "\tu0: %d", u0);
- debugC(kDebugScript, "\tu1: %d", u1);
-
- debugC(kDebugScript, "\trect.left: %d", rect.left);
- debugC(kDebugScript, "\trect.top: %d", rect.top);
- debugC(kDebugScript, "\trect.right: %d", rect.right);
- debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
- debugC(kDebugScript, "\tupdateDirection: %d", updateDirection);
- debugC(kDebugScript, "\tu2: %d", u2);
-
- if ((_vm->_varStore->getVar(2) == 1) &&
- (_vm->_varStore->getVar(3) == 1) &&
- (_vm->_varStore->getVar(4) == 1) &&
- (_vm->_varStore->getVar(5) == 1) &&
- (_vm->_varStore->getVar(6) == 1) &&
- (_vm->_varStore->getVar(7) == 1) &&
- (_vm->_varStore->getVar(8) == 1) &&
- (_vm->_varStore->getVar(9) == 1)) {
- // TODO: Implement correct function...
- // Blit Image in Right to Left Vertical stripes i.e. transistion
- // like door closing
- _vm->_sound->playSound(soundId);
- _vm->_varStore->setVar(41, 0);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_115(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- varUnusedCheck(op, var);
-
- if (argc == 11) {
- // Used for Selenitic Card 1147 (Musical Door Lock Button)
- uint16 imageIdClose = argv[0]; // TODO: Sound Id?
- uint16 imageIdOpen = argv[1]; // TODO: Sound Id?
-
- uint16 cardIdOpen = argv[2];
-
- uint16 u0 = argv[3];
- uint16 u1 = argv[4];
-
- Common::Rect rect = Common::Rect(argv[5], argv[6], argv[7], argv[8]);
-
- uint16 updateDirection = argv[9];
- uint16 u2 = argv[10];
-
- debugC(kDebugScript, "Music Door Lock Logic...");
- debugC(kDebugScript, "\timageId (Close): %d", imageIdClose);
- debugC(kDebugScript, "\timageId (Open): %d", imageIdOpen);
- debugC(kDebugScript, "\tcardId (Open): %d", cardIdOpen);
- debugC(kDebugScript, "\tu0: %d", u0);
- debugC(kDebugScript, "\tu1: %d", u1);
-
- debugC(kDebugScript, "\trect.left: %d", rect.left);
- debugC(kDebugScript, "\trect.top: %d", rect.top);
- debugC(kDebugScript, "\trect.right: %d", rect.right);
- debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
- debugC(kDebugScript, "\trect updateDirection: %d", updateDirection);
- debugC(kDebugScript, "\tu2: %d", u2);
-
- // TODO: Fix Logic...
- // HACK: Bypass Door Lock For Now
- _vm->changeToCard(cardIdOpen);
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoPreviewStack:
- case kMystStack:
- if (argc == 3) {
- uint16 cardIdLose = argv[0];
- uint16 cardIdBookCover = argv[1];
- uint16 soundIdAddPage = argv[2];
-
- debugC(kDebugScript, "Opcode %d: Red and Blue Book/Page Interaction", op);
- debugC(kDebugScript, "Var: %d", var);
- debugC(kDebugScript, "Card Id (Lose): %d", cardIdLose);
- debugC(kDebugScript, "Card Id (Book Cover): %d", cardIdBookCover);
- debugC(kDebugScript, "SoundId (Add Page): %d", soundIdAddPage);
-
- // TODO: if holding page for this book, play SoundIdAddPage
- if (false) { // TODO: Should be access to mainCursor...
- _vm->_sound->playSound(soundIdAddPage);
- // TODO: Code for updating variables based on adding page
- }
-
- // TODO: Add Tweak to improve original logic by denying
- // lose until all red / blue pages collected, rather
- // than allowing shortcut based on 1 fireplace page?
-
- // If holding last page for this book i.e. var 24/25
- // Then trigger Trapped in Book Losing Ending
- if ((var == 100 && !_vm->_varStore->getVar(25)) ||
- (var == 101 && !_vm->_varStore->getVar(24))) {
- // TODO: Clear mainCursor back to nominal..
- _vm->changeToCard(cardIdLose);
- } else
- _vm->changeToCard(cardIdBookCover);
-
- // TODO: Is this logic here?
- // i.e. If was holding page, wait then auto open and play book...
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- varUnusedCheck(op, var);
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_116(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- if (argc == 1) {
- // Used on Card 2111 (Compass Rose)
- // Called when Button Clicked.
- uint16 correctButton = argv[0];
-
- if (correctButton) {
- // Correct Button -> Light On Logic
- // TODO: Deal with if main power on?
- _vm->_varStore->setVar(16, 1);
- _vm->_varStore->setVar(30, 0);
- } else {
- // Wrong Button -> Power Failure Logic
- // TODO: Fill in Alarm
- _vm->_varStore->setVar(16, 0);
- _vm->_varStore->setVar(30, 2);
- _vm->_varStore->setVar(33, 0);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- if (argc == 1) {
- // Used on Card 4006 (Clock Tower Time Controls)
- uint16 soundId = argv[0];
-
- debugC(kDebugScript, "Opcode %d: Clock Tower Bridge Puzzle Execute Button", op);
-
- uint16 bridgeState = _vm->_varStore->getVar(12);
- uint16 currentTime = _vm->_varStore->getVar(43);
-
- const uint16 correctTime = 32; // 2:40 i.e. From 12 Noon in 5 min increments
-
- if (!bridgeState && currentTime == correctTime) {
- _vm->_sound->playSound(soundId);
-
- // TODO: Play only 1st half of movie i.e. gears rise up
- _vm->_video->playMovie(_vm->wrapMovieFilename("gears", kMystStack), 305, 36);
-
- bridgeState = 1;
- _vm->_varStore->setVar(12, bridgeState);
- } else if (bridgeState && currentTime != correctTime) {
- _vm->_sound->playSound(soundId);
-
- // TODO: Play only 2nd half of movie i.e. gears sink down
- _vm->_video->playMovie(_vm->wrapMovieFilename("gears", kMystStack), 305, 36);
-
- bridgeState = 0;
- _vm->_varStore->setVar(12, bridgeState);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_117(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- if (argc == 0) {
- // Used on Card 2132 (Chest at Bottom of Lighthouse)
- // Called when Valve Hotspot Clicked.
- // TODO: Fill in Function to play right section of movie
- // based on valve state and water in chest..
- _vm->_video->playMovie(_vm->wrapMovieFilename("ligspig", kStoneshipStack), 97, 267);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- if (argc == 2) {
- // Used by Myst Imager Control Button
- uint16 varValue = _vm->_varStore->getVar(var);
-
- if (varValue)
- _vm->_sound->playSound(argv[1]);
- else
- _vm->_sound->playSound(argv[0]);
-
- _vm->_varStore->setVar(var, !varValue);
- // TODO: Change Var 45 "Dock Forechamber Imager Water Effect Enabled" here?
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- varUnusedCheck(op, var);
-
- if (argc == 1) {
- // Used on Card 3012 (Temple Hologram Monitor)
- uint16 button = argv[0]; // 0 to 3
- _vm->_varStore->setVar(17, button);
- switch (button) {
- case 0:
- _vm->_video->playMovie(_vm->wrapMovieFilename("monalgh", kChannelwoodStack), 227, 71);
- break;
- case 1:
- _vm->_video->playMovie(_vm->wrapMovieFilename("monamth", kChannelwoodStack), 227, 71);
- break;
- case 2:
- _vm->_video->playMovie(_vm->wrapMovieFilename("monasirs", kChannelwoodStack), 227, 71);
- break;
- case 3:
- _vm->_video->playMovie(_vm->wrapMovieFilename("monsmsg", kChannelwoodStack), 227, 71);
- break;
- default:
- warning("Opcode %d Control Variable Out of Range", op);
- break;
- }
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_118(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- if (argc == 0) {
- // Used on Card 2126 (Lighthouse Looking Along Plank)
- // Called when Exit Resource is clicked
-
- // TODO: Implement Function...
- // If holding Key to Lamp Room Trapdoor, drop to bottom of
- // Lighthouse...
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- varUnusedCheck(op, var);
-
- if (argc == 5) {
- // Used by Card 4709 (Myst Imager Control Panel Red Button)
-
- debugC(kDebugScript, "Opcode %d: Imager Change Value", op);
-
- uint16 soundIdBeepLo = argv[0];
- uint16 soundIdBeepHi = argv[1];
- uint16 soundIdBwapp = argv[2];
- uint16 soundIdBeepTune = argv[3]; // 5 tones..
- uint16 soundIdPanelSlam = argv[4];
-
- debugC(kDebugScript, "\tsoundIdBeepLo: %d", soundIdBeepLo);
- debugC(kDebugScript, "\tsoundIdBeepHi: %d", soundIdBeepHi);
- debugC(kDebugScript, "\tsoundIdBwapp: %d", soundIdBwapp);
- debugC(kDebugScript, "\tsoundIdBeepTune: %d", soundIdBeepTune);
- debugC(kDebugScript, "\tsoundIdPanelSlam: %d", soundIdPanelSlam);
-
- _vm->_sound->playSound(soundIdBeepLo);
-
- // TODO: Complete Logic...
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- varUnusedCheck(op, var);
-
- if (argc == 0) {
- // Used on Card 3318 (Sirrus' Room Nightstand Drawer)
- // Triggered when clicked on drawer
- // TODO: Implement function...
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_119(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- if (argc == 0) {
- // Used on Card 2143 (Lighthouse Trapdoor)
- // Called when Lock Hotspot Clicked while holding key.
- _vm->_video->playMovie(_vm->wrapMovieFilename("openloc", kStoneshipStack), 187, 72);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- if (argc == 1) {
- // Used on Card 4383 and 4451 (Tower Elevator)
- switch (argv[0]) {
- case 0:
- _vm->_video->playMovie(_vm->wrapMovieFilename("libdown", kMystStack), 216, 78);
- break;
- case 1:
- _vm->_video->playMovie(_vm->wrapMovieFilename("libup", kMystStack), 214, 75);
- break;
- default:
- break;
- }
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- if (argc == 0) {
- // Used on Card 3333 (Temple Hologram)
- // TODO: Not 100% sure about movie position...
- switch (_vm->_varStore->getVar(17)) {
- case 0:
- _vm->_video->playMovie(_vm->wrapMovieFilename("holoalgh", kChannelwoodStack), 126, 74);
- break;
- case 1:
- _vm->_video->playMovie(_vm->wrapMovieFilename("holoamth", kChannelwoodStack), 126, 74);
- break;
- case 2:
- _vm->_video->playMovie(_vm->wrapMovieFilename("holoasir", kChannelwoodStack), 126, 74);
- break;
- case 3:
- _vm->_video->playMovie(_vm->wrapMovieFilename("holosmsg", kChannelwoodStack), 126, 74);
- break;
- default:
- warning("Opcode %d Control Variable Out of Range", op);
- break;
- }
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_120(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- MystResource *_top;
-
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- if (argc == 1) {
- // Used for Cards 2285, 2289, 2247, 2251 (Side Doors in Tunnels Down To Brothers Rooms)
- uint16 movieId = argv[0];
-
- debugC(kDebugScript, "Opcode %d: Play Side Door Movies", op);
- debugC(kDebugScript, "\tmovieId: %d", movieId);
-
- switch (movieId) {
- case 0:
- // Card 2251
- _vm->_video->playMovie(_vm->wrapMovieFilename("tunaup", kStoneshipStack), 149, 161);
- break;
- case 1:
- // Card 2247
- _vm->_video->playMovie(_vm->wrapMovieFilename("tunadown", kStoneshipStack), 218, 150);
- break;
- case 2:
- // Card 2289
- _vm->_video->playMovie(_vm->wrapMovieFilename("tuncup", kStoneshipStack), 259, 161);
- break;
- case 3:
- // Card 2285
- _vm->_video->playMovie(_vm->wrapMovieFilename("tuncdown", kStoneshipStack), 166, 150);
- break;
- default:
- warning("Opcode 120 MovieId Out Of Range");
- break;
- }
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- // Used for Card 4297 (Generator Puzzle Buttons)
- debugC(kDebugScript, "Opcode %d: Toggle Var8 of Invoking Resource", op);
- _top = _invokingResource;
-
- while(_top->_parent != NULL)
- _top = _top->_parent;
-
- if (argc == 0) {
- uint16 var8 = _top->getType8Var();
- if (var8 != 0xFFFF)
- _vm->_varStore->setVar(var8, !_vm->_varStore->getVar(var8));
- else
- warning("Opcode 120: No invoking Resource Var 8 found");
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_121(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used on Card 4100 (Cabin Safe Buttons)
- // Correct Solution (724) -> Var 67=2, 68=7, 69=5
- // Jump to Card 4103 when solution correct and handle pulled...
- if (argc == 0) {
- uint16 varValue = _vm->_varStore->getVar(var);
- if (varValue == 0)
- varValue = 9;
- else
- varValue--;
- _vm->_varStore->setVar(var, varValue);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- varUnusedCheck(op, var);
-
- if (argc == 2) {
- uint16 startTime = argv[0];
- uint16 endTime = argv[1];
-
- warning("TODO: Opcode %d Movie Time Index %d to %d\n", op, startTime, endTime);
- // TODO: Need version of playMovie blocking which allows selection
- // of start and finish points.
- _vm->_video->playMovie(_vm->wrapMovieFilename("ewindow", kMechanicalStack), 253, 0);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- varUnusedCheck(op, var);
-
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_122(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kChannelwoodStack:
- // Used on Channelwood Card 3280
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Do Water Tank Valve Close Animation", op);
- Common::Rect rect = _invokingResource->getRect();
-
- // TODO: Need to load the image ids from Script Resources structure of VIEW
- for (uint16 imageId = 3601; imageId >= 3595; imageId--) {
- _vm->_gfx->copyImageToScreen(imageId, rect);
- _vm->_gfx->updateScreen();
- _vm->_system->delayMillis(50);
- }
-
- // TODO: Is 8 gotten from var7 of calling hotspot, rather than hard-coded?
- _vm->_varStore->setVar(8, 0);
- _vm->_varStore->setVar(19, 0);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- if (argc == 0) {
- // Used on Card 6120 (Elevator)
- // Called when Exit Midde Button Pressed
-
- // TODO: hcelev? Movie of Elevator?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_123(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMechanicalStack:
- if (argc == 2) {
- // Used on Card 6154
- uint16 start_time = argv[0];
- uint16 end_time = argv[1];
-
- warning("TODO: Opcode %d Movie Time Index %d to %d\n", op, start_time, end_time);
- // TODO: Need version of playMovie blocking which allows selection
- // of start and finish points.
- // TODO: Not 100% sure about movie position
- _vm->_video->playMovie(_vm->wrapMovieFilename("hcelev", kMechanicalStack), 205, 40);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_124(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMechanicalStack:
- if (argc == 0) {
- // Used by Card 6156 (Fortress Rotation Controls)
- // Called when Red Exit Button Pressed to raise Elevator
-
- // TODO: Fill in Code...
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_125(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- if (argc == 1) {
- // Used on Card 2197 (Sirrus' Room Drawers)
- debugC(kDebugScript, "Opcode %d: Unknown uses Var %d", op, var);
-
- uint16 u0 = argv[0];
-
- debugC(kDebugScript, "\tu0: %d", u0);
- // TODO: Fill in Logic...
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- if (argc == 0) {
- // Used on Card 6267 (Code Lock)
- // Called by Red Execute Button...
- debugC(kDebugScript, "Opcode %d: Code Lock Execute...", op);
-
- // TODO: Fill in Logic For Code Lock...
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_126(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMechanicalStack:
- if (argc == 0) {
- // Used by Card 6120 (Fortress Elevator)
- // Called when Red Exit Button Pressed to raise Elevator and
- // exit is clicked...
-
- // TODO: Fill in Code...
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_127(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kChannelwoodStack:
- if (argc == 2) {
- // Used by Card 3262 (Elevator)
- debugC(kDebugScript, "Opcode %d: Unknown...", op);
-
- uint16 u0 = argv[0];
- uint16 u1 = argv[1];
-
- debugC(kDebugScript, "\tu0: %d", u0);
- debugC(kDebugScript, "\tu1: %d", u1);
-
- // TODO: Fill in Code...
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- if (argc == 0) {
- // Used for Mech Card 6226 (3 Crystals)
- _vm->_varStore->setVar(20, 1);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_128(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMechanicalStack:
- if (argc == 0) {
- // Used for Mech Card 6226 (3 Crystals)
- _vm->_varStore->setVar(20, 0);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_129(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kChannelwoodStack:
- if (argc == 1) {
- // Used by Card 3262 (Elevator)
- debugC(kDebugScript, "Opcode %d: Unknown...", op);
-
- uint16 cardId = argv[0];
-
- debugC(kDebugScript, "\tcardId: %d", cardId);
-
- // TODO: Fill in Code...
- _vm->changeToCard(cardId);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- if (argc == 0) {
- // Used for Mech Card 6226 (3 Crystals)
- _vm->_varStore->setVar(21, 1);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_130(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMechanicalStack:
- if (argc == 0) {
- // Used for Mech Card 6226 (3 Crystals)
- _vm->_varStore->setVar(21, 0);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_131(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMechanicalStack:
- if (argc == 0) {
- // Used for Mech Card 6226 (3 Crystals)
- _vm->_varStore->setVar(22, 1);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_132(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMechanicalStack:
- if (argc == 0) {
- // Used for Mech Card 6226 (3 Crystals)
- _vm->_varStore->setVar(22, 0);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_133(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used on Card 4500 (Stellar Observatory Controls)
- if (argc == 1) {
- // Called by Telescope Slew Button
- uint16 soundId = argv[0];
-
- // TODO: Function to change variables controlling telescope view
- // etc.
-
- // TODO: Sound seems to be stuck looping?
- _vm->_sound->playSound(soundId);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_147(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- if (argc == 0) {
- // TODO: Extra Logic to do this in INIT process watching cursor and var 98?
- _vm->_varStore->setVar(98, 0);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_164(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used on Card 4530 (Rocketship Music Slider Controls)
- // TODO: Finish Implementation...
- // Var 105 is used to set between 0 to 2 = No Function, Movie Playback and Linkable...
- // This is called when Var 105 = 1 i.e. this plays back Movie...
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_169(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used on Card 4099 (In Cabin, Looking Out Door)
- // TODO: Finish Implementation...
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_181(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- if (argc == 0) {
- // TODO: Logic for lighting the match
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_182(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- if (argc == 0) {
- // TODO: Logic for lighting the match
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_183(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- if (argc == 0) {
- // Used for Myst Cards 4257, 4260, 4263, 4266, 4269, 4272, 4275 and 4278 (Ship Puzzle Boxes)
- _vm->_varStore->setVar(105, 1);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_184(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- if (argc == 0) {
- // Used for Myst Cards 4257, 4260, 4263, 4266, 4269, 4272, 4275 and 4278 (Ship Puzzle Boxes)
- _vm->_varStore->setVar(105, 0);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_185(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- if (argc == 0) {
- // Used for Myst Card 4098 (Cabin Boiler Pilot Light)
- // TODO: Extra Logic to do this in INIT process watching cursor and var 98?
- _vm->_varStore->setVar(98, 1);
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_196(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kDemoPreviewStack:
- // Used on Card ...
- // TODO: Finish Implementation...
- // Voice Over and Card Advance?
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_197(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kDemoPreviewStack:
- // Used on Card ...
- // TODO: Finish Implementation...
- // Voice Over and Card Advance?
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-// TODO: Merge with Opcode 42?
-void MystScriptParser::opcode_198(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kDemoPreviewStack:
- if (argc == 0) {
- // Nuh-uh! No leaving the library in the demo!
- GUI::MessageDialog dialog("You can't leave the library in the demo.");
- dialog.runModal();
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- // Used on Card 4143 (Dock near Marker Switch, facing Cogs)
- if (argc == 9) {
- uint16 soundId = argv[0];
- uint16 u0 = argv[1];
- uint16 u1 = argv[2];
- Common::Rect rect = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
- uint16 updateDirection = argv[7];
- uint16 u2 = argv[8];
-
- debugC(kDebugScript, "Opcode %d: Close Dock Marker Switch Vault", op);
- debugC(kDebugScript, "\tsoundId: %d", soundId);
- debugC(kDebugScript, "\tu0: %d", u0);
- debugC(kDebugScript, "\tu1: %d", u1);
-
- debugC(kDebugScript, "\trect.left: %d", rect.left);
- debugC(kDebugScript, "\trect.top: %d", rect.top);
- debugC(kDebugScript, "\trect.right: %d", rect.right);
- debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
- debugC(kDebugScript, "\tupdateDirection: %d", updateDirection);
- debugC(kDebugScript, "\tu2: %d", u2);
-
- Audio::SoundHandle *handle;
- if (_vm->_varStore->getVar(41) != 0) {
- handle = _vm->_sound->playSound(soundId);
-
- while (_vm->_mixer->isSoundHandleActive(*handle))
- _vm->_system->delayMillis(10);
- // TODO: Do Image Blit
- }
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_199(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Myst Imager Control Execute Button Logic", op);
-
- uint16 numericSelection = (_vm->_varStore->getVar(36) + 1) % 10;
- numericSelection += ((_vm->_varStore->getVar(35) + 1) % 10) * 10;
-
- debugC(kDebugScript, "\tImager Selection: %d", numericSelection);
-
- switch (numericSelection) {
- case 40:
- _vm->_varStore->setVar(51, 1); // Mountain
- break;
- case 67:
- _vm->_varStore->setVar(51, 2); // Water
- break;
- case 47:
- _vm->_varStore->setVar(51, 4); // Marker Switch
- break;
- case 8:
- _vm->_varStore->setVar(51, 3); // Atrus
- break;
- default:
- _vm->_varStore->setVar(51, 0); // Blank
- break;
- }
-
- // TODO: Fill in Logic
- //{ 34, 2, "Dock Forechamber Imager State" }, // 0 to 2 = Off, Mountain, Water
- //{ 310, 0, "Dock Forechamber Imager Control Temp Value?" }
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoPreviewStack:
- // Used on Card ...
- // TODO: Finish Implementation...
- // Voice Over and Card Advance?
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-// Selenitic Stack Movies For Maze Runner (Card 1191)
-static const char* kHCMovPathSelenitic[36] = {
- "backa1",
- "backe1",
- "backf0",
- "backf1",
- "backl0",
- "backl1",
- "backo0",
- "backo1",
- "backp0",
- "backp1",
- "backr0",
- "backr1",
- "backs0",
- "backs1",
- "forwa1",
- "forwe0",
- "forwf0",
- "forwf1",
- "forwl0",
- "forwl1",
- "forwo0",
- "forwo1",
- "forwp0",
- "forwp1",
- "forwr0",
- "forwr1",
- "forws0",
- "forws1",
- "left00",
- "left01",
- "left10",
- "left11",
- "right00",
- "right01",
- "right10",
- "right11"
-};
-
-static struct {
- bool enabled;
-
- uint16 var;
- uint16 imageCount;
- uint16 imageBaseId;
- uint16 soundDecrement;
- uint16 soundIncrement;
-
- // Myst Demo slideshow variables
- uint16 cardId;
- uint32 lastCardTime;
-} g_opcode200Parameters;
-
-void MystScriptParser::opcode_200_run() {
- static uint16 lastImageIndex = 0;
- uint16 curImageIndex;
- Common::Rect rect;
-
- if (g_opcode200Parameters.enabled) {
- switch (_vm->getCurStack()) {
- case kIntroStack: // Used on Card 1
- case kDemoStack: // Used on Card 2000
- // TODO : Implement function here to play though intro movies and change card?
- break;
- case kSeleniticStack:
- // Used on Card 1191 (Maze Runner)
-
- // TODO: Implementation Movie Function..
- if (false) {
- _vm->_video->playMovie(_vm->wrapMovieFilename(kHCMovPathSelenitic[0], kSeleniticStack), 201, 26);
- }
- break;
- case kStoneshipStack:
- // Used for Card 2013 (Achenar's Rose-Skull Hologram)
-
- // TODO: Implement Function...
- break;
- case kDemoPreviewStack:
- case kMystStack:
- curImageIndex = _vm->_varStore->getVar(g_opcode200Parameters.var);
-
- if (curImageIndex >= g_opcode200Parameters.imageCount) {
- curImageIndex = g_opcode200Parameters.imageCount - 1;
- _vm->_varStore->setVar(g_opcode200Parameters.var, curImageIndex);
- }
-
- // HACK: Think these images are centered on screen (when smaller than full screen),
- // and since no _gfx call for image size, hack this to deal with this case for now...
- if (_vm->getCurCard() == 4059)
- rect = Common::Rect(157, 115, 544, 333);
- else
- rect = Common::Rect(0, 0, 544, 333);
-
- if (curImageIndex != lastImageIndex) {
- _vm->_gfx->copyImageToScreen(g_opcode200Parameters.imageBaseId + curImageIndex, rect);
- _vm->_gfx->updateScreen();
- }
-
- // TODO: Comparison with original engine shows that this simple solution
- // may not be the correct one and the choice of which sound
- // may be more complicated or even random..
- if (curImageIndex < lastImageIndex && g_opcode200Parameters.soundDecrement != 0)
- _vm->_sound->playSound(g_opcode200Parameters.soundDecrement);
- else if (curImageIndex > lastImageIndex && g_opcode200Parameters.soundIncrement != 0)
- _vm->_sound->playSound(g_opcode200Parameters.soundIncrement);
-
- lastImageIndex = curImageIndex;
- break;
- case kCreditsStack:
- curImageIndex = _vm->_varStore->getVar(g_opcode200Parameters.var);
-
- if (_vm->_system->getMillis() - g_opcode200Parameters.lastCardTime >= 7 * 1000) {
- // After the 6th image has shown, it's time to quit
- if (curImageIndex == 7)
- _vm->_system->quit();
-
- // Note: The modulus by 6 is because the 6th image is the one at imageBaseId
- _vm->_gfx->copyImageToScreen(g_opcode200Parameters.imageBaseId + curImageIndex % 6, Common::Rect(0, 0, 544, 333));
- _vm->_gfx->updateScreen();
-
- _vm->_varStore->setVar(g_opcode200Parameters.var, curImageIndex + 1);
- g_opcode200Parameters.lastCardTime = _vm->_system->getMillis();
- }
- break;
- case kMechanicalStack:
- // Used on Card 6238 (Sirrus' Throne) and Card 6027 (Achenar's Throne)
- // g_opcode200Parameters.var == 0 for Achenar
- // g_opcode200Parameters.var == 1 for Sirrus
-
- // TODO: Fill in Function...
- // Variable indicates that this is related to Secret Panel State
- break;
- case kDemoSlidesStack:
- // Used on Cards...
- if (_vm->_system->getMillis() - g_opcode200Parameters.lastCardTime >= 2 * 1000)
- _vm->changeToCard(g_opcode200Parameters.cardId);
- break;
- }
- }
-}
-
-void MystScriptParser::opcode_200_disable() {
- g_opcode200Parameters.enabled = false;
- g_opcode200Parameters.var = 0;
- g_opcode200Parameters.imageCount = 0;
- g_opcode200Parameters.imageBaseId = 0;
- g_opcode200Parameters.soundDecrement = 0;
- g_opcode200Parameters.soundIncrement = 0;
-}
-
-void MystScriptParser::opcode_200(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kIntroStack: // Used on Card 1
- case kDemoStack: // Used on Card 2000
- varUnusedCheck(op, var);
-
- // TODO : Clicking during the intro movies does not stop them and change to Card 5.
- // This is due to the movies playing blocking, but making them non-blocking causes
- // the card change here to prevent them playing. Need to move the following to the
- // opcode_200_run process and wait for all movies to finish playing before the card
- // change is performed.
-
- // Play Intro Movies..
- if ((_vm->getFeatures() & GF_ME) && _vm->getPlatform() == Common::kPlatformMacintosh) {
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("mattel", kIntroStack));
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("presto", kIntroStack));
- } else
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("broder", kIntroStack));
-
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("cyanlogo", kIntroStack));
-
- if (!(_vm->getFeatures() & GF_DEMO)) { // The demo doesn't have the intro video
- if ((_vm->getFeatures() & GF_ME) && _vm->getPlatform() == Common::kPlatformMacintosh)
- // intro.mov uses Sorenson, introc uses Cinepak. Otherwise, they're the same.
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("introc", kIntroStack));
- else
- _vm->_video->playMovieCentered(_vm->wrapMovieFilename("intro", kIntroStack));
- }
-
- _vm->changeToCard(_vm->getCurCard()+1);
- break;
- case kSeleniticStack:
- varUnusedCheck(op, var);
-
- // Used for Card 1191 (Maze Runner)
- if (argc == 0) {
- g_opcode200Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- // Used for Card 2013 (Achenar's Rose-Skull Hologram)
- if (argc == 0) {
- g_opcode200Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoPreviewStack:
- case kMystStack:
- if (argc == 4) {
- g_opcode200Parameters.var = var;
- g_opcode200Parameters.imageCount = argv[0];
- g_opcode200Parameters.imageBaseId = argv[1];
- g_opcode200Parameters.soundDecrement = argv[2];
- g_opcode200Parameters.soundIncrement = argv[3];
- g_opcode200Parameters.enabled = true;
-
- _vm->_varStore->setVar(var, 0);
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- // Used on Card 6238 (Sirrus' Throne) and Card 6027 (Achenar's Throne)
- if (argc == 0) {
- g_opcode200Parameters.var = var;
- g_opcode200Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kDniStack:
- varUnusedCheck(op, var);
- // Used on Card 5014
-
- // TODO: Logic for Atrus Reactions and Movies
- if (false) {
- // Var 0 used for Atrus Gone (from across room) 0 = Present, 1 = Not Present
- // Var 1 used for Myst Book Status 0 = Not Usuable
- // 1 = Openable, but not linkable (Atrus Gone?)
- // 2 = Linkable
- // Var 2 used for Music Type 0 to 2..
- // Var 106 used for Atrus Static Image State 0 = Initial State
- // 1 = Holding Out Hand for Page
- // 2 = Gone, Book Open
- // 3 = Back #1
- // 4 = Back #2
- _vm->_video->playMovie(_vm->wrapMovieFilename("atr1nopg", kDniStack), 215, 77);
- _vm->_video->playMovie(_vm->wrapMovieFilename("atr1page", kDniStack), 215, 77);
- _vm->_video->playMovie(_vm->wrapMovieFilename("atrus2", kDniStack), 215, 77);
- _vm->_video->playMovie(_vm->wrapMovieFilename("atrwrite", kDniStack), 215, 77);
- }
- break;
- case kCreditsStack:
- if (argc == 0) {
- g_opcode200Parameters.var = var;
- // TODO: Pass ImageCount, rather than hardcoded in run process?
- g_opcode200Parameters.imageBaseId = _vm->getCurCard();
- g_opcode200Parameters.lastCardTime = _vm->_system->getMillis();
- g_opcode200Parameters.enabled = true;
-
- _vm->_varStore->setVar(var, 1);
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoSlidesStack:
- // Used on Cards...
- if (argc == 1) {
- g_opcode200Parameters.cardId = argv[0];
- g_opcode200Parameters.lastCardTime = _vm->_system->getMillis();
- g_opcode200Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- uint16 u0;
- uint16 u1;
- uint16 u2;
-
- uint16 lastVar105;
- uint16 soundId;
-
- bool enabled;
-} g_opcode201Parameters;
-
-void MystScriptParser::opcode_201_run() {
- uint16 var105;
-
- if (g_opcode201Parameters.enabled) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1191 (Maze Runner)
-
- // TODO: Fill in Function...
- break;
- case kStoneshipStack:
- // Used for Card 2013 (Achenar's Rose-Skull Hologram)
-
- // TODO: Fill in Function...
- break;
- case kMystStack:
- var105 = _vm->_varStore->getVar(105);
- if (var105 && !g_opcode201Parameters.lastVar105)
- _vm->_sound->playSound(g_opcode201Parameters.soundId);
- g_opcode201Parameters.lastVar105 = var105;
- break;
- case kMechanicalStack:
- // Used for Card 6159 (Facing Corridor to Fortress Elevator)
-
- // g_opcode201Parameters.u0
- // g_opcode201Parameters.u1
- // g_opcode201Parameters.u2
-
- // TODO: Fill in Function...
- break;
- case kDemoStack:
- // Used on Card 2001, 2002 and 2003
-
- // TODO: Fill in Function...
- break;
- }
- }
-}
-
-void MystScriptParser::opcode_201_disable() {
- g_opcode201Parameters.enabled = false;
- g_opcode201Parameters.soundId = 0;
- g_opcode201Parameters.lastVar105 = 0;
-}
-
-void MystScriptParser::opcode_201(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kIntroStack:
- _vm->_system->delayMillis(4 * 1000);
- _vm->_gfx->copyImageToScreen(4, Common::Rect(0, 0, 544, 333));
- _vm->_gfx->updateScreen();
- // TODO : Wait until video ends, then change to card 5
- break;
- case kSeleniticStack:
- // Used for Card 1191 (Maze Runner)
-
- if (argc == 0) {
- g_opcode201Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- // Used for Card 2013 (Achenar's Rose-Skull Hologram)
- if (argc == 0) {
- g_opcode201Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- // Used for Cards 4257, 4260, 4263, 4266, 4269, 4272, 4275 and 4278 (Ship Puzzle Boxes)
- if (argc == 1) {
- g_opcode201Parameters.soundId = argv[0];
- g_opcode201Parameters.lastVar105 = 0;
- g_opcode201Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- // Used for Card 6159 (Facing Corridor to Fortress Elevator)
- if (argc == 3) {
- g_opcode201Parameters.u0 = argv[0];
- g_opcode201Parameters.u1 = argv[1];
- g_opcode201Parameters.u2 = argv[2];
-
- g_opcode201Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- // Used for Card 3247 (Elevator #1 Movement), 3161 (Bridge Movement), 3259 (Elevator #3 Movement) and 3252 (Elevator #2 Movement)
- if (argc == 0) {
- // TODO: Fill in Function. Video Playback? Rect from invoking hotspot resource...
- if (false) {
- // Card 3161
- _vm->_video->playMovie(_vm->wrapMovieFilename("bridge", kChannelwoodStack), 292, 204);
-
- // Card 3247
- _vm->_video->playMovie(_vm->wrapMovieFilename("welev1dn", kChannelwoodStack), 214, 107);
- _vm->_video->playMovie(_vm->wrapMovieFilename("welev1up", kChannelwoodStack), 214, 107);
-
- // Card 3252
- _vm->_video->playMovie(_vm->wrapMovieFilename("welev2dn", kChannelwoodStack), 215, 118);
- _vm->_video->playMovie(_vm->wrapMovieFilename("welev2up", kChannelwoodStack), 215, 118);
-
- // Card 3259
- _vm->_video->playMovie(_vm->wrapMovieFilename("welev3dn", kChannelwoodStack), 213, 99);
- _vm->_video->playMovie(_vm->wrapMovieFilename("welev3up", kChannelwoodStack), 213, 99);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoStack:
- // Used on Card 2001, 2002 and 2003
- if (argc == 0) {
- g_opcode201Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- bool enabled;
- uint16 var;
-} g_opcode202Parameters;
-
-void MystScriptParser::opcode_202_run(void) {
- if (g_opcode202Parameters.enabled) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1191 (Maze Runner)
-
- // TODO: Fill in function...
- break;
- case kDemoPreviewStack:
- case kMystStack:
- // Used for Card 4378 (Library Tower Rotation Map)
- // TODO: Fill in.. Code for Tower Rotation Angle etc..
- // Var 0, 3, 4, 5, 6, 7, 8, 9 used for Type 8 Image Display
- // Type 11 Hotspot for control..
- // Var 304 controls presence of Myst Library Image
- break;
- case kMechanicalStack:
- // Used for Card 6220 (Sirrus' Mechanical Bird)
- // TODO: Fill in Function
- break;
- case kChannelwoodStack:
- // Used for Cards 3328, 3691, 3731, 3809, 3846 etc. (Water Valves)
-
- // Code for Water Flow Logic
- // Var 8 = "Water Tank Valve State"
- // Controls
- // Var 19 = "Water Flowing to First Water Valve"
- // Code for this in Opcode 104 / 122
-
- // Var 19 = "Water Flowing to First Water Valve"
- // and
- // Var 9 = "First Water Valve State"
- // Controls
- // Var 20 = "Water Flowing to Second (L) Water Valve"
- // Var 3 = "Water Flowing (R) to Pump for Upper Walkway to Temple Elevator"
- uint16 var9 = _vm->_varStore->getVar(9);
- if (_vm->_varStore->getVar(19)) {
- _vm->_varStore->setVar(20, !var9);
- _vm->_varStore->setVar(3, var9);
- } else {
- // No water into Valve
- _vm->_varStore->setVar(20, 0);
- _vm->_varStore->setVar(3, 0);
- }
-
- // Var 20 = "Water Flowing to Second (L) Water Valve"
- // and
- // Var 10 = "Second (L) Water Valve State"
- // Controls
- // Var 24 = "Water Flowing to Third (L, L) Water Valve"
- // Var 21 = "Water Flowing to Third (L, R) Water Valve"
- uint16 var10 = _vm->_varStore->getVar(10);
- if (_vm->_varStore->getVar(20)) {
- _vm->_varStore->setVar(24, !var10);
- _vm->_varStore->setVar(21, var10);
- } else {
- // No water into Valve
- _vm->_varStore->setVar(24, 0);
- _vm->_varStore->setVar(21, 0);
- }
-
- // Var 21 = "Water Flowing to Third (L, R) Water Valve"
- // and
- // Var 11 = "Third (L, R) Water Valve State"
- // Controls
- // Var 23 = "Water Flowing to Fourth (L, R, L) Water Valve"
- // Var 22 = "Water Flowing to Fourth (L, R, R) Water Valve"
- uint16 var11 = _vm->_varStore->getVar(11);
- if (_vm->_varStore->getVar(21)) {
- _vm->_varStore->setVar(23, !var11);
- _vm->_varStore->setVar(22, var11);
- } else {
- // No water into Valve
- _vm->_varStore->setVar(23, 0);
- _vm->_varStore->setVar(22, 0);
- }
-
- // Var 24 = "Water Flowing to Third (L, L) Water Valve"
- // and
- // Var 14 = "Third (L, L) Water Valve State"
- // Controls
- // Var 29 = "Water Flowing to Pipe In Water (L, L, L)"
- // Var 28 = "Water Flowing to Join and Pump Bridge (L, L, R)"
- uint16 var14 = _vm->_varStore->getVar(14);
- if (_vm->_varStore->getVar(24)) {
- _vm->_varStore->setVar(29, !var14);
- _vm->_varStore->setVar(28, var14);
- } else {
- // No water into Valve
- _vm->_varStore->setVar(29, 0);
- _vm->_varStore->setVar(28, 0);
- }
-
- // Var 22 = "Water Flowing to Fourth (L, R, R) Water Valve"
- // and
- // Var 12 = "Fourth (L, R, R) Water Valve State"
- // Controls
- // Var 25 = "Water Flowing to Pipe Bridge (L, R, R, L)"
- // Var 15 = "Water Flowing (L, R, R, R) to Pump for Lower Walkway to Upper Walkway Elevator"
- uint16 var12 = _vm->_varStore->getVar(12);
- if (_vm->_varStore->getVar(22)) {
- _vm->_varStore->setVar(25, !var12);
- _vm->_varStore->setVar(15, var12);
- } else {
- // No water into Valve
- _vm->_varStore->setVar(25, 0);
- _vm->_varStore->setVar(15, 0);
- }
-
- // Var 23 = "Water Flowing to Fourth (L, R, L) Water Valve"
- // and
- // Var 13 = "Fourth (L, R, L) Water Valve State"
- // Controls
- // Var 27 = "Water Flowing to Join and Pump Bridge (L, R, L, L)"
- // Var 26 = "Water Flowing to Pipe At Entry Point (L, R, L, R)"
- uint16 var13 = _vm->_varStore->getVar(13);
- if (_vm->_varStore->getVar(23)) {
- _vm->_varStore->setVar(27, !var13);
- _vm->_varStore->setVar(26, var13);
- } else {
- // No water into Valve
- _vm->_varStore->setVar(27, 0);
- _vm->_varStore->setVar(26, 0);
- }
-
- // TODO: Not sure that original had OR logic for water flow at Join...
- // Var 27 = "Water Flowing to Join and Pump Bridge (L, R, L, L)"
- // Or
- // Var 28 = "Water Flowing to Join and Pump Bridge (L, L, R)"
- // Controls
- // Var 31 = "Water Flowing to Join (L, L, R)" // 0 to 2 = Stop Sound, Background, Background with Water Flow
- // Var 7 = "Bridge Pump Running"
- // TODO: Not sure about control of Var 31 which is tristate...
- if (_vm->_varStore->getVar(27) || _vm->_varStore->getVar(28)) {
- _vm->_varStore->setVar(31, 2); // Background with Water Flow
- _vm->_varStore->setVar(7, 1);
- } else {
- // No water into Valve
- _vm->_varStore->setVar(31, 1); // Background
- _vm->_varStore->setVar(7, 0);
- }
-
- // TODO: Code for this shouldn't be here...
- // Move to Opcodes called by Pipe Extension...
- // Var 25 = "Water Flowing to Pipe Bridge (L, R, R, L)"
- // and
- // Var 6 = "Pipe Bridge Extended"
- // Controls
- // Var 32 = "Water Flowing (L, R, R, L, Pipe) State" }, // 0 to 2 = Stop Sound, Background, Background with Water Flow
- // Var 4 = "Water Flowing (L, R, R, L, Pipe Extended) to Pump for Book Room Elevator"
- // TODO: Not sure about control of Var 32 which is tristate...
- if (_vm->_varStore->getVar(25) && _vm->_varStore->getVar(6)) {
- _vm->_varStore->setVar(32, 2); // Background with Water Flow
- _vm->_varStore->setVar(4, 1);
- } else {
- // No water into Valve
- _vm->_varStore->setVar(32, 1); // Background
- _vm->_varStore->setVar(4, 0);
- }
- break;
- }
- }
-}
-
-void MystScriptParser::opcode_202_disable(void) {
- g_opcode202Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_202(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- varUnusedCheck(op, var);
-
- // Used for Card 1191 (Maze Runner)
- if (argc == 0) {
- g_opcode202Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- // Used for Card 2160 (Lighthouse Battery Pack Closeup)
- // TODO: Implement Code...
- // Not Sure of Purpose - Update of Light / Discharge?
- unknown(op, var, argc, argv);
- break;
- case kDemoPreviewStack:
- case kMystStack:
- varUnusedCheck(op, var);
-
- // Used for Card 4378 (Library Tower Rotation Map)
- if (argc == 1) {
- // TODO: Figure Out argv[0] purpose.. number of image resources?
- g_opcode202Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- // Used for Card 6220 (Sirrus' Mechanical Bird)
- if (argc == 0) {
- g_opcode202Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- // Used for Cards 3328, 3691, 3731, 3809, 3846 etc. (Water Valves)
- if (argc == 0) {
- g_opcode202Parameters.var = var;
- g_opcode202Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- varUnusedCheck(op, var);
-
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- bool enabled;
-} g_opcode203Parameters;
-
-void MystScriptParser::opcode_203_run(void) {
- if (g_opcode203Parameters.enabled) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1245 (Sound Receiver)
- // TODO: Fill in Logic to Change Viewer Display etc.?
- break;
- case kMystStack:
- // Used for Card 4138 (Dock Forechamber Door)
- // TODO: Fill in Logic. Slide for Dock Forechamber Door?
- // Original has Left to Right Open Slide and Upon leaving card,
- // Right to left Slide before card change.
- //debugC(kDebugScript, "Opcode %d: Clear Dock Forechamber Door Variable", op);
- //_vm->_varStore->setVar(105, 0);
- break;
- case kMechanicalStack:
- // Used for Card 6043 (Weapons Rack with Snake Box)
- // TODO: Fill in Logic for Snake Box...
- break;
- case kChannelwoodStack:
- // Used for Card 3310 (Sirrus' Room Right Bed Drawer),
- // Card 3307 (Sirrus' Room Left Bed Drawer)
- // and Card 3318 (Sirrus' Room Nightstand Drawer)
- // TODO: Fill in Logic...
- break;
- }
- }
-}
-
-void MystScriptParser::opcode_203_disable(void) {
- g_opcode203Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_203(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- uint16 imageIdDarkDoorOpen = 0;
- uint16 imageIdDarkDoorClosed = 0;
-
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1245 (Sound Receiver)
- if (argc == 0) {
- g_opcode203Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- // Used for all/most Cards in Tunnels Down To Brothers Rooms
-
- // TODO: Duplicate or similar function to Opcode 203?
- if (argc == 2 || argc == 4) {
- debugC(kDebugScript, "Opcode %d: %d Arguments", op, argc);
-
- uint16 u0 = argv[0];
- if (argc == 4) {
- imageIdDarkDoorOpen = argv[1];
- imageIdDarkDoorClosed = argv[2];
- }
- uint16 soundIdAlarm = argv[argc - 1];
-
- debugC(kDebugScript, "\tu0: %d", u0);
- if (argc == 4) {
- debugC(kDebugScript, "\timageIdDarkDoorOpen: %d", imageIdDarkDoorOpen);
- debugC(kDebugScript, "\tsoundIdDarkDoorClosed: %d", imageIdDarkDoorClosed);
- }
- debugC(kDebugScript, "\tsoundIdAlarm: %d", soundIdAlarm);
-
- // TODO: Fill in Correct Function for Lights
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- // Used for Card 4138 (Dock Forechamber Door)
- if (argc == 0) {
- g_opcode203Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- // Used for Card 6043 (Weapons Rack with Snake Box)
- if (argc == 0) {
- g_opcode203Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kChannelwoodStack:
- // Used for Card 3310 (Sirrus' Room Right Bed Drawer),
- // Card 3307 (Sirrus' Room Left Bed Drawer)
- // and Card 3318 (Sirrus' Room Nightstand Drawer)
- if (argc == 0) {
- g_opcode203Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- bool enabled;
- uint16 soundId;
-} g_opcode204Parameters;
-
-void MystScriptParser::opcode_204_run(void) {
- if (g_opcode204Parameters.enabled) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1147 (Sound Code Lock)
- // TODO: Fill in code for Sound Lock...
- break;
- case kMystStack:
- // Used for Card 4134 and 4149 (Dock)
- // TODO: Not sure of function. Not Gulls (at least directly). Fill in Logic.
- break;
- case kMechanicalStack:
- // TODO: Fill in Logic.
- // Var 12 holds Large Cog Position in range 0 to 5
- // - For animation
- // Var 11 holds C position in range 0 to 9
- // - 4 for Correct Answer
- // C Movement Sound
- //_vm->_sound->playSound(g_opcode204Parameters.soundId);
- break;
- }
- }
-}
-
-void MystScriptParser::opcode_204_disable(void) {
- g_opcode204Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_204(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1147 (Sound Code Lock)
- if (argc == 0) {
- g_opcode204Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- // Used for Card 2160 (Lighthouse Battery Pack Closeup)
- if (argc == 0) {
- // TODO: Implement Code For Battery Meter Level
- // Overwrite _vm->_resources[1]->_subImages[0].rect.bottom 1 to 80
- // Add accessor functions for this...
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- // Used for Card 4134 and 4149 (Dock)
- break;
- case kMechanicalStack:
- // Used for Card 6180 (Lower Elevator Puzzle)
- if (argc == 1) {
- g_opcode204Parameters.soundId = argv[0];
- g_opcode204Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- uint16 soundIdPosition[4];
-
- bool enabled;
-} g_opcode205Parameters;
-
-void MystScriptParser::opcode_205_run(void) {
- if (g_opcode205Parameters.enabled) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1191 (Maze Runner)
- // TODO: Fill in function...
- break;
- case kMystStack:
- // Used for Card 4532 (Rocketship Piano)
- // TODO: Fill in function...
- break;
- case kMechanicalStack:
- // Used for Card 6156 (Fortress Rotation Controls)
- // TODO: Fill in function...
- // g_opcode205Parameters.soundIdPosition[4]
- break;
- }
- }
-}
-
-void MystScriptParser::opcode_205_disable(void) {
- g_opcode205Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_205(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- uint16 imageIdDoorOpen = 0;
- uint16 imageIdDoorClosed = 0;
-
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1191 (Maze Runner)
-
- if (argc == 0) {
- g_opcode205Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- // Used on Cards 2322, 2285 (Tunnels Down To Brothers Rooms)
-
- // TODO: Duplicate or similar function to Opcode 203?
- if (argc == 2 || argc == 4) {
- debugC(kDebugScript, "Opcode %d: %d Arguments", op, argc);
-
- uint16 u0 = argv[0];
- if (argc == 4) {
- imageIdDoorOpen = argv[1];
- imageIdDoorClosed = argv[2];
- }
- uint16 soundIdAlarm = argv[argc - 1];
-
- debugC(kDebugScript, "\tu0: %d", u0);
- if (argc == 4) {
- debugC(kDebugScript, "\timageIdDoorOpen: %d", imageIdDoorOpen);
- debugC(kDebugScript, "\tsoundIdDoorClosed: %d", imageIdDoorClosed);
- }
- debugC(kDebugScript, "\tsoundIdAlarm: %d", soundIdAlarm);
-
- // TODO: Fill in Correct Function for Lights
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- // Used for Card 4532 (Rocketship Piano)
-
- if (argc == 0) {
- g_opcode205Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- // Used for Card 6156 (Fortress Rotation Controls)
-
- if (argc == 4) {
- g_opcode205Parameters.soundIdPosition[0] = argv[0];
- g_opcode205Parameters.soundIdPosition[1] = argv[1];
- g_opcode205Parameters.soundIdPosition[2] = argv[2];
- g_opcode205Parameters.soundIdPosition[3] = argv[3];
-
- g_opcode205Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- uint16 soundIdStart[2];
- uint16 soundIdPosition[4];
-
- bool enabled;
-} g_opcode206Parameters;
-
-void MystScriptParser::opcode_206_run(void) {
- if (g_opcode206Parameters.enabled) {
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1191 (Maze Runner)
- // TODO: Fill in function...
- break;
- case kMechanicalStack:
- // Used for Card 6044 (Fortress Rotation Simulator)
-
- // g_opcode206Parameters.soundIdStart[2]
- // g_opcode206Parameters.soundIdPosition[4]
-
- // TODO: Fill in function...
- break;
- }
- }
-}
-
-void MystScriptParser::opcode_206_disable(void) {
- g_opcode206Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_206(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kSeleniticStack:
- // Used for Card 1191 (Maze Runner)
-
- if (argc == 0) {
- g_opcode206Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kStoneshipStack:
- // Used for Cards 2272 and 2234 (Facing Out of Door)
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Unknown, %d Arguments", op, argc);
- // TODO: Function Unknown...
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- // Used for Card 4256 (Butterfly Movie Activation)
- // TODO: Implement Logic...
- break;
- case kMechanicalStack:
- // Used for Card 6044 (Fortress Rotation Simulator)
- if (argc == 6) {
- g_opcode206Parameters.soundIdStart[0] = argv[0];
- g_opcode206Parameters.soundIdStart[1] = argv[1];
- g_opcode206Parameters.soundIdPosition[0] = argv[2];
- g_opcode206Parameters.soundIdPosition[1] = argv[3];
- g_opcode206Parameters.soundIdPosition[2] = argv[4];
- g_opcode206Parameters.soundIdPosition[3] = argv[5];
-
- g_opcode206Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_207(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- // Used for Card 2138 (Lighthouse Key/Chest Animation Logic)
- // TODO: Fill in function
- warning("TODO: Opcode 207 Lighthouse Key/Chest Animation Logic");
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_208(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- // Used in Card 2218 (Telescope view)
- if (argc == 3) {
- debugC(kDebugScript, "Opcode %d: Telescope View", op);
- uint16 imagePanorama = argv[0];
- uint16 imageLighthouseOff = argv[1];
- uint16 imageLighthouseOn = argv[2];
-
- debugC(kDebugScript, "Image (Panorama): %d", imagePanorama);
- debugC(kDebugScript, "Image (Lighthouse Off): %d", imageLighthouseOff);
- debugC(kDebugScript, "Image (Lighthouse On): %d", imageLighthouseOn);
-
- // TODO: Fill in Logic.
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Imager Function", op);
- debugC(kDebugScript, "Var: %d", var);
-
- // TODO: Fill in Correct Function
- if (false) {
- _vm->_video->playMovie(_vm->wrapMovieFilename("vltmntn", kMystStack), 159, 97);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- uint16 u0[5];
- uint16 u1[5];
- uint16 stateVar;
-
- uint16 soundId;
-
- bool enabled;
-} g_opcode209Parameters;
-
-void MystScriptParser::opcode_209_run(void) {
- static bool enabledLast;
-
- if (g_opcode209Parameters.enabled) {
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- // Used for Card 2004 (Achenar's Room Drawers)
-
- // TODO: Implement Function...
- // Swap Open Drawers?
- break;
- case kDemoPreviewStack:
- case kMystStack:
- // Used for Card 4334 and 4348 (Myst Library Bookcase Door)
- if (!enabledLast)
- // TODO: If Variable changed...
- _vm->_sound->playSound(g_opcode209Parameters.soundId);
-
- // TODO: Code to trigger Type 6 to play movie...
- break;
- case kMechanicalStack:
- // Used for Card 6044 (Fortress Rotation Simulator)
-
- // TODO: Implement Function For Secret Panel State as
- // per Opcode 200 function (Mechanical)
- break;
- default:
- break;
- }
- }
-
- enabledLast = g_opcode209Parameters.enabled;
-}
-
-void MystScriptParser::opcode_209_disable(void) {
- g_opcode209Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_209(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- // Used for Card 2004 (Achenar's Room Drawers)
- if (argc == 11) {
- g_opcode209Parameters.u0[0] = argv[0];
- g_opcode209Parameters.u0[1] = argv[1];
- g_opcode209Parameters.u0[2] = argv[2];
- g_opcode209Parameters.u0[3] = argv[3];
- g_opcode209Parameters.u0[4] = argv[4];
-
- g_opcode209Parameters.u1[0] = argv[5];
- g_opcode209Parameters.u1[1] = argv[6];
- g_opcode209Parameters.u1[2] = argv[7];
- g_opcode209Parameters.u1[3] = argv[8];
- g_opcode209Parameters.u1[4] = argv[9];
-
- g_opcode209Parameters.stateVar = argv[10];
-
- g_opcode209Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kDemoPreviewStack:
- case kMystStack:
- // Used for Card 4334 and 4348 (Myst Library Bookcase Door)
- if (argc == 1) {
- g_opcode209Parameters.soundId = argv[0];
- g_opcode209Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- case kMechanicalStack:
- // Used for Card 6044 (Fortress Rotation Simulator)
- if (argc == 0) {
- g_opcode209Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- bool enabled;
-} g_opcode210Parameters;
-
-void MystScriptParser::opcode_210_run(void) {
- if (g_opcode210Parameters.enabled) {
- // Code for Generator Puzzle
-
- // Var 52 to 61 Hold Button State for 10 generators
- // Var 64, 65 - 2 8-Segments for Rocket Power Dial
- // Var 62, 63 - 2 8-Segments for Power Dial
- // Var 96, 97 - Needle for Power and Rocket Power Dials
-
- // Var 44 Holds State for Rocketship
- // 0 = No Power
- // 1 = Insufficient Power
- // 2 = Correct Power i.e. 59V
-
- // Var 93 Holds Breaker nearest Generator State
- // Var 94 Holds Breaker nearest Rocket Ship State
- // 0 = Closed 1 = Open
-
- const uint16 correctVoltage = 59;
-
- // Correct Solution is 4, 7, 8, 9 i.e. 16 + 2 + 22 + 19 = 59
- const uint16 genVoltages[10] = { 10, 7, 8, 16, 5, 1, 2, 22, 19, 9 };
-
- uint16 powerVoltage = 0;
- uint16 rocketPowerVoltage = 0;
-
- // Calculate Power Voltage from Generator Contributions
- for (byte i = 0; i < ARRAYSIZE(genVoltages); i++)
- if (_vm->_varStore->getVar(52 + i))
- powerVoltage += genVoltages[i];
-
- // Logic for Var 49 - Generator Running Sound Control
- if (powerVoltage == 0)
- _vm->_varStore->setVar(49, 0);
- else
- _vm->_varStore->setVar(49, 1);
-
- // TODO: Animation Code to Spin Up and Spin Down LED Dials?
- // Code For Power Dial Var 62 and 63
- _vm->_varStore->setVar(62, powerVoltage / 10);
- _vm->_varStore->setVar(63, powerVoltage % 10);
- // TODO: Var 96 - Power Needle Logic
-
- // Code For Breaker Logic
- if (_vm->_varStore->getVar(93) != 0 || _vm->_varStore->getVar(94) != 0)
- rocketPowerVoltage = 0;
- else {
- if (powerVoltage <= correctVoltage)
- rocketPowerVoltage = powerVoltage;
- else {
- // Blow Generator Room Breaker...
- _vm->_varStore->setVar(93, 1);
- // TODO: I think Logic For Blowing Other Breaker etc.
- // is done in process on Breaker Cards.
-
- rocketPowerVoltage = 0;
- }
- }
-
- // TODO: Animation Code to Spin Up and Spin Down LED Dials?
- // Code For Rocket Power Dial
- _vm->_varStore->setVar(64, rocketPowerVoltage / 10);
- _vm->_varStore->setVar(65, rocketPowerVoltage % 10);
- // TODO: Var 97 - Rocket Power Needle Logic
-
- // Set Rocket Ship Power Based on Power Level
- if (rocketPowerVoltage == 0)
- _vm->_varStore->setVar(44, 0);
- else if (rocketPowerVoltage < correctVoltage)
- _vm->_varStore->setVar(44, 1);
- else if (rocketPowerVoltage == correctVoltage)
- _vm->_varStore->setVar(44, 2);
- else // Should Not Happen Case
- _vm->_varStore->setVar(44, 0);
- }
-}
-
-void MystScriptParser::opcode_210_disable(void) {
- g_opcode210Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_210(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kStoneshipStack:
- varUnusedCheck(op, var);
-
- // Used in Cards 2205 and 2207 (Cloud Orbs in Sirrus' Room)
- if (argc == 2) {
- uint16 soundId = argv[0];
- uint16 soundIdStopping = argv[1];
-
- // TODO: Work Out Function i.e. control Var etc.
- if (false) {
- _vm->_sound->playSound(soundId);
- _vm->_sound->playSound(soundIdStopping);
- }
- } else
- unknown(op, var, argc, argv);
- break;
- case kMystStack:
- // Used for Card 4297 (Generator Puzzle)
- if (argc == 2) {
- // TODO: Work Out 2 parameters meaning... 16, 17
- // Script Resources for Generator Spinup and Spindown Sounds?
- g_opcode210Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- bool enabled;
-} g_opcode211Parameters;
-
-void MystScriptParser::opcode_211_run(void) {
- const uint16 imageBaseId = 4779;
- const uint16 gridBaseLeft = 173;
- const uint16 gridBaseTop = 168;
-
- static uint16 lastGridState[6];
- uint16 gridState[6];
- uint16 image;
-
- if (g_opcode211Parameters.enabled) {
- // Grid uses Var 17 to 22 as bitfields (8 horizontal cells x 6 vertical)
- for (byte i = 0; i < 6; i++) {
- gridState[i] = _vm->_varStore->getVar(i + 17);
-
- if (gridState[i] != lastGridState[i]) {
- for (byte j = 0; j < 8; j++) {
- // TODO: Animation Code
- if ((gridState[i] >> (7 - j)) & 1)
- image = 16;
- else
- image = 0;
-
- _vm->_gfx->copyImageToScreen(imageBaseId + image, Common::Rect(gridBaseLeft + (j * 26), gridBaseTop + (i * 26), gridBaseLeft + ((j + 1) * 26), gridBaseTop + ((i + 1) * 26)));
- }
- }
-
- lastGridState[i] = gridState[i];
- }
-
- _vm->_gfx->updateScreen();
-
- // Var 23 contains boolean for whether pattern matches correct book pattern i.e. Pattern 158
- if (gridState[0] == 0xc3 && gridState[1] == 0x6b && gridState[2] == 0xa3 &&
- gridState[3] == 0x93 && gridState[4] == 0xcc && gridState[5] == 0xfa)
- _vm->_varStore->setVar(23, 1);
- else
- _vm->_varStore->setVar(23, 0);
- }
-}
-
-void MystScriptParser::opcode_211_disable(void) {
- g_opcode211Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_211(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kDemoPreviewStack:
- case kMystStack:
- // Used for Card 4059 (Fireplace Puzzle)
- if (argc == 0) {
- for (byte i = 0; i < 6; i++)
- _vm->_varStore->setVar(i + 17, 0);
-
- g_opcode211Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-static struct {
- bool enabled;
-} g_opcode212Parameters;
-
-void MystScriptParser::opcode_212_run(void) {
- if (g_opcode212Parameters.enabled) {
- // TODO: Implement Correct Code for Myst Clock Tower Cog Puzzle
- // Card 4113
-
- if (false) {
- // 3 videos to be played of Cog Movement
- // TODO: Not 100% sure of movie positions.
- _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wg1", kMystStack), 220, 50);
- _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wg2", kMystStack), 220, 80);
- _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wg3", kMystStack), 220, 110);
-
- // 1 video of weight descent
- _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wlfch", kMystStack), 123, 0);
-
- // Video of Cog Open on Success
- _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wggat", kMystStack), 195, 225);
- // Var 40 set on success
- _vm->_varStore->setVar(40, 1);
- }
- }
-}
-
-void MystScriptParser::opcode_212_disable(void) {
- g_opcode212Parameters.enabled = false;
-}
-
-void MystScriptParser::opcode_212(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4113 (Clock Tower Cog Puzzle)
- if (argc == 0) {
- g_opcode212Parameters.enabled = true;
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_213(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4524 (Dockside Facing Towards Ship)
- if (argc == 0) {
- // TODO: Implement Code...
- // Code for Gull Videos?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_214(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4500 (Stellar Observatory)
- if (argc == 5) {
- debugC(kDebugScript, "Opcode %d: Unknown...", op);
-
- uint16 u0 = argv[0];
- uint16 u1 = argv[1];
- uint16 u2 = argv[2];
- uint16 u3 = argv[3];
- uint16 u4 = argv[4];
-
- debugC(kDebugScript, "\tu0: %d", u0);
- debugC(kDebugScript, "\tu1: %d", u1);
- debugC(kDebugScript, "\tu2: %d", u2);
- debugC(kDebugScript, "\tu3: %d", u3);
- debugC(kDebugScript, "\tu4: %d", u4);
- // TODO: Complete Implementation...
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_215(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4134 (Dock Facing Marker Switch)
- // TODO: Fill in logic for Gull Videos.
- // may be offset and overlap and need video update to all these
- // to run in sequence with opcode215_run() process...
- if (false) {
- // All birds(x) videos are 120x48 and played in top right corner of card
- _vm->_video->playMovie(_vm->wrapMovieFilename("birds1", kMystStack), 544-120-1, 0);
- _vm->_video->playMovie(_vm->wrapMovieFilename("birds2", kMystStack), 544-120-1, 0);
- _vm->_video->playMovie(_vm->wrapMovieFilename("birds3", kMystStack), 544-120-1, 0);
- }
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_216(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Cards 4571 (Channelwood Tree), 4586 (Channelwood Tree),
- // 4615 (Channelwood Tree) and 4601 (Channelwood Tree)
- if (argc == 0) {
- // TODO: Fill in logic for Channelwood Tree Position i.e. Var 72 update // 0 to 12, 4 for Alcove
- // Based on Timer code and following variables :
- // 98 "Cabin Boiler Pilot Light Lit"
- // 99 "Cabin Boiler Gas Valve Position" }, // 0 to 5
- // 305 "Cabin Boiler Lit" },
- // 306 "Cabin Boiler Steam Sound Control" }, // 0 to 27
- // 307 "Cabin Boiler Needle Position i.e. Fully Pressurised" }, // 0 to 1
-
- // Note : Opcode 218 does boiler update code..
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_217(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4601 (Channelwood Tree)
- if (argc == 2) {
- // TODO: Fill in logic for Tree Position Close Up...
- // 2 arguments: 4, 4
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_218(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4097 (Cabin Boiler)
- // TODO: Fill in logic
- if (false) {
- _vm->_video->playMovie(_vm->wrapMovieFilename("cabfirfr", kMystStack), 254, 244);
- _vm->_video->playMovie(_vm->wrapMovieFilename("cabcgfar", kMystStack), 254, 138);
- }
-
- // Used for Card 4098 (Cabin Boiler)
- // TODO: Fill in logic
- if (false) {
- _vm->_video->playMovie(_vm->wrapMovieFilename("cabfire", kMystStack), 240, 279);
- _vm->_video->playMovie(_vm->wrapMovieFilename("cabingau", kMystStack), 243, 97);
- }
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_219(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4530 (Rocketship Music Puzzle)
- if (argc == 5) {
- debugC(kDebugScript, "Opcode %d: Unknown...", op);
-
- uint16 u0 = argv[0];
- uint16 u1 = argv[1];
- uint16 u2 = argv[2];
- uint16 u3 = argv[3];
- uint16 u4 = argv[4];
-
- debugC(kDebugScript, "\tu0: %d", u0);
- debugC(kDebugScript, "\tu1: %d", u1);
- debugC(kDebugScript, "\tu2: %d", u2);
- debugC(kDebugScript, "\tu3: %d", u3);
- debugC(kDebugScript, "\tu4: %d", u4);
- // TODO: Fill in logic...
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_220(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4530 (Rocketship Music Puzzle Video)
- // TODO: Fill in logic.
- if (false) {
- // loop?
- _vm->_video->playMovie(_vm->wrapMovieFilename("selenbok", kMystStack), 224, 41);
- }
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_221(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4168 (Green Book Movies)
- // Movie plays in resource #0 rect
- // TODO: Not sure if subsection is looped...
- if (!_vm->_varStore->getVar(302)) {
- // HACK: Stop Wind Sounds.. Think this is a problem at library entrance.
- _vm->_sound->stopSound();
- _vm->_video->playBackgroundMovie(_vm->wrapMovieFilename("atrusbk1", kMystStack), 314, 76);
- _vm->_varStore->setVar(302, 1);
- } else {
- // HACK: Stop Wind Sounds.. Think this is a problem at library entrance.
- _vm->_sound->stopSound();
- _vm->_video->playBackgroundMovie(_vm->wrapMovieFilename("atrusbk2", kMystStack), 314, 76);
- }
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_222(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4141 (Myst Dock Facing Sea)
- if (argc == 0) {
- // TODO: Logic for Gull Videos?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_298(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kDemoPreviewStack:
- // Used for Card 3000 (Closed Myst Book)
- // TODO: Fill in logic.
- // Start Voice Over... which controls book opening
- _vm->_sound->playSound(3001);
-
- // then link to Myst - Trigger of Hotspot? then opcode 199/196/197 for voice over continue?
- // TODO: Sync Voice and Actions to Original
- // TODO: Flash Library Red
- // TODO: Move to run process based delay to prevent
- // blocking...
- _vm->_system->delayMillis(20 * 1000);
- for (uint16 imageId = 3001; imageId <= 3012; imageId++) {
- _vm->_gfx->copyImageToScreen(imageId, Common::Rect(0, 0, 544, 333));
- _vm->_gfx->updateScreen();
- _vm->_system->delayMillis(5 * 1000);
- }
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_299(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kDemoPreviewStack:
- // Used for Card 3002 (Myst Island Overview)
- // TODO: Fill in logic.
- // Zoom into Island?
- // On this card is a Type 8 controlled by Var 0, which
- // can change the Myst Library to Red..
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_300(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kIntroStack:
- varUnusedCheck(op, var);
- // In the original engine, this opcode stopped Intro Movies if playing,
- // upon card change, but this behaviour is now default in this engine.
- break;
- case kDemoPreviewStack:
- case kMystStack:
- // Used in Card 4371 (Blue Book) Var = 101
- // and Card 4363 (Red Book) Var = 100
- debugC(kDebugScript, "Opcode %d: Book Exit Function...", op);
- debugC(kDebugScript, "Var: %d", var);
- // TODO: Fill in Logic
- break;
- case kStoneshipStack:
- // Used in Card 2218 (Telescope view)
- varUnusedCheck(op, var);
- // TODO: Fill in Logic. Clearing Variable for View?
- break;
- case kMechanicalStack:
- // Used in Card 6156 (Fortress Elevator View)
- varUnusedCheck(op, var);
- // TODO: Fill in Logic. Clearing Variable for View?
- break;
- case kChannelwoodStack:
- // Used in Card 3012 (Achenar's Holoprojector Control)
- varUnusedCheck(op, var);
- // TODO: Fill in Logic. Clearing Variable for View?
- break;
- case kDniStack:
- // Used in Card 5014 (Atrus Writing)
- varUnusedCheck(op, var);
- // TODO: Fill in Logic.
- break;
- case kDemoStack:
- // Used on Card 2000
- varUnusedCheck(op, var);
-
- // TODO: Fill in Function...
- break;
- default:
- varUnusedCheck(op, var);
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_301(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kDemoPreviewStack:
- case kMystStack:
- // Used in Cards 4047, 4059, 4060, 4068 and 4080 (Myst Library Books - Open)
- // TODO: Fill in Logic. Clear Variable on Book exit.. or Copy from duplicate..
- _vm->_varStore->setVar(0, 1);
- break;
- default:
- varUnusedCheck(op, var);
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_302(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used in Card 4113 (Clock Tower Cog Puzzle)
- // TODO: Fill in Logic
- break;
- default:
- varUnusedCheck(op, var);
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_303(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4134 (Dock Facing Marker Switch)
- // Used for Card 4141 (Myst Dock Facing Sea)
- // In the original engine, this opcode stopped Gull Movies if playing,
- // upon card change, but this behaviour is now default in this engine.
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_304(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4601 (Channelwood Tree)
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Unknown...", op);
- // TODO: Logic for clearing variable?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_305(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4601 (Channelwood Tree)
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Unknown...", op);
- // TODO: Logic for clearing variable?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_306(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4098 (Cabin Boiler Puzzle)
- // In the original engine, this opcode stopped the Boiler Fire and Meter Needle videos
- // if playing, upon card change, but this behaviour is now default in this engine.
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_307(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4297 (Generator Room Controls)
- if (argc == 0) {
- debugC(kDebugScript, "Opcode %d: Unknown...", op);
- // TODO: Logic for clearing variable?
- } else
- unknown(op, var, argc, argv);
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_308(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4530 (Rocketship Music Sliders)
- // In the original engine, this opcode stopped the Selenitic Book Movie if playing,
- // upon card change, but this behaviour is now default in this engine.
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_309(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4168 (Green D'ni Book Open)
- // In the original engine, this opcode stopped the Green Book Atrus Movies if playing,
- // upon card change, but this behaviour is now default in this engine.
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
-void MystScriptParser::opcode_312(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
- varUnusedCheck(op, var);
-
- switch (_vm->getCurStack()) {
- case kMystStack:
- // Used for Card 4698 (Dock Forechamber Imager)
- // In the original engine, this opcode stopped the Imager Movie if playing,
- // especially the hardcoded Topological Extrusion (Mountain) video,
- // upon card change, but this behaviour is now default in this engine.
- break;
- default:
- unknown(op, var, argc, argv);
- break;
- }
-}
-
} // End of namespace Mohawk
diff --git a/engines/mohawk/myst_scripts.h b/engines/mohawk/myst_scripts.h
index af8053bacf..59974d9003 100644
--- a/engines/mohawk/myst_scripts.h
+++ b/engines/mohawk/myst_scripts.h
@@ -62,56 +62,15 @@ typedef Common::SharedPtr<Common::Array<MystScriptEntry> > MystScript;
class MystScriptParser {
public:
MystScriptParser(MohawkEngine_Myst *vm);
- ~MystScriptParser();
+ virtual ~MystScriptParser();
void runScript(MystScript script, MystResource *invokingResource = NULL);
void runOpcode(uint16 op, uint16 var = 0, uint16 argc = 0, uint16 *argv = NULL);
const char *getOpcodeDesc(uint16 op);
MystScript readScript(Common::SeekableReadStream *stream, MystScriptType type);
- void disableInitOpcodes();
- void runPersistentOpcodes();
-
-private:
- MohawkEngine_Myst *_vm;
-
- typedef void (MystScriptParser::*OpcodeProcMyst)(uint16 op, uint16 var, uint16 argc, uint16* argv);
-
- struct MystOpcode {
- uint16 op;
- OpcodeProcMyst proc;
- const char *desc;
- };
-
- const MystOpcode *_opcodes;
- void setupOpcodes();
- MystResource *_invokingResource;
- uint16 _opcodeCount;
-
- void varUnusedCheck(uint16 op, uint16 var);
-
- void opcode_200_run();
- void opcode_200_disable();
- void opcode_201_run();
- void opcode_201_disable();
- void opcode_202_run();
- void opcode_202_disable();
- void opcode_203_run();
- void opcode_203_disable();
- void opcode_204_run();
- void opcode_204_disable();
- void opcode_205_run();
- void opcode_205_disable();
- void opcode_206_run();
- void opcode_206_disable();
- void opcode_209_run();
- void opcode_209_disable();
- void opcode_210_run();
- void opcode_210_disable();
- void opcode_211_run();
- void opcode_211_disable();
- void opcode_212_run();
- void opcode_212_disable();
+ virtual void disableInitOpcodes() = 0;
+ virtual void runPersistentOpcodes() = 0;
DECLARE_OPCODE(unknown);
@@ -155,92 +114,30 @@ private:
DECLARE_OPCODE(opcode_44);
DECLARE_OPCODE(opcode_46);
- DECLARE_OPCODE(opcode_100);
- DECLARE_OPCODE(opcode_101);
- DECLARE_OPCODE(opcode_102);
- DECLARE_OPCODE(opcode_103);
- DECLARE_OPCODE(opcode_104);
- DECLARE_OPCODE(opcode_105);
- DECLARE_OPCODE(opcode_106);
- DECLARE_OPCODE(opcode_107);
- DECLARE_OPCODE(opcode_108);
- DECLARE_OPCODE(opcode_109);
- DECLARE_OPCODE(opcode_110);
- DECLARE_OPCODE(opcode_111);
- DECLARE_OPCODE(opcode_112);
- DECLARE_OPCODE(opcode_113);
- DECLARE_OPCODE(opcode_114);
- DECLARE_OPCODE(opcode_115);
- DECLARE_OPCODE(opcode_116);
- DECLARE_OPCODE(opcode_117);
- DECLARE_OPCODE(opcode_118);
- DECLARE_OPCODE(opcode_119);
- DECLARE_OPCODE(opcode_120);
- DECLARE_OPCODE(opcode_121);
- DECLARE_OPCODE(opcode_122);
- DECLARE_OPCODE(opcode_123);
- DECLARE_OPCODE(opcode_124);
- DECLARE_OPCODE(opcode_125);
- DECLARE_OPCODE(opcode_126);
- DECLARE_OPCODE(opcode_127);
- DECLARE_OPCODE(opcode_128);
- DECLARE_OPCODE(opcode_129);
- DECLARE_OPCODE(opcode_130);
- DECLARE_OPCODE(opcode_131);
- DECLARE_OPCODE(opcode_132);
- DECLARE_OPCODE(opcode_133);
- DECLARE_OPCODE(opcode_147);
- DECLARE_OPCODE(opcode_164);
- DECLARE_OPCODE(opcode_169);
- DECLARE_OPCODE(opcode_181);
- DECLARE_OPCODE(opcode_182);
- DECLARE_OPCODE(opcode_183);
- DECLARE_OPCODE(opcode_184);
- DECLARE_OPCODE(opcode_185);
- DECLARE_OPCODE(opcode_196);
- DECLARE_OPCODE(opcode_197);
- DECLARE_OPCODE(opcode_198);
- DECLARE_OPCODE(opcode_199);
-
- DECLARE_OPCODE(opcode_200);
- DECLARE_OPCODE(opcode_201);
- DECLARE_OPCODE(opcode_202);
- DECLARE_OPCODE(opcode_203);
- DECLARE_OPCODE(opcode_204);
- DECLARE_OPCODE(opcode_205);
- DECLARE_OPCODE(opcode_206);
- DECLARE_OPCODE(opcode_207);
- DECLARE_OPCODE(opcode_208);
- DECLARE_OPCODE(opcode_209);
- DECLARE_OPCODE(opcode_210);
- DECLARE_OPCODE(opcode_211);
- DECLARE_OPCODE(opcode_212);
- DECLARE_OPCODE(opcode_213);
- DECLARE_OPCODE(opcode_214);
- DECLARE_OPCODE(opcode_215);
- DECLARE_OPCODE(opcode_216);
- DECLARE_OPCODE(opcode_217);
- DECLARE_OPCODE(opcode_218);
- DECLARE_OPCODE(opcode_219);
- DECLARE_OPCODE(opcode_220);
- DECLARE_OPCODE(opcode_221);
- DECLARE_OPCODE(opcode_222);
- DECLARE_OPCODE(opcode_298);
- DECLARE_OPCODE(opcode_299);
-
- DECLARE_OPCODE(opcode_300);
- DECLARE_OPCODE(opcode_301);
- DECLARE_OPCODE(opcode_302);
- DECLARE_OPCODE(opcode_303);
- DECLARE_OPCODE(opcode_304);
- DECLARE_OPCODE(opcode_305);
- DECLARE_OPCODE(opcode_306);
- DECLARE_OPCODE(opcode_307);
- DECLARE_OPCODE(opcode_308);
- DECLARE_OPCODE(opcode_309);
- DECLARE_OPCODE(opcode_312);
-
DECLARE_OPCODE(NOP);
+
+protected:
+ MohawkEngine_Myst *_vm;
+
+ typedef void (MystScriptParser::*OpcodeProcMyst)(uint16 op, uint16 var, uint16 argc, uint16* argv);
+
+ struct MystOpcode {
+ uint16 op;
+ OpcodeProcMyst proc;
+ const char *desc;
+ };
+
+ const MystOpcode *_opcodes;
+ void setupOpcodes();
+ MystResource *_invokingResource;
+ uint16 _opcodeCount;
+
+ static const uint8 stack_map[];
+ static const uint16 start_card[];
+
+ void varUnusedCheck(uint16 op, uint16 var);
+
+
};
}
diff --git a/engines/mohawk/myst_scripts_myst.cpp b/engines/mohawk/myst_scripts_myst.cpp
new file mode 100644
index 0000000000..7cbef15c54
--- /dev/null
+++ b/engines/mohawk/myst_scripts_myst.cpp
@@ -0,0 +1,3813 @@
+/* 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: https://scummvm.svn.sourceforge.net/svnroot/scummvm/scummvm/trunk/engines/mohawk/myst_scripts.cpp $
+ * $Id: myst_scripts.cpp 54107 2010-11-07 01:03:29Z fingolfin $
+ *
+ */
+
+#include "mohawk/myst.h"
+#include "mohawk/graphics.h"
+#include "mohawk/myst_scripts_myst.h"
+#include "mohawk/sound.h"
+#include "mohawk/video.h"
+
+#include "gui/message.h"
+
+namespace Mohawk {
+
+// NOTE: Credits Start Card is 10000
+
+#define OPCODE(op, x) { op, &MystScriptParser::x, #x }
+#define SPECIFIC_OPCODE(op, x) { op, (OpcodeProcMyst) &MystScriptParser_Myst::x, #x }
+
+MystScriptParser_Myst::MystScriptParser_Myst(MohawkEngine_Myst *vm) : MystScriptParser(vm) {
+ setupOpcodes();
+ _invokingResource = NULL;
+}
+
+MystScriptParser_Myst::~MystScriptParser_Myst() {
+}
+
+void MystScriptParser_Myst::setupOpcodes() {
+ // "invalid" opcodes do not exist or have not been observed
+ // "unknown" opcodes exist, but their meaning is unknown
+
+ static const MystOpcode myst_opcodes[] = {
+ // "Standard" Opcodes
+ { 0, &MystScriptParser::toggleBoolean, "toggleBoolean" },
+ //OPCODE(0, toggleBoolean),
+ OPCODE(1, setVar),
+ OPCODE(2, altDest),
+ OPCODE(3, takePage),
+ OPCODE(4, opcode_4),
+ // TODO: Opcode 5 Not Present
+ OPCODE(6, opcode_6),
+ OPCODE(7, opcode_7),
+ OPCODE(8, opcode_8),
+ OPCODE(9, opcode_9),
+ // TODO: Opcode 10 to 11 Not Present
+ OPCODE(12, altDest),
+ OPCODE(13, altDest),
+ OPCODE(14, opcode_14),
+ OPCODE(15, dropPage),
+ OPCODE(16, opcode_16),
+ OPCODE(17, opcode_17),
+ OPCODE(18, opcode_18),
+ OPCODE(19, enableHotspots),
+ OPCODE(20, disableHotspots),
+ OPCODE(21, opcode_21),
+ OPCODE(22, opcode_22),
+ OPCODE(23, opcode_23),
+ OPCODE(24, playSound),
+ // TODO: Opcode 25 Not Present
+ OPCODE(26, opcode_26),
+ OPCODE(27, playSoundBlocking),
+ OPCODE(28, opcode_28),
+ OPCODE(29, opcode_29_33),
+ OPCODE(30, opcode_30),
+ OPCODE(31, opcode_31),
+ OPCODE(32, opcode_32),
+ OPCODE(33, opcode_29_33),
+ OPCODE(34, opcode_34),
+ OPCODE(35, opcode_35),
+ OPCODE(36, changeCursor),
+ OPCODE(37, hideCursor),
+ OPCODE(38, showCursor),
+ OPCODE(39, opcode_39),
+ OPCODE(40, changeStack),
+ OPCODE(41, opcode_41),
+ OPCODE(42, opcode_42),
+ OPCODE(43, opcode_43),
+ OPCODE(44, opcode_44),
+ // TODO: Opcode 45 Not Present
+ OPCODE(46, opcode_46),
+ // TODO: Opcodes 47 to 99 Not Present
+
+ // "Stack-Specific" Opcodes
+ SPECIFIC_OPCODE(100, opcode_100),
+ SPECIFIC_OPCODE(101, opcode_101),
+ SPECIFIC_OPCODE(102, opcode_102),
+ SPECIFIC_OPCODE(103, opcode_103),
+ SPECIFIC_OPCODE(104, opcode_104),
+ SPECIFIC_OPCODE(105, opcode_105),
+ SPECIFIC_OPCODE(106, opcode_106),
+ SPECIFIC_OPCODE(107, opcode_107),
+ SPECIFIC_OPCODE(108, opcode_108),
+ SPECIFIC_OPCODE(109, opcode_109),
+ SPECIFIC_OPCODE(110, opcode_110),
+ SPECIFIC_OPCODE(111, opcode_111),
+ SPECIFIC_OPCODE(112, opcode_112),
+ SPECIFIC_OPCODE(113, opcode_113),
+ SPECIFIC_OPCODE(114, opcode_114),
+ SPECIFIC_OPCODE(115, opcode_115),
+ SPECIFIC_OPCODE(116, opcode_116),
+ SPECIFIC_OPCODE(117, opcode_117),
+ SPECIFIC_OPCODE(118, opcode_118),
+ SPECIFIC_OPCODE(119, opcode_119),
+ SPECIFIC_OPCODE(120, opcode_120),
+ SPECIFIC_OPCODE(121, opcode_121),
+ SPECIFIC_OPCODE(122, opcode_122),
+ SPECIFIC_OPCODE(123, opcode_123),
+ SPECIFIC_OPCODE(124, opcode_124),
+ SPECIFIC_OPCODE(125, opcode_125),
+ SPECIFIC_OPCODE(126, opcode_126),
+ SPECIFIC_OPCODE(127, opcode_127),
+ SPECIFIC_OPCODE(128, opcode_128),
+ SPECIFIC_OPCODE(129, opcode_129),
+ SPECIFIC_OPCODE(130, opcode_130),
+ SPECIFIC_OPCODE(131, opcode_131),
+ SPECIFIC_OPCODE(132, opcode_132),
+ SPECIFIC_OPCODE(133, opcode_133),
+ // TODO: Opcodes 134 to 146 Not Present
+ SPECIFIC_OPCODE(147, opcode_147),
+ // TODO: Opcodes 148 to 163 Not Present
+ SPECIFIC_OPCODE(164, opcode_164),
+ // TODO: Opcodes 165 to 168 Not Present
+ SPECIFIC_OPCODE(169, opcode_169),
+ // TODO: Opcodes 170 to 181 Not Present
+ SPECIFIC_OPCODE(182, opcode_182),
+ SPECIFIC_OPCODE(183, opcode_183),
+ SPECIFIC_OPCODE(184, opcode_184),
+ SPECIFIC_OPCODE(185, opcode_185),
+ // TODO: Opcodes 186 to 195 Not Present
+ SPECIFIC_OPCODE(196, opcode_196), // Demo only
+ SPECIFIC_OPCODE(197, opcode_197), // Demo only
+ SPECIFIC_OPCODE(198, opcode_198),
+ SPECIFIC_OPCODE(199, opcode_199),
+
+ // "Init" Opcodes
+ SPECIFIC_OPCODE(200, opcode_200),
+ SPECIFIC_OPCODE(201, opcode_201),
+ SPECIFIC_OPCODE(202, opcode_202),
+ SPECIFIC_OPCODE(203, opcode_203),
+ SPECIFIC_OPCODE(204, opcode_204),
+ SPECIFIC_OPCODE(205, opcode_205),
+ SPECIFIC_OPCODE(206, opcode_206),
+ SPECIFIC_OPCODE(207, opcode_207),
+ SPECIFIC_OPCODE(208, opcode_208),
+ SPECIFIC_OPCODE(209, opcode_209),
+ SPECIFIC_OPCODE(210, opcode_210),
+ SPECIFIC_OPCODE(211, opcode_211),
+ SPECIFIC_OPCODE(212, opcode_212),
+ SPECIFIC_OPCODE(213, opcode_213),
+ SPECIFIC_OPCODE(214, opcode_214),
+ SPECIFIC_OPCODE(215, opcode_215),
+ SPECIFIC_OPCODE(216, opcode_216),
+ SPECIFIC_OPCODE(217, opcode_217),
+ SPECIFIC_OPCODE(218, opcode_218),
+ SPECIFIC_OPCODE(219, opcode_219),
+ SPECIFIC_OPCODE(220, opcode_220),
+ SPECIFIC_OPCODE(221, opcode_221),
+ SPECIFIC_OPCODE(222, opcode_222),
+ // TODO: Opcodes 223 to 297 Not Present
+ SPECIFIC_OPCODE(298, opcode_298), // Demo only
+ SPECIFIC_OPCODE(299, opcode_299), // Demo only
+
+ // "Exit" Opcodes
+ SPECIFIC_OPCODE(300, opcode_300),
+ SPECIFIC_OPCODE(301, opcode_301),
+ SPECIFIC_OPCODE(302, opcode_302),
+ SPECIFIC_OPCODE(303, opcode_303),
+ SPECIFIC_OPCODE(304, opcode_304),
+ SPECIFIC_OPCODE(305, opcode_305),
+ SPECIFIC_OPCODE(306, opcode_306),
+ SPECIFIC_OPCODE(307, opcode_307),
+ SPECIFIC_OPCODE(308, opcode_308),
+ SPECIFIC_OPCODE(309, opcode_309),
+ // TODO: Opcodes 310 to 311 Not Present
+ SPECIFIC_OPCODE(312, opcode_312),
+ // TODO: Opcodes 313 and greater Not Present
+
+ OPCODE(0xFFFF, NOP)
+ };
+
+ _opcodes = myst_opcodes;
+ _opcodeCount = ARRAYSIZE(myst_opcodes);
+}
+
+void MystScriptParser_Myst::disableInitOpcodes() {
+ opcode_200_disable();
+ opcode_201_disable();
+ opcode_202_disable();
+ opcode_203_disable();
+ opcode_204_disable();
+ opcode_205_disable();
+ opcode_206_disable();
+ opcode_209_disable();
+ opcode_210_disable();
+ opcode_211_disable();
+ opcode_212_disable();
+}
+
+void MystScriptParser_Myst::runPersistentOpcodes() {
+ opcode_200_run();
+ opcode_201_run();
+ opcode_202_run();
+ opcode_203_run();
+ opcode_204_run();
+ opcode_205_run();
+ opcode_206_run();
+ opcode_209_run();
+ opcode_210_run();
+ opcode_211_run();
+ opcode_212_run();
+}
+
+void MystScriptParser_Myst::opcode_100(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ // Hard coded SoundId valid only for Intro Stack.
+ // Other stacks use Opcode 40, which takes SoundId values as arguments.
+ const uint16 soundIdLinkSrc = 5;
+
+ switch (_vm->getCurStack()) {
+ case kIntroStack:
+ debugC(kDebugScript, "Opcode %d: ChangeStack", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Merge with changeStack (Opcode 40) Implementation?
+ if (_vm->_varStore->getVar(var) == 5 || _vm->_varStore->getVar(var) > 7) {
+ // TODO: Dead Book i.e. Released Sirrus/Achenar
+ } else {
+ // Play Linking Sound, blocking...
+ _vm->_sound->stopSound();
+ Audio::SoundHandle *handle = _vm->_sound->playSound(soundIdLinkSrc);
+ while (_vm->_mixer->isSoundHandleActive(*handle))
+ _vm->_system->delayMillis(10);
+
+ // Play Flyby Entry Movie on Masterpiece Edition. The Macintosh version is currently hooked
+ // up to the Cinepak versions of the video (the 'c' suffix) until the SVQ1 decoder is completed.
+ if ((_vm->getFeatures() & GF_ME)) {
+ switch (stack_map[_vm->_varStore->getVar(var)]) {
+ case kSeleniticStack:
+ if (_vm->getPlatform() == Common::kPlatformMacintosh)
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_SEc", kMasterpieceOnly));
+ else
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("selenitic flyby", kMasterpieceOnly));
+ break;
+ case kStoneshipStack:
+ if (_vm->getPlatform() == Common::kPlatformMacintosh)
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_STc", kMasterpieceOnly));
+ else
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("stoneship flyby", kMasterpieceOnly));
+ break;
+ // Myst Flyby Movie not used in Original Masterpiece Edition Engine
+ case kMystStack:
+ if (_vm->_tweaksEnabled) {
+ if (_vm->getPlatform() == Common::kPlatformMacintosh)
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_MYc", kMasterpieceOnly));
+ else
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("myst flyby", kMasterpieceOnly));
+ }
+ break;
+ case kMechanicalStack:
+ if (_vm->getPlatform() == Common::kPlatformMacintosh)
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_MEc", kMasterpieceOnly));
+ else
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("mech age flyby", kMasterpieceOnly));
+ break;
+ case kChannelwoodStack:
+ if (_vm->getPlatform() == Common::kPlatformMacintosh)
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("FLY_CHc", kMasterpieceOnly));
+ else
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("channelwood flyby", kMasterpieceOnly));
+ break;
+ default:
+ break;
+ }
+ }
+
+ uint16 varValue = _vm->_varStore->getVar(var);
+ _vm->changeToStack(stack_map[varValue]);
+ _vm->changeToCard(start_card[varValue]);
+
+ // TODO: No soundIdLinkDst for Opcode 100 link? Check Original.
+ }
+ break;
+ case kStoneshipStack:
+ // Used for Cards 2185 (Water Pump)
+ varUnusedCheck(op, var);
+
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Unknown Function", op);
+
+ // TODO: Called when Water Pump Button is pressed? Animation?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDniStack:
+ // Used in Card 5022 (Rocks)
+ varUnusedCheck(op, var);
+
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Unknown Function", op);
+
+ // TODO: Fill in Logic.
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kCreditsStack:
+ case kMakingOfStack:
+ _vm->_system->quit();
+ break;
+ case kDemoSlidesStack:
+ // TODO: Change to changeStack call?
+ _vm->changeToStack(kDemoStack);
+ _vm->changeToCard(2001);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_101(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 0) {
+ // Used on Card 1191 (Maze Runner)
+ // Called when Red Warning Button is pushed
+
+ debugC(kDebugScript, "Opcode %d: Repeat Buzzer Sound?", op);
+
+ // TODO: Fill in logic...
+ // Repeat buzzer sound
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 6) {
+ // Used by Door Buttons to Brothers' Rooms
+ // Cards 2294, 2255
+ Common::Rect u0_rect = Common::Rect(argv[0], argv[1], argv[2], argv[3]);
+ uint16 u1 = argv[3];
+ uint16 u2 = argv[2];
+
+ debugC(kDebugScript, "Opcode %d: Unknown", op);
+ debugC(kDebugScript, "u0_rect.left: %d", u0_rect.left);
+ debugC(kDebugScript, "u0_rect.top: %d", u0_rect.top);
+ debugC(kDebugScript, "u0_rect.right: %d", u0_rect.right);
+ debugC(kDebugScript, "u0_rect.bottom: %d", u0_rect.bottom);
+ debugC(kDebugScript, "u1: %d", u1);
+ debugC(kDebugScript, "u2: %d", u2);
+
+ // TODO: Fill in logic...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ debugC(kDebugScript, "Opcode %d: Decrement Variable", op);
+ if (argc == 0) {
+ debugC(kDebugScript, "\tvar: %d", var);
+ uint16 varValue = _vm->_varStore->getVar(var);
+ // Logic to prevent decrement to negative
+ if (varValue != 0)
+ _vm->_varStore->setVar(var, varValue - 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 1) {
+ debugC(kDebugScript, "Opcode %d: Play Pipe Movie and Sound", op);
+
+ uint16 soundId = argv[0];
+ debugC(kDebugScript, "\tsoundId: %d", soundId);
+
+ _vm->_sound->playSound(soundId);
+
+ // TODO: Get Movie Location from Invoking Resource Rect, rather than
+ // hardcoded 267, 170 ?
+
+ // TODO: Need version of playMovie blocking which allows selection
+ // of start and finish points.
+ if (!_vm->_varStore->getVar(6)) {
+ // Play Pipe Extending i.e. 0 to 1/2 way through file
+ _vm->_video->playMovie(_vm->wrapMovieFilename("pipebrid", kChannelwoodStack), 267, 170);
+ } else {
+ // Play Pipe Retracting i.e. 1/2 way to end of file
+ _vm->_video->playMovie(_vm->wrapMovieFilename("pipebrid", kChannelwoodStack), 267, 170);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDniStack:
+ // Used in Card 5014 (Atrus)
+ // Hotspot Resource Used to hand Page to Atrus...
+ varUnusedCheck(op, var);
+ // TODO: Fill in Logic.
+ break;
+ case kDemoStack:
+ varUnusedCheck(op, var);
+
+ // Used on Card 2000, 2002 and 2003
+ // Triggered by Click
+ if (argc == 0) {
+ // TODO: Fill in Logic.. Fade in?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_102(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 2) {
+ debugC(kDebugScript, "Opcode %d: Play Book Room Movie", op);
+
+ uint16 startTime = argv[0];
+ uint16 endTime = argv[1];
+
+ debugC(kDebugScript, "\tstartTime: %d", startTime);
+ debugC(kDebugScript, "\tendTime: %d", endTime);
+
+ warning("TODO: Opcode %d Movie Time Index %d to %d", op, startTime, endTime);
+ // TODO: Need version of playMovie blocking which allows selection
+ // of start and finish points.
+ _vm->_video->playMovie(_vm->wrapMovieFilename("bkroom", kStoneshipStack), 159, 99);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Increment Variable", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // AFAIK no logic to put ceiling on increment at least in this opcode
+ _vm->_varStore->setVar(var, _vm->_varStore->getVar(var) + 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 2 || argc == 3) {
+ debugC(kDebugScript, "Opcode %d: Draw Full Screen Image, Optional Delay and Change Card", op);
+
+ uint16 imageId = argv[0];
+ uint16 cardId = argv[1];
+ uint16 delay = 0;
+
+ if (argc == 3)
+ delay = argv[2]; // TODO: Not sure about purpose of this parameter...
+
+ debugC(kDebugScript, "\timageId: %d", imageId);
+ debugC(kDebugScript, "\tcardId: %d", cardId);
+ debugC(kDebugScript, "\tdelay: %d", delay);
+
+ _vm->_gfx->copyImageToScreen(imageId, Common::Rect(0, 0, 544, 333));
+ _vm->_system->delayMillis(delay / 100);
+ _vm->changeToCard(cardId);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoStack:
+ varUnusedCheck(op, var);
+
+ // Used on Card 2002 and 2003
+ // Triggered by Click
+ if (argc == 0) {
+ // TODO: Fill in Logic.. Fade out?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_103(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 1) {
+ // Used on Card 2197 (Sirrus' Room Drawers)
+ debugC(kDebugScript, "Opcode %d: Unknown", op);
+
+ uint16 u0 = argv[0];
+
+ debugC(kDebugScript, "\tu0: %d", u0);
+ // TODO: Fill in Logic...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ // Used on Myst Card 4162 (Fireplace Grid)
+ if (argc == 1) {
+ debugC(kDebugScript, "Opcode %d: Toggle Variable with Bitmask", op);
+
+ uint16 bitmask = argv[0];
+ uint16 varValue = _vm->_varStore->getVar(var);
+
+ debugC(kDebugScript, "\tvar: %d", var);
+ debugC(kDebugScript, "\tbitmask: 0x%02X", bitmask);
+
+ if (varValue & bitmask)
+ _vm->_varStore->setVar(var, varValue & ~bitmask);
+ else
+ _vm->_varStore->setVar(var, varValue | bitmask);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_104(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ // Used for Card 2004 (Achenar's Room Drawers)
+ // Used for Closeup of Torn Note?
+ if (argc == 1) {
+ debugC(kDebugScript, "Opcode %d: Unknown Function", op);
+
+ uint16 u0 = argv[0];
+ debugC(kDebugScript, "\tu0: %d", u0);
+
+ // TODO: Fill in Function...
+ // Does u0 correspond to a resource Id? Enable? Disable?
+ // Similar to Opcode 111 (Stoneship Version).. But does this also
+ // draw closeup image of note / change to closeup card?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ varUnusedCheck(op, var);
+
+ // Used on Myst Card 4162 and 4166 (Fireplace Puzzle Rotation Movies)
+ if (argc == 1) {
+ debugC(kDebugScript, "Opcode %d: Play Fireplace Puzzle Rotation Movies", op);
+
+ uint16 movieNum = argv[0];
+ debugC(kDebugScript, "\tmovieNum: %d", movieNum);
+
+ if (movieNum == 0)
+ _vm->_video->playMovie(_vm->wrapMovieFilename("fpin", kMystStack), 167, 5);
+ if (movieNum == 1)
+ _vm->_video->playMovie(_vm->wrapMovieFilename("fpout", kMystStack), 167, 5);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ varUnusedCheck(op, var);
+
+ // Used on Mechanical Card 6043 (Weapons Rack with Snake Box)
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Trigger Playing Of Snake Movie", op);
+
+ // TODO: Trigger Type 6 To Play Snake Movie.. Resource #3 on card.
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ varUnusedCheck(op, var);
+
+ // Used on Channelwood Card 3280
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Do Water Tank Valve Open Animation", op);
+ Common::Rect rect = _invokingResource->getRect();
+
+ // TODO: Need to load the image ids from Script Resources structure of VIEW
+ for (uint16 imageId = 3595; imageId <= 3601; imageId++) {
+ _vm->_gfx->copyImageToScreen(imageId, rect);
+ _vm->_system->delayMillis(50);
+ }
+
+ // TODO: Is 8 gotten from var7 of calling hotspot, rather than hardcoded?
+ _vm->_varStore->setVar(8, 1);
+ _vm->_varStore->setVar(19, 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_105(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Water Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ if (argc == 1) {
+ varUnusedCheck(op, var);
+
+ uint16 soundId = argv[0];
+ uint16 boxValue = 0;
+ Audio::SoundHandle *handle;
+
+ debugC(kDebugScript, "Opcode %d: Ship Puzzle Logic", op);
+ debugC(kDebugScript, "\tsoundId: %d", soundId);
+
+ // Logic for Myst Ship Box Puzzle Solution
+ for (byte i = 0; i < 8; i++)
+ boxValue |= _vm->_varStore->getVar(i + 26) ? (1 << i) : 0;
+
+ uint16 var10 = _vm->_varStore->getVar(10);
+
+ if (boxValue == 0x32 && var10 == 0) {
+ handle = _vm->_sound->playSound(soundId);
+
+ while (_vm->_mixer->isSoundHandleActive(*handle))
+ _vm->_system->delayMillis(10);
+
+ _vm->_varStore->setVar(10, 1);
+ } else if (boxValue != 0x32 && var10 == 1) {
+ handle = _vm->_sound->playSound(soundId);
+
+ while (_vm->_mixer->isSoundHandleActive(*handle))
+ _vm->_system->delayMillis(10);
+
+ _vm->_varStore->setVar(10, 0);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Play Stairs Movement Movie", op);
+
+ if (_vm->_varStore->getVar(10)) {
+ // TODO: Play Movie from 0 to 1/2 way...
+ _vm->_video->playMovie(_vm->wrapMovieFilename("hhstairs", kMechanicalStack), 174, 222);
+ } else {
+ // TODO: Play Movie from 1/2 way to end...
+ _vm->_video->playMovie(_vm->wrapMovieFilename("hhstairs", kMechanicalStack), 174, 222);
+ }
+ }
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_106(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Volcanic Crack Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_107(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Clock Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_108(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Crystal Rocks Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_109(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Wind Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ if (argc == 1) {
+ int16 signedValue = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Add Signed Value to Var", op);
+ debugC(kDebugScript, "\tVar: %d", var);
+ debugC(kDebugScript, "\tsignedValue: %d", signedValue);
+
+ _vm->_varStore->setVar(var, _vm->_varStore->getVar(var) + signedValue);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_110(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ if (argc == 15) {
+ // Used for Selenitic Maze Runner Exit Logic
+ uint16 CardIdEntry = argv[0];
+ uint16 CardIdExit = argv[1];
+ uint16 u0 = argv[2];
+ Common::Rect rect1 = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
+ uint16 rect1UpdateDirection = argv[7];
+ uint16 u1 = argv[8];
+ Common::Rect rect2 = Common::Rect(argv[9], argv[10], argv[11], argv[12]);
+ uint16 rect2UpdateDirection = argv[13];
+ uint16 u2 = argv[14];
+
+ debugC(kDebugScript, "Opcode %d: Maze Runner Exit Logic and Door Open Animation", op);
+ debugC(kDebugScript, "\tExit Card: %d", CardIdEntry);
+ debugC(kDebugScript, "\tEntry Card: %d", CardIdExit);
+ debugC(kDebugScript, "\tu0 (Exit Var?): %d", u0);
+
+ debugC(kDebugScript, "\trect1.left: %d", rect1.left);
+ debugC(kDebugScript, "\trect1.top: %d", rect1.top);
+ debugC(kDebugScript, "\trect1.right: %d", rect1.right);
+ debugC(kDebugScript, "\trect1.bottom: %d", rect1.bottom);
+ debugC(kDebugScript, "\trect1 updateDirection: %d", rect1UpdateDirection);
+ debugC(kDebugScript, "\tu1: %d", u1);
+
+ debugC(kDebugScript, "\trect2.left: %d", rect2.left);
+ debugC(kDebugScript, "\trect2.top: %d", rect2.top);
+ debugC(kDebugScript, "\trect2.right: %d", rect2.right);
+ debugC(kDebugScript, "\trect2.bottom: %d", rect2.bottom);
+ debugC(kDebugScript, "\trect2 updateDirection: %d", rect2UpdateDirection);
+ debugC(kDebugScript, "\tu2: %d", u2);
+
+ // TODO: Finish Implementing Logic...
+ // HACK: Bypass Higher Logic for now...
+ _vm->changeToCard(argv[1]);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_111(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ if (argc == 0) {
+ // Used on Card 1245 (Sound Receiver)
+ // Used by Source Selection Buttons...
+
+ debugC(kDebugScript, "Opcode %d: Unknown", op);
+ // TODO: Fill in Function...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ if (argc == 1) {
+ // Used for Card 2004 (Achenar's Room Drawers)
+ // Used by Drawers Hotspots...
+
+ debugC(kDebugScript, "Opcode %d: Unknown Function", op);
+
+ uint16 u0 = argv[0];
+ debugC(kDebugScript, "\tu0: %d", u0);
+
+ // TODO: Fill in Function...
+ // Does u0 correspond to a resource Id? Enable? Disable?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_112(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ // Used for Card 2013 (Achenar's Rose-Skull Hologram)
+ if (argc == 3) {
+ debugC(kDebugScript, "Opcode %d: Rose-Skull Hologram Playback", op);
+
+ uint16 varValue = _vm->_varStore->getVar(var);
+
+ debugC(kDebugScript, "\tVar: %d = %d", var, varValue);
+
+ uint16 startPoint = argv[0];
+ uint16 endPoint = argv[1];
+ uint16 u0 = argv[2];
+
+ debugC(kDebugScript, "\tstartPoint: %d", startPoint);
+ debugC(kDebugScript, "\tendPoint: %d", endPoint);
+ debugC(kDebugScript, "\tu0: %d", u0);
+
+ // TODO: Fill in Function...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_113(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used on Myst 4143 (Dock near Marker Switch)
+ if (argc == 9) {
+ uint16 soundId = argv[0];
+
+ uint16 u0 = argv[1];
+ uint16 u1 = argv[2];
+
+ Common::Rect rect = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
+
+ uint16 updateDirection = argv[7];
+ uint16 u2 = argv[8];
+
+ debugC(kDebugScript, "Opcode %d: Vault Open Logic", op);
+ debugC(kDebugScript, "\tsoundId: %d", soundId);
+ debugC(kDebugScript, "\tu0: %d", u0);
+ debugC(kDebugScript, "\tu1: %d", u1);
+
+ debugC(kDebugScript, "\trect.left: %d", rect.left);
+ debugC(kDebugScript, "\trect.top: %d", rect.top);
+ debugC(kDebugScript, "\trect.right: %d", rect.right);
+ debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
+ debugC(kDebugScript, "\trect updateDirection: %d", updateDirection);
+ debugC(kDebugScript, "\tu2: %d", u2);
+
+ if ((_vm->_varStore->getVar(2) == 1) &&
+ (_vm->_varStore->getVar(3) == 1) &&
+ (_vm->_varStore->getVar(4) == 0) &&
+ (_vm->_varStore->getVar(5) == 1) &&
+ (_vm->_varStore->getVar(6) == 1) &&
+ (_vm->_varStore->getVar(7) == 1) &&
+ (_vm->_varStore->getVar(8) == 1) &&
+ (_vm->_varStore->getVar(9) == 1)) {
+ // TODO: Implement correct function...
+ // Blit Image in Left to Right Vertical stripes i.e. transistion
+ // like door opening
+ _vm->_sound->playSound(soundId);
+ // TODO: Set 41 to 1 if page already present in hand.
+ _vm->_varStore->setVar(41, 2);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_114(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used on Myst 4143 (Dock near Marker Switch)
+ if (argc == 9) {
+ uint16 soundId = argv[0];
+
+ uint16 u0 = argv[1];
+ uint16 u1 = argv[2];
+
+ Common::Rect rect = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
+
+ uint16 updateDirection = argv[7];
+ uint16 u2 = argv[8];
+
+ debugC(kDebugScript, "Opcode %d: Vault Close Logic", op);
+ debugC(kDebugScript, "\tsoundId: %d", soundId);
+ debugC(kDebugScript, "\tu0: %d", u0);
+ debugC(kDebugScript, "\tu1: %d", u1);
+
+ debugC(kDebugScript, "\trect.left: %d", rect.left);
+ debugC(kDebugScript, "\trect.top: %d", rect.top);
+ debugC(kDebugScript, "\trect.right: %d", rect.right);
+ debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
+ debugC(kDebugScript, "\tupdateDirection: %d", updateDirection);
+ debugC(kDebugScript, "\tu2: %d", u2);
+
+ if ((_vm->_varStore->getVar(2) == 1) &&
+ (_vm->_varStore->getVar(3) == 1) &&
+ (_vm->_varStore->getVar(4) == 1) &&
+ (_vm->_varStore->getVar(5) == 1) &&
+ (_vm->_varStore->getVar(6) == 1) &&
+ (_vm->_varStore->getVar(7) == 1) &&
+ (_vm->_varStore->getVar(8) == 1) &&
+ (_vm->_varStore->getVar(9) == 1)) {
+ // TODO: Implement correct function...
+ // Blit Image in Right to Left Vertical stripes i.e. transistion
+ // like door closing
+ _vm->_sound->playSound(soundId);
+ _vm->_varStore->setVar(41, 0);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_115(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 11) {
+ // Used for Selenitic Card 1147 (Musical Door Lock Button)
+ uint16 imageIdClose = argv[0]; // TODO: Sound Id?
+ uint16 imageIdOpen = argv[1]; // TODO: Sound Id?
+
+ uint16 cardIdOpen = argv[2];
+
+ uint16 u0 = argv[3];
+ uint16 u1 = argv[4];
+
+ Common::Rect rect = Common::Rect(argv[5], argv[6], argv[7], argv[8]);
+
+ uint16 updateDirection = argv[9];
+ uint16 u2 = argv[10];
+
+ debugC(kDebugScript, "Music Door Lock Logic...");
+ debugC(kDebugScript, "\timageId (Close): %d", imageIdClose);
+ debugC(kDebugScript, "\timageId (Open): %d", imageIdOpen);
+ debugC(kDebugScript, "\tcardId (Open): %d", cardIdOpen);
+ debugC(kDebugScript, "\tu0: %d", u0);
+ debugC(kDebugScript, "\tu1: %d", u1);
+
+ debugC(kDebugScript, "\trect.left: %d", rect.left);
+ debugC(kDebugScript, "\trect.top: %d", rect.top);
+ debugC(kDebugScript, "\trect.right: %d", rect.right);
+ debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
+ debugC(kDebugScript, "\trect updateDirection: %d", updateDirection);
+ debugC(kDebugScript, "\tu2: %d", u2);
+
+ // TODO: Fix Logic...
+ // HACK: Bypass Door Lock For Now
+ _vm->changeToCard(cardIdOpen);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ if (argc == 3) {
+ uint16 cardIdLose = argv[0];
+ uint16 cardIdBookCover = argv[1];
+ uint16 soundIdAddPage = argv[2];
+
+ debugC(kDebugScript, "Opcode %d: Red and Blue Book/Page Interaction", op);
+ debugC(kDebugScript, "Var: %d", var);
+ debugC(kDebugScript, "Card Id (Lose): %d", cardIdLose);
+ debugC(kDebugScript, "Card Id (Book Cover): %d", cardIdBookCover);
+ debugC(kDebugScript, "SoundId (Add Page): %d", soundIdAddPage);
+
+ // TODO: if holding page for this book, play SoundIdAddPage
+ if (false) { // TODO: Should be access to mainCursor...
+ _vm->_sound->playSound(soundIdAddPage);
+ // TODO: Code for updating variables based on adding page
+ }
+
+ // TODO: Add Tweak to improve original logic by denying
+ // lose until all red / blue pages collected, rather
+ // than allowing shortcut based on 1 fireplace page?
+
+ // If holding last page for this book i.e. var 24/25
+ // Then trigger Trapped in Book Losing Ending
+ if ((var == 100 && !_vm->_varStore->getVar(25)) ||
+ (var == 101 && !_vm->_varStore->getVar(24))) {
+ // TODO: Clear mainCursor back to nominal..
+ _vm->changeToCard(cardIdLose);
+ } else
+ _vm->changeToCard(cardIdBookCover);
+
+ // TODO: Is this logic here?
+ // i.e. If was holding page, wait then auto open and play book...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ varUnusedCheck(op, var);
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_116(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 1) {
+ // Used on Card 2111 (Compass Rose)
+ // Called when Button Clicked.
+ uint16 correctButton = argv[0];
+
+ if (correctButton) {
+ // Correct Button -> Light On Logic
+ // TODO: Deal with if main power on?
+ _vm->_varStore->setVar(16, 1);
+ _vm->_varStore->setVar(30, 0);
+ } else {
+ // Wrong Button -> Power Failure Logic
+ // TODO: Fill in Alarm
+ _vm->_varStore->setVar(16, 0);
+ _vm->_varStore->setVar(30, 2);
+ _vm->_varStore->setVar(33, 0);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ if (argc == 1) {
+ // Used on Card 4006 (Clock Tower Time Controls)
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Clock Tower Bridge Puzzle Execute Button", op);
+
+ uint16 bridgeState = _vm->_varStore->getVar(12);
+ uint16 currentTime = _vm->_varStore->getVar(43);
+
+ const uint16 correctTime = 32; // 2:40 i.e. From 12 Noon in 5 min increments
+
+ if (!bridgeState && currentTime == correctTime) {
+ _vm->_sound->playSound(soundId);
+
+ // TODO: Play only 1st half of movie i.e. gears rise up
+ _vm->_video->playMovie(_vm->wrapMovieFilename("gears", kMystStack), 305, 36);
+
+ bridgeState = 1;
+ _vm->_varStore->setVar(12, bridgeState);
+ } else if (bridgeState && currentTime != correctTime) {
+ _vm->_sound->playSound(soundId);
+
+ // TODO: Play only 2nd half of movie i.e. gears sink down
+ _vm->_video->playMovie(_vm->wrapMovieFilename("gears", kMystStack), 305, 36);
+
+ bridgeState = 0;
+ _vm->_varStore->setVar(12, bridgeState);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_117(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 0) {
+ // Used on Card 2132 (Chest at Bottom of Lighthouse)
+ // Called when Valve Hotspot Clicked.
+ // TODO: Fill in Function to play right section of movie
+ // based on valve state and water in chest..
+ _vm->_video->playMovie(_vm->wrapMovieFilename("ligspig", kStoneshipStack), 97, 267);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ if (argc == 2) {
+ // Used by Myst Imager Control Button
+ uint16 varValue = _vm->_varStore->getVar(var);
+
+ if (varValue)
+ _vm->_sound->playSound(argv[1]);
+ else
+ _vm->_sound->playSound(argv[0]);
+
+ _vm->_varStore->setVar(var, !varValue);
+ // TODO: Change Var 45 "Dock Forechamber Imager Water Effect Enabled" here?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 1) {
+ // Used on Card 3012 (Temple Hologram Monitor)
+ uint16 button = argv[0]; // 0 to 3
+ _vm->_varStore->setVar(17, button);
+ switch (button) {
+ case 0:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("monalgh", kChannelwoodStack), 227, 71);
+ break;
+ case 1:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("monamth", kChannelwoodStack), 227, 71);
+ break;
+ case 2:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("monasirs", kChannelwoodStack), 227, 71);
+ break;
+ case 3:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("monsmsg", kChannelwoodStack), 227, 71);
+ break;
+ default:
+ warning("Opcode %d Control Variable Out of Range", op);
+ break;
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_118(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ if (argc == 0) {
+ // Used on Card 2126 (Lighthouse Looking Along Plank)
+ // Called when Exit Resource is clicked
+
+ // TODO: Implement Function...
+ // If holding Key to Lamp Room Trapdoor, drop to bottom of
+ // Lighthouse...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 5) {
+ // Used by Card 4709 (Myst Imager Control Panel Red Button)
+
+ debugC(kDebugScript, "Opcode %d: Imager Change Value", op);
+
+ uint16 soundIdBeepLo = argv[0];
+ uint16 soundIdBeepHi = argv[1];
+ uint16 soundIdBwapp = argv[2];
+ uint16 soundIdBeepTune = argv[3]; // 5 tones..
+ uint16 soundIdPanelSlam = argv[4];
+
+ debugC(kDebugScript, "\tsoundIdBeepLo: %d", soundIdBeepLo);
+ debugC(kDebugScript, "\tsoundIdBeepHi: %d", soundIdBeepHi);
+ debugC(kDebugScript, "\tsoundIdBwapp: %d", soundIdBwapp);
+ debugC(kDebugScript, "\tsoundIdBeepTune: %d", soundIdBeepTune);
+ debugC(kDebugScript, "\tsoundIdPanelSlam: %d", soundIdPanelSlam);
+
+ _vm->_sound->playSound(soundIdBeepLo);
+
+ // TODO: Complete Logic...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 0) {
+ // Used on Card 3318 (Sirrus' Room Nightstand Drawer)
+ // Triggered when clicked on drawer
+ // TODO: Implement function...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_119(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ if (argc == 0) {
+ // Used on Card 2143 (Lighthouse Trapdoor)
+ // Called when Lock Hotspot Clicked while holding key.
+ _vm->_video->playMovie(_vm->wrapMovieFilename("openloc", kStoneshipStack), 187, 72);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ if (argc == 1) {
+ // Used on Card 4383 and 4451 (Tower Elevator)
+ switch (argv[0]) {
+ case 0:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("libdown", kMystStack), 216, 78);
+ break;
+ case 1:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("libup", kMystStack), 214, 75);
+ break;
+ default:
+ break;
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ if (argc == 0) {
+ // Used on Card 3333 (Temple Hologram)
+ // TODO: Not 100% sure about movie position...
+ switch (_vm->_varStore->getVar(17)) {
+ case 0:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("holoalgh", kChannelwoodStack), 126, 74);
+ break;
+ case 1:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("holoamth", kChannelwoodStack), 126, 74);
+ break;
+ case 2:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("holoasir", kChannelwoodStack), 126, 74);
+ break;
+ case 3:
+ _vm->_video->playMovie(_vm->wrapMovieFilename("holosmsg", kChannelwoodStack), 126, 74);
+ break;
+ default:
+ warning("Opcode %d Control Variable Out of Range", op);
+ break;
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_120(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ MystResource *_top;
+
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ if (argc == 1) {
+ // Used for Cards 2285, 2289, 2247, 2251 (Side Doors in Tunnels Down To Brothers Rooms)
+ uint16 movieId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Play Side Door Movies", op);
+ debugC(kDebugScript, "\tmovieId: %d", movieId);
+
+ switch (movieId) {
+ case 0:
+ // Card 2251
+ _vm->_video->playMovie(_vm->wrapMovieFilename("tunaup", kStoneshipStack), 149, 161);
+ break;
+ case 1:
+ // Card 2247
+ _vm->_video->playMovie(_vm->wrapMovieFilename("tunadown", kStoneshipStack), 218, 150);
+ break;
+ case 2:
+ // Card 2289
+ _vm->_video->playMovie(_vm->wrapMovieFilename("tuncup", kStoneshipStack), 259, 161);
+ break;
+ case 3:
+ // Card 2285
+ _vm->_video->playMovie(_vm->wrapMovieFilename("tuncdown", kStoneshipStack), 166, 150);
+ break;
+ default:
+ warning("Opcode 120 MovieId Out Of Range");
+ break;
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ // Used for Card 4297 (Generator Puzzle Buttons)
+ debugC(kDebugScript, "Opcode %d: Toggle Var8 of Invoking Resource", op);
+ _top = _invokingResource;
+
+ while(_top->_parent != NULL)
+ _top = _top->_parent;
+
+ if (argc == 0) {
+ uint16 var8 = _top->getType8Var();
+ if (var8 != 0xFFFF)
+ _vm->_varStore->setVar(var8, !_vm->_varStore->getVar(var8));
+ else
+ warning("Opcode 120: No invoking Resource Var 8 found");
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_121(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used on Card 4100 (Cabin Safe Buttons)
+ // Correct Solution (724) -> Var 67=2, 68=7, 69=5
+ // Jump to Card 4103 when solution correct and handle pulled...
+ if (argc == 0) {
+ uint16 varValue = _vm->_varStore->getVar(var);
+ if (varValue == 0)
+ varValue = 9;
+ else
+ varValue--;
+ _vm->_varStore->setVar(var, varValue);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ varUnusedCheck(op, var);
+
+ if (argc == 2) {
+ uint16 startTime = argv[0];
+ uint16 endTime = argv[1];
+
+ warning("TODO: Opcode %d Movie Time Index %d to %d\n", op, startTime, endTime);
+ // TODO: Need version of playMovie blocking which allows selection
+ // of start and finish points.
+ _vm->_video->playMovie(_vm->wrapMovieFilename("ewindow", kMechanicalStack), 253, 0);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ varUnusedCheck(op, var);
+
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_122(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kChannelwoodStack:
+ // Used on Channelwood Card 3280
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Do Water Tank Valve Close Animation", op);
+ Common::Rect rect = _invokingResource->getRect();
+
+ // TODO: Need to load the image ids from Script Resources structure of VIEW
+ for (uint16 imageId = 3601; imageId >= 3595; imageId--) {
+ _vm->_gfx->copyImageToScreen(imageId, rect);
+ _vm->_system->delayMillis(50);
+ }
+
+ // TODO: Is 8 gotten from var7 of calling hotspot, rather than hard-coded?
+ _vm->_varStore->setVar(8, 0);
+ _vm->_varStore->setVar(19, 0);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used on Card 6120 (Elevator)
+ // Called when Exit Midde Button Pressed
+
+ // TODO: hcelev? Movie of Elevator?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_123(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMechanicalStack:
+ if (argc == 2) {
+ // Used on Card 6154
+ uint16 start_time = argv[0];
+ uint16 end_time = argv[1];
+
+ warning("TODO: Opcode %d Movie Time Index %d to %d\n", op, start_time, end_time);
+ // TODO: Need version of playMovie blocking which allows selection
+ // of start and finish points.
+ // TODO: Not 100% sure about movie position
+ _vm->_video->playMovie(_vm->wrapMovieFilename("hcelev", kMechanicalStack), 205, 40);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_124(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used by Card 6156 (Fortress Rotation Controls)
+ // Called when Red Exit Button Pressed to raise Elevator
+
+ // TODO: Fill in Code...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_125(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ if (argc == 1) {
+ // Used on Card 2197 (Sirrus' Room Drawers)
+ debugC(kDebugScript, "Opcode %d: Unknown uses Var %d", op, var);
+
+ uint16 u0 = argv[0];
+
+ debugC(kDebugScript, "\tu0: %d", u0);
+ // TODO: Fill in Logic...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used on Card 6267 (Code Lock)
+ // Called by Red Execute Button...
+ debugC(kDebugScript, "Opcode %d: Code Lock Execute...", op);
+
+ // TODO: Fill in Logic For Code Lock...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_126(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used by Card 6120 (Fortress Elevator)
+ // Called when Red Exit Button Pressed to raise Elevator and
+ // exit is clicked...
+
+ // TODO: Fill in Code...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_127(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kChannelwoodStack:
+ if (argc == 2) {
+ // Used by Card 3262 (Elevator)
+ debugC(kDebugScript, "Opcode %d: Unknown...", op);
+
+ uint16 u0 = argv[0];
+ uint16 u1 = argv[1];
+
+ debugC(kDebugScript, "\tu0: %d", u0);
+ debugC(kDebugScript, "\tu1: %d", u1);
+
+ // TODO: Fill in Code...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used for Mech Card 6226 (3 Crystals)
+ _vm->_varStore->setVar(20, 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_128(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used for Mech Card 6226 (3 Crystals)
+ _vm->_varStore->setVar(20, 0);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_129(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kChannelwoodStack:
+ if (argc == 1) {
+ // Used by Card 3262 (Elevator)
+ debugC(kDebugScript, "Opcode %d: Unknown...", op);
+
+ uint16 cardId = argv[0];
+
+ debugC(kDebugScript, "\tcardId: %d", cardId);
+
+ // TODO: Fill in Code...
+ _vm->changeToCard(cardId);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used for Mech Card 6226 (3 Crystals)
+ _vm->_varStore->setVar(21, 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_130(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used for Mech Card 6226 (3 Crystals)
+ _vm->_varStore->setVar(21, 0);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_131(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used for Mech Card 6226 (3 Crystals)
+ _vm->_varStore->setVar(22, 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_132(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMechanicalStack:
+ if (argc == 0) {
+ // Used for Mech Card 6226 (3 Crystals)
+ _vm->_varStore->setVar(22, 0);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_133(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used on Card 4500 (Stellar Observatory Controls)
+ if (argc == 1) {
+ // Called by Telescope Slew Button
+ uint16 soundId = argv[0];
+
+ // TODO: Function to change variables controlling telescope view
+ // etc.
+
+ // TODO: Sound seems to be stuck looping?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_147(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ if (argc == 0) {
+ // TODO: Extra Logic to do this in INIT process watching cursor and var 98?
+ _vm->_varStore->setVar(98, 0);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_164(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used on Card 4530 (Rocketship Music Slider Controls)
+ // TODO: Finish Implementation...
+ // Var 105 is used to set between 0 to 2 = No Function, Movie Playback and Linkable...
+ // This is called when Var 105 = 1 i.e. this plays back Movie...
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_169(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used on Card 4099 (In Cabin, Looking Out Door)
+ // TODO: Finish Implementation...
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_181(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ if (argc == 0) {
+ // TODO: Logic for lighting the match
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_182(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ if (argc == 0) {
+ // TODO: Logic for lighting the match
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_183(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ if (argc == 0) {
+ // Used for Myst Cards 4257, 4260, 4263, 4266, 4269, 4272, 4275 and 4278 (Ship Puzzle Boxes)
+ _vm->_varStore->setVar(105, 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_184(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ if (argc == 0) {
+ // Used for Myst Cards 4257, 4260, 4263, 4266, 4269, 4272, 4275 and 4278 (Ship Puzzle Boxes)
+ _vm->_varStore->setVar(105, 0);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_185(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ if (argc == 0) {
+ // Used for Myst Card 4098 (Cabin Boiler Pilot Light)
+ // TODO: Extra Logic to do this in INIT process watching cursor and var 98?
+ _vm->_varStore->setVar(98, 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_196(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kDemoPreviewStack:
+ // Used on Card ...
+ // TODO: Finish Implementation...
+ // Voice Over and Card Advance?
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_197(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kDemoPreviewStack:
+ // Used on Card ...
+ // TODO: Finish Implementation...
+ // Voice Over and Card Advance?
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+// TODO: Merge with Opcode 42?
+void MystScriptParser_Myst::opcode_198(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kDemoPreviewStack:
+ if (argc == 0) {
+ // Nuh-uh! No leaving the library in the demo!
+ GUI::MessageDialog dialog("You can't leave the library in the demo.");
+ dialog.runModal();
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ // Used on Card 4143 (Dock near Marker Switch, facing Cogs)
+ if (argc == 9) {
+ uint16 soundId = argv[0];
+ uint16 u0 = argv[1];
+ uint16 u1 = argv[2];
+ Common::Rect rect = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
+ uint16 updateDirection = argv[7];
+ uint16 u2 = argv[8];
+
+ debugC(kDebugScript, "Opcode %d: Close Dock Marker Switch Vault", op);
+ debugC(kDebugScript, "\tsoundId: %d", soundId);
+ debugC(kDebugScript, "\tu0: %d", u0);
+ debugC(kDebugScript, "\tu1: %d", u1);
+
+ debugC(kDebugScript, "\trect.left: %d", rect.left);
+ debugC(kDebugScript, "\trect.top: %d", rect.top);
+ debugC(kDebugScript, "\trect.right: %d", rect.right);
+ debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
+ debugC(kDebugScript, "\tupdateDirection: %d", updateDirection);
+ debugC(kDebugScript, "\tu2: %d", u2);
+
+ Audio::SoundHandle *handle;
+ if (_vm->_varStore->getVar(41) != 0) {
+ handle = _vm->_sound->playSound(soundId);
+
+ while (_vm->_mixer->isSoundHandleActive(*handle))
+ _vm->_system->delayMillis(10);
+ // TODO: Do Image Blit
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_199(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Myst Imager Control Execute Button Logic", op);
+
+ uint16 numericSelection = (_vm->_varStore->getVar(36) + 1) % 10;
+ numericSelection += ((_vm->_varStore->getVar(35) + 1) % 10) * 10;
+
+ debugC(kDebugScript, "\tImager Selection: %d", numericSelection);
+
+ switch (numericSelection) {
+ case 40:
+ _vm->_varStore->setVar(51, 1); // Mountain
+ break;
+ case 67:
+ _vm->_varStore->setVar(51, 2); // Water
+ break;
+ case 47:
+ _vm->_varStore->setVar(51, 4); // Marker Switch
+ break;
+ case 8:
+ _vm->_varStore->setVar(51, 3); // Atrus
+ break;
+ default:
+ _vm->_varStore->setVar(51, 0); // Blank
+ break;
+ }
+
+ // TODO: Fill in Logic
+ //{ 34, 2, "Dock Forechamber Imager State" }, // 0 to 2 = Off, Mountain, Water
+ //{ 310, 0, "Dock Forechamber Imager Control Temp Value?" }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoPreviewStack:
+ // Used on Card ...
+ // TODO: Finish Implementation...
+ // Voice Over and Card Advance?
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+// Selenitic Stack Movies For Maze Runner (Card 1191)
+static const char* kHCMovPathSelenitic[36] = {
+ "backa1",
+ "backe1",
+ "backf0",
+ "backf1",
+ "backl0",
+ "backl1",
+ "backo0",
+ "backo1",
+ "backp0",
+ "backp1",
+ "backr0",
+ "backr1",
+ "backs0",
+ "backs1",
+ "forwa1",
+ "forwe0",
+ "forwf0",
+ "forwf1",
+ "forwl0",
+ "forwl1",
+ "forwo0",
+ "forwo1",
+ "forwp0",
+ "forwp1",
+ "forwr0",
+ "forwr1",
+ "forws0",
+ "forws1",
+ "left00",
+ "left01",
+ "left10",
+ "left11",
+ "right00",
+ "right01",
+ "right10",
+ "right11"
+};
+
+static struct {
+ bool enabled;
+
+ uint16 var;
+ uint16 imageCount;
+ uint16 imageBaseId;
+ uint16 soundDecrement;
+ uint16 soundIncrement;
+
+ // Myst Demo slideshow variables
+ uint16 cardId;
+ uint32 lastCardTime;
+} g_opcode200Parameters;
+
+void MystScriptParser_Myst::opcode_200_run() {
+ static uint16 lastImageIndex = 0;
+ uint16 curImageIndex;
+ Common::Rect rect;
+
+ if (g_opcode200Parameters.enabled) {
+ switch (_vm->getCurStack()) {
+ case kIntroStack: // Used on Card 1
+ case kDemoStack: // Used on Card 2000
+ // TODO : Implement function here to play though intro movies and change card?
+ break;
+ case kSeleniticStack:
+ // Used on Card 1191 (Maze Runner)
+
+ // TODO: Implementation Movie Function..
+ if (false) {
+ _vm->_video->playMovie(_vm->wrapMovieFilename(kHCMovPathSelenitic[0], kSeleniticStack), 201, 26);
+ }
+ break;
+ case kStoneshipStack:
+ // Used for Card 2013 (Achenar's Rose-Skull Hologram)
+
+ // TODO: Implement Function...
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ curImageIndex = _vm->_varStore->getVar(g_opcode200Parameters.var);
+
+ if (curImageIndex >= g_opcode200Parameters.imageCount) {
+ curImageIndex = g_opcode200Parameters.imageCount - 1;
+ _vm->_varStore->setVar(g_opcode200Parameters.var, curImageIndex);
+ }
+
+ // HACK: Think these images are centered on screen (when smaller than full screen),
+ // and since no _gfx call for image size, hack this to deal with this case for now...
+ if (_vm->getCurCard() == 4059)
+ rect = Common::Rect(157, 115, 544, 333);
+ else
+ rect = Common::Rect(0, 0, 544, 333);
+
+ if (curImageIndex != lastImageIndex)
+ _vm->_gfx->copyImageToScreen(g_opcode200Parameters.imageBaseId + curImageIndex, rect);
+
+ // TODO: Comparison with original engine shows that this simple solution
+ // may not be the correct one and the choice of which sound
+ // may be more complicated or even random..
+ if (curImageIndex < lastImageIndex && g_opcode200Parameters.soundDecrement != 0)
+ _vm->_sound->playSound(g_opcode200Parameters.soundDecrement);
+ else if (curImageIndex > lastImageIndex && g_opcode200Parameters.soundIncrement != 0)
+ _vm->_sound->playSound(g_opcode200Parameters.soundIncrement);
+
+ lastImageIndex = curImageIndex;
+ break;
+ case kCreditsStack:
+ curImageIndex = _vm->_varStore->getVar(g_opcode200Parameters.var);
+
+ if (_vm->_system->getMillis() - g_opcode200Parameters.lastCardTime >= 7 * 1000) {
+ // After the 6th image has shown, it's time to quit
+ if (curImageIndex == 7)
+ _vm->_system->quit();
+
+ // Note: The modulus by 6 is because the 6th image is the one at imageBaseId
+ _vm->_gfx->copyImageToScreen(g_opcode200Parameters.imageBaseId + curImageIndex % 6, Common::Rect(0, 0, 544, 333));
+
+ _vm->_varStore->setVar(g_opcode200Parameters.var, curImageIndex + 1);
+ g_opcode200Parameters.lastCardTime = _vm->_system->getMillis();
+ }
+ break;
+ case kMechanicalStack:
+ // Used on Card 6238 (Sirrus' Throne) and Card 6027 (Achenar's Throne)
+ // g_opcode200Parameters.var == 0 for Achenar
+ // g_opcode200Parameters.var == 1 for Sirrus
+
+ // TODO: Fill in Function...
+ // Variable indicates that this is related to Secret Panel State
+ break;
+ case kDemoSlidesStack:
+ // Used on Cards...
+ if (_vm->_system->getMillis() - g_opcode200Parameters.lastCardTime >= 2 * 1000)
+ _vm->changeToCard(g_opcode200Parameters.cardId);
+ break;
+ }
+ }
+}
+
+void MystScriptParser_Myst::opcode_200_disable() {
+ g_opcode200Parameters.enabled = false;
+ g_opcode200Parameters.var = 0;
+ g_opcode200Parameters.imageCount = 0;
+ g_opcode200Parameters.imageBaseId = 0;
+ g_opcode200Parameters.soundDecrement = 0;
+ g_opcode200Parameters.soundIncrement = 0;
+}
+
+void MystScriptParser_Myst::opcode_200(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kIntroStack: // Used on Card 1
+ case kDemoStack: // Used on Card 2000
+ varUnusedCheck(op, var);
+
+ // TODO : Clicking during the intro movies does not stop them and change to Card 5.
+ // This is due to the movies playing blocking, but making them non-blocking causes
+ // the card change here to prevent them playing. Need to move the following to the
+ // opcode_200_run process and wait for all movies to finish playing before the card
+ // change is performed.
+
+ // Play Intro Movies..
+ if ((_vm->getFeatures() & GF_ME) && _vm->getPlatform() == Common::kPlatformMacintosh) {
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("mattel", kIntroStack));
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("presto", kIntroStack));
+ } else
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("broder", kIntroStack));
+
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("cyanlogo", kIntroStack));
+
+ if (!(_vm->getFeatures() & GF_DEMO)) { // The demo doesn't have the intro video
+ if ((_vm->getFeatures() & GF_ME) && _vm->getPlatform() == Common::kPlatformMacintosh)
+ // intro.mov uses Sorenson, introc uses Cinepak. Otherwise, they're the same.
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("introc", kIntroStack));
+ else
+ _vm->_video->playMovieCentered(_vm->wrapMovieFilename("intro", kIntroStack));
+ }
+
+ _vm->changeToCard(_vm->getCurCard()+1);
+ break;
+ case kSeleniticStack:
+ varUnusedCheck(op, var);
+
+ // Used for Card 1191 (Maze Runner)
+ if (argc == 0) {
+ g_opcode200Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ // Used for Card 2013 (Achenar's Rose-Skull Hologram)
+ if (argc == 0) {
+ g_opcode200Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ if (argc == 4) {
+ g_opcode200Parameters.var = var;
+ g_opcode200Parameters.imageCount = argv[0];
+ g_opcode200Parameters.imageBaseId = argv[1];
+ g_opcode200Parameters.soundDecrement = argv[2];
+ g_opcode200Parameters.soundIncrement = argv[3];
+ g_opcode200Parameters.enabled = true;
+
+ _vm->_varStore->setVar(var, 0);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ // Used on Card 6238 (Sirrus' Throne) and Card 6027 (Achenar's Throne)
+ if (argc == 0) {
+ g_opcode200Parameters.var = var;
+ g_opcode200Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDniStack:
+ varUnusedCheck(op, var);
+ // Used on Card 5014
+
+ // TODO: Logic for Atrus Reactions and Movies
+ if (false) {
+ // Var 0 used for Atrus Gone (from across room) 0 = Present, 1 = Not Present
+ // Var 1 used for Myst Book Status 0 = Not Usuable
+ // 1 = Openable, but not linkable (Atrus Gone?)
+ // 2 = Linkable
+ // Var 2 used for Music Type 0 to 2..
+ // Var 106 used for Atrus Static Image State 0 = Initial State
+ // 1 = Holding Out Hand for Page
+ // 2 = Gone, Book Open
+ // 3 = Back #1
+ // 4 = Back #2
+ _vm->_video->playMovie(_vm->wrapMovieFilename("atr1nopg", kDniStack), 215, 77);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("atr1page", kDniStack), 215, 77);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("atrus2", kDniStack), 215, 77);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("atrwrite", kDniStack), 215, 77);
+ }
+ break;
+ case kCreditsStack:
+ if (argc == 0) {
+ g_opcode200Parameters.var = var;
+ // TODO: Pass ImageCount, rather than hardcoded in run process?
+ g_opcode200Parameters.imageBaseId = _vm->getCurCard();
+ g_opcode200Parameters.lastCardTime = _vm->_system->getMillis();
+ g_opcode200Parameters.enabled = true;
+
+ _vm->_varStore->setVar(var, 1);
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoSlidesStack:
+ // Used on Cards...
+ if (argc == 1) {
+ g_opcode200Parameters.cardId = argv[0];
+ g_opcode200Parameters.lastCardTime = _vm->_system->getMillis();
+ g_opcode200Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ uint16 u0;
+ uint16 u1;
+ uint16 u2;
+
+ uint16 lastVar105;
+ uint16 soundId;
+
+ bool enabled;
+} g_opcode201Parameters;
+
+void MystScriptParser_Myst::opcode_201_run() {
+ uint16 var105;
+
+ if (g_opcode201Parameters.enabled) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1191 (Maze Runner)
+
+ // TODO: Fill in Function...
+ break;
+ case kStoneshipStack:
+ // Used for Card 2013 (Achenar's Rose-Skull Hologram)
+
+ // TODO: Fill in Function...
+ break;
+ case kMystStack:
+ var105 = _vm->_varStore->getVar(105);
+ if (var105 && !g_opcode201Parameters.lastVar105)
+ _vm->_sound->playSound(g_opcode201Parameters.soundId);
+ g_opcode201Parameters.lastVar105 = var105;
+ break;
+ case kMechanicalStack:
+ // Used for Card 6159 (Facing Corridor to Fortress Elevator)
+
+ // g_opcode201Parameters.u0
+ // g_opcode201Parameters.u1
+ // g_opcode201Parameters.u2
+
+ // TODO: Fill in Function...
+ break;
+ case kDemoStack:
+ // Used on Card 2001, 2002 and 2003
+
+ // TODO: Fill in Function...
+ break;
+ }
+ }
+}
+
+void MystScriptParser_Myst::opcode_201_disable() {
+ g_opcode201Parameters.enabled = false;
+ g_opcode201Parameters.soundId = 0;
+ g_opcode201Parameters.lastVar105 = 0;
+}
+
+void MystScriptParser_Myst::opcode_201(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kIntroStack:
+ _vm->_system->delayMillis(4 * 1000);
+ _vm->_gfx->copyImageToScreen(4, Common::Rect(0, 0, 544, 333));
+ // TODO : Wait until video ends, then change to card 5
+ break;
+ case kSeleniticStack:
+ // Used for Card 1191 (Maze Runner)
+
+ if (argc == 0) {
+ g_opcode201Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ // Used for Card 2013 (Achenar's Rose-Skull Hologram)
+ if (argc == 0) {
+ g_opcode201Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ // Used for Cards 4257, 4260, 4263, 4266, 4269, 4272, 4275 and 4278 (Ship Puzzle Boxes)
+ if (argc == 1) {
+ g_opcode201Parameters.soundId = argv[0];
+ g_opcode201Parameters.lastVar105 = 0;
+ g_opcode201Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ // Used for Card 6159 (Facing Corridor to Fortress Elevator)
+ if (argc == 3) {
+ g_opcode201Parameters.u0 = argv[0];
+ g_opcode201Parameters.u1 = argv[1];
+ g_opcode201Parameters.u2 = argv[2];
+
+ g_opcode201Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ // Used for Card 3247 (Elevator #1 Movement), 3161 (Bridge Movement), 3259 (Elevator #3 Movement) and 3252 (Elevator #2 Movement)
+ if (argc == 0) {
+ // TODO: Fill in Function. Video Playback? Rect from invoking hotspot resource...
+ if (false) {
+ // Card 3161
+ _vm->_video->playMovie(_vm->wrapMovieFilename("bridge", kChannelwoodStack), 292, 204);
+
+ // Card 3247
+ _vm->_video->playMovie(_vm->wrapMovieFilename("welev1dn", kChannelwoodStack), 214, 107);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("welev1up", kChannelwoodStack), 214, 107);
+
+ // Card 3252
+ _vm->_video->playMovie(_vm->wrapMovieFilename("welev2dn", kChannelwoodStack), 215, 118);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("welev2up", kChannelwoodStack), 215, 118);
+
+ // Card 3259
+ _vm->_video->playMovie(_vm->wrapMovieFilename("welev3dn", kChannelwoodStack), 213, 99);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("welev3up", kChannelwoodStack), 213, 99);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoStack:
+ // Used on Card 2001, 2002 and 2003
+ if (argc == 0) {
+ g_opcode201Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ bool enabled;
+ uint16 var;
+} g_opcode202Parameters;
+
+void MystScriptParser_Myst::opcode_202_run(void) {
+ if (g_opcode202Parameters.enabled) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1191 (Maze Runner)
+
+ // TODO: Fill in function...
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ // Used for Card 4378 (Library Tower Rotation Map)
+ // TODO: Fill in.. Code for Tower Rotation Angle etc..
+ // Var 0, 3, 4, 5, 6, 7, 8, 9 used for Type 8 Image Display
+ // Type 11 Hotspot for control..
+ // Var 304 controls presence of Myst Library Image
+ break;
+ case kMechanicalStack:
+ // Used for Card 6220 (Sirrus' Mechanical Bird)
+ // TODO: Fill in Function
+ break;
+ case kChannelwoodStack:
+ // Used for Cards 3328, 3691, 3731, 3809, 3846 etc. (Water Valves)
+
+ // Code for Water Flow Logic
+ // Var 8 = "Water Tank Valve State"
+ // Controls
+ // Var 19 = "Water Flowing to First Water Valve"
+ // Code for this in Opcode 104 / 122
+
+ // Var 19 = "Water Flowing to First Water Valve"
+ // and
+ // Var 9 = "First Water Valve State"
+ // Controls
+ // Var 20 = "Water Flowing to Second (L) Water Valve"
+ // Var 3 = "Water Flowing (R) to Pump for Upper Walkway to Temple Elevator"
+ uint16 var9 = _vm->_varStore->getVar(9);
+ if (_vm->_varStore->getVar(19)) {
+ _vm->_varStore->setVar(20, !var9);
+ _vm->_varStore->setVar(3, var9);
+ } else {
+ // No water into Valve
+ _vm->_varStore->setVar(20, 0);
+ _vm->_varStore->setVar(3, 0);
+ }
+
+ // Var 20 = "Water Flowing to Second (L) Water Valve"
+ // and
+ // Var 10 = "Second (L) Water Valve State"
+ // Controls
+ // Var 24 = "Water Flowing to Third (L, L) Water Valve"
+ // Var 21 = "Water Flowing to Third (L, R) Water Valve"
+ uint16 var10 = _vm->_varStore->getVar(10);
+ if (_vm->_varStore->getVar(20)) {
+ _vm->_varStore->setVar(24, !var10);
+ _vm->_varStore->setVar(21, var10);
+ } else {
+ // No water into Valve
+ _vm->_varStore->setVar(24, 0);
+ _vm->_varStore->setVar(21, 0);
+ }
+
+ // Var 21 = "Water Flowing to Third (L, R) Water Valve"
+ // and
+ // Var 11 = "Third (L, R) Water Valve State"
+ // Controls
+ // Var 23 = "Water Flowing to Fourth (L, R, L) Water Valve"
+ // Var 22 = "Water Flowing to Fourth (L, R, R) Water Valve"
+ uint16 var11 = _vm->_varStore->getVar(11);
+ if (_vm->_varStore->getVar(21)) {
+ _vm->_varStore->setVar(23, !var11);
+ _vm->_varStore->setVar(22, var11);
+ } else {
+ // No water into Valve
+ _vm->_varStore->setVar(23, 0);
+ _vm->_varStore->setVar(22, 0);
+ }
+
+ // Var 24 = "Water Flowing to Third (L, L) Water Valve"
+ // and
+ // Var 14 = "Third (L, L) Water Valve State"
+ // Controls
+ // Var 29 = "Water Flowing to Pipe In Water (L, L, L)"
+ // Var 28 = "Water Flowing to Join and Pump Bridge (L, L, R)"
+ uint16 var14 = _vm->_varStore->getVar(14);
+ if (_vm->_varStore->getVar(24)) {
+ _vm->_varStore->setVar(29, !var14);
+ _vm->_varStore->setVar(28, var14);
+ } else {
+ // No water into Valve
+ _vm->_varStore->setVar(29, 0);
+ _vm->_varStore->setVar(28, 0);
+ }
+
+ // Var 22 = "Water Flowing to Fourth (L, R, R) Water Valve"
+ // and
+ // Var 12 = "Fourth (L, R, R) Water Valve State"
+ // Controls
+ // Var 25 = "Water Flowing to Pipe Bridge (L, R, R, L)"
+ // Var 15 = "Water Flowing (L, R, R, R) to Pump for Lower Walkway to Upper Walkway Elevator"
+ uint16 var12 = _vm->_varStore->getVar(12);
+ if (_vm->_varStore->getVar(22)) {
+ _vm->_varStore->setVar(25, !var12);
+ _vm->_varStore->setVar(15, var12);
+ } else {
+ // No water into Valve
+ _vm->_varStore->setVar(25, 0);
+ _vm->_varStore->setVar(15, 0);
+ }
+
+ // Var 23 = "Water Flowing to Fourth (L, R, L) Water Valve"
+ // and
+ // Var 13 = "Fourth (L, R, L) Water Valve State"
+ // Controls
+ // Var 27 = "Water Flowing to Join and Pump Bridge (L, R, L, L)"
+ // Var 26 = "Water Flowing to Pipe At Entry Point (L, R, L, R)"
+ uint16 var13 = _vm->_varStore->getVar(13);
+ if (_vm->_varStore->getVar(23)) {
+ _vm->_varStore->setVar(27, !var13);
+ _vm->_varStore->setVar(26, var13);
+ } else {
+ // No water into Valve
+ _vm->_varStore->setVar(27, 0);
+ _vm->_varStore->setVar(26, 0);
+ }
+
+ // TODO: Not sure that original had OR logic for water flow at Join...
+ // Var 27 = "Water Flowing to Join and Pump Bridge (L, R, L, L)"
+ // Or
+ // Var 28 = "Water Flowing to Join and Pump Bridge (L, L, R)"
+ // Controls
+ // Var 31 = "Water Flowing to Join (L, L, R)" // 0 to 2 = Stop Sound, Background, Background with Water Flow
+ // Var 7 = "Bridge Pump Running"
+ // TODO: Not sure about control of Var 31 which is tristate...
+ if (_vm->_varStore->getVar(27) || _vm->_varStore->getVar(28)) {
+ _vm->_varStore->setVar(31, 2); // Background with Water Flow
+ _vm->_varStore->setVar(7, 1);
+ } else {
+ // No water into Valve
+ _vm->_varStore->setVar(31, 1); // Background
+ _vm->_varStore->setVar(7, 0);
+ }
+
+ // TODO: Code for this shouldn't be here...
+ // Move to Opcodes called by Pipe Extension...
+ // Var 25 = "Water Flowing to Pipe Bridge (L, R, R, L)"
+ // and
+ // Var 6 = "Pipe Bridge Extended"
+ // Controls
+ // Var 32 = "Water Flowing (L, R, R, L, Pipe) State" }, // 0 to 2 = Stop Sound, Background, Background with Water Flow
+ // Var 4 = "Water Flowing (L, R, R, L, Pipe Extended) to Pump for Book Room Elevator"
+ // TODO: Not sure about control of Var 32 which is tristate...
+ if (_vm->_varStore->getVar(25) && _vm->_varStore->getVar(6)) {
+ _vm->_varStore->setVar(32, 2); // Background with Water Flow
+ _vm->_varStore->setVar(4, 1);
+ } else {
+ // No water into Valve
+ _vm->_varStore->setVar(32, 1); // Background
+ _vm->_varStore->setVar(4, 0);
+ }
+ break;
+ }
+ }
+}
+
+void MystScriptParser_Myst::opcode_202_disable(void) {
+ g_opcode202Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_202(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ varUnusedCheck(op, var);
+
+ // Used for Card 1191 (Maze Runner)
+ if (argc == 0) {
+ g_opcode202Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ // Used for Card 2160 (Lighthouse Battery Pack Closeup)
+ // TODO: Implement Code...
+ // Not Sure of Purpose - Update of Light / Discharge?
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ varUnusedCheck(op, var);
+
+ // Used for Card 4378 (Library Tower Rotation Map)
+ if (argc == 1) {
+ // TODO: Figure Out argv[0] purpose.. number of image resources?
+ g_opcode202Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ // Used for Card 6220 (Sirrus' Mechanical Bird)
+ if (argc == 0) {
+ g_opcode202Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ // Used for Cards 3328, 3691, 3731, 3809, 3846 etc. (Water Valves)
+ if (argc == 0) {
+ g_opcode202Parameters.var = var;
+ g_opcode202Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ varUnusedCheck(op, var);
+
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ bool enabled;
+} g_opcode203Parameters;
+
+void MystScriptParser_Myst::opcode_203_run(void) {
+ if (g_opcode203Parameters.enabled) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1245 (Sound Receiver)
+ // TODO: Fill in Logic to Change Viewer Display etc.?
+ break;
+ case kMystStack:
+ // Used for Card 4138 (Dock Forechamber Door)
+ // TODO: Fill in Logic. Slide for Dock Forechamber Door?
+ // Original has Left to Right Open Slide and Upon leaving card,
+ // Right to left Slide before card change.
+ //debugC(kDebugScript, "Opcode %d: Clear Dock Forechamber Door Variable", op);
+ //_vm->_varStore->setVar(105, 0);
+ break;
+ case kMechanicalStack:
+ // Used for Card 6043 (Weapons Rack with Snake Box)
+ // TODO: Fill in Logic for Snake Box...
+ break;
+ case kChannelwoodStack:
+ // Used for Card 3310 (Sirrus' Room Right Bed Drawer),
+ // Card 3307 (Sirrus' Room Left Bed Drawer)
+ // and Card 3318 (Sirrus' Room Nightstand Drawer)
+ // TODO: Fill in Logic...
+ break;
+ }
+ }
+}
+
+void MystScriptParser_Myst::opcode_203_disable(void) {
+ g_opcode203Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_203(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ uint16 imageIdDarkDoorOpen = 0;
+ uint16 imageIdDarkDoorClosed = 0;
+
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1245 (Sound Receiver)
+ if (argc == 0) {
+ g_opcode203Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ // Used for all/most Cards in Tunnels Down To Brothers Rooms
+
+ // TODO: Duplicate or similar function to Opcode 203?
+ if (argc == 2 || argc == 4) {
+ debugC(kDebugScript, "Opcode %d: %d Arguments", op, argc);
+
+ uint16 u0 = argv[0];
+ if (argc == 4) {
+ imageIdDarkDoorOpen = argv[1];
+ imageIdDarkDoorClosed = argv[2];
+ }
+ uint16 soundIdAlarm = argv[argc - 1];
+
+ debugC(kDebugScript, "\tu0: %d", u0);
+ if (argc == 4) {
+ debugC(kDebugScript, "\timageIdDarkDoorOpen: %d", imageIdDarkDoorOpen);
+ debugC(kDebugScript, "\tsoundIdDarkDoorClosed: %d", imageIdDarkDoorClosed);
+ }
+ debugC(kDebugScript, "\tsoundIdAlarm: %d", soundIdAlarm);
+
+ // TODO: Fill in Correct Function for Lights
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ // Used for Card 4138 (Dock Forechamber Door)
+ if (argc == 0) {
+ g_opcode203Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ // Used for Card 6043 (Weapons Rack with Snake Box)
+ if (argc == 0) {
+ g_opcode203Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kChannelwoodStack:
+ // Used for Card 3310 (Sirrus' Room Right Bed Drawer),
+ // Card 3307 (Sirrus' Room Left Bed Drawer)
+ // and Card 3318 (Sirrus' Room Nightstand Drawer)
+ if (argc == 0) {
+ g_opcode203Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ bool enabled;
+ uint16 soundId;
+} g_opcode204Parameters;
+
+void MystScriptParser_Myst::opcode_204_run(void) {
+ if (g_opcode204Parameters.enabled) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1147 (Sound Code Lock)
+ // TODO: Fill in code for Sound Lock...
+ break;
+ case kMystStack:
+ // Used for Card 4134 and 4149 (Dock)
+ // TODO: Not sure of function. Not Gulls (at least directly). Fill in Logic.
+ break;
+ case kMechanicalStack:
+ // TODO: Fill in Logic.
+ // Var 12 holds Large Cog Position in range 0 to 5
+ // - For animation
+ // Var 11 holds C position in range 0 to 9
+ // - 4 for Correct Answer
+ // C Movement Sound
+ //_vm->_sound->playSound(g_opcode204Parameters.soundId);
+ break;
+ }
+ }
+}
+
+void MystScriptParser_Myst::opcode_204_disable(void) {
+ g_opcode204Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_204(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1147 (Sound Code Lock)
+ if (argc == 0) {
+ g_opcode204Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ // Used for Card 2160 (Lighthouse Battery Pack Closeup)
+ if (argc == 0) {
+ // TODO: Implement Code For Battery Meter Level
+ // Overwrite _vm->_resources[1]->_subImages[0].rect.bottom 1 to 80
+ // Add accessor functions for this...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ // Used for Card 4134 and 4149 (Dock)
+ break;
+ case kMechanicalStack:
+ // Used for Card 6180 (Lower Elevator Puzzle)
+ if (argc == 1) {
+ g_opcode204Parameters.soundId = argv[0];
+ g_opcode204Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ uint16 soundIdPosition[4];
+
+ bool enabled;
+} g_opcode205Parameters;
+
+void MystScriptParser_Myst::opcode_205_run(void) {
+ if (g_opcode205Parameters.enabled) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1191 (Maze Runner)
+ // TODO: Fill in function...
+ break;
+ case kMystStack:
+ // Used for Card 4532 (Rocketship Piano)
+ // TODO: Fill in function...
+ break;
+ case kMechanicalStack:
+ // Used for Card 6156 (Fortress Rotation Controls)
+ // TODO: Fill in function...
+ // g_opcode205Parameters.soundIdPosition[4]
+ break;
+ }
+ }
+}
+
+void MystScriptParser_Myst::opcode_205_disable(void) {
+ g_opcode205Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_205(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ uint16 imageIdDoorOpen = 0;
+ uint16 imageIdDoorClosed = 0;
+
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1191 (Maze Runner)
+
+ if (argc == 0) {
+ g_opcode205Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ // Used on Cards 2322, 2285 (Tunnels Down To Brothers Rooms)
+
+ // TODO: Duplicate or similar function to Opcode 203?
+ if (argc == 2 || argc == 4) {
+ debugC(kDebugScript, "Opcode %d: %d Arguments", op, argc);
+
+ uint16 u0 = argv[0];
+ if (argc == 4) {
+ imageIdDoorOpen = argv[1];
+ imageIdDoorClosed = argv[2];
+ }
+ uint16 soundIdAlarm = argv[argc - 1];
+
+ debugC(kDebugScript, "\tu0: %d", u0);
+ if (argc == 4) {
+ debugC(kDebugScript, "\timageIdDoorOpen: %d", imageIdDoorOpen);
+ debugC(kDebugScript, "\tsoundIdDoorClosed: %d", imageIdDoorClosed);
+ }
+ debugC(kDebugScript, "\tsoundIdAlarm: %d", soundIdAlarm);
+
+ // TODO: Fill in Correct Function for Lights
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ // Used for Card 4532 (Rocketship Piano)
+
+ if (argc == 0) {
+ g_opcode205Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ // Used for Card 6156 (Fortress Rotation Controls)
+
+ if (argc == 4) {
+ g_opcode205Parameters.soundIdPosition[0] = argv[0];
+ g_opcode205Parameters.soundIdPosition[1] = argv[1];
+ g_opcode205Parameters.soundIdPosition[2] = argv[2];
+ g_opcode205Parameters.soundIdPosition[3] = argv[3];
+
+ g_opcode205Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ uint16 soundIdStart[2];
+ uint16 soundIdPosition[4];
+
+ bool enabled;
+} g_opcode206Parameters;
+
+void MystScriptParser_Myst::opcode_206_run(void) {
+ if (g_opcode206Parameters.enabled) {
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1191 (Maze Runner)
+ // TODO: Fill in function...
+ break;
+ case kMechanicalStack:
+ // Used for Card 6044 (Fortress Rotation Simulator)
+
+ // g_opcode206Parameters.soundIdStart[2]
+ // g_opcode206Parameters.soundIdPosition[4]
+
+ // TODO: Fill in function...
+ break;
+ }
+ }
+}
+
+void MystScriptParser_Myst::opcode_206_disable(void) {
+ g_opcode206Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_206(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kSeleniticStack:
+ // Used for Card 1191 (Maze Runner)
+
+ if (argc == 0) {
+ g_opcode206Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kStoneshipStack:
+ // Used for Cards 2272 and 2234 (Facing Out of Door)
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Unknown, %d Arguments", op, argc);
+ // TODO: Function Unknown...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ // Used for Card 4256 (Butterfly Movie Activation)
+ // TODO: Implement Logic...
+ break;
+ case kMechanicalStack:
+ // Used for Card 6044 (Fortress Rotation Simulator)
+ if (argc == 6) {
+ g_opcode206Parameters.soundIdStart[0] = argv[0];
+ g_opcode206Parameters.soundIdStart[1] = argv[1];
+ g_opcode206Parameters.soundIdPosition[0] = argv[2];
+ g_opcode206Parameters.soundIdPosition[1] = argv[3];
+ g_opcode206Parameters.soundIdPosition[2] = argv[4];
+ g_opcode206Parameters.soundIdPosition[3] = argv[5];
+
+ g_opcode206Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_207(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ // Used for Card 2138 (Lighthouse Key/Chest Animation Logic)
+ // TODO: Fill in function
+ warning("TODO: Opcode 207 Lighthouse Key/Chest Animation Logic");
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_208(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ // Used in Card 2218 (Telescope view)
+ if (argc == 3) {
+ debugC(kDebugScript, "Opcode %d: Telescope View", op);
+ uint16 imagePanorama = argv[0];
+ uint16 imageLighthouseOff = argv[1];
+ uint16 imageLighthouseOn = argv[2];
+
+ debugC(kDebugScript, "Image (Panorama): %d", imagePanorama);
+ debugC(kDebugScript, "Image (Lighthouse Off): %d", imageLighthouseOff);
+ debugC(kDebugScript, "Image (Lighthouse On): %d", imageLighthouseOn);
+
+ // TODO: Fill in Logic.
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Imager Function", op);
+ debugC(kDebugScript, "Var: %d", var);
+
+ // TODO: Fill in Correct Function
+ if (false) {
+ _vm->_video->playMovie(_vm->wrapMovieFilename("vltmntn", kMystStack), 159, 97);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ uint16 u0[5];
+ uint16 u1[5];
+ uint16 stateVar;
+
+ uint16 soundId;
+
+ bool enabled;
+} g_opcode209Parameters;
+
+void MystScriptParser_Myst::opcode_209_run(void) {
+ static bool enabledLast;
+
+ if (g_opcode209Parameters.enabled) {
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ // Used for Card 2004 (Achenar's Room Drawers)
+
+ // TODO: Implement Function...
+ // Swap Open Drawers?
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ // Used for Card 4334 and 4348 (Myst Library Bookcase Door)
+ if (!enabledLast)
+ // TODO: If Variable changed...
+ _vm->_sound->playSound(g_opcode209Parameters.soundId);
+
+ // TODO: Code to trigger Type 6 to play movie...
+ break;
+ case kMechanicalStack:
+ // Used for Card 6044 (Fortress Rotation Simulator)
+
+ // TODO: Implement Function For Secret Panel State as
+ // per Opcode 200 function (Mechanical)
+ break;
+ default:
+ break;
+ }
+ }
+
+ enabledLast = g_opcode209Parameters.enabled;
+}
+
+void MystScriptParser_Myst::opcode_209_disable(void) {
+ g_opcode209Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_209(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ // Used for Card 2004 (Achenar's Room Drawers)
+ if (argc == 11) {
+ g_opcode209Parameters.u0[0] = argv[0];
+ g_opcode209Parameters.u0[1] = argv[1];
+ g_opcode209Parameters.u0[2] = argv[2];
+ g_opcode209Parameters.u0[3] = argv[3];
+ g_opcode209Parameters.u0[4] = argv[4];
+
+ g_opcode209Parameters.u1[0] = argv[5];
+ g_opcode209Parameters.u1[1] = argv[6];
+ g_opcode209Parameters.u1[2] = argv[7];
+ g_opcode209Parameters.u1[3] = argv[8];
+ g_opcode209Parameters.u1[4] = argv[9];
+
+ g_opcode209Parameters.stateVar = argv[10];
+
+ g_opcode209Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ // Used for Card 4334 and 4348 (Myst Library Bookcase Door)
+ if (argc == 1) {
+ g_opcode209Parameters.soundId = argv[0];
+ g_opcode209Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMechanicalStack:
+ // Used for Card 6044 (Fortress Rotation Simulator)
+ if (argc == 0) {
+ g_opcode209Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ bool enabled;
+} g_opcode210Parameters;
+
+void MystScriptParser_Myst::opcode_210_run(void) {
+ if (g_opcode210Parameters.enabled) {
+ // Code for Generator Puzzle
+
+ // Var 52 to 61 Hold Button State for 10 generators
+ // Var 64, 65 - 2 8-Segments for Rocket Power Dial
+ // Var 62, 63 - 2 8-Segments for Power Dial
+ // Var 96, 97 - Needle for Power and Rocket Power Dials
+
+ // Var 44 Holds State for Rocketship
+ // 0 = No Power
+ // 1 = Insufficient Power
+ // 2 = Correct Power i.e. 59V
+
+ // Var 93 Holds Breaker nearest Generator State
+ // Var 94 Holds Breaker nearest Rocket Ship State
+ // 0 = Closed 1 = Open
+
+ const uint16 correctVoltage = 59;
+
+ // Correct Solution is 4, 7, 8, 9 i.e. 16 + 2 + 22 + 19 = 59
+ const uint16 genVoltages[10] = { 10, 7, 8, 16, 5, 1, 2, 22, 19, 9 };
+
+ uint16 powerVoltage = 0;
+ uint16 rocketPowerVoltage = 0;
+
+ // Calculate Power Voltage from Generator Contributions
+ for (byte i = 0; i < ARRAYSIZE(genVoltages); i++)
+ if (_vm->_varStore->getVar(52 + i))
+ powerVoltage += genVoltages[i];
+
+ // Logic for Var 49 - Generator Running Sound Control
+ if (powerVoltage == 0)
+ _vm->_varStore->setVar(49, 0);
+ else
+ _vm->_varStore->setVar(49, 1);
+
+ // TODO: Animation Code to Spin Up and Spin Down LED Dials?
+ // Code For Power Dial Var 62 and 63
+ _vm->_varStore->setVar(62, powerVoltage / 10);
+ _vm->_varStore->setVar(63, powerVoltage % 10);
+ // TODO: Var 96 - Power Needle Logic
+
+ // Code For Breaker Logic
+ if (_vm->_varStore->getVar(93) != 0 || _vm->_varStore->getVar(94) != 0)
+ rocketPowerVoltage = 0;
+ else {
+ if (powerVoltage <= correctVoltage)
+ rocketPowerVoltage = powerVoltage;
+ else {
+ // Blow Generator Room Breaker...
+ _vm->_varStore->setVar(93, 1);
+ // TODO: I think Logic For Blowing Other Breaker etc.
+ // is done in process on Breaker Cards.
+
+ rocketPowerVoltage = 0;
+ }
+ }
+
+ // TODO: Animation Code to Spin Up and Spin Down LED Dials?
+ // Code For Rocket Power Dial
+ _vm->_varStore->setVar(64, rocketPowerVoltage / 10);
+ _vm->_varStore->setVar(65, rocketPowerVoltage % 10);
+ // TODO: Var 97 - Rocket Power Needle Logic
+
+ // Set Rocket Ship Power Based on Power Level
+ if (rocketPowerVoltage == 0)
+ _vm->_varStore->setVar(44, 0);
+ else if (rocketPowerVoltage < correctVoltage)
+ _vm->_varStore->setVar(44, 1);
+ else if (rocketPowerVoltage == correctVoltage)
+ _vm->_varStore->setVar(44, 2);
+ else // Should Not Happen Case
+ _vm->_varStore->setVar(44, 0);
+ }
+}
+
+void MystScriptParser_Myst::opcode_210_disable(void) {
+ g_opcode210Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_210(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kStoneshipStack:
+ varUnusedCheck(op, var);
+
+ // Used in Cards 2205 and 2207 (Cloud Orbs in Sirrus' Room)
+ if (argc == 2) {
+ uint16 soundId = argv[0];
+ uint16 soundIdStopping = argv[1];
+
+ // TODO: Work Out Function i.e. control Var etc.
+ if (false) {
+ _vm->_sound->playSound(soundId);
+ _vm->_sound->playSound(soundIdStopping);
+ }
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ case kMystStack:
+ // Used for Card 4297 (Generator Puzzle)
+ if (argc == 2) {
+ // TODO: Work Out 2 parameters meaning... 16, 17
+ // Script Resources for Generator Spinup and Spindown Sounds?
+ g_opcode210Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ bool enabled;
+} g_opcode211Parameters;
+
+void MystScriptParser_Myst::opcode_211_run(void) {
+ const uint16 imageBaseId = 4779;
+ const uint16 gridBaseLeft = 173;
+ const uint16 gridBaseTop = 168;
+
+ static uint16 lastGridState[6];
+ uint16 gridState[6];
+ uint16 image;
+
+ if (g_opcode211Parameters.enabled) {
+ // Grid uses Var 17 to 22 as bitfields (8 horizontal cells x 6 vertical)
+ for (byte i = 0; i < 6; i++) {
+ gridState[i] = _vm->_varStore->getVar(i + 17);
+
+ if (gridState[i] != lastGridState[i]) {
+ for (byte j = 0; j < 8; j++) {
+ // TODO: Animation Code
+ if ((gridState[i] >> (7 - j)) & 1)
+ image = 16;
+ else
+ image = 0;
+
+ _vm->_gfx->copyImageToScreen(imageBaseId + image, Common::Rect(gridBaseLeft + (j * 26), gridBaseTop + (i * 26), gridBaseLeft + ((j + 1) * 26), gridBaseTop + ((i + 1) * 26)));
+ }
+ }
+
+ lastGridState[i] = gridState[i];
+ }
+
+ // Var 23 contains boolean for whether pattern matches correct book pattern i.e. Pattern 158
+ if (gridState[0] == 0xc3 && gridState[1] == 0x6b && gridState[2] == 0xa3 &&
+ gridState[3] == 0x93 && gridState[4] == 0xcc && gridState[5] == 0xfa)
+ _vm->_varStore->setVar(23, 1);
+ else
+ _vm->_varStore->setVar(23, 0);
+ }
+}
+
+void MystScriptParser_Myst::opcode_211_disable(void) {
+ g_opcode211Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_211(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kDemoPreviewStack:
+ case kMystStack:
+ // Used for Card 4059 (Fireplace Puzzle)
+ if (argc == 0) {
+ for (byte i = 0; i < 6; i++)
+ _vm->_varStore->setVar(i + 17, 0);
+
+ g_opcode211Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+static struct {
+ bool enabled;
+} g_opcode212Parameters;
+
+void MystScriptParser_Myst::opcode_212_run(void) {
+ if (g_opcode212Parameters.enabled) {
+ // TODO: Implement Correct Code for Myst Clock Tower Cog Puzzle
+ // Card 4113
+
+ if (false) {
+ // 3 videos to be played of Cog Movement
+ // TODO: Not 100% sure of movie positions.
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wg1", kMystStack), 220, 50);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wg2", kMystStack), 220, 80);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wg3", kMystStack), 220, 110);
+
+ // 1 video of weight descent
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wlfch", kMystStack), 123, 0);
+
+ // Video of Cog Open on Success
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cl1wggat", kMystStack), 195, 225);
+ // Var 40 set on success
+ _vm->_varStore->setVar(40, 1);
+ }
+ }
+}
+
+void MystScriptParser_Myst::opcode_212_disable(void) {
+ g_opcode212Parameters.enabled = false;
+}
+
+void MystScriptParser_Myst::opcode_212(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4113 (Clock Tower Cog Puzzle)
+ if (argc == 0) {
+ g_opcode212Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_213(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4524 (Dockside Facing Towards Ship)
+ if (argc == 0) {
+ // TODO: Implement Code...
+ // Code for Gull Videos?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_214(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4500 (Stellar Observatory)
+ if (argc == 5) {
+ debugC(kDebugScript, "Opcode %d: Unknown...", op);
+
+ uint16 u0 = argv[0];
+ uint16 u1 = argv[1];
+ uint16 u2 = argv[2];
+ uint16 u3 = argv[3];
+ uint16 u4 = argv[4];
+
+ debugC(kDebugScript, "\tu0: %d", u0);
+ debugC(kDebugScript, "\tu1: %d", u1);
+ debugC(kDebugScript, "\tu2: %d", u2);
+ debugC(kDebugScript, "\tu3: %d", u3);
+ debugC(kDebugScript, "\tu4: %d", u4);
+ // TODO: Complete Implementation...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_215(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4134 (Dock Facing Marker Switch)
+ // TODO: Fill in logic for Gull Videos.
+ // may be offset and overlap and need video update to all these
+ // to run in sequence with opcode215_run() process...
+ if (false) {
+ // All birds(x) videos are 120x48 and played in top right corner of card
+ _vm->_video->playMovie(_vm->wrapMovieFilename("birds1", kMystStack), 544-120-1, 0);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("birds2", kMystStack), 544-120-1, 0);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("birds3", kMystStack), 544-120-1, 0);
+ }
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_216(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Cards 4571 (Channelwood Tree), 4586 (Channelwood Tree),
+ // 4615 (Channelwood Tree) and 4601 (Channelwood Tree)
+ if (argc == 0) {
+ // TODO: Fill in logic for Channelwood Tree Position i.e. Var 72 update // 0 to 12, 4 for Alcove
+ // Based on Timer code and following variables :
+ // 98 "Cabin Boiler Pilot Light Lit"
+ // 99 "Cabin Boiler Gas Valve Position" }, // 0 to 5
+ // 305 "Cabin Boiler Lit" },
+ // 306 "Cabin Boiler Steam Sound Control" }, // 0 to 27
+ // 307 "Cabin Boiler Needle Position i.e. Fully Pressurised" }, // 0 to 1
+
+ // Note : Opcode 218 does boiler update code..
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_217(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4601 (Channelwood Tree)
+ if (argc == 2) {
+ // TODO: Fill in logic for Tree Position Close Up...
+ // 2 arguments: 4, 4
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_218(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4097 (Cabin Boiler)
+ // TODO: Fill in logic
+ if (false) {
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cabfirfr", kMystStack), 254, 244);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cabcgfar", kMystStack), 254, 138);
+ }
+
+ // Used for Card 4098 (Cabin Boiler)
+ // TODO: Fill in logic
+ if (false) {
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cabfire", kMystStack), 240, 279);
+ _vm->_video->playMovie(_vm->wrapMovieFilename("cabingau", kMystStack), 243, 97);
+ }
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_219(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4530 (Rocketship Music Puzzle)
+ if (argc == 5) {
+ debugC(kDebugScript, "Opcode %d: Unknown...", op);
+
+ uint16 u0 = argv[0];
+ uint16 u1 = argv[1];
+ uint16 u2 = argv[2];
+ uint16 u3 = argv[3];
+ uint16 u4 = argv[4];
+
+ debugC(kDebugScript, "\tu0: %d", u0);
+ debugC(kDebugScript, "\tu1: %d", u1);
+ debugC(kDebugScript, "\tu2: %d", u2);
+ debugC(kDebugScript, "\tu3: %d", u3);
+ debugC(kDebugScript, "\tu4: %d", u4);
+ // TODO: Fill in logic...
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_220(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4530 (Rocketship Music Puzzle Video)
+ // TODO: Fill in logic.
+ if (false) {
+ // loop?
+ _vm->_video->playMovie(_vm->wrapMovieFilename("selenbok", kMystStack), 224, 41);
+ }
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_221(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4168 (Green Book Movies)
+ // Movie plays in resource #0 rect
+ // TODO: Not sure if subsection is looped...
+ if (!_vm->_varStore->getVar(302)) {
+ // HACK: Stop Wind Sounds.. Think this is a problem at library entrance.
+ _vm->_sound->stopSound();
+ _vm->_video->playBackgroundMovie(_vm->wrapMovieFilename("atrusbk1", kMystStack), 314, 76);
+ _vm->_varStore->setVar(302, 1);
+ } else {
+ // HACK: Stop Wind Sounds.. Think this is a problem at library entrance.
+ _vm->_sound->stopSound();
+ _vm->_video->playBackgroundMovie(_vm->wrapMovieFilename("atrusbk2", kMystStack), 314, 76);
+ }
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_222(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4141 (Myst Dock Facing Sea)
+ if (argc == 0) {
+ // TODO: Logic for Gull Videos?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_298(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kDemoPreviewStack:
+ // Used for Card 3000 (Closed Myst Book)
+ // TODO: Fill in logic.
+ // Start Voice Over... which controls book opening
+ _vm->_sound->playSound(3001);
+
+ // then link to Myst - Trigger of Hotspot? then opcode 199/196/197 for voice over continue?
+ // TODO: Sync Voice and Actions to Original
+ // TODO: Flash Library Red
+ // TODO: Move to run process based delay to prevent
+ // blocking...
+ _vm->_system->delayMillis(20 * 1000);
+ for (uint16 imageId = 3001; imageId <= 3012; imageId++) {
+ _vm->_gfx->copyImageToScreen(imageId, Common::Rect(0, 0, 544, 333));
+ _vm->_system->delayMillis(5 * 1000);
+ }
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_299(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kDemoPreviewStack:
+ // Used for Card 3002 (Myst Island Overview)
+ // TODO: Fill in logic.
+ // Zoom into Island?
+ // On this card is a Type 8 controlled by Var 0, which
+ // can change the Myst Library to Red..
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_300(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kIntroStack:
+ varUnusedCheck(op, var);
+ // In the original engine, this opcode stopped Intro Movies if playing,
+ // upon card change, but this behaviour is now default in this engine.
+ break;
+ case kDemoPreviewStack:
+ case kMystStack:
+ // Used in Card 4371 (Blue Book) Var = 101
+ // and Card 4363 (Red Book) Var = 100
+ debugC(kDebugScript, "Opcode %d: Book Exit Function...", op);
+ debugC(kDebugScript, "Var: %d", var);
+ // TODO: Fill in Logic
+ break;
+ case kStoneshipStack:
+ // Used in Card 2218 (Telescope view)
+ varUnusedCheck(op, var);
+ // TODO: Fill in Logic. Clearing Variable for View?
+ break;
+ case kMechanicalStack:
+ // Used in Card 6156 (Fortress Elevator View)
+ varUnusedCheck(op, var);
+ // TODO: Fill in Logic. Clearing Variable for View?
+ break;
+ case kChannelwoodStack:
+ // Used in Card 3012 (Achenar's Holoprojector Control)
+ varUnusedCheck(op, var);
+ // TODO: Fill in Logic. Clearing Variable for View?
+ break;
+ case kDniStack:
+ // Used in Card 5014 (Atrus Writing)
+ varUnusedCheck(op, var);
+ // TODO: Fill in Logic.
+ break;
+ case kDemoStack:
+ // Used on Card 2000
+ varUnusedCheck(op, var);
+
+ // TODO: Fill in Function...
+ break;
+ default:
+ varUnusedCheck(op, var);
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_301(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kDemoPreviewStack:
+ case kMystStack:
+ // Used in Cards 4047, 4059, 4060, 4068 and 4080 (Myst Library Books - Open)
+ // TODO: Fill in Logic. Clear Variable on Book exit.. or Copy from duplicate..
+ _vm->_varStore->setVar(0, 1);
+ break;
+ default:
+ varUnusedCheck(op, var);
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_302(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used in Card 4113 (Clock Tower Cog Puzzle)
+ // TODO: Fill in Logic
+ break;
+ default:
+ varUnusedCheck(op, var);
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_303(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4134 (Dock Facing Marker Switch)
+ // Used for Card 4141 (Myst Dock Facing Sea)
+ // In the original engine, this opcode stopped Gull Movies if playing,
+ // upon card change, but this behaviour is now default in this engine.
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_304(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4601 (Channelwood Tree)
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Unknown...", op);
+ // TODO: Logic for clearing variable?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_305(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4601 (Channelwood Tree)
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Unknown...", op);
+ // TODO: Logic for clearing variable?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_306(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4098 (Cabin Boiler Puzzle)
+ // In the original engine, this opcode stopped the Boiler Fire and Meter Needle videos
+ // if playing, upon card change, but this behaviour is now default in this engine.
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_307(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4297 (Generator Room Controls)
+ if (argc == 0) {
+ debugC(kDebugScript, "Opcode %d: Unknown...", op);
+ // TODO: Logic for clearing variable?
+ } else
+ unknown(op, var, argc, argv);
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_308(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4530 (Rocketship Music Sliders)
+ // In the original engine, this opcode stopped the Selenitic Book Movie if playing,
+ // upon card change, but this behaviour is now default in this engine.
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_309(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4168 (Green D'ni Book Open)
+ // In the original engine, this opcode stopped the Green Book Atrus Movies if playing,
+ // upon card change, but this behaviour is now default in this engine.
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+void MystScriptParser_Myst::opcode_312(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ switch (_vm->getCurStack()) {
+ case kMystStack:
+ // Used for Card 4698 (Dock Forechamber Imager)
+ // In the original engine, this opcode stopped the Imager Movie if playing,
+ // especially the hardcoded Topological Extrusion (Mountain) video,
+ // upon card change, but this behaviour is now default in this engine.
+ break;
+ default:
+ unknown(op, var, argc, argv);
+ break;
+ }
+}
+
+} // End of namespace Mohawk
diff --git a/engines/mohawk/myst_scripts_myst.h b/engines/mohawk/myst_scripts_myst.h
new file mode 100644
index 0000000000..c35e40b143
--- /dev/null
+++ b/engines/mohawk/myst_scripts_myst.h
@@ -0,0 +1,164 @@
+/* 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: https://scummvm.svn.sourceforge.net/svnroot/scummvm/scummvm/trunk/engines/mohawk/myst_scripts.h $
+ * $Id: myst_scripts.h 47541 2010-01-25 01:39:44Z lordhoto $
+ *
+ */
+
+#ifndef MYST_SCRIPTS_MYST_H
+#define MYST_SCRIPTS_MYST_H
+
+#include "common/scummsys.h"
+#include "common/util.h"
+#include "mohawk/myst_scripts.h"
+
+namespace Mohawk {
+
+#define DECLARE_OPCODE(x) void x(uint16 op, uint16 var, uint16 argc, uint16 *argv)
+
+class MohawkEngine_Myst;
+struct MystScriptEntry;
+
+class MystScriptParser_Myst : public MystScriptParser {
+public:
+ MystScriptParser_Myst(MohawkEngine_Myst *vm);
+ ~MystScriptParser_Myst();
+
+ void disableInitOpcodes();
+ void runPersistentOpcodes();
+
+private:
+ void setupOpcodes();
+
+ void opcode_200_run();
+ void opcode_200_disable();
+ void opcode_201_run();
+ void opcode_201_disable();
+ void opcode_202_run();
+ void opcode_202_disable();
+ void opcode_203_run();
+ void opcode_203_disable();
+ void opcode_204_run();
+ void opcode_204_disable();
+ void opcode_205_run();
+ void opcode_205_disable();
+ void opcode_206_run();
+ void opcode_206_disable();
+ void opcode_209_run();
+ void opcode_209_disable();
+ void opcode_210_run();
+ void opcode_210_disable();
+ void opcode_211_run();
+ void opcode_211_disable();
+ void opcode_212_run();
+ void opcode_212_disable();
+
+ DECLARE_OPCODE(opcode_100);
+ DECLARE_OPCODE(opcode_101);
+ DECLARE_OPCODE(opcode_102);
+ DECLARE_OPCODE(opcode_103);
+ DECLARE_OPCODE(opcode_104);
+ DECLARE_OPCODE(opcode_105);
+ DECLARE_OPCODE(opcode_106);
+ DECLARE_OPCODE(opcode_107);
+ DECLARE_OPCODE(opcode_108);
+ DECLARE_OPCODE(opcode_109);
+ DECLARE_OPCODE(opcode_110);
+ DECLARE_OPCODE(opcode_111);
+ DECLARE_OPCODE(opcode_112);
+ DECLARE_OPCODE(opcode_113);
+ DECLARE_OPCODE(opcode_114);
+ DECLARE_OPCODE(opcode_115);
+ DECLARE_OPCODE(opcode_116);
+ DECLARE_OPCODE(opcode_117);
+ DECLARE_OPCODE(opcode_118);
+ DECLARE_OPCODE(opcode_119);
+ DECLARE_OPCODE(opcode_120);
+ DECLARE_OPCODE(opcode_121);
+ DECLARE_OPCODE(opcode_122);
+ DECLARE_OPCODE(opcode_123);
+ DECLARE_OPCODE(opcode_124);
+ DECLARE_OPCODE(opcode_125);
+ DECLARE_OPCODE(opcode_126);
+ DECLARE_OPCODE(opcode_127);
+ DECLARE_OPCODE(opcode_128);
+ DECLARE_OPCODE(opcode_129);
+ DECLARE_OPCODE(opcode_130);
+ DECLARE_OPCODE(opcode_131);
+ DECLARE_OPCODE(opcode_132);
+ DECLARE_OPCODE(opcode_133);
+ DECLARE_OPCODE(opcode_147);
+ DECLARE_OPCODE(opcode_164);
+ DECLARE_OPCODE(opcode_169);
+ DECLARE_OPCODE(opcode_181);
+ DECLARE_OPCODE(opcode_182);
+ DECLARE_OPCODE(opcode_183);
+ DECLARE_OPCODE(opcode_184);
+ DECLARE_OPCODE(opcode_185);
+ DECLARE_OPCODE(opcode_196);
+ DECLARE_OPCODE(opcode_197);
+ DECLARE_OPCODE(opcode_198);
+ DECLARE_OPCODE(opcode_199);
+
+ DECLARE_OPCODE(opcode_200);
+ DECLARE_OPCODE(opcode_201);
+ DECLARE_OPCODE(opcode_202);
+ DECLARE_OPCODE(opcode_203);
+ DECLARE_OPCODE(opcode_204);
+ DECLARE_OPCODE(opcode_205);
+ DECLARE_OPCODE(opcode_206);
+ DECLARE_OPCODE(opcode_207);
+ DECLARE_OPCODE(opcode_208);
+ DECLARE_OPCODE(opcode_209);
+ DECLARE_OPCODE(opcode_210);
+ DECLARE_OPCODE(opcode_211);
+ DECLARE_OPCODE(opcode_212);
+ DECLARE_OPCODE(opcode_213);
+ DECLARE_OPCODE(opcode_214);
+ DECLARE_OPCODE(opcode_215);
+ DECLARE_OPCODE(opcode_216);
+ DECLARE_OPCODE(opcode_217);
+ DECLARE_OPCODE(opcode_218);
+ DECLARE_OPCODE(opcode_219);
+ DECLARE_OPCODE(opcode_220);
+ DECLARE_OPCODE(opcode_221);
+ DECLARE_OPCODE(opcode_222);
+ DECLARE_OPCODE(opcode_298);
+ DECLARE_OPCODE(opcode_299);
+
+ DECLARE_OPCODE(opcode_300);
+ DECLARE_OPCODE(opcode_301);
+ DECLARE_OPCODE(opcode_302);
+ DECLARE_OPCODE(opcode_303);
+ DECLARE_OPCODE(opcode_304);
+ DECLARE_OPCODE(opcode_305);
+ DECLARE_OPCODE(opcode_306);
+ DECLARE_OPCODE(opcode_307);
+ DECLARE_OPCODE(opcode_308);
+ DECLARE_OPCODE(opcode_309);
+ DECLARE_OPCODE(opcode_312);
+};
+
+}
+
+#undef DECLARE_OPCODE
+
+#endif
diff --git a/engines/mohawk/myst_scripts_selenitic.cpp b/engines/mohawk/myst_scripts_selenitic.cpp
new file mode 100644
index 0000000000..c2b42f844e
--- /dev/null
+++ b/engines/mohawk/myst_scripts_selenitic.cpp
@@ -0,0 +1,544 @@
+/* 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: https://scummvm.svn.sourceforge.net/svnroot/scummvm/scummvm/trunk/engines/mohawk/myst_scripts.cpp $
+ * $Id: myst_scripts.cpp 54107 2010-11-07 01:03:29Z fingolfin $
+ *
+ */
+
+#include "mohawk/myst.h"
+#include "mohawk/graphics.h"
+#include "mohawk/myst_scripts_selenitic.h"
+#include "mohawk/sound.h"
+#include "mohawk/video.h"
+
+#include "gui/message.h"
+
+namespace Mohawk {
+
+#define OPCODE(op, x) { op, &MystScriptParser::x, #x }
+#define SPECIFIC_OPCODE(op, x) { op, (OpcodeProcMyst) &MystScriptParser_Selenitic::x, #x }
+
+MystScriptParser_Selenitic::MystScriptParser_Selenitic(MohawkEngine_Myst *vm) : MystScriptParser(vm) {
+ setupOpcodes();
+ _invokingResource = NULL;
+}
+
+MystScriptParser_Selenitic::~MystScriptParser_Selenitic() {
+}
+
+void MystScriptParser_Selenitic::setupOpcodes() {
+ // "invalid" opcodes do not exist or have not been observed
+ // "unknown" opcodes exist, but their meaning is unknown
+
+ static const MystOpcode myst_opcodes[] = {
+ // "Standard" Opcodes
+ { 0, &MystScriptParser::toggleBoolean, "toggleBoolean" },
+ //OPCODE(0, toggleBoolean),
+ OPCODE(1, setVar),
+ OPCODE(2, altDest),
+ OPCODE(3, takePage),
+ OPCODE(4, opcode_4),
+ // TODO: Opcode 5 Not Present
+ OPCODE(6, opcode_6),
+ OPCODE(7, opcode_7),
+ OPCODE(8, opcode_8),
+ OPCODE(9, opcode_9),
+ // TODO: Opcode 10 to 11 Not Present
+ OPCODE(12, altDest),
+ OPCODE(13, altDest),
+ OPCODE(14, opcode_14),
+ OPCODE(15, dropPage),
+ OPCODE(16, opcode_16),
+ OPCODE(17, opcode_17),
+ OPCODE(18, opcode_18),
+ OPCODE(19, enableHotspots),
+ OPCODE(20, disableHotspots),
+ OPCODE(21, opcode_21),
+ OPCODE(22, opcode_22),
+ OPCODE(23, opcode_23),
+ OPCODE(24, playSound),
+ // TODO: Opcode 25 Not Present
+ OPCODE(26, opcode_26),
+ OPCODE(27, playSoundBlocking),
+ OPCODE(28, opcode_28),
+ OPCODE(29, opcode_29_33),
+ OPCODE(30, opcode_30),
+ OPCODE(31, opcode_31),
+ OPCODE(32, opcode_32),
+ OPCODE(33, opcode_29_33),
+ OPCODE(34, opcode_34),
+ OPCODE(35, opcode_35),
+ OPCODE(36, changeCursor),
+ OPCODE(37, hideCursor),
+ OPCODE(38, showCursor),
+ OPCODE(39, opcode_39),
+ OPCODE(40, changeStack),
+ OPCODE(41, opcode_41),
+ OPCODE(42, opcode_42),
+ OPCODE(43, opcode_43),
+ OPCODE(44, opcode_44),
+ // TODO: Opcode 45 Not Present
+ OPCODE(46, opcode_46),
+ // TODO: Opcodes 47 to 99 Not Present
+
+ // "Stack-Specific" Opcodes
+ SPECIFIC_OPCODE(101, opcode_101),
+ SPECIFIC_OPCODE(105, opcode_105),
+ SPECIFIC_OPCODE(106, opcode_106),
+ SPECIFIC_OPCODE(107, opcode_107),
+ SPECIFIC_OPCODE(108, opcode_108),
+ SPECIFIC_OPCODE(109, opcode_109),
+ SPECIFIC_OPCODE(110, opcode_110),
+ SPECIFIC_OPCODE(111, opcode_111),
+ SPECIFIC_OPCODE(115, opcode_115),
+
+ // "Init" Opcodes
+ SPECIFIC_OPCODE(200, opcode_200),
+ SPECIFIC_OPCODE(201, opcode_201),
+ SPECIFIC_OPCODE(202, opcode_202),
+ SPECIFIC_OPCODE(203, opcode_203),
+ SPECIFIC_OPCODE(204, opcode_204),
+ SPECIFIC_OPCODE(205, opcode_205),
+ SPECIFIC_OPCODE(206, opcode_206),
+
+ OPCODE(0xFFFF, NOP)
+ };
+
+ _opcodes = myst_opcodes;
+ _opcodeCount = ARRAYSIZE(myst_opcodes);
+}
+
+void MystScriptParser_Selenitic::disableInitOpcodes() {
+ opcode_200_disable();
+ opcode_201_disable();
+ opcode_202_disable();
+ opcode_203_disable();
+ opcode_204_disable();
+ opcode_205_disable();
+ opcode_206_disable();
+}
+
+void MystScriptParser_Selenitic::runPersistentOpcodes() {
+ opcode_200_run();
+ opcode_201_run();
+ opcode_202_run();
+ opcode_203_run();
+ opcode_204_run();
+ opcode_205_run();
+ opcode_206_run();
+}
+
+void MystScriptParser_Selenitic::opcode_101(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ if (argc == 0) {
+ // Used on Card 1191 (Maze Runner)
+ // Called when Red Warning Button is pushed
+
+ debugC(kDebugScript, "Opcode %d: Repeat Buzzer Sound?", op);
+
+ // TODO: Fill in logic...
+ // Repeat buzzer sound
+ } else
+ unknown(op, var, argc, argv);
+}
+
+void MystScriptParser_Selenitic::opcode_105(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Water Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+}
+
+void MystScriptParser_Selenitic::opcode_106(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Volcanic Crack Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+}
+
+void MystScriptParser_Selenitic::opcode_107(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Clock Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+}
+
+void MystScriptParser_Selenitic::opcode_108(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Crystal Rocks Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+}
+
+void MystScriptParser_Selenitic::opcode_109(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ if (argc == 1) {
+ uint16 soundId = argv[0];
+
+ debugC(kDebugScript, "Opcode %d: Sound Receiver Wind Button", op);
+ debugC(kDebugScript, "\tvar: %d", var);
+
+ // TODO: Complete Function including Var Change?
+ _vm->_sound->playSound(soundId);
+ } else
+ unknown(op, var, argc, argv);
+}
+
+void MystScriptParser_Selenitic::opcode_110(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ if (argc == 15) {
+ // Used for Selenitic Maze Runner Exit Logic
+ uint16 CardIdEntry = argv[0];
+ uint16 CardIdExit = argv[1];
+ uint16 u0 = argv[2];
+ Common::Rect rect1 = Common::Rect(argv[3], argv[4], argv[5], argv[6]);
+ uint16 rect1UpdateDirection = argv[7];
+ uint16 u1 = argv[8];
+ Common::Rect rect2 = Common::Rect(argv[9], argv[10], argv[11], argv[12]);
+ uint16 rect2UpdateDirection = argv[13];
+ uint16 u2 = argv[14];
+
+ debugC(kDebugScript, "Opcode %d: Maze Runner Exit Logic and Door Open Animation", op);
+ debugC(kDebugScript, "\tExit Card: %d", CardIdEntry);
+ debugC(kDebugScript, "\tEntry Card: %d", CardIdExit);
+ debugC(kDebugScript, "\tu0 (Exit Var?): %d", u0);
+
+ debugC(kDebugScript, "\trect1.left: %d", rect1.left);
+ debugC(kDebugScript, "\trect1.top: %d", rect1.top);
+ debugC(kDebugScript, "\trect1.right: %d", rect1.right);
+ debugC(kDebugScript, "\trect1.bottom: %d", rect1.bottom);
+ debugC(kDebugScript, "\trect1 updateDirection: %d", rect1UpdateDirection);
+ debugC(kDebugScript, "\tu1: %d", u1);
+
+ debugC(kDebugScript, "\trect2.left: %d", rect2.left);
+ debugC(kDebugScript, "\trect2.top: %d", rect2.top);
+ debugC(kDebugScript, "\trect2.right: %d", rect2.right);
+ debugC(kDebugScript, "\trect2.bottom: %d", rect2.bottom);
+ debugC(kDebugScript, "\trect2 updateDirection: %d", rect2UpdateDirection);
+ debugC(kDebugScript, "\tu2: %d", u2);
+
+ // TODO: Finish Implementing Logic...
+ // HACK: Bypass Higher Logic for now...
+ _vm->changeToCard(argv[1]);
+ } else
+ unknown(op, var, argc, argv);
+}
+
+void MystScriptParser_Selenitic::opcode_111(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ if (argc == 0) {
+ // Used on Card 1245 (Sound Receiver)
+ // Used by Source Selection Buttons...
+
+ debugC(kDebugScript, "Opcode %d: Unknown", op);
+ // TODO: Fill in Function...
+ } else
+ unknown(op, var, argc, argv);
+}
+
+void MystScriptParser_Selenitic::opcode_115(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ if (argc == 11) {
+ // Used for Selenitic Card 1147 (Musical Door Lock Button)
+ uint16 imageIdClose = argv[0]; // TODO: Sound Id?
+ uint16 imageIdOpen = argv[1]; // TODO: Sound Id?
+
+ uint16 cardIdOpen = argv[2];
+
+ uint16 u0 = argv[3];
+ uint16 u1 = argv[4];
+
+ Common::Rect rect = Common::Rect(argv[5], argv[6], argv[7], argv[8]);
+
+ uint16 updateDirection = argv[9];
+ uint16 u2 = argv[10];
+
+ debugC(kDebugScript, "Music Door Lock Logic...");
+ debugC(kDebugScript, "\timageId (Close): %d", imageIdClose);
+ debugC(kDebugScript, "\timageId (Open): %d", imageIdOpen);
+ debugC(kDebugScript, "\tcardId (Open): %d", cardIdOpen);
+ debugC(kDebugScript, "\tu0: %d", u0);
+ debugC(kDebugScript, "\tu1: %d", u1);
+
+ debugC(kDebugScript, "\trect.left: %d", rect.left);
+ debugC(kDebugScript, "\trect.top: %d", rect.top);
+ debugC(kDebugScript, "\trect.right: %d", rect.right);
+ debugC(kDebugScript, "\trect.bottom: %d", rect.bottom);
+ debugC(kDebugScript, "\trect updateDirection: %d", updateDirection);
+ debugC(kDebugScript, "\tu2: %d", u2);
+
+ // TODO: Fix Logic...
+ // HACK: Bypass Door Lock For Now
+ _vm->changeToCard(cardIdOpen);
+ } else
+ unknown(op, var, argc, argv);
+}
+
+// Selenitic Stack Movies For Maze Runner (Card 1191)
+static const char* kHCMovPathSelenitic[36] = {
+ "backa1",
+ "backe1",
+ "backf0",
+ "backf1",
+ "backl0",
+ "backl1",
+ "backo0",
+ "backo1",
+ "backp0",
+ "backp1",
+ "backr0",
+ "backr1",
+ "backs0",
+ "backs1",
+ "forwa1",
+ "forwe0",
+ "forwf0",
+ "forwf1",
+ "forwl0",
+ "forwl1",
+ "forwo0",
+ "forwo1",
+ "forwp0",
+ "forwp1",
+ "forwr0",
+ "forwr1",
+ "forws0",
+ "forws1",
+ "left00",
+ "left01",
+ "left10",
+ "left11",
+ "right00",
+ "right01",
+ "right10",
+ "right11"
+};
+
+static struct {
+ bool enabled;
+} g_opcode200Parameters;
+
+void MystScriptParser_Selenitic::opcode_200_run() {
+ if (g_opcode200Parameters.enabled) {
+ // Used on Card 1191 (Maze Runner)
+
+ // TODO: Implementation Movie Function..
+ if (false) {
+ _vm->_video->playMovie(_vm->wrapMovieFilename(kHCMovPathSelenitic[0], kSeleniticStack), 201, 26);
+ }
+ }
+}
+
+void MystScriptParser_Selenitic::opcode_200_disable() {
+ g_opcode200Parameters.enabled = false;
+}
+
+void MystScriptParser_Selenitic::opcode_200(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ // Used for Card 1191 (Maze Runner)
+ if (argc == 0) {
+ g_opcode200Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+}
+
+static struct {
+ bool enabled;
+} g_opcode201Parameters;
+
+void MystScriptParser_Selenitic::opcode_201_run() {
+
+ if (g_opcode201Parameters.enabled) {
+ // Used for Card 1191 (Maze Runner)
+
+ // TODO: Fill in Function...
+ }
+}
+
+void MystScriptParser_Selenitic::opcode_201_disable() {
+ g_opcode201Parameters.enabled = false;
+}
+
+void MystScriptParser_Selenitic::opcode_201(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ // Used for Card 1191 (Maze Runner)
+
+ if (argc == 0) {
+ g_opcode201Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+}
+
+static struct {
+ bool enabled;
+} g_opcode202Parameters;
+
+void MystScriptParser_Selenitic::opcode_202_run(void) {
+ if (g_opcode202Parameters.enabled) {
+ // Used for Card 1191 (Maze Runner)
+
+ // TODO: Fill in function...
+ }
+}
+
+void MystScriptParser_Selenitic::opcode_202_disable(void) {
+ g_opcode202Parameters.enabled = false;
+}
+
+void MystScriptParser_Selenitic::opcode_202(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ // Used for Card 1191 (Maze Runner)
+ if (argc == 0) {
+ g_opcode202Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+}
+
+static struct {
+ bool enabled;
+} g_opcode203Parameters;
+
+void MystScriptParser_Selenitic::opcode_203_run(void) {
+ if (g_opcode203Parameters.enabled) {
+ // Used for Card 1245 (Sound Receiver)
+ // TODO: Fill in Logic to Change Viewer Display etc.?
+ }
+}
+
+void MystScriptParser_Selenitic::opcode_203_disable(void) {
+ g_opcode203Parameters.enabled = false;
+}
+
+void MystScriptParser_Selenitic::opcode_203(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ // Used for Card 1245 (Sound Receiver)
+ if (argc == 0) {
+ g_opcode203Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+}
+
+static struct {
+ bool enabled;
+} g_opcode204Parameters;
+
+void MystScriptParser_Selenitic::opcode_204_run(void) {
+ if (g_opcode204Parameters.enabled) {
+ // Used for Card 1147 (Sound Code Lock)
+ // TODO: Fill in code for Sound Lock...
+ }
+}
+
+void MystScriptParser_Selenitic::opcode_204_disable(void) {
+ g_opcode204Parameters.enabled = false;
+}
+
+void MystScriptParser_Selenitic::opcode_204(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ // Used for Card 1147 (Sound Code Lock)
+ if (argc == 0) {
+ g_opcode204Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+}
+
+static struct {
+ bool enabled;
+} g_opcode205Parameters;
+
+void MystScriptParser_Selenitic::opcode_205_run(void) {
+ if (g_opcode205Parameters.enabled) {
+ // Used for Card 1191 (Maze Runner)
+ // TODO: Fill in function...
+ }
+}
+
+void MystScriptParser_Selenitic::opcode_205_disable(void) {
+ g_opcode205Parameters.enabled = false;
+}
+
+void MystScriptParser_Selenitic::opcode_205(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ // Used for Card 1191 (Maze Runner)
+ if (argc == 0) {
+ g_opcode205Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+}
+
+static struct {
+ bool enabled;
+} g_opcode206Parameters;
+
+void MystScriptParser_Selenitic::opcode_206_run(void) {
+ if (g_opcode206Parameters.enabled) {
+ // Used for Card 1191 (Maze Runner)
+ // TODO: Fill in function...
+ }
+}
+
+void MystScriptParser_Selenitic::opcode_206_disable(void) {
+ g_opcode206Parameters.enabled = false;
+}
+
+void MystScriptParser_Selenitic::opcode_206(uint16 op, uint16 var, uint16 argc, uint16 *argv) {
+ varUnusedCheck(op, var);
+
+ // Used for Card 1191 (Maze Runner)
+
+ if (argc == 0) {
+ g_opcode206Parameters.enabled = true;
+ } else
+ unknown(op, var, argc, argv);
+}
+
+} // End of namespace Mohawk
diff --git a/engines/mohawk/myst_scripts_selenitic.h b/engines/mohawk/myst_scripts_selenitic.h
new file mode 100644
index 0000000000..6295d6b913
--- /dev/null
+++ b/engines/mohawk/myst_scripts_selenitic.h
@@ -0,0 +1,89 @@
+/* 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: https://scummvm.svn.sourceforge.net/svnroot/scummvm/scummvm/trunk/engines/mohawk/myst_scripts.h $
+ * $Id: myst_scripts.h 47541 2010-01-25 01:39:44Z lordhoto $
+ *
+ */
+
+#ifndef MYST_SCRIPTS_SELENITIC_H
+#define MYST_SCRIPTS_SELENITIC_H
+
+#include "common/scummsys.h"
+#include "common/util.h"
+#include "mohawk/myst_scripts.h"
+
+namespace Mohawk {
+
+#define DECLARE_OPCODE(x) void x(uint16 op, uint16 var, uint16 argc, uint16 *argv)
+
+class MohawkEngine_Myst;
+struct MystScriptEntry;
+
+class MystScriptParser_Selenitic : public MystScriptParser {
+public:
+ MystScriptParser_Selenitic(MohawkEngine_Myst *vm);
+ ~MystScriptParser_Selenitic();
+
+ void disableInitOpcodes();
+ void runPersistentOpcodes();
+
+private:
+ void setupOpcodes();
+
+ void opcode_200_run();
+ void opcode_200_disable();
+ void opcode_201_run();
+ void opcode_201_disable();
+ void opcode_202_run();
+ void opcode_202_disable();
+ void opcode_203_run();
+ void opcode_203_disable();
+ void opcode_204_run();
+ void opcode_204_disable();
+ void opcode_205_run();
+ void opcode_205_disable();
+ void opcode_206_run();
+ void opcode_206_disable();
+
+ DECLARE_OPCODE(opcode_101);
+ DECLARE_OPCODE(opcode_105);
+ DECLARE_OPCODE(opcode_106);
+ DECLARE_OPCODE(opcode_107);
+ DECLARE_OPCODE(opcode_108);
+ DECLARE_OPCODE(opcode_109);
+ DECLARE_OPCODE(opcode_110);
+ DECLARE_OPCODE(opcode_111);
+ DECLARE_OPCODE(opcode_115);
+
+ DECLARE_OPCODE(opcode_200);
+ DECLARE_OPCODE(opcode_201);
+ DECLARE_OPCODE(opcode_202);
+ DECLARE_OPCODE(opcode_203);
+ DECLARE_OPCODE(opcode_204);
+ DECLARE_OPCODE(opcode_205);
+ DECLARE_OPCODE(opcode_206);
+};
+
+}
+
+#undef DECLARE_OPCODE
+
+#endif