root/src/map/guild.c @ 1

// Copyright (c) Athena Dev Teams - Licensed under GNU GPL
// For more information, see LICENCE in the main folder

#include "../common/cbasetypes.h"
#include "../common/timer.h"
#include "../common/nullpo.h"
#include "../common/malloc.h"
#include "../common/mapindex.h"
#include "../common/showmsg.h"
#include "../common/ers.h"
#include "../common/strlib.h"
#include "../common/utils.h"

#include "map.h"
#include "guild.h"
#include "storage.h"
#include "battle.h"
#include "npc.h"
#include "pc.h"
#include "status.h"
#include "mob.h"
#include "intif.h"
#include "clif.h"
#include "skill.h"
#include "log.h"

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


static DBMap* guild_db; // int guild_id -> struct guild*
static DBMap* castle_db; // int castle_id -> struct guild_castle*
static DBMap* guild_expcache_db; // int char_id -> struct guild_expcache*
static DBMap* guild_infoevent_db; // int guild_id -> struct eventlist*
static DBMap* guild_castleinfoevent_db; // int castle_id_index -> struct eventlist*

struct eventlist {
        char name[50];
        struct eventlist *next;
};

// ƒMƒ‹ƒh‚ÌEXPƒLƒƒƒbƒVƒ…‚̃tƒ‰ƒbƒVƒ…‚ÉŠÖ˜A‚·‚é’萔
#define GUILD_SEND_XY_INVERVAL  5000    // À•W‚â‚g‚o‘—M‚ÌŠÔŠu
#define GUILD_PAYEXP_INVERVAL 10000     // ŠÔŠu(ƒLƒƒƒbƒVƒ…‚̍ő吶‘¶ŽžŠÔAƒ~ƒŠ•b)
#define GUILD_PAYEXP_LIST 8192  // ƒLƒƒƒbƒVƒ…‚̍ő吔

// ƒMƒ‹ƒh‚ÌEXPƒLƒƒƒbƒVƒ…
struct guild_expcache {
        int guild_id, account_id, char_id;
        unsigned int exp;
};
static struct eri *expcache_ers; //For handling of guild exp payment.

struct{
        int id;
        int max;
        struct{
                short id;
                short lv;
        }need[6];
} guild_skill_tree[MAX_GUILDSKILL];

// timer for auto saving guild data during WoE
#define GUILD_SAVE_INTERVAL 300000
int guild_save_timer = -1;

int guild_payexp_timer(int tid, unsigned int tick, int id, intptr data);
int guild_save_sub(int tid, unsigned int tick, int id, intptr data);
static int guild_send_xy_timer(int tid, unsigned int tick, int id, intptr data);

/*==========================================
 * Retrieves and validates the sd pointer for this guild member [Skotlex]
 *------------------------------------------*/
static TBL_PC* guild_sd_check(int guild_id, int account_id, int char_id)
{
        TBL_PC* sd = map_id2sd(account_id);

        if (!(sd && sd->status.char_id == char_id))
                return NULL;

        if (sd->status.guild_id != guild_id)
        {       //If player belongs to a different guild, kick him out.
                intif_guild_leave(guild_id,account_id,char_id,0,"** Guild Mismatch **");
                return NULL;
        }

        return sd;
}

 // Modified [Komurka]
int guild_skill_get_max (int id)
{
        if (id < GD_SKILLBASE || id >= GD_SKILLBASE+MAX_GUILDSKILL)
                return 0;
        return guild_skill_tree[id-GD_SKILLBASE].max;
}

// ƒMƒ‹ƒhƒXƒLƒ‹‚ª‚ ‚é‚©Šm”F
int guild_checkskill(struct guild *g,int id)
{
        int idx = id-GD_SKILLBASE;
        if (idx < 0 || idx >= MAX_GUILDSKILL)
                return 0;
        return g->skill[idx].lv;
}

/*==========================================
 * guild_skill_tree.txt reading - from jA [Komurka]
 *------------------------------------------*/
int guild_read_guildskill_tree_db(void)
{
        int i,k,id=0,ln=0;
        FILE *fp;
        char line[1024],*p;

        memset(guild_skill_tree,0,sizeof(guild_skill_tree));
        sprintf(line, "%s/guild_skill_tree.txt", db_path);
        if( (fp=fopen(line,"r"))==NULL){
                ShowError("can't read %s\n", line);
                return -1;
        }
        while(fgets(line, sizeof(line), fp))
        {
                char *split[50];
                if(line[0]=='/' && line[1]=='/')
                        continue;
                for(i=0,p=line;i<12 && p;i++){
                        split[i]=p;
                        p=strchr(p,',');
                        if(p) *p++=0;
                }
                if(i<12)
                        continue;
                id = atoi(split[0]) - GD_SKILLBASE;
                if(id<0 || id>=MAX_GUILDSKILL)
                        continue;
                guild_skill_tree[id].id=atoi(split[0]);
                guild_skill_tree[id].max=atoi(split[1]);
                if (guild_skill_tree[id].id==GD_GLORYGUILD && battle_config.require_glory_guild && guild_skill_tree[id].max==0) guild_skill_tree[id].max=1;
                for(k=0;k<5;k++){
                        guild_skill_tree[id].need[k].id=atoi(split[k*2+2]);
                        guild_skill_tree[id].need[k].lv=atoi(split[k*2+3]);
                }
        ln++;
        }
        fclose(fp);
        ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' entries in '"CL_WHITE"%s"CL_RESET"'.\n",ln,"guild_skill_tree.txt");

        return 0;
}

/*==========================================
 * Guild skill check - from jA [Komurka]
 *------------------------------------------*/
int guild_check_skill_require(struct guild *g,int id)
{
        int i;
        int idx = id-GD_SKILLBASE;

        if(g == NULL)
                return 0;

        if (idx < 0 || idx >= MAX_GUILDSKILL)
                return 0;

        for(i=0;i<5;i++)
        {
                if(guild_skill_tree[idx].need[i].id == 0) break;
                if(guild_skill_tree[idx].need[i].lv > guild_checkskill(g,guild_skill_tree[idx].need[i].id))
                        return 0;
        }
        return 1;
}

static int guild_read_castledb(void)
{
        FILE *fp;
        char line[1024];
        int j,ln=0;
        char *str[32],*p;
        struct guild_castle *gc;

        sprintf(line, "%s/castle_db.txt", db_path);
        if( (fp=fopen(line,"r"))==NULL){
                ShowError("can't read %s\n", line);
                return -1;
        }

        while(fgets(line, sizeof(line), fp))
        {
                if(line[0]=='/' && line[1]=='/')
                        continue;
                memset(str,0,sizeof(str));
                for(j=0,p=line;j<6 && p;j++){
                        str[j]=p;
                        p=strchr(p,',');
                        if(p) *p++=0;
                }
                if (j < 4) //Insufficient data for castle. [Skotlex]
                {
                        ShowError("castle_db.txt: invalid line '%s'\n", line);
                        continue;
                }

                gc=(struct guild_castle *)aCalloc(1,sizeof(struct guild_castle));
                gc->castle_id=atoi(str[0]);
                gc->mapindex = mapindex_name2id(str[1]);
                safestrncpy(gc->castle_name,str[2],NAME_LENGTH);
                safestrncpy(gc->castle_event,str[3],NAME_LENGTH);

                idb_put(castle_db,gc->castle_id,gc);

                //intif_guild_castle_info(gc->castle_id);

                ln++;
        }
        fclose(fp);
        ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' entries in '"CL_WHITE"%s"CL_RESET"'.\n",ln,"castle_db.txt");
        return 0;
}

/// lookup: guild id -> guild*
struct guild* guild_search(int guild_id)
{
        return (struct guild*)idb_get(guild_db,guild_id);
}

/// lookup: guild name -> guild*
struct guild* guild_searchname(char* str)
{
        struct guild* g;

        DBIterator* iter = guild_db->iterator(guild_db);
        for( g = (struct guild*)iter->first(iter,NULL); iter->exists(iter); g = (struct guild*)iter->next(iter,NULL) )
        {
                if( strcmpi(g->name, str) == 0 )
                        break;
        }
        iter->destroy(iter);

        return g;
}

/// lookup: castle id -> castle*
struct guild_castle* guild_castle_search(int gcid)
{
        return (struct guild_castle*)idb_get(castle_db,gcid);
}

/// lookup: map index -> castle*
struct guild_castle* guild_mapindex2gc(short mapindex)
{
        struct guild_castle* gc;

        DBIterator* iter = castle_db->iterator(castle_db);
        for( gc = (struct guild_castle*)iter->first(iter,NULL); iter->exists(iter); gc = (struct guild_castle*)iter->next(iter,NULL) )
        {
                if( gc->mapindex == mapindex )
                        break;
        }
        iter->destroy(iter);

