overworld_navigation.c

#include "engine_scripts.h"
#include "overworld.h"
#include "overworld_navigation.h"
#include "task.h"
#include "wild_pokemon_encounter.h" // for repel_per_step signature

enum block_reason { /* TODO */ BR_NONE=0 };

// 0805B3E0
void player_step(u8 direction, u16 keypad_new, u16 keypad_held) {
    struct npc_state *avatar = &npc_states[walkrun_state.npc_id];

    sub_805CC40(avatar);

    if (walkrun_state.lock)
        return;
    if (player_lock_for_tile_x54_x55_x56_x57()) // always 1 when (walkrun_state.bitfield & 0x40)
        return;
    if (sub_805B45C(avatar, direction))
        return;

    npc_clear_strange_bits(avatar);
    bike_related();

    if (player_override_call()) // always 1 when (walkrun_state.bitfield & 0x20)
        return;

    player_step_by_keypad(direction, keypad_new, keypad_held);
    walkrun_clear_x20_when_running_fast();
}

// 0805B4D4
void player_step_by_keypad(u8 direction, u16 keypad_new, u16 keypad_held) {
    // reverse engineered by min <3
    if (walkrun_state.bitfield & 6)
        dp04_initiate_movement(direction, keypad_new, keypad_held);
    else
        dp04_continue_movement(direction, keypad_held);
}

// 0805BCEC
bool strength_poke(u16 x, u16 y, u8 direction) {
    u8 npc_id;

    if (!flag_check(FLAG_COLLISIONS_ENABLED))
        return 0;
    if ((npc_id = npc_id_by_pos(x, y)) == MAX_NPCS)
        return 0;

    struct npc_state *npc = &npc_states[npc_id];
    if (npc->type_id != 0x61)
        return 0;

    coords next_p;
    coords p = npc_states[npc_id].to;
    numbers_move_direction(direction, &next_p.x, &next_p.y);

    u8 role = cur_mapdata_block_role_at(p.x, p.y);
    if (role != 0x66) {
        enum block_reason br = npc_block_way(npc_id, x, y);
        if (br != 0) return 0;
        if (is_role_x60(role)) return 0;
    }
    sub_805CCD0(npc_id, direction);
    return 1;
}

// 0805C538
void player_get_pos_to(u16 *x, u16 *y) {
    *x = npc_states[walkrun_state.npc_id].to.x;
    *y = npc_states[walkrun_state.npc_id].to.y;
}

// 0805C6C4
u8 player_get_direction() {
    return npc_states[walkrun_state.npc_id].direction & 0xF;
}

// 0805C700
u8 player_get_height() {
    return npc_states[walkrun_state.npc_id].height >> 4;
}

/* this verison is possibly nicer
// 0805CCD0
void task_add_bump_boulder(u8 npc_id, u8 direction) {
    task_id c = task_add(task_bump_boulder, 0xFF);
    task[c].priv[1] = npc_id;
    task[c].priv[2] = direction;
    task_bump_boulder(c);
}
*/

struct task_args_0805CD0C {
    u16 mode;
    u16 npc_id;
    u16 direction;
};

// 0805CCD0
void task_add_bump_boulder(u8 npc_id, u8 direction) {
    task_id c = task_add(&task_bump_boulder, 0xFF);
    struct task_args_0805CD0C *args = (struct task_args_0805CD0C *) &task[c].priv;
    args->npc_id = npc_id;
    args->direction = direction;
    task_bump_boulder(c);
}

bool sub_805CD64_mode_0(struct task_t *t, struct npc_state* player_npc, struct npc_state* other_npc);
bool sub_805CD84_mode_1(struct task_t *t, struct npc_state* player_npc, struct npc_state* other_npc);
bool sub_805CE20_mode_2(struct task_t *t, struct npc_state* player_npc, struct npc_state* other_npc);

