-- name: Noclip
-- incompatible: noclip
-- description: Noclip v1.1.4\nBy \\#ec7731\\Agent X\\#dcdcdc\\\n\nThis mod is a utility mod that improves\nACT_DEBUG_FREE_MOVE and makes it easily accessible without the development build.
-- pausable: true

local cur_obj_scale,network_local_index_from_global,obj_mark_for_deletion,vec3f_to_object_pos,load_object_collision_model,set_first_person_enabled,set_mario_action,set_character_anim_with_accel,set_character_animation,vec3f_add,vec3f_copy,vec3f_length,vec3s_set,cur_obj_hide,cur_obj_unhide,obj_get_first_with_behavior_id,obj_get_next_with_same_behavior_id,spawn_non_sync_object,djui_chat_message_create = cur_obj_scale,network_local_index_from_global,obj_mark_for_deletion,vec3f_to_object_pos,load_object_collision_model,set_first_person_enabled,set_mario_action,set_character_anim_with_accel,set_character_animation,vec3f_add,vec3f_copy,vec3f_length,vec3s_set,cur_obj_hide,cur_obj_unhide,obj_get_first_with_behavior_id,obj_get_next_with_same_behavior_id,spawn_non_sync_object,djui_chat_message_create

local ACT_NOCLIP = allocate_mario_action(ACT_GROUP_CUTSCENE | ACT_FLAG_AIR)

local H_SPEED = 30
local V_SPEED = 20

local mquake = _G.mQuake_API ~= nil
local firstPersonEnabled = mquake

--- @param cond boolean
--- Human readable ternary operator
local function if_then_else(cond, ifTrue, ifFalse)
    if cond then return ifTrue end
    return ifFalse
end

--- @param value boolean
--- Returns an on or off string depending on value
function on_or_off(value)
    if value then return "\\#00ff00\\ON" end
    return "\\#ff0000\\OFF"
end

--- @param m MarioState
--- Checks if a player is currently active
function active_player(m)
    local np = gNetworkPlayers[m.playerIndex]
    if m.playerIndex == 0 then
        return true
    end
    if not np.connected then
        return false
    end
    if np.currCourseNum ~= gNetworkPlayers[0].currCourseNum then
        return false
    end
    if np.currActNum ~= gNetworkPlayers[0].currActNum then
        return false
    end
    if np.currLevelNum ~= gNetworkPlayers[0].currLevelNum then
        return false
    end
    if np.currAreaIndex ~= gNetworkPlayers[0].currAreaIndex then
        return false
    end
    return true
end


--- @param o Object
local function bhv_noclip_floor_init(o)
    cur_obj_scale(2)
    o.collisionData = gGlobalObjectCollisionData.metal_box_seg8_collision_08024C28
    o.oCollisionDistance = 99999
end

--- @param o Object
local function bhv_noclip_floor_loop(o)
    local m = gMarioStates[network_local_index_from_global(o.globalPlayerIndex)]
    if m.action ~= ACT_NOCLIP then
        obj_mark_for_deletion(o)
        return
    end

    vec3f_to_object_pos(o, m.pos)
    o.oPosY = gLevelValues.floorLowerLimit

    load_object_collision_model()
end

local id_bhvNoclipFloor = hook_behavior(nil, OBJ_LIST_SURFACE, true, bhv_noclip_floor_init, bhv_noclip_floor_loop)


--- @param m MarioState
local function act_noclip(m)
    if (m.controller.buttonPressed & L_TRIG) ~= 0 and m.marioObj.oTimer > 10 then
        if m.playerIndex == 0 and firstPersonEnabled then
            set_first_person_enabled(false)
        end
        return set_mario_action(m, if_then_else(m.pos.y <= m.waterLevel - 100, ACT_WATER_IDLE, ACT_IDLE), 0)
    end

    local vel = { x = 0, y = 0, z = 0 }
    local speed = if_then_else((m.controller.buttonDown & B_BUTTON) ~= 0, 1, 4)

    if m.intendedMag > 0 then
        vel.x = H_SPEED * speed * sins(m.intendedYaw)
        vel.z = H_SPEED * speed * coss(m.intendedYaw)
        set_character_anim_with_accel(m, CHAR_ANIM_WALKING, 65536 * speed * 1.5)
    else
        set_character_animation(m, CHAR_ANIM_DOUBLE_JUMP_FALL)
    end
    if (m.controller.buttonDown & A_BUTTON) ~= 0 then
        vel.y = V_SPEED * speed
    end
    if (m.controller.buttonDown & Z_TRIG) ~= 0 then
        vel.y = vel.y - V_SPEED * speed
    end

    vec3f_add(m.pos, vel)
    vec3f_copy(m.vel, vel)
    m.forwardVel = vec3f_length({ x = vel.x, y = 0, z = m.vel.z })

    m.faceAngle.y = m.intendedYaw
    vec3f_copy(m.marioObj.header.gfx.pos, m.pos)
    vec3s_set(m.marioObj.header.gfx.angle, 0, m.faceAngle.y, 0)

    if (m.controller.buttonDown & X_BUTTON) ~= 0 then
        cur_obj_hide()
    else
        cur_obj_unhide()
    end

    if m.playerIndex == 0 and SM64COOPDX_VERSION ~= nil then
        set_first_person_enabled(firstPersonEnabled)
    end

    return 0
end

--- @param m MarioState
local function mario_update(m)
    if network_player_connected_count() == 1 and m.playerIndex > 0 then return end -- optimization
    if active_player(m) == 0 then return end

    if (m.action == ACT_DEBUG_FREE_MOVE or ((m.controller.buttonDown & L_TRIG) ~= 0 and (m.controller.buttonDown & Z_TRIG) ~= 0)) then
        set_mario_action(m, ACT_NOCLIP, 0)
    end

    if m.action ~= ACT_NOCLIP then return end

    local spawned = false
    local noclipFloor = obj_get_first_with_behavior_id(id_bhvNoclipFloor)
    while noclipFloor ~= nil do
        if noclipFloor.globalPlayerIndex == gNetworkPlayers[m.playerIndex].globalIndex then
            spawned = true
            break
        end
        noclipFloor = obj_get_next_with_same_behavior_id(noclipFloor)
    end

    if not spawned then
        spawn_non_sync_object(
            id_bhvNoclipFloor,
            E_MODEL_NONE,
            m.pos.x, gLevelValues.floorLowerLimit, m.pos.z,
            --- @param obj Object
            function(obj)
                obj.globalPlayerIndex = gNetworkPlayers[m.playerIndex].globalIndex
            end
        )
    end
end


local function on_noclip_fp_command()
    firstPersonEnabled = not firstPersonEnabled
    djui_chat_message_create("[Noclip] First person status: " .. on_or_off(firstPersonEnabled))
    return true
end

if mquake then
    _G.mQuake_API.actions.set_allow_action(ACT_NOCLIP, 1)
end

hook_event(HOOK_MARIO_UPDATE, mario_update)

if SM64COOPDX_VERSION ~= nil then
    hook_chat_command("noclip-fp", "- Toggles first person noclip on or off", on_noclip_fp_command)
end

hook_mario_action(ACT_NOCLIP, act_noclip)