[Lua]1º Custom Boss

[Lua]1º Custom BossTer 31 Jul 2012 - 19:46

Pesquisando em um site, vi um topico com a seguinte descrição: Primeiro boss feito em lua.
tah ae.

Script:

Código:


local NPCID = 4500000

function Hellfire_Destroyer__OnCombat(pUnit, Event)
 pUnit:SendChatMessage(14, 0, "[PH]BEEP")
 pUnit:RegisterEvent("Hellfire_Destroyer_EyeBeam", 5000, 0)
 pUnit:RegisterEvent("Hellfire_Destroyer_Impale", 8000, 0)
 pUnit:RegisterEvent("Hellfire_Destroyer_DarkVolley", 14000,0)
 pUnit:RegisterEvent("Hellfire_Destroyer_Decimate", 30000,0)
 pUnit:RegisterEvent("Hellfire_Destroyer_Phase1", 1000, 0)
end

function Hellfire_Destroyer_EyeBeam(pUnit, Event)
 pUnit:FullCastSpellOnTarget(26134, pUnit:GetRandomPlayer(0))
end

function Hellfire_Destroyer_Impale(pUnit, Event)
 pUnit:FullCastSpellOnTarget(67479, pUnit:GetMainTank(0))
end

function Hellfire_Destroyer_DarkVolley(pUnit, Event)
 pUnit:FullCastSpellOnTarget(28374)
end

function Hellfire_Destroyer_Decimate(pUnit, Event)
 pUnit:FullCastSpellOnTarget(28374, pUnit:GetMainTank(0))
end

function Hellfire_Destroyer_Phase1(pUnit, Event)
 if (pUnit:GetHealthPct() <= 75) then
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0, "[PH]BEEP")
 pUnit:RegisterEvent("Hellfire_Destroyer_EmpoweredShadowLance", 20000, 0)
 pUnit:RegisterEvent("Hellfire_Destroyer_NecroticPlague", 35000, 0)
 pUnit:RegisterEvent("Hellfire_Destroyer_BlastNova", 35000, 1)
 pUnit:RegisterEvent("Hellfire_Destroyer_Banish", 39000,0)
 pUnit:RegisterEvent("Hellfire_Destroyer_Shadownova", 41000,0)
 pUnit:RegisterEvent("Hellfire_Destroyer_IncinerateFlesh", 25000,5)
 pUnit:RegisterEvent("Hellfire_Destroyer_Phase2", 1000, 0)
end
end

function Hellfire_Destroyer_EmpoweredShadowLance(pUnit, Event)
 pUnit:FullCastSpellOnTarget(72811, pUnit:GetMainTank())
end

function Hellfire_Destroyer_BombBot(pUnit, Event)
 pUnit:FullCastSpellOnTarget(63811, pUnit:GetRandomPlayer(0))
end

function Hellfire_Destroyer_NecroticPlague(pUnit, Event)
 pUnit:FullCastSpellOnTarget(73913, pUnit:GetRandomPlayer(0))
end

function Hellfire_Destroyer_BlastNova(pUnit, Event)
 pUnit:CastSpell(30616)
end

function Hellfire_Destroyer_Banish(pUnit, Event)
 pUnit:FullCastSpellOnTarget(40370, pUnit:GetRandomPlayer(0))
end

function Hellfire_Destroyer_Shadownova(pUnit, Event)
 pUnit:CastSpell(38627)
end

function Hellfire_Destroyer_IncinerateFlesh(pUnit, Event)
 pUnit:FullCastSpellOnTarget(67049, pUnit:GetRandomPlayer(0))
end

function Hellfire_Destroyer_Phase2(pUnit, Event)
 if (pUnit:GetHealthPct() <= 50) then
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0, "[PH]Boop")
 pUnit:RegisterEvent("Hellfire_Destroyer_DeathTouch", 20000, 1)
 pUnit:RegisterEvent("Hellfire_Destroyer_DrainLife", 16500,0)
 pUnit:RegisterEvent("Hellfire_Destroyer_DarkMending", 16800,0)
 pUnit:RegisterEvent("Hellfire_Destroyer_CurseOfDoom", 10000,0)
 pUnit:RegisterEvent("Hellfire_Destroyer_Phase3", 160000, 0)
