ScummVM/scummex
1
0
Fork 0
mirror of https://github.com/scummvm/scummex.git synced 2026-05-21 05:40:51 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
master
scummex/descumm.cpp
T

3283 lines
66 KiB
C++
Raw Permalink Blame History

/* DeScumm - Scumm Script Disassembler (version 2-5 scripts)
* Copyright (C) 2001 Ludvig Strigeus
* Copyright (C) 2002-2003 The ScummVM 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* $Header: /Users/sev/projects/sc/s/scummvm/scummex/descumm.cpp,v 1.3 2003/09/23 12:56:12 khalek Exp $
*
*/
#include "file.h"
#include "wxwindows.h"
#include "descumm.h"
#define A1B (1<<0)
#define A1W (2<<0)
#define A1V (3<<0)
#define A1VARUNTIL0xFF (4<<0)
#define A1ASCII (5<<0)
#define A2B (1<<4)
#define A2W (2<<4)
#define A2V (3<<4)
#define A2VARUNTIL0xFF (4<<4)
#define A2ASCII (5<<4)
#define A3B (1<<8)
#define A3W (2<<8)
#define A3V (3<<8)
#define A3VARUNTIL0xFF (4<<8)
#define A3ASCII (5<<8)
#define A3ASC (6<<8)
#define A4B (1<<12)
#define A4W (2<<12)
#define A4V (3<<12)
#define A4VARUNTIL0xFF (4<<12)
#define A4ASCII (5<<12)
#define A4ASC (6<<12)
#define A5ASCII (5<<16)
#define ATO (1<<31)
#define ANOLASTPAREN (1<<30)
#define ANOFIRSTPAREN (1<<29)
#define ASTARTCOMMA (1<<28)
#define AVARSTORE (1<<27)
BlockStack *block_stack;
int num_block_stack;
bool pendingElse, haveElse;
int pendingElseTo;
int pendingElseOffs;
int pendingElseOpcode;
int pendingElseIndent;
int g_jump_opcode;
bool alwaysShowOffs = false;
bool dontOutputIfs = false;
bool dontOutputElse = false;
bool dontOutputElseif = false;
bool dontOutputWhile = false;
bool dontShowOpcode = false;
bool dontShowOffsets = false;
bool haltOnError;
byte scriptVersion;
byte *cur_pos, *org_pos;
int offs_of_line;
uint size_of_code;
void get_tok_V12(char *buf); // For V1 and V2
void get_tok_V345(char *buf); // For V3, V4, V5
bool ZakFlag = false;
bool IndyFlag = false;
bool GF_UNBLOCKED = false;
void emit_if(char *buf, char *condition);
const char *var_names2[] = {
/* 0 */
"VAR_EGO",
NULL,
"VAR_CAMERA_POS_X",
"VAR_HAVE_MSG",
/* 4 */
"VAR_ROOM",
"VAR_OVERRIDE",
"VAR_MACHINE_SPEED",
"VAR_CHARCOUNT",
/* 8 */
"VAR_ACTIVE_VERB",
"VAR_ACTIVE_OBJECT1",
"VAR_ACTIVE_OBJECT2",
"VAR_NUM_ACTOR",
/* 12 */
"VAR_CURRENT_LIGHTS",
"VAR_CURRENTDRIVE",
NULL,
NULL,
/* 16 */
NULL,
"VAR_MUSIC_TIMER",
"VAR_VERB_ALLOWED",
"VAR_ACTOR_RANGE_MIN",
/* 20 */
"VAR_ACTOR_RANGE_MAX",
NULL,
NULL,
"VAR_CAMERA_MIN_X",
/* 24 */
"VAR_CAMERA_MAX_X",
"VAR_TIMER_NEXT",
"VAR_SENTENCE_VERB",
"VAR_SENTENCE_OBJECT1",
/* 28 */
"VAR_SENTENCE_OBJECT2",
"VAR_SENTENCE_PREPOSITION",
"VAR_VIRT_MOUSE_X",
"VAR_VIRT_MOUSE_Y",
/* 32 */
"VAR_CLICK_AREA",
NULL,
NULL,
NULL,
/* 36 */
"VAR_ROOM_RESOURCE",
"VAR_LAST_SOUND",
"VAR_BACKUP_VERB",
"VAR_KEYPRESS",
/* 40 */
"VAR_CUTSCENEEXIT_KEY",
"VAR_TALK_ACTOR",
NULL,
NULL
};
const char *DeScumm::get_num_string(int i)
{
const char *s;
if (i & 0x8000) { /* Bit var */
i &= 0xFFF;
if (i >= 0x800)
s = "??Bit??";
else
s = "Bit";
} else if (i & 0x4000) {
i &= IndyFlag ? 0xF : 0xFFF;
if (i > 0x10)
s = "??Local??";
else
s = "Local";
} else {
i &= 0xFFF;
if (i >= 0x320)
s = "??Var??";
else
s = "Var";
}
if (haltOnError && (s[0] == '?')) {
printf("ERROR: %s out of range, was %d\n", s, i);
exit(1);
}
return s;
}
char *DeScumm::get_var(char *buf)
{
int i;
if (scriptVersion <= 2)
i = get_byte();
else
i = get_word();
if (scriptVersion <= 2 && i < ARRAYSIZE(var_names2) && var_names2[i]) {
buf += sprintf(buf, var_names2[i]);
return buf;
} else if ((i & 0x8000) && (GF_UNBLOCKED || ZakFlag))
buf += sprintf(buf, "Var[%d Bit %d", (i & 0x0FFF) >> 4, i & 0x000F);
else
buf += sprintf(buf, "%s[%d", get_num_string(i), i & 0xFFF);
if (i & 0x2000) {
int j = get_word();
if (j & 0x2000) {
j ^= 0x2000;
sprintf(buf, " + %s[%d]", get_num_string(j), j & 0xFFF);
} else
sprintf(buf, " + %d", j & 0xFFF);
}
strcat(buf, "]");
return strchr(buf, 0);
}
char *DeScumm::get_var_or_word(char *buf, char condition)
{
if (condition)
get_var(buf);
else
sprintf(buf, "%d", get_word());
return strchr(buf, 0);
}
char *DeScumm::get_var_or_byte(char *buf, char condition)
{
if (condition)
get_var(buf);
else
sprintf(buf, "%d", get_byte());
return strchr(buf, 0);
}
char *DeScumm::get_var_until_0xff(char *buf)
{
int i;
int j = 0;
bool first = true;
buf = strecpy(buf, "[");
do {
i = get_byte();
if (i == 0xFF)
break;
if (!first)
buf = strecpy(buf, ",");
first = false;
buf = get_var_or_word(buf, i & 0x80);
j++;
if (j > 16) {
printf("ERROR: too many variables in argument list!\n");
if (haltOnError)
exit(1);
break;
}
} while (1);
return strecpy(buf, "]");
}
char *DeScumm::putascii(char *buf, int i)
{
if (i > 31 && i < 128) {
buf[0] = i;
buf[1] = 0;
return buf + 1;
}
return buf + sprintf(buf, "^%d", i);
}
char *DeScumm::get_ascii(char *buf)
{
int i;
buf = strecpy(buf, "\"");
do {
i = get_byte();
if (!i)
break;
buf = putascii(buf, i);
if (i == 255) {
buf = putascii(buf, get_byte());
buf = putascii(buf, get_byte());
buf = putascii(buf, get_byte());
}
} while (1);
return strecpy(buf, "\"");
}
char *DeScumm::add_a_tok(char *buf, int type)
{
switch (type) {
case 1:
buf += sprintf(buf, "%d", get_byte());
break;
case 2:
buf += sprintf(buf, "%d", get_word());
break;
case 3:
buf = get_var(buf);
break;
case 4:
buf = get_var_until_0xff(buf);
break;
case 5:
buf = get_ascii(buf);
break;
case 6:
buf = putascii(buf, get_byte());
break;
}
return buf;
}
char *DeScumm::do_tok(char *buf, const char *text, int args)
{
char *buforg = buf;
if (args & AVARSTORE) {
buf = get_var(buf);
buf = strecpy(buf, " = ");
}
if (text)
buf = strecpy(buf, text);
if (!(args & ANOFIRSTPAREN))
buf = strecpy(buf, "(");
if (args & ASTARTCOMMA)
buf = strecpy(buf, ",");
if (args & 0xF) {
buf = add_a_tok(buf, args & 0xF);
if (args & 0xF0) {
buf = add_a_tok(strecpy(buf, ","), (args >> 4) & 0xF);
if (args & 0xF00) {
buf = add_a_tok(strecpy(buf, ","), (args >> 8) & 0xF);
if (args & 0xF000) {
buf = add_a_tok(strecpy(buf, ","), (args >> 12) & 0xF);
if (args & 0xF0000)
buf = add_a_tok(strecpy(buf, ","), (args >> 16) & 0xF);
}
}
}
}
if (args & ATO) {
char tmp[256];
strcpy(tmp, buforg);
emit_if(buforg, tmp);
} else if (!(args & ANOLASTPAREN)) {
buf = strecpy(buf, ")");
}
return strchr(buf, 0);
}
void DeScumm::do_decodeparsestring_v2(char *buf, byte opcode)
{
byte c;
bool flag;
while ((c = get_byte())) {
flag = (c & 0x80) != 0;
c &= 0x7f;
if (c < 8) {
buf += sprintf(buf, "^%d", c);
if (c > 3) {
buf += sprintf(buf, "^%d", get_byte());
}
} else
*buf++ = c;
if (flag)
*buf++ = ' ';
}
*buf = 0;
}
void DeScumm::do_actorset_v12(char *buf, byte opcode)
{
// FIXME: the A2 should be displayed as arg to the subops, not as arg to the
// ActorSet itself; but that'll require some more work.
buf = do_tok(buf, "ActorSet", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x80) ? A2V : A2B) | ANOLASTPAREN);
buf = strecpy(buf, ",[");
int subop = get_byte();
switch(subop) {
case 1:
buf = do_tok(buf, "Sound", 0);
break;
case 2:
if (ZakFlag && scriptVersion == 1)
buf = do_tok(buf, "Color", 0);
else
buf = do_tok(buf, "Color", A1B);
break;
case 3:
buf = do_tok(buf, "Name", A1ASCII);
break;
case 4:
buf = do_tok(buf, "Costume", 0);
break;
case 5:
buf = do_tok(buf, "TalkColor", 0);
break;
default:
buf += sprintf(buf, "Unknown%.2X()", opcode);
}
strecpy(buf, "]);");
}
void DeScumm::do_actorset(char *buf, byte opcode)
{
static const byte convertTable[20] =
{ 1, 0, 0, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 20 };
char first = 1;
buf = do_tok(buf, "ActorSet", ((opcode & 0x80) ? A1V : A1B) | ANOLASTPAREN);
buf = strecpy(buf, ",[");
do {
opcode = get_byte();
if (opcode == 0xFF)
break;
if (!first)
buf = strecpy(buf, ",");
first = 0;
// FIXME - this really should be a check for GF_SMALL_HEADER instead!
if (scriptVersion < 5)
opcode = (opcode & 0xE0) | convertTable[(opcode & 0x1F) - 1];
switch (opcode & 0x1F) {
case 0x00:
buf = do_tok(buf, "Unknown", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x01:
buf = do_tok(buf, "Costume", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x02:
buf = do_tok(buf, "WalkSpeed", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x03:
buf = do_tok(buf, "Sound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x04:
buf = do_tok(buf, "WalkAnimNr", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x05:
buf =
do_tok(buf, "TalkAnimNr", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x06:
buf = do_tok(buf, "StandAnimNr", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x07:
buf =
do_tok(buf, "Nothing",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) |
((opcode & 0x20) ? A3V : A3B));
break;
case 0x08:
buf = do_tok(buf, "Init", 0);
break;
case 0x09:
buf = do_tok(buf, "Elevation", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x0A:
buf = do_tok(buf, "DefaultAnims", 0);
break;
case 0x0B:
buf = do_tok(buf, "Palette", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x0C:
buf = do_tok(buf, "TalkColor", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x0D:
buf = do_tok(buf, "Name", A1ASCII);
break;
case 0x0E:
buf = do_tok(buf, "InitAnimNr", ((opcode & 0x80) ? A1V : A1B));
break;
// case 0x0F: buf=do_tok(buf, "Unk3_Set21_22to1", A1VARUNTIL0xFF); break;
case 0x10:
buf = do_tok(buf, "Width", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x11:
// FIXME for GID_MONKEY_VGA / GID_MONKEY_EGA this is:
if (scriptVersion == 5)
buf = do_tok(buf, "Scale", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
else
buf = do_tok(buf, "Scale", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x12:
buf = do_tok(buf, "NeverZClip", 0);
break;
case 0x13:
buf = do_tok(buf, "SetZClip", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x14:
buf = do_tok(buf, "IgnoreBoxes", 0);
break;
case 0x15:
buf = do_tok(buf, "FollowBoxes", 0);
break;
case 0x16:
buf = do_tok(buf, "AnimSpeed", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x17:
buf=do_tok(buf, "ShadowMode", ((opcode & 0x80) ? A1V : A1B));
break;
default:
buf += sprintf(buf, "Unknown%.2X()", opcode);
}
} while (1);
strecpy(buf, "]);");
}
int NumInExprStack;
char **ExprStack;
void DeScumm::AddToExprStack(char *s)
{
int l;
char *m;
if (!ExprStack)
ExprStack = (char **)malloc(sizeof(char *) * 256);
if (NumInExprStack >= 256) {
printf("ERROR: Expression stack overflow!\n");
exit(0);
}
m = NULL;
l = strlen(s);
if (l) {
l++;
m = (char *)malloc(l);
memcpy(m, s, l);
}
ExprStack[NumInExprStack++] = m;
}
char *DeScumm::GetFromExprStack(char *buf)
{
char *s;
if (NumInExprStack <= 0) {
printf("Expression stack is empty!\n");
exit(0);
}
s = ExprStack[--NumInExprStack];
buf = strecpy(buf, s);
free(s);
return buf;
}
void DeScumm::do_expr_code(char *buf)
{
int i;
char *s;
char *buf2;
char tmp[256];
//j = cur_pos - org_pos - 1;
#define NEW_EXPR_MODE 1
#if NEW_EXPR_MODE
buf = strecpy(buf, "Exprmode ");
buf = get_var(buf);
buf = strecpy(buf, " = ");
NumInExprStack = 0;
do {
i = get_byte();
if (i == 0xFF)
break;
switch (i & 0x1F) {
case 0x1:
get_var_or_word(buf, i & 0x80);
AddToExprStack(buf);
break;
case 0x2:
s = " + ";
goto do_oper;
case 0x3:
s = " - ";
goto do_oper;
case 0x4:
s = " * ";
goto do_oper;
case 0x5:
s = " / ";
do_oper:;
buf2 = strecpy(buf, "(");
GetFromExprStack(tmp);
buf2 = GetFromExprStack(buf2);
buf2 = strecpy(buf2, s);
buf2 = strecpy(buf2, tmp);
strecpy(buf2, ")");
AddToExprStack(buf);
break;
case 0x6:
buf2 = strecpy(buf, "<");
if (scriptVersion <= 2)
get_tok_V12(buf2);
else
get_tok_V345(buf2);
strecpy(strchr(buf2, 0), ">");
AddToExprStack(buf);
break;
default:
printf("Warning, Invalid expression code %.2X\n", i);
}
} while (1);
strcpy(GetFromExprStack(buf), ";");
#else
strcpy(buf, "START, DEST=");
get_var(strchr(buf, 0));
output_expr_text(j, buf);
do {
j = cur_pos - org_pos;
i = get_byte();
if (i == 0xFF)
break;
switch (i) {
case 0x1:
case 0x81:
strcpy(buf, "PUSH ");
get_var_or_word(strchr(buf, 0), i & 0x80);
break;
case 0x2:
strcpy(buf, "ADD");
break;
case 0x3:
strcpy(buf, "SUB");
break;
case 0x4:
strcpy(buf, "MUL");
break;
case 0x5:
strcpy(buf, "DIV");
break;
case 0x6:
sprintf(buf, "CALL (%.2X) ", *cur_pos);
if (scriptVersion <= 2)
get_tok_V12(strchr(buf, 0));
else
get_tok_V345(strchr(buf, 0));
break;
default:
sprintf(buf, "UNKNOWN %d", i);
}
output_expr_text(j, buf);
} while (1);
output_expr_text(j, "END");
#endif
}
void DeScumm::do_load_code_to_string(char *buf, byte opcode)
{
buf = strchr(strcpy(buf, "PutCodeInString("), 0);
buf = get_var_or_byte(buf, opcode & 0x80);
buf = strchr(strcpy(buf, ", "), 0);
buf = get_ascii(buf);
strcpy(buf, ");");
}
void DeScumm::do_resource_v2(char *buf, byte opcode)
{
const char *resTypes[] = {
"UnkResType0",
"UnkResType1",
"Costume",
"Room",
"UnkResType4",
"Script",
"Sound"
};
char resid[256];
int subop;
get_var_or_byte(resid, opcode & 0x80);
subop = get_byte();
int type = subop >> 4;
if (((subop & 0x0F) == 0) || ((subop & 0x0F) == 1)) {
if (subop & 1)
buf += sprintf(buf, "load");
else
buf += sprintf(buf, "nuke");
assert(0 <= type && type < ARRAYSIZE(resTypes));
buf += sprintf(buf, resTypes[type]);
buf += sprintf(buf, "(%s)", resid);
} else {
if (subop & 1)
buf += sprintf(buf, "lock");
else
buf += sprintf(buf, "unlock");
assert(0 <= type && type < ARRAYSIZE(resTypes));
buf += sprintf(buf, resTypes[type]);
buf += sprintf(buf, "(%s)", resid);
}
}
void DeScumm::do_resource(char *buf, byte opco)
{
// FIXME:
// 1) This is out of date compared to script_v5.cp
// 2) the token's should all get a prefix, so that we don't mix up the
// "real" loadRoom with the one here.
char opcode = get_byte();
int sub_op;
if (scriptVersion != 5)
sub_op = opcode & 0x3F; // FIXME - actually this should only be done for Zak256
else
sub_op = opcode & 0x1F;
switch (sub_op) {
case 0x1:
do_tok(buf, "loadScript", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x2:
do_tok(buf, "loadSound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x3:
do_tok(buf, "loadCostume", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x4:
do_tok(buf, "loadRoom", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x5:
do_tok(buf, "nukeScript", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x6:
do_tok(buf, "nukeSound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x7:
do_tok(buf, "nukeCostume", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x8:
do_tok(buf, "nukeRoom", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x9:
do_tok(buf, "lockScript", ((opcode & 0x80) ? A1V : A1B));
break;
case 0xA:
do_tok(buf, "lockSound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0xB:
do_tok(buf, "lockCostume", ((opcode & 0x80) ? A1V : A1B));
break;
case 0xC:
do_tok(buf, "lockRoom", ((opcode & 0x80) ? A1V : A1B));
break;
case 0xD:
do_tok(buf, "unlockScript", ((opcode & 0x80) ? A1V : A1B));
break;
case 0xE:
do_tok(buf, "unlockSound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0xF:
do_tok(buf, "unlockCostume", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x10:
do_tok(buf, "unlockRoom", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x11:
do_tok(buf, "clearHeap", 0);
break;
case 0x12:
do_tok(buf, "loadCharset", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x13:
do_tok(buf, "nukeCharset", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x14:
do_tok(buf, "loadFlObject", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x22 + 1:
do_tok(buf, "resUnk1", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x23 + 1:
do_tok(buf, "resUnk2", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) | A3B);
break;
case 0x24 + 1:
do_tok(buf, "resUnk3", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
default:
do_tok(buf, "resUnk", ((opcode & 0x80) ? A1V : A1B));
break;
}
}
void DeScumm::do_pseudoRoom(char *buf)
{
int j, i = get_byte();
buf += sprintf(buf, "PseudoRoom(%d", i);
do {
j = get_byte();
if (!j)
break;
if (j & 128)
buf += sprintf(buf, ",%d", j & 127);
else
buf = strecpy(buf, ",IG");
} while (1);
strcpy(buf, ")");
}
void DeScumm::do_room_ops(char *buf)
{
int opcode = get_byte();
//buf+=sprintf(buf, "SubCode33%.2X", opcode);
switch (opcode & 0x1F) {
case 0x01:
do_tok(buf, "RoomScroll", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x02:
do_tok(buf, "RoomColor", 0);
break;
case 0x03:
do_tok(buf, "SetScreen", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x04:
buf =
do_tok(buf, "SetPalColor",
((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W) |
((opcode & 0x20) ? A3V : A3W) | ANOLASTPAREN);
opcode = get_byte();
buf = do_tok(buf, NULL, ASTARTCOMMA | ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x05:
do_tok(buf, "ShakeOn", 0);
break;
case 0x06:
do_tok(buf, "ShakeOff", 0);
break;
case 0x07:
do_tok(buf, "Unused", 0);
break;
case 0x08:
buf =
do_tok(buf, "roomFunc2",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) |
((opcode & 0x20) ? A3V : A3B));
break;
case 0x09:
buf = do_tok(buf, "saveLoad?", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x0A:
buf = do_tok(buf, "screenEffect?", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x0B:
buf =
do_tok(buf, "roomFunc2",
ANOLASTPAREN | ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ?
A2V : A2W) |
((opcode & 0x20) ? A3V : A3W));
opcode = get_byte();
buf =
do_tok(buf, NULL,
ASTARTCOMMA | ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1B) |
((opcode & 0x40) ? A2V : A2B));
break;
case 0x0C:
buf =
do_tok(buf, "roomFunc3",
ANOLASTPAREN | ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ?
A2V : A2W) |
((opcode & 0x20) ? A3V : A3W));
opcode = get_byte();
buf =
do_tok(buf, NULL,
ASTARTCOMMA | ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1B) |
((opcode & 0x40) ? A2V : A2B));
break;
case 0x0D:
do_tok(buf, "roomops:13", ((opcode & 0x80) ? A1V : A1B) | A2ASCII);
break;
case 0x0E:
do_tok(buf, "roomops:14", ((opcode & 0x80) ? A1V : A1B) | A2ASCII);
break;
case 0x0F:
buf = do_tok(buf, "palManipulate", ANOLASTPAREN | ((opcode & 0x80) ? A1V : A1B));
opcode = get_byte();
buf =
do_tok(buf, NULL,
ASTARTCOMMA | ANOFIRSTPAREN | ANOLASTPAREN | ((opcode & 0x80) ?
A1V : A1B) |
((opcode & 0x40) ? A2V : A2B));
opcode = get_byte();
buf = do_tok(buf, NULL, ASTARTCOMMA | ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x10:
do_tok(buf, "colorCycleDelay", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
default:
strcpy(buf, "Unknown??");
}
strcat(buf, ")");
}
void DeScumm::do_room_ops_old(char *buf, byte master_opcode)
{
/* FIXME - this function is not complete yet! */
char a[256];
char b[256];
if (scriptVersion <= 2) {
get_var_or_byte(a, (master_opcode & 0x80));
get_var_or_byte(b, (master_opcode & 0x40));
} else if (scriptVersion == 3) {
get_var_or_word(a, (master_opcode & 0x80));
get_var_or_word(b, (master_opcode & 0x40));
}
int opcode = get_byte();
//buf+=sprintf(buf, "SubCode33%.2X", opcode);
switch (opcode & 0x1F) {
case 0x01:
if (scriptVersion > 3) {
get_var_or_word(a, (master_opcode & 0x80));
get_var_or_word(b, (master_opcode & 0x40));
}
buf = strecpy(buf, "RoomScroll(");
buf = strecpy(buf, a);
buf = strecpy(buf, ",");
buf = strecpy(buf, b);
buf = strecpy(buf, ")");
break;
case 0x02:
if (scriptVersion > 3) {
get_var_or_word(a, (master_opcode & 0x80));
get_var_or_word(b, (master_opcode & 0x40));
}
buf = strecpy(buf, "RoomColor(");
buf = strecpy(buf, a);
buf = strecpy(buf, ",");
buf = strecpy(buf, b);
buf = strecpy(buf, ")");
break;
case 0x03:
if (scriptVersion > 3) {
get_var_or_word(a, (master_opcode & 0x80));
get_var_or_word(b, (master_opcode & 0x40));
}
buf = strecpy(buf, "SetScreen(");
buf = strecpy(buf, a);
buf = strecpy(buf, ",");
buf = strecpy(buf, b);
buf = strecpy(buf, ")");
break;
case 0x04:
if (scriptVersion > 3) {
get_var_or_word(a, (master_opcode & 0x80));
get_var_or_word(b, (master_opcode & 0x40));
}
buf = strecpy(buf, "SetPalColor(");
buf = strecpy(buf, a);
buf = strecpy(buf, ",");
buf = strecpy(buf, b);
buf = strecpy(buf, ")");
break;
case 0x05:
do_tok(buf, "ShakeOn", 0);
break;
case 0x06:
do_tok(buf, "ShakeOff", 0);
break;
case 0x10:
do_tok(buf, "colorCycleDelay", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
default:
// strcpy(buf, "Unknown??");
// printf("UGH, unknown room op %d\n", opcode & 0x1F);
// exit(1);
sprintf(buf, "UnknownRoomCommand%.2X", opcode & 0x1F);
}
}
void DeScumm::do_cursor_command(char *buf)
{
int opcode = get_byte();
switch (opcode & 0x1f) {
case 0x01:
do_tok(buf, "CursorShow", 0);
break;
case 0x02:
do_tok(buf, "CursorHide", 0);
break;
case 0x03:
do_tok(buf, "UserputOn", 0);
break;
case 0x04:
do_tok(buf, "UserputOff", 0);
break;
case 0x05:
do_tok(buf, "CursorSoftOn", 0);
break;
case 0x06:
do_tok(buf, "CursorSoftOff", 0);
break;
case 0x07:
do_tok(buf, "UserputSoftOn", 0);
break;
case 0x08:
do_tok(buf, "UserputSoftOff", 0);
break;
case 0x0A:
do_tok(buf, "SetCursorImg", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x0B:
do_tok(buf, "SetCursorHotspot",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) |
((opcode & 0x20) ? A3V : A3B));
break;
case 0x0C:
do_tok(buf, "InitCursor", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x0D:
do_tok(buf, "InitCharset", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x0E:
if (GF_UNBLOCKED || IndyFlag)
do_tok(buf, "LoadCharset", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
else
do_tok(buf, "CursorCommand", A1VARUNTIL0xFF);
break;
default:
sprintf(buf, "UnknownCursorCommand%.2X", opcode);
}
}
void DeScumm::do_verbops_v2(char *buf, byte opcode)
{
int subop = get_byte();
buf = do_tok(buf, "VerbOps", ANOLASTPAREN);
switch (subop) {
case 0:
buf = do_tok(buf, "Delete", (opcode & 0x80) ? A1V : A1B);
break;
case 0xFF:
buf = do_tok(buf, "State", A1B | A2B);
break;
default:
buf += sprintf(buf, "New-%d", subop);
buf = do_tok(buf, "", A1B | A2B | ((opcode & 0x80) ? A3V : A3B) | A4B | A5ASCII);
}
strecpy(buf, ")");
}
void DeScumm::do_verbops(char *buf, byte opcode)
{
char first = 1;
buf = do_tok(buf, "VerbOps", ((opcode & 0x80) ? A1V : A1B) | ANOLASTPAREN);
buf = strecpy(buf, ",[");
do {
opcode = get_byte();
if (opcode == 0xFF)
break;
if (!first)
buf = strecpy(buf, ",");
first = 0;
switch (opcode & 0x1F) {
case 0x1:
buf = do_tok(buf, "Image", (opcode & 0x80) ? A1V : A1W);
break;
case 0x2:
buf = do_tok(buf, "Text", A1ASCII);
break;
case 0x3:
buf = do_tok(buf, "Color", (opcode & 0x80) ? A1V : A1B);
break;
case 0x4:
buf = do_tok(buf, "HiColor", (opcode & 0x80) ? A1V : A1B);
break;
case 0x5:
buf = do_tok(buf, "SetXY", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x6:
buf = do_tok(buf, "On", 0);
break;
case 0x7:
buf = do_tok(buf, "Off", 0);
break;
case 0x8:
buf = do_tok(buf, "Delete", 0);
break;
case 0x9:
buf = do_tok(buf, "New", 0);
break;
case 0x10:
buf = do_tok(buf, "DimColor", (opcode & 0x80) ? A1V : A1B);
break;
case 0x11:
buf = do_tok(buf, "Dim", 0);
break;
case 0x12:
buf = do_tok(buf, "Key", (opcode & 0x80) ? A1V : A1B);
break;
case 0x13:
buf = do_tok(buf, "Center", 0);
break;
case 0x14:
buf = do_tok(buf, "SetToString", (opcode & 0x80) ? A1V : A1W);
break;
case 0x16:
buf =
do_tok(buf, "SetToObject", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x17:
buf = do_tok(buf, "BackColor", (opcode & 0x80) ? A1V : A1B);
break;
default:
buf += sprintf(buf, "Invalid%.2X()", opcode);
}
} while (1);
strecpy(buf, "])");
}
void DeScumm::do_print_ego(char *buf, byte opcode)
{
int i;
char first = 1;
if (opcode == 0xD8) {
buf = strecpy(buf, "printEgo([");
} else {
buf = do_tok(buf, "print", ((opcode & 0x80) ? A1V : A1B) | ANOLASTPAREN);
buf = strecpy(buf, ",[");
}
do {
int subopcode = get_byte();
if (subopcode == 0xFF)
break;
if (!first)
buf = strecpy(buf, ",");
first = 0;
switch (subopcode & 0x1f) {
case 0x0:
buf = do_tok(buf, "Pos", ((subopcode & 0x80) ? A1V : A1W) | ((subopcode & 0x40) ? A2V : A2W));
break;
case 0x1:
buf = do_tok(buf, "Color", ((subopcode & 0x80) ? A1V : A1B));
break;
case 0x2:
buf = do_tok(buf, "Clipped", ((subopcode & 0x80) ? A1V : A1W));
break;
case 0x3:
buf = do_tok(buf, "Erase?", ((subopcode & 0x80) ? A1V : A1W) | ((subopcode & 0x40) ? A2V : A2W));
break;
case 0x4:
buf = do_tok(buf, "Center", 0);
break;
case 0x6:
if (GF_UNBLOCKED)
buf = do_tok(buf, "Spacing?", ((subopcode & 0x80) ? A1V: A1W));
else
buf = do_tok(buf, "Left", 0);
break;
case 0x7:
buf = do_tok(buf, "Overhead", 0);
break;
case 0x8:
buf = do_tok(buf, "PlayCDTrack", ((subopcode & 0x80) ? A1V : A1W) | ((subopcode & 0x40) ? A2V : A2W));
break;
case 0xF:{
buf = strecpy(buf, "Text(\"");
while (1) {
i = get_byte();
if (!i)
break;
buf = putascii(buf, i);
if (i == 255) {
i = get_byte();
buf = putascii(buf, i);
if (i == 0 || i != 2 && i != 3 && i != 8) {
buf = putascii(buf, get_byte());
buf = putascii(buf, get_byte());
}
}
}
buf = strecpy(buf, "\")");
}
goto exit_proc;
default:
buf += sprintf(buf, "Unknown%.2X()", subopcode);
goto exit_proc;
}
} while (1);
exit_proc:;
buf = strecpy(buf, "]);");
}
void DeScumm::do_unconditional_jump(char *buf)
{
int offset = get_signed_word();
int cur = get_curoffs();
int to = cur + offset;
if (offset == 0) {
sprintf(buf, "/* goto %.4X; */", to);
} else if (!dontOutputElse && maybeAddElse(cur, to)) {
pendingElse = true;
pendingElseTo = to;
pendingElseOffs = cur - 1;
pendingElseOpcode = g_jump_opcode;
pendingElseIndent = num_block_stack;
buf[0] = 0;
} else {
if (num_block_stack && !dontOutputWhile) {
BlockStack *p = &block_stack[num_block_stack - 1];
if (p->isWhile && cur == p->to)
return; // A 'while' ends here.
}
sprintf(buf, "goto %.4X;", to);
}
}
void DeScumm::emit_if(char *buf, char *condition)
{
int offset = get_signed_word();
int cur = get_curoffs();
int to = cur + offset;
if (!dontOutputElseif && pendingElse) {
if (maybeAddElseIf(cur, pendingElseTo, to)) {
pendingElse = false;
haveElse = true;
buf = strecpy(buf, "} else if (");
buf = strecpy(buf, condition);
sprintf(buf, alwaysShowOffs ? ") /*%.4X*/ {" : ") {", to);
return;
}
}
if (!dontOutputIfs && maybeAddIf(cur, to)) {
if (!dontOutputWhile && block_stack[num_block_stack - 1].isWhile) {
buf = strecpy(buf, "while (");
} else
buf = strecpy(buf, "if (");
buf = strecpy(buf, condition);
sprintf(buf, alwaysShowOffs ? ") /*%.4X*/ {" : ") {", to);
return;
}
// buf = strecpy(buf, negate ? "if (" : "unless (");
buf = strecpy(buf, "unless (");
buf = strecpy(buf, condition);
sprintf(buf, ") goto %.4X;", to);
}
void DeScumm::do_if_code(char *buf, byte opcode)
{
char var[256];
char tmp[256], tmp2[256];
int txt;
const char *cmp_texts[8] = {
" >= ", " < ", " <= ", " > ", " == ", " != ", "!", "",
};
var[0] = 0;
if (opcode != 0x28 && opcode != 0xA8)
get_var(var);
switch (opcode & 0x7F) {
case 0x38:
txt = 0;
break; /* lessOrEqual */
case 0x04:
txt = 2;
break; /* isGreaterEqual */
case 0x08:
txt = 5;
break; /* isNotEqual */
case 0x48:
txt = 4;
break; /* isEqual */
case 0x78:
txt = 1;
break; /* isGreater */
case 0x44:
txt = 3;
break; /* isLess */
case 0x28:
txt = opcode & 128 ? 7 : 6;
break;
default:
/* Exit, this should never happen, only if my code is buggy */
printf("ERROR: Unknown IF code %x", opcode);
exit(1);
}
if (opcode == 0x28 || opcode == 0xA8) {
get_var(tmp2);
} else {
get_var_or_word(tmp2, opcode & 0x80);
}
sprintf(tmp, "%s%s%s", var, cmp_texts[txt], tmp2);
emit_if(buf, tmp);
}
void DeScumm::do_if_state_code(char *buf, byte opcode)
{
char var[256];
char tmp[256], tmp2[256];
byte neg;
int state = 0;
var[0] = 0;
get_var_or_word(var, opcode & 0x80);
if (scriptVersion > 2) {
switch (opcode & 0x2F) {
case 0x0f:
neg = 0;
break;
case 0x2f:
neg = 1;
break;
default:
/* Exit, this should never happen, only if my code is buggy */
printf("ERROR: Unknown IF code %x", opcode);
exit(1);
}
get_var_or_byte(tmp2, opcode & 0x40);
} else {
switch (opcode) {
case 0x3f:
case 0xbf:
state = 1;
neg = 1;
break;
case 0x5f:
case 0xdf:
state = 2;
neg = 1;
break;
case 0x2f:
case 0xaf:
state = 4;
neg = 1;
break;
case 0x0f:
case 0x8f:
state = 8;
neg = 1;
break;
case 0x7f:
case 0xff:
state = 1;
neg = 0;
break;
case 0x1f:
case 0x9f:
state = 2;
neg = 0;
break;
case 0x6f:
case 0xef:
state = 4;
neg = 0;
break;
case 0x4f:
case 0xcf:
state = 8;
neg = 0;
break;
default:
/* Exit, this should never happen, only if my code is buggy */
printf("ERROR: Unknown IF code %x", opcode);
exit(1);
}
}
if (scriptVersion > 2)
sprintf(tmp, "getState(%s)%s%s", var, neg ? " != " : " == ", tmp2);
else
sprintf(tmp, "%sgetState%02d(%s)", neg ? "!" : "", state, var);
emit_if(buf, tmp);
}
void DeScumm::do_varset_code(char *buf, byte opcode)
{
char *s;
if ((scriptVersion <= 2)
&& ((opcode & 0x7F) == 0x0A
|| (opcode & 0x7F) == 0x2A
|| (opcode & 0x7F) == 0x6A)) {
int i = get_byte();
buf += sprintf(buf, "Var[Var[%d]]", i);
} else
buf = get_var(buf);
switch (opcode & 0x7F) {
case 0x0A:
case 0x1A:
case 0x2C:
s = " = ";
break; /* move */
case 0x1B:
s = " *= ";
break; /* mul */
case 0x3A:
case 0x6A:
s = " -= ";
break; /* sub */
case 0x57:
s = " |= ";
break; /* or */
case 0x2A:
case 0x5A:
s = " += ";
break; /* add */
case 0x5B:
s = " /= ";
break; /* divide */
case 0x17:
s = " &= ";
break; /* and */
case 0x46:
if (opcode & 128)
s = "--";
else
s = "++";
break; /* increment & decrement */
default:
/* Exit, this should never happen, only if my code is buggy */
printf("ERROR: Unknown VARSET code %x", opcode);
exit(1);
}
buf = strecpy(buf, s);
if ((scriptVersion <= 2) && (opcode & 0x7F) == 0x2C) { /* assignVarByte */
sprintf(buf, "%d", get_byte());
buf = strchr(buf, 0);
} else if ((opcode & 0x7F) != 0x46) { /* increment or decrement */
buf = get_var_or_word(buf, opcode & 0x80);
}
strecpy(buf, ";");
}
void DeScumm::do_matrix_ops(char *buf, byte opcode)
{
opcode = get_byte();
switch (opcode & 0x1F) {
case 0x1:
do_tok(buf, "setBoxFlags", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x2:
do_tok(buf, "setBoxScale", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x3:
do_tok(buf, "SetBoxSlot", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x4:
do_tok(buf, "createBoxMatrix", 0);
break;
default:
sprintf(buf, "SetBoxUnknown%.2X", opcode);
}
}
void DeScumm::get_tok_V12(char *buf)
{
byte opcode = get_byte();
switch (opcode) {
case 0x58:
do_tok(buf, "beginOverride", 0);
break;
case 0x52:
case 0xD2:
do_tok(buf, "actorFollowCamera", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x15:
case 0x55:
case 0x95:
case 0xD5:
do_tok(buf, "actorFromPos",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) | AVARSTORE);
break;
case 0x13:
case 0x53:
case 0x93:
case 0xD3:
// actorSet
do_actorset_v12(buf, opcode);
break;
case 0x2A:
case 0xAA:
// addDirect
case 0x3A:
case 0xBA:
//subtract
case 0x6A:
case 0xEA:
//subDirect
case 0x0A:
case 0x8A:
// assignVarWordDirect
case 0x1A:
case 0x5A:
case 0x9A:
case 0xDA:
do_varset_code(buf, opcode);
break;
case 0x11:
case 0x51:
case 0x91:
case 0xD1:
// animateActor
do_tok(buf, "animateActor", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x2C:
// assignVarByte
do_varset_code(buf, opcode);
break;
case 0x80:
do_tok(buf, "breakHere", 0);
break;
case 0x4A:
case 0xCA:
// chainScript
do_tok(buf, "chainScript", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x60:
case 0xE0:
//cursorCommand
do_tok(buf, "cursorCommand", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x40:
sprintf(buf, "cutscene");
break;
case 0xC0:
sprintf(buf, "endCutscene");
break;
case 0x46:
case 0xC6:
// increment / decrement
do_varset_code(buf, opcode);
break;
case 0x2E: {
//delay
int d = get_byte();
d |= get_byte() << 8;
d |= get_byte() << 16;
d = 0xFFFFFF - d;
sprintf(buf, "delay(%d)", d);
break;
}
case 0x2B:
do_tok(buf, "delayVariable", A1V);
break;
case 0x19:
case 0x39:
case 0x59:
case 0x79:
case 0x99:
case 0xB9:
case 0xD9:
case 0xF9:{
buf = strecpy(buf, "doSentence(");
if (!(opcode & 0x80) && (*cur_pos == 0xFB) || *cur_pos == 0xFC) {
strcpy(buf, "STOP)");
cur_pos++;
} else {
do_tok(buf, "",
ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1B) |
((opcode & 0x40) ? A2V : A2W) | ((opcode & 0x20) ? A3V : A3W) | A4B);
}
}
break;
case 0x05:
case 0x25:
case 0x45:
case 0x65:
case 0x85:
case 0xA5:
case 0xC5:
case 0xE5:
//drawObject
buf = do_tok(buf, "drawObject",
((opcode & 0x80) ? A1V : A1W) |
((opcode & 0x40) ? A2V : A2B) |
((opcode & 0x20) ? A3V : A3B));
break;
case 0xAC:
//drawSentence
do_tok(buf, "drawSentence", 0);
break;
case 0x5C:
case 0x6B:
case 0x6E:
case 0xAB:
case 0xDC:
case 0xEB:
case 0xEE:
//dummy
sprintf(buf, "dummy(%.2X)", opcode);
break;
case 0x09:
case 0x49:
case 0x89:
case 0xC9:
do_tok(buf, "faceActor", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x35:
case 0x75:
case 0xB5:
case 0xF5:
do_tok(buf, "findObject",
AVARSTORE | ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x71:
case 0xF1:
do_tok(buf, "getActorCostume", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x06:
case 0x86:
do_tok(buf, "getActorElevation", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x63:
case 0xE3:
do_tok(buf, "getActorFacing", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x56:
case 0xD6:
do_tok(buf, "getActorMoving", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x03:
case 0x83:
do_tok(buf, "getActorRoom", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x7B:
case 0xFB:
do_tok(buf, "getActorWalkBox", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x43:
case 0xC3:
do_tok(buf, "getActorX", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x23:
case 0xA3:
do_tok(buf, "getActorY", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x31:
case 0xB1:
do_tok(buf, "getBitVar", AVARSTORE | A1W | ((opcode & 0x80) ? A2V : A2B));
break;
case 0x1B:
case 0x5B:
case 0x9B:
case 0xDB:
do_tok(buf, "setBitVar", A1W | ((opcode & 0x80) ? A2V : A2B) | ((opcode & 0x40) ? A3V : A3B));
break;
case 0x66:
case 0xE6:
do_tok(buf, "getClosestObjActor", AVARSTORE | ((opcode & 0x80) ? A1V : A1W));
break;
case 0x34:
case 0x74:
case 0xB4:
case 0xF4:
do_tok(buf, "getDist",
AVARSTORE | ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x10:
case 0x90:
do_tok(buf, "getObjectOwner", AVARSTORE | ((opcode & 0x80) ? A1V : A1W));
break;
case 0x6C:
case 0xEC:
do_tok(buf, "getObjPreposition", AVARSTORE | ((opcode & 0x80) ? A1V : A1W));
break;
case 0x16:
case 0x96:
do_tok(buf, "getRandomNr", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x1D:
case 0x5D:
case 0x9D:
case 0xDD:
//ifClassOfIs
do_tok(buf, "classOfIs", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B) | ATO);
break;
case 0x3F:
case 0xBF:
//ifNotState01
case 0x5F:
case 0xDF:
//ifNotState02
case 0x2F:
case 0xAF:
//ifNotState04
case 0x0F:
case 0x8F:
//ifNotState08
case 0x7F:
case 0xFF:
//ifState01
case 0x1F:
case 0x9F:
//ifState02
case 0x6F:
case 0xEF:
//ifState04
case 0x4F:
case 0xCF:
//ifState08
do_if_state_code(buf, opcode);
break;
case 0x48:
case 0xC8:
//isEqual
case 0x78:
case 0xF8:
//isGreater
case 0x04:
case 0x84:
//isGreaterEqual
case 0x44:
case 0xC4:
//isLess
case 0x08:
case 0x88:
//isNotEqual
case 0x38:
case 0xB8:
//lessOrEqual
case 0x28:
//equalZero
case 0xA8:
//notEqualZero
do_if_code(buf, opcode);
break;
case 0x68:
case 0xE8:
do_tok(buf, "isScriptRunning", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x7C:
case 0xFC:
do_tok(buf, "isSoundRunning", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x18:
do_unconditional_jump(buf);
break;
case 0x70:
case 0xF0:
buf = do_tok(buf, "lights", ((opcode & 0x80) ? A1V : A1B) | A2B | A3B);
break;
case 0x72:
case 0xF2:
do_tok(buf, "loadRoom", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x24:
case 0x64:
case 0xA4:
case 0xE4:
//loadRoomWithEgo
buf =
do_tok(buf, "loadRoomWithEgo",
((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B) | ANOLASTPAREN);
do_tok(buf, NULL, A1B | A2B | ANOFIRSTPAREN | ASTARTCOMMA);
break;
case 0x30:
case 0xB0:
do_tok(buf, "setBoxFlags", ((opcode & 0x80) ? A1V : A1B) | A2B);
break;
case 0x12:
case 0x92:
//panCameraTo
do_tok(buf, "panCameraTo", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x50:
case 0xD0:
//pickupObject
do_tok(buf, "pickupObject", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x14:
case 0x94:
// print
buf += sprintf(buf, "print(\"");
do_decodeparsestring_v2(buf, opcode);
strcat(buf, "\")");
break;
case 0xD8:
//printEgo
buf += sprintf(buf, "printEgo(\"");
do_decodeparsestring_v2(buf, opcode);
strcat(buf, "\")");
break;
case 0xCC:
// pseudoRoom
do_pseudoRoom(buf);
break;
case 0x01:
case 0x21:
case 0x41:
case 0x61:
case 0x81:
case 0xA1:
case 0xC1:
case 0xE1:
do_tok(buf, "putActor",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) |
((opcode & 0x20) ? A3V : A3B));
break;
case 0x0E:
case 0x4E:
case 0x8E:
case 0xCE:
//putActorAtObject
do_tok(buf, "putActorAtObject", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2W) );
break;
case 0x2D:
case 0x6D:
case 0xAD:
case 0xED:
do_tok(buf, "putActorInRoom", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x0C:
case 0x8C:
//resourceRoutines
do_resource_v2(buf, opcode);
break;
case 0x98:
do_tok(buf, "restart", 0);
break;
case 0x33:
case 0x73:
case 0xB3:
case 0xF3:
do_room_ops_old(buf, opcode);
break;
case 0x22:
case 0xA2:
do_tok(buf, "saveLoadGame", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x3D:
case 0x7D:
case 0xBD:
case 0xFD:
do_tok(buf, "setActorElevation", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x32:
case 0xB2:
do_tok(buf, "setCameraAt", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x54:
case 0xD4:
do_tok(buf, "setObjectName", ((opcode & 0x80) ? A1V : A1W) | A2ASCII);
break;
case 0x0B:
case 0x4B:
case 0x8B:
case 0xCB:
do_tok(buf, "setObjPreposition", ((opcode & 0x80) ? A1V : A1W) | A2B);
break;
case 0x29:
case 0x69:
case 0xA9:
case 0xE9:
//setOwnerOf
do_tok(buf, "setOwnerOf", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x77:
case 0xF7:
// clearState01
do_tok(buf, "clearState01", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x17:
case 0x97:
// clearState02
do_tok(buf, "clearState02", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x67:
case 0xE7:
// clearState04
do_tok(buf, "clearState04", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x47:
case 0xC7:
// clearState08
do_tok(buf, "clearState08", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x37:
case 0xB7:
//setState01
do_tok(buf, "setState01", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x57:
case 0xD7:
//setState02
do_tok(buf, "setState02", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x27:
case 0xA7:
//setState04
do_tok(buf, "setState04", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x07:
case 0x87:
//setState08
do_tok(buf, "setState08", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x26:
case 0xA6: {
int i;
char first = 1;
buf = do_tok(buf, "setVarRange", A1V | ANOLASTPAREN);
i = get_byte();
buf += sprintf(buf, ",%d,[", i);
while (i > 0) {
if (!first)
buf = strecpy(buf, ",");
first = 0;
buf += sprintf(buf, "%d", (opcode & 0x80) ? get_word() : get_byte());
i--;
}
strcpy(buf, "];");
}
break;
case 0x02:
case 0x82:
do_tok(buf, "startMusic", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x42:
case 0xC2:
//startScript
do_tok(buf, "startScript", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x1C:
case 0x9C:
do_tok(buf, "startSound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x20:
do_tok(buf, "stopMusic", 0);
break;
case 0x00:
case 0xA0:
do_tok(buf, "stopObjectCode", 0);
break;
case 0x62:
case 0xE2:
do_tok(buf, "stopScript", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x3C:
case 0xBC:
do_tok(buf, "stopSound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x7A:
case 0xFA:
// verbOps
do_verbops_v2(buf, opcode);
break;
case 0x3B:
case 0xBB:
do_tok(buf, "waitForActor", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x4C:
do_tok(buf, "waitForSentence", 0);
break;
case 0xAE:
do_tok(buf, "waitForMessage", 0);
break;
case 0x1E:
case 0x3E:
case 0x5E:
case 0x7E:
case 0x9E:
case 0xBE:
case 0xDE:
case 0xFE:
do_tok(buf, "walkActorTo",
((opcode & 0x80) ? A1V : A1B) |
((opcode & 0x40) ? A2V : A2B) |
((opcode & 0x20) ? A3V : A3B));
break;
case 0x0D:
case 0x4D:
case 0x8D:
case 0xCD:
do_tok(buf, "walkActorToActor",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) | A3B);
break;
case 0x36:
case 0x76:
case 0xB6:
case 0xF6:
do_tok(buf, "walkActorToObject", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2W));
break;
default:
printf("ERROR: Unknown opcode %.2X\n", opcode);
exit(1);
}
}
void DeScumm::get_tok_V345(char *buf)
{
byte opcode = get_byte();
switch (opcode) {
case 0x00:
case 0xA0:
do_tok(buf, "stopObjectCode", 0);
break;
case 0x01:
case 0x21:
case 0x41:
case 0x61:
case 0x81:
case 0xA1:
case 0xC1:
case 0xE1:
do_tok(buf, "putActor",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2W) |
((opcode & 0x20) ? A3V : A3W));
break;
case 0x15:
case 0x55:
case 0x95:
case 0xD5:
do_tok(buf, "actorFromPos",
((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W) | AVARSTORE);
break;
case 0x03:
case 0x83:
do_tok(buf, "getActorRoom", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x38:
case 0xB8:
case 0x04:
case 0x84:
case 0x08:
case 0x88:
case 0x48:
case 0xC8:
case 0x44:
case 0xC4:
case 0x78:
case 0xF8:
case 0x28:
case 0xA8:
do_if_code(buf, opcode);
break;
case 0x05:
case 0x45:
case 0x85:
case 0xC5:
if (scriptVersion == 5) {
buf = do_tok(buf, "drawObject", ((opcode & 0x80) ? A1V : A1W) | ANOLASTPAREN);
opcode = get_byte();
switch (opcode & 0x1F) {
case 1:
do_tok(buf, ", setXY(",
ANOLASTPAREN | ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1W) |
((opcode & 0x40) ? A2V : A2W));
break;
case 2:
do_tok(buf, ", setImage(", ANOLASTPAREN | ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1W));
break;
}
strcat(buf, "));");
} else {
buf = do_tok(buf, "drawObject",
((opcode & 0x80) ? A1V : A1W) |
((opcode & 0x40) ? A2V : A2W) |
((opcode & 0x20) ? A3V : A3W));
}
break;
case 0x25:
case 0x65:
case 0xA5:
case 0xE5:
if (scriptVersion == 5) {
do_tok(buf, "pickupObject", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B));
} else {
buf = do_tok(buf, "drawObject",
((opcode & 0x80) ? A1V : A1W) |
((opcode & 0x40) ? A2V : A2W) |
((opcode & 0x20) ? A3V : A3W));
}
break;
case 0x06:
case 0x86:
do_tok(buf, "getActorElevation", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x07:
case 0x47:
case 0x87:
case 0xC7:
do_tok(buf, "setState", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x09:
case 0x49:
case 0x89:
case 0xC9:
do_tok(buf, "faceActor", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x0A:
case 0x8A:
case 0x2A:
case 0xAA:
case 0x4A:
case 0xCA:
case 0x6A:
case 0xEA:
do_tok(buf, "startScript", ((opcode & 0x80) ? A1V : A1B) | A2VARUNTIL0xFF);
break;
case 0x0B:
case 0x4B:
case 0x8B:
case 0xCB:
do_tok(buf, "getVerbEntryPoint",
AVARSTORE | ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x0c:
case 0x8C:
do_resource(buf, opcode);
break;
case 0x0D:
case 0x4D:
case 0x8D:
case 0xCD:
do_tok(buf, "walkActorToActor",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) | A3B);
break; /* arg1=actor, arg2=actor */
case 0x0F:
case 0x8F:
if (scriptVersion == 5) {
do_tok(buf, "getObjectState", AVARSTORE | ((opcode & 0x80) ? A1V : A1W));
break;
}
case 0x2F:
case 0x4F:
case 0x6F:
case 0xAF:
case 0xCF:
case 0xEF:
do_if_state_code(buf, opcode);
break;
case 0x10:
case 0x90:
do_tok(buf, "getObjectOwner", AVARSTORE | ((opcode & 0x80) ? A1V : A1W));
break;
case 0x14:
case 0xD8:
case 0x94:
do_print_ego(buf, opcode);
break;
case 0x17:
case 0x97:
case 0x1A:
case 0x9A:
case 0x1B:
case 0x9B:
case 0x3A:
case 0xBA:
case 0x46:
case 0x57:
case 0xD7:
case 0x5A:
case 0xDA:
case 0x5B:
case 0xDB:
case 0xC6:
do_varset_code(buf, opcode);
break;
case 0x18:
do_unconditional_jump(buf);
break;
case 0x1D:
case 0x9D:
do_tok(buf, "classOfIs", ((opcode & 0x80) ? A1V : A1W) | A2VARUNTIL0xFF | ATO);
break; /* arg1=object; vararg=classes to test; arg3=jumpoffs */
case 0x1E:
case 0x3E:
case 0x5E:
case 0x7E:
case 0x9E:
case 0xBE:
case 0xDE:
case 0xFE:
do_tok(buf, "walkActorTo",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2W) |
((opcode & 0x20) ? A3V : A3W));
break;
case 0x24:
case 0x64:
case 0xA4:
case 0xE4:
buf =
do_tok(buf, "loadRoomWithEgo",
((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B) | ANOLASTPAREN);
do_tok(buf, NULL, A1W | A2W | ANOFIRSTPAREN | ASTARTCOMMA);
break;
case 0x2C:
do_cursor_command(buf);
break;
case 0x40:
do_tok(buf, "cutscene", A1VARUNTIL0xFF);
break;
case 0x42:
case 0xC2:
do_tok(buf, "chainScript", ((opcode & 0x80) ? A1V : A1B) | A2VARUNTIL0xFF);
break;
case 0x56:
case 0xD6:
do_tok(buf, "getActorMoving", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x72:
case 0xF2:
do_tok(buf, "loadRoom", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x63:
case 0xE3:
do_tok(buf, "getActorFacing", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x66:
case 0xE6:
do_tok(buf, "getClosestObjActor", AVARSTORE | ((opcode & 0x80) ? A1V : A1W));
break;
case 0x6C:
case 0xEC:
do_tok(buf, "getActorWidth", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x71:
case 0xF1:
do_tok(buf, "getActorCostume", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x3B:
case 0xBB:
if (IndyFlag)
do_tok(buf, "waitForActor", ((opcode & 0x80) ? A1V : A1B));
else
do_tok(buf, "getActorScale", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0xAE:{
byte subopcode;
if (IndyFlag)
subopcode = 2;
else
subopcode = get_byte();
switch (subopcode) {
case 0x01:
case 0x81:
do_tok(buf, "WaitForActor", ((subopcode & 0x80) ? A1V : A1B));
break;
case 0x02:
do_tok(buf, "WaitForMessage", 0);
break;
case 0x03:
do_tok(buf, "WaitForCamera", 0);
break;
case 0x04:
do_tok(buf, "WaitForSentence", 0);
break;
default:
do_tok(buf, "UnknownWait", 0);
}
}
break;
case 0x34:
case 0x74:
case 0xB4:
case 0xF4:
do_tok(buf, "getDist",
AVARSTORE | ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x36:
case 0x76:
case 0xB6:
case 0xF6:
do_tok(buf, "walkActorToObject", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x37:
case 0x77:
case 0xB7:
case 0xF7:
do_tok(buf, "startObject",
((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B) | A3VARUNTIL0xFF);
break;
case 0x19:
case 0x39:
case 0x59:
case 0x79:
case 0x99:
case 0xB9:
case 0xD9:
case 0xF9:{
buf = strecpy(buf, "doSentence(");
// FIXME: this is not exactly what ScummVM does...
if (!(opcode & 0x80) && (*cur_pos == 0xFE)) {
strcpy(buf, "STOP)");
cur_pos++;
} else {
do_tok(buf, "",
ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1B) |
((opcode & 0x40) ? A2V : A2W) | ((opcode & 0x20) ? A3V : A3W));
}
}
break;
case 0x62:
case 0xE2:
do_tok(buf, "stopScript", ((opcode & 0x80) ? A1V : A1B));
break;
case 0xAc:
do_expr_code(buf);
break;
case 0x11:
case 0x51:
case 0x91:
case 0xD1:
do_tok(buf, "animateCostume", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x80:
do_tok(buf, "breakHere", 0);
break;
case 0xc0:
do_tok(buf, "endCutscene", 0);
break;
case 0x27:{ /* String management subcode */
switch ((opcode = get_byte()) & 0x1F) {
case 0x01:
do_load_code_to_string(buf, opcode);
break;
case 0x02:
do_tok(buf, "CopyString", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x03:
do_tok(buf, "SetStringChar",
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) |
((opcode & 0x20) ? A3V : A3B));
break; /* string(arg1)[arg2] = arg3 */
case 0x04:
do_tok(buf, "GetStringChar",
AVARSTORE | ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break; /* arg1 = string(arg2)[arg3] */
case 0x05:
do_tok(buf, "CreateString", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break; /* arg1=index, arg2=size */
default:
do_tok(buf, "StringFuncUnknown", 0);
}
}
break;
case 0x13:
case 0x53:
case 0x93:
case 0xD3:
do_actorset(buf, opcode);
break;
case 0x20:
do_tok(buf, "stopMusic", 0);
break;
case 0x70:
case 0xF0:
buf = do_tok(buf, "lights", ((opcode & 0x80) ? A1V : A1B) | A2B | A3B);
break;
case 0x3F:
case 0x7F:
case 0xBF:
case 0xFF:
buf =
do_tok(buf, "drawBox",
((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W) | ANOLASTPAREN);
opcode = get_byte();
do_tok(buf, NULL,
ASTARTCOMMA | ANOFIRSTPAREN | ((opcode & 0x80) ? A1V : A1W) |
((opcode & 0x40) ? A2V : A2W) | ((opcode & 0x20) ? A3V : A3B));
break;
case 0x02:
case 0x82:
if (ZakFlag)
do_tok(buf, "startMusic", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
else
do_tok(buf, "startMusic", ((opcode & 0x80) ? A1V : A1B));
break;
case 0xCC:
do_pseudoRoom(buf);
break;
case 0x33:
case 0x73:
case 0xB3:
case 0xF3:
if (scriptVersion == 5)
do_room_ops(buf);
else
do_room_ops_old(buf, opcode);
break;
case 0x68:
case 0xE8:
do_tok(buf, "isScriptRunning", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x2E:{
int d;
d = get_byte();
d |= get_byte() << 8;
d |= get_byte() << 16;
sprintf(buf, "delay(%d)", d);
break;
}
case 0x29:
case 0x69:
case 0xA9:
case 0xE9:
do_tok(buf, "setOwnerOf", ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x52:
case 0xD2:
do_tok(buf, "actorFollowCamera", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x58:{
int d;
d = get_byte();
if (d != 0)
sprintf(buf, "beginOverride");
else
sprintf(buf, "endOverride");
break;
}
case 0x1C:
case 0x9C:
do_tok(buf, "startSound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x4C:
if (scriptVersion <= 3)
do_tok(buf, "waitForSentence", 0);
else
do_tok(buf, "soundKludge", A1VARUNTIL0xFF);
break;
case 0x3C:
case 0xBC:
do_tok(buf, "stopSound", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x98:
do_tok(buf, "quitPauseRestart", A1B);
break;
case 0x7B:
case 0xFB:
do_tok(buf, "getActorWalkBox", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x43:
case 0xC3:
if (IndyFlag)
do_tok(buf, "getActorX", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
else
do_tok(buf, "getActorX", AVARSTORE | ((opcode & 0x80) ? A1V : A1W));
break;
case 0x23:
case 0xA3:
if (IndyFlag)
do_tok(buf, "getActorY", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
else
do_tok(buf, "getActorY", AVARSTORE | ((opcode & 0x80) ? A1V : A1W));
break;
case 0x7A:
case 0xFA:
do_verbops(buf, opcode);
break;
case 0x2D:
case 0x6D:
case 0xAD:
case 0xED:
do_tok(buf, "putActorInRoom", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x54:
case 0xD4:
do_tok(buf, "setObjectName", ((opcode & 0x80) ? A1V : A1W) | A2ASCII);
break;
case 0x5D:
case 0xDD:
do_tok(buf, "setClass", ((opcode & 0x80) ? A1V : A1W) | A2VARUNTIL0xFF);
break;
case 0x35:
case 0x75:
case 0xB5:
case 0xF5:
do_tok(buf, "findObject",
AVARSTORE | ((opcode & 0x80) ? A1V : A1W) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x26:
case 0xA6:{
int i;
char first = 1;
buf = do_tok(buf, "setVarRange", A1V | ANOLASTPAREN);
i = get_byte();
buf += sprintf(buf, ",%d,[", i);
while (i > 0) {
if (!first)
buf = strecpy(buf, ",");
first = 0;
buf += sprintf(buf, "%d", (opcode & 0x80) ? get_word() : get_byte());
i--;
}
strcpy(buf, "];");
}
break;
case 0x16:
case 0x96:
do_tok(buf, "getRandomNr", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x2B:
do_tok(buf, "delayVariable", A1V);
break;
case 0x0E:
case 0x4E:
case 0x8E:
case 0xCE:
do_tok(buf, "putActorAtObject", ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2W));
break;
case 0x12:
case 0x92:
do_tok(buf, "panCameraTo", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x32:
case 0xB2:
do_tok(buf, "setCameraAt", ((opcode & 0x80) ? A1V : A1W));
break;
case 0x30:
case 0xB0:
if (scriptVersion == 3)
do_tok(buf, "setBoxFlags", ((opcode & 0x80) ? A1V : A1B) | A2B);
else
do_matrix_ops(buf, opcode);
break;
case 0x7C:
case 0xFC:
do_tok(buf, "isSoundRunning", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x31:
case 0xB1:
do_tok(buf, "getInventoryCount", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x1f:
case 0x5f:
case 0x9f:
case 0xdf:
do_tok(buf, "isActorInBox",
ATO | ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0x22:
case 0xA2:
if (scriptVersion == 5)
do_tok(buf, "getAnimCounter", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
else
do_tok(buf, "saveLoadGame", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x3d:
case 0x7d:
case 0xBD:
case 0xFD:
do_tok(buf, "findInventory",
AVARSTORE | ((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B));
break;
case 0xAB:{
int code;
opcode = get_byte();
code =
((opcode & 0x80) ? A1V : A1B) | ((opcode & 0x40) ? A2V : A2B) |
((opcode & 0x20) ? A3V : A3B);
switch (opcode & 0x1F) {
case 0x01:
do_tok(buf, "SaveRestoreVerbsA", code);
break;
case 0x02:
do_tok(buf, "SaveRestoreVerbsB", code);
break;
case 0x03:
do_tok(buf, "SaveRestoreVerbsC", code);
break;
default:
do_tok(buf, "SaveRestoreVerbsUnknown", 0);
}
}
break;
case 0x60:
case 0xE0:
do_tok(buf, "freezeScripts", ((opcode & 0x80) ? A1V : A1B));
break;
case 0x6E:
case 0xEE:
do_tok(buf, "stopObjectScript", ((opcode & 0x80) ? A1V : A1W));
break;
// dodgy?
case 0x5C:{
case 0xDC:
int d = get_byte();
if ((d & 0x1F) == 3)
do_tok(buf, "oldRoomEffect-set", ((opcode & 0x80) ? A1V : A1W));
else
do_tok(buf, "oldRoomEffect-fadein", ((opcode & 0x80) ? A1V : A1W));
break;
}
case 0x50:
case 0xD0:
do_tok(buf, "pickupObject", ((opcode & 0x80) ? A1V : A1W));
break;
case 0xA7:
do_tok(buf, "saveLoadVars?", 0);
break;
case 0x67:
case 0xE7:
do_tok(buf, "getStringWidth?", AVARSTORE | ((opcode & 0x80) ? A1V : A1B));
break;
case 0x6B:
do_tok(buf, "debug?", ((opcode & 0x80) ? A1V : A1W));
break;
default:
if (haltOnError) {
printf("ERROR: Unknown opcode %.2X\n", opcode);
exit(1);
}
sprintf(buf, "ERROR: Unknown opcode %.2X!", opcode);
}
}
int DeScumm::skipVerbHeader_V12(byte *p)
{
byte code;
int offset = 15;
int minOffset = 255;
p += offset;
printf("Events:\n");
while ((code = *p++) != 0) {
offset = *p++;
printf(" %2X - %.4X\n", code, offset);
if (minOffset > offset)
minOffset = offset;
}
return minOffset;
}
int DeScumm::skipVerbHeader_V34(byte *p)
{
byte code;
int offset = GF_UNBLOCKED ? 17 : 19;
int minOffset = 255;
p += offset;
printf("Events:\n");
while ((code = *p++) != 0) {
offset = TO_LE_16(*(uint16 *)p);
p += 2;
printf(" %2X - %.4X\n", code, offset);
if (minOffset > offset)
minOffset = offset;
}
return minOffset;
}
byte *DeScumm::skipVerbHeader_V5(byte *p)
{
byte code;
printf("Events:\n");
while ((code = *p++) != 0) {
printf(" %2X - %.4X\n", code, TO_LE_16(*(uint16 *)p));
p += 2;
}
return p;
}
DeScumm::DeScumm(File& _input, int size, int scummVersion)
{
byte *mem, *memorg;
int len;
char *buf;
scriptVersion = scummVersion;
switch (scriptVersion) {
case 1:
case 2:
GF_UNBLOCKED = true;
g_jump_opcode = 0x18;
break;
case 3:
case 4:
case 5:
g_jump_opcode = 0x18;
break;
case 6:
case 7:
g_jump_opcode = 0x73;
break;
case 8:
g_jump_opcode = 0x66;
break;
}
len = size;
memorg = mem = (byte *)malloc(size);
_input.read(mem, size);
size_of_code = size;
output = buf = (char *)malloc(8192);
offs_of_line = 0;
if (GF_UNBLOCKED) {
if (size_of_code < 4) {
return;
}
// Hack to detect verb script: first 4 bytes should be file length
if (TO_LE_32(*((uint32 *)mem)) == size_of_code) {
if (scriptVersion <= 2)
offs_of_line = skipVerbHeader_V12(mem);
else
offs_of_line = skipVerbHeader_V34(mem );
} else {
mem += 4;
}
} else if (scriptVersion > 4) {
if (size_of_code < 8) {
return;
}
switch (TO_BE_32(*((uint32 *)mem))) {
case 'LSCR':
if (scriptVersion == 8) {
mem += 12;
} else if (scriptVersion == 7) {
mem += 10;
} else {
mem += 9;
}
break; /* Local script */
case 'SCRP':
mem += 8;
break; /* Script */
case 'ENCD':
mem += 8;
break; /* Entry code */
case 'EXCD':
mem += 8;
break; /* Exit code */
case 'VERB':
if (scriptVersion == 8) {
mem = skipVerbHeader_V8(mem + 8);
} else if (scriptVersion > 5) {
offs_of_line = skipVerbHeader_V67(mem);
} else {
offs_of_line = skipVerbHeader_V5(mem + 8) - mem;
}
break; /* Verb */
default:
return;
}
} else {
if (size_of_code < 6) {
return;
}
switch (TO_LE_16(*((uint16 *)mem + 2))) {
case MKID('LS'):
mem += 7;
break; /* Local script */
case MKID('SC'):
mem += 6;
break; /* Script */
case MKID('EN'):
mem += 6;
break; /* Entry code */
case MKID('EX'):
mem += 6;
break; /* Exit code */
case MKID('OC'):
offs_of_line = skipVerbHeader_V34(mem);
break; /* Verb */
default:
return;
}
}
org_pos = mem;
cur_pos = org_pos + offs_of_line;
len -= mem - memorg;
_gui->DisplayViewer("Scumm Decompilation", 600, 400, "");
while (cur_pos < mem + len) {
byte opcode = *cur_pos;
int j = num_block_stack;
buf[0] = 0;
if (scriptVersion <= 2) {
get_tok_V12(buf);
} else if (scriptVersion <= 5) {
get_tok_V345(buf);
} else if (scriptVersion == 8) {
next_line_V8();
} else {
next_line_V67();
}
if (buf[0]) {
writePendingElse();
if (haveElse) {
haveElse = false;
j--;
}
outputLine(buf, offs_of_line, opcode, j);
offs_of_line = get_curoffs();
}
while (indentBlock(get_curoffs())) {
outputLine("}", -1, -1, -1);
}
}
free(memorg);
}
///////////////////////////////////////////////////////////////////////////
char *DeScumm::strecpy(char *buf, const char *src)
{
strcpy(buf, src);
return strchr(buf, 0);
}
int DeScumm::get_curoffs()
{
return cur_pos - org_pos;
}
int DeScumm::get_byte()
{
return (byte)(*cur_pos++);
}
uint DeScumm::get_word()
{
int i;
if (scriptVersion == 8) {
i = TO_LE_32(*((int32 *)cur_pos));
cur_pos += 4;
} else {
i = TO_LE_16(*((int16 *)cur_pos));
cur_pos += 2;
}
return i;
}
int DeScumm::get_signed_word()
{
uint i = get_word();
if (scriptVersion == 8) {
return (int32)i;
} else {
return (int16)i;
}
}
///////////////////////////////////////////////////////////////////////////
#define INDENT_SIZE 2
static char indentbuf[127 * INDENT_SIZE + 1];
// Generate a string with white spaces for the given indention level.
// For each level, INDENT_SIZE spaces are inserted.
char *DeScumm::getIndentString(int level)
{
if (level >= 127)
level = 127;
if (level < 0)
level = 0;
level *= INDENT_SIZE;
memset(indentbuf, ' ', level);
indentbuf[level] = 0;
return indentbuf;
}
void DeScumm::outputLine(char *buf, int curoffs, int opcode, int indent)
{
char *s;
//char buffer[2560];
char *buffer = (char *)malloc(4096);
if (buf[0]) {
if (indent == -1)
indent = num_block_stack;
if (curoffs == -1)
curoffs = get_curoffs();
s = getIndentString(indent);
if (dontShowOpcode) {
if (dontShowOffsets) {
sprintf(buffer, "%s%s\n", s, buf);
} else {
sprintf(buffer, "[%.4X] %s%s\n", curoffs, s, buf);
}
} else {
char buf2[4];
if (opcode != -1)
sprintf(buf2, "%.2X", opcode);
else
strcpy(buf2, "**");
if (dontShowOffsets) {
sprintf(buffer, "(%s) %s%s\n", buf2, s, buf);
} else {
sprintf(buffer, "[%.4X] (%s) %s%s\n", curoffs, buf2, s, buf);
}
}
_gui->AppendText(buffer);
}
free(buffer);
}
///////////////////////////////////////////////////////////////////////////
bool DeScumm::indentBlock(unsigned int cur)
{
BlockStack *p;
if (!num_block_stack)
return false;
p = &block_stack[num_block_stack - 1];
if (cur < p->to)
return false;
num_block_stack--;
return true;
}
BlockStack *DeScumm::pushBlockStackItem()
{
if (!block_stack)
block_stack = (BlockStack *) malloc(256 * sizeof(BlockStack));
if (num_block_stack >= 256) {
printf("block_stack full!\n");
exit(0);
}
return &block_stack[num_block_stack++];
}
// Returns 0 or 1 depending if it's ok to add a block
bool DeScumm::maybeAddIf(uint cur, uint to)
{
int i;
BlockStack *p;
if (((to | cur) >> 16) || (to <= cur))
return false; // Invalid jump
for (i = 0, p = block_stack; i < num_block_stack; i++, p++) {
if (to > p->to)
return false;
}
p = pushBlockStackItem();
// Try to determine if this is a while loop. For this, first check if we
// jump right behind a regular jump, then whether that jump is targeting us.
if (scriptVersion == 8) {
p->isWhile = (*(byte*)(org_pos+to-5) == g_jump_opcode);
i = (int32)TO_LE_32(*(int32*)(org_pos+to-4));
} else {
p->isWhile = (*(byte*)(org_pos+to-3) == g_jump_opcode);
i = (int16)TO_LE_16(*(int16*)(org_pos+to-2));
}
p->isWhile = p->isWhile && (offs_of_line == (int)to + i);
p->from = cur;
p->to = to;
return true;
}
// Returns 0 or 1 depending if it's ok to add an else
bool DeScumm::maybeAddElse(uint cur, uint to)
{
BlockStack *p;
if (((to | cur) >> 16) || (to <= cur))
return false; /* Invalid jump */
if (!num_block_stack)
return false; /* There are no previous blocks, so an else is not ok */
p = &block_stack[num_block_stack - 1];
if (cur != p->to)
return false; /* We have no prevoius if that is exiting right at the end of this goto */
num_block_stack--;
if (maybeAddIf(cur, to))
return true; /* We can add an else */
num_block_stack++;
return false; /* An else is not OK here :( */
}
bool DeScumm::maybeAddElseIf(uint cur, uint elseto, uint to)
{
uint k;
BlockStack *p;
if (((to | cur | elseto) >> 16) || (elseto < to) || (to <= cur))
return false; /* Invalid jump */
if (!num_block_stack)
return false; /* There are no previous blocks, so an ifelse is not ok */
p = &block_stack[num_block_stack - 1];
if (p->isWhile)
return false;
if (scriptVersion == 8)
k = to - 5;
else
k = to - 3;
if (k >= size_of_code)
return false; /* Invalid jump */
if (org_pos[k] != g_jump_opcode)
return false; /* Invalid jump */
if (scriptVersion == 8)
k = to + TO_LE_32(*(int32*)(org_pos + k + 1));
else
k = to + TO_LE_16(*(int16*)(org_pos + k + 1));
if (k != elseto)
return false; /* Not an ifelse */
p->from = cur;
p->to = to;
return true;
}
void DeScumm::writePendingElse()
{
if (pendingElse) {
char buf[32];
sprintf(buf, alwaysShowOffs ? "} else /*%.4X*/ {" : "} else {", pendingElseTo);
outputLine(buf, pendingElseOffs, pendingElseOpcode, pendingElseIndent - 1);
pendingElse = false;
}
}
Reference in New Issue View Git Blame Copy Permalink