Code:
local NPC_ID = 27156
function ScarletCommanderMograine_OnSpawn (pUnit, Event)
ScarletCommanderMograine = pUnit
RegisterpUnitEvent(27156, 18, "ScarletCommanderMograine_OnSpawn")
end
function ScarletCommanderMograine_OnCombat(pUnit, Event)
pUnit:SendChatMessage (14, 0, "Invaders? They must die!")
RegisterpUnitEvent (27156, 1, "ScarletCommanderMograineOnCombat")
pUnit:RegisterEvent(ScarletCommanderMograine_spell1, 1500, 1)
pUnit:RegisterEvent(ScarletCommanderMograine_spell2, 20000, 1)
pUnit:RegisterEvent(ScarletCommanderMograine_spell3, 27000, 20)
pUnit:RegisterEvent(ScarletCommanderMograine_Father, 32000, 5)
pUnit:RegisterEvent(ScarletCommanderMograine, 35000, 20)
pUnit:RegisterEvent(ScarletCommanderMograine_pwnage, 34000, 1)
end
function ScarletCommanderMograine_OnLeaveCombat(pUnit, Event)
pUnit:SendChatMessage (14, 0, "This is too easy!")
RegisterpUnitEvent (27156, 2, "ScarletCommanderMograine_OnLeaveCombat")
end
function ScarletCommanderMograine_OnKilledTarget (pUnit, Event)
pUnit:SendChatMessage (14, 0, "Another soul corrupted")
RegisterpUnitEvent (27156, 3, "ScarletCommanderMograine_OnKilledTarget")
end
function ScarletCommanderMograine_Spell1(pUnit, Event)
pUnit:FullCastSpellOnTarget(66003, Unit:GetMainTank())
RegisterpUnitEvent ("ScarletCommanderMograine_spell1", 20000, 2)
end
function ScarletCommanderMograine_Spell2(pUnit, Event)
pUnit:FullCastSpellOnTarget(67345, Unit:GetMainTank())
RegisterpUnitEvent ("ScarletCommanderMograine_Spell2", 30000, 2)
end
function ScarletCommanderMograine_Spell3(pUnit, Event)
pUnit:FullCastSpellTarget(66528, Unit:GetRandomPlayer(3))
RegisterpUnitEvent ("ScarletCommanderMograine_Spell3", 40000, 2)
end
function ScarletCommanderMograine_Father(pUnit, Event)
if pUnit:GetHealthPct() < 10 then
pUnit:FullCastSpellTarget(71617, GetRandomPlayer(0))
pUnit:SendChatMessage (12, 0, "Is this all you can do?")
RegisterpUnitEvent ("HighlordMograine_Father")
end
function ScarletCommanderMograine_Spawn(pUnit, Event)
pUnit:SpawnCreature(16440, 35, 0)
HighlordMograine:EquipWeapons(7689, 0, 0)
PUnit:SendChatMessage (12, 0, "Father? How can it be?")
RegisterpUnitEvent ("HighlordMograine_Spawn")
end
function ScarletCommanderMograine(Unit, Event)
Unit:SendChatMessage (12, 0, "Father, please forgive me!")
Unit:Emote(20, 120000)
RegisterUnitEvent ("ScarletCommanderMograine")
end
function ScarletCommanderMograine_pwnage(pUnit, Event)
pUnit:SetCombatTargetingCapable(1)
Highlord_Mograine:Emote(25, 120000)
pUnit:FullCastSpell(5, 0)
HighlordMograine:SendChatMessage (12, 0, "You are forgiven....")
RegisterpUnitEvent ("ScarletCommanderMograine_pwnage")
end
end
RegisterUnitEvent(27156, 1, "ScarletCommanderMograine_OnCombat")
RegisterUnitEvent(27156, 2, "ScarletCommanderMograine_OnLeaveCombat")
RegisterUnitEvent(27156, 3, "ScarletCommanderMograine_OnKilledTarget")
RegisterUnitEvent(27156, 4, "ScarletCommanderMograine_OnSpawn")