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

#include "pet.hpp"

#include <map>
#include <string>

#include <stdlib.h>

#include <yaml-cpp/yaml.h>

#include "../common/db.hpp"
#include "../common/ers.hpp"
#include "../common/malloc.hpp"
#include "../common/nullpo.hpp"
#include "../common/random.hpp"
#include "../common/showmsg.hpp"
#include "../common/strlib.hpp"
#include "../common/timer.hpp"
#include "../common/utilities.hpp"
#include "../common/utils.hpp"

#include "achievement.hpp"
#include "battle.hpp"
#include "chrif.hpp"
#include "clif.hpp"
#include "intif.hpp"
#include "log.hpp"
#include "mob.hpp"
#include "npc.hpp"
#include "pc.hpp"

using namespace rathena;

const t_tick MIN_PETTHINKTIME = 100;

const std::string PetDatabase::getDefaultLocation(){
	return std::string(db_path) + "/pet_db.yml";
}

uint64 PetDatabase::parseBodyNode( const YAML::Node &node ){
	std::string mob_name;

	if( !this->asString( node, "Mob", mob_name ) ){
		return 0;
	}

	struct mob_db* mob = mobdb_search_aegisname( mob_name.c_str() );

	if( mob == nullptr ){
		this->invalidWarning( node["Target"], "Mob %s does not exist and cannot be used as a pet.\n", mob_name.c_str() );
		return 0;
	}

	uint16 mob_id = mob->vd.class_;

	std::shared_ptr<s_pet_db> pet = this->find( mob_id );
	bool exists = pet != nullptr;

	if( !exists ){
		// Check mandatory nodes
		if( !this->nodesExist( node, { "EggItem", "Fullness", "CaptureRate" } ) ){
			return 0;
		}

		pet = std::make_shared<s_pet_db>();
		pet->class_ = mob_id;
	}

	if( this->nodeExists( node, "TameItem" ) ){
		std::string item_name;

		if( !this->asString( node, "TameItem", item_name ) ){
			return 0;
		}

		struct item_data* item = itemdb_search_aegisname( item_name.c_str() );

		if( item == nullptr ){
			this->invalidWarning( node["TameItem"], "Taming item %s does not exist.\n", item_name.c_str() );
			return 0;
		}

		pet->itemID = item->nameid;
	}else{
		if( !exists ){
			pet->itemID = 0;
		}
	}

	if( this->nodeExists( node, "EggItem" ) ){
		std::string item_name;

		if( !this->asString( node, "EggItem", item_name ) ){
			return 0;
		}

		struct item_data* item = itemdb_search_aegisname( item_name.c_str() );

		if( item == nullptr ){
			this->invalidWarning( node["EggItem"], "Egg item %s does not exist.\n", item_name.c_str() );
			return 0;
		}

		pet->EggID = item->nameid;
	}

	if( this->nodeExists( node, "EquipItem" ) ){
		std::string item_name;

		if( !this->asString( node, "EquipItem", item_name ) ){
			return 0;
		}

		struct item_data* item = itemdb_search_aegisname( item_name.c_str() );

		if( item == nullptr ){
			this->invalidWarning( node["EquipItem"], "Equip item %s does not exist.\n", item_name.c_str() );
			return 0;
		}

		pet->AcceID = item->nameid;
	}else{
		if( !exists ){
			pet->AcceID = 0;
		}
	}

	if( this->nodeExists( node, "FoodItem" ) ){
		std::string item_name;

		if( !this->asString( node, "FoodItem", item_name ) ){
			return 0;
		}

		struct item_data* item = itemdb_search_aegisname( item_name.c_str() );

		if( item == nullptr ){
			this->invalidWarning( node["FoodItem"], "Food item %s does not exist.\n", item_name.c_str() );
			return 0;
		}

		pet->FoodID = item->nameid;
	}else{
		if( !exists ){
			pet->FoodID = 0;
		}
	}

	if( this->nodeExists( node, "Fullness" ) ){
		uint16 fullness;

		if( !this->asUInt16( node, "Fullness", fullness ) ){
			return 0;
		}

		if( fullness > 100 ){
			this->invalidWarning( node["Fullness"], "Fullness %hu exceeds maximum of 100. Capping...\n", fullness );
			fullness = 100;
		}

		pet->fullness = fullness;
	}

	if( this->nodeExists( node, "HungryDelay" ) ){
		uint32 delay;

		if( !this->asUInt32( node, "HungryDelay", delay ) ){
			return 0;
		}

		pet->hungry_delay = delay * 1000;
	}else{
		if( !exists ){
			pet->hungry_delay = 60000;
		}
	}

	if( this->nodeExists( node, "HungerIncrease" ) ){
		int32 increase;

		if( !this->asInt32( node, "HungerIncrease", increase ) ){
			return 0;
		}

		pet->hunger_increase = increase;
	}else{
		if( !exists ){
			pet->hunger_increase = 20;
		}
	}

	if( this->nodeExists( node, "IntimacyStart" ) ){
		uint32 start;

		if( !this->asUInt32( node, "IntimacyStart", start ) ){
			return 0;
		}

		if( start > 10000 ){
			this->invalidWarning( node["IntimacyStart"], "IntimacyStart %hu exceeds maximum of 10000. Capping...\n", start );
			start = 10000;
		}

		pet->intimate = start;
	}else{
		if( !exists ){
			pet->intimate = 250;
		}
	}

	if( this->nodeExists( node, "IntimacyFed" ) ){
		int32 fed;

		if( !this->asInt32( node, "IntimacyFed", fed ) ){
			return 0;
		}

		pet->r_hungry = fed;
	}else{
		if( !exists ){
			pet->r_hungry = 50;
		}
	}

	if( this->nodeExists( node, "IntimacyOverfed" ) ){
		int32 overfed;

		if( !this->asInt32( node, "IntimacyOverfed", overfed ) ){
			return 0;
		}

		pet->r_full = overfed;
	}else{
		if( !exists ){
			pet->r_full = -100;
		}
	}

	if( this->nodeExists( node, "IntimacyHungry" ) ){
		int32 hungry;

		if( !this->asInt32( node, "IntimacyHungry", hungry ) ){
			return 0;
		}

		pet->hungry_intimacy_dec = hungry;
	}else{
		if( !exists ){
			pet->hungry_intimacy_dec = -5;
		}
	}

	if( this->nodeExists( node, "IntimacyOwnerDie" ) ){
		int32 die;

		if( !this->asInt32( node, "IntimacyOwnerDie", die ) ){
			return 0;
		}

		pet->die = die;
	}else{
		if( !exists ){
			pet->die = -20;
		}
	}

	if( this->nodeExists( node, "CaptureRate" ) ){
		uint16 rate;

		if( !this->asUInt16( node, "CaptureRate", rate ) ){
			return 0;
		}

		if( rate > 10000 ){
			this->invalidWarning( node["CaptureRate"], "CaptureRate %hu exceeds maximum of 10000. Capping...\n", rate );
			rate = 10000;
		}

		pet->capture = rate;
	}

	if( this->nodeExists( node, "SpecialPerformance" ) ){
		bool performance;

		if( !this->asBool( node, "SpecialPerformance", performance ) ){
			return 0;
		}

		pet->s_perfor = performance;
	}else{
		if( !exists ){
			pet->s_perfor = true;
		}
	}

	if( this->nodeExists( node, "AttackRate" ) ){
		uint16 rate;

		if( !this->asUInt16( node, "AttackRate", rate ) ){
			return 0;
		}

		if( rate > 10000 ){
			this->invalidWarning( node["AttackRate"], "AttackRate %hu exceeds maximum of 10000. Capping...\n", rate );
			rate = 10000;
		}

		pet->attack_rate = rate;
	}else{
		if( !exists ){
			pet->attack_rate = 10001; // unreachable
		}
	}

	if( this->nodeExists( node, "RetaliateRate" ) ){
		uint16 rate;

		if( !this->asUInt16( node, "RetaliateRate", rate ) ){
			return 0;
		}

		if( rate > 10000 ){
			this->invalidWarning( node["RetaliateRate"], "RetaliateRate %hu exceeds maximum of 10000. Capping...\n", rate );
			rate = 10000;
		}

		pet->defence_attack_rate = rate;
	}else{
		if( !exists ){
			pet->defence_attack_rate = 10001; // unreachable
		}
	}

	if( this->nodeExists( node, "ChangeTargetRate" ) ){
		uint16 rate;

		if( !this->asUInt16( node, "ChangeTargetRate", rate ) ){
			return 0;
		}

		if( rate > 10000 ){
			this->invalidWarning( node["ChangeTargetRate"], "ChangeTargetRate %hu exceeds maximum of 10000. Capping...\n", rate );
			rate = 10000;
		}

		pet->change_target_rate = rate;
	}else{
		if( !exists ){
			pet->change_target_rate = 10001; // unreachable
		}
	}

	if( this->nodeExists( node, "AllowAutoFeed" ) ){
		bool allow;

		if( !this->asBool( node, "AllowAutoFeed", allow ) ){
			return 0;
		}

		pet->allow_autofeed = allow;
	}else{
		if( !exists ){
			pet->allow_autofeed = false;
		}
	}

	if( this->nodeExists( node, "Script" ) ){
		std::string script;

		if( !this->asString( node, "Script", script ) ){
			return 0;
		}

		pet->pet_bonus_script = parse_script( script.c_str(), this->getCurrentFile().c_str(), node["Script"].Mark().line + 1, SCRIPT_IGNORE_EXTERNAL_BRACKETS );
	}else{
		if( !exists ){
			pet->pet_bonus_script = nullptr;
		}
	}

	if( this->nodeExists( node, "SupportScript" ) ){
		std::string script;

		if( !this->asString( node, "SupportScript", script ) ){
			return 0;
		}

		pet->pet_support_script = parse_script( script.c_str(), this->getCurrentFile().c_str(), node["SupportScript"].Mark().line + 1, SCRIPT_IGNORE_EXTERNAL_BRACKETS );
	}else{
		if( !exists ){
			pet->pet_support_script = nullptr;
		}
	}

	if( this->nodeExists( node, "Evolution" ) ){
		for( const YAML::Node& evolutionNode : node["Evolution"] ){
			std::string target_name;

			if( !this->asString( evolutionNode, "Target", target_name ) ){
				return 0;
			}

			struct mob_db* mob = mobdb_search_aegisname( target_name.c_str() );

			if( mob == nullptr ){
				this->invalidWarning( evolutionNode["Target"], "Evolution target %s does not exist.\n", target_name.c_str() );
				return 0;
			}

			uint16 targetId = mob->vd.class_;

			if( !this->nodeExists( evolutionNode, "ItemRequirements" ) ){
				this->invalidWarning( evolutionNode, "Missing required node \"ItemRequirements\".\n" );
				return 0;
			}

			std::shared_ptr<s_pet_evo_data> evolution = util::umap_find( pet->evolution_data, targetId );
			bool evolution_exists = evolution != nullptr;

			if( !evolution_exists ){
				evolution = std::make_shared<s_pet_evo_data>();
				evolution->target_mob_id = targetId;
			}

			for( const YAML::Node& requirementNode : evolutionNode["ItemRequirements"] ){
				std::string item_name;

				if( !this->asString( requirementNode, "Item", item_name ) ){
					return 0;
				}

				struct item_data* item = itemdb_search_aegisname( item_name.c_str() );

				if( item == nullptr ){
					this->invalidWarning( requirementNode["Item"], "Evolution requirement item %s does not exist.\n", item_name.c_str() );
					return 0;
				}

				uint32 amount;

				if( !this->asUInt32( requirementNode, "Amount", amount ) ){
					return 0;
				}

				if( amount > MAX_AMOUNT ){
					this->invalidWarning( requirementNode["Amount"], "Amount %u exceeds the maximum of %d.\n", amount, MAX_AMOUNT );
					return 0;
				}

				evolution->requirements[item->nameid] = amount;
			}

			if( !evolution_exists ){
				pet->evolution_data[targetId] = evolution;
			}
		}
	}

	if( !exists ){
		this->put( mob_id, pet );
	}

	return 1;
}

