LeavePartyAfterBuffs = true; -- true if you want buffer to leaveparty after buffs.
DDName = "DDName" -- the player name of whom need to get buffed.
 
 
function RequestBuff(Buff,TargetName,IsNeedParty,IsNeedTarget)
	local targetc = GetUserByName(TargetName);
	if (GetMe() ~= nil) and (targetc ~= nil) and (targetc:GetRangeTo(GetMe()) < 2000) then
 if (IsNeedParty) and (targetc:IsMyPartyMember() == false) then
 repeat
 if ((GetMyPtMembersCount() == 0) or (GetPartyMaster():GetName() == GetMe():GetName())) then
 Command('/invite ' .. TargetName);
 else
 ShowToClient("Warc Buffer Script","Im Unable to Invite the player, Im already in party and not the party leader!");
 Sleep(10000);
 end;
 Sleep(1000);
 until targetc:IsMyPartyMember();
 end;
 if (IsNeedTarget) and ((GetTarget() == nil) or ((GetTarget() ~= nil) and (GetTarget():GetName() ~= TargetName))) then
 Command('/target ' .. TargetName);
 Sleep(1000);
 end;	
 if (tonumber(Buff) ~= nil) then
 UseSkillRaw(tonumber(Buff),false,false);
 else
 Command("/useskill " .. Buff);	
 end;
 Sleep(1000);
	end;
end;
 
function IsBuffRequireReCast(target,debuffid,timeallowed)
	if (target ~= nil) and (target:GotBuff(debuffid) == true) then
	local thebuff = target:GetBuff(debuffid);
 if (thebuff.endTime > GetTime() + timeallowed) then
 return false;
 end;
	end;
	return true;
end;
 
function GetMyPtMembersCount()
	local myptlist = GetPartyList():GetCount();
	local count = 0;
	if (tonumber(myptlist) ~= nil) then
 count = myptlist;
	end;
	return count;
end;
 
repeat
 
 
	if IsBuffRequireReCast(GetMe(),1002,30*1000) then 
 RequestBuff("Flame Chant",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1562,30*1000) then 
 RequestBuff("Chant of Berserker",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1251,30*1000) then 
 RequestBuff("Chant of Fury",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1309,30*1000) then 
 RequestBuff("Chant of Eagle",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1310,30*1000) then 
 RequestBuff("Chant of Vampire",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1390,30*1000) then 
 RequestBuff("War Chant",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1006,30*1000) then 
 RequestBuff("Chant of Fire",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1461,30*1000) then 
 RequestBuff("Chant of Protection",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1284,30*1000) then 
 RequestBuff("Chant of Revenge",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1535,30*1000) then 
 RequestBuff("Chant of Movement",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1517,30*1000) then 
 RequestBuff("Chant of Combat",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1518,30*1000) then 
 RequestBuff("Chant of Critical Attack",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if IsBuffRequireReCast(GetMe(),1363,30*1000) then 
 RequestBuff("Chant of Victory",DDName,true,false); -- (skillId or SkillName, playername that need buff, Does Skill Require Party?, Does the skill require target?)
	end;
 
	if (LeavePartyAfterBuffs) and (GetMyPtMembersCount() ~= 0) then
 Command("/leave");
	end;
 
	Sleep(1000);
until false;