[Scummvm-cvs-logs] SF.net SVN: scummvm: [24389] scummvm/trunk/engines/agos
kirben at users.sourceforge.net
kirben at users.sourceforge.net
Thu Oct 19 13:40:46 CEST 2006
Revision: 24389
http://svn.sourceforge.net/scummvm/?rev=24389&view=rev
Author: kirben
Date: 2006-10-19 04:40:26 -0700 (Thu, 19 Oct 2006)
Log Message:
-----------
Split game specific script opcodes into separate files
Modified Paths:
--------------
scummvm/trunk/engines/agos/module.mk
scummvm/trunk/engines/agos/script.cpp
Added Paths:
-----------
scummvm/trunk/engines/agos/script_e1.cpp
scummvm/trunk/engines/agos/script_e2.cpp
scummvm/trunk/engines/agos/script_ff.cpp
scummvm/trunk/engines/agos/script_pp.cpp
scummvm/trunk/engines/agos/script_s1.cpp
scummvm/trunk/engines/agos/script_s2.cpp
scummvm/trunk/engines/agos/script_ww.cpp
Modified: scummvm/trunk/engines/agos/module.mk
===================================================================
--- scummvm/trunk/engines/agos/module.mk 2006-10-19 11:13:28 UTC (rev 24388)
+++ scummvm/trunk/engines/agos/module.mk 2006-10-19 11:40:26 UTC (rev 24389)
@@ -21,6 +21,13 @@
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 \
Modified: scummvm/trunk/engines/agos/script.cpp
===================================================================
--- scummvm/trunk/engines/agos/script.cpp 2006-10-19 11:13:28 UTC (rev 24388)
+++ scummvm/trunk/engines/agos/script.cpp 2006-10-19 11:40:26 UTC (rev 24389)
@@ -166,441 +166,6 @@
op[186] = &AGOSEngine::o_unfreezeZones;
}
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
void AGOSEngine::setupOpcodes() {
memset(_opcode_table, 0, sizeof(_opcode_table));
_numOpcodes = ARRAYSIZE(_opcode_table);
@@ -1786,1366 +1351,7 @@
}
// -----------------------------------------------------------------------
-// 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();
-}
-
-// -----------------------------------------------------------------------
-// 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);
-}
-
-// -----------------------------------------------------------------------
-// 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]));
-}
-
-// -----------------------------------------------------------------------
-// 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);
-}
-
-// -----------------------------------------------------------------------
-// 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);
-}
-
-// -----------------------------------------------------------------------
-// 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);
-}
-
-// -----------------------------------------------------------------------
-// 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;
-}
-
-// -----------------------------------------------------------------------
-
int AGOSEngine::runScript() {
int opcode;
bool flag;
Added: scummvm/trunk/engines/agos/script_e1.cpp
===================================================================
--- scummvm/trunk/engines/agos/script_e1.cpp (rev 0)
+++ scummvm/trunk/engines/agos/script_e1.cpp 2006-10-19 11:40:26 UTC (rev 24389)
@@ -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
Property changes on: scummvm/trunk/engines/agos/script_e1.cpp
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Date Rev Author URL Id
Name: svn:eol-style
+ native
Added: scummvm/trunk/engines/agos/script_e2.cpp
===================================================================
--- scummvm/trunk/engines/agos/script_e2.cpp (rev 0)
+++ scummvm/trunk/engines/agos/script_e2.cpp 2006-10-19 11:40:26 UTC (rev 24389)
@@ -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
Property changes on: scummvm/trunk/engines/agos/script_e2.cpp
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Date Rev Author URL Id
Name: svn:eol-style
+ native
Added: scummvm/trunk/engines/agos/script_ff.cpp
===================================================================
--- scummvm/trunk/engines/agos/script_ff.cpp (rev 0)
+++ scummvm/trunk/engines/agos/script_ff.cpp 2006-10-19 11:40:26 UTC (rev 24389)
@@ -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
Property changes on: scummvm/trunk/engines/agos/script_ff.cpp
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Date Rev Author URL Id
Name: svn:eol-style
+ native
Added: scummvm/trunk/engines/agos/script_pp.cpp
===================================================================
--- scummvm/trunk/engines/agos/script_pp.cpp (rev 0)
+++ scummvm/trunk/engines/agos/script_pp.cpp 2006-10-19 11:40:26 UTC (rev 24389)
@@ -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
Property changes on: scummvm/trunk/engines/agos/script_pp.cpp
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Date Rev Author URL Id
Name: svn:eol-style
+ native
Added: scummvm/trunk/engines/agos/script_s1.cpp
===================================================================
--- scummvm/trunk/engines/agos/script_s1.cpp (rev 0)
+++ scummvm/trunk/engines/agos/script_s1.cpp 2006-10-19 11:40:26 UTC (rev 24389)
@@ -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
Property changes on: scummvm/trunk/engines/agos/script_s1.cpp
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Date Rev Author URL Id
Name: svn:eol-style
+ native
Added: scummvm/trunk/engines/agos/script_s2.cpp
===================================================================
--- scummvm/trunk/engines/agos/script_s2.cpp (rev 0)
+++ scummvm/trunk/engines/agos/script_s2.cpp 2006-10-19 11:40:26 UTC (rev 24389)
@@ -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
Property changes on: scummvm/trunk/engines/agos/script_s2.cpp
___________________________________________________________________
Name: svn:mime-type
+ text/plain
Name: svn:keywords
+ Date Rev Author URL Id
Name: svn:eol-style
+ native
Added: scummvm/trunk/engines/agos/script_ww.cpp
===================================================================
--- scummvm/trunk/engines/agos/script_ww.cpp (rev 0)
+++ scummvm/trunk/engines/agos/script_ww.cpp 2006-10-19 11:40:26 UTC (rev 24389)
@@ -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();
+}
+
@@ Diff output truncated at 100000 characters. @@
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Scummvm-git-logs
mailing list