/**
 * d_a_obj_dmelevator.cpp
 *
 */

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

#include "d/actor/d_a_obj_dmelevator.h"
#include "Z2AudioLib/Z2Instances.h"
#include "d/actor/d_a_player.h"
#include "d/d_bg_w.h"
#include "d/d_path.h"

static const Vec l_swOffset = {
    0.0f,
    162.0f,
    -77.0f,
};

static void rideCallBack(dBgW* param_0, fopAc_ac_c* param_1, fopAc_ac_c* param_2) {
    daObjDmElevator_c* pthis = (daObjDmElevator_c*)param_1;

    daPy_py_c* pdVar1 = daPy_getPlayerActorClass();
    if (fopAcM_CheckStatus(param_2, 0x400) != 0 && fopAcM_GetName(param_2) == 0xfd) {
        static cXyz l_push_check_pos[4] = {
            cXyz(-50.0f, 0.0f, -50.0f),
            cXyz(50.0f, 0.0f, -50.0f),
            cXyz(50.0f, 0.0f, 50.0f),
            cXyz(-50.f, 0.f, 50.f),
        };

        cXyz local_2c = param_2->current.pos - pthis->mXyz;
        mDoMtx_stack_c::YrotS(-param_1->current.angle.y);
        mDoMtx_stack_c::multVec(&local_2c, &local_2c);

        if (l_push_check_pos[0].x <= local_2c.x) {
            if (l_push_check_pos[2].x >= local_2c.x) {
                if (l_push_check_pos[0].z <= local_2c.z) {
                    if (l_push_check_pos[2].z >= local_2c.z) {
                        if ((pdVar1->checkEquipHeavyBoots())) {
                            pthis->field_0x632 = 1;
                            pthis->field_0x634 = 1;
                        }
                        else
                        {
                            pthis->field_0x632 = 0;
                            pthis->field_0x634 = 0;
                        }
                        if (fopAcM_CheckCarryType(param_2, fopAcM_CARRY_TYPE_1)) {
                            pthis->field_0x62f = 2;
                        } else {
                            pthis->field_0x62f = 1;
                        }
                    }
                }
            }
        }
    }
}

static int nodeCallBackForSw(J3DJoint* param_0, int param_1) {
    if (param_1 == 0) {
        int jnt_no = param_0->getJntNo();
        J3DModel* pmodel = j3dSys.getModel();
        daObjDmElevator_c* puser_area = (daObjDmElevator_c*)pmodel->getUserArea();

        mDoMtx_copy(pmodel->mMtxBuffer->getAnmMtx(jnt_no), mDoMtx_stack_c::get());

        if (jnt_no == 1) {
            mDoMtx_stack_c::transM(puser_area->field_0x638, 0.0f, 0.0f);
        }

        pmodel->mMtxBuffer->setAnmMtx(jnt_no, mDoMtx_stack_c::get());
        mDoMtx_copy(mDoMtx_stack_c::get(), j3dSys.mCurrentMtx);
    }
    return 1;
}

static int nodeCallBack(J3DJoint* i_joint, int param_1) {
    if (param_1 == 0) {
        int jnt_no = i_joint->getJntNo();
        J3DModel* pmodel = j3dSys.getModel();
        daObjDmElevator_c* puser_area = (daObjDmElevator_c*)pmodel->getUserArea();
       
        mDoMtx_copy(j3dSys.getModel()->mMtxBuffer->getAnmMtx(jnt_no), mDoMtx_stack_c::get());
       
        if (jnt_no == 2) {
            mDoMtx_XrotM(mDoMtx_stack_c::get(), puser_area->field_0x5e4);
        }
       
        mDoMtx_copy(mDoMtx_stack_c::get(), pmodel->mMtxBuffer->getAnmMtx(jnt_no));
    }
    return 1;
}

void daObjDmElevator_c::initBaseMtx() {
    mpElevatorModel->setBaseScale(scale);
    mpSwitchModel->setBaseScale(scale);

    setBaseMtx();
}

