Lineage 2 Tower Forum

-- At how much hp % should we heal pets?
minHealthPercent = 70
-- max distance at which we will search for targets.
maxDistance = 800
-- Switch back to previous target after healing or not?
switchBack = true
 
function GetSkillIdByName(name)
	skills = GetSkills()
	for s in skills.list do
		if s.name == name then
			return s.skillId
		end
	end
	return nil
end
-- Skill Id of healing spell, it should find it by name, if not it will be the last number:
healId = GetSkillIdByName("Servitor Major Heal") or GetSkillIdByName("Servitor Heal") or 11302 -- Servitor Major Heal
 
function CastHeal(id,tar,dist)
	if id and tar then
		skill = GetSkills():FindById(id)
		if skill and skill:CanBeUsed() then
			for d=dist-50,50,-100 do
				if not tar or tar:GetHpPercent() == 0 then
					return false
				end
				if tar:GetDistance() > dist or not tar:CanSeeMe() then
					loc = tar:GetLocation()
					MoveTo(loc.X, loc.Y, loc.Z, d)
					tar = GetUserById(tar:GetId())
				end
			end
			if switchBack then
				old = GetTarget()
			end
			Target(tar)
			UseSkillRaw(id,false,false)
			if old then
				Sleep(300)
				Target(old)
			end
			return true
		end
	end
	return false
end
 
function PetBelongsToMe( pet )
	me = GetMe()
	if pet and me then
		if me:GetName() == pet:GetMasterName() then
			return true
		end
	end
	return false
end
 
repeat
	pets = GetPetList()
	for pet in pets.list do
		if 	pet:GetDistance() < maxDistance and 
			PetBelongsToMe(pet) and 
			pet:GetHpPercent() <= minHealthPercent then
			CastHeal(healId, pet, (healId == 11302 and 890) or 590)
		end
	end
until false;