Bgames
Olá visitante! Seja bem vindo ao nosso fórum!

Para você ter total acesso ao nosso fórum é preciso que você se cadastre.

Cadastre-se Aqui!


PARA VER LINKS E IMAGENS É PRECISO SE REGISTRAR!

[Lua]1º Custom Boss

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Lua]1º Custom Boss

Mensagem por edenico em Ter 31 Jul 2012 - 18: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

edenico


Mensagens : 567
Pontos : 2728

Ver perfil do usuário http://www.northeastgames.tk

Voltar ao Topo Ir em baixo

Re: [Lua]1º Custom Boss

Mensagem por BGames em Ter 31 Jul 2012 - 18:58

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

BGames


Mensagens : 1808
Pontos : 16497
Evolução : 100


Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Lua]1º Custom Boss

Mensagem por edenico em Ter 31 Jul 2012 - 19:14

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

edenico


Mensagens : 567
Pontos : 2728

Ver perfil do usuário http://www.northeastgames.tk

Voltar ao Topo Ir em baixo

Re: [Lua]1º Custom Boss

Mensagem por Death em Ter 31 Jul 2012 - 20:17

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

Death


Mensagens : 317
Pontos : 959

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Lua]1º Custom Boss

Mensagem por Freza em Ter 31 Jul 2012 - 23: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

Freza


Mensagens : 1806
Pontos : 5976
Evolução : 4


Ver perfil do usuário http://bgames.com.br

Voltar ao Topo Ir em baixo

O autor desta mensagem foi removido do fórum - Ver a mensagem

Re: [Lua]1º Custom Boss

Mensagem por Conteúdo patrocinado Hoje à(s) 17:19


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum