/**
 * d_a_door_push.cpp
 * Door - Push
*/

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

#include "d/actor/d_a_door_push.h"
#include "SSystem/SComponent/c_math.h"
#include "d/d_bg_w.h"
#include "f_pc/f_pc_name.h"
#include "f_op/f_op_actor_mng.h"

static fopAc_ac_c* PPCallBack(fopAc_ac_c* i_this, fopAc_ac_c* i_unused, s16 i_unused2,
                       dBgW_Base::PushPullLabel param_3) {
    if (cLib_checkBit(param_3, dBgW_Base::PPLABEL_PUSH) != 0) {
        daDoorPush_c* l_this = (daDoorPush_c*)i_this;
        l_this->field_0x62e[0]++;
        l_this->field_0x62e[1] = 0;
        l_this->field_0x62c[0] = 1;
    }

    return i_this;
}

static fopAc_ac_c* PPCallBack2(fopAc_ac_c* i_this, fopAc_ac_c* i_unused, s16 i_unused2,
                        dBgW_Base::PushPullLabel param_3) {
    if (cLib_checkBit(param_3, dBgW_Base::PPLABEL_PUSH) != 0) {
        daDoorPush_c* l_this = (daDoorPush_c*)i_this;
        l_this->field_0x62e[1]++;
        l_this->field_0x62e[0] = 0;
        l_this->field_0x62c[1] = 1;
    }

    return i_this;
}

void daDoorPush_c::initBaseMtx() {
    mpModel[0]->setBaseScale(scale);
    mpModel[1]->setBaseScale(scale);
    mXyz[0].set(-550.0f, 0.0f, 0.0f);
    mDoMtx_stack_c::YrotS(shape_angle.y);
    mDoMtx_stack_c::multVec(&mXyz[0], &mXyz[0]);
    VECAdd(&mXyz[0], &current.pos, &mXyz[0]);
    mXyz[1].set(550.0f, 0.0f, 0.0f);
    mDoMtx_stack_c::YrotS(shape_angle.y);
    mDoMtx_stack_c::multVec(&mXyz[1], &mXyz[1]);
    VECAdd(&mXyz[1], &current.pos, &mXyz[1]);
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::YrotM(shape_angle.y);
    MTXCopy(mDoMtx_stack_c::get(), mActorMtx);
    setBaseMtx();
}

void daDoorPush_c::setBaseMtx() {
    mDoMtx_stack_c::transS(mXyz[0]);
    mDoMtx_stack_c::YrotM(field_0x630[0]);
    MTXCopy(mDoMtx_stack_c::get(), mpModel[0]->mBaseTransformMtx);
    MTXCopy(mDoMtx_stack_c::get(), mBgMtx);
    mDoMtx_stack_c::transS(mXyz[1]);
    mDoMtx_stack_c::YrotM(field_0x630[1]);
    MTXCopy(mDoMtx_stack_c::get(), mpModel[1]->mBaseTransformMtx);
    MTXCopy(mDoMtx_stack_c::get(), mDoorMtx);

    if (mIndex != 2) {
        cXyz mult(450.0f, 0.0f, 75.0f);

        if (mIndex == 1) {
            mult.z = -mult.z;
        }
        mDoMtx_stack_c::transS(mXyz[mIndex]);
        mDoMtx_stack_c::YrotM(field_0x630[mIndex]);
        mDoMtx_stack_c::multVec(&mult, &mPosition);
    }
}

static char* l_arcName = "V_OsuDoor";

static cull_box l_cull_box = {
    {-600.0f, 0.0f, -600.0f},
    {600.0f, 1000.0f, 600.0f},
};

int daDoorPush_c::Create() {
    if (mpDoorBgW != NULL && dComIfG_Bgsp().Regist(mpDoorBgW, this)) {
        return 0;
    }
    field_0x630[0] = shape_angle.y;
    field_0x630[1] = shape_angle.y + 0x7fff;
    field_0x634[0] = field_0x630[0];
    field_0x634[1] = field_0x630[1];
    mIndex = 2;
    initBaseMtx();
    fopAcM_SetMtx(this, mActorMtx);
    fopAcM_setCullSizeBox(this, l_cull_box.min.x, l_cull_box.min.y, l_cull_box.min.z, l_cull_box.max.x,
                          l_cull_box.max.y, l_cull_box.max.z);
    mpBgW->SetPushPullCallback((dBgW_Base::PushPull_CallBack)PPCallBack);
    mpDoorBgW->SetPushPullCallback((dBgW_Base::PushPull_CallBack)PPCallBack2);
    eventInfo.setArchiveName(l_arcName);
    for (int i = 0; i < 2; i++) {
        field_0x63a[i] = dComIfGp_getEventManager().getEventIdx(this, "PUSH_DOOR_L", 0xff);
        field_0x63e[i] = 0xff;
    }
    fopAcM_setCullSizeFar(this, 5.0f);
    init_modeWait();
    MoveBGExecute();
    return 1;
}

