Lua Script Problem

[Diemen]

Hey ..

I Made a new script for my Custom boss but when i start world.exe this Error comes up.

scripts\BOSS_Darnassus_Lucius.lua:26:  '<name>' expected near '0'

This is My Script :

function Lucius_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Die you foul humans !")
Unit:RegisterEvent("Lucius_Summon1", 12000, 4)
Unit:RegisterEvent("Lucius_Summon2", 12000, 5)
Unit:RegisterEvent("Lucius_Phase1", 2000, 2)
Unit:RegisterEvent("Lucius_Phase2", 2000, 4)
Unit:RegisterEvent("Lucius_Phase3", 200000, 6)
Unit:RegisterEvent("Lucius_Phase4", 30009, 1)
Unit:RegisterEvent("Lucius_Phase5", 2000, 2)
Unit:RegisterEvent("Lucius_Phase6", 2000, 1)
Unit:RegisterEvent("Lucius_Phase7", 200, 2)
Unit:RegisterEvent("Lucius_Phase8", 20000, 1)
Unit:RegisterEvent("Lucius_Phase9", 20000, 1)
end

function Lucius_Phase1(Unit, Event)
if Unit:GetHealthPct() <= 90 then
Unit:SendChatMessage(14, 0, "TAKE THIS !")
Unit:CastSpell(42945)
end
end

function Lucius_Phase2(Unit, Event)
if Unit:GetHealthPct() <= 80 then
Unit:SendChatMessage(14, 0, "YOU ARE SO WEAK !")
Unit:FullCastSpellOnTarget(48127, Unit:0)
end
end

function Lucius_Summon1(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
end

function Lucius_Phase3(Unit, Event)
if Unit:GetHealthPct() <= 70 then
Unit:SendChatMessage(14, 0, "KNEEL FOR ME YOU STUPID HUMANS")
Unit:CastSpell(42921)
end
end

function Lucius_Phase4(Unit, Event)
if Unit:GetHealthPct() <= 60 then
Unit:SendChatMessage(14, 0, "Enough of this ! , UNGREADIAL TRANSFORM !")
Unit:SetModel(14508)
Unit:SetScale(2)
Unit:CastSpell(42926)
end
end

function Lucius_Phase5(Unit, Event)
if Unit:GetHealthPct() <= 50 then
Unit:SendChatMessage(14, 0, "NO ONE CAN STOP ME !")
Unit:CastSpell(42950)
end
end

function Lucius_Summon2(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
end

function Lucius_Phase6(Unit, Event)
if Unit:GetHealthPct() <= 40 then
Unit:SendChatMessage(12, 0, "UNGREADIAL TRANSFORM !")
Unit:SetModel(1126)
Unit:SetScale(3)
Unit:CastSpell(42931)
end
end

function Lucius_Phase7(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:SendChatMessage(14, 0, "FEEL THE POWER OF A TRUE GOD !")
Unit:FullCastSpellOnTarget(5, Unit:0)
end
end


function Lucius_Phase8(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:SendChatMessage(14, 0, "NO NO NO! I WON'T DIE ! ,UNGREADIAL TRANSFORM !")
Unit:SetModel(10315)
Unit:CastSpell(59159)
end
end

function Lucius_Phase9(Unit, Event)
if Unit:GetHealthPct() <= 5 then
Unit:SendChatMessage(14, 0, "THIS CAN'T BE TRUE ! NOOOOOOOO.....")
Unit:CastSpell(61721)
end
end

function Lucius_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "Haha you weaklings !")
end

function Lucius_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "Kneel for your god !") 
end

function Lucius_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "No..... SARCIUS !!!!!!!")
Unit:RemoveEvents()
end

RegisterUnitEvent(210801, 1, "Lucius_OnCombat")
RegisterUnitEvent(210801, 2, "Lucius_OnLeaveCombat")
RegisterUnitEvent(210801, 3, "Lucius_OnKilledTarget")
RegisterUnitEvent(210801, 4, "Lucius_OnDied")

Could some one take a look at it please ? i can't find where the error Comes from..

Thnx !

[Ground Zero]

Fixed for you. Take a look at the comment I left on line 26.
Lua pastebin - collaborative debugging tool

[Diemen]

Thnx it works fine now

[Diemen]

Ohh i need some more help now !

When i Spawn my Npc it does all the Phases and Chat stuff all at once, how can i prevent this ?

[Ground Zero]

You registered your function OnCombat but you didn't make it above so it's doing it all at once.

function Lucius_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "I eat your babies blah blah")
Unit:RegisterEvent("Lucius_Phase1")
end

