path: root/src/map/guild.cpp

// $Id: guild.c,v 1.5 2004/09/25 05:32:18 MouseJstr Exp $
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "guild.hpp"
#include "storage.hpp"
#include "../common/db.hpp"
#include "../common/timer.hpp"
#include "../common/socket.hpp"
#include "../common/nullpo.hpp"
#include "battle.hpp"
#include "npc.hpp"
#include "pc.hpp"
#include "map.hpp"
#include "mob.hpp"
#include "intif.hpp"
#include "clif.hpp"
#include "tmw.hpp"

#ifdef MEMWATCH
#include "memwatch.hpp"
#endif

static struct dbt *guild_db;
static struct dbt *castle_db;
static struct dbt *guild_expcache_db;
static struct dbt *guild_infoevent_db;
static struct dbt *guild_castleinfoevent_db;

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

// ギルドのEXPキャッシュのフラッシュに関連する定数
#define GUILD_PAYEXP_INVERVAL 10000 // 間隔(キャッシュの最大生存時間、ミリ秒)
#define GUILD_PAYEXP_LIST 8192  // キャッシュの最大数

// ギルドのEXPキャッシュ
struct guild_expcache
{
    int  guild_id, account_id, char_id, exp;
};

// ギルドスキルdbのアクセサ（今は直打ちで代用）
int guild_skill_get_inf (int id)
{
    return 0;
}

int guild_skill_get_sp (int id, int lv)
{
    return 0;
}

int guild_skill_get_range (int id)
{
    return 0;
}

int guild_skill_get_max (int id)
{
    return (id == 10004) ? 10 : 1;
}

// ギルドスキルがあるか確認
int guild_checkskill (struct guild *g, int id)
{
    return g->skill[id - 10000].lv;
}

void guild_payexp_timer (timer_id tid, tick_t tick, custom_id_t id, custom_data_t data);
void guild_gvg_eliminate_timer (timer_id tid, tick_t tick, custom_id_t id, custom_data_t data);

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

    if ((fp = fopen_ ("db/castle_db.txt", "r")) == NULL)
    {
        printf ("can't read db/castle_db.txt\n");
        return -1;
    }

    while (fgets (line, 1020, fp))
    {
        if (line[0] == '/' && line[1] == '/')
            continue;
        memset (str, 0, sizeof (str));
        CREATE (gc, struct guild_castle, 1);
        for (j = 0, p = line; j < 6 && p; j++)
        {
            str[j] = p;
            p = strchr (p, ',');
            if (p)
                *p++ = 0;
        }

        gc->guild_id = 0;       // <Agit> Clear Data for Initialize
        gc->economy = 0;
        gc->defense = 0;
        gc->triggerE = 0;
        gc->triggerD = 0;
        gc->nextTime = 0;
        gc->payTime = 0;
        gc->createTime = 0;
        gc->visibleC = 0;
        gc->visibleG0 = 0;
        gc->visibleG1 = 0;
        gc->visibleG2 = 0;
        gc->visibleG3 = 0;
        gc->visibleG4 = 0;
        gc->visibleG5 = 0;
        gc->visibleG6 = 0;
        gc->visibleG7 = 0;
        gc->Ghp0 = 0;
        gc->Ghp1 = 0;
        gc->Ghp2 = 0;
        gc->Ghp3 = 0;
        gc->Ghp4 = 0;
        gc->Ghp5 = 0;
        gc->Ghp6 = 0;
        gc->Ghp7 = 0;           // guardian HP [Valaris]

        gc->castle_id = atoi (str[0]);
        memcpy (gc->map_name, str[1], 24);
        memcpy (gc->castle_name, str[2], 24);
        memcpy (gc->castle_event, str[3], 24);

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

        //intif_guild_castle_info(gc->castle_id);

        ln++;
    }
    fclose_ (fp);
    printf ("read db/castle_db.txt done (count=%d)\n", ln);
    return 0;
}

// 初期化
void do_init_guild (void)
{
    guild_db = numdb_init ();
    castle_db = numdb_init ();
    guild_expcache_db = numdb_init ();
    guild_infoevent_db = numdb_init ();
    guild_castleinfoevent_db = numdb_init ();

    guild_read_castledb ();

    add_timer_interval (gettick () + GUILD_PAYEXP_INVERVAL,
                        guild_payexp_timer, 0, 0, GUILD_PAYEXP_INVERVAL);
}

// 検索
struct guild *guild_search (int guild_id)
{
    return (struct guild *)numdb_search (guild_db, guild_id);
}

static
void guild_searchname_sub (db_key_t key, db_val_t data, va_list ap)
{
    struct guild *g = (struct guild *) data, **dst;
    char *str;
    str = va_arg (ap, char *);
    dst = va_arg (ap, struct guild **);
    if (strcasecmp (g->name, str) == 0)
        *dst = g;
}

// ギルド名検索
struct guild *guild_searchname (const char *str)
{
    struct guild *g = NULL;
    numdb_foreach (guild_db, guild_searchname_sub, str, &g);
    return g;
}

struct guild_castle *guild_castle_search (int gcid)
{
    return (struct guild_castle *)numdb_search (castle_db, gcid);
}

