/* ScummVM - Scumm Interpreter * Copyright (C) 2001 Ludvig Strigeus * * 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Header$ * */ #include "stdafx.h" #include "scumm.h" void Scumm::setupOpcodes() { static const OpcodeProc opcode_list[] = { /* 00 */ &Scumm::o5_stopObjectCode, &Scumm::o5_putActor, &Scumm::o5_startMusic, &Scumm::o5_getActorRoom, /* 04 */ &Scumm::o5_isGreaterEqual, &Scumm::o5_drawObject, &Scumm::o5_getActorElevation, &Scumm::o5_setState, /* 08 */ &Scumm::o5_isNotEqual, &Scumm::o5_faceActor, &Scumm::o5_startScript, &Scumm::o5_getVerbEntrypoint, /* 0C */ &Scumm::o5_resourceRoutines, &Scumm::o5_walkActorToActor, &Scumm::o5_putActorAtObject, &Scumm::o5_getObjectState, /* 10 */ &Scumm::o5_getObjectOwner, &Scumm::o5_animateActor, &Scumm::o5_panCameraTo, &Scumm::o5_actorSet, /* 14 */ &Scumm::o5_print, &Scumm::o5_actorFromPos, &Scumm::o5_getRandomNr, &Scumm::o5_and, /* 18 */ &Scumm::o5_jumpRelative, &Scumm::o5_doSentence, &Scumm::o5_move, &Scumm::o5_multiply, /* 1C */ &Scumm::o5_startSound, &Scumm::o5_ifClassOfIs, &Scumm::o5_walkActorTo, &Scumm::o5_isActorInBox, /* 20 */ &Scumm::o5_stopMusic, &Scumm::o5_putActor, &Scumm::o5_getAnimCounter, &Scumm::o5_getActorY, /* 24 */ &Scumm::o5_loadRoomWithEgo, &Scumm::o5_pickupObject, &Scumm::o5_setVarRange, &Scumm::o5_stringOps, /* 28 */ &Scumm::o5_equalZero, &Scumm::o5_setOwnerOf, &Scumm::o5_startScript, &Scumm::o5_delayVariable, /* 2C */ &Scumm::o5_cursorCommand, &Scumm::o5_putActorInRoom, &Scumm::o5_delay, &Scumm::o5_getObjectState, /* 30 */ &Scumm::o5_matrixOps, &Scumm::o5_getInventoryCount, &Scumm::o5_setCameraAt, &Scumm::o5_roomOps, /* 34 */ &Scumm::o5_getDist, &Scumm::o5_findObject, &Scumm::o5_walkActorToObject, &Scumm::o5_startObject, /* 38 */ &Scumm::o5_lessOrEqual, &Scumm::o5_doSentence, &Scumm::o5_subtract, &Scumm::o5_getActorScale, /* 3C */ &Scumm::o5_stopSound, &Scumm::o5_findInventory, &Scumm::o5_walkActorTo, &Scumm::o5_drawBox, /* 40 */ &Scumm::o5_cutscene, &Scumm::o5_putActor, &Scumm::o5_chainScript, &Scumm::o5_getActorX, /* 44 */ &Scumm::o5_isLess, &Scumm::o5_drawObject, &Scumm::o5_increment, &Scumm::o5_setState, /* 48 */ &Scumm::o5_isEqual, &Scumm::o5_faceActor, &Scumm::o5_startScript, &Scumm::o5_getVerbEntrypoint, /* 4C */ &Scumm::o5_soundKludge, &Scumm::o5_walkActorToActor, &Scumm::o5_putActorAtObject, &Scumm::o5_badOpcode, /* 50 */ &Scumm::o5_pickupObjectOld, &Scumm::o5_animateActor, &Scumm::o5_actorFollowCamera, &Scumm::o5_actorSet, /* 54 */ &Scumm::o5_setObjectName, &Scumm::o5_actorFromPos, &Scumm::o5_getActorMoving, &Scumm::o5_or, /* 58 */ &Scumm::o5_overRide, &Scumm::o5_doSentence, &Scumm::o5_add, &Scumm::o5_divide, /* 5C */ &Scumm::o5_oldRoomEffect, &Scumm::o5_actorSetClass, &Scumm::o5_walkActorTo, &Scumm::o5_isActorInBox, /* 60 */ &Scumm::o5_freezeScripts, &Scumm::o5_putActor, &Scumm::o5_stopScript, &Scumm::o5_getActorFacing, /* 64 */ &Scumm::o5_loadRoomWithEgo, &Scumm::o5_pickupObject, &Scumm::o5_getClosestObjActor, &Scumm::o5_dummy, /* 68 */ &Scumm::o5_getScriptRunning, &Scumm::o5_setOwnerOf, &Scumm::o5_startScript, &Scumm::o5_debug, /* 6C */ &Scumm::o5_getActorWidth, &Scumm::o5_putActorInRoom, &Scumm::o5_stopObjectScript, &Scumm::o5_badOpcode, /* 70 */ &Scumm::o5_lights, &Scumm::o5_getActorCostume, &Scumm::o5_loadRoom, &Scumm::o5_roomOps, /* 74 */ &Scumm::o5_getDist, &Scumm::o5_findObject, &Scumm::o5_walkActorToObject, &Scumm::o5_startObject, /* 78 */ &Scumm::o5_isGreater, /* less? */ &Scumm::o5_doSentence, &Scumm::o5_verbOps, &Scumm::o5_getActorWalkBox, /* 7C */ &Scumm::o5_isSoundRunning, &Scumm::o5_findInventory, &Scumm::o5_walkActorTo, &Scumm::o5_drawBox, /* 80 */ &Scumm::o5_breakHere, &Scumm::o5_putActor, &Scumm::o5_startMusic, &Scumm::o5_getActorRoom, /* 84 */ &Scumm::o5_isGreaterEqual, /* less equal? */ &Scumm::o5_drawObject, &Scumm::o5_getActorElevation, &Scumm::o5_setState, /* 88 */ &Scumm::o5_isNotEqual, &Scumm::o5_faceActor, &Scumm::o5_startScript, &Scumm::o5_getVerbEntrypoint, /* 8C */ &Scumm::o5_resourceRoutines, &Scumm::o5_walkActorToActor, &Scumm::o5_putActorAtObject, &Scumm::o5_getObjectState, /* 90 */ &Scumm::o5_getObjectOwner, &Scumm::o5_animateActor, &Scumm::o5_panCameraTo, &Scumm::o5_actorSet, /* 94 */ &Scumm::o5_print, &Scumm::o5_actorFromPos, &Scumm::o5_getRandomNr, &Scumm::o5_and, /* 98 */ &Scumm::o5_quitPauseRestart, &Scumm::o5_doSentence, &Scumm::o5_move, &Scumm::o5_multiply, /* 9C */ &Scumm::o5_startSound, &Scumm::o5_ifClassOfIs, &Scumm::o5_walkActorTo, &Scumm::o5_isActorInBox, /* A0 */ &Scumm::o5_stopObjectCode, &Scumm::o5_putActor, &Scumm::o5_getAnimCounter, &Scumm::o5_getActorY, /* A4 */ &Scumm::o5_loadRoomWithEgo, &Scumm::o5_pickupObject, &Scumm::o5_setVarRange, &Scumm::o5_dummy, /* A8 */ &Scumm::o5_notEqualZero, &Scumm::o5_setOwnerOf, &Scumm::o5_startScript, &Scumm::o5_saveRestoreVerbs, /* AC */ &Scumm::o5_expression, &Scumm::o5_putActorInRoom, &Scumm::o5_wait, &Scumm::o5_badOpcode, /* B0 */ &Scumm::o5_matrixOps, &Scumm::o5_getInventoryCount, &Scumm::o5_setCameraAt, &Scumm::o5_roomOps, /* B4 */ &Scumm::o5_getDist, &Scumm::o5_findObject, &Scumm::o5_walkActorToObject, &Scumm::o5_startObject, /* B8 */ &Scumm::o5_lessOrEqual, &Scumm::o5_doSentence, &Scumm::o5_subtract, &Scumm::o5_getActorScale, /* BC */ &Scumm::o5_stopSound, &Scumm::o5_findInventory, &Scumm::o5_walkActorTo, &Scumm::o5_drawBox, /* C0 */ &Scumm::o5_endCutscene, &Scumm::o5_putActor, &Scumm::o5_chainScript, &Scumm::o5_getActorX, /* C4 */ &Scumm::o5_isLess, &Scumm::o5_badOpcode, &Scumm::o5_decrement, &Scumm::o5_setState, /* C8 */ &Scumm::o5_isEqual, &Scumm::o5_faceActor, &Scumm::o5_startScript, &Scumm::o5_getVerbEntrypoint, /* CC */ &Scumm::o5_pseudoRoom, &Scumm::o5_walkActorToActor, &Scumm::o5_putActorAtObject, &Scumm::o5_badOpcode, /* D0 */ &Scumm::o5_pickupObjectOld, &Scumm::o5_animateActor, &Scumm::o5_actorFollowCamera, &Scumm::o5_actorSet, /* D4 */ &Scumm::o5_setObjectName, &Scumm::o5_actorFromPos, &Scumm::o5_getActorMoving, &Scumm::o5_or, /* D8 */ &Scumm::o5_printEgo, &Scumm::o5_doSentence, &Scumm::o5_add, &Scumm::o5_divide, /* DC */ &Scumm::o5_badOpcode, &Scumm::o5_actorSetClass, &Scumm::o5_walkActorTo, &Scumm::o5_isActorInBox, /* E0 */ &Scumm::o5_freezeScripts, &Scumm::o5_putActor, &Scumm::o5_stopScript, &Scumm::o5_getActorFacing, /* E4 */ &Scumm::o5_loadRoomWithEgo, &Scumm::o5_pickupObject, &Scumm::o5_getClosestObjActor, &Scumm::o5_dummy, /* E8 */ &Scumm::o5_getScriptRunning, &Scumm::o5_setOwnerOf, &Scumm::o5_startScript, &Scumm::o5_debug, /* EC */ &Scumm::o5_getActorWidth, &Scumm::o5_putActorInRoom, &Scumm::o5_stopObjectScript, &Scumm::o5_badOpcode, /* F0 */ &Scumm::o5_lights, &Scumm::o5_getActorCostume, &Scumm::o5_loadRoom, &Scumm::o5_roomOps, /* F4 */ &Scumm::o5_getDist, &Scumm::o5_findObject, &Scumm::o5_walkActorToObject, &Scumm::o5_startObject, /* F8 */ &Scumm::o5_isGreater, &Scumm::o5_doSentence, &Scumm::o5_verbOps, &Scumm::o5_getActorWalkBox, /* FC */ &Scumm::o5_isSoundRunning, &Scumm::o5_findInventory, &Scumm::o5_walkActorTo, &Scumm::o5_drawBox }; static const char* opcode_lookup[] = { /* 00 */ "o5_stopObjectCode", "o5_putActor", "o5_startMusic", "o5_getActorRoom", /* 04 */ "o5_isGreaterEqual", "o5_drawObject", "o5_getActorElevation", "o5_setState", /* 08 */ "o5_isNotEqual", "o5_faceActor", "o5_startScript", "o5_getVerbEntrypoint", /* 0C */ "o5_resourceRoutines", "o5_walkActorToActor", "o5_putActorAtObject", "o5_getObjectState", /* 10 */ "o5_getObjectOwner", "o5_animateActor", "o5_panCameraTo", "o5_actorSet", /* 14 */ "o5_print", "o5_actorFromPos", "o5_getRandomNr", "o5_and", /* 18 */ "o5_jumpRelative", "o5_doSentence", "o5_move", "o5_multiply", /* 1C */ "o5_startSound", "o5_ifClassOfIs", "o5_walkActorTo", "o5_isActorInBox", /* 20 */ "o5_stopMusic", "o5_putActor", "o5_getAnimCounter", "o5_getActorY", /* 24 */ "o5_loadRoomWithEgo", "o5_pickupObject", "o5_setVarRange", "o5_stringOps", /* 28 */ "o5_equalZero", "o5_setOwnerOf", "o5_startScript", "o5_delayVariable", /* 2C */ "o5_cursorCommand", "o5_putActorInRoom", "o5_delay", "o5_badOpcode", /* 30 */ "o5_matrixOps", "o5_getInventoryCount", "o5_setCameraAt", "o5_roomOps", /* 34 */ "o5_getDist", "o5_findObject", "o5_walkActorToObject", "o5_startObject", /* 38 */ "o5_lessOrEqual", "o5_doSentence", "o5_subtract", "o5_getActorScale", /* 3C */ "o5_stopSound", "o5_findInventory", "o5_walkActorTo", "o5_drawBox", /* 40 */ "o5_cutscene", "o5_putActor", "o5_chainScript", "o5_getActorX", /* 44 */ "o5_isLess", "o5_badOpcode", "o5_increment", "o5_setState", /* 48 */ "o5_isEqual", "o5_faceActor", "o5_startScript", "o5_getVerbEntrypoint", /* 4C */ "o5_soundKludge", "o5_walkActorToActor", "o5_putActorAtObject", "o5_badOpcode", /* 50 */ "o5_pickupObjectOld", "o5_animateActor", "o5_actorFollowCamera", "o5_actorSet", /* 54 */ "o5_setObjectName", "o5_actorFromPos", "o5_getActorMoving", "o5_or", /* 58 */ "o5_overRide", "o5_doSentence", "o5_add", "o5_divide", /* 5C */ "o5_oldRoomEffect", "o5_actorSetClass", "o5_walkActorTo", "o5_isActorInBox", /* 60 */ "o5_freezeScripts", "o5_putActor", "o5_stopScript", "o5_getActorFacing", /* 64 */ "o5_loadRoomWithEgo", "o5_pickupObject", "o5_getClosestObjActor", "o5_dummy", /* 68 */ "o5_getScriptRunning", "o5_setOwnerOf", "o5_startScript", "o5_debug", /* 6C */ "o5_getActorWidth", "o5_putActorInRoom", "o5_stopObjectScript", "o5_badOpcode", /* 70 */ "o5_lights", "o5_getActorCostume", "o5_loadRoom", "o5_roomOps", /* 74 */ "o5_getDist", "o5_findObject", "o5_walkActorToObject", "o5_startObject", /* 78 */ "o5_isGreater", /* less? */ "o5_doSentence", "o5_verbOps", "o5_getActorWalkBox", /* 7C */ "o5_isSoundRunning", "o5_findInventory", "o5_walkActorTo", "o5_drawBox", /* 80 */ "o5_breakHere", "o5_putActor", "o5_startMusic", "o5_getActorRoom", /* 84 */ "o5_isGreaterEqual", /* less equal? */ "o5_drawObject", "o5_getActorElevation", "o5_setState", /* 88 */ "o5_isNotEqual", "o5_faceActor", "o5_startScript", "o5_getVerbEntrypoint", /* 8C */ "o5_resourceRoutines", "o5_walkActorToActor", "o5_putActorAtObject", "o5_getObjectState", /* 90 */ "o5_getObjectOwner", "o5_animateActor", "o5_panCameraTo", "o5_actorSet", /* 94 */ "o5_print", "o5_actorFromPos", "o5_getRandomNr", "o5_and", /* 98 */ "o5_quitPauseRestart", "o5_doSentence", "o5_move", "o5_multiply", /* 9C */ "o5_startSound", "o5_ifClassOfIs", "o5_walkActorTo", "o5_isActorInBox", /* A0 */ "o5_stopObjectCode", "o5_putActor", "o5_getAnimCounter", "o5_getActorY", /* A4 */ "o5_loadRoomWithEgo", "o5_pickupObject", "o5_setVarRange", "o5_dummy", /* A8 */ "o5_notEqualZero", "o5_setOwnerOf", "o5_startScript", "o5_saveRestoreVerbs", /* AC */ "o5_expression", "o5_putActorInRoom", "o5_wait", "o5_badOpcode", /* B0 */ "o5_matrixOps", "o5_getInventoryCount", "o5_setCameraAt", "o5_roomOps", /* B4 */ "o5_getDist", "o5_findObject", "o5_walkActorToObject", "o5_startObject", /* B8 */ "o5_lessOrEqual", "o5_doSentence", "o5_subtract", "o5_getActorScale", /* BC */ "o5_stopSound", "o5_findInventory", "o5_walkActorTo", "o5_drawBox", /* C0 */ "o5_endCutscene", "o5_putActor", "o5_chainScript", "o5_getActorX", /* C4 */ "o5_isLess", "o5_badOpcode", "o5_decrement", "o5_setState", /* C8 */ "o5_isEqual", "o5_faceActor", "o5_startScript", "o5_getVerbEntrypoint", /* CC */ "o5_pseudoRoom", "o5_walkActorToActor", "o5_putActorAtObject", "o5_badOpcode", /* D0 */ "o5_pickupObjectOld", "o5_animateActor", "o5_actorFollowCamera", "o5_actorSet", /* D4 */ "o5_setObjectName", "o5_actorFromPos", "o5_getActorMoving", "o5_or", /* D8 */ "o5_printEgo", "o5_doSentence", "o5_add", "o5_divide", /* DC */ "o5_badOpcode", "o5_actorSetClass", "o5_walkActorTo", "o5_isActorInBox", /* E0 */ "o5_freezeScripts", "o5_putActor", "o5_stopScript", "o5_getActorFacing", /* E4 */ "o5_loadRoomWithEgo", "o5_pickupObject", "o5_getClosestObjActor", "o5_dummy", /* E8 */ "o5_getScriptRunning", "o5_setOwnerOf", "o5_startScript", "o5_debug", /* EC */ "o5_getActorWidth", "o5_putActorInRoom", "o5_stopObjectScript", "o5_badOpcode", /* F0 */ "o5_lights", "o5_getActorCostume", "o5_loadRoom", "o5_roomOps", /* F4 */ "o5_getDist", "o5_findObject", "o5_walkActorToObject", "o5_startObject", /* F8 */ "o5_isGreater", "o5_doSentence", "o5_verbOps", "o5_getActorWalkBox", /* FC */ "o5_isSoundRunning", "o5_findInventory", "o5_walkActorTo", "o5_drawBox", }; _opcodes = opcode_list; _opcodes_lookup = opcode_lookup; } void Scumm::o5_actorFollowCamera() { actorFollowCamera(getVarOrDirectByte(0x80)); } void Scumm::o5_actorFromPos() { int x,y; getResultPos(); x = getVarOrDirectWord(0x80); y = getVarOrDirectWord(0x40); setResult(getActorFromPos(x,y)); } void Scumm::o5_actorSet() { byte convertTable[20] = {1,0,0,2,0,4,5,6,7,8,9,10,11,12,13,14,15,16,17,20}; int act = getVarOrDirectByte(0x80); Actor *a = derefActorSafe(act, "actorSet"); int i,j; while ( (_opcode = fetchScriptByte()) != 0xFF) { if(_features & GF_SMALL_HEADER) _opcode = (_opcode&0xE0) | convertTable[(_opcode&0x1F)-1]; switch(_opcode&0x1F) { case 0: /* dummy case */ getVarOrDirectByte(0x80); break; case 1: /* costume */ setActorCostume(a, getVarOrDirectByte(0x80)); break; case 2: /* walkspeed */ i = getVarOrDirectByte(0x80); j = getVarOrDirectByte(0x40); setActorWalkSpeed(a, i, j); break; case 3: /* sound */ a->sound[0] = getVarOrDirectByte(0x80); break; case 4: /* walkanim */ a->walkFrame = getVarOrDirectByte(0x80); break; case 5: /* talkanim */ a->talkFrame1 = getVarOrDirectByte(0x80); a->talkFrame2 = getVarOrDirectByte(0x40); break; case 6: /* standanim */ a->standFrame = getVarOrDirectByte(0x80); break; case 7: /* ignore */ getVarOrDirectByte(0x80); getVarOrDirectByte(0x40); getVarOrDirectByte(0x20); break; case 8: /* init */ initActor(a, 0); break; case 9: /* elevation */ a->elevation = getVarOrDirectWord(0x80); a->needRedraw = true; a->needBgReset = true; break; case 10: /* defaultanims */ a->initFrame = 1; a->walkFrame = 2; a->standFrame = 3; a->talkFrame1 = 4; a->talkFrame2 = 5; break; case 11: /* palette */ i = getVarOrDirectByte(0x80); j = getVarOrDirectByte(0x40); checkRange(31, 0, i, "Illegal palet slot %d"); a->palette[i] = j; a->needRedraw = true; break; case 12: /* talk color */ a->talkColor = getVarOrDirectByte(0x80); break; case 13: /* name */ loadPtrToResource(rtActorName, a->number, NULL); break; case 14: /* initanim */ a->initFrame = getVarOrDirectByte(0x80); break; case 15: /* unk */ error("o5_actorset:unk not implemented"); break; case 16: /* width */ a->width = getVarOrDirectByte(0x80); break; case 17: /* scale */ a->scalex = getVarOrDirectByte(0x80); a->scaley = getVarOrDirectByte(0x40); if(a->scalex>255 || a->scaley>255) error("Setting an bad actor scale!"); a->needRedraw = true; a->needBgReset = true; break; case 18: /* neverzclip */ a->forceClip = 0; break; case 19: /* setzclip */ a->forceClip = getVarOrDirectByte(0x80); break; case 20: /* ignoreboxes */ a->ignoreBoxes = 1; a->forceClip = 0; FixRoom: if (a->room==_currentRoom) putActor(a, a->x, a->y, a->room); break; case 21: /* followboxes */ a->ignoreBoxes = 0; a->forceClip = 0; goto FixRoom; case 22: /* animspeed */ a->animSpeed = getVarOrDirectByte(0x80); a->animProgress = 0; break; case 23: /* unk2 */ a->shadow_mode = getVarOrDirectByte(0x80); /* shadow mode */ break; default: warning("o5_actorSet: default case"); } } } void Scumm::o5_actorSetClass() { int act = getVarOrDirectWord(0x80); int newClass; while ( (_opcode=fetchScriptByte()) != 0xFF) { newClass = getVarOrDirectWord(0x80); if (newClass==0) { _classData[act] = 0; continue; } if (newClass&0x80) putClass(act, newClass, 1); else putClass(act, newClass, 0); } } void Scumm::o5_add() { int a; getResultPos(); a = getVarOrDirectWord(0x80); setResult(readVar(_resultVarNumber) + a); } void Scumm::o5_and() { int a; getResultPos(); a = getVarOrDirectWord(0x80); setResult(readVar(_resultVarNumber) & a); } void Scumm::o5_animateActor() { int act, anim; act = getVarOrDirectByte(0x80); anim = getVarOrDirectByte(0x40); animateActor(act,anim); } void Scumm::o5_badOpcode() { error("Scumm opcode %d illegal", _opcode); } void Scumm::o5_breakHere() { updateScriptPtr(); _currentScript = 0xFF; } void Scumm::o5_chainScript() { int16 vars[16]; int data; int cur; data = getVarOrDirectByte(0x80); getWordVararg(vars); cur = _currentScript; if (vm.slot[cur].cutsceneOverride != 0) { error("Script %d chaining with active cutscene/override"); } vm.slot[cur].number = 0; vm.slot[cur].status = 0; _currentScript = 0xFF; runScript(data, vm.slot[cur].unk1, vm.slot[cur].unk2, vars); } void Scumm::o5_cursorCommand() { int i,j,k; int16 table[16]; switch((_opcode=fetchScriptByte())&0x1F) { case 1: /* cursor show */ _cursorState = 1; verbMouseOver(0); break; case 2: /* cursor hide */ _cursorState = 0; verbMouseOver(0); break; case 3: /* userput on */ _userPut = 1; break; case 4: /* userput off */ _userPut = 0; break; case 5: /* cursor soft on */ _cursorState++; if (_cursorState > 1) { error("Cursor state greater than 1 in script"); } verbMouseOver(0); break; case 6: /* cursor soft off */ _cursorState--; verbMouseOver(0); break; case 7: /* userput soft on */ _userPut++; break; case 8: /* userput soft off */ _userPut--; break; case 10: /* set cursor img */ i = getVarOrDirectByte(0x80); j = getVarOrDirectByte(0x40); if(_gameId != GID_LOOM256) setCursorImg(i, j, 1); break; case 11: /* set cursor hotspot */ i = getVarOrDirectByte(0x80); j = getVarOrDirectByte(0x40); k = getVarOrDirectByte(0x20); setCursorHotspot2(j, k); break; case 12: /* init cursor */ setCursor(getVarOrDirectByte(0x80)); break; case 13: /* init charset */ initCharset(getVarOrDirectByte(0x80)); break; case 14: /* unk */ getWordVararg(table); for (i=0; i<16; i++) charset._colorMap[i] = _charsetData[string[1].t_charset][i] = (unsigned char)table[i]; break; } _vars[VAR_CURSORSTATE] = _cursorState; _vars[VAR_USERPUT] = _userPut; } void Scumm::o5_cutscene() { int16 args[16]; getWordVararg(args); cutscene(args); } void Scumm::o5_endCutscene() { endCutscene(); } void Scumm::o5_debug() { getVarOrDirectWord(0x80); } void Scumm::o5_decrement() { getResultPos(); setResult(readVar(_resultVarNumber)-1); } void Scumm::o5_delay() { int delay = fetchScriptByte(); delay |= fetchScriptByte()<<8; delay |= fetchScriptByte()<<16; vm.slot[_currentScript].delay = delay; vm.slot[_currentScript].status = 1; o5_breakHere(); } void Scumm::o5_delayVariable() { vm.slot[_currentScript].delay = readVar(fetchScriptWord()); vm.slot[_currentScript].status = 1; o5_breakHere(); } void Scumm::o5_divide() { int a; getResultPos(); a = getVarOrDirectWord(0x80); if(a==0) { error("Divide by zero"); setResult(0); } else setResult(readVar(_resultVarNumber) / a); } void Scumm::o5_doSentence() { int a,b; SentenceTab *st; a = getVarOrDirectByte(0x80); if (a==0xFE) { _sentenceNum = 0; stopScriptNr(_vars[VAR_SENTENCE_SCRIPT]); clearClickedStatus(); return; } st = &sentence[_sentenceNum++]; st->unk5 = a; st->unk4 = getVarOrDirectWord(0x40); b = st->unk3 = getVarOrDirectWord(0x20); if (b==0) { st->unk2 = 0; } else { st->unk2 = 1; } st->unk = 0; } void Scumm::o5_drawBox() { int x,y,x2,y2,color; x = getVarOrDirectWord(0x80); y = getVarOrDirectWord(0x40); _opcode = fetchScriptByte(); x2 = getVarOrDirectWord(0x80); y2 = getVarOrDirectWord(0x40); color = getVarOrDirectByte(0x20); drawBox(x, y, x2, y2, color); } void Scumm::o5_drawObject() { int state,obj,index,i; ObjectData *od; uint16 x,y,w,h; int xpos, ypos; state = 1; xpos = ypos = 255; obj = getVarOrDirectWord(0x80); if (_features & GF_SMALL_HEADER) { int temp = getVarOrDirectWord(0x40); int room = getVarOrDirectWord(0x20); index = getObjectIndex(obj); if(index==-1) return; od = &_objs[index]; xpos = ypos = 255; if (temp!=0xFF) { od->walk_x += (xpos<<3) - od->x_pos; od->x_pos = xpos<<3; od->walk_y += (ypos<<3) - od->y_pos; od->y_pos = ypos<<3; } addObjectToDrawQue(index); x = od->x_pos; y = od->y_pos; w = od->width; h = od->height; i = _numObjectsInRoom; do { if (_objs[i].x_pos == x && _objs[i].y_pos == y && _objs[i].width == w && _objs[i].height==h) putState(_objs[i].obj_nr, 0); } while (--i); putState(obj, state); return; } switch((_opcode = fetchScriptByte())&0x1F) { case 1: /* draw at */ xpos = getVarOrDirectWord(0x80); ypos = getVarOrDirectWord(0x40); break; case 2: /* set state */ state = getVarOrDirectWord(0x80); break; case 0x1F: /* neither */ break; default: error("o5_drawObject: default case"); } index = getObjectIndex(obj); if (index==-1) return; od = &_objs[index]; if (xpos!=0xFF) { od->walk_x += (xpos<<3) - od->x_pos; od->x_pos = xpos<<3; od->walk_y += (ypos<<3) - od->y_pos; od->y_pos = ypos<<3; } addObjectToDrawQue(index); x = od->x_pos; y = od->y_pos; w = od->width; h = od->height; i = _numObjectsInRoom; do { if (_objs[i].x_pos == x && _objs[i].y_pos == y && _objs[i].width == w && _objs[i].height==h) putState(_objs[i].obj_nr, 0); } while (--i); putState(obj, state); } void Scumm::o5_dummy() { /* nothing */ } void Scumm::o5_expression() { int dst, i; _scummStackPos = 0; getResultPos(); dst = _resultVarNumber; while ((_opcode = fetchScriptByte())!=0xFF) { switch(_opcode&0x1F) { case 1: /* varordirect */ push(getVarOrDirectWord(0x80)); break; case 2: /* add */ i = pop(); push(i + pop()); break; case 3: /* sub */ i = pop(); push(pop() - i); break; case 4: /* mul */ i = pop(); push(i * pop()); break; case 5: /* div */ i = pop(); if (i==0) error("Divide by zero"); push(pop() / i); break; case 6: /* normal opcode */ _opcode = fetchScriptByte(); (this->*(getOpcode(_opcode)))(); push(_vars[0]); break; } } _resultVarNumber = dst; setResult(pop()); } void Scumm::o5_faceActor() { int act, obj; act = getVarOrDirectByte(0x80); obj = getVarOrDirectWord(0x40); faceActorToObj(act, obj); } void Scumm::o5_findInventory() { int t; getResultPos(); t = getVarOrDirectByte(0x80); setResult(findInventory(t,getVarOrDirectByte(0x40))); } void Scumm::o5_findObject() { int t; getResultPos(); t = getVarOrDirectWord(0x80); setResult(findObject(t, getVarOrDirectWord(0x40))); } void Scumm::o5_freezeScripts() { int scr = getVarOrDirectByte(0x80); if (scr!=0) freezeScripts(scr); else unfreezeScripts(); } void Scumm::o5_getActorCostume() { getResultPos(); setResult(derefActorSafe(getVarOrDirectByte(0x80),"o5_getActorCostume")->costume); } void Scumm::o5_getActorElevation() { getResultPos(); setResult(derefActorSafe(getVarOrDirectByte(0x80),"o5_getActorElevation")->elevation); } void Scumm::o5_getActorFacing() { getResultPos(); setResult(newDirToOldDir(derefActorSafe(getVarOrDirectByte(0x80),"o5_getActorFacing")->facing)); } void Scumm::o5_getActorMoving() { getResultPos(); setResult(derefActorSafe(getVarOrDirectByte(0x80),"o5_getActorMoving")->moving); } void Scumm::o5_getActorRoom() { int temp; getResultPos(); temp=getVarOrDirectByte(0x80); if(temp>30 && _gameId==GID_INDY4) temp=1; setResult(derefActorSafe(temp,"o5_getActorRoom")->room); } void Scumm::o5_getActorScale() { if(_gameId == GID_INDY3_256) { getVarOrDirectByte(0x80); /*FIXME: missing stuff here*/ return; } getResultPos(); setResult(derefActorSafe(getVarOrDirectByte(0x80),"o5_getActorScale")->scalex); } void Scumm::o5_getActorWalkBox() { getResultPos(); setResult(derefActorSafe(getVarOrDirectByte(0x80),"o5_getActorWalkbox")->walkbox); } void Scumm::o5_getActorWidth() { getResultPos(); setResult(derefActorSafe(getVarOrDirectByte(0x80),"o5_getActorWidth")->width); } void Scumm::o5_getActorX() { getResultPos(); setResult(getObjX(getVarOrDirectWord(0x80))); } void Scumm::o5_getActorY() { getResultPos(); setResult(getObjY(getVarOrDirectWord(0x80))); } void Scumm::o5_getAnimCounter() { getResultPos(); setResult(derefActorSafe(getVarOrDirectByte(0x80),"o5_getActorAnimCounter")->cost.animCounter1); } void Scumm::o5_getClosestObjActor() { int obj; int act; int closobj=-1, closnum=-1; int dist; getResultPos(); act = getVarOrDirectWord(0x80); obj = _vars[VAR_V5_OBJECT_HI]; do { dist = getObjActToObjActDist(obj,act); if (dist < closnum) { closnum = dist; closobj = obj; } } while (--obj >= _vars[VAR_V5_OBJECT_LO]); setResult(closnum); } void Scumm::o5_getDist() { int o1,o2; int r; getResultPos(); o1 = getVarOrDirectWord(0x80); o2 = getVarOrDirectWord(0x40); r = getObjActToObjActDist(o1,o2); /* Fix for monkey 2, dunno what's wrong in scummvm */ if (_gameId==GID_MONKEY2 && vm.slot[_currentScript].number==40 && r<60) r=60; setResult(r); } void Scumm::o5_getInventoryCount() { getResultPos(); setResult(getInventoryCount(getVarOrDirectByte(0x80))); } void Scumm::o5_getObjectOwner() { getResultPos(); setResult(getOwner(getVarOrDirectWord(0x80))); } void Scumm::o5_getObjectState() { if(_features & GF_SMALL_HEADER) { if((getState(getVarOrDirectWord(0x80)) &0x0F >>4) != getVarOrDirectByte(0x40)) o5_jumpRelative(); else ignoreScriptWord(); } else { getResultPos(); setResult(getState(getVarOrDirectWord(0x80))); } } void Scumm::o5_getRandomNr() { getResultPos(); setResult(getRandomNumber(getVarOrDirectByte(0x80)+1)); } void Scumm::o5_getScriptRunning() { getResultPos(); setResult(isScriptRunning(getVarOrDirectByte(0x80))); } void Scumm::o5_getVerbEntrypoint() { int a,b; getResultPos(); a = getVarOrDirectWord(0x80); b = getVarOrDirectWord(0x40); setResult(getVerbEntrypoint(a, b)); } void Scumm::o5_ifClassOfIs() { int act,cls; bool cond = true, b; act = getVarOrDirectWord(0x80); while ( (_opcode = fetchScriptByte()) != 0xFF) { cls = getVarOrDirectWord(0x80); b = getClass(act, cls); if (cls&0x80 && !b || !(cls&0x80) && b) cond = false; } if (cond) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_increment() { getResultPos(); setResult(readVar(_resultVarNumber)+1); } void Scumm::o5_isActorInBox() { int box; Actor *a; a = derefActorSafe(getVarOrDirectByte(0x80), "o5_isActorInBox"); box = getVarOrDirectByte(0x40); if (!checkXYInBoxBounds(box, a->x, a->y)) o5_jumpRelative(); else ignoreScriptWord(); } void Scumm::o5_isEqual() { int16 a = readVar(fetchScriptWord()); int16 b = getVarOrDirectWord(0x80); if (b == a) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_isGreater() { int16 a = readVar(fetchScriptWord()); int16 b = getVarOrDirectWord(0x80); if (b > a) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_isGreaterEqual() { int16 a = readVar(fetchScriptWord()); int16 b = getVarOrDirectWord(0x80); if (b >= a) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_isLess() { int16 a = readVar(fetchScriptWord()); int16 b = getVarOrDirectWord(0x80); if (b < a) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_lessOrEqual() { int16 a = readVar(fetchScriptWord()); int16 b = getVarOrDirectWord(0x80); if (b <= a) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_isNotEqual() { int16 a = readVar(fetchScriptWord()); int16 b = getVarOrDirectWord(0x80); if (b != a) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_notEqualZero() { int a = readVar(fetchScriptWord()); if (a != 0) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_equalZero() { int a = readVar(fetchScriptWord()); if (a == 0) ignoreScriptWord(); else o5_jumpRelative(); } void Scumm::o5_isSoundRunning() { int snd; getResultPos(); snd = getVarOrDirectByte(0x80); if (snd) snd = isSoundRunning(snd); setResult(snd); } void Scumm::o5_jumpRelative() { _scriptPointer += (int16)fetchScriptWord(); } void Scumm::o5_lights() { int a,b,c; a = getVarOrDirectByte(0x80); b = fetchScriptByte(); c = fetchScriptByte(); /* if (c==0) _vars[VAR_V5_DRAWFLAGS] = a; else if (c==1) {*/ warning("o5_lights: lights not implemented"); // } _fullRedraw=1; } void Scumm::o5_loadRoom() { int room = getVarOrDirectByte(0x80); startScene(room, 0, 0); _fullRedraw = 1; } void Scumm::o5_loadRoomWithEgo() { int obj, room, x,y; Actor *a; obj = getVarOrDirectWord(0x80); room = getVarOrDirectByte(0x40); a = derefActorSafe(_vars[VAR_EGO], "o5_loadRoomWithEgo"); /* Warning: used previously _xPos, _yPos from a previous update of those */ putActor(a, a->x, a->y, room); x = (int16)fetchScriptWord(); y = (int16)fetchScriptWord(); _egoPositioned = false; _vars[VAR_WALKTO_OBJ] = obj; startScene(a->room, a, obj); _vars[VAR_WALKTO_OBJ] = 0; #if !defined(FULL_THROTTLE) camera._dest.x = camera._cur.x = a->x; setCameraFollows(a); #endif _fullRedraw=1; if (x != -1) { startWalkActor(a, x, y, -1); } } void Scumm::o5_matrixOps() { int a,b; if(_features & GF_OLD256) { /* FIXME: missing function call*/ a=getVarOrDirectByte(0x80); b=fetchScriptByte(); return; } _opcode = fetchScriptByte(); switch(_opcode & 0x1F) { case 1: a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); setBoxFlags(a,b); break; case 2: a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); setBoxScale(a,b); break; case 3: a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); setBoxScale(a,(b-1)|0x8000); break; case 4: createBoxMatrix(); break; } } void Scumm::o5_move() { getResultPos(); setResult(getVarOrDirectWord(0x80)); } void Scumm::o5_multiply() { int a; getResultPos(); a = getVarOrDirectWord(0x80); setResult(readVar(_resultVarNumber) * a); } void Scumm::o5_or() { int a; getResultPos(); a = getVarOrDirectWord(0x80); setResult(readVar(_resultVarNumber) | a); } void Scumm::o5_overRide() { if(fetchScriptByte()!=0) beginOverride(); else endOverride(); } void Scumm::o5_panCameraTo() { panCameraTo(getVarOrDirectWord(0x80), 0); } void Scumm::o5_pickupObject() { int obj, room; obj = getVarOrDirectWord(0x80); room = getVarOrDirectByte(0x40); if (room==0) room = _roomResource; addObjectToInventory(obj, room); putOwner(obj, _vars[VAR_EGO]); putClass(obj, 32, 1); putState(obj, 1); removeObjectFromRoom(obj); clearDrawObjectQueue(); runHook(1); } void Scumm::o5_print() { _actorToPrintStrFor = getVarOrDirectByte(0x80); decodeParseString(); } void Scumm::o5_printEgo() { _actorToPrintStrFor = (unsigned char)_vars[VAR_EGO]; decodeParseString(); } void Scumm::o5_pseudoRoom() { int i = fetchScriptByte(), j; while ((j = fetchScriptByte()) != 0) { if (j >= 0x80) { _resourceMapper[j&0x7F] = i; } } } void Scumm::o5_putActor() { int x,y; Actor *a; a = derefActorSafe(getVarOrDirectByte(0x80), "o5_putActor"); x = getVarOrDirectWord(0x40); y = getVarOrDirectWord(0x20); putActor(a, x, y, a->room); } void Scumm::o5_putActorAtObject() { int obj; Actor *a; a = derefActorSafe(getVarOrDirectByte(0x80), "o5_putActorAtObject"); obj = getVarOrDirectWord(0x40); if (whereIsObject(obj)!=WIO_NOT_FOUND) getObjectXYPos(obj); else { _xPos = 240; _yPos = 120; } putActor(a, _xPos, _yPos, a->room); } void Scumm::o5_putActorInRoom() { int room; Actor *a; a = derefActorSafe(getVarOrDirectByte(0x80), "o5_putActorInRoom"); room = getVarOrDirectByte(0x40); if (a->visible && _currentRoom!=room && _vars[VAR_TALK_ACTOR]==a->number) { clearMsgQueue(); } a->room = room; if (!room) putActor(a, 0, 0, 0); } void Scumm::o5_quitPauseRestart() { switch(fetchScriptByte()) { case 1: pauseGame(false); break; case 3: shutDown(0); break; } } void Scumm::o5_resourceRoutines() { int res; _opcode = fetchScriptByte(); if (_opcode != 17) res = getVarOrDirectByte(0x80); if(_features & GF_OLD256) /*FIXME: find a better way to implement this */ _opcode&=0x3F; switch(_opcode&0x1F) { case 1: /* load script */ ensureResourceLoaded(rtScript, res); break; case 2: /* load sound */ ensureResourceLoaded(rtSound, res); break; case 3: /* load costume */ ensureResourceLoaded(rtCostume, res); break; case 4: /* load room */ if(_features & GF_OLD256) ensureResourceLoaded(rtScript, res & 0x7F); /*FIXME: missing stuff...*/ else ensureResourceLoaded(rtRoom, res); break; case 5: /* nuke script */ setResourceCounter(rtScript, res, 0x7F); break; case 6: /* nuke sound */ setResourceCounter(rtSound, res, 0x7F); break; case 7: /* nuke costume */ setResourceCounter(rtCostume, res, 0x7F); break; case 8: /* nuke room */ setResourceCounter(rtRoom, res, 0x7F); break; case 9: /* lock script */ if (res >= _numGlobalScripts) break; lock(rtScript,res); break; case 10:/* lock sound */ lock(rtSound,res); break; case 11:/* lock costume */ lock(rtCostume,res); break; case 12:/* lock room */ if (res > 0x7F) res = _resourceMapper[res&0x7F]; lock(rtRoom,res); break; case 13:/* unlock script */ if (res >= _numGlobalScripts) break; unlock(rtScript,res); break; case 14:/* unlock sound */ unlock(rtSound,res); break; case 15:/* unlock costume */ unlock(rtCostume,res); break; case 16:/* unlock room */ if (res > 0x7F) res = _resourceMapper[res&0x7F]; unlock(rtRoom,res); break; case 17:/* clear heap */ heapClear(0); unkHeapProc2(0,0); break; case 18:/* load charset */ loadCharset(res); break; case 19:/* nuke charset */ nukeCharset(res); break; case 20:/* load fl object */ loadFlObject(getVarOrDirectWord(0x40), res); break; default: warning("Unknown o5_resourcesroutine: %d", _opcode&0x1F); break; } } void Scumm::o5_roomOps() { int a,b,c,d,e; if(_features & GF_OLD256) { a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); if(_gameId == GID_INDY3_256 && a == 16 && b == 0) /* FIXME*/ { fetchScriptByte(); fetchScriptByte(); fetchScriptByte(); return; } } _opcode = fetchScriptByte(); switch(_opcode & 0x1F) { case 1: /* room scroll */ if(!(_features & GF_OLD256)) { a = getVarOrDirectWord(0x80); b = getVarOrDirectWord(0x40); } if (a < 160) a=160; if (b < 160) b=160; if (a > _scrWidth-160) a=_scrWidth-160; if (b > _scrWidth-160) b=_scrWidth-160; _vars[VAR_CAMERA_MIN_X] = a; _vars[VAR_CAMERA_MAX_X] = b; break; case 2: /* room color */ if(_features & GF_SMALL_HEADER) { if(!(_features & GF_OLD256)) { a = getVarOrDirectWord(0x80); b = getVarOrDirectWord(0x40); } checkRange(256, 0, a, "o5_roomOps: 2: Illegal room color slot (%d)"); _currentPalette[a]=b; _fullRedraw = 1; } else { error("room-color is no longer a valid command"); } break; case 3: /* set screen */ if(!(_features & GF_OLD256)) { a = getVarOrDirectWord(0x80); b = getVarOrDirectWord(0x40); } initScreens(0,a,320,b); break; case 4: /* set palette color */ if(_features & GF_SMALL_HEADER) { if(!(_features & GF_OLD256)) { a = getVarOrDirectWord(0x80); b = getVarOrDirectWord(0x40); } checkRange(256, 0, a, "o5_roomOps: 2: Illegal room color slot (%d)"); _currentPalette[a]=b; /*FIXME: should be shadow palette */ // _fullRedraw = 1; } else { a = getVarOrDirectWord(0x80); b = getVarOrDirectWord(0x40); c = getVarOrDirectWord(0x20); _opcode = fetchScriptByte(); d = getVarOrDirectByte(0x80); setPalColor(d, a, b, c); /* index, r, g, b */ } break; case 5: /* shake on */ setShake(1); break; case 6: /* shake off */ setShake(0); break; case 7: /* room scale for old games */ a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); _opcode=fetchScriptByte(); c = getVarOrDirectByte(0x80); d = getVarOrDirectByte(0x40); _opcode=fetchScriptByte(); e = getVarOrDirectByte(0x40); setScaleItem(e-1,b,a,d,c); case 8: /* room scale? */ a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); c = getVarOrDirectByte(0x20); darkenPalette(b, c, a, a, a); break; case 9: /* ? */ _saveLoadFlag = getVarOrDirectByte(0x80); _saveLoadSlot = getVarOrDirectByte(0x40); _saveLoadSlot = 99; /* use this slot */ _saveLoadCompatible = true; break; case 10: /* ? */ a = getVarOrDirectWord(0x80); if (a) { _switchRoomEffect = (byte)(a); _switchRoomEffect2 = (byte)(a>>8); } else { screenEffect(_newEffect); } break; case 11: /* ? */ a = getVarOrDirectWord(0x80); b = getVarOrDirectWord(0x40); c = getVarOrDirectWord(0x20); _opcode = fetchScriptByte(); d = getVarOrDirectByte(0x80); e = getVarOrDirectByte(0x40); darkenPalette(d, e, a, b, c); break; case 12: /* ? */ a = getVarOrDirectWord(0x80); b = getVarOrDirectWord(0x40); c = getVarOrDirectWord(0x20); _opcode = fetchScriptByte(); d = getVarOrDirectByte(0x80); e = getVarOrDirectByte(0x40); unkRoomFunc3(d, e, a, b, c); break; case 13: { /* save-string */ char buf[256],*s; a = getVarOrDirectByte(0x80); s = buf; while (*s++=fetchScriptByte()); warning("roomops:13 save-string(%d,\"%s\") not implemented", a, buf); break; } case 14: /* load-string */ char buf[256],*s; a = getVarOrDirectByte(0x80); s = buf; while (*s++=fetchScriptByte()); warning("roomops:14 load-string(%d,\"%s\") not implemented", a, buf); break; case 15: /* palmanip? */ a = getVarOrDirectByte(0x80); _opcode = fetchScriptByte(); b = getVarOrDirectByte(0x80); c = getVarOrDirectByte(0x40); _opcode = fetchScriptByte(); d = getVarOrDirectByte(0x80); unkRoomFunc4(b, c, a, d, 1); break; case 16: /* ? */ a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); if (a < 1) a = 1; /* FIXME: ZAK256 */ checkRange(16, 1, a, "o5_roomOps: 16: color cycle out of range (%d)"); _colorCycle[a-1].delay = (b!=0) ? 0x4000 / (b*0x4C) : 0; break; } } void Scumm::o5_saveRestoreVerbs() { int a,b,c,slot, slot2; _opcode = fetchScriptByte(); a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); c = getVarOrDirectByte(0x20); switch(_opcode) { case 1: /* hide verbs */ while (a<=b) { slot = getVerbSlot(a,0); if (slot && _verbs[slot].saveid==0) { _verbs[slot].saveid = c; drawVerb(slot, 0); verbMouseOver(0); } a++; } break; case 2: /* show verbs */ while (a<=b) { slot = getVerbSlot(a, c); if (slot) { slot2 = getVerbSlot(a,0); if (slot2) killVerb(slot2); slot = getVerbSlot(a,c); _verbs[slot].saveid = 0; drawVerb(slot, 0); verbMouseOver(0); } a++; } break; case 3: /* kill verbs */ while (a<=b) { slot = getVerbSlot(a,c); if (slot) killVerb(slot); a++; } break; default: error("o5_saveRestoreVerbs: invalid opcode"); } } void Scumm::o5_setCameraAt() { setCameraAtEx(getVarOrDirectWord(0x80)); } void Scumm::o5_setObjectName() { int obj = getVarOrDirectWord(0x80); int size; int a; int i; byte *name; if (obj < NUM_ACTORS) error("Can't set actor %d name with new-name-of", obj); if (!getOBCDFromObject(obj)) error("Can't set name of object %d", obj); name = getObjOrActorName(obj); size = getResourceDataSize(name); i = 0; while ((a = fetchScriptByte()) != 0) { name[i++] = a; if (a==0xFF) { name[i++] = fetchScriptByte(); name[i++] = fetchScriptByte(); name[i++] = fetchScriptByte(); } if (i >= size) error("New name of object %d too long", obj); } name[i] = 0; runHook(0); } void Scumm::o5_setOwnerOf() { int obj, owner; obj = getVarOrDirectWord(0x80); owner = getVarOrDirectByte(0x40); setOwnerOf(obj, owner); } void Scumm::o5_setState() { int obj, state; obj = getVarOrDirectWord(0x80); state = getVarOrDirectByte(0x40); putState(obj, state); removeObjectFromRoom(obj); if (_BgNeedsRedraw) clearDrawObjectQueue(); } void Scumm::o5_setVarRange() { int a,b; getResultPos(); a=fetchScriptByte(); do { if (_opcode&0x80) b=fetchScriptWord(); else b=fetchScriptByte(); setResult(b); _resultVarNumber++; } while (--a); } void Scumm::o5_soundKludge() { int16 items[15]; int i; for (i=0; i<15; i++) items[i] = 0; getWordVararg(items); soundKludge(items); } void Scumm::o5_startMusic() { addSoundToQueue(getVarOrDirectByte(0x80)); } void Scumm::o5_startObject() { int obj, script; int16 data[16]; obj = getVarOrDirectWord(0x80); script = getVarOrDirectByte(0x40); getWordVararg(data); runVerbCode(obj, script, 0, 0, data); } void Scumm::o5_startScript() { int op,script; int16 data[16]; int a,b; op = _opcode; script = getVarOrDirectByte(0x80); getWordVararg(data); a = b = 0; if (op&0x40) b=1; if (op&0x20) a=1; runScript(script, a, b, data); } void Scumm::o5_startSound() { addSoundToQueue(getVarOrDirectByte(0x80)); } void Scumm::o5_stopMusic() { stopAllSounds(); } void Scumm::o5_stopObjectCode() { stopObjectCode(); } void Scumm::o5_stopObjectScript() { stopObjectScript(getVarOrDirectWord(0x80)); } void Scumm::o5_stopScript() { int script; script = getVarOrDirectByte(0x80); if (script==0) stopObjectCode(); else stopScriptNr(script); } void Scumm::o5_stopSound() { stopSound(getVarOrDirectByte(0x80)); } void Scumm::o5_stringOps() { int a,b,c,i; byte *ptr; _opcode = fetchScriptByte(); switch(_opcode&0x1F) { case 1: /* loadstring */ loadPtrToResource(rtString, getVarOrDirectByte(0x80), NULL); break; case 2: /* copystring */ a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); nukeResource(rtString, a); ptr = getResourceAddress(rtString, b); if (ptr) loadPtrToResource(rtString, a, ptr); break; case 3: /* set string char */ a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); ptr = getResourceAddress(rtString, a); if (!(_gameId == GID_LOOM256)) { /* FIXME - LOOM256 */ if (ptr==NULL) error("String %d does not exist", a); c = getVarOrDirectByte(0x20); ptr[b] = c; } else getVarOrDirectByte(0x20); break; case 4: /* get string char */ getResultPos(); a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); ptr = getResourceAddress(rtString, a); if (ptr==NULL) error("String %d does not exist", a); setResult(ptr[b]); break; case 5: /* create empty string */ a = getVarOrDirectByte(0x80); b = getVarOrDirectByte(0x40); nukeResource(rtString, a); if (b) { ptr = createResource(rtString, a, b); if (ptr) { for(i=0; iverbid = verb; while ((_opcode=fetchScriptByte()) != 0xFF) { switch(_opcode&0x1F) { case 1: /* load image */ a = getVarOrDirectWord(0x80); if (slot) { setVerbObject(_roomResource, a, slot); vs->type = 1; } break; case 2: /* load from code */ loadPtrToResource(rtVerb, slot, NULL); if (slot==0) nukeResource(rtVerb, slot); vs->type = 0; vs->imgindex = 0; break; case 3: /* color */ vs->color = getVarOrDirectByte(0x80); break; case 4: /* set hi color */ vs->hicolor = getVarOrDirectByte(0x80); break; case 5: /* set xy */ vs->x = getVarOrDirectWord(0x80); vs->y = getVarOrDirectWord(0x40); break; case 6: /* set on */ vs->curmode=1; break; case 7: /* set off */ vs->curmode=0; break; case 8: /* delete */ killVerb(slot); break; case 9: /* new */ slot = getVerbSlot(verb, 0); if (slot==0) { for (slot=1; slot<_maxVerbs; slot++) { if(_verbs[slot].verbid==0) break; } if (slot==_maxVerbs) error("Too many verbs"); } vs = &_verbs[slot]; vs->verbid = verb; vs->color = 2; vs->hicolor = 0; vs->dimcolor = 8; vs->type = 0; vs->charset_nr = string[0].t_charset; vs->curmode = 0; vs->saveid = 0; vs->key = 0; vs->center = 0; vs->imgindex = 0; break; case 16: /* set dim color */ vs->dimcolor = getVarOrDirectByte(0x80); break; case 17: /* dim */ vs->curmode = 2; break; case 18: /* set key */ vs->key = getVarOrDirectByte(0x80); break; case 19: /* set center */ vs->center = 1; break; case 20: /* set to string */ ptr = getResourceAddress(rtString, getVarOrDirectWord(0x80)); if (!ptr) nukeResource(rtVerb, slot); else { loadPtrToResource(rtVerb, slot, ptr); } if (slot==0) nukeResource(rtVerb, slot); vs->type = 0; vs->imgindex = 0; break; case 22: /* assign object */ a = getVarOrDirectWord(0x80); b = getVarOrDirectByte(0x40); if (slot && vs->imgindex!=a) { setVerbObject(b, a, slot); vs->type = 1; vs->imgindex = a; } break; case 23: /* set back color */ vs->bkcolor = getVarOrDirectByte(0x80); break; } } drawVerb(slot, 0); verbMouseOver(0); } void Scumm::o5_wait() { byte *oldaddr; // Fixme: Indy3 if ((_opcode == 0xAE) && (_gameId == GID_INDY3_256)) return; oldaddr = _scriptPointer - 1; _opcode = fetchScriptByte(); switch(_opcode&0x1F) { case 1: /* wait for actor */ if (derefActorSafe(getVarOrDirectByte(0x80), "o5_wait")->moving) break; return; case 2: /* wait for message */ if ((_currentRoom == 0) && (_gameId == GID_ZAK256)) // Bypass Zak256 script hang return; if (_vars[VAR_HAVE_MSG]) break; return; case 3: /* wait for camera */ if (camera._cur.x>>3 != camera._dest.x>>3) break; return; case 4: /* wait for sentence */ if (_sentenceNum) { if (sentence[_sentenceNum-1].unk && !isScriptInUse(_vars[VAR_SENTENCE_SCRIPT]) ) return; break; } if (!isScriptInUse(_vars[VAR_SENTENCE_SCRIPT])) return; break; default: error("o5_wait: default case"); return; } _scriptPointer = oldaddr; o5_breakHere(); } void Scumm::o5_walkActorTo() { int x, y; Actor *a; a = derefActorSafe(getVarOrDirectByte(0x80), "o5_walkActorTo"); x = getVarOrDirectWord(0x40); y = getVarOrDirectWord(0x20); startWalkActor(a, x, y, -1); } void Scumm::o5_walkActorToActor() { int b,x,y; Actor *a, *a2; int nr; warning("walk actor to actor"); a = derefActorSafe(getVarOrDirectByte(0x80), "o5_walkActorToActor"); if (a->room != _currentRoom) { getVarOrDirectByte(0x40); fetchScriptByte(); return; } nr = getVarOrDirectByte(0x40); if (nr==106 && _gameId==GID_INDY4) { warning("Bypassing Indy4 bug"); fetchScriptByte(); return; } a2 = derefActorSafe(nr, "o5_walkActorToActor(2)"); if (a2->room != _currentRoom) { fetchScriptByte(); return; } b = fetchScriptByte(); /* distance from actor */ if (b==0xFF) { b = a2->scalex * a->width / 0xFF; b = b + b/2; } x = a2->x; y = a2->y; if (x < a->x) x += b; else x -= b; startWalkActor(a, x, y, -1); } void Scumm::o5_walkActorToObject() { int obj; Actor *a; warning("walk object to object"); a = derefActorSafe(getVarOrDirectByte(0x80), "o5_walkActorToObject"); obj = getVarOrDirectWord(0x40); if (whereIsObject(obj)!=WIO_NOT_FOUND) { getObjectXYPos(obj); startWalkActor(a, _xPos, _yPos, _dir); } } int Scumm::getWordVararg(int16 *ptr) { int i; for (i=0; i<16; i++) ptr[i] = 0; i = 0; while ((_opcode = fetchScriptByte()) != 0xFF) { ptr[i++] = getVarOrDirectWord(0x80); } return i; } int Scumm::getVarOrDirectWord(byte mask) { if (_opcode&mask) return readVar(fetchScriptWord()); return (int16)fetchScriptWord(); } int Scumm::getVarOrDirectByte(byte mask) { if (_opcode&mask) return readVar(fetchScriptWord()); return fetchScriptByte(); } void Scumm::decodeParseString() { int textSlot; switch(_actorToPrintStrFor) { case 252: textSlot = 3; break; case 253: textSlot = 2; break; case 254: textSlot = 1; break; default: textSlot = 0; } string[textSlot].xpos = string[textSlot].t_xpos; string[textSlot].ypos = string[textSlot].t_ypos; string[textSlot].center = string[textSlot].t_center; string[textSlot].overhead = string[textSlot].t_overhead; string[textSlot].right = string[textSlot].t_right; string[textSlot].color = string[textSlot].t_color; string[textSlot].charset = string[textSlot].t_charset; while((_opcode=fetchScriptByte()) != 0xFF) { switch(_opcode&0xF) { case 0: /* set string xy */ string[textSlot].xpos = getVarOrDirectWord(0x80); string[textSlot].ypos = getVarOrDirectWord(0x40); string[textSlot].overhead = false; break; case 1: /* color */ string[textSlot].color = getVarOrDirectByte(0x80); break; case 2: /* right */ string[textSlot].right = getVarOrDirectWord(0x80); break; case 4: /* center*/ string[textSlot].center = true; string[textSlot].overhead = false; break; case 6: /* left */ string[textSlot].center = false; string[textSlot].overhead = false; break; case 7: /* overhead */ string[textSlot].overhead = true; break; case 8: { /* play loom talkie sound - use in other games ? */ int offset = getVarOrDirectWord(0x80); int delay = getVarOrDirectWord(0x40); if (_gameId == GID_LOOM256) cd_playtrack(1, offset, delay); break; } case 15: _messagePtr = _scriptPointer; switch(textSlot) { case 0: actorTalk(); break; case 1: drawString(1); break; case 2: unkMessage1(); break; case 3: unkMessage2(); break; } _scriptPointer = _messagePtr; return; default: return; } } string[textSlot].t_xpos = string[textSlot].xpos; string[textSlot].t_ypos = string[textSlot].ypos; string[textSlot].t_center = string[textSlot].center; string[textSlot].t_overhead = string[textSlot].overhead; string[textSlot].t_right = string[textSlot].right; string[textSlot].t_color = string[textSlot].color; string[textSlot].t_charset = string[textSlot].charset; } void Scumm::o5_oldRoomEffect() { int a; _opcode=fetchScriptByte(); if((_opcode & 0x1F) == 3) { a = getVarOrDirectWord(0x80); } warning("Unsupported oldRoomEffect"); } void Scumm::o5_pickupObjectOld() { int obj; obj = getVarOrDirectWord(0x80); if(getObjectIndex(obj) != 1) return; addObjectToInventory(obj,_currentRoom); /*FIXME: the implementation is not quite acurate */ warning("pickupObjectOld(%d) not fully supported",obj); }