RegisterUnitEvent(210801, 1, "Lucius_OnCombat")

[Diemen]

Ahh oke Thnx ! (Y) I'll try this

[Diemen]

Some thing like This ?

function Lucius_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Die you foul humans !")
Unit:RegisterEvent("Lucius_Summon1", 12000, 4)
Unit:RegisterEvent("Lucius_Summon2", 12000, 5)
Unit:RegisterEvent("Lucius_Phase1", 2000, 2)
Unit:RegisterEvent("Lucius_Phase2", 2000, 4)
Unit:RegisterEvent("Lucius_Phase3", 200000, 6)
Unit:RegisterEvent("Lucius_Phase4", 30009, 1)
Unit:RegisterEvent("Lucius_Phase5", 2000, 2)
Unit:RegisterEvent("Lucius_Phase6", 2000, 1)
Unit:RegisterEvent("Lucius_Phase7", 200, 2)
Unit:RegisterEvent("Lucius_Phase8", 20000, 1)
Unit:RegisterEvent("Lucius_Phase9", 20000, 1)
end

RegisterUnitEvent(210801, 1, "Lucius_OnCombat")

function Lucius_Phase1(Unit, Event)
if Unit:GetHealthPct() <= 90 then
Unit:SendChatMessage(14, 0, "TAKE THIS !")
Unit:CastSpell(42945)
end
end

function Lucius_Phase2(Unit, Event)
if Unit:GetHealthPct() <= 80 then
Unit:SendChatMessage(14, 0, "YOU ARE SO WEAK !")
Unit:FullCastSpellOnTarget(48127) Unit:GetMainTank(0)
end
end

