/**
 * @file d_a_obj_mvstair.cpp
 * 
*/

#include "d/actor/d_a_obj_mvstair.h"
#include "d/d_com_inf_game.h"
#include "d/d_s_play.h"

/* 80C9E8AC-80C9E8B4 000000 0008+00 4/4 0/0 0/0 .rodata          l_bmdName */
static const int l_bmdName[] = {4, 4};

/* 80C9E8B4-80C9E8BC 000008 0008+00 1/1 0/0 0/0 .rodata          l_dzbName */
static const int l_dzbName[] = {7, 7};

/* 80C9E8BC-80C9E8D4 000010 0018+00 1/2 0/0 0/0 .rodata          l_move_len */
static const f32 l_move_len[] = {
    150.0f,
    300.0f,
    450.0f,
    600.0f,
    500.0f,
    550.0f,
};

/* 80C9E8D4-80C9E8DC 000028 0008+00 1/1 0/0 0/0 .rodata          l_heap_size */
static const u32 l_heap_size[] = {0xB40, 0x2C60};

/* 80C9D098-80C9D0D4 000078 003C+00 1/1 0/0 0/0 .text            initBaseMtx__12daObjStair_cFv */
void daObjStair_c::initBaseMtx() {
    mpModel->setBaseScale(scale);
    setBaseMtx();
}

/* 80C9D0D4-80C9D148 0000B4 0074+00 2/2 0/0 0/0 .text            setBaseMtx__12daObjStair_cFv */
void daObjStair_c::setBaseMtx() {
    mDoMtx_stack_c::transS(mModelPos.x, mModelPos.y, mModelPos.z);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mpModel->setBaseTRMtx(mDoMtx_stack_c::get());

    MTXCopy(mDoMtx_stack_c::get(), mBgMtx);
}

/* 80C9D148-80C9D2B8 000128 0170+00 1/0 0/0 0/0 .text            Create__12daObjStair_cFv */
int daObjStair_c::Create() {
    fopAcM_SetMtx(this, mpModel->getBaseTRMtx());
    fopAcM_setCullSizeBox2(this, mpModel->getModelData());

    mEventId = dComIfGp_getEventManager().getEventIdx(this, getEvNo());
    u8 swbit = getSwbit();
    u8 swbit2 = getSwbit2();

    if (fopAcM_isSwitch(this, swbit2)) {
        setAction(ACTION_END_e);
        modeWaitLowerInit();
    } else {
        if (getEvNo() == 0xFF) {
            setAction(ACTION_END_e);
        } else {
            setAction(ACTION_WAIT_e);
        }

        BOOL is_swbit = fopAcM_isSwitch(this, swbit);
        int dir = getDir();

        if ((dir == 0 && is_swbit) || (dir == 1 && !is_swbit)) {
            modeWaitLowerInit();
        } else {
            modeWaitUpperInit();
        }
    }

    initBaseMtx();
    mIsSwitch = fopAcM_isSwitch(this, getSwbit());
    mSoundPos = home.pos;
    mSoundPos.y = 600.0f + home.pos.y;
    return 1;
}

UNK_REL_DATA

/* 80C9E940-80C9E948 -00001 0008+00 3/3 0/0 0/0 .data            l_arcName */
static char* l_arcName[2] = {
    "K_mvkai00",
    "Lv9_mvkai",
};

/* 80C9D2B8-80C9D338 000298 0080+00 1/0 0/0 0/0 .text            CreateHeap__12daObjStair_cFv */
int daObjStair_c::CreateHeap() {
    J3DModelData* modelData = (J3DModelData*)dComIfG_getObjectRes(l_arcName[mResType], l_bmdName[mResType]);
    JUT_ASSERT(250, modelData != 0);

    mpModel = mDoExt_J3DModel__create(modelData, 0x80000, 0x11000084);
    if (mpModel == NULL) {
        return 0;
    }

    return 1;
}

/* 80C9D338-80C9D41C 000318 00E4+00 1/1 0/0 0/0 .text            create1st__12daObjStair_cFv */
int daObjStair_c::create1st() {
    mType = getType();
    if (getMdlType() == 7 || getMdlType() == 0) {
        mResType = 0;
    } else if (getMdlType() == 1) {
        mResType = 1;
    }

    int phase_state = dComIfG_resLoad(&mPhase, l_arcName[mResType]);
    if (phase_state == cPhs_COMPLEATE_e) {
        phase_state = MoveBGCreate(l_arcName[mResType], l_dzbName[mResType], dBgS_MoveBGProc_TypicalRotY, l_heap_size[mResType], NULL);
        if (phase_state == cPhs_ERROR_e) {
            return phase_state;
        }

        OS_REPORT("MVSTAIR PARAM:0x%x\n", fopAcM_GetParam(this));
    }

    return phase_state;
}