        return gc;
}

/// lookup: map name -> castle*
struct guild_castle* guild_mapname2gc(const char* mapname)
{
        return guild_mapindex2gc(mapindex_name2id(mapname));
}

struct map_session_data* guild_getavailablesd(struct guild* g)
{
        int i;

        nullpo_retr(NULL, g);

        ARR_FIND( 0, g->max_member, i, g->member[i].sd != NULL );
        return( i < g->max_member ) ? g->member[i].sd : NULL;
}

/// lookup: player AID/CID -> member index
int guild_getindex(struct guild *g,int account_id,int char_id)
{
        int i;

        if( g == NULL )
                return -1;

        ARR_FIND( 0, g->max_member, i, g->member[i].account_id == account_id && g->member[i].char_id == char_id );
        return( i < g->max_member ) ? i : -1;
}

/// lookup: player sd -> member position
int guild_getposition(struct guild* g, struct map_session_data* sd)
{
        int i;

        if( g == NULL && (g=guild_search(sd->status.guild_id)) == NULL )
                return -1;
        
        ARR_FIND( 0, g->max_member, i, g->member[i].account_id == sd->status.account_id && g->member[i].char_id == sd->status.char_id );
        return( i < g->max_member ) ? g->member[i].position : -1;
}

// ƒƒ“ƒo[î•ñ‚̍쐬
void guild_makemember(struct guild_member *m,struct map_session_data *sd)
{
        nullpo_retv(sd);

        memset(m,0,sizeof(struct guild_member));
        m->account_id   =sd->status.account_id;
        m->char_id              =sd->status.char_id;
        m->hair                 =sd->status.hair;
        m->hair_color   =sd->status.hair_color;
        m->gender               =sd->status.sex;
        m->class_               =sd->status.class_;
        m->lv                   =sd->status.base_level;
//      m->exp                  =0;
//      m->exp_payper   =0;
        m->online               =1;
        m->position             =MAX_GUILDPOSITION-1;
        memcpy(m->name,sd->status.name,NAME_LENGTH);
        return;
}

// ƒMƒ‹ƒh‚ÌEXPƒLƒƒƒbƒVƒ…‚ðinterŽI‚Ƀtƒ‰ƒbƒVƒ…‚·‚é
int guild_payexp_timer_sub(DBKey dataid, void *data, va_list ap)
{
        int i;
        struct guild_expcache *c;
        struct guild *g;

        c = (struct guild_expcache *)data;
        
        if (
                (g = guild_search(c->guild_id)) == NULL ||
                (i = guild_getindex(g, c->account_id, c->char_id)) < 0
        ) {
                ers_free(expcache_ers, data);
                return 0;
        }

        if (g->member[i].exp > UINT_MAX - c->exp)
                g->member[i].exp = UINT_MAX;
        else
                g->member[i].exp+= c->exp;

        intif_guild_change_memberinfo(g->guild_id,c->account_id,c->char_id,
                GMI_EXP,&g->member[i].exp,sizeof(g->member[i].exp));
        c->exp=0;

        ers_free(expcache_ers, data);
        return 0;
}

int guild_payexp_timer(int tid, unsigned int tick, int id, intptr data)
{
        guild_expcache_db->clear(guild_expcache_db,guild_payexp_timer_sub);
        return 0;
}

//Taken from party_send_xy_timer_sub. [Skotlex]
int guild_send_xy_timer_sub(DBKey key,void *data,va_list ap)
{
        struct guild *g=(struct guild *)data;
        int i;

        nullpo_retr(0, g);

        for(i=0;i<g->max_member;i++){
                struct map_session_data *sd;
                if((sd=g->member[i].sd)!=NULL){
                        if(sd->guild_x!=sd->bl.x || sd->guild_y!=sd->bl.y){
                                clif_guild_xy(sd);
                                sd->guild_x=sd->bl.x;
                                sd->guild_y=sd->bl.y;
                        }
                }
        }
        return 0;
}

//Code from party_send_xy_timer [Skotlex]
static int guild_send_xy_timer(int tid, unsigned int tick, int id, intptr data)
{
        guild_db->foreach(guild_db,guild_send_xy_timer_sub,tick);
        return 0;
}

int guild_send_dot_remove(struct map_session_data *sd)
{
        if (sd->status.guild_id)
                clif_guild_xy_remove(sd);
        return 0;
}
//------------------------------------------------------------------------

int guild_create(struct map_session_data *sd, const char *name)
{
        char tname[NAME_LENGTH];
        struct guild_member m;
        nullpo_retr(0, sd);

        safestrncpy(tname, name, NAME_LENGTH);
        if( strlen(trim(tname)) == 0 )
                return 0; // empty name

        if( sd->status.guild_id )
        {// already in a guild
                clif_guild_created(sd,1);
                return 0;
        }
        if( battle_config.guild_emperium_check && pc_search_inventory(sd,714) == -1 )
        {// item required
                clif_guild_created(sd,3);
                return 0;
        }

        guild_makemember(&m,sd);
        m.position=0;
        intif_guild_create(name,&m);
        return 1;
}

// ì¬‰Â”Û
int guild_created(int account_id,int guild_id)
{
        struct map_session_data *sd=map_id2sd(account_id);

        if(sd==NULL)
                return 0;
        if(!guild_id) {
                clif_guild_created(sd,2);       // ì¬Žž”si“¯–ŒƒMƒ‹ƒh‘¶Ýj
                return 0;
        }
        //struct guild *g;
        sd->status.guild_id=guild_id;
        clif_guild_created(sd,0);
        if(battle_config.guild_emperium_check)
                pc_delitem(sd,pc_search_inventory(sd,714),1,0); // ƒGƒ“ƒyƒŠƒEƒ€Á–Õ
        return 0;
}

// î•ñ—v‹
int guild_request_info(int guild_id)
{
        return intif_guild_request_info(guild_id);
}

// ƒCƒxƒ“ƒg•t‚«î•ñ—v‹
int guild_npc_request_info(int guild_id,const char *event)
{
        if( guild_search(guild_id) )
        {
                if( event && *event )
                        npc_event_do(event);

                return 0;
        }

        if( event && *event )
        {
                struct eventlist* ev;
                ev=(struct eventlist *)aCalloc(sizeof(struct eventlist),1);
                memcpy(ev->name,event,strlen(event));
                //The one in the db becomes the next event from this.
                ev->next = (struct eventlist*)idb_put(guild_infoevent_db,guild_id,ev);
        }

        return guild_request_info(guild_id);
}

// Š‘®ƒLƒƒƒ‰‚ÌŠm”F
int guild_check_member(struct guild *g)
{
        int i;
        struct map_session_data *sd;
        struct s_mapiterator* iter;

        nullpo_retr(0, g);

        iter = mapit_getallusers();
        for( sd = (TBL_PC*)mapit_first(iter); mapit_exists(iter); sd = (TBL_PC*)mapit_next(iter) )
        {
                if( sd->status.guild_id != g->guild_id )
                        continue;

                i = guild_getindex(g,sd->status.account_id,sd->status.char_id);
                if (i < 0) {
                        sd->status.guild_id=0;
                        sd->guild_emblem_id=0;
                        ShowWarning("guild: check_member %d[%s] is not member\n",sd->status.account_id,sd->status.name);
                }
        }
        mapit_free(iter);

        return 0;
}

// î•ñŠ“ŸŽž”si‚»‚ÌID‚̃Lƒƒƒ‰‚ð‘S•”–¢Š‘®‚É‚·‚éj
int guild_recv_noinfo(int guild_id)
{
        struct map_session_data *sd;
        struct s_mapiterator* iter;

        iter = mapit_getallusers();
        for( sd = (TBL_PC*)mapit_first(iter); mapit_exists(iter); sd = (TBL_PC*)mapit_next(iter) )
        {
                if( sd->status.guild_id == guild_id )
                        sd->status.guild_id = 0; // erase guild
        }
        mapit_free(iter);

        return 0;
}

