mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-30 14:14:43 +00:00
438 lines
9.2 KiB
C++
438 lines
9.2 KiB
C++
/* ScummVM - Scumm Interpreter
|
|
* Copyright (C) 2001 Ludvig Strigeus
|
|
* Copyright (C) 2001-2006 The ScummVM project
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU General Public License
|
|
* as published by the Free Software Foundation; either version 2
|
|
* of the License, or (at your option) any later version.
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
*
|
|
* $URL$
|
|
* $Id$
|
|
*
|
|
*/
|
|
|
|
#include "common/stdafx.h"
|
|
|
|
#include "common/system.h"
|
|
|
|
#include "agos/agos.h"
|
|
|
|
namespace AGOS {
|
|
|
|
#define OPCODE(x) _OPCODE(AGOSEngine_Waxworks, x)
|
|
|
|
void AGOSEngine_Waxworks::setupOpcodes() {
|
|
static const OpcodeEntryWaxworks opcodes[] = {
|
|
/* 00 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_at),
|
|
OPCODE(o_notAt),
|
|
OPCODE(o_invalid),
|
|
/* 04 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_carried),
|
|
OPCODE(o_notCarried),
|
|
OPCODE(o_isAt),
|
|
/* 08 */
|
|
OPCODE(oe1_isNotAt),
|
|
OPCODE(oe1_sibling),
|
|
OPCODE(oe1_notSibling),
|
|
OPCODE(o_zero),
|
|
/* 12 */
|
|
OPCODE(o_notZero),
|
|
OPCODE(o_eq),
|
|
OPCODE(o_notEq),
|
|
OPCODE(o_gt),
|
|
/* 16 */
|
|
OPCODE(o_lt),
|
|
OPCODE(o_eqf),
|
|
OPCODE(o_notEqf),
|
|
OPCODE(o_ltf),
|
|
/* 20 */
|
|
OPCODE(o_gtf),
|
|
OPCODE(oe1_isIn),
|
|
OPCODE(oe1_isNotIn),
|
|
OPCODE(o_chance),
|
|
/* 24 */
|
|
OPCODE(oe1_isPlayer),
|
|
OPCODE(o_isRoom),
|
|
OPCODE(o_isObject),
|
|
OPCODE(o_state),
|
|
/* 28 */
|
|
OPCODE(o_oflag),
|
|
OPCODE(oe1_canPut),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_destroy),
|
|
/* 32 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_place),
|
|
OPCODE(oe1_copyof),
|
|
OPCODE(oe1_copyfo),
|
|
/* 36 */
|
|
OPCODE(o_copyff),
|
|
OPCODE(oe1_whatO),
|
|
OPCODE(o_invalid),
|
|
OPCODE(oe1_weigh),
|
|
/* 40 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_clear),
|
|
OPCODE(o_let),
|
|
OPCODE(o_add),
|
|
/* 44 */
|
|
OPCODE(o_sub),
|
|
OPCODE(o_addf),
|
|
OPCODE(o_subf),
|
|
OPCODE(o_mul),
|
|
/* 48 */
|
|
OPCODE(o_div),
|
|
OPCODE(o_mulf),
|
|
OPCODE(o_divf),
|
|
OPCODE(o_mod),
|
|
/* 52 */
|
|
OPCODE(o_modf),
|
|
OPCODE(o_random),
|
|
OPCODE(oe2_moveDirn),
|
|
OPCODE(oww_goto),
|
|
/* 56 */
|
|
OPCODE(o_oset),
|
|
OPCODE(o_oclear),
|
|
OPCODE(o_putBy),
|
|
OPCODE(o_inc),
|
|
/* 60 */
|
|
OPCODE(o_dec),
|
|
OPCODE(o_setState),
|
|
OPCODE(o_print),
|
|
OPCODE(o_message),
|
|
/* 64 */
|
|
OPCODE(o_msg),
|
|
OPCODE(oww_addTextBox),
|
|
OPCODE(oww_setShortText),
|
|
OPCODE(oww_setLongText),
|
|
/* 68 */
|
|
OPCODE(o_end),
|
|
OPCODE(o_done),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_process),
|
|
/* 72 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
/* 76 */
|
|
OPCODE(o_when),
|
|
OPCODE(o_if1),
|
|
OPCODE(o_if2),
|
|
OPCODE(o_isCalled),
|
|
/* 80 */
|
|
OPCODE(o_is),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_debug),
|
|
OPCODE(oe1_rescan),
|
|
/* 84 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(oww_whereTo),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_comment),
|
|
/* 88 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(oe2_loadGame),
|
|
OPCODE(o_getParent),
|
|
OPCODE(o_getNext),
|
|
/* 92 */
|
|
OPCODE(o_getChildren),
|
|
OPCODE(o_invalid),
|
|
OPCODE(oe1_findMaster),
|
|
OPCODE(oe1_nextMaster),
|
|
/* 96 */
|
|
OPCODE(o_picture),
|
|
OPCODE(o_loadZone),
|
|
OPCODE(oe1_animate),
|
|
OPCODE(oe1_stopAnimate),
|
|
/* 100 */
|
|
OPCODE(o_killAnimate),
|
|
OPCODE(o_defWindow),
|
|
OPCODE(o_window),
|
|
OPCODE(o_cls),
|
|
/* 104 */
|
|
OPCODE(o_closeWindow),
|
|
OPCODE(oww_menu),
|
|
OPCODE(oww_textMenu),
|
|
OPCODE(o_addBox),
|
|
/* 108 */
|
|
OPCODE(o_delBox),
|
|
OPCODE(o_enableBox),
|
|
OPCODE(o_disableBox),
|
|
OPCODE(o_moveBox),
|
|
/* 112 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_doIcons),
|
|
OPCODE(o_isClass),
|
|
/* 116 */
|
|
OPCODE(o_setClass),
|
|
OPCODE(o_unsetClass),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_waitSync),
|
|
/* 120 */
|
|
OPCODE(o_sync),
|
|
OPCODE(o_defObj),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
/* 124 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_here),
|
|
OPCODE(o_doClassIcons),
|
|
OPCODE(o_playTune),
|
|
/* 128 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_setAdjNoun),
|
|
OPCODE(o_invalid),
|
|
/* 132 */
|
|
OPCODE(o_saveUserGame),
|
|
OPCODE(o_loadUserGame),
|
|
OPCODE(o_invalid),
|
|
OPCODE(oww_pauseGame),
|
|
/* 136 */
|
|
OPCODE(o_copysf),
|
|
OPCODE(o_restoreIcons),
|
|
OPCODE(o_freezeZones),
|
|
OPCODE(o_placeNoIcons),
|
|
/* 140 */
|
|
OPCODE(o_clearTimers),
|
|
OPCODE(o_setDollar),
|
|
OPCODE(o_isBox),
|
|
OPCODE(oe2_doTable),
|
|
/* 144 */
|
|
OPCODE(oe2_setDoorOpen),
|
|
OPCODE(oe2_setDoorClosed),
|
|
OPCODE(oe2_setDoorLocked),
|
|
OPCODE(oe2_setDoorClosed),
|
|
/* 148 */
|
|
OPCODE(oe2_ifDoorOpen),
|
|
OPCODE(oe2_ifDoorClosed),
|
|
OPCODE(oe2_ifDoorLocked),
|
|
OPCODE(oe2_storeItem),
|
|
/* 152 */
|
|
OPCODE(oe2_getItem),
|
|
OPCODE(oe2_bSet),
|
|
OPCODE(oe2_bClear),
|
|
OPCODE(oe2_bZero),
|
|
/* 156 */
|
|
OPCODE(oe2_bNotZero),
|
|
OPCODE(oe2_getOValue),
|
|
OPCODE(oe2_setOValue),
|
|
OPCODE(o_invalid),
|
|
/* 160 */
|
|
OPCODE(oe2_ink),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
/* 164 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
/* 168 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
/* 172 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(oe2_getDollar2),
|
|
/* 176 */
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(o_invalid),
|
|
OPCODE(oe2_isAdjNoun),
|
|
/* 180 */
|
|
OPCODE(oe2_b2Set),
|
|
OPCODE(oe2_b2Clear),
|
|
OPCODE(oe2_b2Zero),
|
|
OPCODE(oe2_b2NotZero),
|
|
/* 184 */
|
|
OPCODE(oww_boxMessage),
|
|
OPCODE(oww_boxMsg),
|
|
OPCODE(oww_boxLongText),
|
|
OPCODE(oww_printBox),
|
|
/* 188 */
|
|
OPCODE(oww_boxPObj),
|
|
OPCODE(oww_lockZones),
|
|
OPCODE(oww_unlockZones),
|
|
};
|
|
|
|
_opcodesWaxworks = opcodes;
|
|
_numOpcodes = 191;
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::executeOpcode(int opcode) {
|
|
OpcodeProcWaxworks op = _opcodesWaxworks[opcode].proc;
|
|
(this->*op) ();
|
|
}
|
|
|
|
// -----------------------------------------------------------------------
|
|
// Waxworks Opcodes
|
|
// -----------------------------------------------------------------------
|
|
|
|
void AGOSEngine_Waxworks::oww_goto() {
|
|
// 55: set itemA parent
|
|
uint item = getNextItemID();
|
|
if (derefItem(item) == NULL) {
|
|
setItemParent(me(), NULL);
|
|
loadRoomItems(item);
|
|
}
|
|
setItemParent(me(), derefItem(item));
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_addTextBox() {
|
|
// 65: add hit area
|
|
uint id = getVarOrWord();
|
|
uint x = getVarOrWord();
|
|
uint y = getVarOrWord();
|
|
uint w = getVarOrWord();
|
|
uint h = getVarOrWord();
|
|
uint number = getVarOrByte();
|
|
if (number < _numTextBoxes)
|
|
defineBox(id, x, y, w, h, (number << 8) + 129, 208, _dummyItem2);
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_setShortText() {
|
|
// 66: set item name
|
|
uint var = getVarOrByte();
|
|
uint stringId = getNextStringID();
|
|
if (var < _numTextBoxes) {
|
|
_shortText[var] = stringId;
|
|
}
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_setLongText() {
|
|
// 67: set item description
|
|
uint var = getVarOrByte();
|
|
uint stringId = getNextStringID();
|
|
if (getFeatures() & GF_TALKIE) {
|
|
uint speechId = getNextWord();
|
|
if (var < _numTextBoxes) {
|
|
_longText[var] = stringId;
|
|
_longSound[var] = speechId;
|
|
}
|
|
} else {
|
|
if (var < _numTextBoxes) {
|
|
_longText[var] = stringId;
|
|
}
|
|
}
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_printLongText() {
|
|
// 70: show string from array
|
|
const char *str = (const char *)getStringPtrByID(_longText[getVarOrByte()]);
|
|
showMessageFormat("%s\n", str);
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_whereTo() {
|
|
// 85: where to
|
|
Item *i = getNextItemPtr();
|
|
int16 d = getVarOrByte();
|
|
int16 f = getVarOrByte();
|
|
|
|
if (f == 1)
|
|
_subjectItem = derefItem(getExitOf(i, d));
|
|
else
|
|
_objectItem = derefItem(getExitOf(i, d));
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_menu() {
|
|
// 105: set agos menu
|
|
_agosMenu = getVarOrByte();
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_textMenu() {
|
|
// 106: set text menu
|
|
byte slot = getVarOrByte();
|
|
_textMenu[slot] = getVarOrByte();
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_pauseGame() {
|
|
// 135: pause game
|
|
HitArea *ha;
|
|
|
|
time_t pauseTime = time(NULL);
|
|
haltAnimation();
|
|
|
|
for (;;) {
|
|
_lastHitArea = NULL;
|
|
_lastHitArea3 = NULL;
|
|
|
|
for (;;) {
|
|
if (_lastHitArea3 != 0)
|
|
break;
|
|
delay(1);
|
|
}
|
|
|
|
ha = _lastHitArea;
|
|
|
|
if (ha == NULL) {
|
|
} else if (ha->id == 200) {
|
|
break;
|
|
} else if (ha->id == 201) {
|
|
break;
|
|
}
|
|
}
|
|
|
|
restartAnimation();
|
|
_gameStoppedClock = time(NULL) - pauseTime + _gameStoppedClock;
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_boxMessage() {
|
|
// 184: print message to box
|
|
boxTextMessage((const char *)getStringPtrByID(getNextStringID()));
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_boxMsg() {
|
|
// 185: print msg to box
|
|
boxTextMsg((const char *)getStringPtrByID(getNextStringID()));
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_boxLongText() {
|
|
// 186: print long text to box
|
|
boxTextMsg((const char *)getStringPtrByID(_longText[getVarOrByte()]));
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_printBox() {
|
|
// 187: print box
|
|
printBox();
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_boxPObj() {
|
|
// 188: print object name to box
|
|
SubObject *subObject = (SubObject *)findChildOfType(getNextItemPtr(), 2);
|
|
|
|
if (subObject != NULL && subObject->objectFlags & kOFText)
|
|
boxTextMsg((const char *)getStringPtrByID(subObject->objectFlagValue[0]));
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_lockZones() {
|
|
// 189: lock zone
|
|
_vgaMemBase = _vgaMemPtr;
|
|
}
|
|
|
|
void AGOSEngine_Waxworks::oww_unlockZones() {
|
|
// 190: unlock zone
|
|
_vgaMemPtr = _vgaFrozenBase;
|
|
_vgaMemBase = _vgaFrozenBase;
|
|
}
|
|
|
|
} // End of namespace AGOS
|