int daDoorPush_c::CreateHeap() {
    J3DModelData* modelData = (J3DModelData*)dComIfG_getObjectRes(l_arcName, 5);
    for (int i = 0; i < 2; i++) {
        mpModel[i] = mDoExt_J3DModel__create(modelData, 0x80000, 0x11000084);
        if (mpModel[i] == NULL) {
            return 0;
        }
    }
    mpDoorBgW = new dBgW();
    if (mpDoorBgW == NULL ||
        mpDoorBgW->Set((cBgD_t*)dComIfG_getObjectRes(l_arcName, 8), 1, &mDoorMtx))
    {
        mpDoorBgW = NULL;
        return 0;
    }
    return 1;
}

int daDoorPush_c::create1st() {
    int phase = dComIfG_resLoad(&mPhaseReq, l_arcName);
    if (phase == cPhs_COMPLEATE_e) {
        phase = MoveBGCreate(l_arcName, 8, NULL, 0x8600, NULL);
        if (phase == cPhs_ERROR_e) {
            return phase;
        }
    }
    return phase;
}

int daDoorPush_c::Execute(Mtx** i_mtx) {
    *i_mtx = &mBgMtx;
    action();
    event_proc_call();
    setBaseMtx();
    mpDoorBgW->Move();
    for (int i = 0; i < 2; i++) {
        field_0x62c[i] = 0;
    }
    return 1;
}

void daDoorPush_c::action() {
    typedef void (daDoorPush_c::*actionFunc)();
    static actionFunc l_func[] = {&daDoorPush_c::modeWait};
    (this->*l_func[field_0x638])();
}

void daDoorPush_c::init_modeWait() {
    for (int i = 0; i < 2; i++) {
        field_0x62e[i] = 0;
    }
    field_0x638 = 0;
}

void daDoorPush_c::modeWait() {
    enum index_e {
        INDEX_0_e,
        INDEX_1_e,
        INDEX_MAX_e,
    };

    u8 idx;
    bool check = true;

    idx = (field_0x62c[0] != 0 ? INDEX_0_e : (field_0x62c[1] != 0 ? INDEX_1_e : INDEX_MAX_e));

    if (idx != INDEX_MAX_e) {
        if (field_0x62e[idx] >= 35) {
            mIndex = idx;
        } else if (field_0x62e[idx] != 0) {
            cLib_addCalcAngleS2(&field_0x64a, 500, 0x3c, 5);
            field_0x64e[idx] = field_0x64a * fabsf(cM_ssin(field_0x64c * 0x3e0)) + 10.0f;
            field_0x64c++;
        }
        check = false;
    } else {
        field_0x64a = 0;
        field_0x64c = 0;
        for (int i = 0; i < 2; i++) {
            cLib_addCalcAngleS(&field_0x64e[i], 0, 4, 50, 5);
        }
    }
    if (check != 0) {
        for (int i = 0; i < 2; i++) {
            field_0x62e[i] = 0;
        }
    }
    if (mIndex == 2) {
        field_0x630[0] = shape_angle.y + field_0x64e[0];
        field_0x630[1] = 0x7FFF + shape_angle.y + field_0x64e[1];
    }
}

void daDoorPush_c::event_proc_call() {
    typedef void (daDoorPush_c::*actionFunc)();
    static actionFunc l_func[] = {
        &daDoorPush_c::actionOpenWait,
        &daDoorPush_c::actionOrderEvent,
        &daDoorPush_c::actionEvent,
    };
    (this->*l_func[mAction])();
}

void daDoorPush_c::actionOpenWait() {
    if (mIndex != 2) {
        setAction(1);
        fopAcM_orderOtherEventId(this, field_0x63a[mIndex], field_0x63e[mIndex], 0xffff, 0, 1);
        eventInfo.onCondition(2);
    }
}

void daDoorPush_c::actionOrderEvent() {
    if (eventInfo.checkCommandDemoAccrpt()) {
        setAction(2);
        demoProc();
    } else {
        fopAcM_orderOtherEventId(this, field_0x63a[mIndex], field_0x63e[mIndex], 0xffff, 0, 1);
        eventInfo.onCondition(2);
    }
}

void daDoorPush_c::actionEvent() {
    demoProc();
}