// î•ñŠ“Ÿ
int guild_recv_info(struct guild *sg)
{
        struct guild *g,before;
        int i,bm,m;
        struct eventlist *ev,*ev2;
        struct map_session_data *sd;
        bool guild_new = false;

        nullpo_retr(0, sg);

        if((g = (struct guild*)idb_get(guild_db,sg->guild_id))==NULL)
        {
                guild_new = true;
                g=(struct guild *)aCalloc(1,sizeof(struct guild));
                idb_put(guild_db,sg->guild_id,g);
                before=*sg;

                // Å‰‚̃[ƒh‚Ȃ̂ц[ƒU[‚̃`ƒFƒbƒN‚ðs‚€
                guild_check_member(sg);
                if ((sd = map_nick2sd(sg->master)) != NULL)
                {
                        //If the guild master is online the first time the guild_info is received,
                        //that means he was the first to join, so apply guild skill blocking here.
                        if( battle_config.guild_skill_relog_delay )
                                guild_block_skill(sd, 300000);

                        //Also set the guild master flag.
                        sd->state.gmaster_flag = g;
                        clif_charnameupdate(sd); // [LuzZza]
                        clif_guild_masterormember(sd);
                }
        }else
                before=*g;
        memcpy(g,sg,sizeof(struct guild));

        if(g->max_member > MAX_GUILD)
        {
                ShowError("guild_recv_info: Received guild with %d members, but MAX_GUILD is only %d. Extra guild-members have been lost!\n", g->max_member, MAX_GUILD);
                g->max_member = MAX_GUILD;
        }
        
        for(i=bm=m=0;i<g->max_member;i++){
                if(g->member[i].account_id>0){
                        sd = g->member[i].sd = guild_sd_check(g->guild_id, g->member[i].account_id, g->member[i].char_id);
                        if (sd) clif_charnameupdate(sd); // [LuzZza]
                        m++;
                }else
                        g->member[i].sd=NULL;
                if(before.member[i].account_id>0)
                        bm++;
        }

        for(i=0;i<g->max_member;i++){   // î•ñ‚Ì‘—M
                sd = g->member[i].sd;
                if( sd==NULL )
                        continue;

                if(     before.guild_lv!=g->guild_lv || bm!=m ||
                        before.max_member!=g->max_member ){
                        clif_guild_basicinfo(sd);       // Šî–{î•ñ‘—M
                        clif_guild_emblem(sd,g);        // ƒGƒ“ƒuƒŒƒ€‘—M
                }

                if(bm!=m){              // ƒƒ“ƒo[î•ñ‘—M
                        clif_guild_memberlist(g->member[i].sd);
                }

                if( before.skill_point!=g->skill_point)
                        clif_guild_skillinfo(sd);       // ƒXƒLƒ‹î•ñ‘—M

                if( guild_new ){        // –¢‘—M‚Ȃ珊‘®î•ñ‚à‘—‚é
                        clif_guild_belonginfo(sd,g);
                        clif_guild_notice(sd,g);
                        sd->guild_emblem_id=g->emblem_id;
                }
        }

        // ƒCƒxƒ“ƒg‚Ì”­¶
        if( (ev = (struct eventlist*)idb_remove(guild_infoevent_db,sg->guild_id))!=NULL )
        {
                while(ev){
                        npc_event_do(ev->name);
                        ev2=ev->next;
                        aFree(ev);
                        ev=ev2;
                }
        }

        return 0;
}


// ƒMƒ‹ƒh‚Ö‚ÌŠ©—U
int guild_invite(struct map_session_data *sd,struct map_session_data *tsd)
{
        struct guild *g;
        int i;

        nullpo_retr(0, sd);

        g=guild_search(sd->status.guild_id);

        if(tsd==NULL || g==NULL)
                return 0;

        if( (i=guild_getposition(g,sd))<0 || !(g->position[i].mode&0x0001) )
                return 0; //Invite permission.

        if(!battle_config.invite_request_check) {
                if (tsd->party_invite>0 || tsd->trade_partner || tsd->adopt_invite ) {  // ‘ŠŽè‚ªŽæˆø’†‚©‚Ç‚€‚©
                        clif_guild_inviteack(sd,0);
                        return 0;
                }
        }
        
        if (!tsd->fd) { //You can't invite someone who has already disconnected.
                clif_guild_inviteack(sd,1);
                return 0;
        }

        if(tsd->status.guild_id>0 ||
                tsd->guild_invite>0 ||
                (agit_flag && map[tsd->bl.m].flag.gvg_castle))
        {       //Can't invite people inside castles. [Skotlex]
                clif_guild_inviteack(sd,0);
                return 0;
        }

        // ’èˆõŠm”F
        ARR_FIND( 0, g->max_member, i, g->member[i].account_id == 0 );
        if(i==g->max_member){
                clif_guild_inviteack(sd,3);
                return 0;
        }

        tsd->guild_invite=sd->status.guild_id;
        tsd->guild_invite_account=sd->status.account_id;

        clif_guild_invite(tsd,g);
        return 0;
}

/// Guild invitation reply.
/// flag: 0:rejected, 1:accepted
int guild_reply_invite(struct map_session_data* sd, int guild_id, int flag)
{
        struct map_session_data* tsd;

        nullpo_retr(0, sd);

        // subsequent requests may override the value
        if( sd->guild_invite != guild_id )
                return 0; // mismatch

        // look up the person who sent the invite
        //NOTE: this can be NULL because the person might have logged off in the meantime
        tsd = map_id2sd(sd->guild_invite_account);

        if( flag == 0 )
        {// rejected
                sd->guild_invite = 0;
                sd->guild_invite_account = 0;
                if( tsd ) clif_guild_inviteack(tsd,1);
        }
        else
        {// accepted
                struct guild_member m;
                struct guild* g;
                int i;

                if( (g=guild_search(guild_id)) == NULL )
                {
                        sd->guild_invite = 0;
                        sd->guild_invite_account = 0;
                        return 0;
                }

                ARR_FIND( 0, g->max_member, i, g->member[i].account_id == 0 );
                if( i == g->max_member )
                {
                        sd->guild_invite = 0;
                        sd->guild_invite_account = 0;
                        if( tsd ) clif_guild_inviteack(tsd,3);
                        return 0;
                }

                guild_makemember(&m,sd);
                intif_guild_addmember(guild_id, &m);
                //TODO: send a minimap update to this player
        }

        return 0;
}

//Invoked when a player joins.
//- If guild is not in memory, it is requested
//- Otherwise sd pointer is set up.
//- Player must be authed and must belong to a guild before invoking this method
void guild_member_joined(struct map_session_data *sd)
{
        struct guild* g;
        int i;
        g=guild_search(sd->status.guild_id);
        if (!g) {
                guild_request_info(sd->status.guild_id);
                return;
        }
        if (strcmp(sd->status.name,g->master) == 0)
        {       // set the Guild Master flag
                sd->state.gmaster_flag = g;
                // prevent Guild Skills from being used directly after relog
                if( battle_config.guild_skill_relog_delay )
                        guild_block_skill(sd, 300000);
        }
        i = guild_getindex(g, sd->status.account_id, sd->status.char_id);
        if (i == -1)
                sd->status.guild_id = 0;
        else
                g->member[i].sd = sd;
}

// ƒMƒ‹ƒhƒƒ“ƒo‚ª’ljÁ‚³‚ê‚œ
int guild_member_added(int guild_id,int account_id,int char_id,int flag)
{
        struct map_session_data *sd= map_id2sd(account_id),*sd2;
        struct guild *g;

        if( (g=guild_search(guild_id))==NULL )
                return 0;

        if(sd==NULL || sd->guild_invite==0){
                // ƒLƒƒƒ‰‘€‚É“o˜^‚Å‚«‚È‚©‚Á‚œ‚œ‚ß’E‘Þ—v‹‚ðo‚·
                if (flag == 0) {
                        ShowError("guild: member added error %d is not online\n",account_id);
                        intif_guild_leave(guild_id,account_id,char_id,0,"** Data Error **");
                }
                return 0;
        }
        sd2 = map_id2sd(sd->guild_invite_account);
        sd->guild_invite = 0;
        sd->guild_invite_account = 0;

        if(flag==1){    // Žž”s
                if( sd2!=NULL )
                        clif_guild_inviteack(sd2,3);
                return 0;
        }

                // ¬Œ÷
        sd->status.guild_id = g->guild_id;
        sd->guild_emblem_id = g->emblem_id;
        //Packets which were sent in the previous 'guild_sent' implementation.
        clif_guild_belonginfo(sd,g);
        clif_guild_notice(sd,g);

        //TODO: send new emblem info to others

        if( sd2!=NULL )
                clif_guild_inviteack(sd2,2);

        //Next line commented because it do nothing, look at guild_recv_info [LuzZza]
        //clif_charnameupdate(sd); //Update display name [Skotlex]

        return 0;
}

// ƒMƒ‹ƒh’E‘Þ—v‹
int guild_leave(struct map_session_data* sd, int guild_id, int account_id, int char_id, const char* mes)
{
        struct guild *g;

        nullpo_retr(0, sd);

        g = guild_search(sd->status.guild_id);

        if(g==NULL)
                return 0;

        if(sd->status.account_id!=account_id ||
                sd->status.char_id!=char_id || sd->status.guild_id!=guild_id ||
                (agit_flag && map[sd->bl.m].flag.gvg_castle))
                return 0;

        intif_guild_leave(sd->status.guild_id, sd->status.account_id, sd->status.char_id,0,mes);
        return 0;
}

