Code:
function Dreadbone_Captain_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Ahooy! What have we here?!")
Unit:RegisterEvent("Dreadbone_Captain_Spell1", 7000, 0)
Unit:RegisterEvent("Dreadbone_Captain_Spell2", 9000, 0)
Unit:RegisterEvent("Dreadbone_Captain_Spell3", 15000, 0)
Unit:RegisterEvent("Dreadbone_Captain_Phase1", 1000, 0)
Unit:RegisterEvent("Dreadbone_Captain_Phase2", 1000, 0)
Unit:RegisterEvent("Dreadbone_Captain_Phase3", 1000, 0)
end
function Dreadbone_Captain_Spell1(pUnit, Event)
pUnit:FullCastSpellOnTarget(43441, pUnit:GetMainTank())
end
function Dreadbone_Captain_Spell2(pUnit, Event)
pUnit:FullCastSpellOnTarget(52885, pUnit:GetRandomPlayer(4))
end
function Dreadbone_Captain_Spell3(pUnit,Event)
pUnit:FullCastSpellOnTarget(42435, pUnit:GetMainTank())
end
function Dreadbone_Captain_Spell5(pUnit,Event)
pUnit:FullCastSpellOnTarget(37591, pUnit:GetMainTank())
end
function Dreadbone_Captain_Spell6(pUnit,Event)
pUnit:FullCastSpellOnTarget(29574, pUnit:GetMainTank())
end
function Dreadbone_Captain_Spell7(pUnit,Event)
pUnit:CastSpell(55262, pUnit:GetMainTank())
end
function Dreadbone_Captain_Phase1(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:RemoveEvents();
pUnit:FullCastSpell(37591)
pUnit:RegisterEvent("Dreadbone_Captain_Spell5", 60000, 0)
end
end
function Dreadbone_Captain_Phase2(pUnit, Event)
if pUnit:GetHealthPct() <= 25 then
pUnit:RemoveEvents();
pUnit:SendChatMessage(14, 0, "Perhaps I underestimated ye!")
pUnit:FullCastSpell(29574)
pUnit:RegisterEvent("Dreadbone_Captain_Spell6", 2000, 0)
end
end
function Dreadbone_Captain_Phase3(pUnit, Event)
if pUnit:GetHealthPct() <= 10 then
pUnit:RemoveEvents();
pUnit:SetScale(2)
pUnit:SendChatMessage(14, 0, "How...are...you..ALIVE!?")
pUnit:CastSpell(52262)
pUnit:RegisterEvent("Dreadbone_Captain_Spell7", 2000, 0)
end
end
function Dreadbone_Captain_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "As I thought! Run ye land lubbers!")
end
function Dreadbone_Captain_OnDied(Unit, Event)
Unit:RemoveEvents() Unit:SendChatMessage(14, 0, "How could this be...")
end
function Dreadbone_Captain_OnKilledTarget(Unit, Event) Unit:SendChatMessage(14, 0, "Hah! Is that all ye got?")
end
RegisterUnitEvent(133702,1,"Dreadbone_Captain_OnCombat")
RegisterUnitEvent(133702,2,"Dreadbone_Captain_OnLeaveCombat")
RegisterUnitEvent(133702,3,"Dreadbone_Captain_OnKilledTarget")
RegisterUnitEvent(133702,4,"Dreadbone_Captain_OnDied")