function Lucius_Summon1(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
end

function Lucius_Phase3(Unit, Event)
if Unit:GetHealthPct() <= 70 then
Unit:SendChatMessage(14, 0, "KNEEL FOR ME YOU STUPID HUMANS")
Unit:CastSpell(42921)
end
end

function Lucius_Phase4(Unit, Event)
if Unit:GetHealthPct() <= 60 then
Unit:SendChatMessage(14, 0, "Enough of this ! , UNGREADIAL TRANSFORM !")
Unit:SetModel(14508)
Unit:SetScale(2)
Unit:CastSpell(42926)
end
end

function Lucius_Phase5(Unit, Event)
if Unit:GetHealthPct() <= 50 then
Unit:SendChatMessage(14, 0, "NO ONE CAN STOP ME !")
Unit:CastSpell(42950)
end
end

function Lucius_Summon2(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
end

function Lucius_Phase6(Unit, Event)
if Unit:GetHealthPct() <= 40 then
Unit:SendChatMessage(12, 0, "UNGREADIAL TRANSFORM !")
Unit:SetModel(1126)
Unit:SetScale(3)
Unit:CastSpell(42931)
end
end

function Lucius_Phase7(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:SendChatMessage(14, 0, "FEEL THE POWER OF A TRUE GOD !")
Unit:FullCastSpellOnTarget(5) Unit:GetMainTank(0)
end
end


function Lucius_Phase8(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:SendChatMessage(14, 0, "NO NO NO! I WON'T DIE ! ,UNGREADIAL TRANSFORM !")
Unit:SetModel(10315)
Unit:CastSpell(59159)
end
end

function Lucius_Phase9(Unit, Event)
if Unit:GetHealthPct() <= 5 then
Unit:SendChatMessage(14, 0, "THIS CAN'T BE TRUE ! NOOOOOOOO.....")
Unit:CastSpell(61721)
end
end


function Lucius_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "Haha you weaklings !")
end

RegisterUnitEvent(210801, 2, "Lucius_OnLeaveCombat")

function Lucius_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "Kneel for your god !") 
end

RegisterUnitEvent(210801, 3, "Lucius_OnKilledTarget")

function Lucius_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "No..... SARCIUS !!!!!!!")
Unit:RemoveEvents()
end

RegisterUnitEvent(210801, 4, "Lucius_OnDied")

Sorry if i did it rong , still need to learn alot about lua.

[Ground Zero]

No No, do what I did just at the bottom of your script.

Here's a example of a boss script I did, nothing speical but the phases work.

function zzzGossipMenu (Unit, event, player)
    Unit:GossipCreateMenu(100, player, 0)
    Unit:GossipMenuAddItem(3, "It's time for you to die Kil' Jia!", 300, 0)
    Unit:GossipMenuAddItem(3, "Nevermind", 301, 0)
    Unit:GossipSendMenu(player)
end 

function zZGossipMenu (Unit, event, player, id, intid, code)
    if (intid == 300) then
        Unit:SendChatMessage(14, 0, "You will suffer for this trespass!!")
        Unit:SetFaction(17)
        Unit:SetScale(1.5)
        Unit:PlaySoundToSet(15552)
        Unit:SetMana(100000)
        Unit:RegisterEvent("zzOnCombat", 1000, 0)
    end
    
    if (intid == 301) then
        player:GossipComplete()
    end
end

function zzphase1(Unit, event)
    if Unit:GetHealthPct() <90 then
        Unit:RemoveEvents()
        x = Unit:GetX();
        y = Unit:GetY();
        z = Unit:GetZ();
        Unit:CastSpellAoF(x, y, z, 19717)
        Unit:SendChatMessage(14, 0, "I will crush you!")
        Unit:PlaySoundToSet(12460)
        Unit:SetMana(100000)
        Unit:RegisterEvent("zzphase2", 1000, 0)
    end
end

function zzphase2(Unit, event)
    if Unit:GetHealthPct() <70 then
        Unit:RemoveEvents()
        Unit:CastSpell(48582)
        Unit:CastSpell(48582)
        Unit:SetMana(100000)
        Unit:FullCastSpell(41078)
        Unit:SendChatMessage(14, 0, "Rooooaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaagh!")
        Unit:PlaySoundToSet(15556)
        Unit:RegisterEvent("zzphase3", 2000, 0)
    end
end

function zzphase3(Unit, event)
    if Unit:GetHealthPct() <50 then
        Unit:RemoveEvents()
        Unit:CastSpell(48582)
        Unit:SendChatMessage(14, 0, "ENOUGH! THIS ENDS NOW!")
        Unit:PlaySoundToSet(12135)
        Unit:PlaySoundToSet(15558)
        Unit:SetMana(100000)
        x = Unit:GetX();
        y = Unit:GetY();
        z = Unit:GetZ();
        o = Unit:GetO();
        x = x - 2
        y = y - 2
        Unit:SpawnCreature(34501, x, y, z, o, 17, 450000);
        x = x + 4
        y = y + 4
        Unit:SpawnCreature(34501, x, y, z, o, 17, 450000); 
        Unit:SpawnCreature(34501, x, y, z, o, 17, 450000);
        Unit:SpawnCreature(34501, x, y, z, o, 17, 450000);
        Unit:RegisterEvent("zzphase4", 3000, 0)
    end
end

function zzphase4(Unit, event)
    if Unit:GetHealthPct() <35 then
        Unit:RemoveEvents()
        Unit:SetMana(100000)
        Unit:SendChatMessage(14, 0, "INSOLENT WHELPS! YOUR BLOOD WILL TEMPER THE WEAPON USED TO RECLAIM THIS WORLD!")
        Unit:PlaySoundToSet(15564)
        Unit:CastSpell(15716)
        Unit:RegisterEvent("zzphase5", 4000, 0)
    end
end

function zzphase5(Unit, event)
    if Unit:GetHealthPct() <25 then
        Unit:RemoveEvents()
        Unit:SetMana(100000)
        Unit:SendChatMessage(14, 0, "Do not harbor false hope, you can not win!")
        Unit:PlaySoundToSet(12509)
        Unit:RegisterEvent("zzphase6", 5000, 0)
    end
end

function zzphase6(Unit, event)
    if Unit:GetHealthPct() <10 then
        Unit:SetMana(100000)
        Unit:SendChatMessage(42, 0, "Kij' Jia suffers a heavy blow!")
    end
end

function zzOnLeaveCombat(unit, event)
    unit:SetScale(1)
    unit:SetFaction(35)
    unit:SetNPCFlags(1)
end

function zzOnCombat(unit, event)
    unit:RegisterEvent("zzphase1", 1000, 1)
    unit:SetMana(100000)
end

function zzOnKillTarget(unit, event)
    local choice = math.random(1,2)
        if choice == 1 then
            unit:SendChatMessage(14, 0, "Another Trophie to add to my collection!")
            unit:PlaySoundToSet(9300)
            unit:SetMana(100000)
            else
            unit:SendChatMessage(14, 0, "Too Easy!")
            unit:PlaySoundToSet(12466)
            unit:SetMana(100000)
        end
end

function zzOnDeath(unit, event)
    unit:PlaySoundToSet(12007)
end

RegisterUnitEvent(34500, 4, "zzOnDeath")
RegisterUnitEvent(34500, 3, "zzOnKillTarget")
RegisterUnitEvent(34500, 2, "zzOnLeaveCombat")
RegisterUnitEvent(34500, 1, "zzOnCombat")
RegisterUnitGossipEvent(34500, 1, "zzzGossipMenu")
RegisterUnitGossipEvent(34500, 2, "zZGossipMenu")

See how I made the function zzOnCombat to register the next function Phase1 otherwise it would just start off on Phase1 and run through.

[Diemen]

Ahh now i get it .... i think haha

So i need to Register each Phase at the one before it ?

Like this
function Lucius_Phase2(Unit, Event)
if Unit:GetHealthPct() <= 80 then
Unit:SendChatMessage(14, 0, "YOU ARE SO WEAK !")
Unit:FullCastSpellOnTarget(48127) Unit:GetMainTank(0)
Unit:RegisterEvent("Lucius_phase3", 4000, 0)
end
end

[Ground Zero]

Yea, just follow the basic layout and you will be fine.

[Diemen]

This is Going to do the Job now right ?

function Lucius_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Die you foul humans !")
Unit:RegisterEvent("Lucius_Phase1", 2000, 2)
end

RegisterUnitEvent(210801, 1, "Lucius_OnCombat")

function Lucius_Phase1(Unit, Event)
if Unit:GetHealthPct() <= 90 then
Unit:SendChatMessage(14, 0, "TAKE THIS !")
Unit:CastSpell(42945)
Unit:RegisterEvent("Lucius_Phase2", 2000, 4)
end
end

function Lucius_Phase2(Unit, Event)
if Unit:GetHealthPct() <= 80 then
Unit:SendChatMessage(14, 0, "YOU ARE SO WEAK !")
Unit:FullCastSpellOnTarget(48127) Unit:GetMainTank(0)
Unit:RegisterEvent("Lucius_Summon1", 12000, 1
end
end

function Lucius_Summon1(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
Unit:SendChatMessage(12, 0, "Let's see if you can handle this !")
Unit:RegisterEvent("Lucius_Phase3", 200000, 6)
end

function Lucius_Phase3(Unit, Event)
if Unit:GetHealthPct() <= 70 then
Unit:SendChatMessage(14, 0, "KNEEL FOR ME YOU STUPID HUMANS")
Unit:CastSpell(42921)
Unit:RegisterEvent("Lucius_Phase4", 30009, 1)
end
end

function Lucius_Phase4(Unit, Event)
if Unit:GetHealthPct() <= 60 then
Unit:SendChatMessage(14, 0, "Enough of this ! , UNGREADIAL TRANSFORM !")
Unit:SetModel(14508)
Unit:SetScale(2)
Unit:CastSpell(42926)
Unit:RegisterEvent("Lucius_Phase5", 2000, 2)
end
end

function Lucius_Phase5(Unit, Event)
if Unit:GetHealthPct() <= 50 then
Unit:SendChatMessage(14, 0, "NO ONE CAN STOP ME !")
Unit:CastSpell(42950)
Unit:RegisterEvent("Lucius_Summon2", 12000, 5)
end
end

function Lucius_Summon2(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000);
Unit:RegisterEvent("Lucius_Phase6", 2000, 1)
end

function Lucius_Phase6(Unit, Event)
if Unit:GetHealthPct() <= 40 then
Unit:SendChatMessage(12, 0, "UNGREADIAL TRANSFORM !")
Unit:SetModel(1126)
Unit:SetScale(3)
Unit:CastSpell(42931)
Unit:RegisterEvent("Lucius_Phase7", 200, 2)
end
end

function Lucius_Phase7(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:SendChatMessage(14, 0, "FEEL THE POWER OF A TRUE GOD !")
Unit:FullCastSpellOnTarget(5) Unit:GetMainTank(0)
Unit:RegisterEvent("Lucius_Phase8", 20000, 1)
end
end


function Lucius_Phase8(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:SendChatMessage(14, 0, "NO NO NO! I WON'T DIE ! ,UNGREADIAL TRANSFORM !")
Unit:SetModel(10315)
Unit:CastSpell(59159)
Unit:RegisterEvent("Lucius_Phase8", 20000, 1)
end
end

function Lucius_Phase9(Unit, Event)
if Unit:GetHealthPct() <= 5 then
Unit:SendChatMessage(14, 0, "THIS CAN'T BE TRUE ! NOOOOOOOO.....")
Unit:CastSpell(61721)
end
end


function Lucius_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "Haha you weaklings !")
end

RegisterUnitEvent(210801, 2, "Lucius_OnLeaveCombat")

function Lucius_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "Kneel for your god !") 
end

RegisterUnitEvent(210801, 3, "Lucius_OnKilledTarget")

function Lucius_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "No..... SARCIUS !!!!!!!")
Unit:RemoveEvents()
end

RegisterUnitEvent(210801, 4, "Lucius_OnDied")

+++RepFor your help

[stoneharry]

function Lucius_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Die you foul humans !")
Unit:RegisterEvent("Lucius_Phase1", 2000, 0)
end

RegisterUnitEvent(210801, 1, "Lucius_OnCombat")

function Lucius_Phase1(Unit, Event)
if Unit:GetHealthPct() <= 90 then
Unit:SendChatMessage(14, 0, "TAKE THIS !")
Unit:CastSpell(42945)
Unit:RemoveEvents() -- Stop the last repeating
Unit:RegisterEvent("Lucius_Phase2", 2000, 0) -- next
end
end

function Lucius_Phase2(Unit, Event)
if Unit:GetHealthPct() <= 80 then
Unit:SendChatMessage(14, 0, "YOU ARE SO WEAK !")
Unit:FullCastSpellOnTarget(48127, Unit:GetMainTank(0)) -- You missed the closing )
Unit:RemoveEvents() -- Stop the last repeating
Unit:RegisterEvent("Lucius_Summon1", 12000, 1) -- missed the closing ) again
end
end