// ƒMƒ‹ƒh’Ç•ú—v‹
int guild_expulsion(struct map_session_data* sd, int guild_id, int account_id, int char_id, const char* mes)
{
        struct map_session_data *tsd;
        struct guild *g;
        int i,ps;

        nullpo_retr(0, sd);

        g = guild_search(sd->status.guild_id);

        if(g==NULL)
                return 0;

        if(sd->status.guild_id!=guild_id)
                return 0;

        if( (ps=guild_getposition(g,sd))<0 || !(g->position[ps].mode&0x0010) )
                return 0;       //Expulsion permission

        //Can't leave inside guild castles.
        if ((tsd = map_id2sd(account_id)) &&
                tsd->status.char_id == char_id &&
                (agit_flag && map[tsd->bl.m].flag.gvg_castle))
                return 0;

        // find the member and perform expulsion
        i = guild_getindex(g, account_id, char_id);
        if( i != -1 && strcmp(g->member[i].name,g->master) != 0 ) //Can't expel the GL!
                intif_guild_leave(g->guild_id,account_id,char_id,1,mes);

        return 0;
}

int guild_member_leaved(int guild_id, int account_id, int char_id, int flag, const char* name, const char* mes)
{
        int i;
        struct guild* g = guild_search(guild_id);
        struct map_session_data* sd = map_charid2sd(char_id);
        struct map_session_data* online_member_sd;

        if(g == NULL)
                return 0; // no such guild (error!)
        
        i = guild_getindex(g, account_id, char_id);
        if( i == -1 )
                return 0; // not a member (inconsistency!)

        online_member_sd = guild_getavailablesd(g);
        if(online_member_sd == NULL)
                return 0; // noone online to inform

        if(!flag)
                clif_guild_leave(online_member_sd, name, mes);
        else
                clif_guild_expulsion(online_member_sd, name, mes, account_id);

        // remove member from guild
        memset(&g->member[i],0,sizeof(struct guild_member));
        clif_guild_memberlist(online_member_sd);

        // update char, if online
        if(sd != NULL && sd->status.guild_id == guild_id)
        {
                // do stuff that needs the guild_id first, BEFORE we wipe it
                if (sd->state.storage_flag == 2) //Close the guild storage.
                        storage_guild_storageclose(sd);
                guild_send_dot_remove(sd);

                sd->status.guild_id = 0;
                sd->guild_emblem_id = 0;
                
                clif_charnameupdate(sd); //Update display name [Skotlex]
                //TODO: send emblem update to self and people around
        }
        return 0;
}

int guild_send_memberinfoshort(struct map_session_data *sd,int online)
{ // cleaned up [LuzZza]
        struct guild *g;
        
        nullpo_retr(0, sd);
                
        if(sd->status.guild_id <= 0)
                return 0;

        if(!(g = guild_search(sd->status.guild_id)))
                return 0;

        intif_guild_memberinfoshort(g->guild_id,
                sd->status.account_id,sd->status.char_id,online,sd->status.base_level,sd->status.class_);

        if(!online){
                int i=guild_getindex(g,sd->status.account_id,sd->status.char_id);
                if(i>=0)
                        g->member[i].sd=NULL;
                else
                        ShowError("guild_send_memberinfoshort: Failed to locate member %d:%d in guild %d!\n", sd->status.account_id, sd->status.char_id, g->guild_id);
                return 0;
        }
        
        if(sd->state.connect_new)
        {       //Note that this works because it is invoked in parse_LoadEndAck before connect_new is cleared.
                clif_guild_belonginfo(sd,g);
                clif_guild_notice(sd,g);
                sd->guild_emblem_id = g->emblem_id;
        }
        return 0;
}

int guild_recv_memberinfoshort(int guild_id,int account_id,int char_id,int online,int lv,int class_)
{ // cleaned up [LuzZza]
        
        int i,alv,c,idx=-1,om=0,oldonline=-1;
        struct guild *g = guild_search(guild_id);
        
        if(g == NULL)
                return 0;
        
        for(i=0,alv=0,c=0,om=0;i<g->max_member;i++){
                struct guild_member *m=&g->member[i];
                if(!m->account_id) continue;
                if(m->account_id==account_id && m->char_id==char_id ){
                        oldonline=m->online;
                        m->online=online;
                        m->lv=lv;
                        m->class_=class_;
                        idx=i;
                }
                alv+=m->lv;
                c++;
                if(m->online)
                        om++;
        }
        
        if(idx == -1 || c == 0) {
                // ƒMƒ‹ƒh‚̃ƒ“ƒo[ŠO‚È‚Ì‚Å’Ç•úˆµ‚¢‚·‚é
                struct map_session_data *sd = map_id2sd(account_id);
                if(sd && sd->status.char_id == char_id) {
                        sd->status.guild_id=0;
                        sd->guild_emblem_id=0;
                }
                ShowWarning("guild: not found member %d,%d on %d[%s]\n",        account_id,char_id,guild_id,g->name);
                return 0;
        }
        
        g->average_lv=alv/c;
        g->connect_member=om;

        //Ensure validity of pointer (ie: player logs in/out, changes map-server)
        g->member[idx].sd = guild_sd_check(guild_id, account_id, char_id);

        if(oldonline!=online) 
                clif_guild_memberlogin_notice(g, idx, online);
        
        if(!g->member[idx].sd)
                return 0;

        //Send XY dot updates. [Skotlex]
        //Moved from guild_send_memberinfoshort [LuzZza]
        for(i=0; i < g->max_member; i++) {
                
                if(!g->member[i].sd || i == idx ||
                        g->member[i].sd->bl.m != g->member[idx].sd->bl.m)
                        continue;

                clif_guild_xy_single(g->member[idx].sd->fd, g->member[i].sd);
                clif_guild_xy_single(g->member[i].sd->fd, g->member[idx].sd);
        }

        return 0;
}
// ƒMƒ‹ƒh‰ï˜b‘—M
int guild_send_message(struct map_session_data *sd,const char *mes,int len)
{
        nullpo_retr(0, sd);

        if(sd->status.guild_id==0)
                return 0;
        intif_guild_message(sd->status.guild_id,sd->status.account_id,mes,len);
        guild_recv_message(sd->status.guild_id,sd->status.account_id,mes,len);

        // Chat logging type 'G' / Guild Chat
        if( log_config.chat&1 || (log_config.chat&16 && !(agit_flag && log_config.chat&64)) )
                log_chat("G", sd->status.guild_id, sd->status.char_id, sd->status.account_id, mapindex_id2name(sd->mapindex), sd->bl.x, sd->bl.y, NULL, mes);

        return 0;
}
// ƒMƒ‹ƒh‰ï˜bŽóM
int guild_recv_message(int guild_id,int account_id,const char *mes,int len)
{
        struct guild *g;
        if( (g=guild_search(guild_id))==NULL)
                return 0;
        clif_guild_message(g,account_id,mes,len);
        return 0;
}
// ƒMƒ‹ƒhƒƒ“ƒo‚Ì–ðE•ÏX
int guild_change_memberposition(int guild_id,int account_id,int char_id,int idx)
{
        return intif_guild_change_memberinfo(guild_id,account_id,char_id,GMI_POSITION,&idx,sizeof(idx));
}
// ƒMƒ‹ƒhƒƒ“ƒo‚Ì–ðE•ÏX’Ê’m
int guild_memberposition_changed(struct guild *g,int idx,int pos)
{
        nullpo_retr(0, g);

        g->member[idx].position=pos;
        clif_guild_memberpositionchanged(g,idx);
        
        // Update char position in client [LuzZza]
        if(g->member[idx].sd != NULL)
                clif_charnameupdate(g->member[idx].sd);
        return 0;
}
// ƒMƒ‹ƒh–ðE•ÏX
int guild_change_position(int guild_id,int idx,
        int mode,int exp_mode,const char *name)
{
        struct guild_position p;

        exp_mode = cap_value(exp_mode, 0, battle_config.guild_exp_limit);
        //Mode 0x01 <- Invite
        //Mode 0x10 <- Expel.
        p.mode=mode&0x11;
        p.exp_mode=exp_mode;
        safestrncpy(p.name,name,NAME_LENGTH);
        return intif_guild_position(guild_id,idx,&p);
}
// ƒMƒ‹ƒh–ðE•ÏX’Ê’m
int guild_position_changed(int guild_id,int idx,struct guild_position *p)
{
        struct guild *g=guild_search(guild_id);
        int i;
        if(g==NULL)
                return 0;
        memcpy(&g->position[idx],p,sizeof(struct guild_position));
        clif_guild_positionchanged(g,idx);
        
        // Update char name in client [LuzZza]
        for(i=0;i<g->max_member;i++)
                if(g->member[i].position == idx && g->member[i].sd != NULL)
                        clif_charnameupdate(g->member[i].sd);
        return 0;
}
// ƒMƒ‹ƒh’m•ÏX
int guild_change_notice(struct map_session_data *sd,int guild_id,const char *mes1,const char *mes2)
{
        nullpo_retr(0, sd);

        if(guild_id!=sd->status.guild_id)
                return 0;
        return intif_guild_notice(guild_id,mes1,mes2);
}
// ƒMƒ‹ƒh’m•ÏX’Ê’m
int guild_notice_changed(int guild_id,const char *mes1,const char *mes2)
{
        int i;
        struct map_session_data *sd;
        struct guild *g=guild_search(guild_id);
        if(g==NULL)
                return 0;

        memcpy(g->mes1,mes1,60);
        memcpy(g->mes2,mes2,120);

        for(i=0;i<g->max_member;i++){
                if((sd=g->member[i].sd)!=NULL)
                        clif_guild_notice(sd,g);
        }
        return 0;
}
// ƒMƒ‹ƒhƒGƒ“ƒuƒŒƒ€•ÏX
int guild_change_emblem(struct map_session_data *sd,int len,const char *data)
{
        struct guild *g;
        nullpo_retr(0, sd);

        if (battle_config.require_glory_guild &&
                !((g = guild_search(sd->status.guild_id)) && guild_checkskill(g, GD_GLORYGUILD)>0)) {
                clif_skill_fail(sd,GD_GLORYGUILD,0,0);
                return 0;
        }

        return intif_guild_emblem(sd->status.guild_id,len,data);
}
// ƒMƒ‹ƒhƒGƒ“ƒuƒŒƒ€•ÏX’Ê’m
int guild_emblem_changed(int len,int guild_id,int emblem_id,const char *data)
{
        int i;
        struct map_session_data *sd;
        struct guild *g=guild_search(guild_id);
        if(g==NULL)
                return 0;

        memcpy(g->emblem_data,data,len);
        g->emblem_len=len;
        g->emblem_id=emblem_id;

        for(i=0;i<g->max_member;i++){
                if((sd=g->member[i].sd)!=NULL){
                        sd->guild_emblem_id=emblem_id;
                        clif_guild_belonginfo(sd,g);
                        clif_guild_emblem(sd,g);
                        clif_guild_emblem_area(&sd->bl);
                }
        }
        {// update guardians (mobs)
                DBIterator* iter = db_iterator(castle_db);
                struct guild_castle* gc;
                for( gc = (struct guild_castle*)dbi_first(iter) ; dbi_exists(iter); gc = (struct guild_castle*)dbi_next(iter) )
                {
                        if( gc->guild_id != guild_id )
                                continue;
                        // update permanent guardians
                        for( i = 0; i < ARRAYLENGTH(gc->guardian); ++i )
                        {
                                TBL_MOB* md = (gc->guardian[i].id ? map_id2md(gc->guardian[i].id) : NULL);
                                if( md == NULL || md->guardian_data == NULL )
                                        continue;
                                md->guardian_data->emblem_id = emblem_id;
                                clif_guild_emblem_area(&md->bl);
                        }
                        // update temporary guardians
                        for( i = 0; i < gc->temp_guardians_max; ++i )
                        {
                                TBL_MOB* md = (gc->temp_guardians[i] ? map_id2md(gc->temp_guardians[i]) : NULL);
                                if( md == NULL || md->guardian_data == NULL )
                                        continue;
                                md->guardian_data->emblem_id = emblem_id;
                                clif_guild_emblem_area(&md->bl);
                        }
                }
                dbi_destroy(iter);
        }
        {// update npcs (flags or other npcs that used flagemblem to attach to this guild)
                // TODO this is not efficient [FlavioJS]
                struct s_mapiterator* iter = mapit_geteachnpc();
                TBL_NPC* nd;
                for( nd = (TBL_NPC*)mapit_first(iter) ; mapit_exists(iter); nd = (TBL_NPC*)mapit_next(iter) )
                {
                        if( nd->subtype != SCRIPT || nd->u.scr.guild_id != guild_id )
                                continue;
                        clif_guild_emblem_area(&nd->bl);
                }
                mapit_free(iter);
        }
        return 0;
}