// 0835B8A0
bool (*boulder_bump_phases[])(struct task_t *t, struct npc_state* player_npc, struct npc_state* other_npc) = {
    sub_805CD64_mode_0,
    sub_805CD84_mode_1,
    sub_805CE20_mode_2,
};

// 0805CD0C
void task_bump_boulder(task_id c) {
    struct npc_state *player_npc, *other_npc;
    struct task_t *t = &task[c];
    struct task_args_0805CD0C *args = (struct task_args_0805CD0C *) &t->priv;
    do {
        player_npc = &npc_states[walkrun_state.npc_id];
        other_npc = &npc_states[args->npc_id];
    } while(boulder_bump_phases[args->mode](t, player_npc, other_npc));
}

// 0805CD64
bool sub_805CD64_mode_0(struct task_t *t, struct npc_state* player_npc, struct npc_state* other_npc) {
    struct task_args_0805CD0C *args = (struct task_args_0805CD0C *) &t->priv;

    script_env_2_enable();
    walkrun_state.lock = 1;
    args->mode++; // from 0 to 1
    return 0;
}

// 0805CD84
bool sub_805CD84_mode_1(struct task_t *t, struct npc_state* player_npc, struct npc_state* other_npc) {
    // TODO
    // args->mode++; // from 1 to 2
    return 0;
}

// 0805CE20
bool sub_805CE20_mode_2(struct task_t *t, struct npc_state* player_npc, struct npc_state* other_npc) {
    if (npc_get_bit7_or_const_x10_when_inactive(player_npc) == 0) return 0;
    if (npc_get_bit7_or_const_x10_when_inactive(other_npc) == 0) return 0;
    npc_destruct_when_bit7_is_set(player_npc);
    npc_destruct_when_bit7_is_set(other_npc);
    npc_hide_and_trainer_flag_clear_on_role_x66_at_pos(other_npc);
    coords *o_to = &other_npc->to;
    if_role_x20_run_trigger_at_position_maybe(o_to->x, o_to->y);

    walkrun_state.lock = 0;
    script_env_2_disable();
    task_id c = task_find_id_by_funcptr(&task_bump_boulder);
    task_del(c);

    return 0;
}

// 08069A54
void context_npc_set_0_and_set_msg_normal_design(void) {
    context_npc_set_0();
    set_msg_normal_design();
}

// 0806C8BC
void input_process(u8 *d, u16 keypad_new, u16 keypad_held) {
    u8 running2 = walkrun_state.running2;
    u8 running1 = walkrun_state.running1;
    u8 role = cur_mapdata_block_role_at_player_pos();
    bool override = is_tile_that_overrides_player_control(role);
    bool now = prev_quest_mode < 2;

    if (!script_env_2_context_is_normal() && keypad_override_through_script_env_2_enabled())
        script_env_2_apply_keypad_override(d, &keypad_new, &keypad_held);

    if (((running1 == 2 && !override) || running1 == 0) && (walkrun_state.bitfield & 0x40)) {
        if (sub_80BD674() != 4) {
            if ((keypad_new & KEYPAD_START)) d[0] |= 0x04;

            if (now) {
                if ((keypad_new & BUTTON_SELECT)) d[0] |= 0x08;
                if ((keypad_new & BUTTON_A))      d[0] |= 0x01;
                if ((keypad_new & BUTTON_B))      d[0] |= 0x80;
                if ((keypad_new & BUTTON_R))      d[1] |= 0x01;
            }
        }
        if (now)
            if (keypad_held & KEYPAD_ANYDIR) d[0] |= 0x30;
    }
    if (!override) {
        if (running1 == 2 && running2 == 2)
            d[0] |= 0x40;
        if (running1 == 2)
            d[0] |= 0x02;
    }
    if (now) {
             if (keypad_held & BUTTON_UP)    d[2] = 2;
        else if (keypad_held & BUTTON_DOWN)  d[2] = 1;
        else if (keypad_held & BUTTON_LEFT)  d[2] = 3;
        else if (keypad_held & BUTTON_RIGHT) d[2] = 4;
        else return;
    }
}

