function Queens_Phase1(pUnit, event)
if pUnit:GetHealthPct() < 80 then
pUnit:RemoveEvents()
pUnit:SendChatMessage("Things are getting interesting!")
pUnit:RegisterEvent("Boss_Spell1",1000,0)
pUnit:RegisterEvent("Boss_Forcepunch1",40000,100)
pUnit:RegisterEvent("Boss_Ravage1",30000,100)
pUnit:RegisterEvent("Boss_Speedslash1",50000,100)
pUnit:RegisterEvent("Lord_Phase2",1000,0)
end
end
function Queens_Phase2(pUnit, event)
if pUnit:GetHealthPct() < 50 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("Boss_Spell2",1000,0)
pUnit:RegisterEvent("Boss_Forcepunch1",40000,100)
pUnit:RegisterEvent("Boss_Ravage1",30000,100)
pUnit:RegisterEvent("Boss_Speedslash1",50000,100)
pUnit:RegisterEvent("Lord_Phase3",1000,0)
end
end
function Queens_Phase3(pUnit, event)
if pUnit:GetHealthPct() < 10 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("Boss_Spell3",1000,0)
pUnit:RegisterEvent("Boss_Ravage1",30000,100)
pUnit:RegisterEvent("Boss_Forcepunch1",40000,100)
end
end
function Boss_Spell1(pUnit, event)
pUnit:CastSpellOnTarget(40859, pUnit:GetRandomPlayer(7))
pUnit:SendChatMessage(12,0,"Time for Fun!")
end
function Boss_Spell2(pUnit, event)
pUnit:CastSpell(37764)
pUnit:SendChatMessage(12,0,"Lets get down to business!")
End
function Boss_Spell3(pUnit, event)
pUnit:CastSpell(7961)
pUnit:Emote(15)
pUnit:CastSpell(28131)
pUnit:SendChatMessage(12,0,"Seems I have underestimated you... Let's get serious!")
pUnit::ClearThreatList()
end
function Boss_Forcepunch1(pUnit, event)
pUnit:CastSpell(24192)
end
function Boss_Ravage1(pUnit, event)
pUnit:CastSpellOnTarget(24213, pUnit:GetClosestPlayer())
end
Fonction Boss_Speedslash1(pUnit, event)
pUnit:CastSpell(24192)
End
function Queens_OnCombat(pUnit, event)
pUnit:SendChatMessage(12,0,"The time of your death as come...")
pUnit:RegisterEvent("Lord_Phase1",1000,0)
pUnit:RegisterEvent("Boss_Ravage1",30000,100)
end
function Queens_OnLeave(pUnit, event)
end
function Queens_OnKilledTarget(pUnit, event)
pUnit:SendChatMessage(12,0,"Fools!")
end
function Queens_OnDied(pUnit, event)
pUnit:RemoveEvents()
pUnit:SendChatMessage(12,0,"I have failed... But this is far from over!")
end
RegisterUnitEvent(90000,1,"Queens_OnCombat")
RegisterUnitEvent(90000,2,"Queens_OnLeave")
RegisterUnitEvent(90000,3,"Queens_OnKilledTarget")
RegisterUnitEvent(90000,4,"Queens_OnDied")