/**
 * d_a_obj_zra_freeze.cpp
 * Object - Frozen Zora
 */

#include "d/dolzel_rel.h" // IWYU pragma: keep

#include "d/actor/d_a_obj_zra_freeze.h"
#include "SSystem/SComponent/c_math.h"
#include "m_Do/m_Do_lib.h"
#include "d/d_com_inf_game.h"
#include "d/actor/d_a_player.h"
#include "f_pc/f_pc_name.h"

static char* l_arcName = "zrF";

static f32 const l_DATA[2] = { 800.0f, 0.0f };

void daZraFreeze_c::setBaseMtx() {
    mDoMtx_stack_c::transS(current.pos.x, current.pos.y, current.pos.z);
    mDoMtx_stack_c::XYZrotM(shape_angle);
    mpModel->setBaseTRMtx(mDoMtx_stack_c::get());
    PSMTXCopy(mDoMtx_stack_c::get(), mMtx);
}

BOOL daZraFreeze_c::chkActorInScreen() {
    cXyz proj;
    cXyz vec[8];
    vec[0].set(mMin.x, mMax.y, mMin.z);
    vec[1].set(mMax.x, mMax.y, mMin.z);
    vec[2].set(mMin.x, mMax.y, mMax.y);
    vec[3].set(mMax.x, mMax.y, mMax.y);
    vec[4].set(mMin.x, mMin.y, mMin.z);
    vec[5].set(mMax.x, mMin.y, mMin.z);
    vec[6].set(mMin.x, mMin.y, mMax.y);
    vec[7].set(mMax.x, mMin.y, mMax.y);
    mDoMtx_stack_c::copy(mMtx);
    mDoMtx_stack_c::transM(0.0f, 0.0f, 0.0f);
    PSMTXMultVecArray(mDoMtx_stack_c::get(), vec, vec, 8);
    for (int i = 0; i < 8; i++) {
        mDoLib_project(&vec[i], &proj);
        if (0.0f < proj.x && proj.x < FB_WIDTH && 0.0f < proj.y && proj.y < FB_HEIGHT) {
            continue;
        }
        return false;
    }
    return true;
}

static int createSolidHeap(fopAc_ac_c* i_this) {
    return static_cast<daZraFreeze_c*>(i_this)->CreateHeap();
}

cPhs_Step daZraFreeze_c::Create() {
    fopAcM_ct(this, daZraFreeze_c);
    field_0x5b0 = (fopAcM_GetParam(this) >> 8) & 0xff;
    field_0x5b1 = (fopAcM_GetParam(this) >> 0x10) & 0xff;
    field_0x5b2 = (fopAcM_GetParam(this) >> 0x18) & 0xff;
    mMapToolId = fopAcM_GetParam(this) & 0xff;
    mEventId = -1;
    cPhs_Step step = dComIfG_resLoad(&mPhaseReq, l_arcName);
    if (step == cPhs_COMPLEATE_e) {
        if (!fopAcM_entrySolidHeap(this, createSolidHeap, 0x1540)) {
            return cPhs_ERROR_e;
        }
        setBaseMtx();
        fopAcM_SetMtx(this, mpModel->getBaseTRMtx());
        J3DJoint* joint = mpModel->getModelData()->getJointNodePointer(0);
        fopAcM_setCullSizeBox(this, joint->getMin()->x, joint->getMin()->y, joint->getMin()->z,
                              joint->getMax()->x, joint->getMax()->y, joint->getMax()->z);
        mMin.set(joint->getMin()->x, joint->getMin()->y, joint->getMin()->z);
        mMax.set(joint->getMax()->x, joint->getMax()->y, joint->getMax()->z);
        mTwilight = dKy_darkworld_check();
        mParticleKey[0] = -1;
        mParticleKey[1] = -1;
        field_0x5cf = 0;
        field_0x5de = cM_rndF(65536.0f);
    }
    return step;
}

int daZraFreeze_c::CreateHeap() {
    static char* l_bmdName[3] = {
        "zrA_a_TW.bmd",
        "zrA_pain_TW.bmd",
        "zrA_sol_TW.bmd",
    };
    J3DModelData* model_data = (J3DModelData*)dComIfG_getObjectRes(l_arcName, l_bmdName[argument]);
    mpModel = mDoExt_J3DModel__create(model_data, 0x80000, 0x11000084);
    if (mpModel == NULL) {
        return 0;
    }
    return 1;
}

void daZraFreeze_c::setHitodamaPrtcl() {
    cXyz pos = current.pos;
    field_0x5dc = (u16)(field_0x5de << 1);
    mParticleOffset.x = 8.0f * cM_ssin(field_0x5de);
    mParticleOffset.y = 4.0f * cM_ssin(field_0x5dc);
    mParticleOffset.z = mParticleOffset.x * -cM_ssin(shape_angle.y);
    mParticleOffset.x *= cM_scos(shape_angle.y);
    field_0x5de += 0x400;
    pos.x = current.pos.x + mParticleOffset.x;
    pos.y = current.pos.y + mParticleOffset.y;
    pos.z = current.pos.z + mParticleOffset.z;
    static u16 const id[2] = { 0x8497, 0x8498 };
    for (int i = 0; i < 2; i++) {
        mParticleKey[i] = dComIfGp_particle_set(mParticleKey[i], id[i], &pos, &shape_angle, NULL);
        JPABaseEmitter* emitter = dComIfGp_particle_getEmitter(mParticleKey[i]);
        if (emitter != NULL) {
            u8 alpha = dComIfGs_wolfeye_effect_check() == false ? 0xff : 0;
            emitter->setGlobalTranslation(pos.x, pos.y, pos.z);
            emitter->setGlobalAlpha(alpha);
        }
    }
}

