AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK.

IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK.  EVERYTHING ELSE
GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS


git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 742 insertions, 0 deletions

diff --git a/src/map/party.c b/src/map/party.c
new file mode 100644
index 000000000..e0b32df0f
--- /dev/null
+++ b/src/map/party.c
@@ -0,0 +1,742 @@
+// Copyright (c) Athena Dev Teams - Licensed under GNU GPL

+// For more information, see LICENCE in the main folder

+

+#include <stdio.h>

+#include <stdlib.h>

+#include <string.h>

+

+#include "../common/timer.h"

+#include "../common/socket.h"

+#include "../common/nullpo.h"

+#include "../common/malloc.h"

+#include "../common/showmsg.h"

+

+#include "party.h"

+#include "pc.h"

+#include "map.h"

+#include "battle.h"

+#include "intif.h"

+#include "clif.h"

+#include "log.h"

+#include "skill.h"

+#include "status.h"

+

+#define PARTY_SEND_XY_INVERVAL	1000	// 座標やＨＰ送信の間隔

+

+static struct dbt* party_db;

+static struct party* party_cache = NULL; //party in cache for skipping consecutive lookups. [Skotlex]

+int party_share_level = 10;

+int party_send_xy_timer(int tid,unsigned int tick,int id,int data);

+/*==========================================

+ * 終了

+ *------------------------------------------

+ */

+void do_final_party(void)

+{

+	party_db->destroy(party_db,NULL);

+}

+// 初期化

+void do_init_party(void)

+{

+	party_db=db_alloc(__FILE__,__LINE__,DB_INT,DB_OPT_RELEASE_DATA,sizeof(int));

+	add_timer_func_list(party_send_xy_timer,"party_send_xy_timer");

+	add_timer_interval(gettick()+PARTY_SEND_XY_INVERVAL,party_send_xy_timer,0,0,PARTY_SEND_XY_INVERVAL);

+}

+

+// 検索

+struct party *party_search(int party_id)

+{

+	if (party_cache && party_cache->party_id == party_id)

+		return party_cache;

+

+	party_cache = idb_get(party_db,party_id);

+	return party_cache;

+}

+int party_searchname_sub(DBKey key,void *data,va_list ap)

+{

+	struct party *p=(struct party *)data,**dst;

+	char *str;

+	str=va_arg(ap,char *);

+	dst=va_arg(ap,struct party **);

+	if(strncmpi(p->name,str,NAME_LENGTH)==0)

+		*dst=p;

+	return 0;

+}

+// パーティ名検索

+struct party* party_searchname(char *str)

+{

+	struct party *p=NULL;

+	party_db->foreach(party_db,party_searchname_sub,str,&p);

+	return p;

+}

+// 作成要求

+int party_create(struct map_session_data *sd,char *name,int item,int item2)

+{

+	nullpo_retr(0, sd);

+

+	if(sd->status.party_id==0)

+		intif_create_party(sd,name,item,item2);

+	else

+		clif_party_created(sd,2);

+	return 0;

+}

+

+// 作成可否

+int party_created(int account_id,int char_id,int fail,int party_id,char *name)

+{

+	struct map_session_data *sd;

+	sd=map_id2sd(account_id);

+

+	nullpo_retr(0, sd);

+	if (sd->status.char_id != char_id)

+		return 0; //unlikely failure...

+	

+	if(fail==0){

+		struct party *p;

+		sd->status.party_id=party_id;

+		if(idb_get(party_db,party_id)!=NULL){

+			ShowFatalError("party: id already exists!\n");

+			exit(1);

+		}

+		p=(struct party *)aCalloc(1,sizeof(struct party));

+		p->party_id=party_id;

+		memcpy(p->name, name, NAME_LENGTH);

+		idb_put(party_db,party_id,p);

+		clif_party_created(sd,0); //Success message

+		clif_charnameupdate(sd); //Update other people's display. [Skotlex]

+	}else{

+		clif_party_created(sd,1);

+	}

+	return 0;

+}

+

+// 情報要求

+int party_request_info(int party_id)

+{

+	return intif_request_partyinfo(party_id);

+}

+

+// 所属キャラの確認

+int party_check_member(struct party *p)