/**
 * Clear pet support bonuses from memory
 * @param sd: Pet owner
 */
void pet_clear_support_bonuses(struct map_session_data *sd) {
	nullpo_retv(sd);

	if (!sd->pd)
		return;

	struct pet_data *pd = sd->pd;

	if (pd->a_skill) {
		aFree(pd->a_skill);
		pd->a_skill = NULL;
	}

	if (pd->s_skill) {
		if (pd->s_skill->timer != INVALID_TIMER) {
			if (pd->s_skill->id)
				delete_timer(pd->s_skill->timer, pet_skill_support_timer);
			else
				delete_timer(pd->s_skill->timer, pet_heal_timer);
		}

		aFree(pd->s_skill);
		pd->s_skill = NULL;
	}

	if (pd->recovery) {
		if (pd->recovery->timer != INVALID_TIMER)
			delete_timer(pd->recovery->timer, pet_recovery_timer);

		aFree(pd->recovery);
		pd->recovery = NULL;
	}

	if (pd->bonus) {
		if (pd->bonus->timer != INVALID_TIMER)
			delete_timer(pd->bonus->timer, pet_skill_bonus_timer);

		aFree(pd->bonus);
		pd->bonus = NULL;
	}

	if (pd->loot) {
		pet_lootitem_drop(pd, sd);

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

		aFree(pd->loot);
		pd->loot = NULL;
	}
}

/**
 * Apply the proper data on pet owners and pets during pet_db reload.
 * @param sd: Pet owner
 * @param args: va_list of arguments
 * @return 0
 */
static int pet_reload_sub( struct map_session_data *sd, va_list args ){
	if( sd->pd == nullptr ){
		return 0;
	}

	struct pet_data *pd = sd->pd;
	std::shared_ptr<s_pet_db> pet_db_ptr = pd->get_pet_db();

	if( pet_db_ptr == nullptr ){
		return 0;
	}

	// Clear pet bonuses
	pet_clear_support_bonuses(sd);

	// Relink the pet to the new database entry
	pd->db = mob_db( pet_db_ptr->class_ );

	if( battle_config.pet_status_support ){
		run_script( pet_db_ptr->pet_support_script, 0, sd->bl.id, 0 );
	}

	// Recalculate the player status based on the new data
	status_calc_pc( sd, SCO_NONE );

	// Recalculate the pet status based on the new data
	status_calc_pet( pd, SCO_NONE );

	return 0;
}

bool PetDatabase::reload(){
	if( !TypesafeYamlDatabase::reload() ){
		return false;
	}

	map_foreachpc( pet_reload_sub );
	return true;
}

PetDatabase pet_db;

static struct eri *item_drop_ers; //For loot drops delay structures.
static struct eri *item_drop_list_ers;

/**
 * Get the value of the pet's hunger.
 * @param pd : pet requesting
 * @return Pet's hunger value
 */
int pet_hungry_val(struct pet_data *pd)
{
	nullpo_ret(pd);

	if(pd->pet.hungry > PET_HUNGRY_SATISFIED)
		return 4;
	else if(pd->pet.hungry > PET_HUNGRY_NEUTRAL)
		return 3;
	else if(pd->pet.hungry > PET_HUNGRY_HUNGRY)
		return 2;
	else if(pd->pet.hungry > PET_HUNGRY_VERY_HUNGRY)
		return 1;
	else
		return 0;
}

/**
 * Set the value of the pet's intimacy.
 * @param pd : pet requesting
 * @param value : new intimacy value
 */
void pet_set_intimate(struct pet_data *pd, int value)
{
	nullpo_retv(pd);

	pd->pet.intimate = min(value, PET_INTIMATE_MAX);

	struct map_session_data *sd = pd->master;

	if(pd->pet.intimate <= PET_INTIMATE_NONE)
		pc_delitem(sd, pet_egg_search(sd, pd->pet.pet_id), 1, 0, 0, LOG_TYPE_OTHER);

	if (sd)
		status_calc_pc(sd,SCO_NONE);
}

/**
 * Create a pet egg.
 * @param sd : player requesting
 * @param item_id : item ID of tamer
 * @return true:success, false:failure
 */
bool pet_create_egg(struct map_session_data *sd, unsigned short item_id)
{
	std::shared_ptr<s_pet_db> pet = pet_db_search(item_id, PET_EGG);

	if (!pet)
		return false; //No pet egg here.

	struct mob_db* mdb = mob_db(pet->class_);

	if( mdb == nullptr ){
		return false;
	}

	if (!pc_inventoryblank(sd))
		return false; // Inventory full

	sd->catch_target_class = pet->class_;
	intif_create_pet(sd->status.account_id, sd->status.char_id, pet->class_, mdb->lv, pet->EggID, 0, pet->intimate, 100, 0, 1, mdb->jname);

	return true;
}

/**
 * Make pet drop target.
 * @param pd : pet requesting
 */
