ShowToClient("HEAL","OOP WYN HEAL ISS");
 
-- CONFIG --
CheckUser = "";	-- name
PetHealing = false;		-- enable pet heal
HPWhenHealMaster = 75;		-- Heal master percent
HPWhenHealPet = 70;		-- Heal pets
HealInRange =  900;		-- Range
HealSkillId = 11570;		-- Healing skill
 
FindUser = nil; 
HealSkill = GetSkills():FindById(HealSkillId);
 
 
 
function PetBelongs(pet)
	if CheckUser == pet:GetNickName() then
		return true;
	end;
	return false;
end;
 
 
-- MAIN LOOP --
repeat
	if(GetUserByName(CheckUser) == nil)then
		repeat
			Sleep(1000);
		until (GetUserByName(CheckUser) ~= nil);
			FindUser = GetUserByName(CheckUser);
 
	elseif(GetUserByName(CheckUser) ~= nil)then
		FindUser = GetUserByName(CheckUser);
	end;
	if PetHealing then
		pets = GetPetList();
		for pet in pets.list do
			if PetBelongs(pet) and (pet:GetHpPercent() <= HPWhenHealPet) and not pet:IsAlikeDeath() and (GetMe():GetRangeTo(pet) < HealInRange) and (HealSkill ~= nil) and (HealSkill:CanBeUsed()) then
				Target(pet);
				Sleep(200);
				UseSkill(HealSkillId);
				ClearTargets();
			end;
		end;
	Sleep(500);
	end;
	if(FindUser:GetHpPercent() < HPWhenHealMaster) and (GetMe():GetRangeTo(FindUser) < HealInRange) and (HealSkill ~= nil) and (HealSkill:CanBeUsed())then
		Target(FindUser);
		Sleep(200);
		UseSkill(HealSkillId);
		ClearTargets();
	end;
	Sleep(500);
 
until false;

WarriorHarmonyList = {""};
WizardHarmonyList = {""};
 
WarriorFrenzyId = 11596;					
WarriorFrenzySkill = GetSkills():FindById(WarriorFrenzyId);	
WizardFrenzyId = 11597;					
WizardFrenzySkill = GetSkills():FindById(WizardFrenzyId);	
 
 
function Search(user,list)
	for x,b in pairs(list) do
		if (user == b) then
			return true;
		end;
	end;
end;
 
 
repeat
 
	if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
		repeat
			Sleep(1000);
		until (GetMe():IsAlikeDeath() == false);
	end;
 
 
playerlist = GetPlayerList();
	for player in playerlist.list do
		if player:GetDistance() < 900 then
			if player:GetClanName() == GetMe():GetClanName() then
			--	ShowToClient("Debugger","Checked "..player:GetName());
				if (Search(player:GetName(),WarriorHarmonyList)) then
					Target(player:GetId());
					if GetTarget() ~= nil and GetTarget():GotBuff(WarriorFrenzyId) == false and player:IsAlikeDeath() == false then
						if (WarriorFrenzySkill ~= nil) and (WarriorFrenzySkill:CanBeUsed()) and (WarriorFrenzySkill:IsSkillAvailable()) then
							UseSkillRaw(WarriorFrenzyId,false,false);
							--ShowToClient("Debugger","WarriorFrenzy Buff casted ON "..player:GetName());
							ClearTargets();
							Sleep(1000);
						end;
					end;
				end;
				if (Search(player:GetName(),WizardHarmonyList)) then
					Target(player:GetId());
					if GetTarget() ~= nil and GetTarget():GotBuff(WizardFrenzyId) == false  and player:IsAlikeDeath() == false then
						if (WizardFrenzySkill ~= nil) and (WizardFrenzySkill:CanBeUsed()) and (WizardFrenzySkill:IsSkillAvailable()) then
							UseSkillRaw(WizardFrenzyId,false,false);
							--ShowToClient("Debugger","WizardFrenzy Buff casted ON "..player:GetName());
							ClearTargets();
							Sleep(1000);
						end;
					end;
				end;
				Sleep(1000);
				ClearTargets();
			end;
		end;
	end;
Sleep(60*1000);
until false;