/* 80C9D41C-80C9D4D8 0003FC 00BC+00 1/1 0/0 0/0 .text            event_proc_call__12daObjStair_cFv
 */
void daObjStair_c::event_proc_call() {
    static int (daObjStair_c::*l_func[])() = {
        &daObjStair_c::actionWait,
        &daObjStair_c::actionOrderEvent,
        &daObjStair_c::actionEvent,
        &daObjStair_c::actionEnd,
    };

    (this->*l_func[mAction])();
}

/* 80C9D4D8-80C9D594 0004B8 00BC+00 1/1 0/0 0/0 .text            mode_proc_call__12daObjStair_cFv */
void daObjStair_c::mode_proc_call() {
    static int (daObjStair_c::*l_func[])() = {
        &daObjStair_c::modeWaitUpper,
        &daObjStair_c::modeUpper,
        &daObjStair_c::modeWaitLower,
        &daObjStair_c::modeLower,
    };

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

/* 80C9D594-80C9D710 000574 017C+00 1/0 0/0 0/0 .text            Execute__12daObjStair_cFPPA3_A4_f
 */
int daObjStair_c::Execute(f32 (**param_0)[3][4]) {
    event_proc_call();
    mode_proc_call();

    *param_0 = &mBgMtx;
    setBaseMtx();

    mIsSwitch = fopAcM_isSwitch(this, getSwbit());

    mParticleLeftPos[0].set(0.0f, 0.0f, -140.0f);
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mDoMtx_stack_c::multVec(&mParticleLeftPos[0], &mParticleLeftPos[0]);

    mParticleLeftPos[1].set(0.0f, 0.0f, 140.0f);
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mDoMtx_stack_c::multVec(&mParticleLeftPos[1], &mParticleLeftPos[1]);

    mParticleRightPos[0].set(-450.0f, 0.0f, 0.0f);
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mDoMtx_stack_c::multVec(&mParticleRightPos[0], &mParticleRightPos[0]);

    mParticleRightPos[1].set(450.0f, 0.0f, 0.0f);
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mDoMtx_stack_c::multVec(&mParticleRightPos[1], &mParticleRightPos[1]);
    return 1;
}

/* 80C9D710-80C9D7B4 0006F0 00A4+00 1/0 0/0 0/0 .text            Draw__12daObjStair_cFv */
int daObjStair_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;
}

/* 80C9D7B4-80C9D82C 000794 0078+00 1/0 0/0 0/0 .text            Delete__12daObjStair_cFv */
int daObjStair_c::Delete() {
    if (mSmokeEmitter != NULL) {
        mSmokeEmitter->becomeInvalidEmitter();
        mSmokeEmitter = NULL;
    }

    removeParticle();
    dComIfG_resDelete(&mPhase, l_arcName[mResType]);
    return 1;
}

/* 80C9D82C-80C9D8EC 00080C 00C0+00 1/0 0/0 0/0 .text            actionWait__12daObjStair_cFv */
int daObjStair_c::actionWait() {
    if (fopAcM_isSwitch(this, getSwbit2())) {
        setAction(ACTION_END_e);
        return 1;
    }

    if (mIsSwitch != fopAcM_isSwitch(this, getSwbit())) {
        setAction(ACTION_ORDER_EVENT_e);
        fopAcM_orderOtherEventId(this, mEventId, getEvNo(), 0xFFFF, 0, 1);
        eventInfo.onCondition(2);
    }

    return 1;
}

/* 80C9D8EC-80C9D95C 0008CC 0070+00 1/0 0/0 0/0 .text            actionOrderEvent__12daObjStair_cFv
 */
int daObjStair_c::actionOrderEvent() {
    if (eventInfo.checkCommandDemoAccrpt()) {
        setAction(ACTION_EVENT_e);
    } else {
        fopAcM_orderOtherEventId(this, mEventId, getEvNo(), 0xFFFF, 0, 1);
        eventInfo.onCondition(2);
    }

    return 1;
}