void pet_unlocktarget(struct pet_data *pd)
{
	nullpo_retv(pd);

	pd->target_id = 0;
	pet_stop_attack(pd);
	pet_stop_walking(pd,1);
}

/**
 * Make pet use attack skill.
 * @param pd : pet requesting
 * @param target_id : ID of target
 * @author [Skotlex]
 */
int pet_attackskill(struct pet_data *pd, int target_id)
{
	if (!battle_config.pet_status_support || !pd->a_skill ||
		(battle_config.pet_equip_required && !pd->pet.equip))
		return 0;

	if (DIFF_TICK(pd->ud.canact_tick, gettick()) > 0)
		return 0;

	if (rnd()%100 < (pd->a_skill->rate +pd->pet.intimate*pd->a_skill->bonusrate/1000)) { // Skotlex: Use pet's skill
		int inf;
		struct block_list *bl;

		bl = map_id2bl(target_id);

		if(bl == NULL || pd->bl.m != bl->m || bl->prev == NULL || status_isdead(bl) ||
			!check_distance_bl(&pd->bl, bl, pd->db->range3))
			return 0;

		inf = skill_get_inf(pd->a_skill->id);

		if (inf & INF_GROUND_SKILL)
			unit_skilluse_pos(&pd->bl, bl->x, bl->y, pd->a_skill->id, pd->a_skill->lv);
		else	//Offensive self skill? Could be stuff like GX.
			unit_skilluse_id(&pd->bl,(inf&INF_SELF_SKILL?pd->bl.id:bl->id), pd->a_skill->id, pd->a_skill->lv);

		return 1; //Skill invoked.
	}

	return 0;
}

/**
 * Make sure pet can attack from given config values.
 * @param pd: pet data
 * @param bl: target
 * @param type: pet's attack rate type
 * @return 0
 */
int pet_target_check(struct pet_data *pd,struct block_list *bl,int type)
{
	nullpo_ret(pd);

	Assert((pd->master == 0) || (pd->master->pd == pd));


	if(bl == NULL || bl->type != BL_MOB || bl->prev == NULL ||
		pd->pet.intimate < battle_config.pet_support_min_friendly ||
		pd->pet.hungry <= PET_HUNGRY_NONE ||
		pd->pet.class_ == status_get_class(bl))
		return 0;

	if(pd->bl.m != bl->m ||
		!check_distance_bl(&pd->bl, bl, pd->db->range2))
		return 0;

	if (!battle_config.pet_master_dead && pc_isdead(pd->master)) {
		pet_unlocktarget(pd);
		return 0;
	}

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

	std::shared_ptr<s_pet_db> pet_db_ptr = pd->get_pet_db();
	int rate;

	if(!type) {
		rate = pet_db_ptr->attack_rate;
		rate = rate * pd->rate_fix / 1000;

		if(pet_db_ptr->attack_rate > 0 && rate <= 0)
			rate = 1;
	} else {
		rate = pet_db_ptr->defence_attack_rate;
		rate = rate * pd->rate_fix / 1000;

		if(pet_db_ptr->defence_attack_rate > 0 && rate <= 0)
			rate = 1;
	}

	if(rnd()%10000 < rate) {
		if(pd->target_id == 0 || rnd()%10000 < pet_db_ptr->change_target_rate)
			pd->target_id = bl->id;
	}

	return 0;
}

/**
 * Status change check for pets.
 * @param sd : player requesting
 * @param type : recovery type
 * @author [Skotlex]
 */