static void* create_expcache(DBKey key, va_list args)
{
        struct guild_expcache *c;
        struct map_session_data *sd = va_arg(args, struct map_session_data*);

        c = ers_alloc(expcache_ers, struct guild_expcache);
        c->guild_id = sd->status.guild_id;
        c->account_id = sd->status.account_id;
        c->char_id = sd->status.char_id;
        c->exp = 0;
        return c;
}

// ƒMƒ‹ƒh‚ÌEXPã”[
unsigned int guild_payexp(struct map_session_data *sd,unsigned int exp)
{
        struct guild *g;
        struct guild_expcache *c;
        int per;
        
        nullpo_retr(0, sd);

        if (!exp) return 0;
        
        if (sd->status.guild_id == 0 ||
                (g = guild_search(sd->status.guild_id)) == NULL ||
                (per = guild_getposition(g,sd)) < 0 ||
                (per = g->position[per].exp_mode) < 1)
                return 0;
        

        if (per < 100)
                exp = (unsigned int) exp * per / 100;
        //Otherwise tax everything.
        
        c = (struct guild_expcache*)guild_expcache_db->ensure(guild_expcache_db, i2key(sd->status.char_id), create_expcache, sd);

        if (c->exp > UINT_MAX - exp)
                c->exp = UINT_MAX;
        else
                c->exp += exp;
        
        return exp;
}

// Celest
int guild_getexp(struct map_session_data *sd,int exp)
{
        struct guild *g;
        struct guild_expcache *c;
        nullpo_retr(0, sd);

        if (sd->status.guild_id == 0 || (g = guild_search(sd->status.guild_id)) == NULL)
                return 0;

        c = (struct guild_expcache*)guild_expcache_db->ensure(guild_expcache_db, i2key(sd->status.char_id), create_expcache, sd);
        if (c->exp > UINT_MAX - exp)
                c->exp = UINT_MAX;
        else
                c->exp += exp;
        return exp;
}

// ƒXƒLƒ‹ƒ|ƒCƒ“ƒgŠ„‚èU‚è
int guild_skillup(TBL_PC* sd, int skill_num)
{
        struct guild* g;
        int idx = skill_num - GD_SKILLBASE;

        nullpo_retr(0, sd);

        if( idx < 0 || idx >= MAX_GUILDSKILL || // not a guild skill
                        sd->status.guild_id == 0 || (g=guild_search(sd->status.guild_id)) == NULL || // no guild
                        strcmp(sd->status.name, g->master) ) // not the guild master
                return 0;

        if( g->skill_point > 0 &&
                        g->skill[idx].id != 0 &&
                        g->skill[idx].lv < guild_skill_get_max(skill_num) )
                intif_guild_skillup(g->guild_id, skill_num, sd->status.account_id);

        return 0;
}
// ƒXƒLƒ‹ƒ|ƒCƒ“ƒgŠ„‚èU‚è’Ê’m
int guild_skillupack(int guild_id,int skill_num,int account_id)
{
        struct map_session_data *sd=map_id2sd(account_id);
        struct guild *g=guild_search(guild_id);
        int i;
        if(g==NULL)
                return 0;
        if(sd!=NULL)
                clif_guild_skillup(sd,skill_num,g->skill[skill_num-GD_SKILLBASE].lv);
        // ‘Sˆõ‚É’Ê’m
        for(i=0;i<g->max_member;i++)
                if((sd=g->member[i].sd)!=NULL)
                        clif_guild_skillinfo(sd);
        return 0;
}

// ƒMƒ‹ƒh“¯–¿”Š“Ÿ
int guild_get_alliance_count(struct guild *g,int flag)
{
        int i,c;

        nullpo_retr(0, g);

        for(i=c=0;i<MAX_GUILDALLIANCE;i++){
                if(     g->alliance[i].guild_id>0 &&
                        g->alliance[i].opposition==flag )
                        c++;
        }
        return c;
}

// Blocks all guild skills which have a common delay time.
void guild_block_skill(struct map_session_data *sd, int time)
{
        int skill_num[] = { GD_BATTLEORDER, GD_REGENERATION, GD_RESTORE, GD_EMERGENCYCALL };
        int i;
        for (i = 0; i < 4; i++)
                skill_blockpc_start(sd, skill_num[i], time);
}

