/**
 * @file d_a_obj_magLiftRot.cpp
 * 
*/

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

#include "d/actor/d_a_obj_magLiftRot.h"
#include "d/d_com_inf_game.h"
#include "f_pc/f_pc_name.h"
#if DEBUG
#include "m_Do/m_Do_hostIO.h"
#endif
#include "d/d_bg_w.h"
#include "SSystem/SComponent/c_math.h"

static char* l_arcName[3] = {"MagLiftS", "MagLiftM", "MagLiftL"};

daMagLiftRot_HIO_c::daMagLiftRot_HIO_c() {
    mWaitTime = 60;
    mInitSpeed = 0.0f;
    mAcceleration = 0.05f;
    mMaxSpeed = 8.0f;
    mShakeStrength = 200.0f;
    mShakeAmpY = 45.0f;
    mShakeDecay = 0.1f;
    mMaxShakeDecay = 10.0f;
    mMinShakeDecay = 1.0f;
    mMoveStrength = 7.0f;
    mMoveAmpX = 60.0f;
    mMoveAmpZ = 30.0f;
    mMoveDecay = 0.3f;
    mMaxMoveDecay = 30.0f;
    mMinMoveDecay = 1.0f;
}

void daMagLiftRot_c::setBaseMtx() {
    scale.x = field_0x62c;
    scale.y = 1.0f;
    scale.z = field_0x630;

    mDoMtx_stack_c::transS(current.pos.x, current.pos.y, current.pos.z);
    mDoMtx_stack_c::ZXYrotM(current.angle.x, current.angle.y, current.angle.z);
    mDoMtx_stack_c::ZXYrotM(field_0x5e6.x, field_0x5e6.y, field_0x5e6.z);
    mDoMtx_stack_c::transM(field_0x5ec.x, field_0x5ec.y, field_0x5ec.z);
    mDoMtx_stack_c::scaleM(scale.x, scale.y, scale.z);

    cXyz dbg_0x8(1.0f, 1.0f, 1.0f);
    mpModel->setBaseScale(dbg_0x8);

    mpModel->setBaseTRMtx(mDoMtx_stack_c::get());
    MTXCopy(mDoMtx_stack_c::get(), mBgMtx);
}


static int const l_bmdIdx[] = {4, 4, 6};

static int const l_dzbIdx[] = {7, 7, 15};

static int const l_btkIdx[] = {-1, -1, 12};

static int const l_brkIdx[] = {-1, -1, 9};

int daMagLiftRot_c::CreateHeap() {
    J3DModelData* modelData =
        (J3DModelData*)dComIfG_getObjectRes(l_arcName[mType], l_bmdIdx[mType]);
    mpModel = mDoExt_J3DModel__create(modelData, 0x80000, 0x11000284);
    if (mpModel == NULL) {
        return 0;
    }

    if (l_btkIdx[mType] != -1) {
        J3DAnmTextureSRTKey* res =
            (J3DAnmTextureSRTKey*)dComIfG_getObjectRes(l_arcName[mType], l_btkIdx[mType]);
        mBtk.init(modelData, res, TRUE, J3DFrameCtrl::EMode_LOOP, 1.0f, 0, -1);
    }

    if (l_brkIdx[mType] != -1) {
        J3DAnmTevRegKey* res =
            (J3DAnmTevRegKey*)dComIfG_getObjectRes(l_arcName[mType], l_brkIdx[mType]);
        mBrk.init(modelData, res, TRUE, J3DFrameCtrl::EMode_LOOP, 1.0f, 0, -1);
    }

    return 1;
}