+{

+	int i, users;

+	struct map_session_data *sd, **all_sd;

+

+	nullpo_retr(0, p);

+

+	all_sd = map_getallusers(&users);

+	

+	for(i=0;i<users;i++)

+	{

+		if((sd = all_sd[i]) && sd->status.party_id==p->party_id)

+		{

+			int j,f=1;

+			for(j=0;j<MAX_PARTY;j++){

+				if(p->member[j].account_id==sd->status.account_id && 

+					p->member[j].char_id==sd->status.char_id)

+				{

+					f=0;

+					break;

+				}

+			}

+			

+			if(f){

+				sd->status.party_id=0;

+				if(battle_config.error_log)

+					ShowWarning("party: check_member %d[%s] is not member\n",sd->status.account_id,sd->status.name);

+			}

+		}

+	}

+	return 0;

+}

+

+// 情報所得失敗（そのIDのキャラを全部未所属にする）

+int party_recv_noinfo(int party_id)

+{

+	int i, users;

+	struct map_session_data *sd, **all_sd;

+

+	all_sd = map_getallusers(&users);

+	

+	for(i=0;i<users;i++){

+		if((sd = all_sd[i]) && sd->status.party_id==party_id)

+			sd->status.party_id=0;

+	}

+	return 0;

+}

+

+static void* create_party(DBKey key, va_list args) {

+	struct party *p;

+	p=(struct party *)aCalloc(1,sizeof(struct party));

+	return p;

+}

+// 情報所得

+int party_recv_info(struct party *sp)

+{

+	struct map_session_data *sd;

+	struct party *p;

+	int i;

+	

+	nullpo_retr(0, sp);

+

+	p= idb_ensure(party_db, sp->party_id, create_party);

+	if (!p->party_id) //party just received.

+		party_check_member(sp);

+	memcpy(p,sp,sizeof(struct party));

+	

+	for(i=0;i<MAX_PARTY;i++){	// sdの設定

+		if (!p->member[i].account_id) {

+			p->member[i].sd=NULL;

+			continue;

+		}

+		sd = map_id2sd(p->member[i].account_id);

+		p->member[i].sd = (sd!=NULL && sd->status.party_id==p->party_id && sd->status.char_id == p->member[i].char_id && !sd->state.waitingdisconnect)?sd:NULL;

+	}

+

+

+	for(i=0;i<MAX_PARTY;i++){	// 設定情報の送信

+		sd = p->member[i].sd;

+		if(!sd)

+			continue;

+		// Refresh hp/xy state [LuzZza]

+		clif_party_hp(sd);

+		clif_party_xy(sd);

+		if(sd->state.party_sent==0){

+			clif_party_main_info(p,-1);

+			clif_party_option(p,sd,0x100);

+			clif_party_info(p,-1);

+			sd->state.party_sent=1;

+		}

+	}

+	

+	return 0;

+}

+

+// パーティへの勧誘

+int party_invite(struct map_session_data *sd,int account_id)

+{

+	struct map_session_data *tsd= map_id2sd(account_id);

+	struct party *p=party_search(sd->status.party_id);

+	int i,flag=0;

+	

+	nullpo_retr(0, sd);

+

+	if(tsd==NULL || p==NULL)

+		return 0;

+	if(!battle_config.invite_request_check) {

+		if (tsd->guild_invite>0 || tsd->trade_partner) {	// 相手が取引中かどうか

+			clif_party_inviteack(sd,tsd->status.name,0);

+			return 0;

+		}

+	}

+	if( tsd->status.party_id>0 || tsd->party_invite>0 ){	// 相手の所属確認

+		clif_party_inviteack(sd,tsd->status.name,0);

+		return 0;

+	}

+	for(i=0;i<MAX_PARTY;i++){

+		if(p->member[i].account_id == 0) //Room for a new member.

+			flag = 1;

+		if(p->member[i].account_id==account_id && p->member[i].char_id==tsd->status.char_id){

+			clif_party_inviteack(sd,tsd->status.name,0);

+			return 0;

+		}

+	}

+	if (!flag) { //Full party.

+		clif_party_inviteack(sd,tsd->status.name,2);

+		return 0;

+	}

+		

+	tsd->party_invite=sd->status.party_id;

+	tsd->party_invite_account=sd->status.account_id;

+

+	clif_party_invite(sd,tsd);

+	return 1;

+}

+// パーティ勧誘への返答

+int party_reply_invite(struct map_session_data *sd,int account_id,int flag)

