Runes of Magic US / AU

Quoted

--Class: Mage/Priest
elseif mainClass == "MAGE" and subClass == "AUGUR" then

--Combat
if ((enemy) and (goat2 == "1")) then
--if enemy then
Skill2 = {
{ name = "Elemental Weakness", use = (boss or elite) and (pctEB1 >= 550) and (not tbuffs['620189']) },
--{ name = "Magic Drain", use = (boss) and (pctEB1 >= 212) and (not tbuffs['623211']) },
{ name = "Electric Bolt", use = (boss or elite) and (pctEB1 >= 330) and (not tbuffs['501550']) },
{ name = "Flame", use = (pctEB1 >= 220) },
{ name = "Fireball", use = (pctEB1 >= 330) },
{ name = "Rising Tide", use = (pctEB2 >= 31 },
}

elseif ((enemy) and (goat2 == "2")) then
Skill2 = {
{ name = "Lightning", use = (pctEB1 >= 212) },
{ name = "Fireball", use = (pctEB1 >= 330) },
{ name = "Rising Tide", use = (pctEB2 >= 31 },
}

end

Quoted

{ name = "Silence", use = (silenceThis) and (EnergyBar1 >= 50) or (pvp) },
{ name = "Elemental Weakness", use = (boss or elite) and (EnergyBar1 >= 550) and (not tbuffs['620189']) },
{ name = "Magic Drain", use = (boss) and (EnergyBar1 >= 212) and (not tbuffs['623211']) },
{ name = "Electric Bolt", use = (boss or elite) and (EnergyBar1 >= 330) and (not tbuffs['501550']) },
{ name = "Lightning", use = (EnergyBar1 >= 212) or (pvp) },
{ name = "Flame", use = (EnergyBar1 >= 220) },
{ name = "Fireball", use = (EnergyBar1 >= 330) or (pvp) },
{ name = "Rising Tide", use = (EnergyBar2 >= 31 or (pvp) },

Quoted from "BloodyArrow;586602"

So let me see if I understood this right. Silence casts only when I have more or thesame mana it needs and only in PvP? Am a bit unsure about those (or, and) PvP thats why I ask.
- B

	Source code
1	{ name = "Silence", use = (silenceThis) and (EnergyBar1 >= 50) or (pvp) },

	Source code
1	{ name = "Silence", use = silenceThis and EnergyBar1 >= 50 and (pvp or party) },

Quoted from "Linaquel;588331"

Hi again everyone. I've asked once there in this thread about puting 2 skills to be used in 1 s - I'm W/WD and Charged Chop is spamable so I can use my warriors skills in that same time when CC is used ( m2 skills in 1 sec).
I still got no idea how to put CC in Code - DIYCE seems to have 1s CD like global CD ...

...snip...

Here is my code, I though even about 2 sepparated lanes of skill combo in DYICE but got no idea how to use 2 lines of skill to be used at once

Quoted from "krssrb;588286"

i readed mose of post's here, but i didnt find anything about item set skill's.
can be added something to ReadSkills()
...snip...
something like this

	Source code
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21	function ReadSkills() g_skill = {} local skillname,slot [b][i]...snip...[/i][/b] local name,num for class = 1,9 do num = 1 name,_,_ = GetSuitSkill_List(class, num) repeat local a1,a2,a3,a4,a5,a6,a7,a8,skillusable = GetSuitSkill_List(class, num) if skillusable then g_skill[name] = { ['class'] = page, ['num'] = num } end num = num + 1 name = GetSkillDetail(class, num) until name == nil end end

Quoted from "neonsun;588785"

what i m trying to achieve is this : havy bash till 3 stacked , when 3 stacked use shadowstab . if no more energy , use heavy bash.

i also want to recast heavybash if the timer on heavybash is less than 2s , how wouldi do this ?

Quoted from "neonsun;588785"

	Source code
1	{ name = "Heavy Bash", use = ((EnergyBar1 >= 20) and (not tbuffs['Heavy Bash'].stack =3)) },

this gave me error: ')' expected after =

	Source code
1	{ name = "Heavy Bash", use = ((EnergyBar1 >= 20) and (not tbuffs['Heavy Bash'].stack 3)) },

same kind of error ')' expected after 3.

Quoted from "misterrypto;588870"

...snip...
The problem I am having now is with the timers continuing to run after I kill a target and move on to the next. As a R/K it may fire Disarm at the next target but won't go on to SS or anything else until the SS timer has run down. As a R/S I just stand there looking foolish until time is up. It's been so long since I played around with this that I have no idea what I might have done to prevent that from happening. How do I get the timers to reset when I switch targets? Anyone's help would ge greatly appreciated.

	Source code
1 2 3 4 5 6 7	--[[ Stop a named timer ]]-- -- if timer doesn't exist, this does nothing function StopDIYCETimer(timerName) if DIYCE_Timers[timerName] then DIYCE_Timers[timerName].timeLeft = 0 end end

	Source code
1 2	TargetNearestEnemy() return

	Source code
1 2 3 4	TargetNearestEnemy() [highlight] StopDIYCETimer("LBBleed") StopDIYCETimer("SSBleed")[/highlight] return

Quoted

local WHITE = "|cffffffff"
local SILVER = "|cffc0c0c0"
local GREEN = "|cff00ff00"
local LTBLUE = "|cffa0a0ff"

function DIYCE_DebugSkills(skillList)
DEFAULT_CHAT_FRAME:AddMessage(GREEN.."Skill List:")

for i,v in ipairs(skillList) do
DEFAULT_CHAT_FRAME:AddMessage(SILVER.." ['..WHITE..i..SILVER..']: "..LTBLUE.."\" "..WHITE..v.name..LTBLUE.."\" use = "..WHITE..(v.use and "true" or "false"))
end

DEFAULT_CHAT_FRAME:AddMessage(GREEN.."----------")
end

function DIYCE_DebugBuffList(buffList)
DEFAULT_CHAT_FRAME:AddMessage(GREEN.."Buff List:")

for k,v in pairs(buffList) do
-- We ignore numbered entries because both the ID and name
-- are stored in the list. This avoids doubling the output.
if type(k) ~= "number" then
DEFAULT_CHAT_FRAME:AddMessage(SILVER.." ['..WHITE..k..SILVER..']: "..LTBLUE.."id: "..WHITE..v.id..LTBLUE.." stack: "..WHITE..v.stack..LTBLUE.." time: "..WHITE..v.time)
end
end

DEFAULT_CHAT_FRAME:AddMessage(GREEN.."----------")
end

local silenceList = {
['Annihilation'] = true,
['King Bug Shock'] = true,
['Mana Rift'] = true,
['Dream of Gold'] = true,
['Flame'] = true,
['Flame Spell'] = true,
['Wave Bomb'] = true,
['Silence'] = true,
['Recover'] = true,
['Restore Life'] = true,
['Heal'] = true,
['Curing Shot'] = true,
['Leaves of Fire'] = true,
['Urgent Heal'] = true,
['Heavy Shelling'] = true, --Juggler Apprentice in Grafu
['Dark Healing'] = true, --Mini-boss in Sardo
}

function PriestFairySequence(arg1)
local Skill = {}
local Skill2 = {}
local i = 0
local FairyExists = UnitExists("playerpet")
local FairyBuffs = BuffList("playerpet")
local combat = GetPlayerCombatState()

--Determine Class-Combo
mainClass, subClass = UnitClassToken( "player" )

--Summon Fairy
if (not FairyExists) and (not combat) then
if mainClass == "AUGUR" then
if subClass == "THIEF" then
Skill = {
{ name = "Shadow Fairy", use = true },
}
elseif subClass == "RANGER" then
Skill = {
{ name = "Water Fairy", use = true },
}
elseif subClass == "MAGE" then
Skill = {
{ name = "Wind Fairy", use = true },
}
elseif subClass == "KNIGHT" then
Skill = {
{ name = "Light Fairy", use = true },
}
elseif subClass == "WARRIOR" then
Skill = {
{ name = "Fire Fairy", use = true },
}
end
end
end

--Cast Halo
if FairyExists then
if mainClass == "AUGUR" then
if subClass == "THIEF" then
if (not FairyBuffs[503459]) then
if (arg1 == "v1") then
Msg("- Activating Halo", 0, 1, 1)
end
Skill = {
{ name = "Pet Skill: 6 (Wraith Halo)", use = true },
}
end
elseif subClass == "RANGER" then
if (not FairyBuffs[503457]) then
if (arg1 == "v1") then
Msg("- Activating Halo", 0, 1, 1)
end
Skill = {
{ name = "Pet Skill: 6 (Frost Halo)", use = true },
}
end
elseif subClass == "MAGE" then
if (not FairyBuffs[503461]) then
if (arg1 == "v1") then
Msg("- Activating Halo", 0, 1, 1)
end
Skill = {
{ name = "Pet Skill: 6 (Windrider Halo)", use = true },
}
end
elseif subClass == "KNIGHT" then
if (not FairyBuffs[503507]) then
if (arg1 == "v1") then
Msg("- Activating Halo", 0, 1, 1)
end
Skill = {
{ name = "Pet Skill: 6 (Devotion Halo)", use = true },
}
end
elseif subClass == "WARRIOR" then
if (not FairyBuffs[503455]) then
if (arg1 == "v1") then
Msg("- Activating Halo", 0, 1, 1)
end
Skill = {
{ name = "Pet Skill: 6 (Accuracy Halo)", use = true },
}
end
end

--Cast Conceal
if (not MyCombat(Skill, arg1)) then
if (not FairyBuffs[503753]) then
if (arg1 == "v1") then
Msg("- Activating Conceal", 0, 1, 1)
end
Skill2 = {
{ name = "Pet Skill: 7 (Conceal)", use = true },
}
end
end
end
end

if (not MyCombat(Skill, arg1)) then
MyCombat(Skill2, arg1)
end
end

function KillSequence(arg1, goat2, healthpot, manapot, foodslot)
--arg1 = "v1" or "v2" for debugging
--healthpot = # of actionbar slot for health potions
--manapot = # of actionbar slot for mana potions
--foodslot = # of actionbar slot for food (add more args for more foodslots if needed)

local Skill = {}
local Skill2 = {}
local i = 0

-- Player and target status.
local combat = GetPlayerCombatState()
local enemy = UnitCanAttack("player","target")
local EnergyBar1 = UnitMana("player")
local EnergyBar2 = UnitSkill("player")
local pctEB1 = PctM("player")
local pctEB2 = PctS("player")
local tbuffs = BuffList("target")
local pbuffs = BuffList("player")
local tDead = UnitIsDeadOrGhost("target")
local behind = (not UnitIsUnit("player", "targettarget"))
local melee = GetActionUsable(2) -- # is your melee range spell slot number
local a1,a2,a3,a4,a5,ASon = GetActionInfo(3) -- # is your Autoshot slot number
local phealth = PctH("player")
local thealth = PctH("target")
local LockedOn = UnitExists("target")
local boss = UnitSex("target") > 2
local elite = UnitSex("target") == 2
local party = GetNumPartyMembers() >= 2


--Determine Class-Combo
mainClass, subClass = UnitClassToken( "player" )

--Silence Logic
local tSpell,tTime,tElapsed = UnitCastingTime("target")
local silenceThis = tSpell and silenceList[tSpell] and ((tTime - tElapsed) > 0.1)

--Potion Checks
healthpot = healthpot or 0
manapot = manapot or 0

--Equipment and Pet Protection
if phealth <= .03 then
SwapEquipmentItem() --Note: Remove the first double dash to re-enable equipment protection.
for i=1,6 do
if (IsPetSummoned(i) == true) then
ReturnPet(i);
end
end
end

--Check for level 1 mobs, if it is, drop target and acquire a new one.
if (LockedOn and (UnitLevel("target") < 2)) then
TargetUnit("")
return
end

--Begin Player Skill Sequences

--Priest = AUGUR, Druid = DRUID, Mage = MAGE, Knight = KNIGHT,
--Scout = RANGER, Rogue = THIEF, Warden = WARDEN, Warrior = WARRIOR

-- Class: Scout/Rogue
if mainClass == "RANGER" and subClass == "THIEF" then
--Timers for this class
CreateDIYCETimer("SSBleed", 6.5) --Change the value between 6 -> 7.5 depending on your lag.
CreateDIYCETimer("LBBleed", 8.5) --Change the value between 7 -> 8.5 depending on your lag.
--goat2: 0 = Buffs, 1 = Melee, 2 = Ranged, 3 = Cooldowns & Potions, 4 = Longer Cooldowns

if enemy and (Mode == "pve") then
Skill = {
{ name = "Flèche démoralisante", use = (CD['Flèche démoralisante']) and boss and elite },
{ name = "Tir auto.", use = (not ASon) },
{ name = "Flèches sangsues", use = (CD['Flèches sangsues']) and (EnergyBar1 >=20) },
{ name = "Flèche perçante", use = (CD['Flèche perçante']) },
{ name = "Tir multiple", use = (CD['Tir multiple']) },
{ name = "Tir", use = (CD['Tir']) },
{ name = "Talon d'Achille", use = (CD['Talon d'Achille']) and (EnergyBar1 >=30) },
{ name = "Morsure du poison mortel", use = (CD['Morsure du poison mortel']) and (EnergyBar1 >=30) and boss },
{ name = "Tir en ricochets", use = (CD['Tir en ricochets']) },
}
end

--ADD MORE CLASS COMBOS HERE.
--USE AN "ELSEIF" TO CONTINUE WITH MORE CLASS COMBOS.
--THE NEXT "END" STATEMENT IS THE END OF THE CLASS COMBOS STATEMENTS.
--DO NOT POST BELOW THE FOLLOWING "END" STATEMENT!
end
--End Player Skill Sequences

if (arg1=="debugskills") then --Used for printing the skill table, and true/false usability
DIYCE_DebugSkills(Skill)
DIYCE_DebugSkills(Skill2)
elseif (arg1=="debugpbuffs") then --Used for printing your buff names, and buffID
DIYCE_DebugBuffList(pbuffs)
elseif (arg1=="debugtbuffs") then --Used for printing target buff names, and buffID
DIYCE_DebugBuffList(tbuffs)
elseif (arg1=="debugall") then --Used for printing all of the above at the same time
DIYCE_DebugSkills(Skill)
DIYCE_DebugSkills(Skill2)
DIYCE_DebugBuffList(pbuffs)
DIYCE_DebugBuffList(tbuffs)
end

if (not MyCombat(Skill, arg1)) then
MyCombat(Skill2, arg1)
end

--Select Next Enemy
if (tDead) then
TargetUnit("")
return
end
if (mainClass == "RANGER" or subClass == "RANGER") and (not party) then --To keep scouts from pulling mobs without meaning to.
if (not LockedOn) or (not enemy) then
TargetNearestEnemy()
return
end
elseif mainClass ~= "RANGER" then --Let all other classes auto target.
if (not LockedOn) or (not enemy) then
TargetNearestEnemy()
return
end
end
end

Quoted

-- DIY Combat Engine version 2.2

local g_skill = {}
local g_lastaction = ""
-- Holds the created timers
local DIYCE_Timers = {}

function Msg(outstr,a1,a2,a3)
DEFAULT_CHAT_FRAME:AddMessage(tostring(outstr),a1,a2,a3)
end

function ReadSkills()
g_skill = {}
local skillname,slot

for page = 1,4 do
slot = 1
skillname = GetSkillDetail(page,slot)
repeat
local a1,a2,a3,a4,a5,a6,a7,a8,skillusable = GetSkillDetail(page,slot)
if skillusable then
g_skill[skillname] = { ['page'] = page, ['slot'] = slot }
end
slot = slot + 1
skillname = GetSkillDetail(page,slot)
until skillname == nil
end
end

-- Read Skills on Log-In/Class Change/Level-Up
local DIYCE_EventFrame = CreateUIComponent("Frame","DIYCE_EventFrame","UIParent")
DIYCE_EventFrameetScripts("OnUpdate", [=[ DIYCE_TimerUpdate(elapsedTime) ]=] )
DIYCE_EventFrameetScripts("OnEvent", [=[
if event == 'PLAYER_SKILLED_CHANGED' then
ReadSkills()
end
]=] )
DIYCE_EventFrame:RegisterEvent("PLAYER_SKILLED_CHANGED")

function PctH(tgt)
return (UnitHealth(tgt)/UnitMaxHealth(tgt))
end

function PctM(tgt)
return (UnitMana(tgt)/UnitMaxMana(tgt))
end

function PctS(tgt)
return (UnitSkill(tgt)/UnitMaxSkill(tgt))
end

function CancelBuff(buffname)
local i = 1
local buff = UnitBuff("player",i)

while buff ~= nil do
if buff == buffname then
CancelPlayerBuff(i)
return true
end

i = i + 1
buff = UnitBuff("player",i)
end
return false
end

function BuffList(tgt)
local list = {}
local buffcmd = UnitBuff
local infocmd = UnitBuffLeftTime

if UnitCanAttack("player",tgt) then
buffcmd = UnitDebuff
infocmd = UnitDebuffLeftTime
end

-- There is a max of 100 buffs/debuffs per unit apparently
for i = 1,100 do
local buff, _, stackSize, ID = buffcmd(tgt, i)
local timeRemaining = infocmd(tgt,i)
if buff then
-- Ad to list by name
list[buff:gsub('(%()(.)(%))', '%2')] = { stack = stackSize, time = timeRemaining or 0, id = ID }
-- We also list by ID in case two different buffs/debuffs have the same name.
list[ID] = {stack = stackSize, time = timeRemaining or 0, name = buff:gsub("(%()(.)(%))", "%2") }
else
break
end
end

return list
end

function CD(skillname)
local firstskill = GetSkillDetail(2,1)
if (g_skill[firstskill] == nil) or (g_skill[firstskill].page ~= 2) then
ReadSkills()
end

if g_skill[skillname] ~= nil then
local tt,cd = GetSkillCooldown(g_skill[skillname].page,g_skill[skillname].slot)
return cd <= 0.4
elseif skillname == nil then
return false
else
Msg("Skill not available: "..skillname) --Comment this line out if you do not wish to recieve this error message.
return
end
end

function MyCombat(Skill, arg1)
local spell_name = UnitCastingTime("player")
local talktome = ((arg1 == "v1") or (arg1 == "v2"))
local action,actioncd,actiondef,actioncnt

if spell_name ~= nil then
if (arg1 == "v2") then Msg("- ['..spell_name..']", 0, 1, 1) end
return true
end

for x,tbl in ipairs(Skill) do

local useit = type(Skill[x].use) ~= "function" and Skill[x].use or (type(Skill[x].use) == "function" and Skill[x].use() or false)
if useit then
if string.find(Skill[x].name, "Action:") then
action = tonumber((string.gsub(Skill[x].name, "(Action( *)(%d+)(.*)", "%3")))
_1,actioncd = GetActionCooldown(action)
actiondef,_1,actioncnt = GetActionInfo(action)
if GetActionUsable(action) and (actioncd == 0) and (actiondef ~= nil) and (actioncnt > 0) then
if talktome then Msg("- "..Skill[x].name) end
UseAction(action)
return true
end
elseif string.find(Skill[x].name, "Custom:") then
action = string.gsub(Skill[x].name, "(Custom( *)(.*)", "%3")
if CustomAction(action) then
return true
end
elseif string.find(Skill[x].name, "Item:") then
action = string.gsub(Skill[x].name, "(Item( *)(.*)", "%3")
if talktome then Msg("- "..Skill[x].name) end
UseItemByName(action)
return true
elseif (Skill[x].ignoretimer or GetDIYCETimerValue(Skill[x].timer) == 0) and CD(Skill[x].name) then
if talktome then Msg("- "..Skill[x].name) end
CastSpellByName(Skill[x].name)
StartDIYCETimer(Skill[x].timer)
return true
elseif string.find(Skill[x].name, "Pet Skill:") then
action = string.gsub(Skill[x].name, "(Pet Skill( *)(%d+)(.*)", "%3")
UsePetAction(action)
if (arg1 == "v2") then Msg(Skill[x].name.." has been fully processed") end
return true
end
end
end
if (arg1 == "v2") then Msg("- [IDLE]", 0, 1, 1) end

return false
end

--[[ Timer Update function ]]--
-- Tick down any active timers
function DIYCE_TimerUpdate(elapsed)
for k,v in pairs(DIYCE_Timers) do
v.timeLeft = v.timeLeft - elapsed
if v.timeLeft < 0 then
v.timeLeft = 0
end
end
end

--[[ Create a named timer ]]--
-- if the named timer already exists, this does nothing.
function CreateDIYCETimer(timerName, waitTime)
if not DIYCE_Timers[timerName] then
DIYCE_Timers[timerName] = { timeLeft = 0, waitTime = waitTime }
end
end

--[[ Set/reset waitTimer of an existing timer ]]--
-- if the timer doesn't exist, this does nothing
function SetDIYCETimerDelay(timerName, waitTime)
if DIYCE_Timers[timerName] then
DIYCE_Timers[timerName].waitTime = waitTime
end
end

--[[ Delete named timer ]]--
-- if the timer doesn't exist, this does nothing
-- Not really needed, but added for completeness
function DeleteDIYCETimer(timerName)
if DIYCE_Timers[timerName] then
DIYCE_Timers[timerName] = nil
end
end

--[[ Get a timer's current time ]]--
-- if the timer doesn't exist, this returns 0
function GetDIYCETimerValue(timerName)
if timerName then
return DIYCE_Timers[timerName] and DIYCE_Timers[timerName].timeLeft or 0
end
return 0
end

--[[ Starts a timer ticking down ]]--
-- if timer doesn't exist, this does nothing
function StartDIYCETimer(timerName)
if timerName and DIYCE_Timers[timerName] then
DIYCE_Timers[timerName].timeLeft = DIYCE_Timers[timerName].waitTime
end
end

function CustomAction(action)
if CD(action) then
if IsShiftKeyDown() then Msg("- "..action) end
g_lastaction = action
CastSpellByName(action)
return true
else
return false
end
end

function BuffTimeLeft(tgt, buffname)
local cnt = 1
local buff = UnitBuff(tgt,cnt)

while buff ~= nil do
if string.find(buff,buffname) then
return UnitBuffLeftTime(tgt,cnt)
end
cnt = cnt + 1
buff = UnitBuff(tgt,cnt)
end

return 0
end

function BuffParty(arg1,arg2)
-- arg1 = Quickbar slot # for targetable, instant-cast buff without a cooldown (eg. Amp Attack) for range checking.
-- arg2 = buff expiration time cutoff (in seconds) for refreshing buffs, default is 45 seconds.

local selfbuffs = { "Soul Bond", "Enhanced Armor", "Holy Seal" }
local groupbuffs = { "Grace of Life", "Amplified Attack", "Angel's Blessing", "Essence of Magic", "Magic Barrier", "Blessed Spring Water", "Fire Ward", "Savage Blessing", "Concentration Prayer", "Shadow Fury" }

local buffrefresh = arg2 or 45 -- Refresh buff time (seconds)
local spell = UnitCastingTime("player") -- Spell being cast?
local vocal = IsShiftKeyDown() -- Generate feedback if Shift key held

if (spell ~= nil) then
return
end

if vocal then Msg("- Checking self buffs on "..UnitName("player")) end
for i,buff in ipairs(selfbuffs) do
if (g_skill[buff] ~= nil) and CD(buff) and (BuffTimeLeft("player",buff) <= buffrefresh) then
if vocal then Msg("- Casting "..buff.." on "..UnitName("player")) end
TargetUnit("player")
CastSpellByName(buff)
return
end
end

if vocal then Msg("- Checking group buffs on "..UnitName("player")) end
for i,buff in ipairs(groupbuffs) do
if (g_skill[buff] ~= nil) and CD(buff) and (BuffTimeLeft("player",buff) <= buffrefresh) then
if vocal then Msg("- Casting "..buff.." on "..UnitName("player")) end
TargetUnit("player")
CastSpellByName(buff)
return
end
end

for num=1,GetNumPartyMembers()-1 do
TargetUnit("party"..num)
if GetActionUsable(arg1) and (UnitHealth("party"..num) > 0) then
if vocal then Msg("- Checking group buffs on "..UnitName("party"..num)) end
for i,buff in ipairs(groupbuffs) do
if (g_skill[buff] ~= nil) and CD(buff) and (BuffTimeLeft("target",buff) <= buffrefresh) then
if UnitIsUnit("target","party"..num) then
if vocal then Msg("- Casting "..buff.." on "..UnitName("target")) end
CastSpellByName(buff)
return
else
if vocal then Msg("- Error: "..UnitName("target").." != "..UnitName("party"..num)) end
end
end
end
else
if vocal then Msg("- Player "..UnitName("party"..num).." out of range or dead.") end
end
end

if vocal then Msg("- Nothing to do.") end
end