int pet_sc_check(struct map_session_data *sd, int type)
{
	struct pet_data *pd;

	nullpo_ret(sd);

	pd = sd->pd;

	if( pd == NULL
	||  (battle_config.pet_equip_required && pd->pet.equip == 0)
	||  pd->recovery == NULL
	||  pd->recovery->timer != INVALID_TIMER
	||  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;
}

/**
 * Update pet's hungry value and timer and adjust intimacy based on hunger.
 * @param tid : current timer value
 * @param tick : how often to update
 * @param id : ID of pet owner
 * @return 0
 */
static TIMER_FUNC(pet_hungry){
	struct map_session_data *sd;
	struct pet_data *pd;
	int interval;

	sd = map_id2sd(id);

	if(!sd)
		return 1;

	if(!sd->status.pet_id || !sd->pd)
		return 1;

	pd = sd->pd;

	if(pd->pet_hungry_timer != tid) {
		ShowError("pet_hungry_timer %d != %d\n",pd->pet_hungry_timer,tid);
		return 0;
	}

	pd->pet_hungry_timer = INVALID_TIMER;

	if (pd->pet.intimate <= PET_INTIMATE_NONE)
		return 1; //You lost the pet already, the rest is irrelevant.

	std::shared_ptr<s_pet_db> pet_db_ptr = pd->get_pet_db();

	if (battle_config.pet_hungry_delay_rate != 100)
		interval = (pet_db_ptr->hungry_delay*battle_config.pet_hungry_delay_rate) / 100;
	else
		interval = pet_db_ptr->hungry_delay;

	pd->pet.hungry -= pet_db_ptr->fullness;

	if( pd->pet.hungry < PET_HUNGRY_NONE ) {
		pet_stop_attack(pd);
		pd->pet.hungry = PET_HUNGRY_NONE;
		pet_set_intimate(pd, pd->pet.intimate + pet_db_ptr->hungry_intimacy_dec);

		if( pd->pet.intimate <= PET_INTIMATE_NONE ) {
			pet_set_intimate(pd, PET_INTIMATE_NONE);
			pd->status.speed = pd->get_pet_walk_speed();
		}

		status_calc_pet(pd,SCO_NONE);
		clif_send_petdata(sd,pd,1,pd->pet.intimate);
		interval = 20000; // While starving, it's every 20 seconds
	}

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

	if( battle_config.feature_pet_autofeed && pd->pet.autofeed && pd->pet.hungry <= battle_config.feature_pet_autofeed_rate ){
		pet_food( sd, pd );
	}

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

	return 0;
}

/**
 * Search pet database for given value and type.
 * @param key : value to search for
 * @param type : pet type to search for (Catch, Egg, Equip, Food)
 * @return Pet DB pointer on success, NULL on failure
 */
std::shared_ptr<s_pet_db> pet_db_search( int key, enum e_pet_itemtype type ){
	for( auto &pair : pet_db ){
		std::shared_ptr<s_pet_db> pet = pair.second;

		switch(type) {
			case PET_CATCH: if(pet->itemID == key) return pet; break;
			case PET_EGG:   if(pet->EggID  == key) return pet; break;
			case PET_EQUIP: if(pet->AcceID == key) return pet; break;
			case PET_FOOD:  if(pet->FoodID == key) return pet; break;
			default:
				ShowError( "pet_db_search: Unsupported type %d\n", type );
				return nullptr;
		}
	}

	return nullptr;
}

/**
 * Remove hunger timer from pet.
 * @param pd : pet requesting
 * @return 1
 */
int pet_hungry_timer_delete(struct pet_data *pd)
{
	nullpo_ret(pd);

	if(pd->pet_hungry_timer != INVALID_TIMER) {
		delete_timer(pd->pet_hungry_timer,pet_hungry);
		pd->pet_hungry_timer = INVALID_TIMER;
	}

	return 1;
}

/**
 * Make a pet perform/dance.
 * @param sd : player requesting
 * @param pd : pet requesting
 * @return 1
 */
static int pet_performance(struct map_session_data *sd, struct pet_data *pd)
{
	int val;

	if (pd->pet.intimate > PET_INTIMATE_LOYAL)
		val = pd->get_pet_db()->s_perfor ? 4 : 3;
	else if(pd->pet.intimate > PET_INTIMATE_CORDIAL) //TODO: this is way too high
		val = 2;
	else
		val = 1;

	pet_stop_walking(pd,2000<<8);
	clif_pet_performance(pd, rnd()%val + 1);
	pet_lootitem_drop(pd,NULL);

	return 1;
}

/**
 * Return a pet to it's egg.
 * @param sd : player requesting
 * @param pd : pet requesting
 * @return true if everything went well, false if the egg is not found in the inventory.
 */
bool pet_return_egg( struct map_session_data *sd, struct pet_data *pd ){
	pet_lootitem_drop(pd,sd);

	int i = pet_egg_search( sd, pd->pet.pet_id );

	if( i == -1 ){
		return false;
 	}
 
	sd->inventory.u.items_inventory[i].attribute = 0;
	sd->inventory.dirty = true;
	pd->pet.incubate = 1;
#if PACKETVER >= 20180704
	clif_inventorylist(sd);
	clif_send_petdata(sd, pd, 6, 0);
#endif
	unit_free(&pd->bl,CLR_OUTSIGHT);

	status_calc_pc(sd,SCO_NONE);
	sd->status.pet_id = 0;

	return true;
}

/**
 * Load initial pet data when hatching/creating.
 * @param sd : player requesting
 * @param pet : pet requesting
 * @return True on success or false otherwise
 */
bool pet_data_init(struct map_session_data *sd, struct s_pet *pet)
{
	struct pet_data *pd;
	int interval = 0;

	nullpo_retr(false, sd);

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

	if(sd->status.account_id != pet->account_id || sd->status.char_id != pet->char_id) {
		sd->status.pet_id = 0;

		return false;
	}

	if (sd->status.pet_id != pet->pet_id) {
		if (sd->status.pet_id) {
			//Wrong pet?? Set incubate to no and send it back for saving.
			pet->incubate = 1;
			intif_save_petdata(sd->status.account_id,pet);
			sd->status.pet_id = 0;

			return false;
		}

		//The pet_id value was lost? odd... restore it.
		sd->status.pet_id = pet->pet_id;
	}

	std::shared_ptr<s_pet_db> pet_db_ptr = pet_db.find(pet->class_);

	if( pet_db_ptr == nullptr ){
		sd->status.pet_id = 0;

		return false;
	}

	sd->pd = pd = (struct pet_data *)aCalloc(1,sizeof(struct pet_data));
	pd->bl.type = BL_PET;
	pd->bl.id = npc_get_new_npc_id();

	pd->master = sd;
	pd->db = mob_db(pet->class_);
	memcpy(&pd->pet, pet, sizeof(struct s_pet));
	status_set_viewdata(&pd->bl, pet->class_);
	unit_dataset(&pd->bl);
	pd->ud.dir = sd->ud.dir;

	pd->bl.m = sd->bl.m;
	pd->bl.x = sd->bl.x;
	pd->bl.y = sd->bl.y;
	unit_calc_pos(&pd->bl, sd->bl.x, sd->bl.y, sd->ud.dir);
	pd->bl.x = pd->ud.to_x;
	pd->bl.y = pd->ud.to_y;

	map_addiddb(&pd->bl);
	status_calc_pet(pd,SCO_FIRST);

	pd->last_thinktime = gettick();
	pd->state.skillbonus = 0;

	if( pet_db_ptr != nullptr ) {
		if( battle_config.pet_status_support )
			run_script(pet_db_ptr->pet_support_script,0,sd->bl.id,0);

		if( pet_db_ptr->pet_bonus_script )
			status_calc_pc(sd,SCO_NONE);

		if( battle_config.pet_hungry_delay_rate != 100 )
			interval = pet_db_ptr->hungry_delay * battle_config.pet_hungry_delay_rate / 100;
		else
			interval = pet_db_ptr->hungry_delay;
		if (pd->pet.hungry <= PET_HUNGRY_NONE)
			interval = 20000; // While starving, it's every 20 seconds
	}

	interval = max(interval, 1);

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

	if( !pet->rename_flag ){
		safestrncpy( sd->pd->pet.name, pd->db->jname, NAME_LENGTH );
	}

	return true;
}

/**
 * Begin hatching a pet.
 * @param sd : player requesting
 * @param pet : pet requesting
 */
int pet_birth_process(struct map_session_data *sd, struct s_pet *pet)
{
	nullpo_retr(1, sd);

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

	if(sd->status.pet_id && pet->incubate == 1) {
		sd->status.pet_id = 0;

		return 1;
	}

	pet->incubate = 0;
	pet->account_id = sd->status.account_id;
	pet->char_id = sd->status.char_id;
	sd->status.pet_id = pet->pet_id;

	if(!pet_data_init(sd, pet)) {
		return 1;
	}

	intif_save_petdata(sd->status.account_id,pet);
	
	if (save_settings&CHARSAVE_PET)
		chrif_save(sd, CSAVE_INVENTORY); //is it REALLY Needed to save the char for hatching a pet? [Skotlex]

	if(sd->bl.prev != NULL) {
		if(map_addblock(&sd->pd->bl))
			return 1;

		clif_spawn(&sd->pd->bl);
		clif_send_petdata(sd,sd->pd, 0,0);
		clif_send_petdata(sd,sd->pd, 5,battle_config.pet_hair_style);
#if PACKETVER >= 20180704
		clif_send_petdata(sd, sd->pd, 6, 1);
#endif
		clif_pet_equip_area(sd->pd);
		clif_send_petstatus(sd);
	}

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

	return 0;
}

/**
 * Finalize hatching process and load pet to client.
 * @param account_id : account ID of owner
 * @param p : pet requesting
 * @param flag : 1:stop loading of pet
 * @return 0:success, 1:failure
 */
int pet_recv_petdata(uint32 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;
	}

	if(p->incubate == 1) {
		int i = pet_egg_search(sd, p->pet_id);

		if(i == -1) {
			ShowError("pet_recv_petdata: Hatching pet (%d:%s) aborted, couldn't find egg in inventory!\n",p->pet_id, p->name);
			sd->status.pet_id = 0;

			return 1;
		}

		// Hide egg from inventory.
		// Set pet egg to broken, before the inventory gets saved
		sd->inventory.u.items_inventory[i].attribute = 1;

		// Hatch the pet
		pet_birth_process( sd, p );
	} else {
		pet_data_init(sd,p);

		if(sd->pd && sd->bl.prev != NULL) {
			if(map_addblock(&sd->pd->bl))
				return 1;

			clif_spawn(&sd->pd->bl);
			clif_send_petdata(sd,sd->pd,0,0);
			clif_send_petdata(sd,sd->pd,5,battle_config.pet_hair_style);
			clif_pet_equip_area(sd->pd);
			clif_send_petstatus(sd);
		}
	}

	return 0;
}

/**
 * Selected pet egg to hatch.
 * @param sd : player requesting
 * @param egg_index : egg index value in inventory
 * @return 0
 */
int pet_select_egg(struct map_session_data *sd,short egg_index)
{
	nullpo_ret(sd);

	if(egg_index < 0 || egg_index >= MAX_INVENTORY)
		return 0; //Forged packet!

	if(sd->trade_partner)	//The player have trade in progress.
		return 0;

	std::shared_ptr<s_pet_db> pet = pet_db_search(sd->inventory.u.items_inventory[egg_index].nameid, PET_EGG);
	if (!pet) {
		ShowError("pet does not exist, egg id %d\n", sd->inventory.u.items_inventory[egg_index].nameid);
		return 0;
	}

	if(sd->inventory.u.items_inventory[egg_index].card[0] == CARD0_PET)
		intif_request_petdata(sd->status.account_id, sd->status.char_id, MakeDWord(sd->inventory.u.items_inventory[egg_index].card[1], sd->inventory.u.items_inventory[egg_index].card[2]) );
	else
		ShowError("wrong egg item inventory %d\n",egg_index);

	return 0;
}

/**
 * Display the success/failure roulette wheel when trying to catch monster.
 * @param sd : player requesting
 * @param target_class : monster ID of pet to catch
 * @return 0
 */
int pet_catch_process1(struct map_session_data *sd,int target_class)
{
	nullpo_ret(sd);

	sd->catch_target_class = target_class;
	clif_catch_process(sd);

	return 0;
}

/**
 * Begin the actual catching process of a monster.
 * @param sd : player requesting
 * @param target_id : monster ID of pet to catch
 * @return 0:success, 1:failure
 */