+{

+	struct map_session_data *tsd= map_id2sd(account_id);

+

+	nullpo_retr(0, sd);

+

+	if(flag==1){	// 承諾

+		//inter鯖へ追加要求

+		intif_party_addmember( sd->party_invite, sd);

+		return 0;

+	}

+	else {		// 拒否

+		sd->party_invite=0;

+		sd->party_invite_account=0;

+		if(tsd==NULL)

+			return 0;

+		clif_party_inviteack(tsd,sd->status.name,1);

+	}

+	return 0;

+}

+// パーティが追加された

+int party_member_added(int party_id,int account_id,int char_id, int flag)

+{

+	struct map_session_data *sd = map_id2sd(account_id),*sd2;

+	

+	if(sd == NULL || sd->status.char_id != char_id){

+		if (flag == 0) {

+			if(battle_config.error_log)

+				ShowError("party: member added error %d is not online\n",account_id);

+			intif_party_leave(party_id,account_id,char_id); // キャラ側ｉ登録ｅきｈかａたたぁ脱憎要求も出す

+		}

+		return 0;

+	}

+	

+	sd->party_invite=0;

+	sd->party_invite_account=0;

+	

+	sd2=map_id2sd(sd->party_invite_account);

+	if (sd2)

+		clif_party_inviteack(sd2,sd->status.name,flag?2:0);

+	if(flag)

+		return 0;

+	

+	sd->state.party_sent=0;

+	sd->status.party_id=party_id;

+

+	party_check_conflict(sd);

+	clif_charnameupdate(sd); //Update char name's display [Skotlex]

+	clif_party_hp(sd);

+	clif_party_xy(sd);

+	return 0;

+}

+// パーティ除名要求

+int party_removemember(struct map_session_data *sd,int account_id,char *name)

+{

+	struct party *p;

+	int i;

+

+	nullpo_retr(0, sd);

+	

+	if( (p = party_search(sd->status.party_id)) == NULL )

+		return 0;

+

+	for(i=0;i<MAX_PARTY;i++){	// リーダーかどうかチェック

+		if(p->member[i].account_id==sd->status.account_id && p->member[i].char_id==sd->status.char_id) {

+			if(p->member[i].leader)

+				break;

+			return 0;

+		}

+	}

+	if (i >= MAX_PARTY) //Request from someone not in party? o.O

+		return 0;

+	

+	for(i=0;i<MAX_PARTY;i++){	// 所属しているか調べる

+		if(p->member[i].account_id==account_id && strncmp(p->member[i].name,name,NAME_LENGTH)==0)

+		{

+			intif_party_leave(p->party_id,account_id,p->member[i].char_id);

+			return 1;

+		}

+	}

+	return 0;

+}

+

+// パーティ脱退要求

+int party_leave(struct map_session_data *sd)

+{

+	struct party *p;

+	int i;

+

+	nullpo_retr(0, sd);

+	

+	if( (p = party_search(sd->status.party_id)) == NULL )

+		return 0;

+	

+	for(i=0;i<MAX_PARTY;i++){	// 所属しているか

+		if(p->member[i].account_id==sd->status.account_id && p->member[i].char_id==sd->status.char_id){

+			intif_party_leave(p->party_id,sd->status.account_id,sd->status.char_id);

+			return 0;

+		}

+	}

+	return 0;

+}

+// パーティメンバが脱退した

+int party_member_leaved(int party_id,int account_id,int char_id)

+{

+	struct map_session_data *sd=map_id2sd(account_id);

+	struct party *p=party_search(party_id);

+	if (sd && sd->status.char_id != char_id) //Wrong target

+		sd = NULL;

+	if(p!=NULL){

+		int i;

+		for(i=0;i<MAX_PARTY;i++)

+			if(p->member[i].account_id==account_id &&

+				p->member[i].char_id==char_id){

+				clif_party_leaved(p,sd,account_id,p->member[i].name,0x00);

+				p->member[i].account_id=0;

+				p->member[i].char_id=0;

+				p->member[i].sd=NULL;

+			}

+	}

+	if(sd!=NULL && sd->status.party_id==party_id){

+		sd->status.party_id=0;

+		sd->state.party_sent=0;

+		clif_charnameupdate(sd); //Update name display [Skotlex]

+	}

+	return 0;

+}

+// パーティ解散通知

+int party_broken(int party_id)