// mapnameに対応したアジトのgcを返す
struct guild_castle *guild_mapname2gc (const char *mapname)
{
    int  i;
    struct guild_castle *gc = NULL;
    for (i = 0; i < MAX_GUILDCASTLE; i++)
    {
        gc = guild_castle_search (i);
        if (!gc)
            continue;
        if (strcmp (gc->map_name, mapname) == 0)
            return gc;
    }
    return NULL;
}

// ログイン中のギルドメンバーの１人のsdを返す
struct map_session_data *guild_getavailablesd (struct guild *g)
{
    int  i;

    nullpo_retr (NULL, g);

    for (i = 0; i < g->max_member; i++)
        if (g->member[i].sd != NULL)
            return g->member[i].sd;
    return NULL;
}

// ギルドメンバーのインデックスを返す
int guild_getindex (struct guild *g, int account_id, int char_id)
{
    int  i;
    if (g == NULL)
        return -1;
    for (i = 0; i < g->max_member; i++)
        if (g->member[i].account_id == account_id)
            return i;
    return -1;
}

// ギルドメンバーの役職を返す
int guild_getposition (struct map_session_data *sd, struct guild *g)
{
    int  i;

    nullpo_retr (-1, sd);

    if (g == NULL && (g = guild_search (sd->status.guild_id)) == NULL)
        return -1;
    for (i = 0; i < g->max_member; i++)
        if (g->member[i].account_id == sd->status.account_id)
            return g->member[i].position;
    return -1;
}

// メンバー情報の作成
static
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 = 0;
    m->hair = sd->status.hair;
    m->hair_color = sd->status.hair_color;
    m->gender = sd->sex;
    m->pc_class = sd->status.pc_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, 24);
    return;
}

// ギルド競合確認
static
int guild_check_conflict (struct map_session_data *sd)
{
    nullpo_retr (0, sd);

    intif_guild_checkconflict (sd->status.guild_id,
                               sd->status.account_id, 0 /*char_id*/);
    return 0;
}

// ギルドのEXPキャッシュをinter鯖にフラッシュする
static
void guild_payexp_timer_sub (db_key_t key, db_val_t data, va_list ap)
{
    int  i, *dellist, *delp, dataid = key.i;
    struct guild_expcache *c;
    struct guild *g;

    nullpo_retv (ap);
    nullpo_retv (c = (struct guild_expcache *) data);
    nullpo_retv (dellist = va_arg (ap, int *));
    nullpo_retv (delp = va_arg (ap, int *));

    if (*delp >= GUILD_PAYEXP_LIST
        || (g = guild_search (c->guild_id)) == NULL)
        return;
    if ((i = guild_getindex (g, c->account_id, 0 /*c->char_id*/)) < 0)
        return;

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

    dellist[(*delp)++] = dataid;
    free (c);
}

void guild_payexp_timer (timer_id tid, tick_t tick, custom_id_t id, custom_data_t data)
{
    int  dellist[GUILD_PAYEXP_LIST], delp = 0, i;
    numdb_foreach (guild_expcache_db, guild_payexp_timer_sub, dellist, &delp);
    for (i = 0; i < delp; i++)
        numdb_erase (guild_expcache_db, dellist[i]);
//  if(battle_config.etc_log)
//      printf("guild exp %d charactor's exp flushed !\n",delp);
}

//------------------------------------------------------------------------

/* Process a guild creation request. */
int guild_create (struct map_session_data *sd, const char *name)
{
    char pname[24];

    nullpo_retr (0, sd);

    strncpy (pname, name, 24);
    pname[23] = '\0';
    tmw_TrimStr (pname);

    /* The guild name is empty/invalid. */
    if (!*pname)
        clif_guild_created (sd, 2);

    /* Make sure the character isn't already in a guild. */
    if (sd->status.guild_id == 0)
    {
        /*
         * A special item is required to create a guild. This is specified
         * in battle_athena.conf as guild_emperium_check. This item will
         * be removed from the player's inventory when used to create a
         * guild.
         */
        if (!battle_config.guild_emperium_check
            || pc_search_inventory (sd,
                                    battle_config.guild_emperium_check) >= 0)
        {
            struct guild_member m;
            guild_makemember (&m, sd);
            m.position = 0;
            intif_guild_create (pname, &m);
        }
        else
            clif_guild_created (sd, 3);
    }
    else
        clif_guild_created (sd, 1);

    return 0;
}

/* Relay the result of a guild creation request. */
int guild_created (int account_id, int guild_id)
{
    struct map_session_data *sd = map_id2sd (account_id);

    if (!sd)
        return 0;

    /* The guild name is valid and not already taken. */
    if (guild_id > 0)
    {
        struct guild *g;
        sd->status.guild_id = guild_id;
        sd->guild_sended = 0;

        if ((g = (struct guild *)numdb_search (guild_db, guild_id)) != NULL)
        {
            printf ("guild_created(): ID already exists!\n");
            exit (1);
        }

        /* The guild was created successfully. */
        clif_guild_created (sd, 0);

        if (battle_config.guild_emperium_check)
            pc_delitem (sd,
                        pc_search_inventory (sd,
                                             battle_config.
                                             guild_emperium_check), 1, 0);
    }
    else
        clif_guild_created (sd, 2);

    return 0;
}