int pet_catch_process2(struct map_session_data* sd, int target_id)
{
	struct mob_data* md;
	int pet_catch_rate = 0;

	nullpo_retr(1, sd);

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

	if(!md || md->bl.type != BL_MOB || md->bl.prev == NULL) { // Invalid inputs/state, abort capture.
		clif_pet_roulette(sd,0);
		sd->catch_target_class = PET_CATCH_FAIL;
		sd->itemid = sd->itemindex = -1;
		return 1;
	}

	//FIXME: delete taming item here, if this was an item-invoked capture and the item was flagged as delay-consume [ultramage]

	std::shared_ptr<s_pet_db> pet = pet_db.find(md->mob_id);

	// If the target is a valid pet, we have a few exceptions
	if( pet ){
		//catch_target_class == PET_CATCH_UNIVERSAL is used for universal lures (except bosses for now). [Skotlex]
		if (sd->catch_target_class == PET_CATCH_UNIVERSAL && !status_has_mode(&md->status,MD_STATUS_IMMUNE)){
			sd->catch_target_class = md->mob_id;
		//catch_target_class == PET_CATCH_UNIVERSAL_ITEM is used for catching any monster required the lure item used
		}else if (sd->catch_target_class == PET_CATCH_UNIVERSAL_ITEM && sd->itemid == pet->itemID){
			sd->catch_target_class = md->mob_id;
		}
	}

	if(sd->catch_target_class != md->mob_id || !pet) {
		clif_emotion(&md->bl, ET_ANGER);	//mob will do /ag if wrong lure is used on them.
		clif_pet_roulette(sd,0);
		sd->catch_target_class = PET_CATCH_FAIL;

		return 1;
	}

	pet_catch_rate = (pet->capture + (sd->status.base_level - md->level)*30 + sd->battle_status.luk*20)*(200 - get_percentage(md->status.hp, md->status.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(rnd()%10000 < pet_catch_rate) {
		achievement_update_objective(sd, AG_TAMING, 1, md->mob_id);
		unit_remove_map(&md->bl,CLR_OUTSIGHT);
		status_kill(&md->bl);
		clif_pet_roulette(sd,1);

		struct mob_db *mdb = mob_db(pet->class_);

		intif_create_pet(sd->status.account_id, sd->status.char_id, pet->class_, mdb->lv, pet->EggID, 0, pet->intimate, 100, 0, 1, mdb->jname);
	} else {
		clif_pet_roulette(sd,0);
		sd->catch_target_class = PET_CATCH_FAIL;
	}

	return 0;
}

/**
 * Is invoked _only_ when a new pet has been created is a product of packet 0x3880
 * see mapif_pet_created@int_pet.cpp for more information.
 * Handles new pet data from inter-server and prepares item information to add pet egg.
 * @param account_id : account ID of owner
 * @param pet_class : class of pet
 * @param pet_id : pet ID otherwise means failure
 * @return true : success, false : failure
 **/
bool pet_get_egg(uint32 account_id, short pet_class, int pet_id ) {
	struct map_session_data *sd;
	struct item tmp_item;
	int ret = 0;

	if( pet_id == 0 || pet_class == 0 )
		return false;

	sd = map_id2sd(account_id);

	if( sd == NULL )
		return false;

	// i = pet_search_petDB_index(sd->catch_target_class,PET_CLASS);
	// issue: 8150
	// Before this change in cases where more than one pet egg were requested in a short
	// period of time it wasn't possible to know which kind of egg was being requested after
	// the first request. [Panikon]
	std::shared_ptr<s_pet_db> pet = pet_db.find(pet_class);
	sd->catch_target_class = PET_CATCH_FAIL;

	if(!pet) {
		intif_delete_petdata(pet_id);

		return false;
	}

	memset(&tmp_item,0,sizeof(tmp_item));
	tmp_item.nameid = pet->EggID;
	tmp_item.identify = 1;
	tmp_item.card[0] = CARD0_PET;
	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,LOG_TYPE_PICKDROP_PLAYER))) {
		clif_additem(sd,0,0,ret);
		map_addflooritem(&tmp_item,1,sd->bl.m,sd->bl.x,sd->bl.y,0,0,0,0,0);
	}

	return true;
}

static int pet_unequipitem(struct map_session_data *sd, struct pet_data *pd);
static int pet_ai_sub_hard_lootsearch(struct block_list *bl,va_list ap);

/**
 * Pet menu options.
 * @param sd : player requesting
 * @param menunum : menu option chosen
 * @return 0:success, 1:failure
 */
int pet_menu(struct map_session_data *sd,int menunum)
{
	nullpo_ret(sd);

	if (sd->pd == NULL)
		return 1;

	//You lost the pet already.
	if(!sd->status.pet_id || sd->pd->pet.intimate <= PET_INTIMATE_NONE || sd->pd->pet.incubate)
		return 1;

	switch(menunum) {
		case 0:
			clif_send_petstatus(sd);
			break;
		case 1:
			pet_food(sd, sd->pd);
			break;
		case 2:
			pet_performance(sd, sd->pd);
			break;
		case 3:
			pet_return_egg(sd, sd->pd);
			break;
		case 4:
			pet_unequipitem(sd, sd->pd);
			break;
	}

	return 0;
}

/**
 * Apply pet's new name.
 * @param sd : player requesting
 * @param name : new pet name
 * @return 0:success, 1:failure
 */
int pet_change_name(struct map_session_data *sd,char *name)
{
	int i;
	struct pet_data *pd;

	nullpo_retr(1, sd);

	pd = sd->pd;

	if((pd == NULL) || (pd->pet.rename_flag == 1 && !battle_config.pet_rename))
		return 1;

	for(i = 0; i < NAME_LENGTH && name[i]; i++) {
		if( !(name[i]&0xe0) || name[i]==0x7f)
			return 1;
	}

	return intif_rename_pet(sd, name);
}

/**
 * Request to change pet's name.
 * @param sd : player requesting
 * @param name : new pet name
 * @param flag : 1:cannot use this name
 * @return 1:success, 0:failure
 */
int pet_change_name_ack(struct map_session_data *sd, char* name, int flag)
{
	struct pet_data *pd = sd->pd;

	if (!pd)
		return 0;

	normalize_name(name," ");//bugreport:3032

	if ( !flag || !strlen(name) ) {
		clif_displaymessage(sd->fd, msg_txt(sd,280)); // You cannot use this name for your pet.
		clif_send_petstatus(sd); //Send status so client knows pet name change got rejected.
		return 0;
	}

	memcpy(pd->pet.name, name, NAME_LENGTH);
	clif_name_area(&pd->bl);
	pd->pet.rename_flag = 1;
	clif_pet_equip_area(pd);
	clif_send_petstatus(sd);

	return 1;
}

/**
 * Apply a pet's equipment.
 * @param sd : player requesting
 * @param index : index value of item
 * @return 0:success, 1:failure
 */
int pet_equipitem(struct map_session_data *sd,int index)
{
	struct pet_data *pd;
	unsigned short nameid;

	nullpo_retr(1, sd);

	pd = sd->pd;

	if (!pd)
		return 1;

	std::shared_ptr<s_pet_db> pet_db_ptr = pd->get_pet_db();

	if( pet_db_ptr == nullptr ){
		return 1;
	}

	nameid = sd->inventory.u.items_inventory[index].nameid;

	if(pet_db_ptr->AcceID == 0 || nameid != pet_db_ptr->AcceID || pd->pet.equip != 0) {
		clif_equipitemack(sd,0,0,ITEM_EQUIP_ACK_FAIL);
		return 1;
	}

	pc_delitem(sd,index,1,0,0,LOG_TYPE_OTHER);
	pd->pet.equip = nameid;
	status_set_viewdata(&pd->bl, pd->pet.class_); //Updates view_data.
	clif_pet_equip_area(pd);

	if (battle_config.pet_equip_required) { // Skotlex: start support timers if need
		t_tick tick = gettick();

		if (pd->s_skill && pd->s_skill->timer == INVALID_TIMER) {
			if (pd->s_skill->id)
				pd->s_skill->timer=add_timer(tick+pd->s_skill->delay*1000, pet_skill_support_timer, sd->bl.id, 0);
			else
				pd->s_skill->timer=add_timer(tick+pd->s_skill->delay*1000, pet_heal_timer, sd->bl.id, 0);
		}

		if (pd->bonus && pd->bonus->timer == INVALID_TIMER)
			pd->bonus->timer=add_timer(tick+pd->bonus->delay*1000, pet_skill_bonus_timer, sd->bl.id, 0);
	}

	return 0;
}

/**
 * Remove a pet's equipment.
 * @param sd : player requesting
 * @param pd : pet requesting
 * @return 0:success, 1:failure
 */