+{

+	struct party *p;

+	int i;

+	if( (p=party_search(party_id))==NULL )

+		return 0;

+	

+	for(i=0;i<MAX_PARTY;i++){

+		if(p->member[i].sd!=NULL){

+			clif_party_leaved(p,p->member[i].sd,

+				p->member[i].account_id,p->member[i].name,0x10);

+			p->member[i].sd->status.party_id=0;

+			p->member[i].sd->state.party_sent=0;

+		}

+	}

+	if (party_cache && party_cache->party_id == party_id)

+		party_cache = NULL;

+	idb_remove(party_db,party_id);

+	return 0;

+}

+// パーティの設定変更要求

+int party_changeoption(struct map_session_data *sd,int exp,int flag)

+{

+	nullpo_retr(0, sd);

+

+	if( sd->status.party_id==0)

+		return 0;

+	intif_party_changeoption(sd->status.party_id,sd->status.account_id,exp,flag);

+	return 0;

+}

+// パーティの設定変更通知

+int party_optionchanged(int party_id,int account_id,int exp,int item,int flag)

+{

+	struct party *p;

+	struct map_session_data *sd=map_id2sd(account_id);

+	if( (p=party_search(party_id))==NULL)

+		return 0;

+

+	if(!(flag&0x01)) p->exp=exp;

+	if(!(flag&0x10)) p->item=item;

+	clif_party_option(p,sd,flag);

+	return 0;

+}

+

+// パーティメンバの移動通知

+int party_recv_movemap(int party_id,int account_id,int char_id, unsigned short map,int online,int lv)

+{

+	struct party *p;

+	int i;

+	if( (p=party_search(party_id))==NULL)

+		return 0;

+	for(i=0;i<MAX_PARTY;i++){

+		struct map_session_data *sd;

+		struct party_member *m=&p->member[i];

+		/* This can never happen...

+		if( m == NULL ){

+			ShowError("party_recv_movemap nullpo?\n");

+			return 0;

+		}

+		*/

+		if(m->account_id==account_id && m->char_id==char_id){

+			m->map = map;

+			m->online=online;

+			m->lv=lv;

+			//Check if they still exist on this map server

+			sd = map_id2sd(m->account_id);

+			p->member[i].sd=(sd!=NULL && sd->status.party_id==p->party_id && sd->status.char_id == m->char_id && !sd->state.waitingdisconnect)?sd:NULL;

+			//if so, clear their coordinates as they just changed maps.

+			if (p->member[i].sd) {

+				sd->party_x=-1;

+				sd->party_y=-1;

+			}

+			break;

+		}

+	}

+	if(i==MAX_PARTY){

+		if(battle_config.error_log)

+			ShowError("party: not found member %d on %d[%s]",account_id,party_id,p->name);

+		return 0;

+	}

+	

+	clif_party_info(p,-1);

+	return 0;

+}

+

+// パーティメンバの移動

+int party_send_movemap(struct map_session_data *sd)

+{

+	struct party *p;

+

+	nullpo_retr(0, sd);

+

+	if( sd->status.party_id==0 )

+		return 0;

+	intif_party_changemap(sd,1);

+

+	if( sd->state.party_sent )	// もうパーティデータは送信済み

+		return 0;

+

+	// 競合確認	

+	party_check_conflict(sd);

+	

+	// あるならパーティ情報送信

+	if( (p=party_search(sd->status.party_id))!=NULL ){

+		party_check_member(p);	// 所属を確認する

+		if(sd->status.party_id==p->party_id){

+			clif_party_main_info(p,sd->fd);

+			clif_party_option(p,sd,0x100);

+			clif_party_info(p,sd->fd);

+			sd->state.party_sent=1;

+		}

+	}

+	

+	return 0;

+}

+// パーティメンバのログアウト

+int party_send_logout(struct map_session_data *sd)

+{

+	struct party *p;

+

+	nullpo_retr(0, sd);

+

+	if( sd->status.party_id>0 )

+		intif_party_changemap(sd,0);

+	

+	// sdが無効になるのでパーティ情報から削除

+	if( (p=party_search(sd->status.party_id))!=NULL ){

+		int i;

+		for(i=0;i<MAX_PARTY;i++)

+			if(p->member[i].sd==sd)

+				p->member[i].sd=NULL;

+	}

+	

+	return 0;

+}

+// パーティメッセージ送信

+int party_send_message(struct map_session_data *sd,char *mes,int len)