int daMagLiftRot_c::create() {
    fopAcM_ct(this, daMagLiftRot_c);

    mType = 0;

    u8 prm = (fopAcM_GetParam(this) >> 8) & 0xFF;
    if (prm == 0 || prm == 0xFF) {
        mType = (fopAcM_GetParam(this) >> 0x10) & 0xFF;
    }

    int phase = dComIfG_resLoad(&mPhase, l_arcName[mType]);
    if (phase == cPhs_COMPLEATE_e) {
        u32 tmp = 0x1500;
        if (mType == 2) {
            tmp = 0x2500;
        }

        if (MoveBGCreate(l_arcName[mType], l_dzbIdx[mType], dBgS_MoveBGProc_TypicalRotY, tmp,
                         NULL) == cPhs_ERROR_e)
        {
            return cPhs_ERROR_e;
        }

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

        mpBgW->onStickWall();
        mpBgW->onStickRoof();

        field_0x5e1 = fopAcM_GetParam(this) & 0xFF;
        field_0x5e2 = -0x8000;
        field_0x5e4 = 0;

        if (field_0x5e1 == 0) {
            current.angle.y += 0x8000;
        }

        u8 prm = (fopAcM_GetParam(this) >> 8) & 0xFF;
        if (prm == 0 || prm == 0xFF) {
            field_0x62c = 1.0f;
        } else {
            field_0x62c = prm * 0.5f;
        }

        u8 prm2 = (fopAcM_GetParam(this) >> 0x10) & 0xFF;
        if (prm2 == 0 || prm2 == 0xFF) {
            field_0x630 = 1.0f;
        } else if (prm == 0 || prm == 0xFF) {
            field_0x630 = 1.0f;
        } else {
            field_0x630 = prm2 * 0.5f;
        }

        u8 prm3 = (fopAcM_GetParam(this) >> 0x18) & 0xFF;
        setBaseMtx();

        if (prm3 == 0xFF) {
            init_modeWait();
        } else {
            init_modeMoveWait();
        }

        mTimer = 0;
        field_0x5f8 = 0.0f;
        field_0x5e6.x = 0;
        field_0x5e6.y = 0;
        field_0x5e6.z = 0;
        mShakeStrength = 0.0f;
        mMoveStrength = 0.0f;
        field_0x5ec.x = 0.0f;
        field_0x5ec.y = 0.0f;
        field_0x5ec.z = 0.0f;
        mShakeYAmp = 0.0f;
        field_0x600 = 0.0f;
        mShakeDecay = 0.0f;
        mMaxShakeDecay = 0.0f;
        mMinShakeDecay = 0.0f;
        mXMoveAmp = 0.0f;
        mZMoveAmp = 0.0f;
        mMoveDecay = 0.0f;
        mMaxMoveDecay = 0.0f;
        mMinMoveDecay = 0.0f;
    }

    return phase;
}

int daMagLiftRot_c::Execute(Mtx** param_0) {
    moveLift();

    if (l_btkIdx[mType] != -1) {
        mBtk.play();
    }

    if (l_brkIdx[mType] != -1) {
        mBrk.play();
    }

    *param_0 = &mpModel->getBaseTRMtx();
    setBaseMtx();
    return 1;
}

static daMagLiftRot_HIO_c l_HIO;

void daMagLiftRot_c::moveLift() {
    typedef void (daMagLiftRot_c::*modeFunc)();
    static modeFunc mode_proc[] = {&daMagLiftRot_c::modeMove, &daMagLiftRot_c::modeWait,
                                   &daMagLiftRot_c::modeMoveWait};

    (this->*mode_proc[mMode])();

    field_0x5e6.z = mShakeStrength * cM_scos(field_0x5f8 * cM_deg2s(mShakeYAmp));
    cLib_addCalc(&mShakeStrength, 0.0f, mShakeDecay, mMaxShakeDecay, mMinShakeDecay);

    field_0x5ec.x = mMoveStrength * cM_scos(field_0x5f8 * cM_deg2s(mXMoveAmp));
    field_0x5ec.y = mMoveStrength * cM_ssin(field_0x5f8 * cM_deg2s(mZMoveAmp));
    cLib_addCalc(&mMoveStrength, 0.0f, mMoveDecay, mMaxMoveDecay, mMinMoveDecay);

    field_0x5f8 += 1.0f;
}

void daMagLiftRot_c::init_modeMove() {
    fopAcM_SetSpeedF(this, l_HIO.mInitSpeed);

    static u32 selLabel[] = {Z2SE_OBJ_MAGNELIFT_TURN_S, Z2SE_OBJ_MAGNELIFT_TURN_M,
                                  Z2SE_OBJ_MAGNELIFT_TURN_L};

    if (mType != 2) {
        mDoMtx_stack_c::ZXYrotS(shape_angle.x, shape_angle.y, shape_angle.z);

        cXyz sp20(0.0f, 0.0f, 0.0f);
        mDoMtx_stack_c::multVec(&sp20, &sp20);
        sp20 += current.pos;

        mDoAud_seStart(selLabel[mType], &sp20, 0, dComIfGp_getReverb(fopAcM_GetRoomNo(this)));
    } else {
        mDoMtx_stack_c::ZXYrotS(shape_angle.x, shape_angle.y, shape_angle.z);

        cXyz sp2C(0.0f, 0.0f, 1515.0f);
        mDoMtx_stack_c::multVec(&sp2C, &sp2C);
        sp2C += current.pos;

        cXyz sp38(0.0f, 0.0f, -1515.0f);
        mDoMtx_stack_c::multVec(&sp38, &sp38);
        sp38 += current.pos;

        mDoAud_seStart(selLabel[mType], &sp2C, 0, dComIfGp_getReverb(fopAcM_GetRoomNo(this)));
        mDoAud_seStart(selLabel[mType], &sp38, 0, dComIfGp_getReverb(fopAcM_GetRoomNo(this)));
    }

    mMode = 0;
}