static int pet_unequipitem(struct map_session_data *sd, struct pet_data *pd)
{
	struct item tmp_item;
	unsigned short nameid;
	unsigned char flag = 0;

	if(pd->pet.equip == 0)
		return 1;

	nameid = pd->pet.equip;
	pd->pet.equip = 0;
	status_set_viewdata(&pd->bl, pd->pet.class_);
	clif_pet_equip_area(pd);
	memset(&tmp_item,0,sizeof(tmp_item));
	tmp_item.nameid = nameid;
	tmp_item.identify = 1;

	if((flag = pc_additem(sd,&tmp_item,1,LOG_TYPE_OTHER))) {
		clif_additem(sd,0,0,flag);
		map_addflooritem(&tmp_item,1,sd->bl.m,sd->bl.x,sd->bl.y,0,0,0,0,0);
	}

	if( battle_config.pet_equip_required ) { // Skotlex: halt support timers if needed
		if( pd->state.skillbonus ) {
			pd->state.skillbonus = 0;
			status_calc_pc(sd,SCO_NONE);
		}

		if( pd->s_skill && pd->s_skill->timer != INVALID_TIMER ) {
			if( pd->s_skill->id )
				delete_timer(pd->s_skill->timer, pet_skill_support_timer);
			else
				delete_timer(pd->s_skill->timer, pet_heal_timer);
			pd->s_skill->timer = INVALID_TIMER;
		}

		if( pd->bonus && pd->bonus->timer != INVALID_TIMER ) {
			delete_timer(pd->bonus->timer, pet_skill_bonus_timer);
			pd->bonus->timer = INVALID_TIMER;
		}
	}

	return 0;
}

/**
 * Feed a pet and update intimacy.
 * @param sd : playerr requesting
 * @param pd : pet requesting
 * @return 0:success, 1:failure
 */
int pet_food(struct map_session_data *sd, struct pet_data *pd)
{
	nullpo_retr(1, sd);
	nullpo_retr(1, pd);

	std::shared_ptr<s_pet_db> pet_db_ptr = pd->get_pet_db();
	int i,k;

	k = pet_db_ptr->FoodID;
	i = pc_search_inventory(sd,k);

	if( i < 0 ) {
		clif_pet_food(sd,k,0);

		return 1;
	}

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

	if (pd->pet.hungry > PET_HUNGRY_SATISFIED) {
		pet_set_intimate(pd, pd->pet.intimate + pet_db_ptr->r_full);
		if (pd->pet.intimate <= PET_INTIMATE_NONE) {
			pet_set_intimate(pd, PET_INTIMATE_NONE);
			pet_stop_attack(pd);
			pd->status.speed = pd->get_pet_walk_speed();
		}
	}
	else {
		if( battle_config.pet_friendly_rate != 100 )
			k = (pet_db_ptr->r_hungry * battle_config.pet_friendly_rate) / 100;
		else
			k = pet_db_ptr->r_hungry;

		if( pd->pet.hungry > PET_HUNGRY_NEUTRAL) {
			k >>= 1;
			k = max(k, 1);
		}

		pet_set_intimate(pd, pd->pet.intimate + k);
	}

	status_calc_pet(pd,SCO_NONE);
	pd->pet.hungry = min(pd->pet.hungry + pet_db_ptr->hunger_increase, PET_HUNGRY_STUFFED);

	if( pd->pet.hungry > 100 )
		pd->pet.hungry = 100;

	log_feeding(sd, LOG_FEED_PET, pet_db_ptr->FoodID);

	clif_send_petdata(sd,pd,2,pd->pet.hungry);
	clif_send_petdata(sd,pd,1,pd->pet.intimate);
	clif_pet_food(sd, pet_db_ptr->FoodID,1);

	return 0;
}

/**
 * Let a pet walk around and update walk timer.
 * @param pd : pet requesting
 * @param tick : last walk time
 * @return 1:success, 0:failure
 */
static int pet_randomwalk(struct pet_data *pd,t_tick tick)
{
	nullpo_ret(pd);

	Assert((pd->master == 0) || (pd->master->pd == pd));

	if(DIFF_TICK(pd->next_walktime,tick) < 0 && unit_can_move(&pd->bl)) {
		const int retrycount = 20;
		int i, c, d = 12-pd->move_fail_count;

		if(d < 5)
			d = 5;

		for(i = 0; i < retrycount; i++) {
			int r = rnd(), x, y;

			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) && unit_walktoxy(&pd->bl,x,y,0)) {
				pd->move_fail_count = 0;
				break;
			}

			if(i + 1 >= retrycount) {
				pd->move_fail_count++;

				if(pd->move_fail_count > 1000) {
					ShowWarning("Pet can't move. Holding position %d, class = %d\n",pd->bl.id,pd->pet.class_);
					pd->move_fail_count = 0;
					pd->ud.canmove_tick = tick + 60000;

					return 0;
				}
			}
		}

		for(i = c = 0; i < pd->ud.walkpath.path_len; i++) {
			if( direction_diagonal( pd->ud.walkpath.path[i] ) )
				c += pd->status.speed*MOVE_DIAGONAL_COST/MOVE_COST;
			else
				c += pd->status.speed;
		}

		pd->next_walktime = tick+rnd()%1000+MIN_RANDOMWALKTIME+c;

		return 1;
	}

	return 0;
}

/**
 * Pet AI decision making when supporting master.
 * @param pd : pet requesting
 * @param sd : player requesting
 * @param tick : last support time
 * @return 0
 */
static int pet_ai_sub_hard(struct pet_data *pd, struct map_session_data *sd, t_tick tick)
{
	struct block_list *target = NULL;

	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->ud.attacktimer != INVALID_TIMER || pd->ud.skilltimer != INVALID_TIMER || pd->bl.m != sd->bl.m)
		return 0;

	if(pd->ud.walktimer != INVALID_TIMER && pd->ud.walkpath.path_pos <= 2)
		return 0; // No thinking when you just started to walk.

	if(pd->pet.intimate <= PET_INTIMATE_NONE) {
		// Pet should just... well, random walk.
		pet_randomwalk(pd,tick);

		return 0;
	}

	if (!check_distance_bl(&sd->bl, &pd->bl, pd->db->range3)) {
		// Master too far, chase.
		if(pd->target_id)
			pet_unlocktarget(pd);

		if(pd->ud.walktimer != INVALID_TIMER && pd->ud.target == sd->bl.id)
			return 0; // Already walking to him

		if (DIFF_TICK(tick, pd->ud.canmove_tick) < 0)
			return 0; // Can't move yet.

		pd->status.speed = (sd->battle_status.speed>>1);

		if(pd->status.speed == 0)
			pd->status.speed = 1;

		if (!unit_walktobl(&pd->bl, &sd->bl, 3, 0))
			pet_randomwalk(pd,tick);

		return 0;
	}

	// Return speed to normal.
	if (pd->status.speed != pd->get_pet_walk_speed()) {
		if (pd->ud.walktimer != INVALID_TIMER)
			return 0; // Wait until the pet finishes walking back to master.

		pd->status.speed = pd->get_pet_walk_speed();
		pd->ud.state.change_walk_target = pd->ud.state.speed_changed = 1;
	}

	if (pd->target_id) {
		target = map_id2bl(pd->target_id);

		if (!target || pd->bl.m != target->m || status_isdead(target) ||
			!check_distance_bl(&pd->bl, target, pd->db->range3)) {
			target = NULL;
			pet_unlocktarget(pd);
		}
	}

	if(!target && pd->loot && pd->loot->count < pd->loot->max && DIFF_TICK(tick,pd->ud.canact_tick) > 0) {
		// Use half the pet's range of sight.
		map_foreachinallrange(pet_ai_sub_hard_lootsearch, &pd->bl, pd->db->range2 / 2, BL_ITEM, pd, &target);
	}

	if (!target) { // Just walk around.
		if (check_distance_bl(&sd->bl, &pd->bl, 3))
			return 0; // Already next to master.

		if(pd->ud.walktimer != INVALID_TIMER && check_distance_blxy(&sd->bl, pd->ud.to_x,pd->ud.to_y, 3))
			return 0; // Already walking to him

		unit_calc_pos(&pd->bl, sd->bl.x, sd->bl.y, sd->ud.dir);

		if(!unit_walktoxy(&pd->bl,pd->ud.to_x,pd->ud.to_y,0))
			pet_randomwalk(pd,tick);

		return 0;
	}

	if(pd->ud.target == target->id &&
		(pd->ud.attacktimer != INVALID_TIMER || pd->ud.walktimer != INVALID_TIMER))
		return 0; //Target already locked.

	if (target->type != BL_ITEM) { // enemy targeted
		if(!battle_check_range(&pd->bl,target,pd->status.rhw.range)) { // Chase
			if(!unit_walktobl(&pd->bl, target, pd->status.rhw.range, 2))
				pet_unlocktarget(pd); // Unreachable target.

			return 0;
		}

		//Continuous attack.
		unit_attack(&pd->bl, pd->target_id, 1);
	} else { // Item Targeted, attempt loot
		if (!check_distance_bl(&pd->bl, target, 1)) { // Out of range
			if(!unit_walktobl(&pd->bl, target, 1, 1)) // Unreachable target.
				pet_unlocktarget(pd);

			return 0;
		} else {
			struct flooritem_data *fitem = (struct flooritem_data *)target;

			if(pd->loot->count < pd->loot->max) {
				memcpy(&pd->loot->item[pd->loot->count++],&fitem->item,sizeof(pd->loot->item[0]));
				pd->loot->weight += itemdb_weight(fitem->item.nameid)*fitem->item.amount;
				map_clearflooritem(target);
			}

			//Target is unlocked regardless of whether it was picked or not.
			pet_unlocktarget(pd);
		}
	}

	return 0;
}