void daObjDmElevator_c::setBaseMtx() {
    
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mpElevatorModel->setBaseTRMtx(mDoMtx_stack_c::now);
    PSMTXCopy(mDoMtx_stack_c::now, mBgMtx);
    mDoMtx_stack_c::YrotS(shape_angle.y);
   
    cXyz VStack_18;
    
    mDoMtx_stack_c::multVec(&l_swOffset, &VStack_18);
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::transM(VStack_18);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mpSwitchModel->setBaseTRMtx(mDoMtx_stack_c::now);
    PSMTXCopy(mDoMtx_stack_c::now, mMtx);
   
    float fVar1 = field_0x638;
    if (fVar1 < -17.f) {
        fVar1 = -17.f;
    }
   
    mDoMtx_stack_c::transS(current.pos.x, current.pos.y + fVar1, current.pos.z);
    mDoMtx_stack_c::transM(VStack_18);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    PSMTXCopy(mDoMtx_stack_c::now, mMtx);
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::transM(VStack_18);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    mDoMtx_stack_c::multVecZero(&mXyz);
}

static const char* l_el_arcName = "H_Elevato";

static const char* l_sw_arcName = "D_Hfsw00";

static const char* l_eventName = "ELEVATOR_MOVE";

static const char* l_eventName2 = "ELEVATOR_MOVE2";

static const char* l_staffName = "dmele";

int daObjDmElevator_c::Create() {
    if (field_0x5e0 == 1) {
        field_0x637 = 0xe;
        field_0x636 = 1;
        field_0x638 = -24.0f;
        field_0x62b = 1;
        modeSwWaitUpperInit();
    }
    int success = dComIfG_Bgsp().Regist((dBgW_Base*)mpBgW, this);
    if (success != 0) {
        success = 0;
    } else {
        initBaseMtx();
        
        cullMtx = mpElevatorModel->mBaseTransformMtx;
        fopAcM_setCullSizeBox(this, -250.0f, -50.0f, -350.0f, 250.0f, 450.0f, 400.0f);
        
        mpElevatorModel->mModelData->getJointTree().getJointNodePointer(2)->setCallBack(
            nodeCallBack);
        mpElevatorModel->setUserArea((uintptr_t)this);
        
        mpSwitchModel->mModelData->getJointTree().getJointNodePointer(1)->setCallBack(
            nodeCallBackForSw);
        mpSwitchModel->setUserArea((uintptr_t)this);
        
        mpBgW->SetRideCallback(rideCallBack);
        mpBgW->Move();
        
        eventInfo.setArchiveName((char*)l_el_arcName);
        
        success = strcmp(dComIfGp_getStartStageName(), "F_SP110");
        if (success == 0) {
            mEventIndex = dComIfGp_getEventManager().getEventIdx(this, l_eventName, 0xff);
        } else {
            success = strcmp(dComIfGp_getStartStageName(), "R_SP110");
            if (success == 0) {
                mEventIndex = dComIfGp_getEventManager().getEventIdx(this, l_eventName2, 0xff);
            }
        }
        success = 1;
    }

    return success;
}

int daObjDmElevator_c::init() {
    dPath* path = dPath_GetRoomPath(getPathID() & 0xff, fopAcM_GetRoomNo(this));
    daPy_py_c* plink = daPy_getPlayerActorClass();
    dPnt* pdVar4 = dPath_GetPnt(path, 0);
    dPnt* pdVar5 = dPath_GetPnt(path, 1);

    if (plink->current.pos.absXZ(pdVar5->m_position) < 100.0f) {
        home.pos = pdVar5->m_position;
        home.pos.y = home.pos.y - 200.0f;
        field_0x5e0 = 1;
        field_0x5e1 = -1;
    } else {
        home.pos = pdVar4->m_position;
        field_0x5e0 = 0;
        field_0x5e1 = 1;
    }

    current.pos = home.pos;
    old.pos = home.pos;
    mSoundObj.init(&current.pos, 1);
    return 1;
}