// 0806CA4C
void script_env_2_apply_keypad_override(u8 *ignored, u16 *keypad_new, u16 *keypad_held) {
    u16 q[] = {0x40, 0x80, 0x20, 0x10, 0x200, 0x100, 0x8, 0x4};
    u8 i = script_env_2_keypad_override_direction_query();
    if (0<i && i<=8)
        *keypad_new = *keypad_held = q[i-1];
}

// 03005078
extern struct dp20 dp20;

// 0806CAC8
bool sub_806CAC8(u8 *ud) {
    struct dp20 *d = (struct dp20*)ud;

    context_npc_set_0_and_set_msg_normal_design();

    struct npc_position n;
    u8 ndir = player_get_direction();
    player_get_pos_to_and_height(&n);
    block b = cur_mapdata_block_get_field_at(n.x, n.y, 0xFF);
    u8 role = cur_mapdata_block_role_at(n.x, n.y);

    sub_806C888((u8*)&dp20); // TODO: No cast
    dp20.f2 = d->f2;
    if (sub_8081B30()) return 1;

    if (mapheader_run_first_tag2_script_list_match_conditionally()) return 1;

    // executed every frame
    if (walkrun_state.bitfield & 0x40) {
        // executed every step
        sav1_secure_increment(5);
        sub_8146CA4();
        increment_var_x4023_until_1500();
        increment_var_x4025_until_500();
        sub_80CB054();
        increment_var_x4026_on_birth_island_modulo_100();
        if (per_step_2(&n, role, ndir)) {
            dp20.f0 |= 0x40;
            return 1;
        }
    }

    if (d->f0 & 0x2) { // set in sub_806C8BC when !override && running1 == 2
        if (d->f2 == 0 || d->f2 == ndir) {
            player_get_next_pos_and_height(&n);
            role = cur_mapdata_block_role_at(n.x, n.y);
            if (launch_signpost_script(&n, role, ndir)) {
                dp20.f0 |= 2;
                return 0;
            }
            // restore old values
            player_get_pos_to_and_height(&n);
            role = cur_mapdata_block_role_at(n.x, n.y);
        }
        //if (d[0] & 0x2) { // always true
        if (trigger_battle(b)) {
            dp20.f0 |= 2;
            return 0;
        }
        //}
    }

    if ((d->f0 & 0x10) && d->f2 == ndir) {
        if (map_warp_consider(&n, role, ndir)) {
            dp20.f0 |= 0x10;
            return 0;
        }
    }

    // TODO

}

// 020370A0
extern u8 script_env_2_keypad_sync_lock_countdown; // TODO

// 0806CD30
void sub_806CD30(u8 *d) {
    if (script_env_2_context_is_normal())
        return;

    if (script_env_2_keypad_sync_lock_countdown) {
        script_env_2_keypad_sync_lock_countdown--;
        return;
    }

    if (script_env_2_x76_query() == 0)
        return;

    u8 direction_held = d[2];

    if (direction_held == 0 || direction_held == player_get_direction()) {

        if (!(walkrun_state.bitfield & 0x40))
            return;

        script_env_2_start_and_stuff(scr_special_15A);
        script_env_2_enable();

        if (!task_is_running(&task_0806CDF8))
            task_add(&task_0806CDF8, 0x8);

    } else {

        if (script_env_2_x75_query() == 1)
            return;

        u8 dir;
             if (direction_held == 2) dir = 1;
        else if (direction_held == 1) dir = 2;
        else if (direction_held == 3) dir = 3;
        else if (direction_held == 4) dir = 4;
        else return;

        script_env_2_keypad_override_direction_set(dir);
        script_env_2_start_and_stuff(scr_special_15A);
        script_env_2_enable();

    }
}

// 0806CDF8
void task_0806CDF8(task_id c) {
    if (script_env_2_is_enabled() == false) {
        audio_play((enum audio)6);
        sub_806F258();
        task_del(c);
    }
}