function Lucius_Summon1(Unit, Event)
local x = Unit:GetX()
local y = Unit:GetY()
local z = Unit:GetZ() -- We don't need ; this isn't C++
local o = Unit:GetO()
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000) -- npcid, x, y, z, o, faction, time (correct I think)
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:SendChatMessage(12, 0, "Let's see if you can handle this !")
Unit:RegisterEvent("Lucius_Phase3", 30000, 0) -- 200000 is a VERY long time, shortened it
end

function Lucius_Phase3(Unit, Event)
if Unit:GetHealthPct() <= 70 then
Unit:RemoveEvents() -- Stop last register repeating
Unit:SendChatMessage(14, 0, "KNEEL FOR ME YOU STUPID HUMANS")
Unit:CastSpell(42921)
Unit:RegisterEvent("Lucius_Phase4", 30009, 1)
end
end

function Lucius_Phase4(Unit, Event)
if Unit:GetHealthPct() <= 60 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Enough of this ! , UNGREADIAL TRANSFORM !")
Unit:SetModel(14508)
Unit:SetScale(2)
Unit:CastSpell(42926)
Unit:RegisterEvent("Lucius_Phase5", 2000, 0)
end
end

function Lucius_Phase5(Unit, Event)
if Unit:GetHealthPct() <= 50 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "NO ONE CAN STOP ME !")
Unit:CastSpell(42950)
Unit:RegisterEvent("Lucius_Summon2", 12000, 0)
end
end