void daMagLiftRot_c::modeMove() {
    cLib_chaseF(&speedF, l_HIO.mMaxSpeed, l_HIO.mAcceleration);

    if (cLib_addCalcAngleS(&current.angle.z, field_0x5e2, 1, DEG2S(fopAcM_GetSpeedF(this)), 1) == 0)
    {
        field_0x5e2 += 0x8000;
        field_0x5e4 = 0;
        init_modeWait();
    }
}


void daMagLiftRot_c::init_modeWait() {
    static u32 selLabel[] = {Z2SE_OBJ_MAGNELIFT_STOP_S, Z2SE_OBJ_MAGNELIFT_STOP_M,
                                  Z2SE_OBJ_MAGNELIFT_STOP_L};
    if (mType != 2) {
        mDoMtx_stack_c::ZXYrotS(shape_angle.x, shape_angle.y, shape_angle.z);

        cXyz sp20(0.0f, 0.0f, 0.0f);
        mDoMtx_stack_c::multVec(&sp20, &sp20);
        sp20 += current.pos;

        mDoAud_seStart(selLabel[mType], &sp20, 0, dComIfGp_getReverb(fopAcM_GetRoomNo(this)));
    } else {
        mDoMtx_stack_c::ZXYrotS(shape_angle.x, shape_angle.y, shape_angle.z);

        cXyz sp2C(0.0f, 0.0f, 1515.0f);
        mDoMtx_stack_c::multVec(&sp2C, &sp2C);
        sp2C += current.pos;

        cXyz sp38(0.0f, 0.0f, -1515.0f);
        mDoMtx_stack_c::multVec(&sp38, &sp38);
        sp38 += current.pos;

        mDoAud_seStart(selLabel[mType], &sp2C, 0, dComIfGp_getReverb(fopAcM_GetRoomNo(this)));
        mDoAud_seStart(selLabel[mType], &sp38, 0, dComIfGp_getReverb(fopAcM_GetRoomNo(this)));
    }

    mTimer = l_HIO.mWaitTime;
    mShakeStrength = l_HIO.mShakeStrength;
    mShakeYAmp = l_HIO.mShakeAmpY;
    mShakeDecay = l_HIO.mShakeDecay;
    mMaxShakeDecay = l_HIO.mMaxShakeDecay;
    mMinShakeDecay = l_HIO.mMinShakeDecay;
    mMoveStrength = l_HIO.mMoveStrength;
    mXMoveAmp = l_HIO.mMoveAmpX;
    mZMoveAmp = l_HIO.mMoveAmpZ;
    mMoveDecay = l_HIO.mMoveDecay;
    mMaxMoveDecay = l_HIO.mMaxMoveDecay;
    mMinMoveDecay = l_HIO.mMinMoveDecay;
    mMode = 1;
}


void daMagLiftRot_c::modeWait() {
    if (mTimer == 0) {
        init_modeMove();
    } else {
        mTimer--;
    }
}

void daMagLiftRot_c::init_modeMoveWait() {
    mMode = 2;
}

void daMagLiftRot_c::modeMoveWait() {
    u8 sw_on = fopAcM_isSwitch(this, (fopAcM_GetParam(this) >> 0x18) & 0xFF);

    if (sw_on) {
        mTimer = 15;
        init_modeWait();
    }
}

int daMagLiftRot_c::Draw() {
    g_env_light.settingTevStruct(0x40, &current.pos, &tevStr);
    g_env_light.setLightTevColorType_MAJI(mpModel, &tevStr);

    J3DModelData* modelData = mpModel->getModelData();
    if (l_btkIdx[mType] != -1) {
        mBtk.entry(modelData);
    }

    if (l_brkIdx[mType] != -1) {
        mBrk.entry(modelData);
    }

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

int daMagLiftRot_c::Delete() {
    dComIfG_resDelete(&mPhase, l_arcName[mType]);
    return 1;
}

static int daMagLiftRot_Draw(daMagLiftRot_c* i_this) {
    return i_this->MoveBGDraw();
}

static int daMagLiftRot_Execute(daMagLiftRot_c* i_this) {
    return i_this->MoveBGExecute();
}

static int daMagLiftRot_Delete(daMagLiftRot_c* i_this) {
    return i_this->MoveBGDelete();
}

static int daMagLiftRot_Create(fopAc_ac_c* i_this) {
    return static_cast<daMagLiftRot_c*>(i_this)->create();
}

static actor_method_class l_daMagLiftRot_Method = {
    (process_method_func)daMagLiftRot_Create,
    (process_method_func)daMagLiftRot_Delete,
    (process_method_func)daMagLiftRot_Execute,
    0,
    (process_method_func)daMagLiftRot_Draw,
};

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