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, 1973 insertions, 0 deletions

diff --git a/src/map/pet.c b/src/map/pet.c
new file mode 100644
index 000000000..48e62cfb4
--- /dev/null
+++ b/src/map/pet.c
@@ -0,0 +1,1973 @@
+// 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 "db.h"

+#include "timer.h"

+#include "socket.h"

+#include "nullpo.h"

+#include "malloc.h"

+#include "pc.h"

+#include "status.h"

+#include "map.h"

+#include "intif.h"

+#include "clif.h"

+#include "chrif.h"

+#include "pet.h"

+#include "itemdb.h"

+#include "battle.h"

+#include "mob.h"

+#include "npc.h"

+#include "script.h"

+#include "skill.h"

+#include "showmsg.h"

+

+#define MIN_PETTHINKTIME 100

+

+struct pet_db pet_db[MAX_PET_DB];

+

+static int dirx[8]={0,-1,-1,-1,0,1,1,1};

+static int diry[8]={1,1,0,-1,-1,-1,0,1};

+

+static int pet_timer(int tid,unsigned int tick,int id,int data);

+static int pet_walktoxy_sub(struct pet_data *pd);

+

+static int calc_next_walk_step(struct pet_data *pd)

+{

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if(pd->walkpath.path_pos>=pd->walkpath.path_len)

+		return -1;

+	if(pd->walkpath.path[pd->walkpath.path_pos]&1)

+		return pd->speed*14/10;

+	return pd->speed;

+}

+

+static int pet_performance_val(struct map_session_data *sd)