function Lucius_Summon2(Unit, Event)
Unit:RemoveEvents()
local x = Unit:GetX()
local y = Unit:GetY()
local z = Unit:GetZ() -- Again this isn't C++ no ;
local o = Unit:GetO()
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:RegisterEvent("Lucius_Phase6", 2000, 0)
end

function Lucius_Phase6(Unit, Event)
if Unit:GetHealthPct() <= 40 then
Unit:RemoveEvents()
Unit:SendChatMessage(12, 0, "UNGREADIAL TRANSFORM !")
Unit:SetModel(1126)
Unit:SetScale(3)
Unit:CastSpell(42931)
Unit:RegisterEvent("Lucius_Phase7", 2000, 0) -- You missed a 0 on 200
end
end

function Lucius_Phase7(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "FEEL THE POWER OF A TRUE GOD !")
Unit:FullCastSpellOnTarget(5, Unit:GetMainTank(0)) -- Missed the closing )
Unit:RegisterEvent("Lucius_Phase8", 20000, 0)
end
end


function Lucius_Phase8(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:SendChatMessage(14, 0, "NO NO NO! I WON'T DIE ! ,UNGREADIAL TRANSFORM !")
Unit:SetModel(10315)
Unit:RemoveEvents()
Unit:CastSpell(59159)
Unit:RegisterEvent("Lucius_Phase8", 2000, 0)
end
end

function Lucius_Phase9(Unit, Event)
if Unit:GetHealthPct() <= 5 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "THIS CAN'T BE TRUE ! NOOOOOOOO.....")
Unit:CastSpell(61721)
end
end