// 情報要求
int guild_request_info (int guild_id)
{
//  if(battle_config.etc_log)
//      printf("guild_request_info\n");
    return intif_guild_request_info (guild_id);
}

// イベント付き情報要求
int guild_npc_request_info (int guild_id, const char *event)
{
    struct eventlist *ev;

    if (guild_search (guild_id))
    {
        if (event && *event)
            npc_event_do (event);
        return 0;
    }

    if (event == NULL || *event == 0)
        return guild_request_info (guild_id);

    CREATE (ev, struct eventlist, 1);
    memcpy (ev->name, event, sizeof (ev->name));
    ev->next =
        (struct eventlist *) numdb_search (guild_infoevent_db, guild_id);
    numdb_insert (guild_infoevent_db, guild_id, ev);
    return guild_request_info (guild_id);
}

// 所属キャラの確認
static
int guild_check_member (const struct guild *g)
{
    int  i;
    struct map_session_data *sd;

    nullpo_retr (0, g);

    for (i = 0; i < fd_max; i++)
    {
        if (session[i] && (sd = (struct map_session_data *)session[i]->session_data) && sd->state.auth)
        {
            if (sd->status.guild_id == g->guild_id)
            {
                int  j, f = 1;
                for (j = 0; j < MAX_GUILD; j++)
                {               // データがあるか
                    if (g->member[j].account_id == sd->status.account_id)
                        f = 0;
                }
                if (f)
                {
                    sd->status.guild_id = 0;
                    sd->guild_sended = 0;
                    sd->guild_emblem_id = 0;
                    if (battle_config.error_log)
                        printf ("guild: check_member %d[%s] is not member\n",
                                sd->status.account_id, sd->status.name);
                }
            }
        }
    }
    return 0;
}

// 情報所得失敗（そのIDのキャラを全部未所属にする）
int guild_recv_noinfo (int guild_id)
{
    int  i;
    struct map_session_data *sd;
    for (i = 0; i < fd_max; i++)
    {
        if (session[i] && (sd = (struct map_session_data *)session[i]->session_data) && sd->state.auth)
        {
            if (sd->status.guild_id == guild_id)
                sd->status.guild_id = 0;
        }
    }
    return 0;
}

// 情報所得
int guild_recv_info (struct guild *sg)
{
    struct guild *g, before;
    int  i, bm, m;
    struct eventlist *ev, *ev2;

    nullpo_retr (0, sg);

    if ((g = (struct guild *)numdb_search (guild_db, sg->guild_id)) == NULL)
    {
        CREATE (g, struct guild, 1);
        numdb_insert (guild_db, sg->guild_id, g);
        before = *sg;

        // 最初のロードなのでユーザーのチェックを行う
        guild_check_member (sg);
    }
    else
        before = *g;
    memcpy (g, sg, sizeof (struct guild));

    for (i = bm = m = 0; i < g->max_member; i++)
    {                           // sdの設定と人数の確認
        if (g->member[i].account_id > 0)
        {
            struct map_session_data *sd = map_id2sd (g->member[i].account_id);
            g->member[i].sd = (sd != NULL &&
                               sd->status.guild_id ==
                               g->guild_id) ? sd : NULL;
            m++;
        }
        else
            g->member[i].sd = NULL;
        if (before.member[i].account_id > 0)
            bm++;
    }

    for (i = 0; i < g->max_member; i++)
    {                           // 情報の送信
        struct map_session_data *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);  // 基本情報送信
            clif_guild_emblem (sd, g);  // エンブレム送信
        }

        if (bm != m)
        {                       // メンバー情報送信
            clif_guild_memberlist (g->member[i].sd);
        }

        if (before.skill_point != g->skill_point)
            clif_guild_skillinfo (sd);  // スキル情報送信

        if (sd->guild_sended == 0)
        {                       // 未送信なら所属情報も送る
            clif_guild_belonginfo (sd, g);
            clif_guild_notice (sd, g);
            sd->guild_emblem_id = g->emblem_id;
            sd->guild_sended = 1;
        }
    }

    // イベントの発生
    if ((ev = (struct eventlist *)numdb_search (guild_infoevent_db, sg->guild_id)) != NULL)
    {
        numdb_erase (guild_infoevent_db, sg->guild_id);
        for (; ev; ev2 = ev->next, free (ev), ev = ev2)
        {
            npc_event_do (ev->name);
        }
    }

    return 0;
}

// ギルドへの勧誘
int guild_invite (struct map_session_data *sd, int account_id)
{
    struct map_session_data *tsd;
    struct guild *g;
    int  i;

    nullpo_retr (0, sd);

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

    if (tsd == NULL || g == NULL)
        return 0;
    if (!battle_config.invite_request_check)
    {
        if (tsd->party_invite > 0 || tsd->trade_partner)
        {                       // 相手が取引中かどうか
            clif_guild_inviteack (sd, 0);
            return 0;
        }
    }
    if (tsd->status.guild_id > 0 || tsd->guild_invite > 0)
    {                           // 相手の所属確認
        clif_guild_inviteack (sd, 0);
        return 0;
    }

    // 定員確認
    for (i = 0; i < g->max_member; i++)
        if (g->member[i].account_id == 0)
            break;
    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;
}

