/**
 * @file d_a_swLBall.cpp
 * 
*/

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

#include "d/actor/d_a_swLBall.h"
#include "SSystem/SComponent/c_phase.h"
#include "d/actor/d_a_obj_carry.h"
#include "d/actor/d_a_player.h"
#include "d/d_com_inf_game.h"
#include "d/d_lib.h"
#include "f_op/f_op_actor_mng.h"

static daObjCarry_c* l_target_info[2];

static int l_target_info_count;

static void* s_lb_sub(void* param_1, void* param_2) {
    if ((fopAcM_IsActor(param_1) && fopAcM_GetName(param_1) == fpcNm_Obj_Carry_e) &&
        static_cast<daObjCarry_c*>(param_1)->prm_chk_type_lightball())
    {
        if (l_target_info_count < 2) {
            l_target_info[l_target_info_count] = (daObjCarry_c*)param_1;
            l_target_info_count++;
        }
    }
    return 0;
}

int daSwLBall_c::checkArea_sub(fopAc_ac_c* param_1) {
    if (getType() == 0) {
        if (param_1->current.pos.y >= current.pos.y - 10.0f &&
            param_1->current.pos.y < current.pos.y + scale.y * 100.0f &&
            fopAcM_searchActorDistanceXZ(this, param_1) < scale.x * 100.0f)
        {
            return 1;
        }
    } else if (getType() == 1) {
        cXyz cStack_1c(scale.x * -100.0f, 0.0f, scale.z * -100.0f);
        cXyz cStack_28(scale.x * 100.0f, scale.y * 100.0f, scale.z * 100.0f);
        cStack_1c.y += current.pos.y - 10.0f;
        cStack_28.y += current.pos.y;
        if (param_1->current.pos.y >= cStack_1c.y && param_1->current.pos.y < cStack_28.y &&
            dLib_checkActorInRectangle(param_1, this, &cStack_1c, &cStack_28))
        {
            return 1;
        }
    }
    return 0;
}

int daSwLBall_c::checkArea() {
    fopAc_ac_c* actors[4];
    for (int i = 0; i < 2; i++) {
        if (mProcIds[i] != -1) {
            actors[i] = fopAcM_SearchByID(mProcIds[i]);
        } else {
            actors[i] = NULL;
        }
        if (actors[i] != NULL && checkArea_sub(actors[i]) != 0) {
            return 1;
        }
    }
    return 0;
}

void daSwLBall_c::search_lb() {
    l_target_info_count = 0;
    for (int i = 0; i < 2; i++) {
        l_target_info[i] = NULL;
    }
    fpcM_Search(s_lb_sub, this);
    for (int i = 0; i < l_target_info_count; i++) {
        if (l_target_info[i] != NULL) {
            fpc_ProcID targetProcId = fopAcM_GetID(l_target_info[i]);
            if (targetProcId != -1) {
                int targetIdx = -1;
                for (int j = 0; j < 2; j++) {
                    if (targetProcId == mProcIds[j]) {
                        targetIdx = j;
                        break;
                    }
                }
                if (targetIdx < 0) {
                    for (int j = 0; j < 2; j++) {
                        if (mProcIds[j] == -1) {
                            mProcIds[j] = targetProcId;
                            break;
                        }
                    }
                }
            }
        }
    }
}

int daSwLBall_c::Create() {
    for (int i = 0; i < 2; i++) {
        mProcIds[i] = -1;
    }
    setAction(ACTION_INIT);
    execute();
    return 1;
}

int daSwLBall_c::create() {
    fopAcM_ct(this, daSwLBall_c);
    if (!Create()) {
        return cPhs_ERROR_e;
    }
    return cPhs_COMPLEATE_e;
}

int daSwLBall_c::execute() {
    static actionFunc funcs[3] = {
        &daSwLBall_c::actionInit,
        &daSwLBall_c::actionRun,
        &daSwLBall_c::actionStop,
    };

    (this->*(funcs[mAction]))();
    return 1;
}

void daSwLBall_c::actionInit() {
    search_lb();
    if (getArg0() == 1 && fopAcM_isSwitch(this, getSwbit())) {
        field_0x572 = 3;
    } else {
        field_0x572 = 0;
    }
    setAction(ACTION_RUN);
}

