// Copyright (c) Copyright (c) Hercules Dev Team, licensed under GNU GPL.
// Copyright (c) 2014 - 2015 Evol developers

#include "common/hercules.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "common/HPMi.h"
#include "common/memmgr.h"
#include "common/mmo.h"
#include "common/nullpo.h"
#include "common/socket.h"
#include "common/strlib.h"
#include "map/itemdb.h"
#include "map/map.h"
#include "map/npc.h"
#include "map/pc.h"
#include "map/script.h"
#include "map/status.h"

#include "plugins/HPMHooking.h"

#include "emap/npc.h"

#include "emap/horse.h"
#include "emap/data/itemd.h"
#include "emap/data/npcd.h"
#include "emap/struct/itemdext.h"
#include "emap/struct/npcdext.h"

int class_move_speed[CLASS_COUNT];

void status_init(void)
{
    int f;
    for (f = 0; f < CLASS_COUNT; f ++)
        class_move_speed[f] = 150;
}

void estatus_set_viewdata_pre(struct block_list **blPtr,
                              int *classPtr_ __attribute__ ((unused)))
{
    struct block_list *bl = *blPtr;
    if (bl->type != BL_NPC)
        return;
    TBL_NPC *const npc = (TBL_NPC*)bl;
    aFree(npc->vd);
    npc->vd = NULL;
}

void estatus_set_viewdata_post(struct block_list *bl,
                               int class_ __attribute__ ((unused)))
{
    if (!bl)
        return;
    if (bl->type != BL_NPC)
        return;
    TBL_NPC *const npc = (TBL_NPC*)bl;
    struct NpcdExt *data = npcd_get(npc);
    if (data && data->init == false && npc->vd)
    {
        data->init = true;
        npc->vd->sex = 3;
        if (npc->subtype == SCRIPT)
        {
            if (npc->u.scr.script)
                enpc_set_var_num(npc, ".id", npc->bl.id);
        }
    }
}

void estatus_read_job_db_sub_post(int idx,
                                  const char *name __attribute__ ((unused)),
                                  struct config_setting_t *jdb)
{
    int i32 = 0;
    if (itemdb->lookup_const(jdb, "MoveSpeed", &i32))
        class_move_speed[idx] = i32;
}

int estatus_calc_pc__post(int retVal,
                          struct map_session_data *sd,
                          enum e_status_calc_opt opt __attribute__ ((unused)))
{
    if (!sd)
        return retVal;

    if (!sd->state.permanent_speed)
    {
        const int idx = pc->class2idx(sd->status.class_);
        sd->base_status.speed = class_move_speed[idx];
    }
    return retVal;
}

void estatus_calc_pc_additional_pre(struct map_session_data **sdPtr,
                                    enum e_status_calc_opt *optPtr __attribute__ ((unused)))
{
    int f;
    int k;
    struct map_session_data *sd = *sdPtr;

    if (!sd)
    {
        hookStop();
        return;
    }

    for (f = 0; f < MAX_INVENTORY; f ++)
    {
        struct item_data *const item = sd->inventory_data[f];
        if (!item)
            continue;

        struct ItemdExt *data = itemd_get(item);
        if (!data || !data->charmItem)
            continue;

        for (k = 0; k < map->list[sd->bl.m].zone->disabled_items_count; k ++)
        {
            if (map->list[sd->bl.m].zone->disabled_items[k] == item->nameid)
                break;
        }

        if (k < map->list[sd->bl.m].zone->disabled_items_count)
            continue;

        if (!pc->isequip(sd, f))
            continue;


        struct status_data *bstatus = &sd->base_status;
        bstatus->def += item->def;

        script->run_use_script(sd, item, 0);

        // here can be refine bonuses
    }

    horse_add_bonus(sd);

    hookStop();
}

unsigned short estatus_calc_speed_post(unsigned short retVal,
                                       struct block_list *bl,
                                       struct status_change *sc __attribute__ ((unused)),
                                       int speed __attribute__ ((unused)))
{
    return horse_add_speed_bonus(BL_CAST(BL_PC, bl), retVal);
}