// ギルド勧誘への返答
int guild_reply_invite (struct map_session_data *sd, int guild_id, int flag)
{
    struct map_session_data *tsd;

    nullpo_retr (0, sd);
    nullpo_retr (0, tsd = map_id2sd (sd->guild_invite_account));

    if (sd->guild_invite != guild_id)   // 勧誘とギルドIDが違う
        return 0;

    if (flag == 1)
    {                           // 承諾
        struct guild_member m;
        struct guild *g;
        int  i;

        // 定員確認
        if ((g = guild_search (tsd->status.guild_id)) == NULL)
        {
            sd->guild_invite = 0;
            sd->guild_invite_account = 0;
            return 0;
        }
        for (i = 0; i < g->max_member; i++)
            if (g->member[i].account_id == 0)
                break;
        if (i == g->max_member)
        {
            sd->guild_invite = 0;
            sd->guild_invite_account = 0;
            clif_guild_inviteack (tsd, 3);
            return 0;
        }

        //inter鯖へ追加要求
        guild_makemember (&m, sd);
        intif_guild_addmember (sd->guild_invite, &m);
        return 0;
    }
    else
    {                           // 拒否
        sd->guild_invite = 0;
        sd->guild_invite_account = 0;
        if (tsd == NULL)
            return 0;
        clif_guild_inviteack (tsd, 1);
    }
    return 0;
}

// ギルドメンバが追加された
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) && flag == 0)
    {
        // キャラ側に登録できなかったため脱退要求を出す
        if (battle_config.error_log)
            printf ("guild: member added error %d is not online\n",
                    account_id);
        intif_guild_leave (guild_id, account_id, 0 /*char_id*/, 0, "**登録失敗**");
        return 0;
    }
    sd->guild_invite = 0;
    sd->guild_invite_account = 0;

    sd2 = map_id2sd (sd->guild_invite_account);

    if (flag == 1)
    {                           // 失敗
        if (sd2 != NULL)
            clif_guild_inviteack (sd2, 3);
        return 0;
    }

    // 成功
    sd->guild_sended = 0;
    sd->status.guild_id = guild_id;

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

    // いちおう競合確認
    guild_check_conflict (sd);

    return 0;
}

// ギルド脱退要求
int guild_leave (struct map_session_data *sd, int guild_id,
                 int account_id, int char_id, const char *mes)
{
    struct guild *g;
    int  i;

    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.guild_id != guild_id)
        return 0;

    for (i = 0; i < g->max_member; i++)
    {                           // 所属しているか
        if (g->member[i].account_id == sd->status.account_id)
        {
            intif_guild_leave (g->guild_id, sd->status.account_id,
                               sd->status.char_id, 0, mes);
            return 0;
        }
    }
    return 0;
}

// ギルド追放要求
int guild_explusion (struct map_session_data *sd, int guild_id,
                     int account_id, int char_id, const char *mes)
{
    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 (sd, g)) < 0
        || !(g->position[ps].mode & 0x0010))
        return 0;               // 処罰権限無し

    for (i = 0; i < g->max_member; i++)
    {                           // 所属しているか
        if (g->member[i].account_id == account_id)
        {
            intif_guild_leave (g->guild_id, account_id, 0 /*char_id*/, 1, mes);
            return 0;
        }
    }
    return 0;
}

// ギルドメンバが脱退した
int guild_member_leaved (int guild_id, int account_id, int char_id, int flag,
                         const char *name, const char *mes)
{
    struct map_session_data *sd = map_id2sd (account_id);
    struct guild *g = guild_search (guild_id);
    int  i;

    if (g != NULL)
    {
        int  i;
        for (i = 0; i < g->max_member; i++)
            if (g->member[i].account_id == account_id)
            {
                struct map_session_data *sd2 = sd;
                if (sd2 == NULL)
                    sd2 = guild_getavailablesd (g);
                else
                {
                    if (flag == 0)
                        clif_guild_leave (sd2, name, mes);
                    else
                        clif_guild_explusion (sd2, name, mes, account_id);
                }
                g->member[i].account_id = 0;
                g->member[i].sd = NULL;
            }
    }
    if (sd != NULL && sd->status.guild_id == guild_id)
    {
        if (sd->state.storage_flag == 2)    //Close the guild storage.
            storage_guild_storageclose (sd);
        sd->status.guild_id = 0;
        sd->guild_emblem_id = 0;
        sd->guild_sended = 0;
    }

    // メンバーリストを全員に再通知
    for (i = 0; i < g->max_member; i++)
    {
        if (g->member[i].sd != NULL)
            clif_guild_memberlist (g->member[i].sd);
    }

    return 0;
}