+{

+	if(sd->status.party_id==0)

+		return 0;

+	intif_party_message(sd->status.party_id,sd->status.account_id,mes,len);

+        party_recv_message(sd->status.party_id,sd->status.account_id,mes,len);

+	//Chat Logging support Type 'P'

+	if(log_config.chat&1 //we log everything then

+		|| ( log_config.chat&4 //if Party bit is on

+		&& ( !agit_flag || !(log_config.chat&16) ))) //if WOE ONLY flag is off or AGIT is OFF

+		log_chat("P", sd->status.party_id, sd->status.char_id, sd->status.account_id, (char*)mapindex_id2name(sd->mapindex), sd->bl.x, sd->bl.y, NULL, mes);

+

+	return 0;

+}

+

+// パーティメッセージ受信

+int party_recv_message(int party_id,int account_id,char *mes,int len)

+{

+	struct party *p;

+	if( (p=party_search(party_id))==NULL)

+		return 0;

+	clif_party_message(p,account_id,mes,len);

+	return 0;

+}

+// パーティ競合確認

+int party_check_conflict(struct map_session_data *sd)

+{

+	nullpo_retr(0, sd);

+

+	intif_party_checkconflict(sd->status.party_id,sd->status.account_id,sd->status.char_id);

+	return 0;

+}

+

+int party_skill_check(struct map_session_data *sd, int party_id, int skillid, int skilllv)

+{

+	struct party *p;

+	struct map_session_data *p_sd;

+	int i;

+

+	if(!party_id || (p=party_search(party_id))==NULL)

+		return 0;

+	for(i=0;i<MAX_PARTY;i++){

+		if ((p_sd = p->member[i].sd) == NULL)

+			continue;

+		switch(skillid) {

+			case TK_COUNTER: //Increase Triple Attack rate of Monks.

+				if((p_sd->class_&MAPID_UPPERMASK) == MAPID_MONK

+					&& sd->bl.m == p_sd->bl.m

+					&& pc_checkskill(p_sd,MO_TRIPLEATTACK)) {

+					int rate = 50 +50*skilllv; //+100/150/200% success rate

+					status_change_start(&p_sd->bl,SC_SKILLRATE_UP,MO_TRIPLEATTACK,rate,0,0,skill_get_time(SG_FRIEND, 1),0);

+				}

+				break;

+			case MO_TRIPLEATTACK: //Increase Counter rate of Star Gladiators

+				if((p_sd->class_&MAPID_UPPERMASK) == MAPID_STAR_GLADIATOR

+					&& sd->bl.m == p_sd->bl.m

+					&& pc_checkskill(p_sd,TK_COUNTER)) {

+					int rate = 50 +50*pc_checkskill(p_sd,TK_COUNTER); //+100/150/200% success rate

+					status_change_start(&p_sd->bl,SC_SKILLRATE_UP,TK_COUNTER,rate,0,0,skill_get_time(SG_FRIEND, 1),0);

+				}

+				break;

+			case AM_TWILIGHT2: //Twilight Pharmacy, requires Super Novice

+				if ((p_sd->class_&MAPID_UPPERMASK) == MAPID_SUPER_NOVICE

+					&& sd->bl.m == p_sd->bl.m)

+					return 1;

+				break;

+			case AM_TWILIGHT3: //Twilight Pharmacy, Requires Taekwon

+				if ((p_sd->class_&MAPID_NOVICE) == MAPID_TAEKWON

+					&& sd->bl.m == p_sd->bl.m)

+					return 1;

+				break;

+		}

+	}

+	return 0;

+}

+

+// 位置やＨＰ通知用

+int party_send_xy_timer_sub(DBKey key,void *data,va_list ap)

+{

+	struct party *p=(struct party *)data;

+	int i;

+

+	nullpo_retr(0, p);

+

+	for(i=0;i<MAX_PARTY;i++){

+		struct map_session_data *sd;

+		if((sd=p->member[i].sd)!=NULL){

+			// 座標通知

+			if(sd->party_x!=sd->bl.x || sd->party_y!=sd->bl.y){

+				clif_party_xy(sd);

+				sd->party_x=sd->bl.x;

+				sd->party_y=sd->bl.y;

+			}

+		}

+	}

+	return 0;

+}

+// 位置やＨＰ通知

+int party_send_xy_timer(int tid,unsigned int tick,int id,int data)

+{

+	party_db->foreach(party_db,party_send_xy_timer_sub,tick);

+	return 0;

+}

