2006-05-23 23:43:52 +00:00
|
|
|
/* ScummVM - Scumm Interpreter
|
|
|
|
|
* Copyright (C) 2006 The ScummVM project
|
|
|
|
|
*
|
|
|
|
|
* Copyright (C) 1999-2001 Sarien Team
|
|
|
|
|
*
|
|
|
|
|
* 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 "agi/agi.h"
|
|
|
|
|
#include "agi/opcodes.h"
|
|
|
|
|
|
|
|
|
|
namespace Agi {
|
|
|
|
|
|
2006-12-06 19:27:02 +00:00
|
|
|
static AgiEngine *g_agi;
|
2007-01-16 12:40:51 +00:00
|
|
|
#define game g_agi->_game
|
2006-12-06 19:27:02 +00:00
|
|
|
|
2006-05-23 23:43:52 +00:00
|
|
|
#define ip (game.logics[lognum].cIP)
|
|
|
|
|
#define code (game.logics[lognum].data)
|
|
|
|
|
|
|
|
|
|
#ifdef _L
|
|
|
|
|
#undef _L
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#define _L(a,b,c) { a, b, c }
|
|
|
|
|
|
2007-01-16 12:40:51 +00:00
|
|
|
struct AgiLogicnames logicNamesTest[] = {
|
2006-05-23 23:43:52 +00:00
|
|
|
_L("", 0, 0x00),
|
|
|
|
|
_L("equaln", 2, 0x80),
|
|
|
|
|
_L("equalv", 2, 0xC0),
|
|
|
|
|
_L("lessn", 2, 0x80),
|
|
|
|
|
_L("lessv", 2, 0xC0),
|
|
|
|
|
_L("greatern", 2, 0x80),
|
|
|
|
|
_L("greaterv", 2, 0xC0),
|
|
|
|
|
_L("isset", 1, 0x00),
|
|
|
|
|
_L("issetv", 1, 0x80),
|
|
|
|
|
_L("has", 1, 0x00),
|
|
|
|
|
_L("obj.in.room", 2, 0x40),
|
|
|
|
|
_L("posn", 5, 0x00),
|
|
|
|
|
_L("controller", 1, 0x00),
|
|
|
|
|
_L("have.key", 0, 0x00),
|
|
|
|
|
|
|
|
|
|
/* Not 0 args. Has variable number. */
|
|
|
|
|
_L("said", 0, 0x00),
|
|
|
|
|
|
|
|
|
|
_L("compare.strings", 2, 0x00),
|
|
|
|
|
_L("obj.in.box", 5, 0x00),
|
|
|
|
|
_L("center.posn", 5, 0x00),
|
|
|
|
|
_L("right.posn", 5, 0x00)
|
|
|
|
|
};
|
|
|
|
|
|
2007-01-16 12:40:51 +00:00
|
|
|
struct AgiLogicnames logicNamesIf[] = {
|
2006-05-23 23:43:52 +00:00
|
|
|
_L("OR", 0, 0x00),
|
|
|
|
|
_L("NOT", 0, 0x00),
|
|
|
|
|
_L("ELSE", 0, 0x00),
|
|
|
|
|
_L("IF", 0, 0x00)
|
|
|
|
|
};
|
|
|
|
|
|
2007-01-16 12:40:51 +00:00
|
|
|
struct AgiLogicnames logicNamesCmd[] = {
|
2006-05-23 23:43:52 +00:00
|
|
|
_L("return", 0, 0x00), /* 00 */
|
|
|
|
|
_L("increment", 1, 0x80), /* 01 */
|
|
|
|
|
_L("decrement", 1, 0x80), /* 02 */
|
|
|
|
|
_L("assignn", 2, 0x80), /* 03 */
|
|
|
|
|
_L("assignv", 2, 0xC0), /* 04 */
|
|
|
|
|
_L("addn", 2, 0x80), /* 05 */
|
|
|
|
|
_L("addv", 2, 0xC0), /* 06 */
|
|
|
|
|
_L("subn", 2, 0x80), /* 07 */
|
|
|
|
|
_L("subv", 2, 0xC0), /* 08 */
|
|
|
|
|
_L("lindirectv", 2, 0xC0), /* 09 */
|
|
|
|
|
_L("rindirect", 2, 0xC0), /* 0A */
|
|
|
|
|
_L("lindirectn", 2, 0x80), /* 0B */
|
|
|
|
|
_L("set", 1, 0x00), /* 0C */
|
|
|
|
|
_L("reset", 1, 0x00), /* 0D */
|
|
|
|
|
_L("toggle", 1, 0x00), /* 0E */
|
|
|
|
|
_L("set.v", 1, 0x80), /* 0F */
|
|
|
|
|
_L("reset.v", 1, 0x80), /* 10 */
|
|
|
|
|
_L("toggle.v", 1, 0x80), /* 11 */
|
|
|
|
|
_L("new.room", 1, 0x00), /* 12 */
|
|
|
|
|
_L("new.room.v", 1, 0x80), /* 13 */
|
|
|
|
|
_L("load.logics", 1, 0x00), /* 14 */
|
|
|
|
|
_L("load.logics.v", 1, 0x80), /* 15 */
|
|
|
|
|
_L("call", 1, 0x00), /* 16 */
|
|
|
|
|
_L("call.v", 1, 0x80), /* 17 */
|
|
|
|
|
_L("load.pic", 1, 0x80), /* 18 */
|
|
|
|
|
_L("draw.pic", 1, 0x80), /* 19 */
|
|
|
|
|
_L("show.pic", 0, 0x00), /* 1A */
|
|
|
|
|
_L("discard.pic", 1, 0x80), /* 1B */
|
|
|
|
|
_L("overlay.pic", 1, 0x80), /* 1C */
|
|
|
|
|
_L("show.pri.screen", 0, 0x00), /* 1D */
|
|
|
|
|
_L("load.view", 1, 0x00), /* 1E */
|
|
|
|
|
_L("load.view.v", 1, 0x80), /* 1F */
|
|
|
|
|
_L("discard.view", 1, 0x00), /* 20 */
|
|
|
|
|
_L("animate.obj", 1, 0x00), /* 21 */
|
|
|
|
|
_L("unanimate.all", 0, 0x00), /* 22 */
|
|
|
|
|
_L("draw", 1, 0x00), /* 23 */
|
|
|
|
|
_L("erase", 1, 0x00), /* 24 */
|
|
|
|
|
_L("position", 3, 0x00), /* 25 */
|
|
|
|
|
_L("position.v", 3, 0x60), /* 26 */
|
|
|
|
|
_L("get.posn", 3, 0x60), /* 27 */
|
|
|
|
|
_L("reposition", 3, 0x60), /* 28 */
|
|
|
|
|
_L("set.view", 2, 0x00), /* 29 */
|
|
|
|
|
_L("set.view.v", 2, 0x40), /* 2A */
|
|
|
|
|
_L("set.loop", 2, 0x00), /* 2B */
|
|
|
|
|
_L("set.loop.v", 2, 0x40), /* 2C */
|
|
|
|
|
_L("fix.loop", 1, 0x00), /* 2D */
|
|
|
|
|
_L("release.loop", 1, 0x00), /* 2E */
|
|
|
|
|
_L("set.cel", 2, 0x00), /* 2F */
|
|
|
|
|
_L("set.cel.v", 2, 0x40), /* 30 */
|
|
|
|
|
_L("last.cel", 2, 0x40), /* 31 */
|
|
|
|
|
_L("current.cel", 2, 0x40), /* 32 */
|
|
|
|
|
_L("current.loop", 2, 0x40), /* 33 */
|
|
|
|
|
_L("current.view", 2, 0x40), /* 34 */
|
|
|
|
|
_L("number.of.loops", 2, 0x40), /* 35 */
|
|
|
|
|
_L("set.priority", 2, 0x00), /* 36 */
|
|
|
|
|
_L("set.priority.v", 2, 0x40), /* 37 */
|
|
|
|
|
_L("release.priority", 1, 0x00), /* 38 */
|
|
|
|
|
_L("get.priority", 2, 0x40), /* 39 */
|
|
|
|
|
_L("stop.update", 1, 0x00), /* 3A */
|
|
|
|
|
_L("start.update", 1, 0x00), /* 3B */
|
|
|
|
|
_L("force.update", 1, 0x00), /* 3C */
|
|
|
|
|
_L("ignore.horizon", 1, 0x00), /* 3D */
|
|
|
|
|
_L("observe.horizon", 1, 0x00), /* 3E */
|
|
|
|
|
_L("set.horizon", 1, 0x00), /* 3F */
|
|
|
|
|
_L("object.on.water", 1, 0x00), /* 40 */
|
|
|
|
|
_L("object.on.land", 1, 0x00), /* 41 */
|
|
|
|
|
_L("object.on.anything", 1, 0x00), /* 42 */
|
|
|
|
|
_L("ignore.objs", 1, 0x00), /* 43 */
|
|
|
|
|
_L("observe.objs", 1, 0x00), /* 44 */
|
|
|
|
|
_L("distance", 3, 0x20), /* 45 */
|
|
|
|
|
_L("stop.cycling", 1, 0x00), /* 46 */
|
|
|
|
|
_L("start.cycling", 1, 0x00), /* 47 */
|
|
|
|
|
_L("normal.cycle", 1, 0x00), /* 48 */
|
|
|
|
|
_L("end.of.loop", 2, 0x00), /* 49 */
|
|
|
|
|
_L("reverse.cycle", 1, 0x00), /* 4A */
|
|
|
|
|
_L("reverse.loop", 2, 0x00), /* 4B */
|
|
|
|
|
_L("cycle.time", 2, 0x40), /* 4C */
|
|
|
|
|
_L("stop.motion", 1, 0x00), /* 4D */
|
|
|
|
|
_L("start.motion", 1, 0x00), /* 4E */
|
|
|
|
|
_L("step.size", 2, 0x40), /* 4F */
|
|
|
|
|
_L("step.time", 2, 0x40), /* 50 */
|
|
|
|
|
_L("move.obj", 5, 0x00), /* 51 */
|
|
|
|
|
_L("move.obj.v", 5, 0x70), /* 52 */
|
|
|
|
|
_L("follow.ego", 3, 0x00), /* 53 */
|
|
|
|
|
_L("wander", 1, 0x00), /* 54 */
|
|
|
|
|
_L("normal.motion", 1, 0x00), /* 55 */
|
|
|
|
|
_L("set.dir", 2, 0x40), /* 56 */
|
|
|
|
|
_L("get.dir", 2, 0x40), /* 57 */
|
|
|
|
|
_L("ignore.blocks", 1, 0x00), /* 58 */
|
|
|
|
|
_L("observe.blocks", 1, 0x00), /* 59 */
|
|
|
|
|
_L("block", 4, 0x00), /* 5A */
|
|
|
|
|
_L("unblock", 0, 0x00), /* 5B */
|
|
|
|
|
_L("get", 1, 0x00), /* 5C */
|
|
|
|
|
_L("get.v", 1, 0x80), /* 5D */
|
|
|
|
|
_L("drop", 1, 0x00), /* 5E */
|
|
|
|
|
_L("put", 2, 0x00), /* 5F */
|
|
|
|
|
_L("put.v", 2, 0x40), /* 60 */
|
|
|
|
|
_L("get.room.v", 2, 0xC0), /* 61 */
|
|
|
|
|
_L("load.sound", 1, 0x00), /* 62 */
|
|
|
|
|
_L("sound", 2, 0x00), /* 63 */
|
|
|
|
|
_L("stop.sound", 0, 0x00), /* 64 */
|
|
|
|
|
_L("print", 1, 0x00), /* 65 */
|
|
|
|
|
_L("print.v", 1, 0x80), /* 66 */
|
|
|
|
|
_L("display", 3, 0x00), /* 67 */
|
|
|
|
|
_L("display.v", 3, 0xE0), /* 68 */
|
|
|
|
|
_L("clear.lines", 3, 0x00), /* 69 */
|
|
|
|
|
_L("text.screen", 0, 0x00), /* 6A */
|
|
|
|
|
_L("graphics", 0, 0x00), /* 6B */
|
|
|
|
|
_L("set.cursor.char", 1, 0x00), /* 6C */
|
|
|
|
|
_L("set.text.attribute", 2, 0x00), /* 6D */
|
|
|
|
|
_L("shake.screen", 1, 0x00), /* 6E */
|
|
|
|
|
_L("configure.screen", 3, 0x00), /* 6F */
|
|
|
|
|
_L("status.line.on", 0, 0x00), /* 70 */
|
|
|
|
|
_L("status.line.off", 0, 0x00), /* 71 */
|
|
|
|
|
_L("set.string", 2, 0x00), /* 72 */
|
|
|
|
|
_L("get.string", 5, 0x00), /* 73 */
|
|
|
|
|
_L("word.to.string", 2, 0x00), /* 74 */
|
|
|
|
|
_L("parse", 1, 0x00), /* 75 */
|
|
|
|
|
_L("get.num", 2, 0x40), /* 76 */
|
|
|
|
|
_L("prevent.input", 0, 0x00), /* 77 */
|
|
|
|
|
_L("accept.input", 0, 0x00), /* 78 */
|
|
|
|
|
_L("set.key", 3, 0x00), /* 79 */
|
|
|
|
|
_L("add.to.pic", 7, 0x00), /* 7A */
|
|
|
|
|
_L("add.to.pic.v", 7, 0xFE), /* 7B */
|
|
|
|
|
_L("status", 0, 0x00), /* 7C */
|
|
|
|
|
_L("save.game", 0, 0x00), /* 7D */
|
|
|
|
|
_L("restore.game", 0, 0x00), /* 7E */
|
|
|
|
|
_L("init.disk", 0, 0x00), /* 7F */
|
|
|
|
|
_L("restart.game", 0, 0x00), /* 80 */
|
|
|
|
|
_L("show.obj", 1, 0x00), /* 81 */
|
|
|
|
|
_L("random", 3, 0x20), /* 82 */
|
|
|
|
|
_L("program.control", 0, 0x00), /* 83 */
|
|
|
|
|
_L("player.control", 0, 0x00), /* 84 */
|
|
|
|
|
_L("obj.status.v", 1, 0x80), /* 85 */
|
|
|
|
|
/* 0 args for AGI version 2.089 */
|
|
|
|
|
_L("quit", 1, 0x00), /* 86 */
|
|
|
|
|
|
|
|
|
|
_L("show.mem", 0, 0x00), /* 87 */
|
|
|
|
|
_L("pause", 0, 0x00), /* 88 */
|
|
|
|
|
_L("echo.line", 0, 0x00), /* 89 */
|
|
|
|
|
_L("cancel.line", 0, 0x00), /* 8A */
|
|
|
|
|
_L("init.joy", 0, 0x00), /* 8B */
|
|
|
|
|
_L("toggle.monitor", 0, 0x00), /* 8C */
|
|
|
|
|
_L("version", 0, 0x00), /* 8D */
|
|
|
|
|
_L("script.size", 1, 0x00), /* 8E */
|
|
|
|
|
_L("set.game.id", 1, 0x00), /* 8F */
|
|
|
|
|
_L("log", 1, 0x00), /* 90 */
|
|
|
|
|
_L("set.scan.start", 0, 0x00), /* 91 */
|
|
|
|
|
_L("reset.scan.start", 0, 0x00), /* 92 */
|
|
|
|
|
_L("reposition.to", 3, 0x00), /* 93 */
|
|
|
|
|
_L("reposition.to.v", 3, 0x60), /* 94 */
|
|
|
|
|
_L("trace.on", 0, 0x00), /* 95 */
|
|
|
|
|
_L("trace.info", 3, 0x00), /* 96 */
|
|
|
|
|
|
|
|
|
|
/* 3 args for AGI versions before 2.440 */
|
|
|
|
|
_L("print.at", 4, 0x00), /* 97 */
|
|
|
|
|
_L("print.at.v", 4, 0x80), /* 98 */
|
|
|
|
|
|
|
|
|
|
_L("discard.view.v", 1, 0x80), /* 99 */
|
|
|
|
|
_L("clear.text.rect", 5, 0x00), /* 9A */
|
|
|
|
|
_L("set.upper.left", 2, 0x00), /* 9B */
|
|
|
|
|
_L("set.menu", 1, 0x00), /* 9C */
|
|
|
|
|
_L("set.menu.item", 2, 0x00), /* 9D */
|
|
|
|
|
_L("submit.menu", 0, 0x00), /* 9E */
|
|
|
|
|
_L("enable.item", 1, 0x00), /* 9F */
|
|
|
|
|
_L("disable.item", 1, 0x00), /* A0 */
|
|
|
|
|
_L("menu.input", 0, 0x00), /* A1 */
|
|
|
|
|
_L("show.obj.v", 1, 0x01), /* A2 */
|
|
|
|
|
_L("open.dialogue", 0, 0x00), /* A3 */
|
|
|
|
|
_L("close.dialogue", 0, 0x00), /* A4 */
|
|
|
|
|
_L("mul.n", 2, 0x80), /* A5 */
|
|
|
|
|
_L("mul.v", 2, 0xC0), /* A6 */
|
|
|
|
|
_L("div.n", 2, 0x80), /* A7 */
|
|
|
|
|
_L("div.v", 2, 0xC0), /* A8 */
|
|
|
|
|
_L("close.window", 0, 0x00), /* A9 */
|
|
|
|
|
|
|
|
|
|
_L("set.simple", 1, 0x00), /* AA */
|
|
|
|
|
_L("push.script", 0, 0x00), /* AB */
|
|
|
|
|
_L("pop.script", 0, 0x00), /* AC */
|
|
|
|
|
_L("hold.key", 0, 0x00), /* AD */
|
|
|
|
|
_L("set.pri.base", 1, 0x00), /* AE */
|
|
|
|
|
_L("discard.sound", 1, 0x00), /* AF */
|
|
|
|
|
|
|
|
|
|
/* 1 arg for AGI version 3.002.086 */
|
|
|
|
|
_L("hide.mouse", 0, 0x00), /* B0 */
|
|
|
|
|
|
|
|
|
|
_L("allow.menu", 1, 0x00), /* B1 */
|
|
|
|
|
_L("show.mouse", 0, 0x00), /* B2 */
|
|
|
|
|
_L("fence.mouse", 4, 0x00), /* B3 */
|
|
|
|
|
_L("mouse.posn", 2, 0x00), /* B4 */
|
|
|
|
|
_L("release.key", 0, 0x00), /* B5 */
|
|
|
|
|
_L("adj.ego.move.to.xy", 0, 0x00), /* B6 */
|
|
|
|
|
_L(NULL, 0, 0x00)
|
|
|
|
|
};
|
|
|
|
|
|
2007-01-16 12:40:51 +00:00
|
|
|
void AgiEngine::debugConsole(int lognum, int mode, const char *str) {
|
2006-12-06 19:27:02 +00:00
|
|
|
g_agi = this;
|
2007-01-16 12:40:51 +00:00
|
|
|
AgiLogicnames *x;
|
2006-05-23 23:43:52 +00:00
|
|
|
uint8 a, c, z;
|
|
|
|
|
|
|
|
|
|
if (str) {
|
|
|
|
|
report(" %s\n", str);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
report("%03d:%04x ", lognum, ip);
|
|
|
|
|
|
|
|
|
|
switch (*(code + ip)) {
|
|
|
|
|
case 0xFC:
|
|
|
|
|
case 0xFD:
|
|
|
|
|
case 0xFE:
|
|
|
|
|
case 0xFF:
|
2007-01-16 12:40:51 +00:00
|
|
|
x = logicNamesIf;
|
2006-05-23 23:43:52 +00:00
|
|
|
|
2007-01-16 12:40:51 +00:00
|
|
|
if (_debug.opcodes) {
|
2006-05-23 23:43:52 +00:00
|
|
|
report("%02X %02X %02X %02X %02X %02X %02X %02X %02X\n"
|
|
|
|
|
" ",
|
|
|
|
|
(uint8) * (code + (0 + ip)) & 0xFF,
|
|
|
|
|
(uint8) * (code + (1 + ip)) & 0xFF,
|
|
|
|
|
(uint8) * (code + (2 + ip)) & 0xFF,
|
|
|
|
|
(uint8) * (code + (3 + ip)) & 0xFF,
|
|
|
|
|
(uint8) * (code + (4 + ip)) & 0xFF,
|
|
|
|
|
(uint8) * (code + (5 + ip)) & 0xFF,
|
|
|
|
|
(uint8) * (code + (6 + ip)) & 0xFF,
|
|
|
|
|
(uint8) * (code + (7 + ip)) & 0xFF,
|
|
|
|
|
(uint8) * (code + (8 + ip)) & 0xFF);
|
|
|
|
|
}
|
|
|
|
|
report("%s ", (x + *(code + ip) - 0xFC)->name);
|
|
|
|
|
break;
|
|
|
|
|
default:
|
2007-01-16 12:40:51 +00:00
|
|
|
x = mode == lCOMMAND_MODE ? logicNamesCmd : logicNamesTest;
|
|
|
|
|
a = (unsigned char)(x + *(code + ip))->numArgs;
|
|
|
|
|
c = (unsigned char)(x + *(code + ip))->argMask;
|
2006-05-23 23:43:52 +00:00
|
|
|
|
2007-01-16 12:40:51 +00:00
|
|
|
if (_debug.opcodes) {
|
2006-05-23 23:43:52 +00:00
|
|
|
report("%02X %02X %02X %02X %02X %02X %02X %02X %02X\n"
|
|
|
|
|
" ",
|
2007-01-16 12:40:51 +00:00
|
|
|
(uint8)*(code + (0 + ip)) & 0xFF,
|
|
|
|
|
(uint8)*(code + (1 + ip)) & 0xFF,
|
|
|
|
|
(uint8)*(code + (2 + ip)) & 0xFF,
|
|
|
|
|
(uint8)*(code + (3 + ip)) & 0xFF,
|
|
|
|
|
(uint8)*(code + (4 + ip)) & 0xFF,
|
|
|
|
|
(uint8)*(code + (5 + ip)) & 0xFF,
|
|
|
|
|
(uint8)*(code + (6 + ip)) & 0xFF,
|
|
|
|
|
(uint8)*(code + (7 + ip)) & 0xFF,
|
|
|
|
|
(uint8)*(code + (8 + ip)) & 0xFF);
|
2006-05-23 23:43:52 +00:00
|
|
|
}
|
|
|
|
|
report("%s ", (x + *(code + ip))->name);
|
|
|
|
|
|
|
|
|
|
for (z = 1; a > 0;) {
|
|
|
|
|
if (~c & 0x80) {
|
|
|
|
|
report("%d", *(code + (ip + z)));
|
|
|
|
|
} else {
|
|
|
|
|
report("v%d[%d]", *(code + (ip + z)), getvar(*(code + (ip + z))));
|
|
|
|
|
}
|
|
|
|
|
c <<= 1;
|
|
|
|
|
z++;
|
|
|
|
|
if (--a > 0)
|
|
|
|
|
report(",");
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
report("\n");
|
|
|
|
|
}
|
|
|
|
|
|
2007-01-16 12:40:51 +00:00
|
|
|
} // End of namespace Agi
|
