/**
 * @file d_a_obj_lv4RailWall.cpp
 * 
*/

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

#include "d/actor/d_a_obj_lv4RailWall.h"
#include "d/actor/d_a_obj_swspinner.h"
#include "d/actor/d_a_b_ds.h"
#include "d/d_s_play.h"

static char* l_arcName = "P_L4Rwall";

static void* s_BossSearch(void* i_actor, void* i_data) {
    if (fopAcM_IsActor(i_actor) && fopAcM_GetName(i_actor) == fpcNm_B_DS_e) {
        return i_actor;
    }

    return NULL;
}

void daObjLv4Wall_c::initBaseMtx() {
    mpModel->setBaseScale(scale);
    setBaseMtx();
}

void daObjLv4Wall_c::setBaseMtx() {
    mDoMtx_stack_c::transS(current.pos.x, current.pos.y + mHeight, current.pos.z);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mpModel->setBaseTRMtx(mDoMtx_stack_c::get());
    MTXCopy(mDoMtx_stack_c::get(), mBgMtx);
}

int daObjLv4Wall_c::Create() {
    if (fopAcM_isSwitch(this, getSwbit()) || dComIfGs_isStageBossEnemy() || BREG_S(9) != 0) {
        mHeight = 3375.0f;
        mode_init_dead();
        fopAcM_onSwitch(this, getSwbit());
    } else {
        mHeight = 0.0f;
        mode_init_wait();
    }

    initBaseMtx();
    fopAcM_SetMtx(this, mpModel->getBaseTRMtx());
    fopAcM_setCullSizeBox2(this, mpModel->getModelData());

    cXyz swpos(current.pos);
    swpos.y -= 1700.0f;

    fopAcM_createChild(fpcNm_Obj_SwSpinner_e, fopAcM_GetID(this), getSwbit() << 8, &swpos, fopAcM_GetRoomNo(this), NULL, NULL, -1, NULL);
    mpSwSpinner = NULL;
    return 1;
}

int daObjLv4Wall_c::CreateHeap() {
    J3DModelData* modelData = (J3DModelData*)dComIfG_getObjectRes(l_arcName, 4);
    JUT_ASSERT(217, modelData != NULL);
    mpModel = mDoExt_J3DModel__create(modelData, J3DMdlFlag_DifferedDLBuffer, BMD_DEFAULT_DIFF_FLAGS);
    if (mpModel == NULL) {
        return 0;
    }

    return 1;
}

int daObjLv4Wall_c::create1st() {
    int phase_state = dComIfG_resLoad(&mPhase, l_arcName);
    if (phase_state == cPhs_COMPLEATE_e) {
        phase_state = MoveBGCreate(l_arcName, 7, dBgS_MoveBGProc_TypicalRotY, 0x7350, NULL);
        if (phase_state == cPhs_ERROR_e) {
            return phase_state;
        }
    }

    return phase_state;
}

int daObjLv4Wall_c::Execute(Mtx** param_0) {
    if (mpSwSpinner == NULL) {
        mpSwSpinner = (daObjSwSpinner_c*)fopAcM_SearchByName(fpcNm_Obj_SwSpinner_e);
    }

    if (mpSwSpinner == NULL) {
        return 1;
    }

    action();

    cXyz swpos(current.pos);
    swpos.y += mHeight - 1700.0f;

    fopAcM_SetPosition(mpSwSpinner, swpos.x, swpos.y, swpos.z);
    *param_0 = &mBgMtx;
    setBaseMtx();
    return 1;
}

void daObjLv4Wall_c::action() {
    static void (daObjLv4Wall_c::*l_func[])() = {
        &daObjLv4Wall_c::mode_wait,
        &daObjLv4Wall_c::mode_move,
        &daObjLv4Wall_c::mode_dead,
    };

    (this->*l_func[mMode])();
    eventUpdate();
}

void daObjLv4Wall_c::mode_init_wait() {
    mMode = MODE_WAIT;
}

void daObjLv4Wall_c::mode_wait() {
    if ((mpSwSpinner->GetRotSpeedY() / 4096.0f) > 0.7f) {
        mRotCounter++;
        if (mRotCounter > 100) {
            mode_init_move();

            daB_DS_c* boss = (daB_DS_c*)fpcM_Search(s_BossSearch, this);
            boss->onDemo();
            return;
        }
    } else {
        mRotCounter = 0;
    }
}

void daObjLv4Wall_c::mode_init_move() {
    fopAcM_onSwitch(this, getSwbit());
    speed.y = 0.0f;
    gravity = 0.0f;
    mMoveCounter = 0;
    mMode = MODE_MOVE;
}