/* 80C9D95C-80C9D9BC 00093C 0060+00 1/0 0/0 0/0 .text            actionEvent__12daObjStair_cFv */
int daObjStair_c::actionEvent() {
    if (dComIfGp_evmng_endCheck(mEventId)) {
        setAction(ACTION_WAIT_e);
        dComIfGp_event_reset();
    }

    return 1;
}

/* 80C9D9BC-80C9D9C4 00099C 0008+00 1/0 0/0 0/0 .text            actionEnd__12daObjStair_cFv */
int daObjStair_c::actionEnd() {
    return 1;
}

/* 80C9D9C4-80C9D9F4 0009A4 0030+00 2/2 0/0 0/0 .text            modeWaitUpperInit__12daObjStair_cFv
 */
int daObjStair_c::modeWaitUpperInit() {
    current.pos.y = home.pos.y;
    mModelPos = current.pos;
    mMode = MODE_WAIT_UPPER_e;
    return 1;
}

/* 80C9D9F4-80C9DA98 0009D4 00A4+00 1/0 0/0 0/0 .text            modeWaitUpper__12daObjStair_cFv */
int daObjStair_c::modeWaitUpper() {
    int is_swbit = fopAcM_isSwitch(this, getSwbit());
    int dir = getDir();

    if (!fopAcM_isSwitch(this, getSwbit2()) && ((is_swbit && dir == 0) || (!is_swbit && dir == 1))) {
        modeUpperInit();
    }

    return 1;
}

/* 80C9DA98-80C9DADC 000A78 0044+00 1/1 0/0 0/0 .text            modeUpperInit__12daObjStair_cFv */
int daObjStair_c::modeUpperInit() {
    mMoveStartShakeTimer = 30;
    mMoveEndShakeTimer = 15;
    mMoveStartShakeAmount = 3.0f;
    mMoveMode = 0;
    mMoveAccel = 0.0f;
    mMoveStep = 0.0f;
    mMode = MODE_UPPER_e;
    return 1;
}

/* 80C9DADC-80C9DEDC 000ABC 0400+00 1/0 0/0 0/0 .text            modeUpper__12daObjStair_cFv */
int daObjStair_c::modeUpper() {
    f32 move_speed = 50.0f;
    s16 shake_speed = 15000;

    switch (mMoveMode) {
    case 0:
        if (mMoveStartShakeTimer == 0) {
            if (mSmokeEmitter == NULL) {
                cXyz effpos(home.pos);
                effpos.y += 600.0f;
                mSmokeEmitter = dComIfGp_particle_set(0x833E, &effpos, &home.angle, NULL, 0xFF, NULL, -1, NULL, NULL, NULL);
            }
            setParticle();
            mMoveMode = 1;
        } else if (mMoveStartShakeTimer == 2 && getMdlType() != 1) {
            mDoAud_seStart(Z2SE_OBJ_STEP_MOVESTART, &mSoundPos, 0, 0);
        }

        mMoveStartShakeTimer--;
        break;
    case 1: {
        cLib_chaseF(&mMoveAccel, 0.45f, 0.5f + KREG_F(0));
        cLib_chaseF(&mMoveStep, move_speed, mMoveAccel);

        int is_move_end = cLib_chaseF(&current.pos.y, home.pos.y + l_move_len[mType], mMoveStep);
        mModelPos.y = current.pos.y;

        if (is_move_end) {
            mMoveMode = 2;
            if (mSmokeEmitter != NULL) {
                mSmokeEmitter->becomeInvalidEmitter();
                mSmokeEmitter = NULL;
            }

            removeParticle();

            if (getMdlType() != 1) {
                mDoAud_seStart(Z2SE_OBJ_STEP_MOVEEND, &mSoundPos, 0, 0);
            } else {
                mDoAud_seStart(Z2SE_OBJ_L6_UD_BLOCK_UP_ST, &mSoundPos, 0, 0);
            }
        } else if (getMdlType() != 1) {
            mDoAud_seStartLevel(Z2SE_OBJ_STEP_MOVE, &mSoundPos, 0, 0);
        } else {
            mDoAud_seStartLevel(Z2SE_OBJ_L6_UD_BLOCK_UP, &mSoundPos, 0, 0);
        }

        mModelPos = current.pos;
        break;
    }
    case 2:
        dComIfGp_getVibration().StartShock(4, 0x1F, cXyz(0.0f, 1.0f, 0.0f));
        mMoveMode = 3;
        mMoveStartShakeTimer = 15;
        break;
    case 3:
        mMoveStartShakeTimer--;
        mModelPos = current.pos;

        if (mMoveStartShakeTimer == 0) {
            modeWaitLowerInit();
        }
        break;
    }

    mModelPos.y += mMoveStartShakeAmount * cM_scos(mMoveStartShakeTimer * shake_speed);
    cLib_addCalc0(&mMoveStartShakeAmount, 0.5f + KREG_F(1), 0.5f + KREG_F(3));
    return 1;
}