+{

+	nullpo_retr(0, sd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(sd->pet.intimate > 900)

+		return (sd->petDB->s_perfor > 0)? 4:3;

+	else if(sd->pet.intimate > 750)

+		return 2;

+	else

+		return 1;

+}

+

+int pet_hungry_val(struct map_session_data *sd)

+{

+	nullpo_retr(0, sd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(sd->pet.hungry > 90)

+		return 4;

+	else if(sd->pet.hungry > 75)

+		return 3;

+	else if(sd->pet.hungry > 25)

+		return 2;

+	else if(sd->pet.hungry > 10)

+		return 1;

+	else

+		return 0;

+}

+

+static int pet_can_reach(struct pet_data *pd,int x,int y)

+{

+	struct walkpath_data wpd;

+

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if( pd->bl.x==x && pd->bl.y==y )	// 同じマス

+		return 1;

+

+	// 障害物判定

+	wpd.path_len=0;

+	wpd.path_pos=0;

+	wpd.path_half=0;

+	return (path_search(&wpd,pd->bl.m,pd->bl.x,pd->bl.y,x,y,0)!=-1)?1:0;

+}

+

+static int pet_calc_pos(struct pet_data *pd,int tx,int ty,int dir)

+{

+	int x,y,dx,dy;

+	int i,j=0,k;

+

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	pd->to_x = tx;

+	pd->to_y = ty;

+

+	if(dir >= 0 && dir < 8) {

+		dx = -dirx[dir]*2;

+		dy = -diry[dir]*2;

+		x = tx + dx;

+		y = ty + dy;

+		if(!(j=pet_can_reach(pd,x,y))) {

+			if(dx > 0) x--;

+			else if(dx < 0) x++;

+			if(dy > 0) y--;

+			else if(dy < 0) y++;

+			if(!(j=pet_can_reach(pd,x,y))) {

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

+					k = rand()%8;

+					dx = -dirx[k]*2;

+					dy = -diry[k]*2;

+					x = tx + dx;

+					y = ty + dy;

+					if((j=pet_can_reach(pd,x,y)))

+						break;

+					else {

+						if(dx > 0) x--;

+						else if(dx < 0) x++;

+						if(dy > 0) y--;

+						else if(dy < 0) y++;

+						if((j=pet_can_reach(pd,x,y)))

+							break;

+					}

+				}

+				if(!j) {

+					x = tx;

+					y = ty;

+					if(!pet_can_reach(pd,x,y))

+						return 1;

+				}

+			}

+		}

+	}

+	else

+		return 1;

+

+	pd->to_x = x;

+	pd->to_y = y;

+	return 0;

+}

+

+static int pet_unlocktarget(struct pet_data *pd)

+{

+	nullpo_retr(0, pd);

+

+	pd->target_id=0;

+

+	return 0;

+}

+

+static int pet_attack(struct pet_data *pd,unsigned int tick,int data)

+{

+	struct block_list *target;

+

+	short range;

+

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	target= map_id2bl(pd->target_id);

+

+	if(!status_check_skilluse(&pd->bl, target, 0, 0))

+		return 0;

+	

+	if(target == NULL || pd->bl.m != target->m || target->prev == NULL ||

+		!check_distance_bl(&pd->bl, target, pd->db->range3))

+	{

+		pet_unlocktarget(pd);

+		return 0;

+	}

+

+	range = pd->db->range;

+	if (battle_iswalking(&pd->bl)) range++;

+	if (battle_iswalking(target)) range++;

+	if(!check_distance_bl(&pd->bl, target, range))

+		return 0;

+	if(battle_config.monster_attack_direction_change)

+		pd->dir=map_calc_dir(&pd->bl, target->x,target->y );

+

+	clif_fixpetpos(pd);

+

+	pd->target_lv = battle_weapon_attack(&pd->bl,target,tick,0);

+

+	pd->attackabletime = tick + status_get_adelay(&pd->bl);

+

+	pd->timer=add_timer(pd->attackabletime,pet_timer,pd->bl.id,0);

+	pd->state.state=MS_ATTACK;

+	return 0;

+}

+

+static int petskill_castend(struct pet_data *pd,unsigned int tick,int data);

+static int petskill_castend2(struct pet_data *pd, struct block_list *target, short skill_id, short skill_lv, short skill_x, short skill_y, unsigned int tick);

+

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

+ * Pet Attack Skill [Skotlex]

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

+ */

+static int pet_attackskill(struct pet_data *pd, unsigned int tick, int data)

+{

+

+	struct block_list *bl;

+	

+	nullpo_retr(0, pd);

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	bl=map_id2bl(pd->target_id);

+	if(bl == NULL || pd->bl.m != bl->m || bl->prev == NULL ||

+		!check_distance_bl(&pd->bl, bl, pd->db->range3))

+	{

+		pet_unlocktarget(pd);

+		return 0;

+	}

+

+	petskill_use(pd, bl, pd->a_skill->id, pd->a_skill->lv, tick);

+	return 0;

+}

+

+struct castend_delay { //[Skotlex] For passing skill info after casting

+	struct pet_data *src;

+	int target;

+	short id;

+	short lv;

+	short x,y;

+};

+

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

+ * Pet Skill Use [Skotlex]

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

+ */

+int petskill_use(struct pet_data *pd, struct block_list *target, short skill_id, short skill_lv, unsigned int tick)

+{

+	int casttime;

+	struct castend_delay *dat;

+	

+	nullpo_retr(0, pd);

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if(pd->state.casting_flag)

+		return 1;	//Will not interrupt an already casting skill.

+

+	if(!status_check_skilluse(&pd->bl, target, skill_id, 0))

+		return 0; //Cannot target.... 

+	

+	if(pd->timer != -1)	//Cancel whatever else the pet is doing.

+		delete_timer(pd->timer, pet_timer);

+	

+	if(battle_config.monster_attack_direction_change)

+		pd->dir=map_calc_dir(&pd->bl, target->x, target->y );

+	clif_fixpetpos(pd);

+

+	//Casting time

+	casttime=skill_castfix(&pd->bl, skill_id, skill_lv, 0);

+		

+	pet_stop_walking(pd,1);

+	pd->attackabletime = tick;

+	pd->state.state=MS_ATTACK;

+

+	if (casttime > 0)

+	{

+		pd->attackabletime += casttime;

+		

+		dat = (struct castend_delay *)aCalloc(1, sizeof(struct castend_delay));

+		dat->src = pd;

+		dat->target = target->id;

+		dat->id = skill_id;

+		dat->lv = skill_lv;

+		dat->x = target->x;

+		dat->y = target->y;

+

+		pd->state.casting_flag = 1;

+		if (skill_get_inf(skill_id) & INF_GROUND_SKILL)

+			clif_skillcasting( &pd->bl, pd->bl.id, 0, dat->x, dat->y, skill_id,casttime);

+		else

+			clif_skillcasting( &pd->bl, pd->bl.id, dat->target, 0,0, skill_id,casttime);

+		

+		pd->timer = add_timer(pd->attackabletime,pet_timer,pd->bl.id,(int)dat);

+	} else {

+		petskill_castend2(pd, target, skill_id, skill_lv, target->x, target->y, tick);

+	}	

+	return 0;

+}

+

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

+ * Pet Attack Cast End [Skotlex]

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

+ */

+static int petskill_castend(struct pet_data *pd,unsigned int tick,int data)

+{

+	struct castend_delay *dat = (struct castend_delay *)data;

+	struct block_list *target = map_id2bl(dat->target);

+	pd->state.casting_flag = 0;

+	if (dat && pd == dat->src)

+		petskill_castend2(pd, target, dat->id, dat->lv, dat->x, dat->y, tick);

+	aFree(dat);

+	return 0;

+}

+

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

+ * Pet Attack Cast End2 [Skotlex]

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

+ */

+static int petskill_castend2(struct pet_data *pd, struct block_list *target, short skill_id, short skill_lv, short skill_x, short skill_y, unsigned int tick)

+{	//Invoked after the casting time has passed.

+	short delaytime =0;

+

+	nullpo_retr(0, pd);

+

+	pd->state.state=MS_IDLE;

+	

+	if (skill_get_inf(skill_id) & INF_GROUND_SKILL)

+	{	//Area skill

+		skill_castend_pos2(&pd->bl, skill_x, skill_y, skill_id, skill_lv, tick,0);

+	} else { //Targeted Skill

+		if (!target || !status_check_skilluse(&pd->bl, target, skill_id, 1))

+			return 0; 

+		//Skills with inf = 4 (cast on self) have view range (assumed party skills)

+		if(!check_distance_bl(&pd->bl, target,

+			(skill_get_inf(skill_id) & INF_SELF_SKILL?battle_config.area_size:skill_get_range2(&pd->bl, skill_id, skill_lv))))

+			return 0;

+		switch( skill_get_nk(skill_id) )

+		{

+			case NK_NO_DAMAGE:

+				skill_castend_nodamage_id(&pd->bl,target, skill_id, skill_lv,tick, 0);

+				break;

+			case NK_SPLASH_DAMAGE:

+			default:

+				skill_castend_damage_id(&pd->bl,target,skill_id,skill_lv,tick,0);

+				break;

+		}

+	}

+

+	if (pd->timer != -1) //The above skill casting could had changed the state (Abracadabra?)

+		return 0;

+

+	delaytime = skill_delayfix(&pd->bl,skill_id, skill_lv, 0);

+	if (delaytime < MIN_PETTHINKTIME)

+		delaytime = status_get_adelay(&pd->bl);

+	pd->attackabletime = tick + delaytime; 

+	if (pd->target_id)

+	{	//Resume attacking

+		pd->state.state=MS_ATTACK;

+		pd->timer=add_timer(pd->attackabletime,pet_timer,pd->bl.id,0);

+	}

+

+	return 0;

+}

+

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

+ *

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

+ */

+static int pet_walk(struct pet_data *pd,unsigned int tick,int data)

+{

+	int i;

+	int x,y,dx,dy;

+

+	nullpo_retr(0, pd);

+

+	pd->state.state=MS_IDLE;

+	if(pd->walkpath.path_pos >= pd->walkpath.path_len || pd->walkpath.path_pos != data)

+		return 0;

+

+	pd->walkpath.path_half ^= 1;

+	if(pd->walkpath.path_half==0){

+		pd->walkpath.path_pos++;

+		if(pd->state.change_walk_target){

+			pet_walktoxy_sub(pd);

+			return 0;

+		}

+	}

+	else {

+		if(pd->walkpath.path[pd->walkpath.path_pos] >= 8)

+			return 1;

+

+		x = pd->bl.x;

+		y = pd->bl.y;

+

+		pd->dir=pd->walkpath.path[pd->walkpath.path_pos];

+		dx = dirx[pd->dir];

+		dy = diry[pd->dir];

+

+		if(map_getcell(pd->bl.m,x+dx,y+dy,CELL_CHKNOPASS)){

+			pet_walktoxy_sub(pd);

+			return 0;

+		}

+

+		pd->state.state=MS_WALK;

+		map_foreachinmovearea(clif_petoutsight,pd->bl.m,x-AREA_SIZE,y-AREA_SIZE,x+AREA_SIZE,y+AREA_SIZE,dx,dy,BL_PC,pd);

+

+		x += dx;

+		y += dy;

+		map_moveblock(&pd->bl, x, y, tick);

+

+		map_foreachinmovearea(clif_petinsight,pd->bl.m,x-AREA_SIZE,y-AREA_SIZE,x+AREA_SIZE,y+AREA_SIZE,-dx,-dy,BL_PC,pd);

+		pd->state.state=MS_IDLE;

+	}

+	if((i=calc_next_walk_step(pd))>0){

+		i = i>>1;

+		if(i < 1 && pd->walkpath.path_half == 0)

+			i = 1;

+		pd->timer=add_timer(tick+i,pet_timer,pd->bl.id,pd->walkpath.path_pos);

+		pd->state.state=MS_WALK;

+

+		if(pd->walkpath.path_pos >= pd->walkpath.path_len)

+			clif_fixpetpos(pd);

+	}

+	return 0;

+}

+

+int pet_stopattack(struct pet_data *pd)

+{

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	pd->target_id=0;

+	if(pd->state.state == MS_ATTACK)

+		pet_changestate(pd,MS_IDLE,0);

+

+	return 0;

+}

+

+int pet_target_check(struct map_session_data *sd,struct block_list *bl,int type)

+{

+	struct pet_data *pd;

+	int rate;

+

+	pd = sd->pd;

+	

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if(bl == NULL || bl->type != BL_MOB || bl->prev == NULL ||

+		sd->pet.intimate < battle_config.pet_support_min_friendly ||

+		sd->pet.hungry < 1 ||

+		pd->class_ == status_get_class(bl) ||

+		pd->state.state == MS_DELAY)

+		return 0;

+

+	if(pd->bl.m != bl->m ||

+		!check_distance_bl(&pd->bl, bl, pd->db->range2))

+		return 0;

+

+	if (!status_check_skilluse(&pd->bl, bl, 0, 0))

+		return 0;

+

+	if(!type) {

+		rate = sd->petDB->attack_rate;

+		rate = rate * pd->rate_fix/1000;

+		if(sd->petDB->attack_rate > 0 && rate <= 0)

+			rate = 1;

+	} else {

+		rate = sd->petDB->defence_attack_rate;

+		rate = rate * pd->rate_fix/1000;

+		if(sd->petDB->defence_attack_rate > 0 && rate <= 0)

+			rate = 1;

+	}

+	if(rand()%10000 < rate) 

+	{

+		if(pd->target_id == 0 || rand()%10000 < sd->petDB->change_target_rate)

+			pd->target_id = bl->id;

+	}

+

+	return 0;

+}

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

+ * Pet SC Check [Skotlex]

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

+ */

+int pet_sc_check(struct map_session_data *sd, int type)

+{	

+	struct pet_data *pd;

+

+	nullpo_retr(0, sd);

+	pd = sd->pd;

+

+	if (pd == NULL ||

+		(battle_config.pet_equip_required && pd->equip == 0) ||

+		pd->recovery == NULL ||

+		pd->recovery->timer != -1 ||

+		pd->recovery->type != type)

+		return 1;

+

+	pd->recovery->timer = add_timer(gettick()+pd->recovery->delay*1000,pet_recovery_timer,sd->bl.id,0);

+	

+	return 0;

+}

+

+int pet_changestate(struct pet_data *pd,int state,int type)

+{

+	unsigned int tick;

+	int i;

+

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if (pd->state.casting_flag)

+		skill_castcancel(&pd->bl, 0);

+	if(pd->timer != -1)

+		delete_timer(pd->timer,pet_timer);

+	pd->timer=-1;

+	pd->state.state=state;

+

+	switch(state) {

+		case MS_WALK:

+			if((i=calc_next_walk_step(pd)) > 0){

+				i = i>>2;

+				pd->timer=add_timer(gettick()+i,pet_timer,pd->bl.id,0);

+			} else

+				pd->state.state=MS_IDLE;

+			break;

+		case MS_ATTACK:

+			tick = gettick();

+			i=DIFF_TICK(pd->attackabletime,tick);

+			if(i>0 && i<2000)

+				pd->timer=add_timer(pd->attackabletime,pet_timer,pd->bl.id,0);

+			else

+				pd->timer=add_timer(tick+1,pet_timer,pd->bl.id,0);

+			break;

+		case MS_DELAY:

+				pd->timer=add_timer(gettick()+type,pet_timer,pd->bl.id,0);

+			break;

+	}

+

+	return 0;

+}

+

+static int pet_timer(int tid,unsigned int tick,int id,int data)

+{

+	struct pet_data *pd;

+

+	pd=(struct pet_data*)map_id2bl(id);

+	if(pd == NULL || pd->bl.type != BL_PET)

+		return 1;

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if(pd->timer != tid){

+		if(battle_config.error_log)

+			ShowError("pet_timer %d != %d\n",pd->timer,tid);

+		return 0;

+	}

+	pd->timer=-1;

+

+	if(pd->bl.prev == NULL)

+		return 1;

+

+	switch(pd->state.state){

+		case MS_WALK:

+			pet_walk(pd,tick,data);

+			break;

+		case MS_ATTACK:

+			if (pd->msd == NULL) //Is this even possible?

+				break;

+			if (pc_isdead(pd->msd))

+			{	//Stop attacking when master died.

+				pet_stopattack(pd);

+				break;

+			}

+			if (pd->state.casting_flag) 

+			{	//There is a skill being cast.

+				petskill_castend(pd, tick, data);

+				break;

+			}

+			if (battle_config.pet_status_support &&

+				pd->a_skill &&

+				(!battle_config.pet_equip_required || pd->equip > 0) &&

+				(rand()%100 < (pd->a_skill->rate +pd->msd->pet.intimate*pd->a_skill->bonusrate/1000))

+				)

+			{	//Skotlex: Use pet's skill 

+				pet_attackskill(pd,tick,data);

+				break;

+			}

+			pet_attack(pd,tick,data);

+			break;

+		case MS_DELAY:

+			pet_changestate(pd,MS_IDLE,0);

+			break;

+		default:

+			if(battle_config.error_log)

+				ShowError("pet_timer : %d ?\n",pd->state.state);

+			break;

+	}

+

+	return 0;

+}

+

+static int pet_walktoxy_sub(struct pet_data *pd)

+{

+	struct walkpath_data wpd;

+

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if(path_search(&wpd,pd->bl.m,pd->bl.x,pd->bl.y,pd->to_x,pd->to_y,0))

+		return 1;

+	memcpy(&pd->walkpath,&wpd,sizeof(wpd));

+

+	pd->state.change_walk_target=0;

+	pet_changestate(pd,MS_WALK,0);

+	clif_movepet(pd);

+//	if(battle_config.etc_log)

+//		printf("walkstart\n");

+

+	return 0;

+}

+

+int pet_walktoxy(struct pet_data *pd,int x,int y)

+{

+	struct walkpath_data wpd;

+

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if(pd->state.state == MS_WALK && path_search(&wpd,pd->bl.m,pd->bl.x,pd->bl.y,x,y,0))

+		return 1;

+

+	pd->to_x=x;

+	pd->to_y=y;

+

+	if(pd->state.state == MS_WALK) {

+		pd->state.change_walk_target=1;

+	} else {

+		return pet_walktoxy_sub(pd);

+	}

+

+	return 0;

+}

+

+int pet_stop_walking(struct pet_data *pd,int type)

+{

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	if(pd->state.state == MS_WALK || pd->state.state == MS_IDLE) {

+		pd->walkpath.path_len=0;

+		pd->to_x=pd->bl.x;

+		pd->to_y=pd->bl.y;

+	}

+	if(type&0x01)

+		clif_fixpetpos(pd);

+	if(type&~0xff)

+		pet_changestate(pd,MS_DELAY,type>>8);

+	else

+		pet_changestate(pd,MS_IDLE,0);

+

+	return 0;

+}

+

+static int pet_hungry(int tid,unsigned int tick,int id,int data)

+{

+	struct map_session_data *sd;

+	int interval,t;

+

+

+	sd=map_id2sd(id);

+	if(sd==NULL)

+		return 1;

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(sd->pet_hungry_timer != tid){

+		if(battle_config.error_log)

+			ShowError("pet_hungry_timer %d != %d\n",sd->pet_hungry_timer,tid);

+		return 0;

+	}

+	sd->pet_hungry_timer = -1;

+	if(!sd->status.pet_id || !sd->pd || !sd->petDB)

+		return 1;

+

+	sd->pet.hungry--;

+	t = sd->pet.intimate;

+	if(sd->pet.hungry < 0) {

+		if(sd->pd->target_id > 0)

+			pet_stopattack(sd->pd);

+		sd->pet.hungry = 0;

+		sd->pet.intimate -= battle_config.pet_hungry_friendly_decrease;

+		if(sd->pet.intimate <= 0) {

+			sd->pet.intimate = 0;

+			if(battle_config.pet_status_support && t > 0) {

+				if(sd->bl.prev != NULL)

+					status_calc_pc(sd,0);

+				else

+					status_calc_pc(sd,2);

+			}

+		}

+		status_calc_pet(sd, 0);

+		clif_send_petdata(sd,1,sd->pet.intimate);

+	}

+	clif_send_petdata(sd,2,sd->pet.hungry);

+

+	if(battle_config.pet_hungry_delay_rate != 100)

+		interval = (sd->petDB->hungry_delay*battle_config.pet_hungry_delay_rate)/100;

+	else

+		interval = sd->petDB->hungry_delay;

+	if(interval <= 0)

+		interval = 1;

+	sd->pet_hungry_timer = add_timer(tick+interval,pet_hungry,sd->bl.id,0);

+

+	return 0;

+}

+

+int search_petDB_index(int key,int type)

+{

+	int i;

+

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

+		if(pet_db[i].class_ <= 0)

+			continue;

+		switch(type) {

+			case PET_CLASS:

+				if(pet_db[i].class_ == key)

+					return i;

+				break;

+			case PET_CATCH:

+				if(pet_db[i].itemID == key)

+					return i;

+				break;

+			case PET_EGG:

+				if(pet_db[i].EggID == key)

+					return i;

+				break;

+			case PET_EQUIP:

+				if(pet_db[i].AcceID == key)

+					return i;

+				break;

+			case PET_FOOD:

+				if(pet_db[i].FoodID == key)

+					return i;

+				break;

+			default:

+				return -1;

+		}

+	}

+	return -1;

+}