int daZraFreeze_c::Execute() {
    if (field_0x5b0 == 0xff || dComIfGs_isSwitch(field_0x5b0, fopAcM_GetRoomNo(this))) {
        setBaseMtx();
        csXyz stored_shape_angle = shape_angle;
        shape_angle.x = 0;
        shape_angle.z = 0;
        setHitodamaPrtcl();
        shape_angle = stored_shape_angle;
        if (field_0x5b1 != 0xff && dComIfGs_isSwitch(field_0x5b1, fopAcM_GetRoomNo(this))) {
            if (!dComIfGs_isSwitch(field_0x5b2, fopAcM_GetRoomNo(this))) {
                if (mTwilight != 0 && daPy_py_c::checkNowWolfEyeUp()) {
                    cXyz delta = current.pos - daPy_getPlayerActorClass()->current.pos;
                    if (delta.absXZ() < l_DATA[0] && chkActorInScreen()) {
                        mEventId = dComIfGp_getEventManager().getEventIdx(this, "zora_koori", 0xff);
                        fopAcM_orderOtherEventId(this, mEventId, mMapToolId, 0xffff, 4, 1);
                        dComIfGs_onSwitch(field_0x5b2, fopAcM_GetRoomNo(this));
                        daPy_getPlayerActorClass()->onWolfEyeKeep();
                        dComIfGs_sense_type_change_Set(1);
                        field_0x5cf = 1;
                    }
                }
            } else {
                if (dComIfGp_event_runCheck()) {
                    if (eventInfo.checkCommandDemoAccrpt()) {
                        daPy_getPlayerActorClass()->onWolfEyeKeep();
                    } else if (field_0x5cf == 1) {
                        dComIfGs_sense_type_change_Set(-1);
                        field_0x5cf = 0;
                    }
                } else if (field_0x5cf == 1) {
                    dComIfGs_sense_type_change_Set(-1);
                    field_0x5cf = 0;
                }
            }
        }
    }
    return 1;
}

int daZraFreeze_c::Draw() {
    if (field_0x5b0 == 0xff || dComIfGs_isSwitch(field_0x5b0, fopAcM_GetRoomNo(this))) {
        if (mTwilight != 0 && dComIfGs_wolfeye_effect_check() == true) {
            g_env_light.settingTevStruct(4, &current.pos, &tevStr);
            g_env_light.setLightTevColorType_MAJI(mpModel, &tevStr);
            mDoExt_modelUpdateDL(mpModel);
        }
    }
    return 1;
}

int daZraFreeze_c::Delete() {
    dComIfG_resDelete(&mPhaseReq, l_arcName);
    return 1;
}

static int daZraFreeze_Draw(daZraFreeze_c* i_this) {
    return i_this->Draw();
}

static int daZraFreeze_Execute(daZraFreeze_c* i_this) {
    return i_this->Execute();
}

static int daZraFreeze_IsDelete(daZraFreeze_c* i_this) {
    return 1;
}

static int daZraFreeze_Delete(daZraFreeze_c* i_this) {
    return i_this->Delete();
}

static cPhs_Step daZraFreeze_create(fopAc_ac_c* i_this) {
    return static_cast<daZraFreeze_c*>(i_this)->Create();
}

static actor_method_class l_daZraFreeze_Method = {
    (process_method_func)daZraFreeze_create,
    (process_method_func)daZraFreeze_Delete,
    (process_method_func)daZraFreeze_Execute,
    (process_method_func)daZraFreeze_IsDelete,
    (process_method_func)daZraFreeze_Draw,
};

actor_process_profile_definition g_profile_OBJ_ZRAFREEZE = {
    /* Layer ID     */ fpcLy_CURRENT_e,
    /* List ID      */ 7,
    /* List Prio    */ fpcPi_CURRENT_e,
    /* Proc Name    */ fpcNm_OBJ_ZRAFREEZE_e,
    /* Proc SubMtd  */ &g_fpcLf_Method.base,
    /* Size         */ sizeof(daZraFreeze_c),
    /* Size Other   */ 0,
    /* Parameters   */ 0,
    /* Leaf SubMtd  */ &g_fopAc_Method.base,
    /* Draw Prio    */ fpcDwPi_OBJ_ZRAFREEZE_e,
    /* Actor SubMtd */ &l_daZraFreeze_Method,
    /* Status       */ fopAcStts_UNK_0x40000_e | fopAcStts_UNK_0x4000_e | fopAcStts_CULL_e,
    /* Group        */ fopAc_ACTOR_e,
    /* Cull Type    */ fopAc_CULLBOX_CUSTOM_e,
};