// “¯–¿ŠÖŒW‚©‚Ç‚€‚©ƒ`ƒFƒbƒN
// “¯–¿‚È‚ç1A‚»‚êˆÈŠO‚Í0
int guild_check_alliance(int guild_id1, int guild_id2, int flag)
{
        struct guild *g;
        int i;

        g = guild_search(guild_id1);
        if (g == NULL)
                return 0;

        ARR_FIND( 0, MAX_GUILDALLIANCE, i, g->alliance[i].guild_id == guild_id2 && g->alliance[i].opposition == flag );
        return( i < MAX_GUILDALLIANCE ) ? 1 : 0;
}

// ƒMƒ‹ƒh“¯–¿—v‹
int guild_reqalliance(struct map_session_data *sd,struct map_session_data *tsd)
{
        struct guild *g[2];
        int i;

        if(agit_flag)   {       // Disable alliance creation during woe [Valaris]
                clif_displaymessage(sd->fd,"Alliances cannot be made during Guild Wars!");
                return 0;
        }       // end addition [Valaris]


        nullpo_retr(0, sd);

        if(tsd==NULL || tsd->status.guild_id<=0)
                return 0;

        g[0]=guild_search(sd->status.guild_id);
        g[1]=guild_search(tsd->status.guild_id);

        if(g[0]==NULL || g[1]==NULL)
                return 0;

        // Prevent creation alliance with same guilds [LuzZza]
        if(sd->status.guild_id == tsd->status.guild_id)
                return 0;

        if( guild_get_alliance_count(g[0],0) >= battle_config.max_guild_alliance )      {
                clif_guild_allianceack(sd,4);
                return 0;
        }
        if( guild_get_alliance_count(g[1],0) >= battle_config.max_guild_alliance ) {
                clif_guild_allianceack(sd,3);
                return 0;
        }

        if( tsd->guild_alliance>0 ){
                clif_guild_allianceack(sd,1);
                return 0;
        }

        for(i=0;i<MAX_GUILDALLIANCE;i++){       // ‚·‚Å‚É“¯–¿ó‘Ô‚©Šm”F
                if(     g[0]->alliance[i].guild_id==tsd->status.guild_id &&
                        g[0]->alliance[i].opposition==0){
                        clif_guild_allianceack(sd,0);
                        return 0;
                }
        }

        tsd->guild_alliance=sd->status.guild_id;
        tsd->guild_alliance_account=sd->status.account_id;

        clif_guild_reqalliance(tsd,sd->status.account_id,g[0]->name);
        return 0;
}
// ƒMƒ‹ƒhŠ©—U‚Ö‚Ì•Ô“š
int guild_reply_reqalliance(struct map_session_data *sd,int account_id,int flag)
{
        struct map_session_data *tsd;

        nullpo_retr(0, sd);
        tsd= map_id2sd( account_id );
        if (!tsd) { //Character left? Cancel alliance.
                clif_guild_allianceack(sd,3);
                return 0;
        }

        if(sd->guild_alliance!=tsd->status.guild_id)    // Š©—U‚ƃMƒ‹ƒhID‚ªˆá‚€
                return 0;

        if(flag==1){    // ³‘ø
                int i;

                struct guild *g,*tg;    // “¯–¿”ÄŠm”F
                g=guild_search(sd->status.guild_id);
                tg=guild_search(tsd->status.guild_id);
                
                if(g==NULL || guild_get_alliance_count(g,0) >= battle_config.max_guild_alliance){
                        clif_guild_allianceack(sd,4);
                        clif_guild_allianceack(tsd,3);
                        return 0;
                }
                if(tg==NULL || guild_get_alliance_count(tg,0) >= battle_config.max_guild_alliance){
                        clif_guild_allianceack(sd,3);
                        clif_guild_allianceack(tsd,4);
                        return 0;
                }

                for(i=0;i<MAX_GUILDALLIANCE;i++){
                        if(g->alliance[i].guild_id==tsd->status.guild_id &&
                                g->alliance[i].opposition==1)
                                intif_guild_alliance( sd->status.guild_id,tsd->status.guild_id,
                                        sd->status.account_id,tsd->status.account_id,9 );
                }
                for(i=0;i<MAX_GUILDALLIANCE;i++){
                        if(tg->alliance[i].guild_id==sd->status.guild_id &&
                                tg->alliance[i].opposition==1)
                                intif_guild_alliance( tsd->status.guild_id,sd->status.guild_id,
                                        tsd->status.account_id,sd->status.account_id,9 );
                }

                // interŽI‚Ö“¯–¿—v¿
                intif_guild_alliance( sd->status.guild_id,tsd->status.guild_id,
                        sd->status.account_id,tsd->status.account_id,0 );
                return 0;
        }else{          // ‹‘”Û
                sd->guild_alliance=0;
                sd->guild_alliance_account=0;
                if(tsd!=NULL)
                        clif_guild_allianceack(tsd,3);
        }
        return 0;
}

// ƒMƒ‹ƒhŠÖŒW‰ðÁ
int guild_delalliance(struct map_session_data *sd,int guild_id,int flag)
{
        nullpo_retr(0, sd);

        if(agit_flag)   {       // Disable alliance breaking during woe [Valaris]
                clif_displaymessage(sd->fd,"Alliances cannot be broken during Guild Wars!");
                return 0;
        }       // end addition [Valaris]

        intif_guild_alliance( sd->status.guild_id,guild_id,sd->status.account_id,0,flag|8 );
        return 0;
}

// ƒMƒ‹ƒh“G‘Î
int guild_opposition(struct map_session_data *sd,struct map_session_data *tsd)
{
        struct guild *g;
        int i;

        nullpo_retr(0, sd);

        g=guild_search(sd->status.guild_id);
        if(g==NULL || tsd==NULL)
                return 0;

        // Prevent creation opposition with same guilds [LuzZza]
        if(sd->status.guild_id == tsd->status.guild_id)
                return 0;

        if( guild_get_alliance_count(g,1) >= battle_config.max_guild_alliance ) {
                clif_guild_oppositionack(sd,1);
                return 0;
        }

        for(i=0;i<MAX_GUILDALLIANCE;i++){       // ‚·‚Å‚ÉŠÖŒW‚ðŽ‚Á‚Ä‚¢‚é‚©Šm”F
                if(g->alliance[i].guild_id==tsd->status.guild_id){
                        if(g->alliance[i].opposition==1){       // ‚·‚Å‚É“G‘Î
                                clif_guild_oppositionack(sd,2);
                                return 0;
                        }
                        //Change alliance to opposition.
                        intif_guild_alliance( sd->status.guild_id,tsd->status.guild_id,
                                sd->status.account_id,tsd->status.account_id,8 );
                }
        }

        // interŽI‚É“G‘Ηv¿
        intif_guild_alliance( sd->status.guild_id,tsd->status.guild_id,
                        sd->status.account_id,tsd->status.account_id,1 );
        return 0;
}

