2 files changed, 749 insertions, 0 deletions
diff --git a/src/scrcmd.c b/src/scrcmd.c
new file mode 100644
index 000000000..def0a4d3a
--- /dev/null
+++ b/src/scrcmd.c
@@ -0,0 +1,380 @@
+#include "global.h"
+#include "script.h"
+#include "rng.h"
+
+extern void killram(void);
+extern u16 *GetVarPointer(u16);
+extern u16 VarGet(u16);
+extern void sub_8126160(u8);
+
+typedef u16 (*SpecialFunc)(void);
+typedef void (*NativeFunc)(void);
+
+extern u32 gUnknown_0202E8AC;
+extern u32 gUnknown_0202E8B0;
+extern u16 gScriptResult;
+
+extern SpecialFunc gSpecials[];
+extern u8 *gStdScripts[];
+extern u8 *gStdScripts_End[];
+extern u8 gUnknown_083762DC[6][3];
+
+bool8 ScrCmd_snop(struct ScriptContext *ctx)
+{
+    return FALSE;
+}
+
+bool8 ScrCmd_snop1(struct ScriptContext *ctx)
+{
+    return FALSE;
+}
+
+bool8 ScrCmd_end(struct ScriptContext *ctx)
+{
+    script_stop(ctx);
+    return FALSE;
+}
+
+bool8 ScrCmd_jumpasm(struct ScriptContext *ctx)
+{
+    u32 addr = script_read_word(ctx);
+    script_setup_asm_script(ctx, (void *)addr);
+    return TRUE;
+}
+
+bool8 ScrCmd_special(struct ScriptContext *ctx)
+{
+    u16 index = script_read_halfword(ctx);
+    gSpecials[index]();
+    return FALSE;
+}
+
+bool8 ScrCmd_specialval(struct ScriptContext *ctx)
+{
+    u16 *var = GetVarPointer(script_read_halfword(ctx));
+    *var = gSpecials[script_read_halfword(ctx)]();
+    return FALSE;
+}
+
+bool8 ScrCmd_callasm(struct ScriptContext *ctx)
+{
+    NativeFunc func = (NativeFunc)script_read_word(ctx);
+    func();
+    return FALSE;
+}
+
+bool8 ScrCmd_waitstate(struct ScriptContext *ctx)
+{
+    sub_80655F0();
+    return TRUE;
+}
+
+bool8 ScrCmd_jump(struct ScriptContext *ctx)
+{
+    u8 *ptr = (u8 *)script_read_word(ctx);
+    script_jump(ctx, ptr);
+    return FALSE;
+}
+
+bool8 ScrCmd_return(struct ScriptContext *ctx)
+{
+    script_return(ctx);
+    return FALSE;
+}
+
+bool8 ScrCmd_call(struct ScriptContext *ctx)
+{
+
+    u8 *ptr = (u8 *)script_read_word(ctx);
+    script_call(ctx, ptr);
+    return FALSE;
+}
+
+bool8 ScrCmd_jumpif(struct ScriptContext *ctx)
+{
+    u8 condition = *(ctx->scriptPtr++);
+    u8 *ptr = (u8 *)script_read_word(ctx);
+    if (gUnknown_083762DC[condition][ctx->comparisonResult] == 1)
+        script_jump(ctx, ptr);
+    return FALSE;
+}
+
+bool8 ScrCmd_callif(struct ScriptContext *ctx)
+{
+    u8 condition = *(ctx->scriptPtr++);
+    u8 *ptr = (u8 *)script_read_word(ctx);
+    if (gUnknown_083762DC[condition][ctx->comparisonResult] == 1)
+        script_call(ctx, ptr);
+    return FALSE;
+}
+
+bool8 ScrCmd_setvaddress(struct ScriptContext *ctx)
+{
+    u32 addr1 = (u32)ctx->scriptPtr - 1;
+    u32 addr2 = script_read_word(ctx);
+    gUnknown_0202E8B0 = addr2 - addr1;
+    return FALSE;
+}
+
+bool8 ScrCmd_vjump(struct ScriptContext *ctx)
+{
+    u32 addr = script_read_word(ctx);
+    script_jump(ctx, (u8 *)(addr - gUnknown_0202E8B0));
+    return FALSE;
+}
+
+bool8 ScrCmd_vcall(struct ScriptContext *ctx)
+{
+    u32 addr = script_read_word(ctx);
+    script_call(ctx, (u8 *)(addr - gUnknown_0202E8B0));
+    return FALSE;
+}
+
+bool8 ScrCmd_if5(struct ScriptContext *ctx)
+{
+    u8 condition = *(ctx->scriptPtr++);
+    u8 *ptr = (u8 *)(script_read_word(ctx) - gUnknown_0202E8B0);
+    if (gUnknown_083762DC[condition][ctx->comparisonResult] == 1)
+        script_jump(ctx, ptr);
+    return FALSE;
+}
+
+bool8 ScrCmd_if6(struct ScriptContext *ctx)
+{
+    u8 condition = *(ctx->scriptPtr++);
+    u8 *ptr = (u8 *)(script_read_word(ctx) - gUnknown_0202E8B0);
+    if (gUnknown_083762DC[condition][ctx->comparisonResult] == 1)
+        script_call(ctx, ptr);
+    return FALSE;
+}
+
+bool8 ScrCmd_jumpstd(struct ScriptContext *ctx)
+{
+    u8 index = *(ctx->scriptPtr++);
+    u8 **ptr = &gStdScripts[index];
+    if (ptr < gStdScripts_End)
+        script_jump(ctx, *ptr);
+    return FALSE;
+}
+
+bool8 ScrCmd_callstd(struct ScriptContext *ctx)
+{
+    u8 index = *(ctx->scriptPtr++);
+    u8 **ptr = &gStdScripts[index];
+    if (ptr < gStdScripts_End)
+        script_call(ctx, *ptr);
+    return FALSE;
+}
+
+bool8 ScrCmd_jumpstdif(struct ScriptContext *ctx)
+{
+    u8 condition = *(ctx->scriptPtr++);
+    u8 index = *(ctx->scriptPtr++);
+    if (gUnknown_083762DC[condition][ctx->comparisonResult] == 1)
+    {
+        u8 **ptr = &gStdScripts[index];
+        if (ptr < gStdScripts_End)
+            script_jump(ctx, *ptr);
+    }
+    return FALSE;
+}
+
+bool8 ScrCmd_callstdif(struct ScriptContext *ctx)
+{
+    u8 condition = *(ctx->scriptPtr++);
+    u8 index = *(ctx->scriptPtr++);
+    if (gUnknown_083762DC[condition][ctx->comparisonResult] == 1)
+    {
+        u8 **ptr = &gStdScripts[index];
+        if (ptr < gStdScripts_End)
+            script_call(ctx, *ptr);
+    }
+    return FALSE;
+}
+
+bool8 ScrCmd_jumpram(struct ScriptContext *ctx)
+{
+    script_jump(ctx, (u8 *)gUnknown_0202E8AC);
+    return FALSE;
+}
+
+bool8 ScrCmd_die(struct ScriptContext *ctx)
+{
+    killram();
+    script_stop(ctx);
+    return TRUE;
+}
+
+bool8 ScrCmd_setbyte(struct ScriptContext *ctx)
+{
+    u8 value = *(ctx->scriptPtr++);
+    sub_8126160(value);
+    return FALSE;
+}
+
+bool8 ScrCmd_loadptr(struct ScriptContext *ctx)
+{
+    u8 index = *(ctx->scriptPtr++);
+    ctx->data[index] = script_read_word(ctx);
+    return FALSE;
+}
+
+bool8 ScrCmd_loadbytefrompointer(struct ScriptContext *ctx)
+{
+    u8 index = *(ctx->scriptPtr++);
+    ctx->data[index] = *(u8 *)script_read_word(ctx);
+    return FALSE;
+}
+
+bool8 ScrCmd_writebytetooffset(struct ScriptContext *ctx)
+{
+    u8 value = *(ctx->scriptPtr++);
+    *(u8 *)script_read_word(ctx) = value;
+    return FALSE;
+}
+
+bool8 ScrCmd_setbufferbyte(struct ScriptContext *ctx)
+{
+    u8 index = *(ctx->scriptPtr++);
+    ctx->data[index] = *(ctx->scriptPtr++);
+    return FALSE;
+}
+
+bool8 ScrCmd_setptrbyte(struct ScriptContext *ctx)
+{
+    u8 index = *(ctx->scriptPtr++);
+    *(u8 *)script_read_word(ctx) = ctx->data[index];
+    return FALSE;
+}
+
+bool8 ScrCmd_copybuffers(struct ScriptContext *ctx)
+{
+    u8 destIndex = *(ctx->scriptPtr++);
+    u8 srcIndex = *(ctx->scriptPtr++);
+    ctx->data[destIndex] = ctx->data[srcIndex];
+    return FALSE;
+}
+
+bool8 ScrCmd_copybyte(struct ScriptContext *ctx)
+{
+    u8 *ptr = (u8 *)script_read_word(ctx);
+    *ptr = *(u8 *)script_read_word(ctx);
+    return FALSE;
+}
+
+bool8 ScrCmd_setvar(struct ScriptContext *ctx)
+{
+    u16 *ptr = GetVarPointer(script_read_halfword(ctx));
+    *ptr = script_read_halfword(ctx);
+    return FALSE;
+}
+
+bool8 ScrCmd_copyvar(struct ScriptContext *ctx)
+{
+    u16 *ptr = GetVarPointer(script_read_halfword(ctx));
+    *ptr = *GetVarPointer(script_read_halfword(ctx));
+    return FALSE;
+}
+
+bool8 ScrCmd_setorcopyvar(struct ScriptContext *ctx)
+{
+    u16 *ptr = GetVarPointer(script_read_halfword(ctx));
+    *ptr = VarGet(script_read_halfword(ctx));
+    return FALSE;
+}
+
+u8 compare_012(u16 a1, u16 a2)
+{
+    if (a1 < a2)
+        return 0;
+
+    if (a1 == a2)
+        return 1;
+
+    return 2;
+}
+
+bool8 ScrCmd_comparebuffers(struct ScriptContext *ctx)
+{
+    u8 value1 = ctx->data[*(ctx->scriptPtr++)];
+    u8 value2 = ctx->data[*(ctx->scriptPtr++)];
+    ctx->comparisonResult = compare_012(value1, value2);
+    return FALSE;
+}
+
+bool8 ScrCmd_comparebuffertobyte(struct ScriptContext *ctx)
+{
+    u8 value1 = ctx->data[*(ctx->scriptPtr++)];
+    u8 value2 = *(ctx->scriptPtr++);
+    ctx->comparisonResult = compare_012(value1, value2);
+    return FALSE;
+}
+
+bool8 ScrCmd_comparebuffertoptrbyte(struct ScriptContext *ctx)
+{
+    u8 value1 = ctx->data[*(ctx->scriptPtr++)];
+    u8 value2 = *(u8 *)script_read_word(ctx);
+    ctx->comparisonResult = compare_012(value1, value2);
+    return FALSE;
+}
+
+bool8 ScrCmd_compareptrbytetobuffer(struct ScriptContext *ctx)
+{
+    u8 value1 = *(u8 *)script_read_word(ctx);
+    u8 value2 = ctx->data[*(ctx->scriptPtr++)];
+    ctx->comparisonResult = compare_012(value1, value2);
+    return FALSE;
+}
+
+bool8 ScrCmd_compareptrbytetobyte(struct ScriptContext *ctx)
+{
+    u8 value1 = *(u8 *)script_read_word(ctx);
+    u8 value2 = *(ctx->scriptPtr++);
+    ctx->comparisonResult = compare_012(value1, value2);
+    return FALSE;
+}
+
+bool8 ScrCmd_compareptrbytes(struct ScriptContext *ctx)
+{
+    u8 value1 = *(u8 *)script_read_word(ctx);
+    u8 value2 = *(u8 *)script_read_word(ctx);
+    ctx->comparisonResult = compare_012(value1, value2);
+    return FALSE;
+}
+
+bool8 ScrCmd_compare(struct ScriptContext *ctx)
+{
+    u16 value1 = *GetVarPointer(script_read_halfword(ctx));
+    u16 value2 = script_read_halfword(ctx);
+    ctx->comparisonResult = compare_012(value1, value2);
+    return FALSE;
+}
+
+bool8 ScrCmd_comparevars(struct ScriptContext *ctx)
+{
+    u16 *ptr1 = GetVarPointer(script_read_halfword(ctx));
+    u16 *ptr2 = GetVarPointer(script_read_halfword(ctx));
+    ctx->comparisonResult = compare_012(*ptr1, *ptr2);
+    return FALSE;
+}
+
+bool8 ScrCmd_addvar(struct ScriptContext *ctx)
+{
+    u16 *ptr = GetVarPointer(script_read_halfword(ctx));
+    *ptr += script_read_halfword(ctx);
+    return FALSE;
+}
+
+bool8 ScrCmd_subvar(struct ScriptContext *ctx)
+{
+    u16 *ptr = GetVarPointer(script_read_halfword(ctx));
+    *ptr -= VarGet(script_read_halfword(ctx));
+    return FALSE;
+}
+
+bool8 ScrCmd_random(struct ScriptContext *ctx)
+{
+    u16 max = VarGet(script_read_halfword(ctx));
+    gScriptResult = Random() % max;
+    return FALSE;
+}
diff --git a/src/script.c b/src/script.c
new file mode 100644
index 000000000..4bb4efdae
--- /dev/null
+++ b/src/script.c
@@ -0,0 +1,369 @@
+#include "global.h"
+#include "script.h"
+#include "fieldmap.h"
+
+extern u16 VarGet(u16);
+
+extern u8 *gUnknown_0202E8AC;
+extern u32 gUnknown_0202E8B0;
+
+extern u8 sScriptContext1Status; // 0x30005B0
+extern struct ScriptContext sScriptContext1; // 0x30005B8
+extern struct ScriptContext sScriptContext2; // 0x3000630
+extern bool8 sScriptContext2Enabled; // 0x30006A4
+
+extern ScrCmdFunc gScriptCmdTable[];
+extern ScrCmdFunc gScriptCmdTableEnd[];
+extern void *gUnknown_083762D8;
+
+void script_env_init(struct ScriptContext *ctx, void *cmdTable, void *cmdTableEnd)
+{
+    s32 i;
+
+    ctx->mode = 0;
+    ctx->scriptPtr = 0;
+    ctx->stackDepth = 0;
+    ctx->nativePtr = 0;
+    ctx->cmdTable = cmdTable;
+    ctx->cmdTableEnd = cmdTableEnd;
+
+    for (i = 0; i < 4; i++)
+        ctx->data[i] = 0;
+
+    for (i = 0; i < 20; i++)
+        ctx->stack[i] = 0;
+}
+
+u8 script_setup_bytecode_script(struct ScriptContext *ctx, void *ptr)
+{
+    ctx->scriptPtr = ptr;
+    ctx->mode = 1;
+    return 1;
+}
+
+void script_setup_asm_script(struct ScriptContext *ctx, void *ptr)
+{
+    ctx->mode = 2;
+    ctx->nativePtr = ptr;
+}
+
+void script_stop(struct ScriptContext *ctx)
+{
+    ctx->mode = 0;
+    ctx->scriptPtr = 0;
+}
+
+u8 sub_80653EC(struct ScriptContext *ctx)
+{
+    if (ctx->mode == 0)
+        return 0;
+
+    switch (ctx->mode)
+    {
+    case 0:
+        return 0;
+    case 2:
+        if (ctx->nativePtr)
+        {
+            if (ctx->nativePtr() == 1)
+                ctx->mode = 1;
+            return 1;
+        }
+        ctx->mode = 1;
+    case 1:
+        while (1)
+        {
+            u8 cmdCode;
+            ScrCmdFunc *func;
+
+            if (!ctx->scriptPtr)
+            {
+                ctx->mode = 0;
+                return 0;
+            }
+
+            if (ctx->scriptPtr == gUnknown_083762D8)
+            {
+                while (1)
+                    asm("svc 2"); // HALT
+            }
+
+            cmdCode = *(ctx->scriptPtr);
+            ctx->scriptPtr++;
+            func = &ctx->cmdTable[cmdCode];
+
+            if (func >= ctx->cmdTableEnd)
+            {
+                ctx->mode = 0;
+                return 0;
+            }
+
+            if ((*func)(ctx) == 1)
+                return 1;
+        }
+    }
+
+    return 1;
+}
+
+u8 script_stack_push(struct ScriptContext *ctx, u8 *ptr)
+{
+    if (ctx->stackDepth + 1 >= 20)
+    {
+        return 1;
+    }
+    else
+    {
+        ctx->stack[ctx->stackDepth] = ptr;
+        ctx->stackDepth++;
+        return 0;
+    }
+}
+
+u8 *script_stack_pop(struct ScriptContext *ctx)
+{
+    if (ctx->stackDepth == 0)
+        return NULL;
+
+    ctx->stackDepth--;
+    return ctx->stack[ctx->stackDepth];
+}
+
+void script_jump(struct ScriptContext *ctx, u8 *ptr)
+{
+    ctx->scriptPtr = ptr;
+}
+
+void script_call(struct ScriptContext *ctx, u8 *ptr)
+{
+    script_stack_push(ctx, ctx->scriptPtr);
+    ctx->scriptPtr = ptr;
+}
+
+void script_return(struct ScriptContext *ctx)
+{
+    ctx->scriptPtr = script_stack_pop(ctx);
+}
+
+u16 script_read_halfword(struct ScriptContext *ctx)
+{
+    u16 value = *(ctx->scriptPtr++);
+    value |= *(ctx->scriptPtr++) << 8;
+    return value;
+}
+
+u32 script_read_word(struct ScriptContext *ctx)
+{
+    u32 value0 = *(ctx->scriptPtr++);
+    u32 value1 = *(ctx->scriptPtr++);
+    u32 value2 = *(ctx->scriptPtr++);
+    u32 value3 = *(ctx->scriptPtr++);
+    return (((((value3 << 8) + value2) << 8) + value1) << 8) + value0;
+}
+
+void script_env_2_enable(void)
+{
+    sScriptContext2Enabled = TRUE;
+}
+
+void script_env_2_disable(void)
+{
+    sScriptContext2Enabled = FALSE;
+}
+
+bool8 script_env_2_is_enabled(void)
+{
+    return sScriptContext2Enabled;
+}
+
+void script_env_1_init(void)
+{
+    script_env_init(&sScriptContext1, gScriptCmdTable, gScriptCmdTableEnd);
+    sScriptContext1Status = 2;
+}
+
+bool8 script_env_2_run_current_script(void)
+{
+    if (sScriptContext1Status == 2)
+        return 0;
+
+    if (sScriptContext1Status == 1)
+        return 0;
+
+    script_env_2_enable();
+
+    if (!sub_80653EC(&sScriptContext1))
+    {
+        sScriptContext1Status = 2;
+        script_env_2_disable();
+        return 0;
+    }
+
+    return 1;
+}
+
+void script_env_1_execute_new_script(u8 *ptr)
+{
+    script_env_init(&sScriptContext1, gScriptCmdTable, gScriptCmdTableEnd);
+    script_setup_bytecode_script(&sScriptContext1, ptr);
+    script_env_2_enable();
+    sScriptContext1Status = 0;
+}
+
+void sub_80655F0(void)
+{
+    sScriptContext1Status = 1;
+}
+
+void script_env_2_enable_and_set_ctx_running()
+{
+    sScriptContext1Status = 0;
+    script_env_2_enable();
+}
+
+void script_env_2_execute_new_script(u8 *ptr)
+{
+    script_env_init(&sScriptContext2, &gScriptCmdTable, &gScriptCmdTableEnd);
+    script_setup_bytecode_script(&sScriptContext2, ptr);
+    while (sub_80653EC(&sScriptContext2) == 1)
+        ;
+}
+
+u8 *mapheader_get_tagged_pointer(u8 tag)
+{
+    u8 *mapScripts = gMapHeader.mapScripts;
+
+    if (!mapScripts)
+        return NULL;
+
+    while (1)
+    {
+        if (!*mapScripts)
+            return NULL;
+        if (*mapScripts == tag)
+        {
+            mapScripts++;
+            return (u8 *)(mapScripts[0] + (mapScripts[1] << 8) + (mapScripts[2] << 16) + (mapScripts[3] << 24));
+        }
+        mapScripts += 5;
+    }
+}
+
+void mapheader_run_script_by_tag(u8 tag)
+{
+    u8 *ptr = mapheader_get_tagged_pointer(tag);
+    if (ptr)
+        script_env_2_execute_new_script(ptr);
+}
+
+u8 *mapheader_get_first_match_from_tagged_ptr_list(u8 tag)
+{
+    u8 *ptr = mapheader_get_tagged_pointer(tag);
+
+    if (!ptr)
+        return NULL;
+
+    while (1)
+    {
+        u16 varIndex1;
+        u16 varIndex2;
+        varIndex1 = ptr[0] | (ptr[1] << 8);
+        if (!varIndex1)
+            return NULL;
+        ptr += 2;
+        varIndex2 = ptr[0] | (ptr[1] << 8);
+        ptr += 2;
+        if (VarGet(varIndex1) == VarGet(varIndex2))
+            return (u8 *)(ptr[0] + (ptr[1] << 8) + (ptr[2] << 16) + (ptr[3] << 24));
+        ptr += 4;
+    }
+}
+
+void mapheader_run_script_with_tag_x1(void)
+{
+    mapheader_run_script_by_tag(1);
+}
+
+void mapheader_run_script_with_tag_x3(void)
+{
+    mapheader_run_script_by_tag(3);
+}
+
+void mapheader_run_script_with_tag_x5(void)
+{
+    mapheader_run_script_by_tag(5);
+}
+
+void mapheader_run_script_with_tag_x6(void)
+{
+    mapheader_run_script_by_tag(6);
+}
+
+bool8 mapheader_run_first_tag2_script_list_match(void)
+{
+    u8 *ptr = mapheader_get_first_match_from_tagged_ptr_list(2);
+
+    if (!ptr)
+        return 0;
+
+    script_env_1_execute_new_script(ptr);
+    return 1;
+}
+
+void mapheader_run_first_tag4_script_list_match()
+{
+    u8 *ptr = mapheader_get_first_match_from_tagged_ptr_list(4);
+    if (ptr)
+        script_env_2_execute_new_script(ptr);
+}
+
+u32 sub_8065760(void)
+{
+    u32 i;
+    u32 sum = 0;
+    for (i = 0; i < sizeof(struct RamScriptData); i++)
+        sum += ((u8 *)&gSaveBlock1.ramScript.data)[i];
+    return sum;
+}
+
+void killram(void)
+{
+    CpuFill32(0, &gSaveBlock1.ramScript, sizeof(struct RamScript));
+}
+
+bool8 sub_80657A8(u8 *a1, u16 a2, u8 a3, u8 a4, u8 a5)
+{
+    struct RamScriptData *scriptData = &gSaveBlock1.ramScript.data;
+
+    killram();
+
+    if (a2 > 995)
+        return FALSE;
+
+    scriptData->magic = 51;
+    scriptData->mapGroup = a3;
+    scriptData->mapNum = a4;
+    scriptData->objectId = a5;
+    memcpy(scriptData->script, a1, a2);
+    gSaveBlock1.ramScript.checksum = sub_8065760();
+    return TRUE;
+}
+
+u8 *sub_806580C(u8 a1, u8 *a2)
+{
+    struct RamScriptData *scriptData = &gSaveBlock1.ramScript.data;
+    gUnknown_0202E8AC = 0;
+    if (scriptData->magic == 51
+     && scriptData->mapGroup == gSaveBlock1.location.mapGroup
+     && scriptData->mapNum == gSaveBlock1.location.mapNum
+     && scriptData->objectId == a1)
+    {
+        if (sub_8065760() == gSaveBlock1.ramScript.checksum)
+        {
+            gUnknown_0202E8AC = a2;
+            return scriptData->script;
+        }
+        killram();
+    }
+    return a2;
+}