/**
* Decode logic resource
* This function decodes messages from the specified raw logic resource
* into a message list.
* @param n The number of the logic resource to decode.
*/
int decode_logic (int n)
{
int ec = err_OK;
int mstart, mend, mc;
UINT8 *m0;
/* decrypt messages at end of logic + build message list */
/* report ("decoding logic #%d\n", n); */
m0 = game.logics[n].data;
mstart = lohi_getword (m0) + 2;
mc = lohi_getbyte (m0 + mstart);
mend = lohi_getword (m0 + mstart + 1);
m0 += mstart + 3; /* cover header info */
mstart = mc << 1;
/* if the logic was not compressed, decrypt the text messages
* only if there are more than 0 messages
*/
if ((~game.dir_logic[n].flags & RES_COMPRESSED) && mc > 0)
decrypt (m0 + mstart, mend - mstart); /* decrypt messages */
/* build message list */
m0 = game.logics[n].data;
mstart = lohi_getword (m0) + 2; /* +2 covers pointer */
game.logics[n].num_texts = lohi_getbyte (m0 + mstart);
/* resetp logic pointers */
game.logics[n].sIP = 2;
game.logics[n].cIP = 2;
game.logics[n].size = lohi_getword (m0) + 2; /* logic end pointer */
/* allocate list of pointers to point into our data */
game.logics[n].texts = calloc (1 + game.logics[n].num_texts,
sizeof (char*));
/* cover header info */
m0 += mstart+3;
if (game.logics[n].texts != NULL) {
/* move list of strings into list to make real pointers */
for(mc = 0; mc < game.logics[n].num_texts; mc++) {
mend = lohi_getword(m0+mc*2);
game.logics[n].texts[mc] = mend ?
(char *)m0 + mend - 2 : "";
}
/* set loaded flag now its all completly loaded */
game.dir_logic[n].flags |= RES_LOADED;
} else {
/* unload data
* blah DF YA WANKER!!@!@# frag. i'm so dumb. not every logic
* has text
*/
free (game.logics[n].data);
ec = err_NotEnoughMemory;
}
return ec;
}
/* When player has entered something, it is parsed elsewhere */
static UINT8 test_said (UINT8 nwords, UINT8 *cc)
{
int c, n = game.num_ego_words;
int z = 0;
if (getflag (F_said_accepted_input) || !getflag (F_entered_cli))
return FALSE;
/* FR:
* I think the reason for the code below is to add some speed....
*
* if (nwords != num_ego_words)
* return FALSE;
*
* In the disco scene in Larry 1 when you type "examine blonde",
* inside the logic is expected ( said("examine", "blonde", "rol") )
* where word("rol") = 9999
*
* According to the interpreter code 9999 means that whatever the
* user typed should be correct, but it looks like code 9999 means that
* if the string is empty at this point, the entry is also correct...
*
* With the removal of this code, the behaviour of the scene was
* corrected
*/
for (c = 0; nwords && n; c++, nwords--, n--) {
z = lohi_getword (cc);
cc += 2;
switch (z) {
case 9999: /* rest of line (empty string counts to...) */
nwords = 1;
break;
case 1: /* any word */
break;
default:
if (game.ego_words[c].id != z)
return FALSE;
break;
}
}
/* The entry string should be entirely parsed, or last word = 9999 */
if (n && z != 9999)
return FALSE;
/* The interpreter string shouldn't be entirely parsed, but next
* word must be 9999.
*/
if (nwords != 0 && lohi_getword(cc) != 9999)
return FALSE;
setflag (F_said_accepted_input, TRUE);
return TRUE;
}
/**
* Execute a logic script
* @param n Number of the logic resource to execute
*/
int run_logic (int n)
{
UINT8 op = 0;
UINT8 p[CMD_BSIZE] = { 0 };
UINT8 *code = NULL;
int num = 0;
/* If logic not loaded, load it */
if (~game.dir_logic[n].flags & RES_LOADED) {
_D (_D_WARN "logic %d not loaded!", n);
agi_load_resource (rLOGIC, n);
}
game.lognum = n;
cur_logic = &game.logics[game.lognum];
code = cur_logic->data;
cur_logic->cIP = cur_logic->sIP;
timer_hack = 0;
while (ip < game.logics[n].size && !game.quit_prog_now) {
#ifdef USE_CONSOLE
if (debug.enabled) {
if (debug.steps > 0) {
if (debug.logic0 || n) {
debug_console (n,
lCOMMAND_MODE, NULL);
debug.steps--;
}
} else {
blit_both ();
console_prompt ();
do {
main_cycle ();
} while (!debug.steps && debug.enabled);
console_lock ();
erase_both ();
}
}
#endif
switch (op = *(code + ip++)) {
case 0xff: /* if (open/close) */
test_if_code (n);
break;
case 0xfe: /* goto */
/* +2 covers goto size */
ip += 2 + ((SINT16)lohi_getword (code + ip));
/* timer must keep running even in goto loops,
* but Sarien can't do that :(
*/
if (timer_hack > 20) {
poll_timer ();
update_timer ();
timer_hack = 0;
}
break;
case 0x00: /* return */
return 1;
default:
num = logic_names_cmd[op].num_args;
memmove (p, code + ip, num);
memset (p + num, 0, CMD_BSIZE - num);
agi_command[op](p);
ip += num;
}
if (game.exit_all_logics)
break;
}
return 0; /* after executing new.room() */
}
int test_if_code (int lognum)
{
int ec = TRUE;
int retval = TRUE;
UINT8 op = 0;
UINT8 not_test = FALSE;
UINT8 or_test = FALSE;
UINT16 last_ip = ip;
UINT8 p[16] = {0};
while (retval && !game.quit_prog_now) {
#ifdef USE_CONSOLE
if (debug.enabled && (debug.logic0 || lognum))
debug_console (lognum, lTEST_MODE, NULL);
#endif
last_ip = ip;
op = *(code + ip++);
memmove (p, (code + ip), 16);
switch(op) {
case 0xFF: /* END IF, TEST TRUE */
goto end_test;
case 0xFD:
not_test = !not_test;
continue;
case 0xFC: /* OR */
/* if or_test is ON and we hit 0xFC, end of OR, then
* or is STILL false so break.
*/
if (or_test) {
ec = FALSE;
retval = FALSE;
goto end_test;
}
or_test = TRUE;
continue;
case 0x00:
/* return true? */
goto end_test;
case 0x01:
ec = test_equal (p[0], p[1]);
if (p[0] == 11) timer_hack++;
break;
case 0x02:
ec = test_equal (p[0], getvar(p[1]));
if (p[0] == 11 || p[1] == 11) timer_hack++;
break;
case 0x03:
ec = test_less (p[0], p[1]);
if (p[0] == 11) timer_hack++;
break;
case 0x04:
ec = test_less(p[0], getvar(p[1]));
if (p[0] == 11 || p[1] == 11) timer_hack++;
break;
case 0x05:
ec = test_greater (p[0], p[1]);
if (p[0] == 11) timer_hack++;
break;
case 0x06:
ec = test_greater (p[0], getvar (p[1]));
if (p[0] == 11 || p[1] == 11) timer_hack++;
break;
case 0x07:
ec = test_isset (p[0]);
break;
case 0x08:
ec = test_isset (getvar(p[0]));
break;
case 0x09:
ec = test_has (p[0]);
break;
case 0x0A:
ec = test_obj_in_room (p[0], p[1]);
break;
case 0x0B:
ec = test_posn (p[0], p[1], p[2], p[3], p[4]);
break;
case 0x0C:
ec = test_controller (p[0]);
break;
case 0x0D:
ec = test_keypressed ();
break;
case 0x0E:
ec = test_said (p[0], (UINT8*)code + (ip + 1));
ip = last_ip;
ip++; /* skip opcode */
ip += p[0] * 2; /* skip num_words * 2 */
ip++; /* skip num_words opcode */
break;
case 0x0F:
_D(_D_WARN "comparing [%s], [%s]",
game.strings[p[0]], game.strings[p[1]]);
ec = test_compare_strings (p[0], p[1]);
break;
case 0x10:
ec = test_obj_in_box (p[0], p[1], p[2], p[3], p[4]);
break;
case 0x11:
ec = test_obj_centre (p[0], p[1], p[2], p[3], p[4]);
break;
case 0x12:
ec = test_obj_right (p[0], p[1], p[2], p[3], p[4]);
break;
default:
ec = FALSE;
goto end_test;
}
if (op <= 0x12)
ip += logic_names_test[op].num_args;
/* exchange ec value */
if (not_test)
ec = !ec;
/* not is only enabled for 1 test command */
not_test = FALSE;
if (or_test && ec) {
/* a TRUE inside an OR statement passes
* ENTIRE statement scan for end of OR
*/
/* CM: test for opcode < 0xfc changed from 'op' to
* '*(code+ip)', to avoid problem with the 0xfd (NOT)
* opcode byte. Changed a bad ip += ... ip++ construct.
* This should fix the crash with Larry's logic.0 code:
*
* if ((isset(4) ||
* !isset(2) ||
* v30 == 2 ||
* v30 == 1)) {
* goto Label1;
* }
*
* The bytecode is:
* ff fc 07 04 fd 07 02 01 1e 02 01 1e 01 fc ff
*/
/* find end of OR */
while (*(code+ip) != 0xFC) {
if (*(code + ip) == 0x0E) { /* said */
ip++;
/* cover count + ^words */
ip += 1 + ((*(code + ip)) * 2);
continue;
}
if (*(code + ip) < 0xFC)
ip += logic_names_test[*(code +
ip)].num_args;
ip++;
}
ip++;
or_test = FALSE;
retval = TRUE;
} else {
retval = or_test ? retval || ec : retval && ec;
}
}
end_test:
/* if false, scan for end of IP? */
if (retval)
ip += 2;
else {
ip = last_ip;
while (*(code + ip) != 0xff) {
if (*(code + ip) == 0x0e) {
ip++;
ip += (*(code + ip)) * 2 + 1;
} else if (*(code + ip) < 0xfc) {
ip += logic_names_test[*(code + ip)].num_args;
ip++;
} else {
ip++;
}
}
ip++; /* skip over 0xFF */
ip += lohi_getword (code + ip) + 2;
}
#ifdef USE_CONSOLE
if (debug.enabled && (debug.logic0 || lognum))
debug_console (lognum, 0xFF, retval ? "=TRUE" : "=FALSE");
#endif
return retval;
}
