Files
RandomScriptsforAzerothCore/Stormwind/Alleria2.lua
2023-03-21 02:25:28 -06:00

84 lines
2.7 KiB
Lua

local Alleria = {};
function Alleria.OnEnterCombat(event, creature, target)
creature:RegisterEvent(Alleria.CastFD, 1, 1)
creature:RegisterEvent(Alleria.CastRoot, 10300, 1)
creature:RegisterEvent(Alleria.CastDisengage, 10400, 1)
creature:RegisterEvent(Alleria.CastRapidShot, 7100, 0)
creature:RegisterEvent(Alleria.CastMultiShot, 6100, 0)
creature:RegisterEvent(Alleria.CastExplosiveShot, 6600, 0)
creature:RegisterEvent(Alleria.CastBlackArrow, 15300, 0)
creature:RegisterEvent(Alleria.CastShoot, 499, 0)
creature:RegisterEvent(Alleria.ForceDespawn, 90000, 1)
end
function Alleria.OnLeaveCombat(event, creature)
creature:RemoveEvents()
end
function Alleria.OnDied(event, creature, killer)
creature:RemoveEvents()
end
function Alleria.CastRapidShot(event, delay, calls, creature)
local victim = creature:GetVictim()
if not creature:IsCasting() or creature:IsCastingSpell(71251) then
creature:CastSpell(victim, 71251, true)
end
end
function Alleria.CastShoot(event, delay, calls, creature)
local victim = creature:GetVictim()
if not creature:IsCasting() or not creature:IsCastingSpell(71251) then
creature:CastSpell(victim, 39079, true)
end
end
function Alleria.CastMultiShot(event, delay, calls, creature)
local victim = creature:GetVictim()
if not creature:IsCasting() or not creature:IsCastingSpell(71251) then
creature:CastSpell(victim, 59713, false)
end
end
function Alleria.CastExplosiveShot(event, delay, calls, creature)
local victim = creature:GetVictim()
if not creature:IsCasting() or not creature:IsCastingSpell(71251) then
creature:CastSpell(victim, 60053, false)
end
end
function Alleria.CastBlackArrow(event, delay, calls, creature)
local victim = creature:GetVictim()
if not creature:IsCasting() or not creature:IsCastingSpell(71251) then
creature:CastSpell(victim, 63672, false)
end
end
function Alleria.CastDisengage(event, delay, calls, creature)
local victim = creature:GetVictim()
if not creature:IsCasting() or not creature:IsCastingSpell(71251) then
creature:CastSpell(victim, 57635, false)
end
end
function Alleria.CastFD(event, delay, calls, creature)
if not creature:IsCasting() or not creature:IsCastingSpell(71251) then
creature:CastSpell(creature, 23604, false)
end
end
function Alleria.CastRoot(event, delay, calls, creature)
local victim = creature:GetVictim()
if not creature:IsCasting() or not creature:IsCastingSpell(71251) then
creature:CastSpell(victim, 50762, false)
end
end
function Alleria.ForceDespawn(event, delay, calls, creature)
creature:DespawnOrUnsummon(1)
end
RegisterCreatureEvent(400021, 1, Alleria.OnEnterCombat)
RegisterCreatureEvent(400021, 2, Alleria.OnLeaveCombat)
RegisterCreatureEvent(400021, 4, Alleria.OnDied)