//===== Hercules Plugin ======================================
//= Battleground System without waitingroom
//===== By: ==================================================
//= AnnieRuru
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: ===================================== 
//= Hercules 2014-08-29
//===== Description: =========================================
//= Introduce 3 new Script Commands
//= *createbgid = creates a battleground team
//= *setbgid = join a battleground team
//= *getbgusers = return an array $@arenamembers of battleground team
//===== Topic ================================================
//= http://hercules.ws/board/topic/4570-
//===== Additional Comments: =================================  
//= really frustrating to know someone put 'bg' but needs to read as "battlegrounds" <_<
//============================================================
 
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "../common/HPMi.h"
#include "../map/script.h"
#include "../map/pc.h"
#include "../map/mapreg.h"
#include "../map/battleground.h"
 
#include "../common/HPMDataCheck.h" // should always be the last file included! (if you don't make it last, it'll intentionally break compile time)
 
HPExport struct hplugin_info pinfo = {
    "setbgid",      // Plugin name
    SERVER_TYPE_MAP,// Which server types this plugin works with?
    "0.1",          // Plugin version
    HPM_VERSION,    // HPM Version (don't change, macro is automatically updated)
};
 
//  createbgid <respawn map>, <respawn x>, <respawn y>, <On Quit event>, <On Death event>;
BUILDIN(createbgid) {
    unsigned int bg_id;
    if ( ( bg_id = bg->create( mapindex->name2id( script_getstr(st,2) ), script_getnum(st,3), script_getnum(st,4), script_getstr(st,5), script_getstr(st,6) ) ) > 0 )
        script_pushint( st, bg_id );
    else
        script_pushint( st, 0 );
    return true;
}
 
//  setbgid <battleground ID> {, <player name> };
//  setbgid <battleground ID> {, <player account ID> };
BUILDIN(setbgid) {
    unsigned int bg_id = script_getnum(st,2);
    struct battleground_data *bgd = bg->team_search( bg_id );
    struct map_session_data *sd;
    if ( script_hasdata( st, 3 ) ) {
        if ( data_isstring( script_getdata(st,3) ) )
            sd = map->nick2sd( script_getstr(st,3) );
        else
            sd = map->id2sd( script_getnum(st,3) );
    } else
        sd = script->rid2sd(st);
    if ( !sd ) {
        script_pushint( st, -3 ); // player no attach
        return true;
    }
    if ( !bgd && bg_id > 0 ) {
        script_pushint( st, -1 ); // battleground team haven't created
        return true;
    }
    if ( bg_id && sd->bg_id == bg_id ) {
        script_pushint( st, -5 ); // the player has already join this battleground team
        return true;
    }
    if ( sd->bg_id )
        bg->team_leave( sd, 0 );
    if ( bg_id == 0 ) {
        script_pushint( st, 0 );
        return true;
    }
    if ( !bg->team_join( bg_id, sd ) )
        script_pushint( st, -2 ); // cannot join anymore, because has reached MAX_BG_MEMBERS
    else
        script_pushint( st, bg_id );
    return true;
}
 
//  getbgusers <battleground ID>;
BUILDIN(getbgusers) {
    struct battleground_data *bgd = bg->team_search( script_getnum(st,2) );
    int i, j = 0;
    if ( !bgd ) {
        script_pushint( st, -1 );
        return true;
    }
    for ( i = 0; i < MAX_BG_MEMBERS; i++ ) {
        if ( bgd->members[i].sd ) {
            mapreg->setreg( reference_uid( script->add_str("$@arenamembers"), j ), bgd->members[i].sd->bl.id );
            j++;
        }
    }
    mapreg->setreg( script->add_str("$@arenamembersnum"), j );
    script_pushint( st, j );
    return true;
}
 
HPExport void plugin_init (void) {
    script = GET_SYMBOL("script");
    mapreg = GET_SYMBOL("mapreg");
    bg = GET_SYMBOL("battlegrounds");
    mapindex = GET_SYMBOL("mapindex");
    map = GET_SYMBOL("map");
 
    addScriptCommand( "createbgid", "siiss", createbgid );
    addScriptCommand( "setbgid", "i?", setbgid );
    addScriptCommand( "getbgusers", "i", getbgusers );
}