int daObjDmElevator_c::CreateHeap() {
    J3DModelData* pJVar1 = (J3DModelData*)dComIfG_getObjectRes((const char*)l_el_arcName, 5);
    mpElevatorModel = mDoExt_J3DModel__create(pJVar1, 0x80000, 0x11000084);
    if (mpElevatorModel == NULL) {
        return 0;
    }

    pJVar1 = (J3DModelData*)dComIfG_getObjectRes((const char*)l_sw_arcName, 4);
    mpSwitchModel = mDoExt_J3DModel__create(pJVar1, 0x80000, 0x11000084);

    if (mpSwitchModel == NULL) {
        return 0;
    }
    mpBgW = new dBgW();

    if (mpBgW != NULL && mpBgW->Set((cBgD_t*)dComIfG_getObjectRes(l_sw_arcName, 8), 1, &mMtx) == 0)
    {
        mpBgW->SetCrrFunc(dBgS_MoveBGProc_Typical);
    } else {
        mpBgW = NULL;
        return 0;
    }
    return 1;
}

int daObjDmElevator_c::create1st() {
    int temp = init();
    if (temp == 0) {
        return cPhs_ERROR_e;
    }

    int ret = dComIfG_resLoad(&mPhaseReq2, l_sw_arcName);
    if (ret != cPhs_COMPLEATE_e) {
        return ret;
    }
    ret = dComIfG_resLoad(&mPhaseReq, l_el_arcName);
    if (ret == cPhs_COMPLEATE_e) {
        ret = MoveBGCreate(l_el_arcName, 8, dBgS_MoveBGProc_TypicalRotY, 0x2280, NULL);
        if (ret == cPhs_ERROR_e) {
            return ret;
        }
    }
    return ret;
}

int daObjDmElevator_c::Execute(Mtx** param_1) {
    event_proc_call();
    setting_ride_flag();
    event_sw_proc_call();
    mode_sw_proc_call();
    calc_top_pos();
    *param_1 = &mBgMtx;
    setBaseMtx();
    mpBgW->Move();
    field_0x630 = field_0x62f;
    field_0x62f = 0;
    field_0x633 = field_0x632;
    field_0x632 = 0;
    field_0x635 = field_0x634;
    field_0x634 = 0;
    field_0x5e4 = field_0x5e4 + (s16)((speedF * 65535.0f) / 502.65485f);
    mSoundObj.framework(0, dComIfGp_getReverb(fopAcM_GetRoomNo(this)));
    return 1;
}

void daObjDmElevator_c::setting_ride_flag() {
    if (field_0x62f != 0) {
        if (field_0x631 != 0) {
            field_0x62e = 8;
        } else {
            field_0x62e += 1;
            if (field_0x62e > 8) {
                field_0x631 = 1;
            }
        }
    } else if (field_0x631 != 0) {
        field_0x62e -= 1;
        if (field_0x62e == 0) {
            field_0x631 = 0;
        }
    } else {
        field_0x62e = 0;
    }
    if (field_0x634 != 0) {
        if (field_0x636 != 0) {
            field_0x637 = 0xe;
            return;
        }
        field_0x637 = field_0x637 + 1;
        if (field_0x637 <= 8) {
            return;
        }
        field_0x636 = 1;
        return;
    }
    if (field_0x636 != 0) {
        field_0x637 = field_0x637 - 1;
        if (field_0x637 != 0) {
            return;
        }
        field_0x636 = 0;
    } else {
        field_0x637 = 0;
    }
}

void daObjDmElevator_c::event_sw_proc_call() {
    typedef void (daObjDmElevator_c::*actionFunc)();
    static actionFunc l_func[] = {
        &daObjDmElevator_c::actionSwPauseNone,
        &daObjDmElevator_c::actionSwPauseOrder,
        &daObjDmElevator_c::actionSwPause,
    };
    (this->*l_func[field_0x629])();
}

void daObjDmElevator_c::actionSwPauseNoneInit() {
    field_0x629 = 0;
}

void daObjDmElevator_c::actionSwPauseNone() {
    /* empty function */
}

void daObjDmElevator_c::actionSwPauseOrderInit() {
    if (field_0x629 != 1) {
        field_0x629 = 1;
        fopAcM_orderPotentialEvent(this, 2, 0, 0);
        eventInfo.mCondition = eventInfo.mCondition | 2;
    }
}

void daObjDmElevator_c::actionSwPauseOrder() {
    if (eventInfo.mCommand == 2) {
        actionSwPauseInit();
    } else {
        actionSwPauseNoneInit();
    }
}