// ƒMƒ‹ƒh“¯–¿/“G‘Î’Ê’m
int guild_allianceack(int guild_id1,int guild_id2,int account_id1,int account_id2,int flag,const char *name1,const char *name2)
{
        struct guild *g[2];
        int guild_id[2];
        const char *guild_name[2];
        struct map_session_data *sd[2];
        int j,i;

        guild_id[0] = guild_id1;
        guild_id[1] = guild_id2;
        guild_name[0] = name1;
        guild_name[1] = name2;
        sd[0] = map_id2sd(account_id1);
        sd[1] = map_id2sd(account_id2);

        g[0]=guild_search(guild_id1);
        g[1]=guild_search(guild_id2);

        if(sd[0]!=NULL && (flag&0x0f)==0){
                sd[0]->guild_alliance=0;
                sd[0]->guild_alliance_account=0;
        }

        if(flag&0x70){  // Žž”s
                for(i=0;i<2-(flag&1);i++)
                        if( sd[i]!=NULL )
                                clif_guild_allianceack(sd[i],((flag>>4)==i+1)?3:4);
                return 0;
        }

        if(!(flag&0x08)){       // ŠÖŒW’ljÁ
                for(i=0;i<2-(flag&1);i++)
                {
                        if(g[i]!=NULL)
                        {
                                ARR_FIND( 0, MAX_GUILDALLIANCE, j, g[i]->alliance[j].guild_id == 0 );
                                if( j < MAX_GUILDALLIANCE )
                                {
                                        g[i]->alliance[j].guild_id=guild_id[1-i];
                                        memcpy(g[i]->alliance[j].name,guild_name[1-i],NAME_LENGTH);
                                        g[i]->alliance[j].opposition=flag&1;
                                }
                        }
                }
        }else{                          // ŠÖŒW‰ðÁ
                for(i=0;i<2-(flag&1);i++)
                {
                        if(g[i]!=NULL)
                        {
                                ARR_FIND( 0, MAX_GUILDALLIANCE, j, g[i]->alliance[j].guild_id == guild_id[1-i] && g[i]->alliance[j].opposition == (flag&1) );
                                if( j < MAX_GUILDALLIANCE )
                                        g[i]->alliance[j].guild_id = 0;
                        }
                        if( sd[i]!=NULL )       // ‰ðÁ’Ê’m
                                clif_guild_delalliance(sd[i],guild_id[1-i],(flag&1));
                }
        }

        if((flag&0x0f)==0){                     // “¯–¿’Ê’m
                if( sd[1]!=NULL )
                        clif_guild_allianceack(sd[1],2);
        }else if((flag&0x0f)==1){       // “G‘Î’Ê’m
                if( sd[0]!=NULL )
                        clif_guild_oppositionack(sd[0],0);
        }


        for(i=0;i<2-(flag&1);i++){      // “¯–¿/“G‘΃ŠƒXƒg‚̍đ—M
                struct map_session_data *sd;
                if(g[i]!=NULL)
                        for(j=0;j<g[i]->max_member;j++)
                                if((sd=g[i]->member[j].sd)!=NULL)
                                        clif_guild_allianceinfo(sd);
        }
        return 0;
}
// ƒMƒ‹ƒh‰ðŽU’Ê’m—p
int guild_broken_sub(DBKey key,void *data,va_list ap)
{
        struct guild *g=(struct guild *)data;
        int guild_id=va_arg(ap,int);
        int i,j;
        struct map_session_data *sd=NULL;

        nullpo_retr(0, g);

        for(i=0;i<MAX_GUILDALLIANCE;i++){       // ŠÖŒW‚ð”jŠü
                if(g->alliance[i].guild_id==guild_id){
                        for(j=0;j<g->max_member;j++)
                                if( (sd=g->member[j].sd)!=NULL )
                                        clif_guild_delalliance(sd,guild_id,g->alliance[i].opposition);
                        intif_guild_alliance(g->guild_id, guild_id,0,0,g->alliance[i].opposition|8);
                        g->alliance[i].guild_id=0;
                }
        }
        return 0;
}

//Invoked on Castles when a guild is broken. [Skotlex]
int castle_guild_broken_sub(DBKey key,void *data,va_list ap)
{
        struct guild_castle *gc=(struct guild_castle *)data;
        int guild_id=va_arg(ap,int);

        nullpo_retr(0, gc);

        if (gc->guild_id == guild_id)
        {       //Save the new 'owner', this should invoke guardian clean up and other such things.
                gc->guild_id = 0;
                guild_castledatasave(gc->castle_id, 1, 0);
        }
        return 0;
}

//Innvoked on /breakguild "Guild name"
int guild_broken(int guild_id,int flag)
{
        struct guild *g=guild_search(guild_id);
        struct guild_castle *gc=NULL;
        struct map_session_data *sd;
        int i;
        char name[50];

        if(flag!=0 || g==NULL)
                return 0;

        //we call castle_event::OnGuildBreak of all castlesof the guild
        //you can set all castle_events in the castle_db.txt
        for(i=0;i<MAX_GUILDCASTLE;i++){
                if( (gc=guild_castle_search(i)) != NULL ){
                        if(gc->guild_id == guild_id){
                                safestrncpy(name, gc->castle_event, 50);
                                npc_event_do(strcat(name,"::OnGuildBreak"));
                        }
                }
        }

        for(i=0;i<g->max_member;i++){   // ƒMƒ‹ƒh‰ðŽU‚ð’Ê’m
                if((sd=g->member[i].sd)!=NULL){
                        if(sd->state.storage_flag == 2)
                                storage_guild_storage_quit(sd,1);
                        sd->status.guild_id=0;
                        clif_guild_broken(g->member[i].sd,0);
                        clif_charnameupdate(sd); // [LuzZza]
                }
        }

        guild_db->foreach(guild_db,guild_broken_sub,guild_id);
        castle_db->foreach(castle_db,castle_guild_broken_sub,guild_id);
        guild_storage_delete(guild_id);
        idb_remove(guild_db,guild_id);
        return 0;
}

//Changes the Guild Master to the specified player. [Skotlex]
int guild_gm_change(int guild_id, struct map_session_data *sd)
{
        struct guild *g;
        nullpo_retr(0, sd);

        if (sd->status.guild_id != guild_id)
                return 0;
        
        g=guild_search(guild_id);

        nullpo_retr(0, g);

        if (strcmp(g->master, sd->status.name) == 0) //Nothing to change.
                return 0;

        //Notify servers that master has changed.
        intif_guild_change_gm(guild_id, sd->status.name, strlen(sd->status.name));
        return 1;
}

//Notification from Char server that a guild's master has changed. [Skotlex]
int guild_gm_changed(int guild_id, int account_id, int char_id)
{
        struct guild *g;
        struct guild_member gm;
        int pos;

        g=guild_search(guild_id);

        if (!g)
                return 0;

        for(pos=0; pos<g->max_member && !(
                g->member[pos].account_id==account_id &&
                g->member[pos].char_id==char_id);
                pos++);

        if (pos == 0 || pos == g->max_member) return 0;

        memcpy(&gm, &g->member[pos], sizeof (struct guild_member));
        memcpy(&g->member[pos], &g->member[0], sizeof(struct guild_member));
        memcpy(&g->member[0], &gm, sizeof(struct guild_member));

        g->member[pos].position = g->member[0].position;
        g->member[0].position = 0; //Position 0: guild Master.
        strcpy(g->master, g->member[0].name);

        if (g->member[pos].sd && g->member[pos].sd->fd)
        {
                clif_displaymessage(g->member[pos].sd->fd, "You no longer are the Guild Master.");
                g->member[pos].sd->state.gmaster_flag = 0;
        }
        
        if (g->member[0].sd && g->member[0].sd->fd)
        {
                clif_displaymessage(g->member[0].sd->fd, "You have become the Guild Master!");
                g->member[0].sd->state.gmaster_flag = g;
                //Block his skills for 5 minutes to prevent abuse.
                guild_block_skill(g->member[0].sd, 300000);
        }       
        return 1;
}

// ƒMƒ‹ƒh‰ðŽU
int guild_break(struct map_session_data *sd,char *name)
{
        struct guild *g;
        int i;

        nullpo_retr(0, sd);

        if( (g=guild_search(sd->status.guild_id))==NULL )
                return 0;
        if(strcmp(g->name,name)!=0)
                return 0;
        if(!sd->state.gmaster_flag)
                return 0;
        for(i=0;i<g->max_member;i++){
                if(     g->member[i].account_id>0 && (
                        g->member[i].account_id!=sd->status.account_id ||
                        g->member[i].char_id!=sd->status.char_id ))
                        break;
        }
        if(i<g->max_member){
                clif_guild_broken(sd,2);
                return 0;
        }

        intif_guild_break(g->guild_id);
        return 0;
}

// ƒMƒ‹ƒhéƒf[ƒ^—v‹
int guild_castledataload(int castle_id,int index)
{
        return intif_guild_castle_dataload(castle_id,index);
}
// ƒMƒ‹ƒhéî•ñŠ“ŸŽžƒCƒxƒ“ƒg’ljÁ
int guild_addcastleinfoevent(int castle_id,int index,const char *name)
{
        struct eventlist *ev;
        int code=castle_id|(index<<16);

        if( name==NULL || *name==0 )
                return 0;

        ev = (struct eventlist *)aMalloc(sizeof(struct eventlist));
        memcpy(ev->name,name,sizeof(ev->name));
        //The next event becomes whatever was currently stored.
        ev->next = (struct eventlist *)idb_put(guild_castleinfoevent_db,code,ev);
        return 0;
}