/**
 * Call pet AI based on targets around.
 * @param sd : player requesting
 * @param ap
 *   tick : last search time
 * @return 0
 */
static int pet_ai_sub_foreachclient(struct map_session_data *sd,va_list ap)
{
	t_tick tick = va_arg(ap,t_tick);

	if(sd->status.pet_id && sd->pd)
		pet_ai_sub_hard(sd->pd,sd,tick);

	return 0;
}

/**
 * Begin searching for targets.
 * @param tid : (unused)
 * @param tick : last search time
 * @param id : (unused)
 * @param data : data to pass to pet_ai_sub_foreachclient
 * @return 0
 */
static TIMER_FUNC(pet_ai_hard){
	map_foreachpc(pet_ai_sub_foreachclient,tick);

	return 0;
}

/**
 * Make a pet search and grab loot if it can.
 * @param bl : item data
 * @param ap
 *   pd : pet requesting
 *   target : item
 * @return 1:success, 0:failure
 */
static int pet_ai_sub_hard_lootsearch(struct block_list *bl,va_list ap)
{
	struct pet_data* pd;
	struct flooritem_data *fitem = (struct flooritem_data *)bl;
	struct block_list **target;
	int sd_charid = 0;

	pd = va_arg(ap,struct pet_data *);
	target = va_arg(ap,struct block_list**);

	sd_charid = fitem->first_get_charid;

	if(sd_charid && sd_charid != pd->master->status.char_id)
		return 0;

	if(unit_can_reach_bl(&pd->bl,bl, pd->db->range2, 1, NULL, NULL) &&
		((*target) == NULL || //New target closer than previous one.
		!check_distance_bl(&pd->bl, *target, distance_bl(&pd->bl, bl)))) {
		(*target) = bl;
		pd->target_id = bl->id;

		return 1;
	}

	return 0;
}

/**
 * Make a pet drop their looted items.
 * @param tid : (unused)
 * @param tick : (unused)
 * @param data : items that were looted
 * @return 0
 */
static TIMER_FUNC(pet_delay_item_drop){
	struct item_drop_list *list;
	struct item_drop *ditem;

	list = (struct item_drop_list *)data;
	ditem = list->item;

	while (ditem) {
		struct item_drop *ditem_prev;

		map_addflooritem(&ditem->item_data,ditem->item_data.amount,
			list->m,list->x,list->y,
			list->first_charid,list->second_charid,list->third_charid,4,0);
		ditem_prev = ditem;
		ditem = ditem->next;
		ers_free(item_drop_ers, ditem_prev);
	}

	ers_free(item_drop_list_ers, list);

	return 0;
}

/**
 * Make a pet drop their looted items.
 * @param pd : pet requesting
 * @param sd : player requesting
 * @return 1:success, 0:failure
 */
int pet_lootitem_drop(struct pet_data *pd,struct map_session_data *sd)
{
	int i;
	struct item_drop_list *dlist;
	struct item_drop *ditem;

	if(!pd || !pd->loot || !pd->loot->count)
		return 0;

	dlist = ers_alloc(item_drop_list_ers, struct item_drop_list);
	dlist->m = pd->bl.m;
	dlist->x = pd->bl.x;
	dlist->y = pd->bl.y;
	dlist->first_charid = 0;
	dlist->second_charid = 0;
	dlist->third_charid = 0;
	dlist->item = NULL;

	for(i = 0; i < pd->loot->count; i++) {
		struct item *it;

		it = &pd->loot->item[i];

		if(sd){
			unsigned char flag = 0;

			if((flag = pc_additem(sd,it,it->amount,LOG_TYPE_PICKDROP_PLAYER))){
				clif_additem(sd,0,0,flag);
				ditem = ers_alloc(item_drop_ers, struct item_drop);
				memcpy(&ditem->item_data, it, sizeof(struct item));
				ditem->next = dlist->item;
				dlist->item = ditem;
			}
		} else {
			ditem = ers_alloc(item_drop_ers, struct item_drop);
			memcpy(&ditem->item_data, it, sizeof(struct item));
			ditem->next = dlist->item;
			dlist->item = ditem;
		}
	}

	//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->ud.canact_tick = gettick()+10000;	//prevent picked up during 10*1000ms

	if (dlist->item)
		add_timer(gettick()+540,pet_delay_item_drop,0,(intptr_t)dlist);
	else
		ers_free(item_drop_list_ers, dlist);

	return 1;
}

/**
 * Pet bonus giving skills.
 * @param tid : current timer value
 * @param tick : next time to use skill
 * @param id : ID of pet owner
 * @author [Valaris], rewritten by [Skotlex]
 */