void daObjDmElevator_c::actionSwPauseInit() {
    daPy_getPlayerActorClass()->onWolfEyeKeep();
    field_0x62a = 10;
    field_0x629 = 2;
}

void daObjDmElevator_c::actionSwPause() {
    daPy_getPlayerActorClass()->mEndResetFlg1 = daPy_getPlayerActorClass()->mEndResetFlg1 | 0x200;
    field_0x62a += -1;
    if (field_0x62a == 0) {
        dComIfGp_event_reset();
        actionSwPauseNoneInit();
    }
}

void daObjDmElevator_c::calc_top_pos() {
    speed.y = speed.y - (field_0x63c - field_0x640) * (0.9f);
    speed.y = speed.y - speed.y * 0.5f;

    field_0x63c = field_0x63c + speed.y;
    field_0x638 = (1.0f - field_0x63c) * -24.0f;
    field_0x638 = cLib_minMaxLimit(field_0x638, -24.0f, 0.0f);
}

void daObjDmElevator_c::mode_sw_proc_call() {
    typedef void (daObjDmElevator_c::*actionFunc)();
    static actionFunc l_mode_func[] = {
        &daObjDmElevator_c::modeSwWaitLower,
        &daObjDmElevator_c::modeSwLower,
        &daObjDmElevator_c::modeSwWaitUpper,
        &daObjDmElevator_c::modeSwUpper,
    };
    (this->*l_mode_func[field_0x628])();
}

void daObjDmElevator_c::modeSwWaitLowerInit() {
    speed.y = 0.0f;
    field_0x63c = 1.0f;
    field_0x640 = 1.0f;
    field_0x628 = 0;
}

void daObjDmElevator_c::modeSwWaitLower() {
    if (field_0x631 != 0) {
        if (field_0x636 != 0) {
            modeSwLowerInit();
        } else {
            if (field_0x640 == 1.0f) {
                fopAcM_seStart(this, Z2SE_OBJ_HEAVY_FUMISW_RIDE, 0);
            }
            field_0x640 = 0.8f;  // 9c
        }
    } else {
        if (field_0x640 != 1.0f)  // a8
        {
            fopAcM_seStart(this, Z2SE_OBJ_HEAVY_FUMISW_DROP, 0);
        }
        field_0x640 = 1.0f;
    }
    if (field_0x62f != 0 && field_0x630 == 0)  //: 10c
    {
        actionSwPauseOrderInit();
    }
}

void daObjDmElevator_c::modeSwLowerInit() {
    mDoAud_seStart(Z2SE_OBJ_HEAVY_FUMISW_ON, &mXyz, 0, 0);

    field_0x640 = 0;
    field_0x628 = 1;
}

void daObjDmElevator_c::modeSwLower() {
    if (field_0x638 == -24.0f) {
        dComIfGp_getVibration().StartShock(4, 0x1f, cXyz(0.0f, 1.0f, 0.0f));
        modeSwWaitUpperInit();

        field_0x62b = 1;
        field_0x62d = 1;
    }
}

void daObjDmElevator_c::modeSwWaitUpperInit() {
    speed.y = 0.0f;
    field_0x63c = 0.0f;
    field_0x640 = 0.0f;
    field_0x628 = 2;
}

void daObjDmElevator_c::modeSwWaitUpper() {
    if (field_0x636 == 0) {
        modeSwUpperInit();
    }
}

void daObjDmElevator_c::modeSwUpperInit() {
    mDoAud_seStart(Z2SE_OBJ_HEAVY_FUMISW_OFF, &mXyz, 0, 0);

    field_0x640 = 1.0f;
    field_0x628 = 3;
}

void daObjDmElevator_c::modeSwUpper() {
    if (field_0x638 == 0.0f) {
        dComIfGp_getVibration().StartShock(4, 0x1f, cXyz(0.0, 1.0, 0.0));
        modeSwWaitLowerInit();
        field_0x62b = 0;
    }
}

