#include <stdio.h>
#include <string.h>
#include "../common/HPMi.h"
#include "../common/mapindex.h"
#include "../map/script.h"
#include "../map/mob.h"
#include "../map/pc.h"
#include "../map/map.h"

#include "../common/HPMDataCheck.h"

HPExport struct hplugin_info pinfo = {
	"mapmoblist",		// Plugin name
	SERVER_TYPE_MAP,// Which server types this plugin works with?
	"1.0",			// Plugin version
	HPM_VERSION,	// HPM Version (don't change, macro is automatically updated)
};

static int count_mob(struct block_list *bl, va_list ap) // [FE]
{
    struct mob_data *md = (struct mob_data*)bl;
    int id = va_arg(ap, int);
    if (md->class_ == id)
        return 1;
    return 0;
}

ACMD(mapmoblist)
{
	char temp[100];
    bool mob_searched[MAX_MOB_DB];
    bool mob_mvp[MAX_MOB_DB]; // Store mvp data..
    struct s_mapiterator* it;
    unsigned short count = 0, i, mi = 0;
    int m = 0;

    memset(mob_searched, 0, MAX_MOB_DB);
    memset(mob_mvp, 0, MAX_MOB_DB);

    if (!message && *message) {
        // Player input map name, search mob list for that map
        mi = mapindex->name2id(message);
        if (!mi) {
            clif->message(fd, "Map not found");
            return -1;
        }
        m = map->mapindex2mapid(mi);
    } else {
        // Player doesn't input map name, search mob list in player current map
        mi = sd->mapindex;
        m = sd->bl.m;
    }

    clif->message(fd, "--------Monster List--------");

    sprintf(temp, "Mapname: %s", mapindex_id2name(mi));
    clif->message(fd, temp);

    clif->message(fd, "Monsters: ");

    //Looping and search for mobs
    it = mapit_geteachmob();
    while (true) {
        TBL_MOB* md = (TBL_MOB*)mapit->next(it);
        if (md == NULL)
            break;

        if (md->bl.m != m || md->status.hp <= 0)
            continue;
        if (mob_searched[md->class_] == true)
            continue; // Already found, skip it
        if (mob->db(md->class_)->mexp) {
            mob_searched[md->class_] = true;
            mob_mvp[md->class_] = true; // Save id for later
            continue; // It's MVP!
        }

        mob_searched[md->class_] = true;
        count = map->foreachinmap(count_mob, m, BL_MOB, md->class_);

        sprintf(temp, " %s[%d] : %d", mob->db(md->class_)->jname, md->class_, count);

        clif->message(fd, temp);
    }
    mapit->free(it);

    clif->message(fd, "MVP: ");

    // Looping again and search for mvp, not sure if this is the best way..
    for (i = 1000; i < MAX_MOB_DB; i++) { //First monster start at 1001 (Scorpion)
        if (mob_mvp[i] == true) {
            count = map->foreachinmap(count_mob, m, BL_MOB, i);
            sprintf(temp, " %s[%d] : %d", mob->db(i)->jname, i, count);
            clif->message(fd, temp);
        }
    }

	return true;
}

/* Server Startup */
HPExport void plugin_init (void)
{
	mapindex = GET_SYMBOL("mapindex");
    script = GET_SYMBOL("script");
    battle = GET_SYMBOL("battle");
	mapit = GET_SYMBOL("mapit");
	clif = GET_SYMBOL("clif");
	map = GET_SYMBOL("map");
	mob = GET_SYMBOL("mob");

	addAtcommand("mapmoblist",mapmoblist);
}