// ギルドメンバのオンライン状態/Lv更新送信
int guild_send_memberinfoshort (struct map_session_data *sd, int online)
{
    struct guild *g;

    nullpo_retr (0, sd);

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

    intif_guild_memberinfoshort (g->guild_id,
                                 sd->status.account_id, 0 /*char_id*/,
                                 online, sd->status.base_level,
                                 sd->status.pc_class);

    if (!online)
    {                           // ログアウトするならsdをクリアして終了
        int  i =
            guild_getindex (g, sd->status.account_id, 0 /*char_id*/);
        if (i >= 0)
            g->member[i].sd = NULL;
        return 0;
    }

    if (sd->guild_sended != 0)  // ギルド初期送信データは送信済み
        return 0;

    // 競合確認
    guild_check_conflict (sd);

    // あるならギルド初期送信データ送信
    if ((g = guild_search (sd->status.guild_id)) != NULL)
    {
        guild_check_member (g); // 所属を確認する
        if (sd->status.guild_id == g->guild_id)
        {
            clif_guild_belonginfo (sd, g);
            clif_guild_notice (sd, g);
            sd->guild_sended = 1;
            sd->guild_emblem_id = g->emblem_id;
        }
    }
    return 0;
}

// ギルドメンバのオンライン状態/Lv更新通知
int guild_recv_memberinfoshort (int guild_id, int account_id, int char_id,
                                int online, int lv, int pc_class)
{
    int  i, alv, c, idx = 0, 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 == account_id)
        {
            oldonline = m->online;
            m->online = online;
            m->lv = lv;
            m->pc_class = pc_class;
            idx = i;
        }
        if (m->account_id > 0)
        {
            alv += m->lv;
            c++;
        }
        if (m->online)
            om++;
    }
    if (idx == g->max_member)
    {
        if (battle_config.error_log)
            printf ("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;

    if (oldonline != online)    // オンライン状態が変わったので通知
        clif_guild_memberlogin_notice (g, idx, online);

    for (i = 0; i < g->max_member; i++)
    {                           // sd再設定
        struct map_session_data *sd = map_id2sd (g->member[i].account_id);
        g->member[i].sd = (sd != NULL &&
                           sd->status.guild_id == guild_id) ? sd : NULL;
    }

    // ここにクライアントに送信処理が必要

    return 0;
}

// ギルド会話送信
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);
    return 0;
}

// ギルド会話受信
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;
}

// ギルドメンバの役職変更
int guild_change_memberposition (int guild_id, int account_id, int char_id,
                                 int idx)
{
    return intif_guild_change_memberinfo (guild_id, account_id, 0 /*char_id*/,
                                          GMI_POSITION, &idx, sizeof (idx));
}

// ギルドメンバの役職変更通知
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);
    return 0;
}

// ギルド役職変更
int guild_change_position (struct map_session_data *sd, int idx,
                           int mode, int exp_mode, const char *name)
{
    struct guild_position p;

    nullpo_retr (0, sd);

    if (exp_mode > battle_config.guild_exp_limit)
        exp_mode = battle_config.guild_exp_limit;
    if (exp_mode < 0)
        exp_mode = 0;
    p.mode = mode;
    p.exp_mode = exp_mode;
    memcpy (p.name, name, 24);
    return intif_guild_position (sd->status.guild_id, idx, &p);
}

// ギルド役職変更通知
int guild_position_changed (int guild_id, int idx, struct guild_position *p)
{
    struct guild *g = guild_search (guild_id);
    if (g == NULL)
        return 0;
    memcpy (&g->position[idx], p, sizeof (struct guild_position));
    clif_guild_positionchanged (g, idx);
    return 0;
}

// ギルド告知変更
int guild_change_notice (struct map_session_data *sd, int guild_id,
                         const char *mes1, const char *mes2)
{
    struct guild *g;
    int  ps;

    nullpo_retr (0, sd);

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

    if (g == NULL)
        return 0;

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

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

    return intif_guild_notice (guild_id, mes1, mes2);
}

// ギルド告知変更通知
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;
}

// ギルドエンブレム変更
int guild_change_emblem (struct map_session_data *sd, int len,
                         const char *data)
{
    struct guild *g;
    int  ps;

    nullpo_retr (0, sd);

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

    if (g == NULL)
        return 0;

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

    return intif_guild_emblem (sd->status.guild_id, len, data);
}

// ギルドエンブレム変更通知
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);
        }
    }
    return 0;
}

// ギルドのEXP上納
int guild_payexp (struct map_session_data *sd, int exp)
{
    struct guild *g;
    struct guild_expcache *c;
    int  per, exp2;

    nullpo_retr (0, sd);

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

    if ((exp2 = exp * per / 100) <= 0)
        return 0;

    if ((c = (struct guild_expcache *)numdb_search (guild_expcache_db, sd->status.account_id /*char_id*/)) == NULL)
    {
        CREATE (c, struct guild_expcache, 1);
        c->guild_id = sd->status.guild_id;
        c->account_id = sd->status.account_id;
        c->char_id = 0;
        c->exp = exp2;
        numdb_insert (guild_expcache_db, c->account_id /*char_id*/, c);
    }
    else
    {
        c->exp += exp2;
    }
    return exp2;
}