void daObjDmElevator_c::event_proc_call() {
    typedef void (daObjDmElevator_c::*actionFunc)();
    static actionFunc l_func[] = {
        &daObjDmElevator_c::actionWait,      &daObjDmElevator_c::actionOrderEvent,
        &daObjDmElevator_c::actionEvent,     &daObjDmElevator_c::actionStartEvent,
        &daObjDmElevator_c::actionMoveStart, &daObjDmElevator_c::actionDead,
    };
    (this->*l_func[mAction])();
}

void daObjDmElevator_c::actionWait() {
    if (field_0x5e0 == 1) {
        mAction = 4;
        moveInit();
    } else if (!dComIfGp_event_runCheck() && (field_0x62d != 0)) {
        mAction = 1;

        fopAcM_orderOtherEventId(this, mEventIndex, 0xff, 0xffff, 0, 1);
        eventInfo.mCondition = eventInfo.mCondition | 2;
    }
}

void daObjDmElevator_c::actionOrderEvent() {
    if (eventInfo.mCommand == 2) {
        mAction = 2;
        field_0x5dc =  dComIfGp_evmng_getMyStaffId(l_staffName, NULL, 0);
        demoProc();
        field_0x62d = 0;
    } else {
        fopAcM_orderOtherEventId(this, mEventIndex, 0xff, 0xffff, 0, 1);
        eventInfo.mCondition = eventInfo.mCondition | 2;
    }
}

void daObjDmElevator_c::actionEvent() {
    dEvent_manager_c& evt_manager = dComIfGp_getEventManager();
    if (dComIfGp_evmng_endCheck(mEventIndex)) {
        setAction(0);
        dComIfGp_event_reset();
    } else {
        demoProc();
    }
}

void daObjDmElevator_c::actionStartEvent() {
    if ( fopAcM_CheckStatus(this, 0x1000) != 0) {
        demoProc();
    } else {
        mAction = 0;
    }
}

void daObjDmElevator_c::actionMoveStart() {
    if (moveProc() != 0) {
        dComIfGp_getVibration().StartShock(4, 0x1f, cXyz(0.0, 1.0, 0.0));

        mAction = 0;

        s8 i_reverb = dComIfGp_getReverb(fopAcM_GetRoomNo(this));
        mDoAud_seStart(Z2SE_OBJ_ELEVATOR_STOP, &eyePos, 0, i_reverb);
    }
}

void daObjDmElevator_c::actionDead() {
    /* empty function */
}

int daObjDmElevator_c::demoProc() {
    static char* action_table[2] = {
        "WAIT",
        "MOVE",
    };

    int actIdx =
        dComIfGp_getEventManager().getMyActIdx(field_0x5dc, &action_table[0], 2, 0, 0);  // r30
    int isAddvance = dComIfGp_getEventManager().getIsAddvance(field_0x5dc);              // r3

    if (isAddvance != 0) {
        switch (actIdx) {
        case 0: {
            int* psubstance =
                (int*)dComIfGp_getEventManager().getMySubstanceP(field_0x5dc, "Timer", 3);
            if (psubstance == NULL) {
                field_0x5e3 = 1;
            } else {
                field_0x5e3 = (char)*psubstance;
            }
            break;
        }
        case 1: {
            moveInit();
            break;
        }
        }
    }
    switch (actIdx) {
    case 0: {
        if ((cLib_calcTimer(&field_0x5e3) & 0xff) == 0) {
            dComIfGp_getEventManager().cutEnd(field_0x5dc);
        }
        break;
    }
    case 1: {
        actIdx = moveProc();
        if (actIdx != 0) {
            actIdx = strcmp(dComIfGp_getStartStage()->getName(), "F_SP110");
            if (actIdx == 0) {
                dStage_changeScene(1, 0.0f, 0, (u8)current.roomNo, 0, -1);
                break;
            } else {
                actIdx = strcmp(dComIfGp_getStartStage()->getName(), "R_SP110");
                if (actIdx == 0) {
                    dStage_changeScene(2, 0.0, 0, (u8)current.roomNo, 0, -1);
                }
            }
        }
        break;
    }
    default: {
        dComIfGp_getEventManager().cutEnd(field_0x5dc);
        break;
    }
    }
    return 0;
}

void daObjDmElevator_c::moveInit() {
    speedF = 0.0f;
    if (field_0x5e0 == 0) {
        fopAcM_seStart(this, Z2SE_OBJ_ELEVATOR_START, 0);
    }
}