// 0806CE20
void player_get_pos_to_and_height(struct npc_position *n) {
    player_get_pos_to(&n->x, &n->y);
    n->height = player_get_height();
}

// 0806CE74
u8 cur_mapdata_block_role_at_player_pos() {
    u16 x, y;
    player_get_pos_to(&x, &y);
    return cur_mapdata_block_role_at(x, y);
}

// 0806CEA0
bool onpress_a(struct npc_position *n, u8 role, u8 direction) {
    // direction: direction the player is looking

    u8 *scr = (u8*)onpress_a_get_script(n, role, direction);
    if (!scr) return false;
    if (scr != scr_pc1 && scr != scr_pc2) sound_play(5);
    script_start_1(scr);
    return true;
}

// TODO: Remove
ow_script npc_get_script_by_npc_id(u8 npc_id);
ow_script onpress_a_get_script_signpost(struct npc_position *n, u8 role, u8 direction);
ow_script surf(struct npc_position *n, u8 role, u8 direction);
ow_script sub_8069D8C(u16 var, ow_script script);

// 0806CEE0
ow_script onpress_a_get_script(struct npc_position *n, u8 role, u8 direction) {
    ow_script scr;
    if (scr=onpress_a_get_script_npc     (n, role, direction)) return scr;
    if (scr=onpress_a_get_script_signpost(n, role, direction)) return scr;
    if (scr=onpress_a_get_script_block   (n, role, direction)) return scr;
    if (scr=surf                         (n, role, direction)) return scr;
    return 0;
}

// 0806CFF4
ow_script onpress_a_get_script_npc(struct npc_position *n, u8 role, u8 direction) {
    // direction: direction the player is looking

    u8 npc_id = npc_id_by_pos_and_height(
        n->x,
        n->y,
        n->height
    );

    if (npc_id == MAX_NPCS || npc_states[npc_id].local_id == 0xFF) {
        if (!is_role_x80(role)) return 0;

        npc_id = npc_id_by_pos_and_height(
            n->x + directions_i32[direction*2+0],
            n->y + directions_i32[direction*2+1],
            n->height
        );
        if (npc_id == MAX_NPCS || npc_states[npc_id].local_id == 0xFF) return 0;
    }
    if (in_trade_center() && !sub_8063D68(&npc_states[npc_id])) return 0;

    context_npc = npc_id;
    var_800F = npc_states[npc_id].local_id;
    var_800C = direction;
    return sub_8069D8C(var_800F, npc_get_script_by_npc_id(npc_id));
}