void daSwLBall_c::actionRun() {
    search_lb();
    int isArea = checkArea();
    switch(field_0x572) {
    case 0:
        if (isArea != 0) {
            mRunTimer = getArg1();
            if (mRunTimer == 0xff) {
                mRunTimer = 15;
            }
            if (getArg0() == 1) {
                if (mRunTimer == 0) {
                    fopAcM_onSwitch(this, getSwbit());
                    field_0x572 = 3;
                }
            } else if (mRunTimer == 0) {
                fopAcM_onSwitch(this, getSwbit());
                field_0x572 = 2;
            }
            field_0x572 = 1;
        }
        fopAcM_offSwitch(this, getSwbit());
        break;
    case 1:
        if (isArea == 0) {
            field_0x572 = 0;
        } else {
            if (cLib_calcTimer(&mRunTimer) == 0) {
                field_0x572 = 2;
            }
        }
        break;
    case 2:
        fopAcM_onSwitch(this, getSwbit());
        if (getArg0() == 1) {
            field_0x572 = 3;
        } else if (isArea == 0) {
            field_0x572 = 0;
        }
        break;
    case 3:
        break;
    }
    PutCrrPos();
}

void daSwLBall_c::actionStop() {
}

void daSwLBall_c::PutCrrPos() {
    if (checkPullLBall()) {
        daPy_py_c* player = daPy_getPlayerActorClass();
        s16 angleDiff = cLib_targetAngleY(&player->current.pos, &current.pos) - player->shape_angle.y;
        if (fopAcM_searchPlayerDistanceXZ(this) < 300.0f && angleDiff < 0x4000) {
            fopAc_ac_c* carryObj = (fopAc_ac_c*)fopAcM_SearchByID(player->getGrabActorID());
            if (carryObj != NULL && fopAcM_IsActor(carryObj) &&
                fopAcM_GetName(carryObj) == fpcNm_Obj_Carry_e &&
                static_cast<daObjCarry_c*>(carryObj)->prm_chk_type_lightball())
            {
                player->setForcePutPos(current.pos);
            }
        }
        for (int i = 0; i < 2; i++) {
            fopAc_ac_c* actor;
            if (mProcIds[i] != -1) {
                actor = fopAcM_SearchByID(mProcIds[i]);
            } else {
                actor = NULL;
            }
            if (actor != NULL) {
                switch (mIsPulled[i]) {
                case 0:
                    if (!fopAcM_checkCarryNow(actor) &&
                            checkArea_sub(actor) &&
                            (current.pos.x != actor->current.pos.x ||
                                current.pos.z != actor->current.pos.z))
                    {
                        ((daObjCarry_c*)actor)->startCtrl();
                        mIsPulled[i] = 1;
                    }
                    break;
                case 1:
                    cLib_chaseF(&actor->current.pos.x, current.pos.x, 10.0f);
                    cLib_chaseF(&actor->current.pos.z, current.pos.z, 10.0f);
                    if (fopAcM_searchActorDistanceXZ(this, actor) == 0.0f) {
                        ((daObjCarry_c*)actor)->endCtrl();
                        mIsPulled[i] = 0;
                    }
                    break;
                }
                mIsActorCarrying[i] = fopAcM_checkCarryNow(actor) != 0;
            }
        }
    }
}

int daSwLBall_c::_delete() {
    return 1;
}

static int daSwLBall_Execute(daSwLBall_c* i_this) {
    return i_this->execute();
}

static int daSwLBall_Delete(daSwLBall_c* i_this) {
    return i_this->_delete();
}

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

static actor_method_class l_daSwLBall_Method = {
    (process_method_func)daSwLBall_Create,
    (process_method_func)daSwLBall_Delete,
    (process_method_func)daSwLBall_Execute,
    NULL,
    NULL,
};

actor_process_profile_definition g_profile_SwLBall = {
    /* Layer ID     */ fpcLy_CURRENT_e,
    /* List ID      */ 7,
    /* List Prio    */ fpcPi_CURRENT_e,
    /* Proc Name    */ fpcNm_SwLBall_e,
    /* Proc SubMtd  */ &g_fpcLf_Method.base,
    /* Size         */ sizeof(daSwLBall_c),
    /* Size Other   */ 0,
    /* Parameters   */ 0,
    /* Leaf SubMtd  */ &g_fopAc_Method.base,
    /* Draw Prio    */ fpcDwPi_SwLBall_e,
    /* Actor SubMtd */ &l_daSwLBall_Method,
    /* Status       */ fopAcStts_UNK_0x40000_e,
    /* Group        */ fopAc_ACTOR_e,
    /* Cull Type    */ fopAc_CULLBOX_CUSTOM_e,
};