09-22-2014, 08:13 AM
09-22-2014, 13:02 PM
Use and check for me .
Add chars needs to buff in 3 list : LstWar (buff warrior), LstWiz (buff wizard), LstKni (buff knight). It's ok on my iss dominator.
Rep me if it's useful for u ^^!
Add chars needs to buff in 3 list : LstWar (buff warrior), LstWiz (buff wizard), LstKni (buff knight). It's ok on my iss dominator.
Rep me if it's useful for u ^^!
09-22-2014, 17:02 PM
Name for Iss write somewhere or not , and auto inv/leave is OK ? Only char for WAr or wiz or Kight is need ? Ty
09-23-2014, 12:20 PM
It's for ISS dominator so don't need pt and ISS name. Just run it on ISS.It can buff many char (in clan and 500 ranger).
See script and you know how to do!
See script and you know how to do!
09-23-2014, 15:35 PM
not saying it's bad script, I just think the op was looking for OOP heals not buffs, it's not the same thing.
09-23-2014, 15:51 PM
LUA Programming
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;
LUA Programming
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;