function Lucius_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "Haha you weaklings !")
end

RegisterUnitEvent(210801, 2, "Lucius_OnLeaveCombat")

function Lucius_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "Kneel for your god !") 
end

RegisterUnitEvent(210801, 3, "Lucius_OnKilledTarget")

function Lucius_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "No..... SARCIUS !!!!!!!")
Unit:RemoveEvents()
end

RegisterUnitEvent(210801, 4, "Lucius_OnDied")

Fixed it up for you and added comments on what you had wrong.

[Diemen]

Thnx Both of you

[Diemen]

function Lucius_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Die you foul humans !")
Unit:RegisterEvent("Lucius_Phase1", 2000, 0)
end

RegisterUnitEvent(210801, 1, "Lucius_OnCombat")

function Lucius_Phase1(Unit, Event)
if Unit:GetHealthPct() <= 90 then
Unit:SendChatMessage(14, 0, "TAKE THIS !")
Unit:CastSpell(42945)
Unit:RemoveEvents() -- Stop the last repeating
Unit:RegisterEvent("Lucius_Phase2", 2000, 0) -- next
end
end

function Lucius_Phase2(Unit, Event)
if Unit:GetHealthPct() <= 80 then
Unit:SendChatMessage(14, 0, "YOU ARE SO WEAK !")
Unit:FullCastSpellOnTarget(48127, Unit:GetMainTank(0)) -- You missed the closing )
Unit:RemoveEvents() -- Stop the last repeating
Unit:RegisterEvent("Lucius_Summon1", 12000, 1) -- missed the closing ) again
end
end