/* 80C9DF18-80C9DF60 000EF8 0048+00 2/2 0/0 0/0 .text            modeWaitLowerInit__12daObjStair_cFv
 */
int daObjStair_c::modeWaitLowerInit() {
    current.pos.y = home.pos.y + l_move_len[mType];
    mModelPos = current.pos;
    mMode = MODE_WAIT_LOWER_e;
    return 1;
}

/* 80C9DF60-80C9E004 000F40 00A4+00 1/0 0/0 0/0 .text            modeWaitLower__12daObjStair_cFv */
int daObjStair_c::modeWaitLower() {
    int is_swbit = fopAcM_isSwitch(this, getSwbit());
    int dir = getDir();

    if (!fopAcM_isSwitch(this, getSwbit2()) && ((!is_swbit && dir == 0) || (is_swbit && dir == 1))) {
        modeLowerInit();
    }

    return 1;
}

/* 80C9E004-80C9E034 000FE4 0030+00 1/1 0/0 0/0 .text            modeLowerInit__12daObjStair_cFv */
int daObjStair_c::modeLowerInit() {
    mMoveAccel = 0.0f;
    mMoveStep = 0.0f;
    mMoveMode = 0;
    mMoveStartShakeTimer = 30;
    mMode = MODE_LOWER_e;
    return 1;
}

/* 80C9E034-80C9E3D8 001014 03A4+00 1/0 0/0 0/0 .text            modeLower__12daObjStair_cFv */
int daObjStair_c::modeLower() {
    f32 move_speed = 50.0f;
    f32 shake_amount = 3.0f;
    s16 shake_speed = 15000;

    if (mMoveMode == 0) {
        if (mMoveStartShakeTimer == 0) {
            cLib_chaseF(&mMoveAccel, 0.45f, 0.5f + KREG_F(4));
            cLib_chaseF(&mMoveStep, move_speed, mMoveAccel);

            int is_move_end = cLib_chaseF(&current.pos.y, home.pos.y, mMoveStep);
            mModelPos.y = current.pos.y;

            if (is_move_end) {
                mMoveMode = 1;
                if (mSmokeEmitter != NULL) {
                    mSmokeEmitter->becomeInvalidEmitter();
                    mSmokeEmitter = NULL;
                }

                if (getMdlType() != 1) {
                    mDoAud_seStart(Z2SE_OBJ_STEP_MOVEEND, &mSoundPos, 0, 0);
                } else {
                    mDoAud_seStart(Z2SE_OBJ_L6_UD_BLOCK_DW_ST, &mSoundPos, 0, 0);
                }
            } else if (getMdlType() != 1) {
                mDoAud_seStartLevel(Z2SE_OBJ_STEP_MOVE, &mSoundPos, 0, 0);
            } else {
                mDoAud_seStartLevel(Z2SE_OBJ_L6_UD_BLOCK_DW, &mSoundPos, 0, 0);
            }
        } else {
            mMoveStartShakeTimer--;
            if (mMoveStartShakeTimer == 0) {
                if (mSmokeEmitter == NULL) {
                    cXyz effpos(home.pos);
                    effpos.y += 600.0f;
                    mSmokeEmitter = dComIfGp_particle_set(0x833E, &effpos, &home.angle, NULL, 0xFF, NULL, -1, NULL, NULL, NULL);
                }
            } else if (mMoveStartShakeTimer == 2 && getMdlType() != 1) {
                mDoAud_seStart(Z2SE_OBJ_STEP_MOVESTART, &mSoundPos, 0, 0);
            }
        }
    } else {
        if (mMoveStartShakeTimer == 0 && mMoveMode == 1) {
            mMoveStartShakeTimer = 15;
            mMoveMode = 2;
            dComIfGp_getVibration().StartShock(4, 0x1F, cXyz(0.0f, 1.0f, 0.0f));
        }

        mMoveStartShakeTimer--;
        mModelPos = current.pos;
        mModelPos.y += shake_amount * cM_scos(mMoveStartShakeTimer * shake_speed);

        if (mMoveStartShakeTimer == 0) {
            modeWaitUpperInit();
        }
    }

    return 1;
}