// 0806D1F0
ow_script onpress_a_get_script_block(struct npc_position *n, u8 role, u8 d) {
    // d = direction

    var_800C = d;

    if (is_role_x83(role)) return (ow_script)0x081A6955; // (complex stuff. probably for the PC)
    if (is_role_x85(role)) return (ow_script)0x081A6C32; // (complex stuff)
    if (is_role_x81(role)) return (ow_script)0x081A7606; // It`s crammed full of POKeMON books.
    if (is_role_x82(role)) return (ow_script)0x081A760F; // Wow! Tons of POKeMON stuff!
    if (is_role_x90(role)) return (ow_script)0x081A7618; // It should be packed with all kinds of delicious things to eat!
    if (is_role_xA0(role)) return (ow_script)0x081A7633; // It`s a machine of some sort. It sure is impressive.
    if (is_role_x93(role)) return (ow_script)0x081A763C; // It`s a blueprint of some sort. It`s filled with diagrams and text.
    if (is_role_xA1(role)) return (ow_script)0x081A7621; // It`s the latest video game! It sure looks fun!
    if (is_role_xA2(role)) return (ow_script)0x081A7645; // There are obvious signs of burglary here|
    if (is_role_x97(role)) return (ow_script)0x081A762A; // It`s all complicated words and numbers that make no sense|
    if (is_role_xA3(role)) return (ow_script)0x081C549C; // (complex stuff)
    if (is_role_x86(role)) return (ow_script)0x081A764E; // There`s a POKeMON on TV! It looks like it`s having fun.
    if (is_role_x89(role)) return (ow_script)0x081A7657; // Dishes and plates are neatly lined up.
    if (is_role_x8A(role)) return (ow_script)0x081A7660; // It smells delicious! Somebody`s been cooking here.
    if (is_role_x8B(role)) return (ow_script)0x081A7669; // It`s a nicely made dresser. It will hold a lot of stuff.
    if (is_role_x8C(role)) return (ow_script)0x081A7672; // There`s a pile of snacks here.
    if (is_role_x94(role)) return (ow_script)0x081A767B; // It`s a pretty picture of a POKeMON. It looks like it`s feeling good.
    if (is_role_x95(role)) return (ow_script)0x081A7684; // What could this machine be? Better not mess around with it!
    if (is_role_x96(role)) return (ow_script)0x081A768D; // It`s a telephone. Better not use it.
    if (is_role_x98(role)) return (ow_script)0x081A7696; // It`s an advertising poster about all kinds of products.
    if (is_role_x99(role)) return (ow_script)0x081A769F; // Oh, that smells tasty! It might get the stomach growling.
    if (is_role_x9A(role)) return (ow_script)0x081A76A8; // Inside this¦ ¦¦_There`s nothing here!
    if (is_role_x9B(role)) return (ow_script)0x081A76B1; // It`s a cup with a POKeMON mark on it.
    if (is_role_NO1(role)) return (ow_script)0x081A76BA; // The window is very well polished.
    if (is_role_NO2(role)) return (ow_script)0x081A76C3; // Outside the window¦_The sky looks fantastically beautiful.
    if (is_role_x9E(role)) return (ow_script)0x081A76CC; // Lights in different colors are flashing on and off.
    if (is_role_x9F(role)) return (ow_script)0x081A76D5; // All sorts of tools are lined up neatly.
    if (is_role_x8D_and_d_is_x2(role, d)) return (ow_script)0x081BBFD8; // complex stuff.
    if (is_role_x8F(role)) return (ow_script)0x081A7702; // complex stuff.
    if (is_role_x8E_and_d_is_x2(role, d)) return (ow_script)0x081BB8A7; // complex stuff.
    if (is_role_x91(role)) {
        message_signpost = 1;
        return (ow_script)0x081A76F0; // INDIGO PLATEAU_The ultimate goal of TRAINERS! POKeMON LEAGUE HQ
    }
    if (is_role_x92(role)) {
        message_signpost = 1;
        return (ow_script)0x081A76F9; // INDIGO PLATEAU_The highest POKeMON authority! POKeMON LEAGUE HQ
    }
    if (is_role_x88_and_d_is_x2(role, d)) {
        message_signpost = 1;
        return (ow_script)0x081A76DE; // All your item needs fulfilled! POKeMON MART
    }
    if (is_role_x87_and_d_is_x2(role, d)) {
        message_signpost = 1;
        return (ow_script)0x081A76E7; // Heal Your POKeMON! POKeMON CENTER
    }
    return (ow_script)0;
}

// 0806D5E8
bool per_step_2(struct npc_position *n, u16 role, u8 direction) {
    // role = player_pos_to_block_role
    if (mapheader_trigger_activate_at__run_now(n) == 1)
        return 1;
    if (sub_806DA10(n, role) == 1)
        return 1;
    if (is_tile_XX_prevent_per_step_scripts(role) == 1)
        return 1;
    if (per_step_scripts(role) == 1)
        return 1;
    if (walkrun_state.bitfield & 0x40)
        return 0;
    if (is_tile_that_overrides_player_control(role))
        return 0;
    if (repel_per_step() == 1)
        return 1;
    return 0;
}

// 0806D694
bool is_tile_XX_prevent_per_step_scripts(u16 role) {
    return 0;
}