Code:
function Carogon_OnCombat(Unit, Event)
Unit:SendChatMessage(12, 0, "Ahh Somthing Tastier Than These Gnarlpine")
Unit:RegisterEvent("Carogon_SoulBurn", 35000, 0)
Unit:RegisterEvent("Carogon_Thundercloud", 30000, 0)
Unit:RegisterEvent("Carogon_Fear", 18000, 0)
Unit:RegisterEvent("Carogon_Demonarmor", 15000, 0)
Unit:RegisterEvent("Carogon_Pull", 85000, 0)
Unit:RegisterEvent("Carogon_FrostVolly", 20000, 0)
Unit:RegisterEvent("Carogon_Chill", 13000, 0)
Unit:RegisterEvent("Carogon_Morph",1000,1)
end
function Carogon_SoulBurn(pUnit, Event)
pUnit:CastSpell(19393, pUnit:GetClosestPlayer(0))
end
function Carogon_Thundercloud(pUnit, Event)
pUnit:CastSpell(39580)
end
function Carogon_Fear(pUnit, Event)
pUnit:FullCastSpellOnTarget(26661, pUnit:GetClosestPlayer(0))
end
function Carogon_Demonarmor(pUnit, Event)
pUnit:CastSpell(31901)
end
function Carogon_Pull(pUnit, Event)
pUnit:CastSpell(29979, pUnit:GetRandomPlayer(0))
end
function Carogon_FrostVolly(pUnit, Event)
pUnit:FullCastSpellOnTarget(38837, pUnit:GetClosestPlayer(0))
end
function Carogon_Chill(pUnit, Event)
pUnit:CastSpellOnTarget(21098, pUnit:GetClosestPlayer(0))
end
function Carogon_Nova(pUnit, Event)
pUnit:CastSpell(38627)
end
function Carogon_Firevolley(pUnit, Event)
pUnit:CastSpell(29922)
end
function Carogon_BurnStun(pUnit, Event)
pUnit:FullCastSpellOnTarget(17293, pUnit:GetClosestPlayer(0))
end
function Carogon_Aurburn(pUnit, Event)
pUnit:CastSpell(30522)
end
function Carogon_SoulBurner(pUnit, Event)
pUnit:CastSpell(19393, pUnit:GetClosestPlayer(0))
end
function carogon_heal(pUnit, Event)
pUnit:CastSpell(17683)
end
function Carogon_Morph(pUnit, Event)
if pUnit:GetHealthPct() < 20 then
pUnit:RemoveEvents();
pUnit:SendChatMessage(12,0, "I WILL NOT BE KILLED BY SUCH WEAK MORTALS")
pUnit:FullCastSpell(36467)
pUnit:SetModel(10193)
pUnit:RegisterEvent("Carogon_Nova", 10000, 1)
pUnit:RegisterEvent("Carogon_Firevolley", 20000, 0)
pUnit:RegisterEvent("Carogon_BurnStun", 27000, 0)
pUnit:RegisterEvent("Carogon_Aurburn", 1000, 0)
pUnit:RegisterEvent("Carogon_Nova", 25000, 0)
pUnit:RegisterEvent("Carogon_SoulBurner", 15000, 0)
Unit:RegisterEvent("carogon_heal", 2000, 1)
end
end
function Carogon_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
pUnit:SetModel(15879)
end
function Carogon_OnDied(Unit, Event)
Unit:RemoveEvents()
Unit:SendChatMessage(12, 0, "NO THIS CANT BE I WILL NOT BELIVE IT SALIANA SAVE ME")
end
function Carogon_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "HA YOU THOUGH YOU COULD KILL ME")
end
RegisterUnitEvent(510030, 1, "Carogon_OnCombat")
RegisterUnitEvent(510030, 2, "Carogon_OnLeaveCombat")
RegisterUnitEvent(510030, 3, "Carogon_OnKilledTarget")
RegisterUnitEvent(510030, 4, "Carogon_OnDied")
main problems are frost volley, fire volley, fear, pull, burn stun, auraburn and chill dont cast and soul burn was hiting himself