/* 80C9E3D8-80C9E5A0 0013B8 01C8+00 1/1 0/0 0/0 .text            setParticle__12daObjStair_cFv */
void daObjStair_c::setParticle() {
    if (mParticleLeftEmitter[0].getEmitter() == NULL) {
        dComIfGp_particle_set(0x833C, &mParticleLeftPos[0], &home.angle, NULL, 0xFF, &mParticleLeftEmitter[0], fopAcM_GetRoomNo(this), NULL, NULL, NULL);
    }

    if (mParticleLeftEmitter[1].getEmitter() == NULL) {
        dComIfGp_particle_set(0x833C, &mParticleLeftPos[1], &home.angle, NULL, 0xFF, &mParticleLeftEmitter[1], fopAcM_GetRoomNo(this), NULL, NULL, NULL);
    }

    if (mParticleRightEmitter[0].getEmitter() == NULL) {
        dComIfGp_particle_set(0x833D, &mParticleRightPos[0], &home.angle, NULL, 0xFF, &mParticleRightEmitter[0], fopAcM_GetRoomNo(this), NULL, NULL, NULL);
    }

    if (mParticleRightEmitter[1].getEmitter() == NULL) {
        dComIfGp_particle_set(0x833D, &mParticleRightPos[1], &home.angle, NULL, 0xFF, &mParticleRightEmitter[1], fopAcM_GetRoomNo(this), NULL, NULL, NULL);
        // "Up/Down Stairs: Right Effect set"
        OS_REPORT("上下階段：右エフェクトセット\n");
    }
}

/* 80C9E5A0-80C9E614 001580 0074+00 2/2 0/0 0/0 .text            removeParticle__12daObjStair_cFv */
void daObjStair_c::removeParticle() {
    for (int i = 0; i < 2; i++) {
        mParticleLeftEmitter[i].remove();
        mParticleRightEmitter[i].remove();
    }
}

/* 80C9E614-80C9E700 0015F4 00EC+00 1/0 0/0 0/0 .text daObjStair_create1st__FP12daObjStair_c */
static int daObjStair_create1st(daObjStair_c* i_this) {
    fopAcM_SetupActor(i_this, daObjStair_c);
    return i_this->create1st();
}

/* 80C9E7B4-80C9E7D4 001794 0020+00 1/0 0/0 0/0 .text daObjStair_MoveBGDelete__FP12daObjStair_c */
static int daObjStair_MoveBGDelete(daObjStair_c* i_this) {
    return i_this->MoveBGDelete();
}

/* 80C9E7D4-80C9E7F4 0017B4 0020+00 1/0 0/0 0/0 .text daObjStair_MoveBGExecute__FP12daObjStair_c
 */
static int daObjStair_MoveBGExecute(daObjStair_c* i_this) {
    return i_this->MoveBGExecute();
}

/* 80C9E7F4-80C9E820 0017D4 002C+00 1/0 0/0 0/0 .text daObjStair_MoveBGDraw__FP12daObjStair_c */
static int daObjStair_MoveBGDraw(daObjStair_c* i_this) {
    return i_this->MoveBGDraw();
}

/* 80C9EA08-80C9EA28 -00001 0020+00 1/0 0/0 0/0 .data            daObjStair_METHODS */
static actor_method_class daObjStair_METHODS = {
    (process_method_func)daObjStair_create1st,
    (process_method_func)daObjStair_MoveBGDelete,
    (process_method_func)daObjStair_MoveBGExecute,
    (process_method_func)NULL,
    (process_method_func)daObjStair_MoveBGDraw,
};

/* 80C9EA28-80C9EA58 -00001 0030+00 0/0 0/0 1/0 .data            g_profile_Obj_MvStair */
extern actor_process_profile_definition g_profile_Obj_MvStair = {
    fpcLy_CURRENT_e,        // mLayerID
    3,                      // mListID
    fpcPi_CURRENT_e,        // mListPrio
    PROC_Obj_MvStair,       // mProcName
    &g_fpcLf_Method.base,  // sub_method
    sizeof(daObjStair_c),   // mSize
    0,                      // mSizeOther
    0,                      // mParameters
    &g_fopAc_Method.base,   // sub_method
    25,                     // mPriority
    &daObjStair_METHODS,    // sub_method
    0x00040100,             // mStatus
    fopAc_ACTOR_e,          // mActorType
    fopAc_CULLBOX_CUSTOM_e, // cullType
};