end
end

function Hellfire_Destroyer_DeathTouch(pUnit, Event)
 pUnit:FullCastSpellOnTarget(5, pUnit:GetRandomPlayer(0))
 pUnit:SendChatMessage(14, 0, "[PH]Beep.")
end

function Hellfire_Destroyer_DrainLife(pUnit, Event)
 pUnit:FullCastSpellOnTarget(55665, pUnit:GetRandomPlayer(0))
end

function Hellfire_Destroyer_DarkMending(pUnit, Event)
 pUnit:CastSpell(72324)
end

function Hellfire_Destroyer_CurseOfDoom(pUnit, Event)
 pUnit:FullCastSpellOnTarget(64157, pUnit:GetRandomPlayer(0))
end

function Hellfire_Destroyer_Phase3(pUnit, Event)
 if (pUnit:GetHealthPct() <= 20) then
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0, "[PH]BOOP")
 pUnit:RegisterEvent("Hellfire_Destroyer_Enrage", 5000, 0)
 pUnit:RegisterEvent("Hellfire_Destroyer_LeechingSwarm", 12500, 1)
 pUnit:RegisterEvent("Hellfire_Destroyer_VeilOfDarkness", 10000,0)
end
end

function Hellfire_Destroyer_Enrage(pUnit, Event)
 pUnit:FullCastSpell(34670)
end

function Hellfire_Destroyer_LeechingSwarm(pUnit, Event)
 pUnit:CastSpell(45996)
end

function Hellfire_Destroyer_VeilOfDarkness(pUnit, Event)
 pUnit:FullCastSpellOnTarget(28350, pUnit:GetRandomPlayer(0))
end

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

function Hellfire_Destroyer_OnKilledTarget(pUnit, Event)
 pUnit:SendChatMessage(14, 0, "[PH]Lolz")
 pUnit:CastSpell(65799)
end

function Hellfire_Destroyer_OnDeath(pUnit, Event)
 pUnit:SendChatMessage(14, 0, "[PH]Ow")
 pUnit:RemoveEvents()
end

RegisterUnitEvent(NPCID, 1, "Hellfire_Destroyer__OnCombat")
RegisterUnitEvent(NPCID, 2, "Hellfire_Destroyer_OnLeaveCombat")
RegisterUnitEvent(NPCID, 3, "Hellfire_Destroyer_OnKilledTarget")
RegisterUnitEvent(NPCID, 4, "Hellfire_Destroyer_OnDeath")

Desculpa gente, 1º topico meu espero que gostem.

Ah e caso a spell hellfire do boss n funcione corretamente
Substitua:

Código:


function Hellfire_OnDeath(pUnit, Event)
  pUnit:SendChatMessage(14, 0, "[PH]Ow")
  pUnit:RemoveEvents()
end

Para

Código:


function Hellfire_Destroyer_OnDeath(pUnit, Event)
  pUnit:SendChatMessage(14, 0, "[PH]Ow")
  pUnit:RemoveEvents()
end

Re: [Lua]1º Custom BossTer 31 Jul 2012 - 19:58

Muito bom!
Eu dei uma editada pra ficar mais organizado o tópico.
Breve irei testar.. NICE!

Re: [Lua]1º Custom BossTer 31 Jul 2012 - 20:14

vlw, desculpa não ter feito direito, sabe como é ne? primeiro post.

Re: [Lua]1º Custom BossTer 31 Jul 2012 - 21:17

Belo Post edenico! , eu nunca vi você no forúm então creio que seja novo...
Seja Bem Vindo !

Re: [Lua]1º Custom BossQua 1 Ago 2012 - 0:15

Se alguém for testar lembre de retirar as linhas 141 para baixo, pois não faz parte do Script.
Muito bem, Obrigado por compartilhar. E seja bem vindo ao fórum ;D

O autor desta mensagem foi banido do fórum - Mostrar mensagem

Fórum de Desenvolvimento de Jogos e Programação

[Lua]1º Custom Boss