// スキルポイント割り振り
int guild_skillup (struct map_session_data *sd, int skill_num)
{
    struct guild *g;
    int  idx;

    nullpo_retr (0, sd);

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

    if (g->skill_point > 0 &&
        g->skill[(idx = skill_num - 10000)].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;
}

// スキルポイント割り振り通知
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 - 10000].lv);
    // 全員に通知
    for (i = 0; i < g->max_member; i++)
        if ((sd = g->member[i].sd) != NULL)
            clif_guild_skillinfo (sd);
    return 0;
}

// ギルド同盟数所得
static
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;
}

// ギルド同盟要求
int guild_reqalliance (struct map_session_data *sd, int account_id)
{
    struct map_session_data *tsd = map_id2sd (account_id);
    struct guild *g[2];
    int  i, ps;

    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;

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

    if (guild_get_alliance_count (g[0], 0) > 3) // 同盟数確認
        clif_guild_allianceack (sd, 4);
    if (guild_get_alliance_count (g[1], 0) > 3)
        clif_guild_allianceack (sd, 3);

    if (tsd->guild_alliance > 0)
    {                           // 相手が同盟要請状態かどうか確認
        clif_guild_allianceack (sd, 1);
        return 0;
    }

    for (i = 0; i < MAX_GUILDALLIANCE; i++)
    {                           // すでに同盟状態か確認
        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;
}

// ギルド勧誘への返答
int guild_reply_reqalliance (struct map_session_data *sd, int account_id,
                             int flag)
{
    struct map_session_data *tsd;

    nullpo_retr (0, sd);
    nullpo_retr (0, tsd = map_id2sd (account_id));

    if (sd->guild_alliance != tsd->status.guild_id) // 勧誘とギルドIDが違う
        return 0;

    if (flag == 1)
    {                           // 承諾
        int  i;

        struct guild *g;        // 同盟数再確認
        if ((g = guild_search (sd->status.guild_id)) == NULL ||
            guild_get_alliance_count (g, 0) > 3)
        {
            clif_guild_allianceack (sd, 4);
            clif_guild_allianceack (tsd, 3);
            return 0;
        }
        if ((g = guild_search (tsd->status.guild_id)) == NULL ||
            guild_get_alliance_count (g, 0) > 3)
        {
            clif_guild_allianceack (sd, 3);
            clif_guild_allianceack (tsd, 4);
            return 0;
        }

        // 敵対関係なら敵対を止める
        if ((g = guild_search (sd->status.guild_id)) == NULL)
            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);
        }
        if ((g = guild_search (tsd->status.guild_id)) == NULL)
            return 0;
        for (i = 0; i < MAX_GUILDALLIANCE; i++)
        {
            if (g->alliance[i].guild_id == sd->status.guild_id &&
                g->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鯖へ同盟要請
        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;
}

// ギルド関係解消
int guild_delalliance (struct map_session_data *sd, int guild_id, int flag)
{
    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]

    struct guild *g;
    int  ps;

    nullpo_retr (0, sd);

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

    if (g == NULL)
        return 0;

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

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

// ギルド敵対
int guild_opposition (struct map_session_data *sd, int account_id /*char_id*/)
{
    struct map_session_data *tsd = map_id2sd (account_id /*char_id*/);
    struct guild *g;
    int  i, ps;

    nullpo_retr (0, sd);

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

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

    if (guild_get_alliance_count (g, 1) > 3)    // 敵対数確認
        clif_guild_oppositionack (sd, 1);

    for (i = 0; i < MAX_GUILDALLIANCE; i++)
    {                           // すでに関係を持っているか確認
        if (g->alliance[i].guild_id == tsd->status.guild_id)
        {
            if (g->alliance[i].opposition == 1)
            {                   // すでに敵対
                clif_guild_oppositionack (sd, 2);
                return 0;
            }
            else                // 同盟破棄
                intif_guild_alliance (sd->status.guild_id,
                                      tsd->status.guild_id,
                                      sd->status.account_id,
                                      tsd->status.account_id, 8);
        }
    }

    // inter鯖に敵対要請
    intif_guild_alliance (sd->status.guild_id, tsd->status.guild_id,
                          sd->status.account_id, tsd->status.account_id, 1);
    return 0;
}

// ギルド同盟/敵対通知
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] = { guild_id1, guild_id2 };
    const char *guild_name[2] = { name1, name2 };
    struct map_session_data *sd[2] =
        { map_id2sd (account_id1), map_id2sd (account_id2) };
    int  j, i;

    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)
    {                           // 失敗
        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(battle_config.etc_log)
//      printf("guild alliance_ack %d %d %d %d %d %s %s\n",guild_id1,guild_id2,account_id1,account_id2,flag,name1,name2);

    if (!(flag & 0x08))
    {                           // 関係追加
        for (i = 0; i < 2 - (flag & 1); i++)
            if (g[i] != NULL)
                for (j = 0; j < MAX_GUILDALLIANCE; j++)
                    if (g[i]->alliance[j].guild_id == 0)
                    {
                        g[i]->alliance[j].guild_id = guild_id[1 - i];
                        memcpy (g[i]->alliance[j].name, guild_name[1 - i],
                                24);
                        g[i]->alliance[j].opposition = flag & 1;
                        break;
                    }
    }
    else
    {                           // 関係解消
        for (i = 0; i < 2 - (flag & 1); i++)
        {
            if (g[i] != NULL)
                for (j = 0; j < MAX_GUILDALLIANCE; j++)
                    if (g[i]->alliance[j].guild_id == guild_id[1 - i] &&
                        g[i]->alliance[j].opposition == (flag & 1))
                    {
                        g[i]->alliance[j].guild_id = 0;
                        break;
                    }
            if (sd[i] != NULL)  // 解消通知
                clif_guild_delalliance (sd[i], guild_id[1 - i], (flag & 1));
        }
    }

    if ((flag & 0x0f) == 0)
    {                           // 同盟通知
        if (sd[1] != NULL)
            clif_guild_allianceack (sd[1], 2);
    }
    else if ((flag & 0x0f) == 1)
    {                           // 敵対通知
        if (sd[0] != NULL)
            clif_guild_oppositionack (sd[0], 0);
    }

    for (i = 0; i < 2 - (flag & 1); i++)
    {                           // 同盟/敵対リストの再送信
        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;
}

// ギルド解散通知用
static
void guild_broken_sub (db_key_t key, db_val_t 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_retv (g);

    for (i = 0; i < MAX_GUILDALLIANCE; i++)
    {                           // 関係を破棄
        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);
            g->alliance[i].guild_id = 0;
        }
    }
}