// ƒMƒ‹ƒhéƒf[ƒ^—v‹•ÔM
int guild_castledataloadack(int castle_id,int index,int value)
{
        struct guild_castle *gc=guild_castle_search(castle_id);
        int code=castle_id|(index<<16);
        struct eventlist *ev,*ev2;

        if(gc==NULL){
                return 0;
        }
        switch(index){
        case 1:
                gc->guild_id = value;
                if (gc->guild_id && guild_search(gc->guild_id)==NULL) //Request guild data which will be required for spawned guardians. [Skotlex]
                        guild_request_info(gc->guild_id);
                break;
        case 2: gc->economy = value; break;
        case 3: gc->defense = value; break;
        case 4: gc->triggerE = value; break;
        case 5: gc->triggerD = value; break;
        case 6: gc->nextTime = value; break;
        case 7: gc->payTime = value; break;
        case 8: gc->createTime = value; break;
        case 9: gc->visibleC = value; break;
        case 10:
        case 11:
        case 12:
        case 13:
        case 14:
        case 15:
        case 16:
        case 17:
                gc->guardian[index-10].visible = value; break;
        default:
                ShowError("guild_castledataloadack ERROR!! (Not found index=%d)\n", index);
                return 0;
        }

        if( (ev = (struct eventlist *)idb_remove(guild_castleinfoevent_db,code))!=NULL )
        {
                while(ev){
                        npc_event_do(ev->name);
                        ev2=ev->next;
                        aFree(ev);
                        ev=ev2;
                }
        }
        return 1;
}
// ƒMƒ‹ƒhéƒf[ƒ^•ÏX—v‹
int guild_castledatasave(int castle_id,int index,int value)
{
        if( index == 1 )
        {       //The castle's owner has changed? Update Guardian ownership, too. [Skotlex]
                struct guild_castle *gc = guild_castle_search(castle_id);
                int m = -1;
                if (gc) m = map_mapindex2mapid(gc->mapindex);
                if (m != -1)
                        map_foreachinmap(mob_guardian_guildchange, m, BL_MOB); //FIXME: why not iterate over gc->guardian[i].id ?
        }
        else
        if( index == 3 )
        {       // defense invest change -> recalculate guardian hp
                struct guild_castle* gc = guild_castle_search(castle_id);
                if( gc )
                {
                        int i;
                        struct mob_data* gd;
                        for( i = 0; i < MAX_GUARDIANS; i++ )
                                if( gc->guardian[i].visible && (gd = map_id2md(gc->guardian[i].id)) != NULL )
                                                status_calc_mob(gd,0);
                }
        }

        return intif_guild_castle_datasave(castle_id,index,value);
}

// ƒMƒ‹ƒhéƒf[ƒ^•ÏX’Ê’m
int guild_castledatasaveack(int castle_id,int index,int value)
{
        struct guild_castle *gc=guild_castle_search(castle_id);
        if(gc==NULL){
                return 0;
        }
        switch(index){
        case 1: gc->guild_id = value; break;
        case 2: gc->economy = value; break;
        case 3: gc->defense = value; break;
        case 4: gc->triggerE = value; break;
        case 5: gc->triggerD = value; break;
        case 6: gc->nextTime = value; break;
        case 7: gc->payTime = value; break;
        case 8: gc->createTime = value; break;
        case 9: gc->visibleC = value; break;
        case 10:
        case 11:
        case 12:
        case 13:
        case 14:
        case 15:
        case 16:
        case 17:
                gc->guardian[index-10].visible = value; break;
        default:
                ShowError("guild_castledatasaveack ERROR!! (Not found index=%d)\n", index);
                return 0;
        }
        return 1;
}

// ƒMƒ‹ƒhƒf[ƒ^ˆêŠ‡ŽóMi‰Šú‰»Žžj
int guild_castlealldataload(int len,struct guild_castle *gc)
{
        int i;
        int n = (len-4) / sizeof(struct guild_castle);
        int ev;

        nullpo_retr(0, gc);

        //Last owned castle in the list invokes ::OnAgitinit
        for( i = n-1; i >= 0 && !(gc[i].guild_id); --i );
        ev = i; // offset of castle or -1

        if( ev < 0 ) //No castles owned, invoke OnAgitInit as it is.
                npc_event_doall("OnAgitInit");
        else // load received castles into memory, one by one
        for( i = 0; i < n; i++, gc++ )
        {
                struct guild_castle *c = guild_castle_search(gc->castle_id);
                if (!c) {
                        ShowError("guild_castlealldataload Castle id=%d not found.\n", gc->castle_id);
                        continue;
                }

                // update mapserver castle data with new info
                memcpy(&c->guild_id, &gc->guild_id, sizeof(struct guild_castle) - ((int)&c->guild_id - (int)c));

                if( c->guild_id )
                {
                        if( i != ev )
                                guild_request_info(c->guild_id);
                        else // last owned one
                                guild_npc_request_info(c->guild_id, "::OnAgitInit");
                }
        }

        return 0;
}

int guild_agit_start(void)
{       // Run All NPC_Event[OnAgitStart]
        int c = npc_event_doall("OnAgitStart");
        ShowStatus("NPC_Event:[OnAgitStart] Run (%d) Events by @AgitStart.\n",c);
        // Start auto saving
        guild_save_timer = add_timer_interval (gettick() + GUILD_SAVE_INTERVAL, guild_save_sub, 0, 0, GUILD_SAVE_INTERVAL);
        return 0;
}

int guild_agit_end(void)
{       // Run All NPC_Event[OnAgitEnd]
        int c = npc_event_doall("OnAgitEnd");
        ShowStatus("NPC_Event:[OnAgitEnd] Run (%d) Events by @AgitEnd.\n",c);
        // Stop auto saving
        delete_timer (guild_save_timer, guild_save_sub);
        return 0;
}

int guild_save_sub(int tid, unsigned int tick, int id, intptr data)
{
        static int Gid[MAX_GUILDCASTLE]; // previous owning guild
        struct guild_castle *gc;
        int i;

        for(i = 0; i < MAX_GUILDCASTLE; i++) {  // [Yor]
                gc = guild_castle_search(i);
                if (!gc) continue;
                if (gc->guild_id != Gid[i]) {
                        // Re-save guild id if its owner guild has changed
                        guild_castledatasave(gc->castle_id, 1, gc->guild_id);
                        Gid[i] = gc->guild_id;
                }
        }

        return 0;
}

// How many castles does this guild have?
int guild_checkcastles(struct guild *g)
{
        int i, nb_cas = 0;
        struct guild_castle* gc;

        for(i = 0; i < MAX_GUILDCASTLE; i++) {
                gc = guild_castle_search(i);
                if(gc && gc->guild_id == g->guild_id)
                        nb_cas++;
        }

        return nb_cas;
}

// Are these two guilds allied?
bool guild_isallied(int guild_id, int guild_id2)
{
        int i;
        struct guild* g = guild_search(guild_id);
        nullpo_retr(0, g);

        ARR_FIND( 0, MAX_GUILDALLIANCE, i, g->alliance[i].guild_id == guild_id2 );
        return( i < MAX_GUILDALLIANCE && g->alliance[i].opposition == 0 );
}

static int guild_infoevent_db_final(DBKey key,void *data,va_list ap)
{
        aFree(data);
        return 0;
}

static int guild_expcache_db_final(DBKey key,void *data,va_list ap)
{
        ers_free(expcache_ers, data);
        return 0;
}

static int guild_castle_db_final(DBKey key, void* data,va_list ap)
{
        struct guild_castle* gc = (struct guild_castle*)data;
        if( gc->temp_guardians )
                aFree(gc->temp_guardians);
        aFree(data);
        return 0;
}

void do_init_guild(void)
{
        guild_db=idb_alloc(DB_OPT_RELEASE_DATA);
        castle_db=idb_alloc(DB_OPT_BASE);
        guild_expcache_db=idb_alloc(DB_OPT_BASE);
        guild_infoevent_db=idb_alloc(DB_OPT_BASE);
        expcache_ers = ers_new(sizeof(struct guild_expcache)); 
        guild_castleinfoevent_db=idb_alloc(DB_OPT_BASE);

        guild_read_castledb();

        guild_read_guildskill_tree_db(); //guild skill tree [Komurka]

        add_timer_func_list(guild_payexp_timer,"guild_payexp_timer");
        add_timer_func_list(guild_save_sub, "guild_save_sub");
        add_timer_func_list(guild_send_xy_timer, "guild_send_xy_timer");
        add_timer_interval(gettick()+GUILD_PAYEXP_INVERVAL,guild_payexp_timer,0,0,GUILD_PAYEXP_INVERVAL);
        add_timer_interval(gettick()+GUILD_SEND_XY_INVERVAL,guild_send_xy_timer,0,0,GUILD_SEND_XY_INVERVAL);
}

void do_final_guild(void)
{
        guild_db->destroy(guild_db,NULL);
        castle_db->destroy(castle_db,guild_castle_db_final);
        guild_expcache_db->destroy(guild_expcache_db,guild_expcache_db_final);
        guild_infoevent_db->destroy(guild_infoevent_db,guild_infoevent_db_final);
        guild_castleinfoevent_db->destroy(guild_castleinfoevent_db,guild_infoevent_db_final);
        ers_destroy(expcache_ers);
}