+

+int pet_hungry_timer_delete(struct map_session_data *sd)

+{

+	nullpo_retr(0, sd);

+

+	if(sd->pet_hungry_timer != -1) {

+		delete_timer(sd->pet_hungry_timer,pet_hungry);

+		sd->pet_hungry_timer = -1;

+	}

+

+	return 0;

+}

+

+int pet_remove_map(struct map_session_data *sd)

+{

+	nullpo_retr(0, sd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(sd->status.pet_id && sd->pd) {

+

+		struct pet_data *pd=sd->pd; // [Valaris]

+		skill_cleartimerskill(&pd->bl); //Just in case pets get a timer-based skill.

+		//[Skotlex] clear bonus data

+		if (pd->status)

+		{

+			aFree(pd->status);

+			pd->status = NULL;

+		}

+		if (pd->a_skill)

+		{

+			aFree(pd->a_skill);

+			pd->a_skill = NULL;

+		}

+		if (pd->s_skill)

+		{

+			if (pd->s_skill->timer != -1)

+			{

+				if (sd->pd->s_skill->id)

+					delete_timer(sd->pd->s_skill->timer, pet_skill_support_timer);

+				else

+					delete_timer(sd->pd->s_skill->timer, pet_heal_timer);

+			}

+			aFree(pd->s_skill);

+			pd->s_skill = NULL;

+		}

+		if(pd->recovery)

+		{

+			if(pd->recovery->timer != -1)

+				delete_timer(pd->recovery->timer, pet_recovery_timer);

+			aFree(pd->recovery);

+			pd->recovery = NULL;

+		}

+		if(pd->bonus)

+		{

+			if (pd->bonus->timer != -1)

+				delete_timer(pd->bonus->timer, pet_skill_bonus_timer);

+			aFree(pd->bonus);

+			pd->bonus = NULL;

+		}

+		if (pd->loot)

+		{

+			if (pd->loot->item)

+				aFree(pd->loot->item);

+		//	if (pd->loot->timer != -1)

+		//		delete_timer(pd->loot->timer, pet_loot_timer);

+			aFree (pd->loot);

+			pd->loot = NULL;

+		}

+		pd->state.skillbonus=-1;

+		if(sd->state.perfect_hiding) sd->state.perfect_hiding=0;	// end additions

+

+		pet_changestate(sd->pd,MS_IDLE,0);

+		if(sd->pet_hungry_timer != -1)

+			pet_hungry_timer_delete(sd);

+		clif_clearchar_area(&sd->pd->bl,0);

+		map_delblock(&sd->pd->bl);

+		map_deliddb(&sd->pd->bl);

+		aFree(sd->pd);

+		sd->pd = NULL;

+	}

+	return 0;

+}

+struct delay_item_drop {

+	int m,x,y;

+	int nameid,amount;

+	struct map_session_data *first_sd,*second_sd,*third_sd;

+};

+

+struct delay_item_drop2 {

+	int m,x,y;

+	struct item item_data;

+	struct map_session_data *first_sd,*second_sd,*third_sd;

+};

+

+int pet_performance(struct map_session_data *sd)

+{

+	struct pet_data *pd;

+

+	nullpo_retr(0, sd);

+	nullpo_retr(0, pd=sd->pd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	pet_stop_walking(pd,2000<<8);

+	clif_pet_performance(&pd->bl,rand()%pet_performance_val(sd) + 1);

+	// ルートしたItemを落とさせる

+	pet_lootitem_drop(pd,NULL);

+

+	return 0;

+}

+

+int pet_return_egg(struct map_session_data *sd)

+{

+	struct item tmp_item;

+	int flag;

+

+	nullpo_retr(0, sd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(sd->status.pet_id && sd->pd) {

+		// ルートしたItemを落とさせる

+		pet_lootitem_drop(sd->pd,sd);

+		pet_remove_map(sd);

+		sd->status.pet_id = 0;

+		sd->pd = NULL;

+

+		if(sd->petDB == NULL)

+			return 1;

+		memset(&tmp_item,0,sizeof(tmp_item));

+		tmp_item.nameid = sd->petDB->EggID;

+		tmp_item.identify = 1;

+		tmp_item.card[0] = (short)0xff00;

+		tmp_item.card[1] = GetWord(sd->pet.pet_id,0);

+		tmp_item.card[2] = GetWord(sd->pet.pet_id,1);

+		tmp_item.card[3] = sd->pet.rename_flag;

+		if((flag = pc_additem(sd,&tmp_item,1))) {

+			clif_additem(sd,0,0,flag);

+			map_addflooritem(&tmp_item,1,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0);

+		}

+		sd->pet.incuvate = 1;

+		if(battle_config.pet_status_support && sd->pet.intimate > 0) {

+			if(sd->bl.prev != NULL)

+				status_calc_pc(sd,0);

+			else

+				status_calc_pc(sd,2);

+		}

+

+		intif_save_petdata(sd->status.account_id,&sd->pet);

+		chrif_save(sd,0); //FIXME: Do we really need to save the char when returning to pet? Seems like a waste, and unexploitable as the pet data is just moved to an item in the inventory. [Skotlex]

+

+		sd->pet.rename_flag = 0; //Prevents future captured pets from starting as "beloved" [Skotlex]

+		sd->petDB = NULL;

+	}

+

+	return 0;

+}

+

+int pet_data_init(struct map_session_data *sd)

+{

+	struct pet_data *pd;

+	int i=0,interval=0;

+

+	nullpo_retr(1, sd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(sd->status.account_id != sd->pet.account_id || sd->status.char_id != sd->pet.char_id ||

+		sd->status.pet_id != sd->pet.pet_id) {

+		sd->status.pet_id = 0;

+		return 1;

+	}

+

+	i = search_petDB_index(sd->pet.class_,PET_CLASS);

+	if(i < 0) {

+		sd->status.pet_id = 0;

+		return 1;

+	}

+	sd->petDB = &pet_db[i];

+	sd->pd = pd = (struct pet_data *)aCalloc(1,sizeof(struct pet_data));

+	pd->bl.m = sd->bl.m;

+	pd->bl.x = pd->to_x = sd->bl.x;

+	pd->bl.y = pd->to_y = sd->bl.y;

+	pet_calc_pos(pd,sd->bl.x,sd->bl.y,sd->dir);

+	pd->bl.x = pd->to_x;

+	pd->bl.y = pd->to_y;

+	pd->bl.id = npc_get_new_npc_id();

+	memcpy(pd->name, sd->pet.name, NAME_LENGTH-1);

+	pd->class_ = sd->pet.class_;

+	pd->db = mob_db(pd->class_);

+	pd->equip = sd->pet.equip;

+	pd->dir = sd->dir;

+	pd->speed = sd->petDB->speed;

+	pd->bl.subtype = MONS;

+	pd->bl.type = BL_PET;

+	pd->state.state = MS_IDLE;

+	pd->timer = -1;

+	pd->next_walktime = pd->attackabletime = pd->last_thinktime = gettick();

+	pd->msd = sd;

+

+	map_addiddb(&pd->bl);

+

+	// initialise

+	if (battle_config.pet_lv_rate)	//[Skotlex]

+		pd->status = (struct pet_status *) aCalloc(1,sizeof(struct pet_status));

+

+	status_calc_pet(sd,1);

+

+	pd->state.skillbonus = -1;

+	if (battle_config.pet_status_support) //Skotlex

+		run_script(pet_db[i].script,0,sd->bl.id,0);

+

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

+		pd->skilltimerskill[i].timer = -1;

+

+	if(sd->pet_hungry_timer != -1)

+		pet_hungry_timer_delete(sd);

+	if(battle_config.pet_hungry_delay_rate != 100)

+		interval = (sd->petDB->hungry_delay*battle_config.pet_hungry_delay_rate)/100;

+	else

+		interval = sd->petDB->hungry_delay;

+	if(interval <= 0)

+		interval = 1;

+	sd->pet_hungry_timer = add_timer(gettick()+interval,pet_hungry,sd->bl.id,0);

+	return 0;

+}

+

+int pet_birth_process(struct map_session_data *sd)

+{

+	nullpo_retr(1, sd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(sd->status.pet_id && sd->pet.incuvate == 1) {

+		sd->status.pet_id = 0;

+		return 1;

+	}

+

+	sd->pet.incuvate = 0;

+	sd->pet.account_id = sd->status.account_id;

+	sd->pet.char_id = sd->status.char_id;

+	sd->status.pet_id = sd->pet.pet_id;

+	if(pet_data_init(sd)) {

+		sd->status.pet_id = 0;

+		sd->pet.incuvate = 1;

+		sd->pet.account_id = 0;

+		sd->pet.char_id = 0;

+		return 1;

+	}

+

+	intif_save_petdata(sd->status.account_id,&sd->pet);

+	chrif_save(sd,0); //FIXME: As before, is it REALLY Needed to save the char for hatching a pet? [Skotlex]

+

+	map_addblock(&sd->pd->bl);

+	clif_spawnpet(sd->pd);

+	clif_send_petdata(sd,0,0);

+	clif_send_petdata(sd,5,battle_config.pet_hair_style);

+	clif_pet_equip(sd->pd,sd->pet.equip);

+	clif_send_petstatus(sd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	return 0;

+}

+

+int pet_recv_petdata(int account_id,struct s_pet *p,int flag)

+{

+	struct map_session_data *sd;

+

+	sd = map_id2sd(account_id);

+	if(sd == NULL)

+		return 1;

+	if(flag == 1) {

+		sd->status.pet_id = 0;

+		return 1;

+	}

+	memcpy(&sd->pet,p,sizeof(struct s_pet));

+	if(sd->pet.incuvate == 1)

+		pet_birth_process(sd);

+	else {

+		pet_data_init(sd);

+		if(sd->pd && sd->bl.prev != NULL) {

+			map_addblock(&sd->pd->bl);

+			clif_spawnpet(sd->pd);

+			clif_send_petdata(sd,0,0);

+			clif_send_petdata(sd,5,battle_config.pet_hair_style);

+//			clif_pet_equip(sd->pd,sd->pet.equip);

+			clif_send_petstatus(sd);

+		}

+	}

+	if(battle_config.pet_status_support && sd->pet.intimate > 0) {

+		if(sd->bl.prev != NULL)

+			status_calc_pc(sd,0);

+		else

+			status_calc_pc(sd,2);

+	}

+

+	return 0;

+}

+

+int pet_select_egg(struct map_session_data *sd,short egg_index)

+{

+	nullpo_retr(0, sd);

+

+	if(sd->status.inventory[egg_index].card[0] == (short)0xff00)

+		intif_request_petdata(sd->status.account_id, sd->status.char_id, MakeDWord(sd->status.inventory[egg_index].card[1], sd->status.inventory[egg_index].card[2]) );

+	else {

+		if(battle_config.error_log)

+			ShowError("wrong egg item inventory %d\n",egg_index);

+	}

+	pc_delitem(sd,egg_index,1,0);

+

+	return 0;

+}

+

+int pet_catch_process1(struct map_session_data *sd,int target_class)

+{

+	nullpo_retr(0, sd);

+

+	sd->catch_target_class = target_class;

+	clif_catch_process(sd);

+

+	return 0;

+}

+

+int pet_catch_process2(struct map_session_data *sd,int target_id)

+{

+	struct mob_data *md;

+	int i=0,pet_catch_rate=0;

+

+	nullpo_retr(1, sd);

+

+	if (sd->itemid > 0)

+	{	//Consume the pet lure [Skotlex]

+		if ((i = sd->itemindex) == -1 ||

+			sd->status.inventory[i].nameid != sd->itemid ||

+			!sd->inventory_data[i]->flag.delay_consume ||

+			sd->status.inventory[i].amount < 1	

+			)

+		{	//Something went wrong, items moved or they tried an exploit.

+			clif_pet_rulet(sd,0);

+			sd->catch_target_class = -1;

+			return 1;

+		}

+		//Delete the item

+		sd->itemid = sd->itemindex = -1;

+		pc_delitem(sd,i,1,0);

+	}

+	

+	md=(struct mob_data*)map_id2bl(target_id);

+	if(!md || md->bl.type != BL_MOB || md->bl.prev == NULL){

+		clif_pet_rulet(sd,0);

+		sd->catch_target_class = -1;

+		return 1;

+	}

+

+	i = search_petDB_index(md->class_,PET_CLASS);

+	//catch_target_class == 0 is used for universal lures. [Skotlex]

+	//for now universal lures do not include bosses.

+	if (sd->catch_target_class == 0 && !(md->db->mode&0x20))

+		sd->catch_target_class = md->class_;

+	if(i < 0 || sd->catch_target_class != md->class_) {

+		clif_emotion(&md->bl, 7);	//mob will do /ag if wrong lure is used on them.

+		clif_pet_rulet(sd,0);

+		sd->catch_target_class = -1;

+		return 1;

+	}

+

+	//target_idによる敵→卵判定

+//	if(battle_config.etc_log)

+//		printf("mob_id = %d, mob_class = %d\n",md->bl.id,md->class_);

+		//成功の場合

+	pet_catch_rate = (pet_db[i].capture + (sd->status.base_level - md->db->lv)*30 + sd->paramc[5]*20)*(200 - md->hp*100/md->db->max_hp)/100;

+	if(pet_catch_rate < 1) pet_catch_rate = 1;

+	if(battle_config.pet_catch_rate != 100)

+		pet_catch_rate = (pet_catch_rate*battle_config.pet_catch_rate)/100;

+

+	if(rand()%10000 < pet_catch_rate) {

+		mob_remove_map(md,0);

+		mob_setdelayspawn(md->bl.id);

+		clif_pet_rulet(sd,1);

+//		if(battle_config.etc_log)

+//			printf("rulet success %d\n",target_id);

+		intif_create_pet(sd->status.account_id,sd->status.char_id,pet_db[i].class_,mob_db(pet_db[i].class_)->lv,

+			pet_db[i].EggID,0,pet_db[i].intimate,100,0,1,pet_db[i].jname);

+	}

+	else

+	{

+		sd->catch_target_class = -1;

+		clif_pet_rulet(sd,0);

+	}

+

+	return 0;

+}

+

+int pet_get_egg(int account_id,int pet_id,int flag)

+{	//This function is invoked when a new pet has been created, and at no other time!

+	struct map_session_data *sd;

+	struct item tmp_item;

+	int i=0,ret=0;

+

+	if(!flag) {

+		sd = map_id2sd(account_id);

+		if(sd == NULL)

+			return 1;

+

+		i = search_petDB_index(sd->catch_target_class,PET_CLASS);

+		sd->catch_target_class = -1;

+		

+		if(i >= 0) {

+			memset(&tmp_item,0,sizeof(tmp_item));

+			tmp_item.nameid = pet_db[i].EggID;

+			tmp_item.identify = 1;

+			tmp_item.card[0] = (short)0xff00;

+			tmp_item.card[1] = GetWord(pet_id,0);

+			tmp_item.card[2] = GetWord(pet_id,1);

+			tmp_item.card[3] = 0; //New pets are not named.

+			if((ret = pc_additem(sd,&tmp_item,1))) {

+				clif_additem(sd,0,0,ret);

+				map_addflooritem(&tmp_item,1,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0);

+			}

+		}

+		else

+			intif_delete_petdata(pet_id);

+	}

+

+	return 0;

+}

+

+int pet_menu(struct map_session_data *sd,int menunum)

+{

+	nullpo_retr(0, sd);

+	if (sd->pd == NULL)

+		return 1;

+	

+	switch(menunum) {

+		case 0:

+			clif_send_petstatus(sd);

+			break;

+		case 1:

+			pet_food(sd);

+			break;

+		case 2:

+			pet_performance(sd);

+			break;

+		case 3:

+			pet_return_egg(sd);

+			break;

+		case 4:

+			pet_unequipitem(sd);

+			break;

+	}

+	return 0;

+}

+

+int pet_change_name(struct map_session_data *sd,char *name)

+{

+	int i;

+	

+	nullpo_retr(1, sd);

+

+	if((sd->pd == NULL) || (sd->pet.rename_flag == 1 && battle_config.pet_rename == 0))

+		return 1;

+

+	for(i=0;i<NAME_LENGTH && name[i];i++){

+		if( !(name[i]&0xe0) || name[i]==0x7f)

+			return 1;

+	}

+

+	pet_stop_walking(sd->pd,1);

+	

+	memcpy(sd->pet.name, name, NAME_LENGTH-1);

+	memcpy(sd->pd->name, name, NAME_LENGTH-1);

+	

+	clif_clearchar_area(&sd->pd->bl,0);

+	clif_spawnpet(sd->pd);

+	clif_send_petdata(sd,0,0);

+	clif_send_petdata(sd,5,battle_config.pet_hair_style);

+	sd->pet.rename_flag = 1;

+	clif_pet_equip(sd->pd,sd->pet.equip);

+	clif_send_petstatus(sd);

+

+	return 0;

+}

+

+int pet_equipitem(struct map_session_data *sd,int index)

+{

+	int nameid;

+

+	nullpo_retr(1, sd);

+

+	nameid = sd->status.inventory[index].nameid;

+	if(sd->petDB == NULL)

+		return 1;

+	if(sd->petDB->AcceID == 0 || nameid != sd->petDB->AcceID || sd->pet.equip != 0) {

+		clif_equipitemack(sd,0,0,0);

+		return 1;

+	}

+	else {

+		pc_delitem(sd,index,1,0);

+		sd->pet.equip = sd->pd->equip = nameid;

+		status_calc_pc(sd,0);

+		clif_pet_equip(sd->pd,nameid);

+		if (battle_config.pet_equip_required)

+		{ 	//Skotlex: start support timers if needd

+			if (sd->pd->s_skill && sd->pd->s_skill->timer == -1)

+			{

+				if (sd->pd->s_skill->id)

+					sd->pd->s_skill->timer=add_timer(gettick()+sd->pd->s_skill->delay*1000, pet_skill_support_timer, sd->bl.id, 0);

+				else

+					sd->pd->s_skill->timer=add_timer(gettick()+sd->pd->s_skill->delay*1000, pet_heal_timer, sd->bl.id, 0);

+			}

+			if (sd->pd->bonus && sd->pd->bonus->timer == -1)

+				sd->pd->bonus->timer=add_timer(gettick()+sd->pd->bonus->delay*1000, pet_skill_bonus_timer, sd->bl.id, 0);

+		}

+	}

+

+	return 0;

+}

+

+int pet_unequipitem(struct map_session_data *sd)

+{

+	struct item tmp_item;

+	int nameid,flag;

+

+	nullpo_retr(1, sd);

+

+	if(sd->petDB == NULL)

+		return 1;

+	if(sd->pet.equip == 0)

+		return 1;

+

+	nameid = sd->pet.equip;

+	sd->pet.equip = sd->pd->equip = 0;

+	status_calc_pc(sd,0);

+	clif_pet_equip(sd->pd,0);

+	memset(&tmp_item,0,sizeof(tmp_item));

+	tmp_item.nameid = nameid;

+	tmp_item.identify = 1;

+	if((flag = pc_additem(sd,&tmp_item,1))) {

+		clif_additem(sd,0,0,flag);

+		map_addflooritem(&tmp_item,1,sd->bl.m,sd->bl.x,sd->bl.y,NULL,NULL,NULL,0);

+	}

+	if (battle_config.pet_equip_required)

+	{ 	//Skotlex: halt support timers if needed

+		if (sd->pd->s_skill && sd->pd->s_skill->timer != -1)

+		{

+			if (sd->pd->s_skill->id)

+				delete_timer(sd->pd->s_skill->timer, pet_skill_support_timer);

+			else

+				delete_timer(sd->pd->s_skill->timer, pet_heal_timer);

+			sd->pd->s_skill->timer = -1;

+		}

+		if (sd->pd->bonus && sd->pd->bonus->timer != -1)

+		{

+			delete_timer(sd->pd->bonus->timer, pet_skill_bonus_timer);

+			sd->pd->bonus->timer = -1;

+		}

+	}

+

+	return 0;

+}

+

+int pet_food(struct map_session_data *sd)

+{

+	int i,k,t;

+

+	nullpo_retr(1, sd);

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(sd->petDB == NULL)

+		return 1;

+	i=pc_search_inventory(sd,sd->petDB->FoodID);

+	if(i < 0) {

+		clif_pet_food(sd,sd->petDB->FoodID,0);

+		return 1;

+	}

+	pc_delitem(sd,i,1,0);

+	t = sd->pet.intimate;

+	if(sd->pet.hungry > 90)

+		sd->pet.intimate -= sd->petDB->r_full;

+	else if(sd->pet.hungry > 75) {

+		if(battle_config.pet_friendly_rate != 100)

+			k = (sd->petDB->r_hungry * battle_config.pet_friendly_rate)/100;

+		else

+			k = sd->petDB->r_hungry;

+		k = k >> 1;

+		if(k <= 0)

+			k = 1;

+		sd->pet.intimate += k;

+	}

+	else {

+		if(battle_config.pet_friendly_rate != 100)

+			k = (sd->petDB->r_hungry * battle_config.pet_friendly_rate)/100;

+		else

+			k = sd->petDB->r_hungry;

+		sd->pet.intimate += k;

+	}

+	if(sd->pet.intimate <= 0) {

+		sd->pet.intimate = 0;

+		if(battle_config.pet_status_support && t > 0) {

+			if(sd->bl.prev != NULL)

+				status_calc_pc(sd,0);

+			else

+				status_calc_pc(sd,2);

+		}

+	}

+	else if(sd->pet.intimate > 1000)

+		sd->pet.intimate = 1000;

+	status_calc_pet(sd, 0);

+	sd->pet.hungry += sd->petDB->fullness;

+	if(sd->pet.hungry > 100)

+		sd->pet.hungry = 100;

+

+	clif_send_petdata(sd,2,sd->pet.hungry);

+	clif_send_petdata(sd,1,sd->pet.intimate);

+	clif_pet_food(sd,sd->petDB->FoodID,1);

+

+	return 0;

+}

+

+static int pet_randomwalk(struct pet_data *pd,int tick)

+{

+	const int retrycount=20;

+	int speed;

+

+	nullpo_retr(0, pd);

+

+	Assert((pd->msd == 0) || (pd->msd->pd == pd));

+

+	speed = status_get_speed(&pd->bl);

+

+	if(DIFF_TICK(pd->next_walktime,tick) < 0){

+		int i,x,y,c,d=12-pd->move_fail_count;

+		if(d<5) d=5;

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

+			int r=rand();

+			x=pd->bl.x+r%(d*2+1)-d;

+			y=pd->bl.y+r/(d*2+1)%(d*2+1)-d;

+			if((map_getcell(pd->bl.m,x,y,CELL_CHKPASS))&&( pet_walktoxy(pd,x,y)==0)){

+				pd->move_fail_count=0;

+				break;

+			}

+			if(i+1>=retrycount){

+				pd->move_fail_count++;

+				if(pd->move_fail_count>1000){

+					if(battle_config.error_log)

+						ShowWarning("PET cant move. hold position %d, class = %d\n",pd->bl.id,pd->class_);

+					pd->move_fail_count=0;

+					pet_changestate(pd,MS_DELAY,60000);

+					return 0;

+				}

+			}

+		}

+		for(i=c=0;i<pd->walkpath.path_len;i++){

+			if(pd->walkpath.path[i]&1)

+				c+=speed*14/10;

+			else

+				c+=speed;

+		}

+		pd->next_walktime = tick+rand()%3000+3000+c;

+

+		return 1;

+	}

+	return 0;

+}

+

+static int pet_ai_sub_hard(struct pet_data *pd,unsigned int tick)

+{

+	struct map_session_data *sd = pd->msd;

+	struct block_list *bl = NULL;

+	int dist,i=0,dx,dy,ret;

+	int mode,race;

+

+	nullpo_retr(0, pd);

+

+	sd = pd->msd;

+

+	Assert((sd->status.pet_id == 0 || sd->pd == 0) || sd->pd->msd == sd); 

+

+	if(pd->bl.prev == NULL || sd == NULL || sd->bl.prev == NULL)

+		return 0;

+

+	if(DIFF_TICK(tick,pd->last_thinktime) < MIN_PETTHINKTIME)

+		return 0;

+	pd->last_thinktime=tick;

+

+	if(pd->state.state == MS_DELAY || pd->bl.m != sd->bl.m)

+		return 0;

+	// ペットによるルート

+	if(!pd->target_id && pd->loot && pd->loot->count < pd->loot->max && DIFF_TICK(gettick(),pd->loot->timer)>0)

+		map_foreachinarea(pet_ai_sub_hard_lootsearch,pd->bl.m,

+						  pd->bl.x-6,pd->bl.y-6, //If pet_ai_sub_hard_lootsearch limits itself to a range of 5, WHY use AREA_SIZE here? o.O [Skotlex]

+						  pd->bl.x+6,pd->bl.y+6,

+//						  pd->bl.x-AREA_SIZE*2,pd->bl.y-AREA_SIZE*2,

+//						  pd->bl.x+AREA_SIZE*2,pd->bl.y+AREA_SIZE*2,

+						  BL_ITEM,pd,&i);

+

+	if(sd->pet.intimate > 0) {

+		dist = distance_bl(&sd->bl, &pd->bl);

+		if(dist > 12) {

+			if(pd->target_id > 0)

+				pet_unlocktarget(pd);

+			if(pd->timer != -1 && pd->state.state == MS_WALK && check_distance_blxy(&sd->bl, pd->to_x, pd->to_y, 3))

+				return 0;

+			pd->speed = (sd->speed>>1);

+			if(pd->speed <= 0)

+				pd->speed = 1;

+			pet_calc_pos(pd,sd->bl.x,sd->bl.y,sd->dir);

+			if(pet_walktoxy(pd,pd->to_x,pd->to_y))

+				pet_randomwalk(pd,tick);

+		}

+		else if(pd->target_id - MAX_FLOORITEM > 0) {	//Mob targeted

+			mode=pd->db->mode;

+			race=pd->db->race;

+			bl= map_id2bl(pd->target_id);

+			if(bl == NULL || pd->bl.m != bl->m || bl->prev == NULL ||

+				!check_distance_bl(&pd->bl, bl, pd->db->range3))

+				pet_unlocktarget(pd);

+			else if(!battle_check_range(&pd->bl,bl,pd->db->range) && !pd->state.casting_flag){ //Skotlex Don't interrupt a casting spell when targed moved

+				if(pd->timer != -1 && pd->state.state == MS_WALK && check_distance_blxy(bl, pd->to_x, pd->to_y, 2))

+					return 0;

+				if(!pet_can_reach(pd, bl->x, bl->y))

+					pet_unlocktarget(pd);

+				else {

+					i=0;

+					pd->speed = status_get_speed(&pd->bl);

+					do {

+						if(i==0) {	// 最初はAEGISと同じ方法で検索

+							dx=bl->x - pd->bl.x;

+							dy=bl->y - pd->bl.y;

+							if(dx<0) dx++;

+							else if(dx>0) dx--;

+							if(dy<0) dy++;

+							else if(dy>0) dy--;

+						}

+						else {	// だめならAthena式(ランダム)

+							dx=bl->x - pd->bl.x + rand()%3 - 1;

+							dy=bl->y - pd->bl.y + rand()%3 - 1;

+						}

+						ret=pet_walktoxy(pd,pd->bl.x+dx,pd->bl.y+dy);

+						i++;

+					} while(ret && i<5);

+

+					if(ret) { // 移動不可能な所からの攻撃なら2歩下る

+						if(dx<0) dx=2;

+						else if(dx>0) dx=-2;

+						if(dy<0) dy=2;

+						else if(dy>0) dy=-2;

+						pet_walktoxy(pd,pd->bl.x+dx,pd->bl.y+dy);

+					}

+				}

+			}

+			else {

+				if(pd->state.state==MS_WALK)

+					pet_stop_walking(pd,1);

+				if(pd->state.state==MS_ATTACK)

+					return 0;

+				pet_changestate(pd,MS_ATTACK,0);

+			}

+		}

+		else if(pd->target_id > 0 && pd->loot){	//Item Targeted, attempt loot

+			struct block_list *bl_item;

+			struct flooritem_data *fitem;

+

+			bl_item = map_id2bl(pd->target_id);

+			if(bl_item == NULL || bl_item->type != BL_ITEM ||bl_item->m != pd->bl.m ||

+				 (dist=distance_bl(&pd->bl, bl_item))>=5){

+				 // 遠すぎるかアイテムがなくなった

+ 				pet_unlocktarget(pd);

+			}

+			else if(dist){

+				if(pd->timer != -1 && pd->state.state!=MS_ATTACK && (DIFF_TICK(pd->next_walktime,tick)<0 || !check_distance_blxy(bl_item, pd->to_x, pd->to_y, 0)))

+					return 0; // 既に移動中

+

+				pd->next_walktime=tick+500;

+				dx=bl_item->x - pd->bl.x;

+				dy=bl_item->y - pd->bl.y;

+

+				ret=pet_walktoxy(pd,pd->bl.x+dx,pd->bl.y+dy);

+			}

+			else{	// アイテムまでたどり着いた

+				fitem = (struct flooritem_data *)bl_item;

+				if(pd->state.state==MS_ATTACK)

+					return 0; // 攻撃中

+				if(pd->state.state==MS_WALK){	// 歩行中なら停止

+					pet_stop_walking(pd,1);

+				}

+				if(pd->loot->count < pd->loot->max){

+					memcpy(&pd->loot->item[pd->loot->count++],&fitem->item_data,sizeof(pd->loot->item[0]));

+					pd->loot->weight += itemdb_search(fitem->item_data.nameid)->weight*fitem->item_data.amount;

+					map_clearflooritem(bl_item->id);

+					pet_unlocktarget(pd);

+				}

+				else { //Maxed out on carried items

+					pet_unlocktarget(pd);

+					return 0;

+				}

+			}

+		}

+		else {

+			if(dist <= 3 || pd->state.casting_flag || (pd->timer != -1 && pd->state.state == MS_WALK && check_distance_blxy(&sd->bl, pd->to_x,pd->to_y, 3)))

+				return 0;

+			pd->speed = status_get_speed(&pd->bl);

+			pet_calc_pos(pd,sd->bl.x,sd->bl.y,sd->dir);

+			if(pet_walktoxy(pd,pd->to_x,pd->to_y))

+				pet_randomwalk(pd,tick);

+		}

+	}

+	else {

+		pd->speed = status_get_speed(&pd->bl);

+		if(pd->state.state == MS_ATTACK)

+			pet_stopattack(pd);

+		pet_randomwalk(pd,tick);

+	}

+

+	return 0;

+}

+

+static int pet_ai_sub_foreachclient(struct map_session_data *sd,va_list ap)

+{

+	unsigned int tick;

+

+	nullpo_retr(0, sd);

+	nullpo_retr(0, ap);

+

+	tick=va_arg(ap,unsigned int);

+	if(sd->status.pet_id && sd->pd && sd->petDB)

+		pet_ai_sub_hard(sd->pd,tick);

+

+	return 0;

+}

+

+static int pet_ai_hard(int tid,unsigned int tick,int id,int data)

+{

+	clif_foreachclient(pet_ai_sub_foreachclient,tick);

+

+	return 0;

+}

+

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

+{

+	struct pet_data* pd;

+	int *itc;

+

+	nullpo_retr(0, bl);

+	nullpo_retr(0, ap);

+	nullpo_retr(0, pd=va_arg(ap,struct pet_data *));

+	nullpo_retr(0, itc=va_arg(ap,int *));

+

+	if(!pd->target_id){

+		struct flooritem_data *fitem = (struct flooritem_data *)bl;

+		struct map_session_data *sd = NULL;

+		// ルート権無し

+		if(fitem && fitem->first_get_id>0)

+			sd = map_id2sd(fitem->first_get_id);

+		// Removed [Valaris]

+		//if((pd->lootitem_weight + (itemdb_search(fitem->item_data.))->weight * fitem->item_data.amount) > battle_config.pet_weight)

+		//	return 0;

+

+		if(pd->loot == NULL || pd->loot->item == NULL || (pd->loot->count >= pd->loot->max) || (sd && sd->pd != pd))

+			return 0;

+		if(bl->m == pd->bl.m && check_distance_bl(&pd->bl, bl, 5)){

+			if( pet_can_reach(pd,bl->x,bl->y)		// 到達可能性判定

+				 && rand()%1000<1000/(++(*itc)) ){	// 範囲内PCで等確率にする

+				pd->target_id=bl->id;

+			}

+		}

+	}

+	return 0;

+}

+int pet_lootitem_drop(struct pet_data *pd,struct map_session_data *sd)

+{

+	int i,flag=0;

+

+	if(pd){

+		if(pd->loot) {

+			for(i=0;i<pd->loot->count;i++) {

+				struct delay_item_drop2 *ditem;

+

+				ditem=(struct delay_item_drop2 *)aCalloc(1,sizeof(struct delay_item_drop2));

+				memcpy(&ditem->item_data,&pd->loot->item[i],sizeof(pd->loot->item[0]));

+				ditem->m = pd->bl.m;

+				ditem->x = pd->bl.x;

+				ditem->y = pd->bl.y;

+				ditem->first_sd = 0;

+				ditem->second_sd = 0;

+				ditem->third_sd = 0;

+				// 落とさないで直接PCのItem欄へ

+				if(sd){

+					if((flag = pc_additem(sd,&ditem->item_data,ditem->item_data.amount))){

+						clif_additem(sd,0,0,flag);

+						map_addflooritem(&ditem->item_data,ditem->item_data.amount,ditem->m,ditem->x,ditem->y,ditem->first_sd,ditem->second_sd,ditem->third_sd,0);

+					}

+					aFree(ditem);

+				}

+				else

+					add_timer(gettick()+540+i,pet_delay_item_drop2,(int)ditem,0);

+			}

+			//The smart thing to do is use pd->loot->max (thanks for pointing it out, Shinomori)

+			memset(pd->loot->item,0,pd->loot->max * sizeof(struct item));

+			pd->loot->count = 0;

+			pd->loot->weight = 0;

+			pd->loot->timer = gettick()+10000;	//	10*1000msの間拾わない

+		}

+	}

+	return 1;

+}

+

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

+{

+	struct delay_item_drop2 *ditem;

+

+	ditem=(struct delay_item_drop2 *)id;

+

+	map_addflooritem(&ditem->item_data,ditem->item_data.amount,ditem->m,ditem->x,ditem->y,ditem->first_sd,ditem->second_sd,ditem->third_sd,0);

+

+	aFree(ditem);

+	return 0;

+}

+

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

+ * pet bonus giving skills [Valaris] / Rewritten by [Skotlex]

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

+ */ 

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

+{

+	struct map_session_data *sd=map_id2sd(id);

+	struct pet_data *pd;

+	int timer = 0;

+

+	if(sd == NULL || sd->pd==NULL || sd->pd->bonus == NULL)

+		return 1;

+	

+	pd=sd->pd;

+

+	if(pd->bonus->timer != tid) {

+		if(battle_config.error_log)

+		{

+			ShowError("pet_skill_bonus_timer %d != %d\n",pd->bonus->timer,tid);

+			pd->bonus->timer = -1;

+		}

+		return 0;

+	}

+	

+	// determine the time for the next timer

+	if (pd->state.skillbonus == 0) {

+		// pet bonuses are not active at the moment, so,

+		pd->state.skillbonus = 1;

+		timer = pd->bonus->duration*1000;	// the duration for pet bonuses to be in effect

+	} else if (pd->state.skillbonus == 1) {

+		// pet bonuses are already active, so,

+		pd->state.skillbonus = 0;

+		timer = pd->bonus->delay*1000;	// the duration until pet bonuses will be reactivated again

+		if (timer <= 0) //Always active bonus

+			timer = MIN_PETTHINKTIME; 

+	}

+

+	// add/remove our bonuses

+	status_calc_pc(sd, 0);

+

+	// wait for the next timer

+	pd->bonus->timer=add_timer(tick+timer,pet_skill_bonus_timer,sd->bl.id,0);

+	

+	return 0;

+}

+

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

+ * pet recovery skills [Valaris] / Rewritten by [Skotlex]

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

+ */ 

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

+{

+	struct map_session_data *sd=(struct map_session_data*)map_id2bl(id);

+	struct pet_data *pd;

+	

+	if(sd==NULL || sd->pd == NULL || sd->pd->recovery == NULL)

+		return 1;

+	

+	pd=sd->pd;

+

+	if(pd->recovery == NULL || pd->recovery->timer != tid) {

+		if(battle_config.error_log)

+		{

+			if (pd->recovery)

+				ShowError("pet_recovery_timer %d != %d\n",pd->recovery->timer,tid);

+			else

+				ShowError("pet_recovery_timer called with no recovery skill defined (tid=%d)\n",tid);

+		}

+		return 0;

+	}

+

+	if(sd->sc_data && sd->sc_data[pd->recovery->type].timer != -1)

+	{	//Display a heal animation? 

+		//Detoxify is chosen for now.

+		clif_skill_nodamage(&pd->bl,&sd->bl,TF_DETOXIFY,1,1);

+		status_change_end(&sd->bl,pd->recovery->type,-1);

+		clif_emotion(&pd->bl, 33);

+	}

+

+	pd->recovery->timer = -1;

+	

+	return 0;

+}

+

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

+{

+	struct map_session_data *sd=(struct map_session_data*)map_id2bl(id);

+	struct pet_data *pd;

+	short rate = 100;

+	

+	if(sd==NULL || sd->bl.type!=BL_PC || sd->pd == NULL)

+		return 1;

+	

+	pd=sd->pd;

+

+	if(pd->s_skill == NULL || pd->s_skill->timer != tid) {

+		if(battle_config.error_log)

+		{

+			if (pd->s_skill)

+				ShowError("pet_heal_timer %d != %d\n",pd->s_skill->timer,tid);

+			else

+				ShowError("pet_heal_timer called with no support skill defined (tid=%d)\n",tid);

+		}

+		return 0;

+	}

+	

+	if(pc_isdead(sd) ||

+		(rate = sd->status.sp*100/sd->status.max_sp) > pd->s_skill->sp ||

+		(rate = sd->status.hp*100/sd->status.max_hp) > pd->s_skill->hp ||

+		(rate = pd->state.casting_flag) || //Another skill is in effect

+		(rate = pd->state.state) == MS_WALK) //Better wait until the pet stops moving (MS_WALK is 2)

+	{  //Wait (how long? 1 sec for every 10% of remaining)

+		pd->s_skill->timer=add_timer(gettick()+(rate>10?rate:10)*100,pet_heal_timer,sd->bl.id,0);

+		return 0;

+	}

+

+	if (pd->state.state == MS_ATTACK)

+			pet_stopattack(pd);

+	clif_skill_nodamage(&pd->bl,&sd->bl,AL_HEAL,pd->s_skill->lv,1);

+	pc_heal(sd,pd->s_skill->lv,0);

+	

+	pd->s_skill->timer=add_timer(tick+pd->s_skill->delay*1000,pet_heal_timer,sd->bl.id,0);

+	

+	return 0;

+}

+

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

+ * pet support skills [Skotlex]

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

+ */ 

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

+{

+	struct map_session_data *sd=(struct map_session_data*)map_id2bl(id);

+	struct pet_data *pd;

+	short rate = 100;	

+	if(sd==NULL || sd->bl.type!=BL_PC || sd->pd == NULL)

+		return 1;

+	

+	pd=sd->pd;

+	

+	if(pd->s_skill == NULL || pd->s_skill->timer != tid) {

+		if(battle_config.error_log)

+		{

+			if (pd->s_skill)

+				ShowError("pet_skill_support_timer %d != %d\n",pd->s_skill->timer,tid);

+			else

+				ShowError("pet_skill_support_timer called with no support skill defined (tid=%d)\n",tid);

+		}

+		return 0;

+	}

+	

+	if(pc_isdead(sd) ||

+		(rate = sd->status.sp*100/sd->status.max_sp) > pd->s_skill->sp ||

+		(rate = sd->status.hp*100/sd->status.max_hp) > pd->s_skill->hp ||

+		(rate = pd->state.casting_flag) || //Another skill is in effect

+		(rate = pd->state.state) == MS_WALK) //Better wait until the pet stops moving (MS_WALK is 2)

+	{  //Wait (how long? 1 sec for every 10% of remaining)

+		pd->s_skill->timer=add_timer(gettick()+(rate>10?rate:10)*100,pet_skill_support_timer,sd->bl.id,0);

+		return 0;

+	}

+	

+	if (pd->state.state == MS_ATTACK)

+		pet_stopattack(pd);

+	petskill_use(pd, &sd->bl, pd->s_skill->id, pd->s_skill->lv, tick);

+

+	pd->s_skill->timer=add_timer(tick+pd->s_skill->delay*1000,pet_skill_support_timer,sd->bl.id,0);

+	

+	return 0;

+}

+

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

+ *ペットデータ読み込み

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

+ */ 

+int read_petdb()

+{

+	FILE *fp;

+	char line[1024];

+	int nameid,i,k; 

+	int j=0;

+	int lines;

+	char *filename[]={"pet_db.txt","pet_db2.txt"};

+	char *str[32],*p,*np;

+

+

+//Remove any previous scripts in case reloaddb was invoked.	

+	for(j =0; j < MAX_PET_DB; j++)

+		if (pet_db[j].script) {

+			aFree(pet_db[j].script);

+			pet_db[j].script = NULL;

+		}

+	j = 0;

+	memset(pet_db,0,sizeof(pet_db));

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

+		sprintf(line, "%s/%s", db_path, filename[i]);

+		fp=fopen(line,"r");

+		if(fp==NULL){

+			if(i>0)

+				continue;

+			ShowError("can't read %s\n",line);

+			return -1;

+		}

+		lines = 0;

+		while(fgets(line,1020,fp) && j < MAX_PET_DB){

+			

+			lines++;

+

+			if(line[0] == '/' && line[1] == '/')

+				continue;

+

+			for(k=0,p=line;k<20;k++){

+				if((np=strchr(p,','))!=NULL){

+					str[k]=p;

+					*np=0;

+					p=np+1;

+				} else {

+					str[k]=p;

+					p+=strlen(p);

+				}

+			}

+

+			nameid=atoi(str[0]);

+			if(nameid<=0 || nameid>2000)

+				continue;

+		

+			//MobID,Name,JName,ItemID,EggID,AcceID,FoodID,"Fullness (1回の餌での満腹度増加率%)","HungryDeray (/min)","R_Hungry (空腹時餌やり親密度増加率%)","R_Full (とても満腹時餌やり親密度減少率%)","Intimate (捕獲時親密度%)","Die (死亡時親密度減少率%)","Capture (捕獲率%)",(Name)

+			pet_db[j].class_ = nameid;

+			memcpy(pet_db[j].name,str[1],NAME_LENGTH-1);

+			memcpy(pet_db[j].jname,str[2],NAME_LENGTH-1);

+			pet_db[j].itemID=atoi(str[3]);

+			pet_db[j].EggID=atoi(str[4]);

+			pet_db[j].AcceID=atoi(str[5]);

+			pet_db[j].FoodID=atoi(str[6]);

+			pet_db[j].fullness=atoi(str[7]);

+			pet_db[j].hungry_delay=atoi(str[8])*1000;

+			pet_db[j].r_hungry=atoi(str[9]);

+			if(pet_db[j].r_hungry <= 0)

+				pet_db[j].r_hungry=1;

+			pet_db[j].r_full=atoi(str[10]);

+			pet_db[j].intimate=atoi(str[11]);

+			pet_db[j].die=atoi(str[12]);

+			pet_db[j].capture=atoi(str[13]);

+			pet_db[j].speed=atoi(str[14]);

+			pet_db[j].s_perfor=(char)atoi(str[15]);

+			pet_db[j].talk_convert_class=atoi(str[16]);

+			pet_db[j].attack_rate=atoi(str[17]);

+			pet_db[j].defence_attack_rate=atoi(str[18]);

+			pet_db[j].change_target_rate=atoi(str[19]);

+			pet_db[j].script = NULL;

+			if((np=strchr(p,'{'))==NULL)

+				continue;

+			pet_db[j].script = parse_script((unsigned char *) np,lines);

+			j++;

+		}

+		if (j >= MAX_PET_DB)

+			ShowWarning("read_petdb: Reached max number of pets [%d]. Remaining pets were not read.\n ", MAX_PET_DB);

+		fclose(fp);

+		ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' pets in '"CL_WHITE"%s"CL_RESET"'.\n",j,filename[i]);

+	}

+	return 0;

+}

+

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

+ * スキル関係初期化処理

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

+ */

+int do_init_pet(void)

+{

+	memset(pet_db,0,sizeof(pet_db));

+	read_petdb();

+

+	add_timer_func_list(pet_timer,"pet_timer");

+	add_timer_func_list(pet_hungry,"pet_hungry");

+	add_timer_func_list(pet_ai_hard,"pet_ai_hard");

+	add_timer_func_list(pet_skill_bonus_timer,"pet_skill_bonus_timer"); // [Valaris]

+	add_timer_func_list(pet_delay_item_drop2,"pet_delay_item_drop2");	

+	add_timer_func_list(pet_skill_support_timer, "pet_skill_support_timer"); // [Skotlex]

+	add_timer_func_list(pet_recovery_timer,"pet_recovery_timer"); // [Valaris]

+	add_timer_func_list(pet_heal_timer,"pet_heal_timer"); // [Valaris]

+	add_timer_interval(gettick()+MIN_PETTHINKTIME,pet_ai_hard,0,0,MIN_PETTHINKTIME);

+

+	return 0;

+}

+

+int do_final_pet(void) {

+	int i;

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

+		if(pet_db[i].script) {

+			aFree(pet_db[i].script);

+			pet_db[i].script = NULL;

+		}

+	}

+	return 0;

+}