Lua

[Ballwinkle]

function ScarletMansion_Boss1_OnCombat(Unit, event)
    Unit:SendChatMessage(12,0,"You will dead soon enough!")
    Unit:RegisterEvent("ScarletMansion_Boss1_Phase1",10000,0)
end


function ScarletMansion_Boss1_Phase1(pUnit, Event)
 if pUnit:GetHealthPct() < 90 then
  pUnit:RemoveEvents();
  pUnit:CastSpell(3635)
  pUnit:SendChatMessage(12,0,"This world if mine for the taking!!")
  Unit:RegisterEvent("ScarletMansion_Boss1_Phase2",1000,0)
 end
end


function ScarletMansion_Boss1_Phase2(pUnit, Event)
 if pUnit:GetHealthPct() < 70 then
  pUnit:RemoveEvents();
  Unit:RegisterEvent("ScarletMansion_Boss1_Charge",15000,0)
  pUnit:SendChatMessage(12,0,"Hurmm....you are stronger that i thought!!")
  Unit:RegisterEvent("ScarletMansion_Boss1_Phase3",1000,0)
 end
end

function ScarletMansion_Boss1_Charge(pUnit, event)
    local plr = pUnit:GetRandomPlayer(0)
   if (plr ~= nil) then
    pUnit:CastSpellOnTarget(40602, plr) 
   end
end

function ScarletMansion_Boss1_Phase3(pUnit, Event)
 if pUnit:GetHealthPct() < 50 then
  pUnit:RemoveEvents();
  pUnit:CastSpell(19703)    
  pUnit:SendChatMessage(12,0,"This is just the begining!!")
  Unit:RegisterEvent("ScarletMansion_Boss1_Phase4",1000,0)
 end
end

function ScarletMansion_Boss1_Phase3(pUnit, Event)
 if pUnit:GetHealthPct() < 50 then
  pUnit:RemoveEvents();
  pUnit:CastSpell(19703)    
  pUnit:SendChatMessage(12,0,"This is just the begining!!")
  Unit:RegisterEvent("ScarletMansion_Boss1_Phase4",1000,0)
 end
end

function ScarletMansion_Boss1_Phase4(pUnit, Event)
 if pUnit:GetHealthPct() < 20 then
  pUnit:RemoveEvents();
  pUnit:CastSpell(9163)    
  Unit:SendChatMessage(12,0,"I Will not be defeated!")
 end
end


function ScarletMansion_Boss1_OnDied(Unit)
    Unit:RemoveEvents()    
    Unit:SendChatMessage(12,0,"Death will come for you...")
end

function ScarletMansion_Boss1_OnKilledTarget(Unit)
    Unit:SendChatMessage(12,0,"To easy!")
end

function ScarletMansion_Boss1_OnLeaveCombat(Unit)
    Unit:RemoveEvents()
end

RegisterUnitEvent(302001,1,"ScarletMansion_Boss1_OnCombat")
RegisterUnitEvent(302001,2,"ScarletMansion_Boss1_OnLeaveCombat")
RegisterUnitEvent(302001,3,"ScarletMansion_Boss1_OnKilledTarget")
RegisterUnitEvent(302001,4,"ScarletMansion_Boss1_OnDied")

I will +Rep x2

it wonr go from stage 1 -> 2

':12: calling 'RegisterEvent' on bad self <Unit expected, got table>'

[Lich King]

Umm.. what do you want us to do?

[Ballwinkle]

it wonr go from stage 1 -> 2

':12: calling 'RegisterEvent' on bad self <Unit expected, got table>'

[Snailz]

Will it do phase 1 ?

[Snailz]

Also Try Useing pUnit Instead of Unit

[Ballwinkle]

yea

it errors on line 12

[Lich King]

Try this, I changed a few things, I'm still looking for some errors. But try this first:

function ScarletMansion_Boss1_OnCombat(Unit, event)
 pUnit:SendChatMessage(12, 0, "You will dead soon enough!")
 pUnit:RegisterEvent("ScarletMansion_Boss1_Phase1",10000, 0)
end


function ScarletMansion_Boss1_Phase1(pUnit, Event)
 if pUnit:GetHealthPct() < 90 then
  pUnit:RemoveEvents();
  pUnit:FullCastSpell(3635)
  pUnit:SendChatMessage(12, 0, "This world if mine for the taking!!")
  pUnit:RegisterEvent("ScarletMansion_Boss1_Phase2",1000, 0)
 end
end


function ScarletMansion_Boss1_Phase2(pUnit, Event)
 if pUnit:GetHealthPct() < 70 then
  pUnit:RemoveEvents();
  pUnit:RegisterEvent("ScarletMansion_Boss1_Charge",15000,0)
  pUnit:SendChatMessage(12, 0, "Hurmm....you are stronger that i thought!!")
  pUnit:RegisterEvent("ScarletMansion_Boss1_Phase3",1000, 0)
 end
end

function ScarletMansion_Boss1_Charge(pUnit, event)
    local plr = pUnit:GetRandomPlayer(0)
   if (plr ~= nil) then
    pUnit:FullCastSpellOnTarget(40602, plr) 
   end
end

function ScarletMansion_Boss1_Phase3(pUnit, Event)
 if pUnit:GetHealthPct() < 50 then
  pUnit:RemoveEvents();
  pUnit:FullCastSpell(19703)    
  pUnit:SendChatMessage(12, 0, "This is just the begining!!")
  pUnit:RegisterEvent("ScarletMansion_Boss1_Phase4",1000, 0)
 end
end

function ScarletMansion_Boss1_Phase3(pUnit, Event)
 if pUnit:GetHealthPct() < 50 then
  pUnit:RemoveEvents();
  pUnit:FullCastSpell(19703)    
  pUnit:SendChatMessage(12, 0, "This is just the begining!!")
  pUnit:RegisterEvent("ScarletMansion_Boss1_Phase4",1000, 0)
 end
end

function ScarletMansion_Boss1_Phase4(pUnit, Event)
 if pUnit:GetHealthPct() < 20 then
  pUnit:RemoveEvents();
  pUnit:FullCastSpell(9163)    
  pUnit:SendChatMessage(12, 0, "I Will not be defeated!")
 end
end


function ScarletMansion_Boss1_OnDied(Unit)
 pUnit:RemoveEvents()    
 pUnit:SendChatMessage(12, 0, "Death will come for you...")
end

function ScarletMansion_Boss1_OnKilledTarget(Unit)
 pUnit:SendChatMessage(12, 0, "To easy!")
end

function ScarletMansion_Boss1_OnLeaveCombat(Unit)
 pUnit:RemoveEvents()
end

RegisterUnitEvent(302001, 1, "ScarletMansion_Boss1_OnCombat")
RegisterUnitEvent(302001, 2, "ScarletMansion_Boss1_OnLeaveCombat")
RegisterUnitEvent(302001, 3, "ScarletMansion_Boss1_OnKilledTarget")
RegisterUnitEvent(302001, 4, "ScarletMansion_Boss1_OnDied")

EDIT: Changed a few more things

[Snailz]

Gah That makes no sence. Erroring On a Entry Phase >.<

Id try using pUnit First.

[Lich King]

I tried mine, and there were no errors loading it. Try it out in-game

[Snailz]

It seems like a Perfectly fine script.

[TheSpidey]

You used Unit where pUnit was needed.

[EcHoEs]

Excactly what Spidey said ^^