TIMER_FUNC(pet_skill_bonus_timer){
	struct map_session_data *sd = map_id2sd(id);
	struct pet_data *pd;
	int bonus;
	int timer = 0;

	if(sd == NULL || sd->pd==NULL || sd->pd->bonus == NULL)
		return 1;

	pd = sd->pd;

	if(pd->bonus->timer != tid) {
		ShowError("pet_skill_bonus_timer %d != %d\n",pd->bonus->timer,tid);
		pd->bonus->timer = INVALID_TIMER;
		return 0;
	}

	// determine the time for the next timer
	if (pd->state.skillbonus && pd->bonus->delay > 0) {
		bonus = 0;
		timer = pd->bonus->delay*1000;	// the duration until pet bonuses will be reactivated again
	} else if (pd->pet.intimate) {
		bonus = 1;
		timer = pd->bonus->duration*1000;	// the duration for pet bonuses to be in effect
	} else { //Lost pet...
		pd->bonus->timer = INVALID_TIMER;
		return 0;
	}

	if (pd->state.skillbonus != bonus) {
		pd->state.skillbonus = bonus;
		status_calc_pc(sd,SCO_NONE);
	}

	// 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.
 * @param tid : current timer value
 * @param tick : next time to use skill
 * @param id : ID of pet owner
 * @param data : (unused)
 * @return 0
 * @author [Valaris], rewritten by [Skotlex]
 */
TIMER_FUNC(pet_recovery_timer){
	struct map_session_data *sd = map_id2sd(id);
	struct pet_data *pd;

	if(sd == NULL || sd->pd == NULL || sd->pd->recovery == NULL)
		return 1;

	pd = sd->pd;

	if(pd->recovery->timer != tid) {
		ShowError("pet_recovery_timer %d != %d\n",pd->recovery->timer,tid);
		return 0;
	}

	if(sd->sc.data[pd->recovery->type]) {
		//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, INVALID_TIMER);
		clif_emotion(&pd->bl, ET_OK);
	}

	pd->recovery->timer = INVALID_TIMER;
	return 0;
}

/**
 * Pet natural regeneration timer.
 * @param tid : current timer value
 * @param tick : next time to regenerate
 * @param id : ID of pet owner
 */
TIMER_FUNC(pet_heal_timer){
	struct map_session_data *sd = map_id2sd(id);
	struct status_data *status;
	struct pet_data *pd;
	unsigned int rate = 100;

	if(sd == NULL || sd->pd == NULL || sd->pd->s_skill == NULL)
		return 1;

	pd = sd->pd;

	if(pd->s_skill->timer != tid) {
		ShowError("pet_heal_timer %d != %d\n",pd->s_skill->timer,tid);
		return 0;
	}

	status = status_get_status_data(&sd->bl);

	if(pc_isdead(sd) ||
		(rate = get_percentage(status->sp, status->max_sp)) > pd->s_skill->sp ||
		(rate = get_percentage(status->hp, status->max_hp)) > pd->s_skill->hp ||
		(rate = (pd->ud.skilltimer != INVALID_TIMER)) //Another skill is in effect
	) {  //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;
	}

	pet_stop_attack(pd);
	pet_stop_walking(pd,1);
	clif_skill_nodamage(&pd->bl,&sd->bl,AL_HEAL,pd->s_skill->lv,1);
	status_heal(&sd->bl, pd->s_skill->lv,0, 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.
 * @param tid : current timer value
 * @param tick : next time to use skill
 * @param id : ID of pet owner
 * @param data : (unused)
 * @author [Skotlex]
 */
TIMER_FUNC(pet_skill_support_timer){
	struct map_session_data *sd = map_id2sd(id);
	struct pet_data *pd;
	struct status_data *status;
	short rate = 100;

	if(sd == NULL || sd->pd == NULL || sd->pd->s_skill == NULL)
		return 1;

	pd = sd->pd;

	if(pd->s_skill->timer != tid) {
		ShowError("pet_skill_support_timer %d != %d\n",pd->s_skill->timer,tid);
		return 0;
	}

	status = status_get_status_data(&sd->bl);

	if (DIFF_TICK(pd->ud.canact_tick, tick) > 0) {
		//Wait until the pet can act again.
		pd->s_skill->timer=add_timer(pd->ud.canact_tick,pet_skill_support_timer,sd->bl.id,0);
		return 0;
	}

	if(pc_isdead(sd) ||
		(rate = get_percentage(status->sp, status->max_sp)) > pd->s_skill->sp ||
		(rate = get_percentage(status->hp, status->max_hp)) > pd->s_skill->hp ||
		(rate = (pd->ud.skilltimer != INVALID_TIMER)) //Another skill is in effect
	) {  //Wait (how long? 1 sec for every 10% of remaining)
		pd->s_skill->timer=add_timer(tick+(rate>10?rate:10)*100,pet_skill_support_timer,sd->bl.id,0);
		return 0;
	}

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

	if (skill_get_inf(pd->s_skill->id) & INF_GROUND_SKILL)
		unit_skilluse_pos(&pd->bl, sd->bl.x, sd->bl.y, pd->s_skill->id, pd->s_skill->lv);
	else
		unit_skilluse_id(&pd->bl, sd->bl.id, pd->s_skill->id, pd->s_skill->lv);
	return 0;
}

/**
 * Search for the egg of pet pointed by pd from the player's inventory
 * @param sd : player
 * @param pet_id : pet ID of the pet
 * @return index of egg in player's inventory or -1 if the egg is not found.
 */
int pet_egg_search(struct map_session_data* sd, int pet_id) {
	for (int i = 0; i < MAX_INVENTORY; i++) {
		if (sd->inventory.u.items_inventory[i].card[0] == CARD0_PET &&
			pet_id == MakeDWord(sd->inventory.u.items_inventory[i].card[1], sd->inventory.u.items_inventory[i].card[2]))
			return i;
	}
	return -1;
}

/**
 * Check if the pet owner has the required evolution items
 * @param sd: Player requesting the evolution item check
 * @param pet_id: Pet's database ID
 * @return True on success or false otherwise
 */
bool pet_evolution_requirements_check(struct map_session_data *sd, short pet_id) {
	nullpo_retr(false, sd);

	if (sd->pd == nullptr)
		return false;

	auto pet_db_ptr = sd->pd->get_pet_db();
	auto evo_data = pet_db_ptr->evolution_data.find(pet_id);

	if (evo_data == pet_db_ptr->evolution_data.end()) {
		return false;
	}

	for (const auto &requirement : evo_data->second->requirements) {
		int count = 0;
		for (int i = 0; i < MAX_INVENTORY; i++) {
			if (sd->inventory.u.items_inventory[i].nameid == requirement.first) {
				count += sd->inventory.u.items_inventory[i].amount;
			}
		}
		if (count < requirement.second)
			return false;
	}
	
	return true;
}

/**
 * Process a pet evolution request
 * @param sd: Player requesting the evolution
 * @param pet_id: Pet's database ID
 */
void pet_evolution(struct map_session_data *sd, int16 pet_id) {
	nullpo_retv(sd);

	if (sd->pd == nullptr) {
		clif_pet_evolution_result(sd, e_pet_evolution_result::FAIL_UNKNOWN);
		return;
	}

	if (!battle_config.feature_petevolution) {
		clif_pet_evolution_result(sd, e_pet_evolution_result::FAIL_UNKNOWN);
		return;
	}

	if (sd->pd->pet.intimate < PET_INTIMATE_LOYAL) {
		clif_pet_evolution_result(sd, e_pet_evolution_result::FAIL_RG_FAMILIAR);
		return;
	}

	if (sd->pd->pet.equip) {
		clif_pet_evolution_result(sd, e_pet_evolution_result::FAIL_RG_FAMILIAR);
		return;
	}

	auto pet_db_ptr = sd->pd->get_pet_db();

	if (pet_db_ptr->evolution_data.find(pet_id) == pet_db_ptr->evolution_data.end()) {
		clif_pet_evolution_result(sd, e_pet_evolution_result::FAIL_NOTEXIST_CALLPET);
		return;
	}

	if (!pet_evolution_requirements_check(sd, pet_id)) {
		clif_pet_evolution_result(sd, e_pet_evolution_result::FAIL_MATERIAL);
		return;
	}

	for (const auto &requirement : pet_db_ptr->evolution_data[pet_id]->requirements) {
		int count = requirement.second;
		for (int i = 0; i < MAX_INVENTORY; i++) {
			item *slot = &sd->inventory.u.items_inventory[i];
			int deduction = min(requirement.second, slot->amount);
			if (slot->nameid == requirement.first) {
				pc_delitem(sd, i, deduction, 0, 0, LOG_TYPE_OTHER);
				count -= deduction;
				if (count == 0)
					break;
			}
		}
	}
	
	std::shared_ptr<s_pet_db> new_data = pet_db.find(pet_id);

	if( new_data == nullptr ){
		return;
	}

	int idx = pet_egg_search(sd, sd->pd->pet.pet_id);

	if( idx == -1 ){
		clif_pet_evolution_result(sd, e_pet_evolution_result::FAIL_NOTEXIST_CALLPET);
		return;
	}

	// Virtually delete the old egg
	log_pick_pc(sd, LOG_TYPE_OTHER, -1, &sd->inventory.u.items_inventory[idx]);
	clif_delitem(sd, idx, 1, 0);

	// Change the old egg to the new one
	sd->inventory.u.items_inventory[idx].nameid = new_data->EggID;
	sd->inventory_data[idx] = itemdb_search(new_data->EggID);

	// Virtually add it to the inventory
	log_pick_pc(sd, LOG_TYPE_OTHER, 1, &sd->inventory.u.items_inventory[idx]);
	clif_additem(sd, idx, 1, 0);

	// Remove the old pet from sight
	unit_remove_map(&sd->pd->bl, CLR_OUTSIGHT);

	// Prepare the new pet
	sd->pd->pet.class_ = pet_id;
	sd->pd->pet.egg_id = new_data->EggID;
	pet_set_intimate(sd->pd, new_data->intimate);
	if( !sd->pd->pet.rename_flag ){
		struct mob_db* mdb = mob_db( pet_id );

		safestrncpy(sd->pd->pet.name, mdb->jname, NAME_LENGTH);
	}
	status_set_viewdata(&sd->pd->bl, pet_id);

	// Save the pet and inventory data
	intif_save_petdata(sd->status.account_id, &sd->pd->pet);
	if (save_settings&CHARSAVE_PET)
		chrif_save(sd, CSAVE_INVENTORY);

	// Spawn it
	if (map_addblock(&sd->pd->bl))
		return;

	clif_spawn(&sd->pd->bl);
	clif_send_petdata(sd, sd->pd, 0, 0);
	clif_send_petdata(sd, sd->pd, 5, battle_config.pet_hair_style);
	clif_pet_equip_area(sd->pd);
	clif_send_petstatus(sd);
	clif_emotion(&sd->bl, ET_BEST);
	clif_specialeffect(&sd->pd->bl, EF_HO_UP, AREA);

	clif_pet_evolution_result(sd, e_pet_evolution_result::SUCCESS);
	clif_inventorylist(sd);
}

/**
 * Initialize pet data.
 */
void do_init_pet(void)
{
	pet_db.load();

	item_drop_ers = ers_new(sizeof(struct item_drop),"pet.cpp::item_drop_ers",ERS_OPT_NONE);
	item_drop_list_ers = ers_new(sizeof(struct item_drop_list),"pet.cpp::item_drop_list_ers",ERS_OPT_NONE);

	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_drop,"pet_delay_item_drop");
	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);
}

/**
 * Destroy pet data.
 */
void do_final_pet(void)
{
	ers_destroy(item_drop_ers);
	ers_destroy(item_drop_list_ers);

	pet_db.clear();
}