// ギルド解散通知
int guild_broken (int guild_id, int flag)
{
    struct guild *g = guild_search (guild_id);
    struct map_session_data *sd;
    int  i;
    if (flag != 0 || g == NULL)
        return 0;

    for (i = 0; i < g->max_member; i++)
    {                           // ギルド解散を通知
        if ((sd = g->member[i].sd) != NULL)
        {
            if (sd->state.storage_flag == 2)
                storage_guild_storage_quit (sd, 1);
            sd->status.guild_id = 0;
            sd->guild_sended = 0;
            clif_guild_broken (g->member[i].sd, 0);
        }
    }

    numdb_foreach (guild_db, guild_broken_sub, guild_id);
    numdb_erase (guild_db, guild_id);
    guild_storage_delete (guild_id);
    free (g);
    return 0;
}

// ギルド解散
int guild_break (struct map_session_data *sd, const 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 (strcmp (sd->status.name, g->master) != 0)
        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))
            break;
    }
    if (i < g->max_member)
    {
        clif_guild_broken (sd, 2);
        return 0;
    }

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

// ギルド城データ要求
int guild_castledataload (int castle_id, int index)
{
    return intif_guild_castle_dataload (castle_id, index);
}

// ギルド城情報所得時イベント追加
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;

    CREATE (ev, struct eventlist, 1);
    memcpy (ev->name, name, sizeof (ev->name));
    ev->next = (struct eventlist *)numdb_search (guild_castleinfoevent_db, code);
    numdb_insert (guild_castleinfoevent_db, code, ev);
    return 0;
}

// ギルド城データ要求返信
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;
            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:
            gc->visibleG0 = value;
            break;
        case 11:
            gc->visibleG1 = value;
            break;
        case 12:
            gc->visibleG2 = value;
            break;
        case 13:
            gc->visibleG3 = value;
            break;
        case 14:
            gc->visibleG4 = value;
            break;
        case 15:
            gc->visibleG5 = value;
            break;
        case 16:
            gc->visibleG6 = value;
            break;
        case 17:
            gc->visibleG7 = value;
            break;
        case 18:
            gc->Ghp0 = value;
            break;              // guardian HP [Valaris]
        case 19:
            gc->Ghp1 = value;
            break;
        case 20:
            gc->Ghp2 = value;
            break;
        case 21:
            gc->Ghp3 = value;
            break;
        case 22:
            gc->Ghp4 = value;
            break;
        case 23:
            gc->Ghp5 = value;
            break;
        case 24:
            gc->Ghp6 = value;
            break;
        case 25:
            gc->Ghp7 = value;
            break;              // end additions [Valaris]
        default:
            printf ("guild_castledataloadack ERROR!! (Not found index=%d)\n",
                    index);
            return 0;
    }
    if ((ev = (struct eventlist *)numdb_search (guild_castleinfoevent_db, code)) != NULL)
    {
        numdb_erase (guild_castleinfoevent_db, code);
        for (; ev; ev2 = ev->next, free (ev), ev = ev2)
        {
            npc_event_do (ev->name);
        }
    }
    return 1;
}

// ギルド城データ変更要求
int guild_castledatasave (int castle_id, int index, int value)
{
    return intif_guild_castle_datasave (castle_id, index, value);
}