void daObjLv4Wall_c::mode_move() {
    static const f32 l_spd_tbl[] = {
        0.0f,
        1.0f,
        1.5f,
        2.2f,
        3.7f,
        6.0f,
        10.0f,
        14.0f,
        17.0f,
        17.0f,
        15.0f,
        12.5f,
        9.5f,
        6.0f,
        3.0f,
        3.0f,
        3.0f
    };

    mMoveCounter++;
    f32 prev_speed = speed.y;

    u32 spd_chkpoint = mMoveCounter / 30;
    if (spd_chkpoint > 15) {
        spd_chkpoint = 15;
    }

    cLib_chaseF(&speed.y, l_spd_tbl[spd_chkpoint + 1], (l_spd_tbl[spd_chkpoint + 1] - l_spd_tbl[spd_chkpoint]) / 30.0f);
    BOOL is_target_height = cLib_chaseF(&mHeight, 3375.0f, speed.y);

    if (mMoveCounter == 5) {
        dComIfGp_getVibration().StartQuake(2, 0xF, cXyz(0.0f, 1.0f, 0.0f));
    } else if (mMoveCounter > 5) {
        if (prev_speed < 4.0f && speed.y >= 4.0f) {
            dComIfGp_getVibration().StartQuake(4, 0xF, cXyz(0.0f, 1.0f, 0.0f));
        } else if (prev_speed < 10.0f && speed.y >= 10.0f) {
            dComIfGp_getVibration().StartQuake(8, 0xF, cXyz(0.0f, 1.0f, 0.0f));
        } else if (prev_speed > 10.0f && speed.y <= 10.0f) {
            dComIfGp_getVibration().StartQuake(4, 0xF, cXyz(0.0f, 1.0f, 0.0f));
        } else if (prev_speed > 4.0f && speed.y <= 4.0f) {
            dComIfGp_getVibration().StartQuake(2, 0xF, cXyz(0.0f, 1.0f, 0.0f));
        }
    }

    if (is_target_height) {
        daB_DS_c* boss = (daB_DS_c*)fpcM_Search(s_BossSearch, this);
        boss->offDemo();

        fopAcM_seStart(this, Z2SE_OBJ_DS_CLMN_UP_ST, 0);
        dComIfGp_getVibration().StopQuake(0x1F);
        dComIfGp_getVibration().StartShock(8, 0x1F, cXyz(0.0f, 1.0f, 0.0f));
        mode_init_dead();
        return;
    }

    eyePos = current.pos;
    eyePos.y += mHeight;
    fopAcM_seStartLevel(this, Z2SE_OBJ_DS_CLMN_UP, 0);
}

void daObjLv4Wall_c::mode_init_dead() {
    mMode = MODE_DEAD;
}

void daObjLv4Wall_c::mode_dead() {}

bool daObjLv4Wall_c::eventStart() {
    dComIfGp_getVibration().StartQuake(4, 0xF, cXyz(0.0f, 1.0f, 0.0f));
    mode_init_move();
    return 1;
}

int daObjLv4Wall_c::Draw() {
    g_env_light.settingTevStruct(16, &current.pos, &tevStr);
    g_env_light.setLightTevColorType_MAJI(mpModel, &tevStr);

    dComIfGd_setListBG();
    mDoExt_modelUpdateDL(mpModel);
    dComIfGd_setList();
    return 1;
}

int daObjLv4Wall_c::Delete() {
    dComIfG_resDelete(&mPhase, l_arcName);
    return 1;
}

static int daObjLv4Wall_create1st(daObjLv4Wall_c* i_this) {
    fopAcM_ct(i_this, daObjLv4Wall_c);
    return i_this->create1st();
}

static int daObjLv4Wall_MoveBGDelete(daObjLv4Wall_c* i_this) {
    return i_this->MoveBGDelete();
}

static int daObjLv4Wall_MoveBGExecute(daObjLv4Wall_c* i_this) {
    return i_this->MoveBGExecute();
}

static int daObjLv4Wall_MoveBGDraw(daObjLv4Wall_c* i_this) {
    return i_this->MoveBGDraw();
}

static actor_method_class daObjLv4Wall_METHODS = {
    (process_method_func)daObjLv4Wall_create1st,
    (process_method_func)daObjLv4Wall_MoveBGDelete,
    (process_method_func)daObjLv4Wall_MoveBGExecute,
    0,
    (process_method_func)daObjLv4Wall_MoveBGDraw,
};

actor_process_profile_definition g_profile_Obj_Lv4RailWall = {
    /* Layer ID     */ fpcLy_CURRENT_e,
    /* List ID      */ 3,
    /* List Prio    */ fpcPi_CURRENT_e,
    /* Proc Name    */ fpcNm_Obj_Lv4RailWall_e,
    /* Proc SubMtd  */ &g_fpcLf_Method.base,
    /* Size         */ sizeof(daObjLv4Wall_c),
    /* Size Other   */ 0,
    /* Parameters   */ 0,
    /* Leaf SubMtd  */ &g_fopAc_Method.base,
    /* Draw Prio    */ fpcDwPi_Obj_Lv4RailWall_e,
    /* Actor SubMtd */ &daObjLv4Wall_METHODS,
    /* Status       */ fopAcStts_UNK_0x40000_e | fopAcStts_CULL_e,
    /* Group        */ fopAc_ACTOR_e,
    /* Cull Type    */ fopAc_CULLBOX_CUSTOM_e,
};