LUA Bosse funktioniert nicht

function Ahenoth_onCombat(Unit, Event)
 Unit:SendChatMessage(14, 0, "Das ist ein AnfangsTest")
 Unit:RegisterEvent("Ahenoth_Phase1", 1000, 1)
end 

function Ahenoth_Phase1(Unit, Event)
 if Unit:GetHealthPct() < 95 then
Unit:RemoveEvents()
Unit:RegisterEvent("Phase1_spell1", 20000, 2)
 Unit:SendChatMessage(14, 0, "Das ist ein Phase1Test")
 Unit:RegisterEvent("Ahenoth_Phase2", 1000, 1)
end
end

function Phase1_spell1(Unit, Event)
 local spell1ziel = Unit:GetMainTank() 
if (spell1ziel~=nil) then
 Unit:FullCastSpellOnTarget(28478 , spell1ziel)
end
end


function Ahenoth_Phase2(Unit, Event)
 if Unit:GetHealthPct() < 50 then
Unit:RemoveEvents()
Unit:RegisterEvent("Phase2_spell1", 5000, 5)
Unit:SendChatMessage(14, 0, "Das ist ein Phase2Test")
Unit:RegisterEvent("Ahenoth_Phase3", 1000, 1)
 end
end



function Phase2_spell1(Unit, Event)
 local spell2ziel = Unit:GetClosestPlayer() 
if (spell2ziel~=nil) then
 Unit:FullCastSpellOnTarget(27808, spell2ziel)
 end
end


function Ahenoth_Phase3(Unit, Event)
if Unit:GetHealthPct() < 20 then
 Unit:RemoveEvents()
 Unit:RegisterEvent("Phase3_spell1", 25000, 1)
  Unit:RegisterEvent("Phase3_spell2", 15000, 2)
  Unit:SendChatMessage(14, 0, "Das ist ein Phase3Test")
end
end


function Phase3_spell1(Unit, Event)
local spell3ziel = Unit:GetRandomPlayer()
if (spell3ziel~=nil) then
 Unit:CastSpellOnTarget(27819, spell3ziel)
 end
end


function Phase3_spell2(Unit, Event)
 Unit:CastSpell(54123)
 end
 
 
 function Ahenoth_onKilledTarget(Unit, Event)
  Unit:SendChatMessage(14, 0, "KilledTargetTest")
 end

function Ahenoth_onLeaveCombat(Unit, Event)
Unit:RemoveEvents()
end

 function Ahenoth_onDied(Unit, Event)
Unit:RemoveEvents()
  Unit:SendChatMessage(14, 0, "Killtest")
end

RegisterUnitEvent(40230, 1, "Ahenoth_onCombat")
RegisterUnitEvent(40230, 2, "Ahenoth_onLeaveCombat")
RegisterUnitEvent(40230, 3, "Ahenoth_onKilledTarget")
RegisterUnitEvent(40230, 4, "Ahenoth_onDied")