function Sartharion_OnCombat(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Meine Aufgabe ist es \195\188ber diese Eier zuwachen. Kommt ihnen zunahe und von Euch bleibt nur ein H\195\164uflein Asche!")
    pUnit:PlaySoundToSet(14093)
    pUnit:RegisterEvent("Sartharion_80", 1000, 0)
end

function Sartharion_80(pUnit, Event)
    if (pUnit:GetHealthPct() <= 80) then
	    pUnit:RegisterEvent("Sartharion_60", 2000, 0)
        pUnit:RegisterEvent("Sartharion80", 2000, 1)
		pUnit:RegisterEvent("Vesperon80", 5500, 1)
		pUnit:RegisterEvent("RemoveEvents", 1500, 1)
		local x = pUnit:GetX()
		local y = pUnit:GetY()
		local z = pUnit:GetZ()
		local o = pUnit:GetO()
		pUnit:SpawnCreature(99201, x, y, z, o, 18, 0)
    end
end

function Sartharion80(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Ihr werdet ein k\195\182stliches Mahl f\195\188r die Brut abgeben!")
    pUnit:PlaySoundToSet(14094)
	pUnit:RegisterEvent("Vesperon80", 2500, 1)
end

function Sartharion_60(pUnit, Event)
    if (pUnit:GetHealthPct() <= 60) then
		pUnit:RegisterEvent("Sartharion_40", 2000,0)
        pUnit:RegisterEvent("Sartharion60", 2000, 1)
		pUnit:RegisterEvent("Shadron60", 2500, 1)
		pUnit:RegisterEvent("RemoveEvents", 1500, 1)
		local x1 = pUnit:GetX()
		local y2 = pUnit:GetY()
		local z3 = pUnit:GetZ()
		local o4 = pUnit:GetO()
		pUnit:SpawnCreature(99202, x1, y2, z3, o4, 18, 0)
	end
end

function Sartharion60(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Brennt ihr armseeligen Wichte!")
    pUnit:PlaySoundToSet(14098)
	pUnit:RegisterEvent("Shadron60", 2500, 1)
end

function Sartharion_40(pUnit, Event)
    if (pUnit:GetHealthPct() <= 40) then
		pUnit:RegisterEvent("Sartharion_20", 2000, 0)
        pUnit:RegisterEvent("Sartharion40", 2000, 1)
		pUnit:RegisterEvent("Tenebron40", 2500, 1)
		pUnit:RegisterEvent("RemoveEvents", 1500, 1)
		local x5 = pUnit:GetX()
		local y6 = pUnit:GetY()
		local z7 = pUnit:GetZ()
		local o8 = pUnit:GetO()
		pUnit:SpawnCreature(99203, x5, y6, z7, o8, 18, 0)
	end
end

function Sartharion40(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Wie leicht sie brennen, diese kleinen Maden!")
    pUnit:PlaySoundToSet(14099)
	pUnit:RegisterEvent("Tenebron40", 2500, 1)
end

function Sartharion_20(pUnit, Event)
    if (pUnit:GetHealthPct() <= 20) then
	    pUnit:RegisterEvent("RemoveEvents", 1500, 1)
        pUnit:RegisterEvent("Sartharion20", 2000, 1)
    end
end

function Sartharion20(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Nur mehr Eure verkohlten Knochen werden den Boden bedecken!")
    pUnit:PlaySoundToSet(14100)
end

function Sartharion_OnLeave(pUnit, Event)
local kill = math.random(1, 4)
    if (kill == 1) then
        pUnit:SendChatMessage(14, 0, "Ihr seid in einer todtraurigen Lage!")
        pUnit:PlaySoundToSet(14096)
    elseif (kill == 2) then
        pUnit:SendChatMessage(14, 0, "Wieviel Hitze k\195\182nnt ihr vertragen!?")
        pUnit:PlaySoundToSet(14101)
    elseif (kill == 3) then
        pUnit:SendChatMessage(14, 0, "Nur noch Asche wird \195\188brigbleiben!")
        pUnit:PlaySoundToSet(14102)
    elseif (kill == 4) then
        pUnit:SendChatMessage(14, 0, "Aus diesem Grund nennen wir Euch niedere Wesen!")
        pUnit:PlaySoundToSet(14097)
    end
	pUnit:RemoveEvents()
end

function Sartharion_OnKill(pUnit, Event)
end

function Sartharion_OnDead(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Dies ist der Preis.. des Versagens!")
    pUnit:PlaySoundToSet(14107)
    pUnit:RemoveEvents()
end

function Sartharion_OnSpawn(pUnit, Event)
end

function Vesperon80(pUnit, Event) --99201
    pUnit:SendChatMessage(14, 0, "Vesperon! Das Gelege ist in Gefahr. Helft mir!")
    pUnit:PlaySoundToSet(14104)
    pUnit:RemoveEvents()
end

function VesperonSpawn(pUnit, Event)
	local x = pUnit:GetX()
	local y = pUnit:GetY()
	local z = pUnit:GetZ()
	local o = pUnit:GetO()
	pUnit:SpawnCreature(99201, x, y, z, o, 18, 0)
end

function Shadron60(pUnit, Event) --99202
    pUnit:SendChatMessage(14, 0, "Shadron! Kommt zu mir. Der Sieg steht auf Messers Schneide!")
    pUnit:PlaySoundToSet(14105)
    pUnit:RemoveEvents()
end

function ShadronSpawn(pUnit, Event)
	local x = pUnit:GetX()
	local y = pUnit:GetY()
	local z = pUnit:GetZ()
	local o = pUnit:GetO()
	pUnit:SpawnCreature(99202, x, y, z, o, 18, 0)
end

function Tenebron40(pUnit, Event) --99203
    pUnit:SendChatMessage(14, 0, "Tenebron! Auch ihr sollt die Eier sch\195\188tzen!")
    pUnit:PlaySoundToSet(14106)
    pUnit:RemoveEvents()
end

function TenebronSpawn(pUnit, Event)
	local x = pUnit:GetX()
	local y = pUnit:GetY()
	local z = pUnit:GetZ()
	local o = pUnit:GetO()
	pUnit:SpawnCreature(99203, x, y, z, o, 18, 0)
end

function SartharionEnrageCounter(pUnit, Event)
    local enrage = 26527
    pUnit:CastSpell(enrage)
end

function RemoveEvents(pUnit, Event)
	pUnit:RemoveEvents()
end

RegisterUnitEvent(99200, 1, "Sartharion_OnCombat")
RegisterUnitEvent(99200, 2, "Sartharion_OnLeave")
RegisterUnitEvent(99200, 3, "Sartharion_OnKill")
RegisterUnitEvent(99200, 4, "Sartharion_OnDead")
RegisterUnitEvent(99200, 18, "Sartharion_OnSpawn")