scripting a boss

sufa · Spammer? Posts: 37 Join date: 2008-04-27

i need to script a custom boss and i am finding it hard can you make me the script?? if i tell you the details plssss

Darhan · Admin Posts: 63 Join date: 2008-04-23

http://lasp.forummotion.com/news-and-announcements-f1/request-scripts-t32.htm

or use this:

Code:

--Basic Boss Lua Script By Yerney
--It contains the Phase chain and it is nothing special
--You need to add spell function / spells your self, and text ofc :P
--Feel free to edit and use it without credit(Only the editable scripts, not the blizzlike)
--Enjoy!

function Boss_OnCombat(pUnit, Event)
pUnit:RegisterEvent("Boss_Phase2", 1000, 0)
end

function Boss_Phase2(pUnit, Event)
if pUnit:GetHealthPct() < 90 then
pUnit:RegisterEvent("Boss_Phase3", 1000, 0)
end
end

function Boss_Phase3(pUnit, Event)
if pUnit:GetHealthPct() < 80 then
pUnit:RegisterEvent("Boss_Phase4", 1000, 0)
end
end

function Boss_Phase4(pUnit, Event)
if pUnit:GetHealthPct() < 70 then
pUnit:RegisterEvent("Boss_Phase5", 1000, 0)
end
end

function Boss_Phase5(pUnit, Event)
if pUnit:GetHealthPct() < 60 then
pUnit:RegisterEvent("Boss_Phase6", 1000, 0)
end
end