function Lucius_Summon1(Unit, Event)
local x = Unit:GetX()
local y = Unit:GetY()
local z = Unit:GetZ() -- We don't need ; this isn't C++
local o = Unit:GetO()
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000) -- npcid, x, y, z, o, faction, time (correct I think)
Unit:SpawnCreature (210803, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:SendChatMessage(12, 0, "Let's see if you can handle this !")
Unit:RegisterEvent("Lucius_Phase3", 30000, 0) -- 200000 is a VERY long time, shortened it
end

function Lucius_Phase3(Unit, Event)
if Unit:GetHealthPct() <= 70 then
Unit:RemoveEvents() -- Stop last register repeating
Unit:SendChatMessage(14, 0, "KNEEL FOR ME YOU STUPID HUMANS")
Unit:CastSpell(42921)
Unit:RegisterEvent("Lucius_Phase4", 30009, 1)
end
end

function Lucius_Phase4(Unit, Event)
if Unit:GetHealthPct() <= 60 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Enough of this ! , UNGREADIAL TRANSFORM !")
Unit:SetModel(14508)
Unit:SetScale(2)
Unit:CastSpell(42926)
Unit:RegisterEvent("Lucius_Phase5", 2000, 0)
end
end

function Lucius_Phase5(Unit, Event)
if Unit:GetHealthPct() <= 50 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "NO ONE CAN STOP ME !")
Unit:CastSpell(42950)
Unit:RegisterEvent("Lucius_Summon2", 12000, 0)
end
end

function Lucius_Summon2(Unit, Event)
Unit:RemoveEvents()
local x = Unit:GetX()
local y = Unit:GetY()
local z = Unit:GetZ() -- Again this isn't C++ no ;
local o = Unit:GetO()
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:SpawnCreature (210804, 10149.490234, 2551.358887, 1321.909180, 3.536894, 14 ,120000)
Unit:RegisterEvent("Lucius_Phase6", 2000, 0)
end

function Lucius_Phase6(Unit, Event)
if Unit:GetHealthPct() <= 40 then
Unit:RemoveEvents()
Unit:SendChatMessage(12, 0, "UNGREADIAL TRANSFORM !")
Unit:SetModel(1126)
Unit:SetScale(3)
Unit:CastSpell(42931)
Unit:RegisterEvent("Lucius_Phase7", 2000, 0) -- You missed a 0 on 200
end
end

function Lucius_Phase7(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "FEEL THE POWER OF A TRUE GOD !")
Unit:FullCastSpellOnTarget(5, Unit:GetMainTank(0)) -- Missed the closing )
Unit:RegisterEvent("Lucius_Phase8", 20000, 0)
end
end


function Lucius_Phase8(Unit, Event)
if Unit:GetHealthPct() <= 25 then
Unit:SendChatMessage(14, 0, "NO NO NO! I WON'T DIE ! ,UNGREADIAL TRANSFORM !")
Unit:SetModel(10315)
Unit:RemoveEvents()
Unit:CastSpell(59159)
Unit:RegisterEvent("Lucius_Phase8", 2000, 0)
end
end

function Lucius_Phase9(Unit, Event)
if Unit:GetHealthPct() <= 5 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "THIS CAN'T BE TRUE ! NOOOOOOOO.....")
Unit:CastSpell(61721)
end
end


function Lucius_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "Haha you weaklings !")
end

RegisterUnitEvent(210801, 2, "Lucius_OnLeaveCombat")

function Lucius_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "Kneel for your god !") 
end

RegisterUnitEvent(210801, 3, "Lucius_OnKilledTarget")

function Lucius_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "No..... SARCIUS !!!!!!!")
Unit:RemoveEvents()
end

RegisterUnitEvent(210801, 4, "Lucius_OnDied")

It still Uses all :S

Not all at once but in parts. :S

The HealthPCt does not work i think...

What can i do about this ?

[Ground Zero]

Try it with <90 instead of <= 90.