//===== Hercules Plugin ======================================
//= Battleground System without waitingroom
//===== By: ==================================================
//= AnnieRuru
//===== Current Version: =====================================
//= 1.5
//===== Compatible With: ===================================== 
//= Hercules 2015-11-07
//===== 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: =================================  
//= beter update this before someone say its not working ...
//============================================================
 
#include "common/hercules.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "map/script.h"
#include "map/pc.h"
#include "map/mapreg.h"
#include "common/HPMDataCheck.h"
 
HPExport struct hplugin_info pinfo = {
    "setbgid",      // Plugin name
    SERVER_TYPE_MAP,// Which server types this plugin works with?
    "1.5",          // 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) {
    addScriptCommand( "createbgid", "siiss", createbgid );
    addScriptCommand( "setbgid", "i?", setbgid );
    addScriptCommand( "getbgusers", "i", getbgusers );
}