papermario/src/code_e92d0_len_5da0.c
2020-10-08 15:03:58 -04:00

1383 lines
38 KiB
C

#include "common.h"
s32 si_find_label(ScriptInstance* script, s32 arg1);
s32 si_skip_if(ScriptInstance* script);
s32 si_skip_else(ScriptInstance* script);
s32 si_goto_end_loop(ScriptInstance* script);
s32 si_goto_end_case(ScriptInstance* script);
s32 si_goto_next_case(ScriptInstance* script);
s32 get_variable_index(ScriptInstance* script, s32 var);
f32 fixed_var_to_float(s32 scriptVar) {
if (scriptVar <= -220000000) {
return (scriptVar + 230000000) * (1 / 1024.0f);
} else {
return scriptVar;
}
}
s32 float_to_fixed_var(f32 value) {
return (s32)(value * 1024.0f) - 230000000;
}
ApiStatus si_handle_return(ScriptInstance* script) {
kill_script(script);
return ApiStatus_FINISH;
}
ApiStatus si_handle_label(ScriptInstance* script) {
return ApiStatus_DONE2;
}
ApiStatus si_handle_goto(ScriptInstance* script) {
script->ptrNextLine = si_find_label(script, get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_loop(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
s32 loopDepth = ++script->loopDepth;
ASSERT(loopDepth < 8);
script->loopStartTable[loopDepth] = args;
script->loopCounterTable[loopDepth] = var;
return ApiStatus_DONE2;
}
ApiStatus si_handle_end_loop(ScriptInstance* script) {
s32 loopDepth = script->loopDepth;
s32 loopCounter;
ASSERT(loopDepth >= 0);
loopCounter = script->loopCounterTable[loopDepth];
if (loopCounter == 0) {
script->ptrNextLine = script->loopStartTable[loopDepth];
return ApiStatus_DONE2;
}
if (loopCounter >= -10000000) {
script->loopCounterTable[loopDepth] = --loopCounter;
} else {
s32 var = get_variable(script, loopCounter) - 1;
set_variable(script, loopCounter, var);
loopCounter = var;
}
if (loopCounter != 0) {
script->ptrNextLine = script->loopStartTable[loopDepth];
return ApiStatus_DONE2;
} else {
script->loopDepth--;
return ApiStatus_DONE2;
}
}
ApiStatus si_handle_break_loop(ScriptInstance* script) {
ASSERT(script->loopDepth >= 0);
script->ptrNextLine = si_goto_end_loop(script);
script->loopDepth -= 1;
return ApiStatus_DONE2;
}
ApiStatus si_handle_wait(ScriptInstance* script) {
Bytecode* ptrReadPos = script->ptrReadPos;
if (!script->blocked) {
script->functionTemp[0] = get_variable(script, *ptrReadPos);
script->blocked = 1;
}
if (script->functionTemp[0]) {
s32 todo = 1; // val can be anything
if (todo) {
script->functionTemp[0] -= 1;
}
return !script->functionTemp[0];
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_wait_seconds(ScriptInstance* script) {
Bytecode* ptrReadPos = script->ptrReadPos;
if (!script->blocked) {
script->functionTemp[0] = get_float_variable(script, *ptrReadPos) * 30.0f + 0.5;
script->blocked = 1;
}
if (script->functionTemp[0]) {
s32 todo = 1; // val can be anything
if (todo) {
script->functionTemp[0] -= 1;
}
return !script->functionTemp[0];
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_if_equal(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
if (get_variable(script, *args++) != get_variable(script, *args++)) {
script->ptrNextLine = si_skip_if(script);
return ApiStatus_DONE2;
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_if_not_equal(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
if (get_variable(script, *args++) == get_variable(script, *args++)) {
script->ptrNextLine = si_skip_if(script);
return ApiStatus_DONE2;
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_if_less(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
if (get_variable(script, *args++) >= get_variable(script, *args++)) {
script->ptrNextLine = si_skip_if(script);
return ApiStatus_DONE2;
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_if_greater(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
if (get_variable(script, *args++) <= get_variable(script, *args++)) {
script->ptrNextLine = si_skip_if(script);
return ApiStatus_DONE2;
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_if_less_equal(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
if (get_variable(script, *args++) > get_variable(script, *args++)) {
script->ptrNextLine = si_skip_if(script);
return ApiStatus_DONE2;
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_if_greater_equal(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
if (get_variable(script, *args++) < get_variable(script, *args++)) {
script->ptrNextLine = si_skip_if(script);
return ApiStatus_DONE2;
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_if_AND(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
if ((get_variable(script, var) & *args) == 0) {
script->ptrNextLine = si_skip_if(script);
return ApiStatus_DONE2;
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_if_not_AND(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
if ((get_variable(script, var) & *args) != 0) {
script->ptrNextLine = si_skip_if(script);
return ApiStatus_DONE2;
}
return ApiStatus_DONE2;
}
ApiStatus si_handle_else(ScriptInstance* script) {
script->ptrNextLine = si_skip_else(script);
return ApiStatus_DONE2;
}
ApiStatus si_handle_end_if(ScriptInstance* script) {
return ApiStatus_DONE2;
}
ApiStatus si_handle_switch(ScriptInstance* script) {
Bytecode value = get_variable(script, *script->ptrReadPos);
s32 switchDepth = ++script->switchDepth;
ASSERT(switchDepth < 8);
script->switchBlockValue[switchDepth] = value;
script->switchBlockState[switchDepth] = 1;
return ApiStatus_DONE2;
}
ApiStatus si_handle_switch_const(ScriptInstance* script) {
Bytecode* args = *script->ptrReadPos;
s32 switchDepth = ++script->switchDepth;
ASSERT(switchDepth < 8);
script->switchBlockValue[switchDepth] = args;
script->switchBlockState[switchDepth] = 1;
return ApiStatus_DONE2;
}
ApiStatus si_handle_case_equal(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 switchDepth = script->switchDepth;
s32 var;
s32 switchBlockValue;
ASSERT(switchDepth >= 0);
var = get_variable(script, *args);
switchBlockValue = script->switchBlockValue[switchDepth];
if (script->switchBlockState[switchDepth] <= 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if (var != switchBlockValue) {
script->ptrNextLine = si_goto_next_case(script);
} else {
script->switchBlockState[switchDepth] = 0;
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_case_not_equal(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 switchDepth = script->switchDepth;
s32 var;
s32 switchBlockValue;
ASSERT(switchDepth >= 0);
var = get_variable(script, *args);
switchBlockValue = script->switchBlockValue[switchDepth];
if (script->switchBlockState[switchDepth] <= 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if (var == switchBlockValue) {
script->ptrNextLine = si_goto_next_case(script);
} else {
script->switchBlockState[switchDepth] = 0;
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_case_less(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 switchDepth = script->switchDepth;
s32 var;
s32 switchBlockValue;
ASSERT(switchDepth >= 0);
var = get_variable(script, *args);
switchBlockValue = script->switchBlockValue[switchDepth];
if (script->switchBlockState[switchDepth] <= 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if (var <= switchBlockValue) {
script->ptrNextLine = si_goto_next_case(script);
} else {
script->switchBlockState[switchDepth] = 0;
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_case_less_equal(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 switchDepth = script->switchDepth;
s32 var;
s32 switchBlockValue;
ASSERT(switchDepth >= 0);
var = get_variable(script, *args);
switchBlockValue = script->switchBlockValue[switchDepth];
if (script->switchBlockState[switchDepth] <= 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if (var < switchBlockValue) {
script->ptrNextLine = si_goto_next_case(script);
} else {
script->switchBlockState[switchDepth] = 0;
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_case_greater(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 switchDepth = script->switchDepth;
s32 var;
s32 switchBlockValue;
ASSERT(switchDepth >= 0);
var = get_variable(script, *args);
switchBlockValue = script->switchBlockValue[switchDepth];
if (script->switchBlockState[switchDepth] <= 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if (var >= switchBlockValue) {
script->ptrNextLine = si_goto_next_case(script);
} else {
script->switchBlockState[switchDepth] = 0;
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_case_greater_equal(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 switchDepth = script->switchDepth;
s32 var;
s32 switchBlockValue;
ASSERT(switchDepth >= 0);
var = get_variable(script, *args);
switchBlockValue = script->switchBlockValue[switchDepth];
if (script->switchBlockState[switchDepth] <= 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if (var > switchBlockValue) {
script->ptrNextLine = si_goto_next_case(script);
} else {
script->switchBlockState[switchDepth] = 0;
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_case_range(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 switchDepth = script->switchDepth;
s32 var;
s32 var2;
s32 switchBlockValue;
ASSERT(switchDepth >= 0);
var = get_variable(script, *args++);
var2 = get_variable(script, *args++);
switchBlockValue = script->switchBlockValue[switchDepth];
if (script->switchBlockState[switchDepth] <= 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if ((var <= switchBlockValue) && (switchBlockValue <= var2)) {
script->switchBlockState[switchDepth] = 0;
} else {
script->ptrNextLine = si_goto_next_case(script);
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_case_default(ScriptInstance* script) {
s32 switchDepth = script->switchDepth;
ASSERT(switchDepth >= 0);
if (script->switchBlockState[switchDepth] > 0) {
script->switchBlockState[switchDepth] = 0;
} else {
script->ptrNextLine = si_goto_end_case(script);
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_case_AND(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 switchDepth = script->switchDepth;
s32 var;
s32 switchBlockValue;
ASSERT(switchDepth >= 0);
var = *args;
switchBlockValue = script->switchBlockValue[switchDepth];
if (script->switchBlockState[switchDepth] <= 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if ((var & switchBlockValue) == 0) {
script->ptrNextLine = si_goto_next_case(script);
} else {
script->switchBlockState[switchDepth] = 0;
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_handle_case_equal_OR);
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_handle_case_equal_AND);
ApiStatus si_handle_end_case_group(ScriptInstance* script) {
ASSERT(script->switchDepth >= 0);
if (script->switchBlockState[script->switchDepth] == 0) {
script->ptrNextLine = si_goto_end_case(script);
} else if (script->switchBlockState[script->switchDepth] != -1) {
script->switchBlockState[script->switchDepth] = 1;
script->ptrNextLine = si_goto_next_case(script);
} else {
script->switchBlockState[script->switchDepth] = 0;
script->ptrNextLine = si_goto_end_case(script);
}
return ApiStatus_DONE2;
do {} while (0); // Necessary to match
}
ApiStatus si_handle_break_case(ScriptInstance* script) {
ASSERT(script->switchDepth >= 0);
script->ptrNextLine = si_goto_end_case(script);
return ApiStatus_DONE2;
}
ApiStatus si_handle_end_switch(ScriptInstance* script) {
s32 switchDepth = script->switchDepth;
ASSERT(switchDepth >= 0);
script->switchBlockState[switchDepth] = 0;
script->switchDepth -= 1;
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_var(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 curPtrReadPos = args[0];
set_variable(script, curPtrReadPos, get_variable(script, args[1]));
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_const(ScriptInstance* script) {
set_variable(script, *script->ptrReadPos, script->ptrReadPos[1]);
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_float(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
set_float_variable(script, var, get_float_variable(script, *args));
return ApiStatus_DONE2;
}
ApiStatus si_handle_add(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
s32 result = get_variable(script, *args++);
s32 addend = get_variable(script, var);
result += addend;
set_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_subtract(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
s32 result = get_variable(script, *args++);
s32 minuend = get_variable(script, var);
result = minuend - result;
set_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_multiply(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
s32 result = get_variable(script, *args++);
s32 multiplier = get_variable(script, var);
result *= multiplier;
set_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_divide(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
s32 result = get_variable(script, *args++);
s32 dividend = get_variable(script, var);
result = dividend / result;
set_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_mod(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
s32 result = get_variable(script, *args++) + 0.5;
s32 num = get_variable(script, var) + 0.5;
result = num % result;
set_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_addF(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
f32 result = get_float_variable(script, *args++);
f32 addend = get_float_variable(script, var);
result += addend;
set_float_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_subtractF(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
f32 result = get_float_variable(script, *args++);
f32 minuend = get_float_variable(script, var);
result = minuend - result;
set_float_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_multiplyF(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
f32 result = get_float_variable(script, *args++);
f32 multiplier = get_float_variable(script, var);
result *= multiplier;
set_float_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_divideF(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var = *args++;
f32 result = get_float_variable(script, *args++);
f32 dividend = get_float_variable(script, var);
result = dividend / result;
set_float_variable(script, var, result);
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_int_buffer_ptr(ScriptInstance* script) {
script->buffer = get_variable(script, *script->ptrReadPos);
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_float_buffer_ptr(ScriptInstance* script) {
script->buffer = get_variable(script, *script->ptrReadPos);
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_1_word(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
var = *args++;
set_variable(script, var, *script->buffer++);
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_2_word(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
Bytecode var2;
var = *args++;
set_variable(script, var, *script->buffer++);
var2 = *args++;
set_variable(script, var2, *script->buffer++);
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_3_word(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
Bytecode var2;
Bytecode var3;
var = *args++;
set_variable(script, var, *script->buffer++);
var2 = *args++;
set_variable(script, var2, *script->buffer++);
var3 = *args++;
set_variable(script, var3, *script->buffer++);
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_4_word(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
Bytecode var2;
Bytecode var3;
Bytecode var4;
var = *args++;
set_variable(script, var, *script->buffer++);
var2 = *args++;
set_variable(script, var2, *script->buffer++);
var3 = *args++;
set_variable(script, var3, *script->buffer++);
var4 = *args++;
set_variable(script, var4, *script->buffer++);
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_Nth_word(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
var = *args++;
set_variable(script, var, script->buffer[get_variable(script, *args)]);
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_1_float(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
var = *args++;
set_float_variable(script, var, get_float_variable(script, *script->buffer++));
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_2_float(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
Bytecode var2;
var = *args++;
set_float_variable(script, var, get_float_variable(script, *script->buffer++));
var2 = *args++;
set_float_variable(script, var2, get_float_variable(script, *script->buffer++));
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_3_float(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
Bytecode var2;
Bytecode var3;
var = *args++;
set_float_variable(script, var, get_float_variable(script, *script->buffer++));
var2 = *args++;
set_float_variable(script, var2, get_float_variable(script, *script->buffer++));
var3 = *args++;
set_float_variable(script, var3, get_float_variable(script, *script->buffer++));
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_4_float(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
Bytecode var2;
Bytecode var3;
Bytecode var4;
var = *args++;
set_float_variable(script, var, get_float_variable(script, *script->buffer++));
var2 = *args++;
set_float_variable(script, var2, get_float_variable(script, *script->buffer++));
var3 = *args++;
set_float_variable(script, var3, get_float_variable(script, *script->buffer++));
var4 = *args++;
set_float_variable(script, var4, get_float_variable(script, *script->buffer++));
return ApiStatus_DONE2;
}
ApiStatus si_handle_get_Nth_float(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode var;
var = *args++;
set_float_variable(script, var, script->buffer[get_variable(script, *args)]);
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_array(ScriptInstance* script) {
script->array = (s32*)get_variable(script, *script->ptrReadPos);
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_flag_array(ScriptInstance* script) {
script->flagArray = (s32*)get_variable(script, *script->ptrReadPos);
return ApiStatus_DONE2;
}
ApiStatus si_handle_allocate_array(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 size = get_variable(script, *args++);
Bytecode var = *args++;
script->array = (s32)heap_malloc(size * 4);
set_variable(script, var, (s32)script->array);
return ApiStatus_DONE2;
}
ApiStatus si_handle_AND(ScriptInstance* script) {
Bytecode var = script->ptrReadPos[0];
s32 val = get_variable(script, script->ptrReadPos[1]);
val &= get_variable(script, var);
set_variable(script, var, val);
return ApiStatus_DONE2;
}
ApiStatus si_handle_AND_const(ScriptInstance* script) {
Bytecode* ptrReadPos = script->ptrReadPos;
// todo improve
s32 constant = ptrReadPos[0]; // NOLINT
s32 var = ptrReadPos[0];
constant = ptrReadPos[1];
set_variable(script, var, constant & get_variable(script, var));
return ApiStatus_DONE2;
}
ApiStatus si_handle_OR(ScriptInstance* script) {
Bytecode var = script->ptrReadPos[0];
s32 val = get_variable(script, script->ptrReadPos[1]);
val |= get_variable(script, var);
set_variable(script, var, val);
return ApiStatus_DONE2;
}
ApiStatus si_handle_OR_const(ScriptInstance* script) {
Bytecode* ptrReadPos = script->ptrReadPos;
// todo improve
s32 constant = ptrReadPos[0]; // NOLINT
s32 var = ptrReadPos[0];
constant = ptrReadPos[1];
set_variable(script, var, constant | get_variable(script, var));
return ApiStatus_DONE2;
}
ApiStatus si_handle_call(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
s32 isInitialCall;
ApiFunc func;
ScriptInstance* newScript; // todo fake match
if (script->blocked) {
isInitialCall = FALSE;
func = script->callFunction;
newScript = script; // todo fake match
} else {
script->callFunction = (ApiFunc)get_variable(script, *args++);
newScript = script; // todo fake match
script->ptrReadPos = args;
script->currentArgc--;
script->blocked = TRUE;
isInitialCall = TRUE;
func = script->callFunction;
}
return func(newScript, isInitialCall); // todo fake match
}
ApiStatus si_handle_exec1(ScriptInstance* script) {
ScriptInstance* newScript;
s32 i;
newScript = start_script_in_group((ScriptInstance*)get_variable(script, *script->ptrReadPos), script->priority, 0,
script->groupFlags);
newScript->ownerActorID = script->ownerActorID;
newScript->ownerID = script->ownerID;
i = 0;
while (i < ARRAY_COUNT(script->varTable)) {
newScript->varTable[i] = script->varTable[i++];
}
i = 0;
while (i < ARRAY_COUNT(script->varFlags)) {
newScript->varFlags[i] = script->varFlags[i++];
}
newScript->array = script->array;
newScript->flagArray = script->flagArray;
return ApiStatus_DONE2;
}
ApiStatus si_handle_exec2(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
ScriptInstance* var = (ScriptInstance*)get_variable(script, *args++);
Bytecode arg2 = *args++;
ScriptInstance* newScript;
s32 i;
newScript = start_script_in_group(var, script->priority, 0, script->groupFlags);
newScript->ownerActorID = script->ownerActorID;
newScript->ownerID = script->ownerID;
i = 0;
while (i < ARRAY_COUNT(script->varTable)) {
newScript->varTable[i] = script->varTable[i++];
}
i = 0;
while (i < ARRAY_COUNT(script->varFlags)) {
newScript->varFlags[i] = script->varFlags[i++];
}
newScript->array = script->array;
newScript->flagArray = script->flagArray;
set_variable(script, arg2, newScript->uniqueID);
return ApiStatus_DONE2;
}
ApiStatus si_handle_exec_wait(ScriptInstance* script) {
start_child_script(script, get_variable(script, *script->ptrReadPos), 0);
script->currentOpcode = 0;
return ApiStatus_FINISH;
}
ApiStatus si_handle_jump(ScriptInstance* script) {
script->ptrFirstLine = (Bytecode*)get_variable(script, *script->ptrReadPos);
restart_script(script);
return ApiStatus_DONE2;
}
s32 _bound_script_trigger_handler(Trigger* trigger) {
Bytecode* scriptStart;
ScriptInstance* script;
if (trigger->runningScript == NULL) {
scriptStart = trigger->scriptStart;
if (is_trigger_bound(trigger, scriptStart)) {
return 0;
}
script = start_script(scriptStart, trigger->priority, 0x20);
trigger->runningScript = script;
trigger->runningScriptID = script->uniqueID;
script->varTable[0] = trigger->scriptVars[0];
script->varTable[1] = trigger->scriptVars[1];
script->varTable[2] = trigger->scriptVars[2];
script->ownerID = trigger;
}
if (!does_script_exist(trigger->runningScriptID)) {
trigger->runningScript = NULL;
return 0;
}
return 1;
}
ApiStatus si_handle_bind(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Trigger* trigger;
s32 var0 = get_variable(script, *args++);
Bytecode flags = *args++;
Bytecode index = *args++;
Bytecode a3 = *args++;
Bytecode a4 = *args++;
TriggerDefinition def;
def.flags = flags | 0x1000000;
def.flagIndex = get_variable(script, index);
def.colliderIndex = get_variable_index(script, index);
def.inputArg3 = a3;
def.unk_14 = 0;
def.function = _bound_script_trigger_handler;
trigger = create_trigger(&def);
trigger->scriptStart = var0;
trigger->runningScript = NULL;
trigger->priority = script->priority;
trigger->scriptVars[0] = get_variable(script, script->varTable[0]);
trigger->scriptVars[1] = get_variable(script, script->varTable[1]);
trigger->scriptVars[2] = get_variable(script, script->varTable[2]);
if (a4 != 0) {
set_variable(script, a4, trigger);
}
return ApiStatus_DONE2;
}
ApiStatus DeleteTrigger(ScriptInstance* script, s32 isInitialCall) {
delete_trigger(get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_unbind(ScriptInstance* script) {
delete_trigger(script->ownerID);
return ApiStatus_DONE2;
}
ApiStatus si_handle_kill(ScriptInstance* script) {
kill_script_by_ID(get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_priority(ScriptInstance* script) {
set_script_priority(script, get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_timescale(ScriptInstance* script) {
set_script_timescale(script, get_float_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_set_group(ScriptInstance* script) {
set_script_group(script, get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_suspend_all(ScriptInstance* script) {
suspend_all_group(get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_resume_all(ScriptInstance* script) {
resume_all_group(get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_suspend_others(ScriptInstance* script) {
suspend_group_others(script, get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_resume_others(ScriptInstance* script) {
resume_group_others(script, get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_suspend(ScriptInstance* script) {
suspend_all_script(get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_resume(ScriptInstance* script) {
resume_all_script(get_variable(script, *script->ptrReadPos));
return ApiStatus_DONE2;
}
ApiStatus si_handle_does_script_exist(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Bytecode scriptID = get_variable(script, *args++);
Bytecode var2 = *args++;
set_variable(script, var2, does_script_exist(scriptID));
return ApiStatus_DONE2;
}
void si_standard_trigger_executor(Trigger* trigger) {
if (trigger->runningScript == NULL) {
ScriptInstance* newScript = start_script(trigger->scriptStart, trigger->priority, 0x20);
trigger->runningScript = newScript;
trigger->runningScriptID = newScript->uniqueID;
newScript->varTable[0] = trigger->scriptVars[0];
newScript->varTable[1] = trigger->scriptVars[1];
newScript->varTable[2] = trigger->scriptVars[2];
newScript->ownerID = trigger;
}
if (!does_script_exist(trigger->runningScriptID)) {
trigger->runningScript = NULL;
trigger->flags.flags &= ~0x2;
}
}
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_handle_bind_lock, ScriptInstance* script, s32 isInitialCall);
/*ApiStatus si_handle_bind_lock(ScriptInstance* script) {
Bytecode* args = script->ptrReadPos;
Trigger* trigger;
TriggerDefinition def;
s32 var0 = get_variable(script, *args++);
Bytecode flags = *args++;
Bytecode index = *args++;
s32 var3 = get_variable(script, *args++);
Bytecode a4 = *args++;
Bytecode a5 = *args++;
def.flags = flags | 0x1000000;
def.flagIndex = get_variable(script, index);
def.colliderIndex = get_variable_index(script, index);
def.unk_14 = var3;
def.inputArg3 = a4;
def.function = _bound_script_trigger_handler;
trigger = create_trigger(&def);
trigger->scriptStart = var0;
trigger->runningScript = NULL;
trigger->priority = script->flags.bytes.priority;
trigger->scriptVars[0] = get_variable(script, script->varTable[0]);
trigger->scriptVars[1] = get_variable(script, script->varTable[1]);
trigger->scriptVars[2] = get_variable(script, script->varTable[2]);
return ApiStatus_DONE2;
}*/
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_handle_thread, ScriptInstance* script, s32 isInitialCall);
ApiStatus si_handle_end_thread(ScriptInstance* script) {
kill_script(script);
return ApiStatus_FINISH;
}
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_handle_child_thread, ScriptInstance* script, s32 isInitialCall);
ApiStatus si_handle_end_child_thread(ScriptInstance* script) {
kill_script(script);
return ApiStatus_BLOCK;
}
ApiStatus func_802C6E14(ScriptInstance* script) {
return ApiStatus_DONE2;
}
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_handle_print_debug_var, ScriptInstance* script, s32 isInitialCall);
ApiStatus func_802C739C(ScriptInstance* script) {
script->ptrSavedPosition = (Bytecode*)*script->ptrReadPos;
return ApiStatus_DONE2;
}
ApiStatus func_802C73B0(ScriptInstance* script) {
return ApiStatus_DONE2;
}
s32 func_802C73B8(ScriptInstance* script) {
s32 i;
for (i = 0; i < ARRAY_COUNT(gCurrentScriptListPtr); i++) {
if (script == get_script_by_index(i)) {
break;
}
}
return 1;
}
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_execute_next_command);
// TODO: consider renaming to si_get_variable
#ifdef NON_MATCHING
/*
s32 get_variable(ScriptInstance* script, Bytecode var) {
s32 wordIdx;
s32 bitIdx;
if (var <= -270000000) {
return var;
} else if (var <= -250000000) {
return var;
} else if (var <= -220000000) {
return fixed_var_to_float(var);
} else if (var <= -200000000) {
var += 210000000;
wordIdx = var / 32;
bitIdx = var % 32;
return (script->flagArray[wordIdx] & (1 << bitIdx)) != 0;
} else if (var <= -180000000) {
var += 190000000;
var = script->array[var];
return (var > -270000000 && var < -220000000) ? fixed_var_to_float(var) : var;
} else if (var <= -160000000) {
var += 170000000;
return get_global_byte(var);
} else if (var <= -140000000) {
var += 150000000;
return get_area_byte(var);
} else if (var <= -120000000) {
var += 130000000;
return get_global_flag(var);
} else if (var <= -100000000) {
var += 110000000;
return get_area_flag(var);
} else if (var <= -80000000) {
var += 90000000;
wordIdx = var / 32;
bitIdx = var % 32;
return (gMapFlags[wordIdx] & (1 << bitIdx)) != 0;
} else if (var <= -60000000) {
var += 70000000;
wordIdx = var / 32;
bitIdx = var % 32;
return (script->varFlags[wordIdx] & (1 << bitIdx)) != 0;
} else if (var <= -40000000) {
var += 50000000;
var = gMapVars[var];
return (var > -270000000 && var < -220000000) ? fixed_var_to_float(var) : var;
} else if (var <= -20000000) {
var += 30000000;
var = script->varTable[var];
return (var > -270000000 && var < -220000000) ? fixed_var_to_float(var) : var;
} else {
return var;
}
}
*/
#else
INCLUDE_ASM(s32, "code_e92d0_len_5da0", get_variable, ScriptInstance* script, Bytecode var);
#endif
s32 get_variable_index(ScriptInstance* script, s32 var) {
if (-270000000 >= var) {
return var;
}
if (-250000000 >= var) {
return var;
}
if (-220000000 >= var) {
return var;
}
if (-200000000 >= var) {
return var + 210000000;
}
if (-180000000 >= var) {
return var + 190000000;
}
if (-160000000 >= var) {
return var + 170000000;
}
if (-140000000 >= var) {
return var + 150000000;
}
if (-120000000 >= var) {
return var + 130000000;
}
if (-100000000 >= var) {
return var + 110000000;
}
if (-80000000 >= var) {
return var + 90000000;
}
if (-60000000 >= var) {
return var + 70000000;
}
if (-40000000 >= var) {
return var + 50000000;
}
if (-20000000 >= var) {
return var + 30000000;
}
return var;
}
s32 get_variable_index_alt(s32 var) {
if (-270000000 >= var) {
return var;
}
if (-250000000 >= var) {
return var;
}
if (-220000000 >= var) {
return var;
}
if (-200000000 >= var) {
return var + 210000000;
}
if (-180000000 >= var) {
return var + 190000000;
}
if (-160000000 >= var) {
return var + 170000000;
}
if (-140000000 >= var) {
return var + 150000000;
}
if (-120000000 >= var) {
return var + 130000000;
}
if (-100000000 >= var) {
return var + 110000000;
}
if (-80000000 >= var) {
return var + 90000000;
}
if (-60000000 >= var) {
return var + 70000000;
}
if (-40000000 >= var) {
return var + 50000000;
}
if (-20000000 >= var) {
return var + 30000000;
}
return var;
}
INCLUDE_ASM(s32, "code_e92d0_len_5da0", set_variable, ScriptInstance* script, Bytecode var, s32 value);
INCLUDE_ASM(f32, "code_e92d0_len_5da0", get_float_variable, ScriptInstance* script, Bytecode var);
INCLUDE_ASM(f32, "code_e92d0_len_5da0", set_float_variable, ScriptInstance* script, Bytecode var, f32 value);
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_find_label, ScriptInstance* script, s32 arg1);
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_skip_if, ScriptInstance* script);
// Matching but needs rodata support
/*Bytecode* si_skip_if(ScriptInstance* script) {
s32 nestedIfDepth = 0;
Bytecode* pos = script->ptrNextLine;
Bytecode opcode;
s32 nargs;
do {
opcode = *pos++;
nargs = *pos++;
pos += nargs;
switch(opcode) {
case 1:
PANIC();
case 10:
case 11:
case 12:
case 13:
case 14:
case 15:
case 16:
case 19:
nestedIfDepth--;
if (nestedIfDepth < 0) {
return pos;
}
break;
case 17:
nestedIfDepth++;
break;
case 18:
if (nestedIfDepth == 0) {
return pos;
}
break;
}
} while(1);
}*/
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_skip_else, ScriptInstance* script);
// Matching but needs rodata support
/*Bytecode* si_skip_else(ScriptInstance* script) {
s32 nestedIfDepth = 0;
Bytecode* pos = script->ptrNextLine;
Bytecode opcode;
s32 nargs;
do {
opcode = *pos++;
nargs = *pos++;
pos += nargs;
switch(opcode) {
case 1:
PANIC();
case 10:
case 11:
case 12:
case 13:
case 14:
case 15:
case 16:
case 19:
nestedIfDepth--;
if (nestedIfDepth < 0) {
return pos;
}
break;
case 17:
nestedIfDepth++;
break;
}
} while(1);
}*/
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_goto_end_case, ScriptInstance* script);
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_goto_next_case, ScriptInstance* script);
INCLUDE_ASM(s32, "code_e92d0_len_5da0", si_goto_end_loop, ScriptInstance* script);