int daDoorPush_c::demoProc() {
    static char* action_table[3] = {"WAIT", "OPEN", "SCENE_CHG"};

    daPy_py_c* player = daPy_getPlayerActorClass();

    field_0x644 = dComIfGp_evmng_getMyStaffId("pdoor", NULL, 0);

    s32 actIdx =
        dComIfGp_evmng_getMyActIdx(field_0x644, action_table, ARRAY_SIZEU(action_table), 0, 0);
    if (dComIfGp_evmng_getIsAddvance(field_0x644) != 0) {
        switch (actIdx) {
        case WAIT_e: {
            int* integerP = dComIfGp_evmng_getMyIntegerP(field_0x644, "Timer");
            if (integerP == NULL) {
                field_0x648 = 1;
            } else {
                field_0x648 = *integerP;
            }
            break;
        }
        case OPEN_e:
            rotateInit();
            field_0x641 = 0;
            break;
        case SCENE_CHG_e:
        default:
            break;
        }
    }
    switch (actIdx) {
    case WAIT_e:
        if (cLib_calcTimer(&field_0x648) == 0) {
            dComIfGp_evmng_cutEnd(field_0x644);
        }
        break;
    case OPEN_e:
        if (rotate() != 0) {
            ((daPy_py_c*)dComIfGp_getPlayer(0))->offPushPullKeep();
            setGoal();
            fopAcM_seStart(this, Z2SE_OBJ_HYRULE_DR_STOP, 0);
            field_0x641 = 1;
            dComIfGp_evmng_cutEnd(field_0x644);
        } else if (field_0x641 == 0) {
            fopAcM_seStartLevel(this, Z2SE_OBJ_HYRULE_DR_MOVE, 0);
        }
        if (mIndex == 0) {
            player->setPlayerPosAndAngle(&mPosition, field_0x630[mIndex] + 0x7fff, 0);
        } else {
            player->setPlayerPosAndAngle(&mPosition, field_0x630[mIndex], 0);
        }
        break;
    case SCENE_CHG_e:
        dStage_changeScene(getSceneNo(), 0.0f, 0, fopAcM_GetRoomNo(this), 0, -1);
        break;
    default:
        dComIfGp_evmng_cutEnd(field_0x644);
        break;
    }
    return 0;
}

void daDoorPush_c::rotateInit() {
    daPy_py_c* player = (daPy_py_c*)dComIfGp_getPlayer(0);
    player->onPushPullKeep();
    field_0x649 = 0;
}

int daDoorPush_c::rotate() {
    field_0x649++;
    field_0x630[mIndex] = field_0x634[mIndex];
    s16 rotation = field_0x649 / 60.0f * 5461.0f;
    if (mIndex == 1) {
        rotation = -rotation;
    }
    field_0x630[mIndex] += rotation;
    if (field_0x649 == 60) {
        return 1;
    }
    return 0;
}

void daDoorPush_c::setGoal() {
    cXyz goal;
    if (mIndex == 0) {
        goal.set(300.0f, 0.0f, -400.0f);
    } else {
        goal.set(-300.0f, 0.0f, -400.0f);
    }
    mDoMtx_stack_c::transS(current.pos);
    mDoMtx_stack_c::YrotM(home.angle.y);
    mDoMtx_stack_c::multVec(&goal, &goal);
    dComIfGp_evmng_setGoal(&goal);
}

int daDoorPush_c::Draw() {
    g_env_light.settingTevStruct(0x10, &current.pos, &tevStr);
    for (int i = 0; i < 2; i++) {
        g_env_light.setLightTevColorType_MAJI(mpModel[i], &tevStr);
        dComIfGd_setListBG();
        mDoExt_modelUpdateDL(mpModel[i]);
        dComIfGd_setList();
    }
    return 1;
}

int daDoorPush_c::Delete() {
    if (mpDoorBgW != NULL && mpDoorBgW->ChkUsed()) {
        dComIfG_Bgsp().Release(mpDoorBgW);
    }
    mpBgW->SetPushPullCallback(NULL);
    mpDoorBgW->SetPushPullCallback(NULL);
    dComIfG_resDelete(&mPhaseReq, l_arcName);
    return 1;
}

static int daDoorPush_create1st(daDoorPush_c* i_this) {
    fopAcM_ct(i_this, daDoorPush_c);
    return i_this->create1st();
}

static int daDoorPush_MoveBGDelete(daDoorPush_c* i_this) {
    return i_this->MoveBGDelete();
}

static int daDoorPush_MoveBGExecute(daDoorPush_c* i_this) {
    return i_this->MoveBGExecute();
}

static int daDoorPush_MoveBGDraw(daDoorPush_c* i_this) {
    return i_this->MoveBGDraw();
}

static actor_method_class daDoorPush_METHODS = {
    (process_method_func)daDoorPush_create1st,     (process_method_func)daDoorPush_MoveBGDelete,
    (process_method_func)daDoorPush_MoveBGExecute, (process_method_func)NULL,
    (process_method_func)daDoorPush_MoveBGDraw,
};

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