function Boss_Phase6(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:RegisterEvent("Boss_Phase7", 1000, 0)
end
end

function Boss_Phase7(pUnit, Event)
if pUnit:GetHealthPct() < 40 then
pUnit:RegisterEvent("Boss_Phase8", 1000, 0)
end
end

function Boss_Phase8(pUnit, Event)
if pUnit:GetHealthPct() < 30 then
pUnit:RegisterEvent("Boss_Phase9", 1000, 0)
end
end

function Boss_Phase9(pUnit, Event)
if pUnit:GetHealthPct() < 20 then
pUnit:RegisterEvent("Boss_Phase10", 1000, 0)
end
end

function Boss_Phase10(pUnit, Event)
if pUnit:GetHealthPct() < 10 then
pUnit:RegisterEvent("Boss_Phase11", 1000, 0)
end
end

function Boss_Phase11(pUnit, Event)
if pUnit:GetHealthPct() < 5 then
pUnit:SendChatMessage(14, 0, "Text here plx")
end
end

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

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

function Boss_KilledTarget(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Owned")
end

RegisterUnitEvent(entryid, 1, "Boss_OnCombat")
RegisterUnitEvent(entryid, 2, "Boss_LeaveCombat")
RegisterUnitEvent(entryid, 3, "Boss_KilledTarget")
RegisterUnitEvent(entryid, 4, "Boss_Dead")

sufa · Spammer? Posts: 37 Join date: 2008-04-27

what are the commands to make boss talk and do i need to register it somewere?

sufa · Spammer? Posts: 37 Join date: 2008-04-27

ok i tryed this will it work?[code] function Boss_OnCombat(pUnit, Event)
Unit:SendChatMessage(12, 0 , "Welcome to your death!!!")
pUnit:RegisterEvent("Boss_Phase2", 1000, 0)
end

function Boss_Phase2(pUnit, Event)
if pUnit:GetHealthPct() < 90 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase3", 1000, 0)
end
end

function Boss_Phase3(pUnit, Event)
if pUnit:GetHealthPct() < 80 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase4", 1000, 0)
end
end

function Boss_Phase4(pUnit, Event)
if pUnit:GetHealthPct() < 70 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase5", 1000, 0)
end
end

function Boss_Phase5(pUnit, Event)
if pUnit:GetHealthPct() < 60 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase6", 1000, 0)
end
end

function Boss_Phase6(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase7", 1000, 0)
end
end

function Boss_Phase7(pUnit, Event)
if pUnit:GetHealthPct() < 40 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase8", 1000, 0)
end
end

function Boss_Phase8(pUnit, Event)
if pUnit:GetHealthPct() < 30 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase9", 1000, 0)
end
end

function Boss_Phase9(pUnit, Event)
if pUnit:GetHealthPct() < 20 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase10", 1000, 0)
end
end

function Boss_Phase10(pUnit, Event)
if pUnit:GetHealthPct() < 10 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase11", 1000, 0)
end
end

function Boss_Phase11(pUnit, Event)
if pUnit:GetHealthPct() < 5 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:SendChatMessage(14, 0, "Text here plx")
end
end

function Boss_LeaveCombat(pUnit, Event)
Unit:SendChatMessage(12, 0 , "HOO leaving are you now chicken!!")
pUnit:RemoveEvents()
end

function Boss_Dead(pUnit, Event)
Unit:SendChatMessage(12, 0 , "Noooo i never tought you beat me!!!!")
pUnit:RemoveEvents()
end

function Boss_KilledTarget(pUnit, Event)
Unit:SendChatMessage(12, 0 , "Fool You Are Not Prepared!!")
pUnit:SendChatMessage(14, 0, "Owned")
end

RegisterUnitEvent(3, 1, "Boss_OnCombat")
RegisterUnitEvent(40009, 2, "Boss_LeaveCombat")
RegisterUnitEvent(40009, 3, "Boss_KilledTarget")
RegisterUnitEvent(40009, 4, "Boss_Dead")

Darhan · Admin Posts: 63 Join date: 2008-04-23

Change the Unit:SendChatMessage to pUnit:SendChatMessage and it will work.

RegisterUnitEvent(3, 1, "Boss_OnCombat")

is the entry id 3?

sufa · Spammer? Posts: 37 Join date: 2008-04-27

no it is 40009

Cholzzon · Subject: Re: scripting a boss Sat May 10, 2008 12:13 pm

but you did put 3 on the

RegisterUnitEvent(3, 1, "Boss_OnCombat")

sufa · Spammer? Posts: 37 Join date: 2008-04-27

modified it

function Boss_OnCombat(pUnit, Event)
pUnit:SendChatMessage(12, 0 , "Welcome to your death!!!")
pUnit:RegisterEvent("Boss_Phase2", 1000, 1)
end

function Boss_Phase2(pUnit, Event)
if pUnit:GetHealthPct() < 90 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase3", 1000, 1)
end
end

function Boss_Phase3(pUnit, Event)
if pUnit:GetHealthPct() < 80 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase4", 1000, 1)
end
end

function Boss_Phase4(pUnit, Event)
if pUnit:GetHealthPct() < 70 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase5", 1000, 1)
end
end

function Boss_Phase5(pUnit, Event)
if pUnit:GetHealthPct() < 60 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase6", 1000, 1)
end
end

function Boss_Phase6(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase7", 1000, 1)
end
end

function Boss_Phase7(pUnit, Event)
if pUnit:GetHealthPct() < 40 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase8", 1000, 1)
end
end

function Boss_Phase8(pUnit, Event)
if pUnit:GetHealthPct() < 30 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase9", 1000, 1)
end
end

function Boss_Phase9(pUnit, Event)
if pUnit:GetHealthPct() < 20 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase10", 1000, 1)
end
end

function Boss_Phase10(pUnit, Event)
if pUnit:GetHealthPct() < 10 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase11", 1000, 1)
end
end

function Boss_Phase11(pUnit, Event)
if pUnit:GetHealthPct() < 5 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase11", 1000, 1)
end
end

function Boss_LeaveCombat(pUnit, Event)
pUnit:SendChatMessage(12, 0 , "HOO leaving are you now chicken!!")
pUnit:RemoveEvents()
end

function Boss_Dead(pUnit, Event)
pUnit:SendChatMessage(12, 0 , "Noooo i never tought you beat me!!!!")
pUnit:RemoveEvents()
end

function Boss_KilledTarget(pUnit, Event)
pUnit:SendChatMessage(12, 0 , "Fool You Are Not Prepared!!")
pUnit:SendChatMessage(14, 0, "Owned")
end

RegisterUnitEvent(40009, 1, "Boss_OnCombat")
RegisterUnitEvent(40009, 2, "Boss_LeaveCombat")
RegisterUnitEvent(40009, 3, "Boss_KilledTarget")
RegisterUnitEvent(40009, 4, "Boss_Dead")

sufa · Spammer? Posts: 37 Join date: 2008-04-27

does it make a difference if the last number is like this pUnit:RegisterEvent("Boss_Phase11", 1000, 1<--------) because like this pUnit:RegisterEvent("Boss_Phase11", 1000, 0<-----) he was spamming the spell and now pUnit:RegisterEvent("Boss_Phase11", 1000, 1<--------) he is doing nothing >.<

sufa · Spammer? Posts: 37 Join date: 2008-04-27

and he is not talking when he does the spell

Darhan · Admin Posts: 63 Join date: 2008-04-23

function Boss_Phase11(pUnit, Event)
if pUnit:GetHealthPct() < 5 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
pUnit:RegisterEvent("Boss_Phase11", 1000, 1)
end
end

to

function Boss_Phase11(pUnit, Event)
if pUnit:GetHealthPct() < 5 then
pUnit:SendChatMessage (11, 0, "Taste the flames of Sulfuron!")
pUnit:CastSpell(19780)
end
end

sufa · Spammer? Posts: 37 Join date: 2008-04-27

so i need to delete every pUnit:RegisterEvent("Boss_Phase11", 1000, 1) of the function??

Darhan · Admin Posts: 63 Join date: 2008-04-23

nope, just edit the last phase like i did,

sufa · Spammer? Posts: 37 Join date: 2008-04-27

ok thx i will try it