+

+// 位置通知クリア

+int party_send_xy_clear(struct party *p)

+{

+	int i;

+

+	nullpo_retr(0, p);

+

+	for(i=0;i<MAX_PARTY;i++){

+		struct map_session_data *sd;

+		if((sd=p->member[i].sd)!=NULL){

+			sd->party_x=-1;

+			sd->party_y=-1;

+		}

+	}

+	return 0;

+}

+

+// exp share and added zeny share [Valaris]

+int party_exp_share(struct party *p,int map,int base_exp,int job_exp,int zeny)

+{

+	struct map_session_data* sd[MAX_PARTY];

+	int i;

+	short c, bonus =100; // modified [Valaris]

+	unsigned long base, job;

+

+	nullpo_retr(0, p);

+

+	for (i = c = 0; i < MAX_PARTY; i++)

+		if ((sd[c] = p->member[i].sd)!=NULL && sd[c]->bl.m == map && !pc_isdead(sd[c])) {

+			if (battle_config.idle_no_share && (pc_issit(sd[c]) || sd[c]->chatID || (sd[c]->idletime < (last_tick - battle_config.idle_no_share))))

+				continue;

+			c++;

+		}

+	if (c < 1)

+		return 0;

+	if (battle_config.party_even_share_bonus) //Valaris's even share exp bonus equation.

+		bonus += (battle_config.party_even_share_bonus*c*(c-1)/10);	//Changed Valaris's bonus switch to an equation [Skotlex]

+	else	//Official kRO/iRO sites state that the even share bonus is 10% per additional party member.

+		bonus += (c-1)*10;

+	base = (unsigned long)(base_exp/c)*bonus/100;

+	job = (unsigned long)(job_exp/c)*bonus/100;

+	if (base > 0x7fffffff)

+		base = 0x7fffffff;

+	if (job > 0x7fffffff)

+		job = 0x7fffffff;

+	for (i = 0; i < c; i++)

+	{

+		pc_gainexp(sd[i], base, job);

+		if (battle_config.zeny_from_mobs) // zeny from mobs [Valaris]

+			pc_getzeny(sd[i],bonus*zeny/(c*100));

+	}

+	return 0;

+}

+

+int party_send_dot_remove(struct map_session_data *sd)

+{

+	if (sd->status.party_id)

+		clif_party_xy_remove(sd);

+	return 0;

+}

+

+// To use for Taekwon's "Fighting Chant"

+// int c = 0;

+// party_foreachsamemap(party_sub_count, sd, 0, &c);

+int party_sub_count(struct block_list *bl, va_list ap)

+{

+	int *c = va_arg(ap, int*);

+

+	(*c)++;

+	return 1;

+}

+

+// 同じマップのパーティメンバー全体に処理をかける

+// type==0 同じマップ

+//     !=0 画面内

+void party_foreachsamemap(int (*func)(struct block_list*,va_list),struct map_session_data *sd,int type,...)

+{

+	struct party *p;

+	va_list ap;

+	int i;

+	int x0,y0,x1,y1;

+	struct block_list *list[MAX_PARTY];

+	int blockcount=0;

+	

+	nullpo_retv(sd);

+	

+	if((p=party_search(sd->status.party_id))==NULL)

+		return;

+

+	x0=sd->bl.x-AREA_SIZE;

+	y0=sd->bl.y-AREA_SIZE;

+	x1=sd->bl.x+AREA_SIZE;

+	y1=sd->bl.y+AREA_SIZE;

+

+	va_start(ap,type);

+	

+	for(i=0;i<MAX_PARTY;i++){

+		struct party_member *m=&p->member[i];

+		if(m->sd!=NULL){

+			if(sd->bl.m!=m->sd->bl.m)

+				continue;

+			if(type!=0 &&

+				(m->sd->bl.x<x0 || m->sd->bl.y<y0 ||

+				 m->sd->bl.x>x1 || m->sd->bl.y>y1 ) )

+				continue;

+			list[blockcount++]=&m->sd->bl; 

+		}

+	}

+

+	map_freeblock_lock();	// メモリからの解放を禁止する

+	

+	for(i=0;i<blockcount;i++)

+		if(list[i]->prev)	// 有効かどうかチェック

+			func(list[i],ap);

+

+	map_freeblock_unlock();	// 解放を許可する

+

+	va_end(ap);

+}