int daObjDmElevator_c::moveProc() {
    dPath* path = dPath_GetRoomPath(getPathID(), fopAcM_GetRoomNo(this));
    dPnt* pdVar3 = dPath_GetPnt(path, field_0x5e0 + (char)field_0x5e1);

    cXyz path_point(pdVar3->m_position);
    if (path_point.y > current.pos.y) {
        cLib_chaseF(&speedF, 10.0f, 1.0f);
    } else {
        cLib_chaseF(&speedF, -10.0f, 1.0f);
    }

    int uVar1 = cLib_chasePos(&current.pos, path_point, fabsf(speedF));

    if (field_0x5e0 + (int)(char)field_0x5e1 == 1) {
        const float fVar6 = current.pos.abs(path_point);
        uVar1 = ((uint)(char)((fVar6 < 200.0f) << 3) << 0x1c) >> 0x1f;
    }

    int ret;
    if (uVar1 != 0) {
        if (field_0x5e0 + field_0x5e1 != 1) {
            field_0x5e0 += field_0x5e1;
            if (field_0x5e0 == 0) {
                field_0x5e1 = 1;
            } else {
                field_0x5e1 = 0xff;
            }
        }
        speedF = 0.0f;
        ret = 1;
    } else {
        mSoundObj.startLevelSound(Z2SE_OBJ_ELEVATOR_MOVE, 0, -1);
        ret = 0;
    }
    return ret;
}

int daObjDmElevator_c::Draw() {
    g_env_light.settingTevStruct(0x10, &current.pos, &tevStr);
    g_env_light.setLightTevColorType_MAJI(mpSwitchModel, &tevStr);
    g_env_light.setLightTevColorType_MAJI(mpElevatorModel, &tevStr);

    dComIfGd_setListBG();

    mDoExt_modelUpdateDL(mpElevatorModel);
    mDoExt_modelUpdateDL(mpSwitchModel);
    dComIfGd_setList();
    return 1;
}

int daObjDmElevator_c::Delete() {
    mSoundObj.deleteObject();

    if ((mpBgW != NULL) && mpBgW->ChkUsed()) {
        dComIfG_Bgsp().Release(mpBgW);
    }

    dComIfG_resDelete(&mPhaseReq, l_el_arcName);
    dComIfG_resDelete(&mPhaseReq2, l_sw_arcName);
    return 1;
}

static int daObjDmElevator_create1st(daObjDmElevator_c* i_this) {
    fopAcM_ct(i_this, daObjDmElevator_c);
    return i_this->create1st();
}

static int daObjDmElevator_MoveBGDelete(daObjDmElevator_c* i_this) {
    return i_this->MoveBGDelete();
}

static int daObjDmElevator_MoveBGExecute(daObjDmElevator_c* i_this) {
    return i_this->MoveBGExecute();
}

static int daObjDmElevator_MoveBGDraw(daObjDmElevator_c* i_this) {
    return i_this->MoveBGDraw();
}

static actor_method_class daObjDmElevator_METHODS = {
    (process_method_func)daObjDmElevator_create1st,
    (process_method_func)daObjDmElevator_MoveBGDelete,
    (process_method_func)daObjDmElevator_MoveBGExecute,
    0,
    (process_method_func)daObjDmElevator_MoveBGDraw,
};

actor_process_profile_definition g_profile_Obj_Elevator = {
    fpcLy_CURRENT_e,            // mLayerID
    3,                          // mListID
    fpcPi_CURRENT_e,            // mListPrio
    PROC_Obj_Elevator,          // mProcName
    &g_fpcLf_Method.base,       // sub_method
    sizeof(daObjDmElevator_c),  // mSize
    0,                          // mSizeOther
    0,                          // mParameters
    &g_fopAc_Method.base,       // sub_method
    542,                        // mPriority
    &daObjDmElevator_METHODS,   // sub_method
    0x00044100,                 // mStatus
    fopAc_ACTOR_e,              // mActorType
    fopAc_CULLBOX_CUSTOM_e,     // cullType
};

AUDIO_INSTANCES;