mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-15 14:18:37 +00:00
Split game specific script opcodes into separate files
svn-id: r24389
This commit is contained in:
Travis Howell
parent
26765932cc
commit
d75901b832
@ -21,6 +21,13 @@ MODULE_OBJS := \
|
||||
rooms.o \
|
||||
saveload.o \
|
||||
script.o \
|
||||
script_e1.o \
|
||||
script_e2.o \
|
||||
script_ww.o \
|
||||
script_s1.o \
|
||||
script_s2.o \
|
||||
script_ff.o \
|
||||
script_pp.o \
|
||||
sound.o \
|
||||
string.o \
|
||||
subroutine.o \
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
597
engines/agos/script_e1.cpp
Normal file
597
engines/agos/script_e1.cpp
Normal file
@ -0,0 +1,597 @@
|
||||
/* 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 "agos/agos.h"
|
||||
|
||||
namespace AGOS {
|
||||
|
||||
void AGOSEngine::setupElvira1Opcodes(OpcodeProc *op) {
|
||||
op[0] = &AGOSEngine::o_at;
|
||||
op[1] = &AGOSEngine::o_notAt;
|
||||
op[2] = &AGOSEngine::oe1_present;
|
||||
op[3] = &AGOSEngine::oe1_notPresent;
|
||||
op[4] = &AGOSEngine::oe1_worn;
|
||||
op[5] = &AGOSEngine::oe1_notWorn;
|
||||
op[6] = &AGOSEngine::o_carried;
|
||||
op[7] = &AGOSEngine::o_notCarried;
|
||||
op[8] = &AGOSEngine::o_isAt;
|
||||
op[9] = &AGOSEngine::oe1_isNotAt;
|
||||
op[10] = &AGOSEngine::oe1_sibling;
|
||||
op[11] = &AGOSEngine::oe1_notSibling;
|
||||
op[12] = &AGOSEngine::o_zero;
|
||||
op[13] = &AGOSEngine::o_notZero;
|
||||
op[14] = &AGOSEngine::o_eq;
|
||||
op[15] = &AGOSEngine::o_notEq;
|
||||
op[16] = &AGOSEngine::o_gt;
|
||||
op[17] = &AGOSEngine::o_lt;
|
||||
op[18] = &AGOSEngine::o_eqf;
|
||||
op[19] = &AGOSEngine::o_notEqf;
|
||||
op[20] = &AGOSEngine::o_ltf;
|
||||
op[21] = &AGOSEngine::o_gtf;
|
||||
op[22] = &AGOSEngine::oe1_isIn;
|
||||
op[23] = &AGOSEngine::oe1_isNotIn;
|
||||
|
||||
op[29] = &AGOSEngine::o_chance;
|
||||
op[30] = &AGOSEngine::oe1_isPlayer;
|
||||
|
||||
op[32] = &AGOSEngine::o_isRoom;
|
||||
op[33] = &AGOSEngine::o_isObject;
|
||||
op[34] = &AGOSEngine::o_state;
|
||||
|
||||
op[36] = &AGOSEngine::o_oflag;
|
||||
op[37] = &AGOSEngine::oe1_canPut;
|
||||
|
||||
op[48] = &AGOSEngine::o_destroy;
|
||||
|
||||
op[51] = &AGOSEngine::o_place;
|
||||
|
||||
op[54] = &AGOSEngine::oe1_copyof;
|
||||
op[55] = &AGOSEngine::oe1_copyfo;
|
||||
op[56] = &AGOSEngine::o_copyff;
|
||||
op[57] = &AGOSEngine::oe1_whatO;
|
||||
|
||||
op[59] = &AGOSEngine::oe1_weigh;
|
||||
op[60] = &AGOSEngine::oe1_setFF;
|
||||
op[61] = &AGOSEngine::o_clear;
|
||||
|
||||
op[64] = &AGOSEngine::o_let;
|
||||
op[65] = &AGOSEngine::o_add;
|
||||
op[66] = &AGOSEngine::o_sub;
|
||||
op[67] = &AGOSEngine::o_addf;
|
||||
op[68] = &AGOSEngine::o_subf;
|
||||
op[69] = &AGOSEngine::o_mul;
|
||||
op[70] = &AGOSEngine::o_div;
|
||||
op[71] = &AGOSEngine::o_mulf;
|
||||
op[72] = &AGOSEngine::o_divf;
|
||||
op[73] = &AGOSEngine::o_mod;
|
||||
op[74] = &AGOSEngine::o_modf;
|
||||
op[75] = &AGOSEngine::o_random;
|
||||
|
||||
op[76] = &AGOSEngine::oe1_moveDirn;
|
||||
op[77] = &AGOSEngine::o_goto;
|
||||
|
||||
op[80] = &AGOSEngine::o_oset;
|
||||
op[81] = &AGOSEngine::o_oclear;
|
||||
|
||||
op[84] = &AGOSEngine::o_putBy;
|
||||
op[85] = &AGOSEngine::o_inc;
|
||||
op[86] = &AGOSEngine::o_dec;
|
||||
op[87] = &AGOSEngine::o_setState;
|
||||
|
||||
op[89] = &AGOSEngine::o_print;
|
||||
op[90] = &AGOSEngine::oe1_score;
|
||||
op[91] = &AGOSEngine::o_message;
|
||||
op[92] = &AGOSEngine::o_msg;
|
||||
|
||||
op[97] = &AGOSEngine::o_end;
|
||||
op[98] = &AGOSEngine::o_done;
|
||||
|
||||
op[105] = &AGOSEngine::o_process;
|
||||
op[106] = &AGOSEngine::oe1_doClass;
|
||||
|
||||
op[112] = &AGOSEngine::oe1_pObj;
|
||||
|
||||
op[114] = &AGOSEngine::oe1_pName;
|
||||
op[115] = &AGOSEngine::oe1_pcName;
|
||||
|
||||
op[119] = &AGOSEngine::o_when;
|
||||
|
||||
op[128] = &AGOSEngine::o_if1;
|
||||
op[129] = &AGOSEngine::o_if2;
|
||||
|
||||
op[135] = &AGOSEngine::o_isCalled;
|
||||
op[136] = &AGOSEngine::o_is;
|
||||
|
||||
op[152] = &AGOSEngine::o_debug;
|
||||
|
||||
op[162] = &AGOSEngine::oe1_cFlag;
|
||||
|
||||
op[164] = &AGOSEngine::o1_rescan;
|
||||
op[165] = &AGOSEngine::oe1_means;
|
||||
|
||||
op[176] = &AGOSEngine::oe1_setUserItem;
|
||||
op[177] = &AGOSEngine::oe1_getUserItem;
|
||||
op[178] = &AGOSEngine::oe1_clearUserItem;
|
||||
|
||||
op[180] = &AGOSEngine::oe1_whereTo;
|
||||
op[181] = &AGOSEngine::oe1_doorExit;
|
||||
|
||||
op[198] = &AGOSEngine::o_comment;
|
||||
|
||||
op[206] = &AGOSEngine::o_getParent;
|
||||
op[207] = &AGOSEngine::o_getNext;
|
||||
op[208] = &AGOSEngine::o_getChildren;
|
||||
|
||||
op[219] = &AGOSEngine::oe1_findMaster;
|
||||
op[220] = &AGOSEngine::oe1_nextMaster;
|
||||
|
||||
op[224] = &AGOSEngine::o_picture;
|
||||
op[225] = &AGOSEngine::o_loadZone;
|
||||
op[226] = &AGOSEngine::o1_animate;
|
||||
op[227] = &AGOSEngine::o1_stopAnimate;
|
||||
op[228] = &AGOSEngine::o_killAnimate;
|
||||
op[229] = &AGOSEngine::o_defWindow;
|
||||
op[230] = &AGOSEngine::o_window;
|
||||
op[231] = &AGOSEngine::o_cls;
|
||||
op[232] = &AGOSEngine::o_closeWindow;
|
||||
op[233] = &AGOSEngine::oe1_menu;
|
||||
|
||||
op[235] = &AGOSEngine::o_addBox;
|
||||
op[236] = &AGOSEngine::o_delBox;
|
||||
op[237] = &AGOSEngine::o_enableBox;
|
||||
op[238] = &AGOSEngine::o_disableBox;
|
||||
op[239] = &AGOSEngine::o_moveBox;
|
||||
|
||||
op[242] = &AGOSEngine::o_doIcons;
|
||||
op[243] = &AGOSEngine::o_isClass;
|
||||
|
||||
op[249] = &AGOSEngine::o_setClass;
|
||||
op[250] = &AGOSEngine::o_unsetClass;
|
||||
|
||||
op[251] = &AGOSEngine::oe1_bitClear;
|
||||
op[252] = &AGOSEngine::oe1_bitSet;
|
||||
op[253] = &AGOSEngine::oe1_bitTest;
|
||||
|
||||
op[255] = &AGOSEngine::o_waitSync;
|
||||
op[256] = &AGOSEngine::o_sync;
|
||||
op[257] = &AGOSEngine::o_defObj;
|
||||
|
||||
op[258] = &AGOSEngine::oe1_enableInput;
|
||||
op[259] = &AGOSEngine::oe1_setTime;
|
||||
op[260] = &AGOSEngine::oe1_ifTime;
|
||||
op[261] = &AGOSEngine::o_here;
|
||||
op[262] = &AGOSEngine::o_doClassIcons;
|
||||
op[263] = &AGOSEngine::o1_playTune;
|
||||
op[264] = &AGOSEngine::o_waitEndTune;
|
||||
op[265] = &AGOSEngine::o_ifEndTune;
|
||||
op[266] = &AGOSEngine::o_setAdjNoun;
|
||||
op[267] = &AGOSEngine::oe1_zoneDisk;
|
||||
op[268] = &AGOSEngine::o_saveUserGame;
|
||||
op[269] = &AGOSEngine::o_loadUserGame;
|
||||
op[270] = &AGOSEngine::oe1_printStats;
|
||||
op[271] = &AGOSEngine::o_stopTune;
|
||||
op[272] = &AGOSEngine::oe1_printPlayerDamage;
|
||||
op[273] = &AGOSEngine::oe1_printMonsterDamage;
|
||||
op[274] = &AGOSEngine::o_pauseGame;
|
||||
op[275] = &AGOSEngine::o_copysf;
|
||||
op[276] = &AGOSEngine::o_restoreIcons;
|
||||
op[277] = &AGOSEngine::oe1_printPlayerHit;
|
||||
op[278] = &AGOSEngine::oe1_printMonsterHit;
|
||||
op[279] = &AGOSEngine::o_freezeZones;
|
||||
op[280] = &AGOSEngine::o_placeNoIcons;
|
||||
op[281] = &AGOSEngine::o_clearTimers;
|
||||
op[282] = &AGOSEngine::o_setDollar;
|
||||
op[283] = &AGOSEngine::o_isBox;
|
||||
}
|
||||
|
||||
// -----------------------------------------------------------------------
|
||||
// Elvira 1 Opcodes
|
||||
// -----------------------------------------------------------------------
|
||||
|
||||
void AGOSEngine::oe1_present() {
|
||||
// 2: present (here or carried)
|
||||
Item *item = getNextItemPtr();
|
||||
setScriptCondition(item->parent == getItem1ID() || item->parent == me()->parent);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_notPresent() {
|
||||
// 3: not present (neither here nor carried)
|
||||
Item *item = getNextItemPtr();
|
||||
setScriptCondition(item->parent != getItem1ID() && item->parent != me()->parent);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_worn() {
|
||||
// 4: worn
|
||||
Item *item = getNextItemPtr();
|
||||
SubObject *subObject = (SubObject *)findChildOfType(item, 2);
|
||||
|
||||
if (item->parent != getItem1ID() || subObject == NULL)
|
||||
setScriptCondition(false);
|
||||
else
|
||||
setScriptCondition((subObject->objectFlags & kOFWorn) != 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_notWorn() {
|
||||
// 5: not worn
|
||||
Item *item = getNextItemPtr();
|
||||
SubObject *subObject = (SubObject *)findChildOfType(item, 2);
|
||||
|
||||
if (item->parent != getItem1ID() || subObject == NULL)
|
||||
setScriptCondition(false);
|
||||
else
|
||||
setScriptCondition((subObject->objectFlags & kOFWorn) == 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_isNotAt() {
|
||||
// 9: parent is not
|
||||
Item *item = getNextItemPtr();
|
||||
setScriptCondition(item->parent != getNextItemID());
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_sibling() {
|
||||
// 10: sibling
|
||||
Item *item1 = getNextItemPtr();
|
||||
Item *item2 = getNextItemPtr();
|
||||
setScriptCondition(item1->parent == item2->parent);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_notSibling() {
|
||||
// 11: not sibling
|
||||
Item *item1 = getNextItemPtr();
|
||||
Item *item2 = getNextItemPtr();
|
||||
setScriptCondition(item1->parent != item2->parent);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_isIn() {
|
||||
// 22: is in
|
||||
Item *item1 = getNextItemPtr();
|
||||
Item *item2 = getNextItemPtr();
|
||||
setScriptCondition(contains(item1, item2) != 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_isNotIn() {
|
||||
// 23: is not in
|
||||
Item *item1 = getNextItemPtr();
|
||||
Item *item2 = getNextItemPtr();
|
||||
setScriptCondition(contains(item1, item2) == 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_isPlayer() {
|
||||
// 30: is player
|
||||
setScriptCondition(isPlayer(getNextItemPtr()));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_canPut() {
|
||||
// 37: can put
|
||||
Item *item1 = getNextItemPtr();
|
||||
Item *item2 = getNextItemPtr();
|
||||
setScriptCondition(canPlace(item1, item2) == 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_copyof() {
|
||||
// 54: copy of
|
||||
Item *item = getNextItemPtr();
|
||||
uint tmp = getVarOrByte();
|
||||
writeNextVarContents(getUserFlag(item, tmp));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_copyfo() {
|
||||
// 55: copy fo
|
||||
uint tmp = getNextVarContents();
|
||||
Item *item = getNextItemPtr();
|
||||
setUserFlag(item, getVarOrByte(), tmp);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_whatO() {
|
||||
// 57: what o
|
||||
int a = getVarOrWord();
|
||||
|
||||
if (a == 1)
|
||||
_subjectItem = findMaster(_scriptAdj1,_scriptNoun1);
|
||||
else
|
||||
_objectItem = findMaster(_scriptAdj2, _scriptNoun2);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_weigh() {
|
||||
// 59: weight
|
||||
Item *item = getNextItemPtr();
|
||||
writeNextVarContents(weighUp(item));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_setFF() {
|
||||
// 60: set FF
|
||||
writeNextVarContents(255);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_moveDirn() {
|
||||
// 54: move direction
|
||||
int16 d = readVariable(getVarOrWord());
|
||||
moveDirn_e1(me(), d);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_score() {
|
||||
// 90: score
|
||||
SubPlayer *p = (SubPlayer *) findChildOfType(me(), 3);
|
||||
showMessageFormat("Your score is %ld.\n", p->score);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_doClass() {
|
||||
// 106: do class
|
||||
Item *i = getNextItemPtr();
|
||||
int16 cm = getVarOrWord();
|
||||
int16 num = getVarOrWord();
|
||||
|
||||
_classMask = (cm != -1) ? 1 << cm : 0;
|
||||
//_classLine = (SubroutineLine *)((uint32)_currentLine->next+(uint32)_currentTable);
|
||||
|
||||
if (num == 1) {
|
||||
_subjectItem = findInByClass(i, (1 << cm));
|
||||
if (_subjectItem)
|
||||
_classMode1 = 1;
|
||||
else
|
||||
_classMode1 = 0;
|
||||
} else {
|
||||
_objectItem = findInByClass(i, (1 << cm));
|
||||
if (_objectItem)
|
||||
_classMode2 = 1;
|
||||
else
|
||||
_classMode2 = 0;
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_pObj() {
|
||||
// 112: print object
|
||||
SubObject *subObject = (SubObject *)findChildOfType(getNextItemPtr(), 2);
|
||||
getVarOrWord();
|
||||
|
||||
if (subObject != NULL)
|
||||
showMessageFormat("%s", (const char *)getStringPtrByID(subObject->objectName));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_pName() {
|
||||
// 114:
|
||||
Item *i = getNextItemPtr();
|
||||
showMessageFormat("%s", (const char *)getStringPtrByID(i->itemName));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_pcName() {
|
||||
// 115:
|
||||
Item *i = getNextItemPtr();
|
||||
Common::String name = (const char *)getStringPtrByID(i->itemName);
|
||||
name.toUppercase();
|
||||
showMessageFormat("%s", name.c_str());
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_cFlag() {
|
||||
// 162: check container flag
|
||||
SubContainer *c = (SubContainer *)findChildOfType(getNextItemPtr(), 7);
|
||||
uint bit = getVarOrWord();
|
||||
|
||||
if (c == NULL)
|
||||
setScriptCondition(false);
|
||||
else
|
||||
setScriptCondition((c->flags & (1 << bit)) != 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_means() {
|
||||
// 165: means
|
||||
_scriptVerb = getNextWord();
|
||||
_scriptNoun1 = getNextWord();
|
||||
_scriptNoun2 = getNextWord();
|
||||
|
||||
if (getVarOrWord()) {
|
||||
int16 tmp = _scriptNoun1;
|
||||
_scriptNoun1 = _scriptNoun2;
|
||||
_scriptNoun2 = tmp;
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_setUserItem() {
|
||||
// 176: set user item
|
||||
Item *i = getNextItemPtr();
|
||||
uint tmp = getVarOrWord();
|
||||
setUserItem(i, tmp, getNextItemID());
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_getUserItem() {
|
||||
// 177: get user item
|
||||
Item *i = getNextItemPtr();
|
||||
int n = getVarOrWord();
|
||||
|
||||
if (getVarOrWord() == 1)
|
||||
_subjectItem = derefItem(getUserItem(i, n));
|
||||
else
|
||||
_objectItem = derefItem(getUserItem(i, n));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_whereTo() {
|
||||
// 180: where to
|
||||
Item *i = getNextItemPtr();
|
||||
int16 d = getVarOrWord();
|
||||
int16 f = getVarOrWord();
|
||||
|
||||
if (f == 1)
|
||||
_subjectItem = derefItem(getExitOf_e1(i, d));
|
||||
else
|
||||
_objectItem = derefItem(getExitOf_e1(i, d));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_doorExit() {
|
||||
// 181: door exit
|
||||
Item *x;
|
||||
Item *a = (Item *)-1;
|
||||
SubUserChain *c;
|
||||
Item *i = getNextItemPtr();
|
||||
Item *d = getNextItemPtr();
|
||||
int16 f = getVarOrWord();
|
||||
int16 ct = 0;
|
||||
|
||||
c = (SubUserChain *)findChildOfType(d, 8);
|
||||
if (c)
|
||||
a = derefItem(c->chChained);
|
||||
while (ct < 6) {
|
||||
x = derefItem(getDoorOf(i, ct));
|
||||
if ((x == d) | (x == a)) {
|
||||
writeVariable(f, ct);
|
||||
return;
|
||||
}
|
||||
ct++;
|
||||
}
|
||||
writeVariable(f, 255);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_clearUserItem() {
|
||||
// 178: clear user item
|
||||
Item *i = getNextItemPtr();
|
||||
uint tmp = getVarOrWord();
|
||||
setUserItem(i, tmp, 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_findMaster() {
|
||||
// 219: find master
|
||||
int16 ad, no;
|
||||
int16 d = getVarOrByte();
|
||||
|
||||
ad = (d == 1) ? _scriptAdj1 : _scriptAdj2;
|
||||
no = (d == 1) ? _scriptNoun1 : _scriptNoun2;
|
||||
|
||||
d = getVarOrByte();
|
||||
if (d == 1)
|
||||
_subjectItem = findMaster(ad, no);
|
||||
else
|
||||
_objectItem = findMaster(ad, no);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_nextMaster() {
|
||||
// 220: next master
|
||||
int16 ad, no;
|
||||
Item *item = getNextItemPtr();
|
||||
int16 d = getVarOrByte();
|
||||
|
||||
ad = (d == 1) ? _scriptAdj1 : _scriptAdj2;
|
||||
no = (d == 1) ? _scriptNoun1 : _scriptNoun2;
|
||||
|
||||
d = getVarOrByte();
|
||||
if (d == 1)
|
||||
_subjectItem = nextMaster(item, ad, no);
|
||||
else
|
||||
_objectItem = nextMaster(item, ad, no);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_menu() {
|
||||
// 233: agos menu
|
||||
uint b = getVarOrWord();
|
||||
uint a = getVarOrWord();
|
||||
drawMenuStrip(a, b);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_bitClear() {
|
||||
// 251: set bit off
|
||||
int var = getVarOrWord();
|
||||
int bit = getVarOrWord();
|
||||
|
||||
writeVariable(var, _variableArray[var] & ~(1 << bit));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_bitSet() {
|
||||
// 252: set bit on
|
||||
int var = getVarOrWord();
|
||||
int bit = getVarOrWord();
|
||||
|
||||
writeVariable(var, _variableArray[var] | (1 << bit));
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_bitTest() {
|
||||
// 253: bit test
|
||||
int var = getVarOrWord();
|
||||
int bit = getVarOrWord();
|
||||
|
||||
setScriptCondition((_variableArray[var] & (1 << bit)) != 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_enableInput() {
|
||||
// 258: enable input
|
||||
_variableArray[500] = 0;
|
||||
|
||||
for (int i = 120; i < 130; i++)
|
||||
disableBox(i);
|
||||
|
||||
// XXX
|
||||
_lastHitArea = 0;
|
||||
_verbHitArea = 0;
|
||||
_hitAreaSubjectItem = NULL;
|
||||
_hitAreaObjectItem = NULL;
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_setTime() {
|
||||
// 259: set time
|
||||
time(&_timeStore);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_ifTime() {
|
||||
// 260: if time
|
||||
time_t t;
|
||||
|
||||
uint a = getVarOrWord();
|
||||
time(&t);
|
||||
t -= a;
|
||||
if (t >= _timeStore)
|
||||
setScriptCondition(true);
|
||||
else
|
||||
setScriptCondition(false);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_zoneDisk() {
|
||||
// 267: set disk number of each zone
|
||||
getVarOrWord();
|
||||
getVarOrWord();
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_printStats() {
|
||||
// 270: print stats
|
||||
printStats();
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_printPlayerDamage() {
|
||||
// 272: print player damage
|
||||
printStats();
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_printMonsterDamage() {
|
||||
// 273: print monster damage
|
||||
printStats();
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_printPlayerHit() {
|
||||
// 277: print player hit
|
||||
printStats();
|
||||
}
|
||||
|
||||
void AGOSEngine::oe1_printMonsterHit() {
|
||||
// 278: print monster hit
|
||||
printStats();
|
||||
}
|
||||
|
||||
} // End of namespace AGOS
|
||||
165
engines/agos/script_e2.cpp
Normal file
165
engines/agos/script_e2.cpp
Normal file
@ -0,0 +1,165 @@
|
||||
/* 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 "agos/agos.h"
|
||||
|
||||
namespace AGOS {
|
||||
|
||||
void AGOSEngine::setupElvira2Opcodes(OpcodeProc *op) {
|
||||
setupCommonOpcodes(op);
|
||||
|
||||
op[8] = &AGOSEngine::oe1_isNotAt;
|
||||
op[9] = &AGOSEngine::oe1_sibling;
|
||||
op[10] = &AGOSEngine::oe1_notSibling;
|
||||
op[24] = &AGOSEngine::oe1_isPlayer;
|
||||
op[29] = &AGOSEngine::oe1_canPut;
|
||||
op[34] = &AGOSEngine::oe1_copyof;
|
||||
op[35] = &AGOSEngine::oe1_copyfo;
|
||||
op[37] = &AGOSEngine::oe1_whatO;
|
||||
op[54] = &AGOSEngine::oe2_moveDirn;
|
||||
op[73] = &AGOSEngine::oe1_pObj;
|
||||
op[74] = &AGOSEngine::oe1_pName;
|
||||
op[75] = &AGOSEngine::oe1_pcName;
|
||||
op[83] = &AGOSEngine::o1_rescan;
|
||||
op[89] = &AGOSEngine::oe2_loadUserGame;
|
||||
op[94] = &AGOSEngine::oe1_findMaster;
|
||||
op[95] = &AGOSEngine::oe1_nextMaster;
|
||||
op[98] = &AGOSEngine::o1_animate;
|
||||
op[99] = &AGOSEngine::o1_stopAnimate;
|
||||
op[123] = &AGOSEngine::oe1_setTime;
|
||||
op[127] = &AGOSEngine::o1_playTune;
|
||||
op[144] = &AGOSEngine::oe2_setDoorOpen;
|
||||
op[145] = &AGOSEngine::oe2_setDoorClosed;
|
||||
op[146] = &AGOSEngine::oe2_setDoorLocked;
|
||||
op[147] = &AGOSEngine::oe2_setDoorClosed;
|
||||
op[148] = &AGOSEngine::oe2_ifDoorOpen;
|
||||
op[149] = &AGOSEngine::oe2_ifDoorClosed;
|
||||
op[150] = &AGOSEngine::oe2_ifDoorLocked;
|
||||
op[161] = &AGOSEngine::oe2_opcode161;
|
||||
op[162] = &AGOSEngine::oe2_screenTextMsg;
|
||||
op[165] = &AGOSEngine::oe2_setSuperRoom;
|
||||
op[166] = &AGOSEngine::oe2_getSuperRoom;
|
||||
op[175] = &AGOSEngine::o_getDollar2;
|
||||
op[179] = &AGOSEngine::o_isAdjNoun;
|
||||
op[180] = &AGOSEngine::o_b2Set;
|
||||
op[181] = &AGOSEngine::o_b2Clear;
|
||||
op[182] = &AGOSEngine::o_b2Zero;
|
||||
op[183] = &AGOSEngine::o_b2NotZero;
|
||||
|
||||
// Code difference, check if triggered
|
||||
op[65] = NULL;
|
||||
op[66] = NULL;
|
||||
op[67] = NULL;
|
||||
op[70] = NULL;
|
||||
op[163] = NULL;
|
||||
op[164] = NULL;
|
||||
op[167] = NULL;
|
||||
op[168] = NULL;
|
||||
op[169] = NULL;
|
||||
op[170] = NULL;
|
||||
op[171] = NULL;
|
||||
op[172] = NULL;
|
||||
op[173] = NULL;
|
||||
op[174] = NULL;
|
||||
op[176] = NULL;
|
||||
op[177] = NULL;
|
||||
op[178] = NULL;
|
||||
}
|
||||
|
||||
// -----------------------------------------------------------------------
|
||||
// Elvira 2 Opcodes
|
||||
// -----------------------------------------------------------------------
|
||||
|
||||
void AGOSEngine::oe2_moveDirn() {
|
||||
// 54: move direction
|
||||
int16 d = getVarOrByte();
|
||||
moveDirn_e2(me(), d);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_loadUserGame() {
|
||||
// 89: load user game
|
||||
getStringPtrByID(getNextStringID());
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_setDoorOpen() {
|
||||
// 144: set door open
|
||||
Item *i = getNextItemPtr();
|
||||
setDoorState(i, getVarOrByte(), 1);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_setDoorClosed() {
|
||||
// 145: set door closed
|
||||
Item *i = getNextItemPtr();
|
||||
setDoorState(i, getVarOrByte(), 2);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_setDoorLocked() {
|
||||
// 146: set door locked
|
||||
Item *i = getNextItemPtr();
|
||||
setDoorState(i, getVarOrByte(), 3);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_ifDoorOpen() {
|
||||
// 148: if door open
|
||||
Item *i = getNextItemPtr();
|
||||
uint16 d = getVarOrByte();
|
||||
setScriptCondition(getDoorState(i, d) == 1);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_ifDoorClosed() {
|
||||
// 149: if door closed
|
||||
Item *i = getNextItemPtr();
|
||||
uint16 d = getVarOrByte();
|
||||
setScriptCondition(getDoorState(i, d) == 2);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_ifDoorLocked() {
|
||||
// 150: if door locked
|
||||
Item *i=getNextItemPtr();
|
||||
uint16 d = getVarOrByte();
|
||||
setScriptCondition(getDoorState(i, d) == 3);
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_opcode161() {
|
||||
// 161:
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_screenTextMsg() {
|
||||
// 162: print string
|
||||
showMessageFormat("%s\n", getStringPtrByID(getNextStringID()));
|
||||
getVarOrByte();
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_setSuperRoom() {
|
||||
// 165: set super room
|
||||
_superRoomNumber = getVarOrWord();
|
||||
}
|
||||
|
||||
void AGOSEngine::oe2_getSuperRoom() {
|
||||
// 166: get super room
|
||||
writeNextVarContents(_superRoomNumber);
|
||||
}
|
||||
|
||||
} // End of namespace AGOS
|
||||
428
engines/agos/script_ff.cpp
Normal file
428
engines/agos/script_ff.cpp
Normal file
@ -0,0 +1,428 @@
|
||||
/* 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/animation.h"
|
||||
#include "agos/agos.h"
|
||||
|
||||
namespace AGOS {
|
||||
|
||||
void AGOSEngine::setupFeebleOpcodes(OpcodeProc *op) {
|
||||
setupCommonOpcodes(op);
|
||||
|
||||
op[23] = &AGOSEngine::o3_chance;
|
||||
op[37] = &AGOSEngine::o3_jumpOut;
|
||||
op[65] = &AGOSEngine::o3_addTextBox;
|
||||
op[70] = &AGOSEngine::o3_printLongText;
|
||||
op[83] = &AGOSEngine::o2_rescan;
|
||||
op[98] = &AGOSEngine::o2_animate;
|
||||
op[99] = &AGOSEngine::o2_stopAnimate;
|
||||
op[107] = &AGOSEngine::o3_addBox;
|
||||
op[122] = &AGOSEngine::o3_oracleTextDown;
|
||||
op[123] = &AGOSEngine::o3_oracleTextUp;
|
||||
op[124] = &AGOSEngine::o3_ifTime;
|
||||
op[127] = NULL;
|
||||
op[131] = &AGOSEngine::o3_setTime;
|
||||
op[132] = &AGOSEngine::o3_saveUserGame;
|
||||
op[133] = &AGOSEngine::o3_loadUserGame;
|
||||
op[134] = &AGOSEngine::o3_listSaveGames;
|
||||
op[135] = &AGOSEngine::o3_checkCD;
|
||||
op[161] = &AGOSEngine::o3_screenTextBox;
|
||||
op[163] = NULL;
|
||||
op[165] = &AGOSEngine::o3_isAdjNoun;
|
||||
op[171] = &AGOSEngine::o3_hyperLinkOn;
|
||||
op[172] = &AGOSEngine::o3_hyperLinkOff;
|
||||
op[173] = &AGOSEngine::o3_checkPaths;
|
||||
op[177] = &AGOSEngine::o3_screenTextPObj;
|
||||
op[181] = &AGOSEngine::o3_mouseOff;
|
||||
op[182] = &AGOSEngine::o3_loadVideo;
|
||||
op[183] = &AGOSEngine::o3_playVideo;
|
||||
op[187] = &AGOSEngine::o3_centreScroll;
|
||||
op[188] = &AGOSEngine::o2_isShortText;
|
||||
op[189] = &AGOSEngine::o2_clearMarks;
|
||||
op[190] = &AGOSEngine::o2_waitMark;
|
||||
op[191] = &AGOSEngine::o3_resetPVCount;
|
||||
op[192] = &AGOSEngine::o3_setPathValues;
|
||||
op[193] = &AGOSEngine::o3_stopClock;
|
||||
op[194] = &AGOSEngine::o3_restartClock;
|
||||
op[195] = &AGOSEngine::o3_setColour;
|
||||
op[196] = &AGOSEngine::o3_b3Set;
|
||||
op[197] = &AGOSEngine::o3_b3Clear;
|
||||
op[198] = &AGOSEngine::o3_b3Zero;
|
||||
op[199] = &AGOSEngine::o3_b3NotZero;
|
||||
}
|
||||
|
||||
// -----------------------------------------------------------------------
|
||||
// Feeble Files Opcodes
|
||||
// -----------------------------------------------------------------------
|
||||
|
||||
void AGOSEngine::o3_chance() {
|
||||
// 23
|
||||
uint a = getVarOrWord();
|
||||
|
||||
if (a == 0) {
|
||||
setScriptCondition(false);
|
||||
return;
|
||||
}
|
||||
|
||||
if (a == 100) {
|
||||
setScriptCondition(true);
|
||||
return;
|
||||
}
|
||||
|
||||
if ((uint)_rnd.getRandomNumber(99) < a)
|
||||
setScriptCondition(true);
|
||||
else
|
||||
setScriptCondition(false);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_jumpOut() {
|
||||
// 37
|
||||
getVarOrByte();
|
||||
setScriptReturn(1);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_addTextBox() {
|
||||
// 65: add hit area
|
||||
uint flags = kBFTextBox | kBFBoxItem;
|
||||
uint id = getVarOrWord();
|
||||
uint params = id / 1000;
|
||||
uint x, y, w, h, num;
|
||||
|
||||
id %= 1000;
|
||||
|
||||
if (params & 1)
|
||||
flags |= kBFInvertTouch;
|
||||
|
||||
x = getVarOrWord();
|
||||
y = getVarOrWord();
|
||||
w = getVarOrWord();
|
||||
h = getVarOrWord();
|
||||
num = getVarOrByte();
|
||||
if (num < _numTextBoxes)
|
||||
defineBox(id, x, y, w, h, flags + (num << 8), 208, _dummyItem2);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_printLongText() {
|
||||
// 70: show string from array
|
||||
int num = getVarOrByte();
|
||||
const char *str = (const char *)getStringPtrByID(_longText[num]);
|
||||
sendInteractText(num, "%d. %s\n", num, str);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_addBox() {
|
||||
// 107: add item hitarea
|
||||
uint flags = 0;
|
||||
uint id = getVarOrWord();
|
||||
uint params = id / 1000;
|
||||
uint x, y, w, h, verb;
|
||||
Item *item;
|
||||
|
||||
id = id % 1000;
|
||||
|
||||
if (params & 1)
|
||||
flags |= kBFInvertTouch;
|
||||
if (params & 2)
|
||||
flags |= kBFNoTouchName;
|
||||
if (params & 4)
|
||||
flags |= kBFBoxItem;
|
||||
if (params & 8)
|
||||
flags |= kBFTextBox;
|
||||
if (params & 16)
|
||||
flags |= 0x10;
|
||||
|
||||
x = getVarOrWord();
|
||||
y = getVarOrWord();
|
||||
w = getVarOrWord();
|
||||
h = getVarOrWord();
|
||||
item = getNextItemPtrStrange();
|
||||
verb = getVarOrWord();
|
||||
defineBox(id, x, y, w, h, flags, verb, item);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_oracleTextDown() {
|
||||
// 122: oracle text down
|
||||
oracleTextDown();
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_oracleTextUp() {
|
||||
// 123: oracle text up
|
||||
oracleTextUp();
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_ifTime() {
|
||||
// 124: if time
|
||||
time_t t;
|
||||
|
||||
uint a = getVarOrWord();
|
||||
time(&t);
|
||||
t -= _gameStoppedClock;
|
||||
t -= a;
|
||||
if (t >= _timeStore)
|
||||
setScriptCondition(true);
|
||||
else
|
||||
setScriptCondition(false);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_setTime() {
|
||||
// 131
|
||||
time(&_timeStore);
|
||||
_timeStore -= _gameStoppedClock;
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_saveUserGame() {
|
||||
// 132: save game
|
||||
_noOracleScroll = 0;
|
||||
_system->setFeatureState(OSystem::kFeatureVirtualKeyboard, true);
|
||||
saveUserGame(countSaveGames() + 1 - readVariable(55));
|
||||
_system->setFeatureState(OSystem::kFeatureVirtualKeyboard, false);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_loadUserGame() {
|
||||
// 133: load game
|
||||
loadGame(readVariable(55));
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_listSaveGames() {
|
||||
// 134: dummy opcode?
|
||||
listSaveGames(1);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_checkCD() {
|
||||
// 135: switch CD
|
||||
uint disc = readVariable(97);
|
||||
|
||||
if (!strcmp(_gameDescription->desc.extra, "4CD")) {
|
||||
_sound->switchVoiceFile(gss, disc);
|
||||
} else if (!strcmp(_gameDescription->desc.extra, "2CD")) {
|
||||
if (disc == 1 || disc == 2)
|
||||
_sound->switchVoiceFile(gss, 1);
|
||||
else if (disc == 3 || disc == 4)
|
||||
_sound->switchVoiceFile(gss, 2);
|
||||
}
|
||||
|
||||
debug(0, "Switch to CD number %d", disc);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_screenTextBox() {
|
||||
// 161: setup text
|
||||
TextLocation *tl = getTextLocation(getVarOrByte());
|
||||
|
||||
tl->x = getVarOrWord();
|
||||
tl->y = getVarOrWord();
|
||||
tl->width = getVarOrWord();
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_isAdjNoun() {
|
||||
// 165: item unk1 unk2 is
|
||||
Item *item = getNextItemPtr();
|
||||
int16 a = getNextWord(), b = getNextWord();
|
||||
if (item->adjective == a && item->noun == b)
|
||||
setScriptCondition(true);
|
||||
else if (a == -1 && item->noun == b)
|
||||
setScriptCondition(true);
|
||||
else
|
||||
setScriptCondition(false);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_hyperLinkOn() {
|
||||
// 171: oracle hyperlink on
|
||||
hyperLinkOn(getVarOrWord());
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_hyperLinkOff() {
|
||||
// 172: oracle hyperlink off
|
||||
hyperLinkOff();
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_checkPaths() {
|
||||
// 173 check paths
|
||||
int i, count;
|
||||
const uint8 *pathVal1 = _pathValues1;
|
||||
bool result = false;
|
||||
|
||||
count = _variableArray2[38];
|
||||
for (i = 0; i < count; i++) {
|
||||
uint8 val = pathVal1[2];
|
||||
if (val == _variableArray2[50] ||
|
||||
val == _variableArray2[51] ||
|
||||
val == _variableArray2[201] ||
|
||||
val == _variableArray2[203] ||
|
||||
val == _variableArray2[205] ||
|
||||
val == _variableArray2[207] ||
|
||||
val == _variableArray2[209] ||
|
||||
val == _variableArray2[211] ||
|
||||
val == _variableArray2[213] ||
|
||||
val == _variableArray2[215] ||
|
||||
val == _variableArray2[219] ||
|
||||
val == _variableArray2[220] ||
|
||||
val == _variableArray2[221] ||
|
||||
val == _variableArray2[222] ||
|
||||
val == _variableArray2[223] ||
|
||||
val == _variableArray2[224] ||
|
||||
val == _variableArray2[225] ||
|
||||
val == _variableArray2[226]) {
|
||||
result = true;
|
||||
break;
|
||||
}
|
||||
pathVal1 += 4;
|
||||
}
|
||||
|
||||
_variableArray2[52] = result;
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_screenTextPObj() {
|
||||
// 177: inventory descriptions
|
||||
uint vgaSpriteId = getVarOrByte();
|
||||
uint color = getVarOrByte();
|
||||
const char *string_ptr = NULL;
|
||||
TextLocation *tl = NULL;
|
||||
char buf[256];
|
||||
|
||||
SubObject *subObject = (SubObject *)findChildOfType(getNextItemPtr(), 2);
|
||||
if (subObject != NULL && subObject->objectFlags & kOFText) {
|
||||
string_ptr = (const char *)getStringPtrByID(subObject->objectFlagValue[0]);
|
||||
tl = getTextLocation(vgaSpriteId);
|
||||
}
|
||||
|
||||
if (subObject != NULL && subObject->objectFlags & kOFVoice) {
|
||||
uint offs = getOffsetOfChild2Param(subObject, kOFVoice);
|
||||
playSpeech(subObject->objectFlagValue[offs], vgaSpriteId);
|
||||
}
|
||||
|
||||
if (subObject != NULL && (subObject->objectFlags & kOFText) && _subtitles) {
|
||||
if (subObject->objectFlags & kOFNumber) {
|
||||
sprintf(buf, "%d%s", subObject->objectFlagValue[getOffsetOfChild2Param(subObject, kOFNumber)], string_ptr);
|
||||
string_ptr = buf;
|
||||
}
|
||||
if (string_ptr != NULL)
|
||||
printScreenText(vgaSpriteId, color, string_ptr, tl->x, tl->y, tl->width);
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_mouseOff() {
|
||||
// 181: force mouseOff
|
||||
scriptMouseOff();
|
||||
clearName();
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_loadVideo() {
|
||||
// 182: load video file
|
||||
const byte *filename = getStringPtrByID(getNextStringID());
|
||||
_moviePlay->load((const char *)filename);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_playVideo() {
|
||||
// 183: play video
|
||||
_moviePlay->play();
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_centreScroll() {
|
||||
// 187
|
||||
centreScroll();
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_resetPVCount() {
|
||||
// 191
|
||||
if (getBitFlag(83)) {
|
||||
_PVCount1 = 0;
|
||||
_GPVCount1 = 0;
|
||||
} else {
|
||||
_PVCount = 0;
|
||||
_GPVCount = 0;
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_setPathValues() {
|
||||
// 192
|
||||
uint8 a = getVarOrByte();
|
||||
uint8 b = getVarOrByte();
|
||||
uint8 c = getVarOrByte();
|
||||
uint8 d = getVarOrByte();
|
||||
if (getBitFlag(83)) {
|
||||
_pathValues1[_PVCount1++] = a;
|
||||
_pathValues1[_PVCount1++] = b;
|
||||
_pathValues1[_PVCount1++] = c;
|
||||
_pathValues1[_PVCount1++] = d;
|
||||
} else {
|
||||
_pathValues[_PVCount++] = a;
|
||||
_pathValues[_PVCount++] = b;
|
||||
_pathValues[_PVCount++] = c;
|
||||
_pathValues[_PVCount++] = d;
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_stopClock() {
|
||||
// 193: pause clock
|
||||
_clockStopped = time(NULL);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_restartClock() {
|
||||
// 194: resume clock
|
||||
if (_clockStopped != 0)
|
||||
_gameStoppedClock += time(NULL) - _clockStopped;
|
||||
_clockStopped = 0;
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_setColour() {
|
||||
// 195: set palette colour
|
||||
uint c = getVarOrByte() * 4;
|
||||
uint r = getVarOrByte();
|
||||
uint g = getVarOrByte();
|
||||
uint b = getVarOrByte();
|
||||
|
||||
_displayPalette[c + 0] = r;
|
||||
_displayPalette[c + 1] = g;
|
||||
_displayPalette[c + 2] = b;
|
||||
|
||||
_paletteFlag = 2;
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_b3Set() {
|
||||
// 196: set bit3
|
||||
uint bit = getVarOrByte();
|
||||
_bitArrayThree[bit / 16] |= (1 << (bit & 15));
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_b3Clear() {
|
||||
// 197: clear bit3
|
||||
uint bit = getVarOrByte();
|
||||
_bitArrayThree[bit / 16] &= ~(1 << (bit & 15));
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_b3Zero() {
|
||||
// 198: is bit3 clear
|
||||
uint bit = getVarOrByte();
|
||||
setScriptCondition((_bitArrayThree[bit / 16] & (1 << (bit & 15))) == 0);
|
||||
}
|
||||
|
||||
void AGOSEngine::o3_b3NotZero() {
|
||||
// 199: is bit3 set
|
||||
uint bit = getVarOrByte();
|
||||
setScriptCondition((_bitArrayThree[bit / 16] & (1 << (bit & 15))) != 0);
|
||||
}
|
||||
|
||||
} // End of namespace AGOS
|
||||
231
engines/agos/script_pp.cpp
Normal file
231
engines/agos/script_pp.cpp
Normal file
@ -0,0 +1,231 @@
|
||||
/* 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 "agos/agos.h"
|
||||
|
||||
namespace AGOS {
|
||||
|
||||
void AGOSEngine::setupPuzzleOpcodes(OpcodeProc *op) {
|
||||
setupCommonOpcodes(op);
|
||||
|
||||
op[23] = &AGOSEngine::o3_chance;
|
||||
op[30] = &AGOSEngine::o4_iconifyWindow;
|
||||
op[32] = &AGOSEngine::o4_restoreOopsPosition;
|
||||
op[38] = &AGOSEngine::o4_loadMouseImage;
|
||||
op[63] = &AGOSEngine::o4_message;
|
||||
op[65] = &AGOSEngine::o3_addTextBox;
|
||||
op[66] = &AGOSEngine::o4_setShortText;
|
||||
op[70] = &AGOSEngine::o3_printLongText;
|
||||
op[83] = &AGOSEngine::o2_rescan;
|
||||
op[98] = &AGOSEngine::o2_animate;
|
||||
op[99] = &AGOSEngine::o2_stopAnimate;
|
||||
op[105] = &AGOSEngine::o4_loadHiScores;
|
||||
op[106] = &AGOSEngine::o4_checkHiScores;
|
||||
op[107] = &AGOSEngine::o3_addBox;
|
||||
op[120] = &AGOSEngine::o4_sync;
|
||||
op[122] = &AGOSEngine::o3_oracleTextDown;
|
||||
op[123] = &AGOSEngine::o3_oracleTextUp;
|
||||
op[124] = &AGOSEngine::o3_ifTime;
|
||||
op[127] = NULL;
|
||||
op[131] = &AGOSEngine::o3_setTime;
|
||||
op[132] = &AGOSEngine::o4_saveUserGame;
|
||||
op[133] = &AGOSEngine::o4_loadUserGame;
|
||||
op[134] = &AGOSEngine::o3_listSaveGames;
|
||||
op[161] = &AGOSEngine::o3_screenTextBox;
|
||||
op[163] = NULL;
|
||||
op[165] = &AGOSEngine::o3_isAdjNoun;
|
||||
op[166] = NULL;
|
||||
op[167] = NULL;
|
||||
op[168] = NULL;
|
||||
op[169] = NULL;
|
||||
op[171] = &AGOSEngine::o3_hyperLinkOn;
|
||||
op[172] = &AGOSEngine::o3_hyperLinkOff;
|
||||
op[173] = &AGOSEngine::o4_saveOopsPosition;
|
||||
op[177] = &AGOSEngine::o3_screenTextPObj;
|
||||
op[181] = &AGOSEngine::o3_mouseOff;
|
||||
op[187] = &AGOSEngine::o4_resetGameTime;
|
||||
op[188] = &AGOSEngine::o2_isShortText;
|
||||
op[189] = &AGOSEngine::o2_clearMarks;
|
||||
op[190] = &AGOSEngine::o2_waitMark;
|
||||
op[191] = &AGOSEngine::o4_resetPVCount;
|
||||
op[192] = &AGOSEngine::o4_setPathValues;
|
||||
op[193] = &AGOSEngine::o3_stopClock;
|
||||
op[194] = &AGOSEngine::o4_restartClock;
|
||||
op[195] = &AGOSEngine::o3_setColour;
|
||||
}
|
||||
|
||||
// -----------------------------------------------------------------------
|
||||
// Puzzle Pack Opcodes
|
||||
// -----------------------------------------------------------------------
|
||||
|
||||
void AGOSEngine::o4_iconifyWindow() {
|
||||
// 30
|
||||
getNextItemPtr();
|
||||
if (_clockStopped != 0)
|
||||
_gameTime += time(NULL) - _clockStopped;
|
||||
_clockStopped = 0;
|
||||
_system->setFeatureState(OSystem::kFeatureIconifyWindow, true);
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_restoreOopsPosition() {
|
||||
// 32: restore oops position
|
||||
uint i;
|
||||
|
||||
getNextItemPtr();
|
||||
|
||||
if (_oopsValid) {
|
||||
for (i = 0; i < _numVars; i++) {
|
||||
_variableArray[i] = _variableArray2[i];
|
||||
}
|
||||
i = _variableArray[999] * 100 + 11;
|
||||
set_video_mode_internal(4,i);
|
||||
if (getBitFlag(110)) {
|
||||
_gameTime += 10;
|
||||
} else {
|
||||
// Swampy adventures
|
||||
_gameTime += 30;
|
||||
}
|
||||
_oopsValid = false;
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_loadMouseImage() {
|
||||
// 38: load mouse image
|
||||
getNextItemPtr();
|
||||
getVarOrByte();
|
||||
loadMouseImage();
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_message() {
|
||||
// 63: show string nl
|
||||
|
||||
if (getBitFlag(105)) {
|
||||
// Swampy adventures
|
||||
getStringPtrByID(getNextStringID());
|
||||
// printInfoText(getStringPtrByID(getNextStringID()));
|
||||
} else {
|
||||
showMessageFormat("%s\n", getStringPtrByID(getNextStringID()));
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_setShortText() {
|
||||
// 66: set item name
|
||||
uint var = getVarOrByte();
|
||||
uint stringId = getNextStringID();
|
||||
if (var < _numTextBoxes) {
|
||||
_shortText[var] = stringId;
|
||||
_shortTextX[var] = getVarOrWord();
|
||||
_shortTextY[var] = getVarOrWord();
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_loadHiScores() {
|
||||
// 105: load high scores
|
||||
getVarOrByte();
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_checkHiScores() {
|
||||
// 106: check high scores
|
||||
getVarOrByte();
|
||||
getVarOrByte();
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_sync() {
|
||||
// 120: sync
|
||||
uint a = getVarOrWord();
|
||||
if (a == 8001 || a == 8101 || a == 8201 || a == 8301 || a == 8401) {
|
||||
_marks &= ~(1 << 2);
|
||||
}
|
||||
sendSync(a);
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_saveUserGame() {
|
||||
// 132: save game
|
||||
if (_clockStopped != 0)
|
||||
_gameTime += time(NULL) - _clockStopped;
|
||||
_clockStopped = 0;
|
||||
|
||||
if (getGameId() == GID_DIMP) {
|
||||
saveGame(1, NULL);
|
||||
} else if (!getBitFlag(110)) {
|
||||
// Swampy adventures
|
||||
saveGame(1, NULL);
|
||||
}
|
||||
|
||||
//saveHiScores()
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_loadUserGame() {
|
||||
// 133: load usergame
|
||||
|
||||
// NoPatience or Jumble
|
||||
if (getBitFlag(110)) {
|
||||
//getHiScoreName();
|
||||
return;
|
||||
}
|
||||
|
||||
// XXX
|
||||
loadGame(1);
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_saveOopsPosition() {
|
||||
// 173: save oops position
|
||||
if (!isVgaQueueEmpty()) {
|
||||
_oopsValid = true;
|
||||
for (uint i = 0; i < _numVars; i++) {
|
||||
_variableArray2[i] = _variableArray[i];
|
||||
}
|
||||
} else {
|
||||
_oopsValid = false;
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_resetGameTime() {
|
||||
// 187: reset game time
|
||||
_gameTime = 0;
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_resetPVCount() {
|
||||
// 191
|
||||
_PVCount = 0;
|
||||
_GPVCount = 0;
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_setPathValues() {
|
||||
// 192
|
||||
_pathValues[_PVCount++] = getVarOrByte();
|
||||
_pathValues[_PVCount++] = getVarOrByte();
|
||||
_pathValues[_PVCount++] = getVarOrByte();
|
||||
_pathValues[_PVCount++] = getVarOrByte();
|
||||
}
|
||||
|
||||
void AGOSEngine::o4_restartClock() {
|
||||
// 194: resume clock
|
||||
if (_clockStopped != 0)
|
||||
_gameTime += time(NULL) - _clockStopped;
|
||||
_clockStopped = 0;
|
||||
}
|
||||
|
||||
} // End of namespace AGOS
|
||||
195
engines/agos/script_s1.cpp
Normal file
195
engines/agos/script_s1.cpp
Normal file
@ -0,0 +1,195 @@
|
||||
/* 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 "agos/agos.h"
|
||||
|
||||
namespace AGOS {
|
||||
|
||||
void AGOSEngine::setupSimon1Opcodes(OpcodeProc *op) {
|
||||
setupCommonOpcodes(op);
|
||||
|
||||
op[70] = &AGOSEngine::o1_printLongText;
|
||||
op[83] = &AGOSEngine::o1_rescan;
|
||||
op[98] = &AGOSEngine::o1_animate;
|
||||
op[99] = &AGOSEngine::o1_stopAnimate;
|
||||
op[127] = &AGOSEngine::o1_playTune;
|
||||
op[177] = &AGOSEngine::o1_screenTextPObj;
|
||||
op[181] = &AGOSEngine::o1_mouseOff;
|
||||
op[182] = &AGOSEngine::o1_loadBeard;
|
||||
op[183] = &AGOSEngine::o1_unloadBeard;
|
||||
op[185] = &AGOSEngine::o1_loadStrings;
|
||||
op[187] = &AGOSEngine::o1_specialFade;
|
||||
}
|
||||
|
||||
// -----------------------------------------------------------------------
|
||||
// Simon 1 Opcodes
|
||||
// -----------------------------------------------------------------------
|
||||
|
||||
void AGOSEngine::o1_printLongText() {
|
||||
// 70: show string from array
|
||||
const char *str = (const char *)getStringPtrByID(_longText[getVarOrByte()]);
|
||||
showMessageFormat("%s\n", str);
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_rescan() {
|
||||
// 83: restart subroutine
|
||||
setScriptReturn(-10);
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_animate() {
|
||||
// 98: start vga
|
||||
uint vga_res, vgaSpriteId, windowNum, x, y, palette;
|
||||
vgaSpriteId = getVarOrWord();
|
||||
vga_res = vgaSpriteId / 100;
|
||||
windowNum = getVarOrByte();
|
||||
x = getVarOrWord();
|
||||
y = getVarOrWord();
|
||||
palette = getVarOrWord();
|
||||
loadSprite(windowNum, vga_res, vgaSpriteId, x, y, palette);
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_stopAnimate() {
|
||||
// 99: kill sprite
|
||||
stopAnimateSimon1(getVarOrWord());
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_playTune() {
|
||||
// 127: deals with music
|
||||
int music = getVarOrWord();
|
||||
int track = getVarOrWord();
|
||||
|
||||
// Jamieson630:
|
||||
// This appears to be a "load or play music" command.
|
||||
// The music resource is specified, and optionally
|
||||
// a track as well. Normally we see two calls being
|
||||
// made, one to load the resource and another to
|
||||
// actually start a track (so the resource is
|
||||
// effectively preloaded so there's no latency when
|
||||
// starting playback).
|
||||
|
||||
if (music != _lastMusicPlayed) {
|
||||
_lastMusicPlayed = music;
|
||||
loadMusic(music);
|
||||
midi.startTrack(track);
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_screenTextPObj() {
|
||||
// 177: inventory descriptions
|
||||
uint vgaSpriteId = getVarOrByte();
|
||||
uint color = getVarOrByte();
|
||||
|
||||
SubObject *subObject = (SubObject *)findChildOfType(getNextItemPtr(), 2);
|
||||
if (getFeatures() & GF_TALKIE) {
|
||||
if (subObject != NULL && subObject->objectFlags & kOFVoice) {
|
||||
uint offs = getOffsetOfChild2Param(subObject, kOFVoice);
|
||||
playSpeech(subObject->objectFlagValue[offs], vgaSpriteId);
|
||||
} else if (subObject != NULL && subObject->objectFlags & kOFNumber) {
|
||||
uint offs = getOffsetOfChild2Param(subObject, kOFNumber);
|
||||
playSpeech(subObject->objectFlagValue[offs] + 3550, vgaSpriteId);
|
||||
}
|
||||
}
|
||||
|
||||
if (subObject != NULL && subObject->objectFlags & kOFText && _subtitles) {
|
||||
const char *stringPtr = (const char *)getStringPtrByID(subObject->objectFlagValue[0]);
|
||||
TextLocation *tl = getTextLocation(vgaSpriteId);
|
||||
char buf[256];
|
||||
int j, k;
|
||||
|
||||
if (subObject->objectFlags & kOFNumber) {
|
||||
if (_language == Common::HB_ISR) {
|
||||
j = subObject->objectFlagValue[getOffsetOfChild2Param(subObject, kOFNumber)];
|
||||
k = (j % 10) * 10;
|
||||
k += j / 10;
|
||||
if (!(j % 10))
|
||||
sprintf(buf,"0%d%s", k, stringPtr);
|
||||
else
|
||||
sprintf(buf,"%d%s", k, stringPtr);
|
||||
} else {
|
||||
sprintf(buf,"%d%s", subObject->objectFlagValue[getOffsetOfChild2Param(subObject, kOFNumber)], stringPtr);
|
||||
}
|
||||
stringPtr = buf;
|
||||
}
|
||||
if (stringPtr != NULL)
|
||||
printScreenText(vgaSpriteId, color, stringPtr, tl->x, tl->y, tl->width);
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_mouseOff() {
|
||||
// 181: force mouseOff
|
||||
scriptMouseOff();
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_loadBeard() {
|
||||
// 182: load beard
|
||||
if (_beardLoaded == false) {
|
||||
_beardLoaded = true;
|
||||
_lockWord |= 0x8000;
|
||||
loadVGABeardFile(328);
|
||||
_lockWord &= ~0x8000;
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_unloadBeard() {
|
||||
// 183: unload beard
|
||||
if (_beardLoaded == true) {
|
||||
_beardLoaded = false;
|
||||
_lockWord |= 0x8000;
|
||||
loadVGABeardFile(23);
|
||||
_lockWord &= ~0x8000;
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_loadStrings() {
|
||||
// 185: load sound files
|
||||
_soundFileId = getVarOrWord();
|
||||
if (getPlatform() == Common::kPlatformAmiga && getFeatures() & GF_TALKIE) {
|
||||
char buf[10];
|
||||
sprintf(buf, "%d%s", _soundFileId, "Effects");
|
||||
_sound->readSfxFile(buf);
|
||||
sprintf(buf, "%d%s", _soundFileId, "simon");
|
||||
_sound->readVoiceFile(buf);
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o1_specialFade() {
|
||||
// 187: fade to black
|
||||
uint i;
|
||||
|
||||
memcpy(_videoBuf1, _currentPalette, 4 * 256);
|
||||
|
||||
for (i = 32; i != 0; --i) {
|
||||
paletteFadeOut(_videoBuf1, 32, 8);
|
||||
paletteFadeOut(_videoBuf1 + 4 * 48, 144, 8);
|
||||
paletteFadeOut(_videoBuf1 + 4 * 208, 48, 8);
|
||||
_system->setPalette(_videoBuf1, 0, 256);
|
||||
delay(5);
|
||||
}
|
||||
|
||||
memcpy(_currentPalette, _videoBuf1, 1024);
|
||||
memcpy(_displayPalette, _videoBuf1, 1024);
|
||||
}
|
||||
|
||||
} // End of namespace AGOS
|
||||
220
engines/agos/script_s2.cpp
Normal file
220
engines/agos/script_s2.cpp
Normal file
@ -0,0 +1,220 @@
|
||||
/* 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 "agos/agos.h"
|
||||
|
||||
namespace AGOS {
|
||||
|
||||
void AGOSEngine::setupSimon2Opcodes(OpcodeProc *op) {
|
||||
setupCommonOpcodes(op);
|
||||
|
||||
op[70] = &AGOSEngine::o2_printLongText;
|
||||
op[83] = &AGOSEngine::o2_rescan;
|
||||
op[98] = &AGOSEngine::o2_animate;
|
||||
op[99] = &AGOSEngine::o2_stopAnimate;
|
||||
op[127] = &AGOSEngine::o2_playTune;
|
||||
op[177] = &AGOSEngine::o2_screenTextPObj;
|
||||
op[181] = &AGOSEngine::o2_mouseOff;
|
||||
op[188] = &AGOSEngine::o2_isShortText;
|
||||
op[189] = &AGOSEngine::o2_clearMarks;
|
||||
op[190] = &AGOSEngine::o2_waitMark;
|
||||
}
|
||||
|
||||
// -----------------------------------------------------------------------
|
||||
// Simon 2 Opcodes
|
||||
// -----------------------------------------------------------------------
|
||||
|
||||
void AGOSEngine::o2_printLongText() {
|
||||
// 70: show string from array
|
||||
const char *str = (const char *)getStringPtrByID(_longText[getVarOrByte()]);
|
||||
writeVariable(51, strlen(str) / 53 * 8 + 8);
|
||||
showMessageFormat("%s\n", str);
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_rescan() {
|
||||
// 83: restart subroutine
|
||||
if (_exitCutscene) {
|
||||
if (getBitFlag(9)) {
|
||||
endCutscene();
|
||||
}
|
||||
} else {
|
||||
processSpecialKeys();
|
||||
}
|
||||
|
||||
setScriptReturn(-10);
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_animate() {
|
||||
// 98: start vga
|
||||
uint vga_res = getVarOrWord();
|
||||
uint vgaSpriteId = getVarOrWord();
|
||||
uint windowNum = getVarOrByte();
|
||||
uint x = getVarOrWord();
|
||||
uint y = getVarOrWord();
|
||||
uint palette = getVarOrWord();
|
||||
loadSprite(windowNum, vga_res, vgaSpriteId, x, y, palette);
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_stopAnimate() {
|
||||
// 99: kill sprite
|
||||
uint a = getVarOrWord();
|
||||
uint b = getVarOrWord();
|
||||
stopAnimateSimon2(a, b);
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_playTune() {
|
||||
// 127: deals with music
|
||||
int music = getVarOrWord();
|
||||
int track = getVarOrWord();
|
||||
int loop = getVarOrByte();
|
||||
|
||||
// Jamieson630:
|
||||
// This appears to be a "load or play music" command.
|
||||
// The music resource is specified, and optionally
|
||||
// a track as well. Normally we see two calls being
|
||||
// made, one to load the resource and another to
|
||||
// actually start a track (so the resource is
|
||||
// effectively preloaded so there's no latency when
|
||||
// starting playback).
|
||||
|
||||
midi.setLoop(loop != 0);
|
||||
if (_lastMusicPlayed != music)
|
||||
_nextMusicToPlay = music;
|
||||
else
|
||||
midi.startTrack(track);
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_screenTextPObj() {
|
||||
// 177: inventory descriptions
|
||||
uint vgaSpriteId = getVarOrByte();
|
||||
uint color = getVarOrByte();
|
||||
|
||||
SubObject *subObject = (SubObject *)findChildOfType(getNextItemPtr(), 2);
|
||||
if (getFeatures() & GF_TALKIE) {
|
||||
if (subObject != NULL && subObject->objectFlags & kOFVoice) {
|
||||
uint speechId = subObject->objectFlagValue[getOffsetOfChild2Param(subObject, kOFVoice)];
|
||||
|
||||
if (subObject->objectFlags & kOFNumber) {
|
||||
uint speechIdOffs = subObject->objectFlagValue[getOffsetOfChild2Param(subObject, kOFNumber)];
|
||||
|
||||
if (speechId == 116)
|
||||
speechId = speechIdOffs + 115;
|
||||
if (speechId == 92)
|
||||
speechId = speechIdOffs + 98;
|
||||
if (speechId == 99)
|
||||
speechId = 9;
|
||||
if (speechId == 97) {
|
||||
switch (speechIdOffs) {
|
||||
case 12:
|
||||
speechId = 109;
|
||||
break;
|
||||
case 14:
|
||||
speechId = 108;
|
||||
break;
|
||||
case 18:
|
||||
speechId = 107;
|
||||
break;
|
||||
case 20:
|
||||
speechId = 106;
|
||||
break;
|
||||
case 22:
|
||||
speechId = 105;
|
||||
break;
|
||||
case 28:
|
||||
speechId = 104;
|
||||
break;
|
||||
case 90:
|
||||
speechId = 103;
|
||||
break;
|
||||
case 92:
|
||||
speechId = 102;
|
||||
break;
|
||||
case 100:
|
||||
speechId = 51;
|
||||
break;
|
||||
default:
|
||||
error("o2_screenTextPObj: invalid case %d", speechIdOffs);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (_speech)
|
||||
playSpeech(speechId, vgaSpriteId);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
if (subObject != NULL && subObject->objectFlags & kOFText && _subtitles) {
|
||||
const char *stringPtr = (const char *)getStringPtrByID(subObject->objectFlagValue[0]);
|
||||
TextLocation *tl = getTextLocation(vgaSpriteId);
|
||||
char buf[256];
|
||||
int j, k;
|
||||
|
||||
if (subObject->objectFlags & kOFNumber) {
|
||||
if (_language == Common::HB_ISR) {
|
||||
j = subObject->objectFlagValue[getOffsetOfChild2Param(subObject, kOFNumber)];
|
||||
k = (j % 10) * 10;
|
||||
k += j / 10;
|
||||
if (!(j % 10))
|
||||
sprintf(buf,"0%d%s", k, stringPtr);
|
||||
else
|
||||
sprintf(buf,"%d%s", k, stringPtr);
|
||||
} else {
|
||||
sprintf(buf,"%d%s", subObject->objectFlagValue[getOffsetOfChild2Param(subObject, kOFNumber)], stringPtr);
|
||||
}
|
||||
stringPtr = buf;
|
||||
}
|
||||
if (stringPtr != NULL)
|
||||
printScreenText(vgaSpriteId, color, stringPtr, tl->x, tl->y, tl->width);
|
||||
}
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_mouseOff() {
|
||||
// 181: force mouseOff
|
||||
scriptMouseOff();
|
||||
changeWindow(1);
|
||||
showMessageFormat("\xC");
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_isShortText() {
|
||||
// 188: string2 is
|
||||
uint i = getVarOrByte();
|
||||
uint str = getNextStringID();
|
||||
setScriptCondition(str < _numTextBoxes && _shortText[i] == str);
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_clearMarks() {
|
||||
// 189: clear_op189_flag
|
||||
_marks = 0;
|
||||
}
|
||||
|
||||
void AGOSEngine::o2_waitMark() {
|
||||
// 190
|
||||
uint i = getVarOrByte();
|
||||
if (!(_marks & (1 << i)))
|
||||
waitForMark(i);
|
||||
}
|
||||
|
||||
} // End of namespace AGOS
|
||||
173
engines/agos/script_ww.cpp
Normal file
173
engines/agos/script_ww.cpp
Normal file
@ -0,0 +1,173 @@
|
||||
/* 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 {
|
||||
|
||||
void AGOSEngine::setupWaxworksOpcodes(OpcodeProc *op) {
|
||||
setupCommonOpcodes(op);
|
||||
|
||||
// Confirmed
|
||||
op[8] = &AGOSEngine::oe1_isNotAt;
|
||||
op[9] = &AGOSEngine::oe1_sibling;
|
||||
op[10] = &AGOSEngine::oe1_notSibling;
|
||||
op[24] = &AGOSEngine::oe1_isPlayer;
|
||||
op[29] = &AGOSEngine::oe1_canPut;
|
||||
op[34] = &AGOSEngine::oe1_copyof;
|
||||
op[37] = &AGOSEngine::oe1_whatO;
|
||||
op[35] = &AGOSEngine::oe1_copyfo;
|
||||
op[54] = &AGOSEngine::oww_moveDirn;
|
||||
op[55] = &AGOSEngine::oww_goto;
|
||||
op[70] = &AGOSEngine::o1_printLongText;
|
||||
op[73] = &AGOSEngine::oe1_pObj;
|
||||
op[74] = &AGOSEngine::oe1_pName;
|
||||
op[75] = &AGOSEngine::oe1_pcName;
|
||||
op[83] = &AGOSEngine::o1_rescan;
|
||||
op[85] = &AGOSEngine::oww_whereTo;
|
||||
op[89] = &AGOSEngine::oe2_loadUserGame;
|
||||
op[94] = &AGOSEngine::oe1_findMaster;
|
||||
op[95] = &AGOSEngine::oe1_nextMaster;
|
||||
op[98] = &AGOSEngine::o1_animate;
|
||||
op[99] = &AGOSEngine::o1_stopAnimate;
|
||||
op[105] = &AGOSEngine::oww_menu;
|
||||
op[106] = &AGOSEngine::oww_textMenu;
|
||||
op[123] = &AGOSEngine::oe1_setTime;
|
||||
op[127] = &AGOSEngine::o1_playTune;
|
||||
op[144] = &AGOSEngine::oe2_setDoorOpen;
|
||||
op[145] = &AGOSEngine::oe2_setDoorClosed;
|
||||
op[146] = &AGOSEngine::oe2_setDoorLocked;
|
||||
op[147] = &AGOSEngine::oe2_setDoorClosed;
|
||||
op[148] = &AGOSEngine::oe2_ifDoorOpen;
|
||||
op[149] = &AGOSEngine::oe2_ifDoorClosed;
|
||||
op[150] = &AGOSEngine::oe2_ifDoorLocked;
|
||||
op[162] = &AGOSEngine::oe2_screenTextMsg;
|
||||
op[175] = &AGOSEngine::o_getDollar2;
|
||||
op[179] = &AGOSEngine::o_isAdjNoun;
|
||||
op[180] = &AGOSEngine::o_b2Set;
|
||||
op[181] = &AGOSEngine::o_b2Clear;
|
||||
op[182] = &AGOSEngine::o_b2Zero;
|
||||
op[183] = &AGOSEngine::o_b2NotZero;
|
||||
op[184] = &AGOSEngine::oww_boxMessage;
|
||||
op[185] = &AGOSEngine::oww_boxMsg;
|
||||
op[186] = &AGOSEngine::oww_boxLongText;
|
||||
op[187] = &AGOSEngine::oww_printBox;
|
||||
op[188] = &AGOSEngine::oww_boxPObj;
|
||||
op[189] = &AGOSEngine::o_lockZones;
|
||||
op[190] = &AGOSEngine::o_unlockZones;
|
||||
|
||||
// Code difference, check if triggered
|
||||
op[161] = NULL;
|
||||
op[163] = NULL;
|
||||
op[164] = NULL;
|
||||
op[165] = NULL;
|
||||
op[166] = NULL;
|
||||
op[167] = NULL;
|
||||
op[168] = NULL;
|
||||
op[169] = NULL;
|
||||
op[170] = NULL;
|
||||
op[171] = NULL;
|
||||
op[172] = NULL;
|
||||
op[173] = NULL;
|
||||
op[174] = NULL;
|
||||
op[176] = NULL;
|
||||
op[177] = NULL;
|
||||
op[178] = NULL;
|
||||
}
|
||||
|
||||
// -----------------------------------------------------------------------
|
||||
// Waxworks Opcodes
|
||||
// -----------------------------------------------------------------------
|
||||
|
||||
void AGOSEngine::oww_moveDirn() {
|
||||
// 54: move direction
|
||||
int16 d = getVarOrByte();
|
||||
moveDirn_ww(me(), d);
|
||||
}
|
||||
|
||||
void AGOSEngine::oww_goto() {
|
||||
// 55: set itemA parent
|
||||
uint item = getNextItemID();
|
||||
if (derefItem(item) == NULL) {
|
||||
setItemParent(me(), NULL);
|
||||
loadRoomItems(item);
|
||||
}
|
||||
setItemParent(me(), derefItem(item));
|
||||
}
|
||||
|
||||
void AGOSEngine::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::oww_menu() {
|
||||
// 105: set agos menu
|
||||
_agosMenu = getVarOrByte();
|
||||
}
|
||||
|
||||
void AGOSEngine::oww_textMenu() {
|
||||
// 106: set text menu
|
||||
byte slot = getVarOrByte();
|
||||
_textMenu[slot] = getVarOrByte();
|
||||
}
|
||||
|
||||
void AGOSEngine::oww_boxMessage() {
|
||||
// 184: print message to box
|
||||
boxTextMessage((const char *)getStringPtrByID(getNextStringID()));
|
||||
}
|
||||
|
||||
void AGOSEngine::oww_boxMsg() {
|
||||
// 185: print msg to box
|
||||
boxTextMsg((const char *)getStringPtrByID(getNextStringID()));
|
||||
}
|
||||
|
||||
void AGOSEngine::oww_boxLongText() {
|
||||
// 186: print long text to box
|
||||
boxTextMsg((const char *)getStringPtrByID(_longText[getVarOrByte()]));
|
||||
}
|
||||
|
||||
void AGOSEngine::oww_printBox() {
|
||||
// 187: print box
|
||||
printBox();
|
||||
}
|
||||
|
||||
void AGOSEngine::oww_boxPObj() {
|
||||
// 188: print object flag name to box
|
||||
SubObject *subObject = (SubObject *)findChildOfType(getNextItemPtr(), 2);
|
||||
|
||||
if (subObject != NULL && subObject->objectFlags & kOFText)
|
||||
boxTextMsg((const char *)getStringPtrByID(subObject->objectFlagValue[0]));
|
||||
}
|
||||
|
||||
} // End of namespace AGOS
|
||||
Loading…
Reference in New Issue
Block a user