/** * 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; }