// ギルド城データ変更通知
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:
            gc->visibleG0 = value;
            break;
        case 11:
            gc->visibleG1 = value;
            break;
        case 12:
            gc->visibleG2 = value;
            break;
        case 13:
            gc->visibleG3 = value;
            break;
        case 14:
            gc->visibleG4 = value;
            break;
        case 15:
            gc->visibleG5 = value;
            break;
        case 16:
            gc->visibleG6 = value;
            break;
        case 17:
            gc->visibleG7 = value;
            break;
        case 18:
            gc->Ghp0 = value;
            break;              // guardian HP [Valaris]
        case 19:
            gc->Ghp1 = value;
            break;
        case 20:
            gc->Ghp2 = value;
            break;
        case 21:
            gc->Ghp3 = value;
            break;
        case 22:
            gc->Ghp4 = value;
            break;
        case 23:
            gc->Ghp5 = value;
            break;
        case 24:
            gc->Ghp6 = value;
            break;
        case 25:
            gc->Ghp7 = value;
            break;              // end additions [Valaris]
        default:
            printf ("guild_castledatasaveack ERROR!! (Not found index=%d)\n",
                    index);
            return 0;
    }
    return 1;
}

// ギルドデータ一括受信（初期化時）
int guild_castlealldataload (int len, struct guild_castle *gc)
{
    int  i;
    int  n = (len - 4) / sizeof (struct guild_castle), ev = -1;

    nullpo_retr (0, gc);

    // イベント付きで要求するデータ位置を探す(最後の占拠データ)
    for (i = 0; i < n; i++)
    {
        if ((gc + i)->guild_id)
            ev = i;
    }

    // 城データ格納とギルド情報要求
    for (i = 0; i < n; i++, gc++)
    {
        struct guild_castle *c = guild_castle_search (gc->castle_id);
        if (!c)
        {
            printf ("guild_castlealldataload ??\n");
            continue;
        }
        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
                guild_npc_request_info (c->guild_id, "::OnAgitInit");
        }
    }
    if (ev == -1)
        npc_event_doall ("OnAgitInit");
    return 0;
}

int guild_agit_start (void)
{                               // Run All NPC_Event[OnAgitStart]
    int  c = npc_event_doall ("OnAgitStart");
    printf ("NPC_Event:[OnAgitStart] Run (%d) Events by @AgitStart.\n", c);
    return 0;
}

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

void guild_gvg_eliminate_timer (timer_id tid, tick_t tick, custom_id_t id, custom_data_t data)
{                               // Run One NPC_Event[OnAgitEliminate]
    size_t len = strlen ((const char *) data);
    char *evname;
    CREATE (evname, char, len + 4);
    int  c = 0;

    if (!agit_flag)
        return;               // Agit already End
    memcpy (evname, (const char *) data, len - 5);
    strcpy (evname + len - 5, "Eliminate");
    c = npc_event_do (evname);
    printf ("NPC_Event:[%s] Run (%d) Events.\n", evname, c);
}

int guild_agit_break (struct mob_data *md)
{                               // Run One NPC_Event[OnAgitBreak]
    char *evname;

    nullpo_retr (0, md);

    CREATE (evname, char, strlen (md->npc_event) + 1);

    strcpy (evname, md->npc_event);
// Now By User to Run [OnAgitBreak] NPC Event...
// It's a little impossible to null point with player disconnect in this!
// But Script will be stop, so nothing...
// Maybe will be changed in the futher..
//      int c = npc_event_do(evname);
    if (!agit_flag)
        return 0;               // Agit already End
    add_timer (gettick () + battle_config.gvg_eliminate_time,
               guild_gvg_eliminate_timer, md->bl.m, (int) evname);
    return 0;
}

// [MouseJstr]
//   How many castles does this guild have?
int guild_checkcastles (struct guild *g)
{
    int  i, nb_cas = 0, id, cas_id = 0;
    struct guild_castle *gc;
    id = g->guild_id;
    for (i = 0; i < MAX_GUILDCASTLE; i++)
    {
        gc = guild_castle_search (i);
        cas_id = gc->guild_id;
        if (g->guild_id == cas_id)
            nb_cas = nb_cas + 1;
    }                           //end for
    return nb_cas;
}

// [MouseJstr]
//    is this guild allied with this castle?
int guild_isallied (struct guild *g, struct guild_castle *gc)
{
    int  i;

    nullpo_retr (0, g);

    if (g->guild_id == gc->guild_id)
        return 1;

    if (gc->guild_id == 0)
        return 0;

    for (i = 0; i < MAX_GUILDALLIANCE; i++)
        if (g->alliance[i].guild_id == gc->guild_id)
        {
            if (g->alliance[i].opposition == 0)
                return 1;
            else
                return 0;
        }

    return 0;
}

static void guild_db_final (db_key_t key, db_val_t data, va_list ap)
{
    free (data);
}

static void castle_db_final (db_key_t key, db_val_t data, va_list ap)
{
    free (data);
}

static void guild_expcache_db_final (db_key_t key, db_val_t data, va_list ap)
{
    free (data);
}

static void guild_infoevent_db_final (db_key_t key, db_val_t data, va_list ap)
{
    free (data);
}

void do_final_guild (void)
{
    if (guild_db)
        numdb_final (guild_db, guild_db_final);
    if (castle_db)
        numdb_final (castle_db, castle_db_final);
    if (guild_expcache_db)
        numdb_final (guild_expcache_db, guild_expcache_db_final);
    if (guild_infoevent_db)
        numdb_final (guild_infoevent_db, guild_infoevent_db_final);
    if (guild_castleinfoevent_db)
        numdb_final (guild_castleinfoevent_db, guild_infoevent_db_final);
}