LUA and SQL - Vakama, Earth Warden

**kreegoth** · 09-22-2008

Heres another boss ive made.. its probably one of the more complicated Luas ive written to date and this one will be Very different Everytime you fight him so it creates random encounters for the players.. Somethings remain constant though.. from 20% down every so often he casts a 20 second doom counter that when it wears off the player dies and spawns a doomguard..

Some of the random choices it does are more powerful than others so the players will have to adapt on the fly as they are learning to defeat the encounter..

Anyways nuff said.. heres the info .. BTW the SQL is already fixed to include the ModImmunities field for the later revisions of Arcemu.. if it doesnt work for you try taking the extra ,'0' off the end of the creatures_proto one.

Screen shot

SQLs

Code:

INSERT INTO creature_names (entry, name, subname, info_str, Flags1, type, family, rank, male_displayid, female_displayid, male_displayid2, female_displayid2, civilian, leader) VALUES ('888411','Vakama','Earth Warden','','0','7','0','3','15829','0','0','0','0','0')

INSERT INTO creature_proto (entry, minlevel, maxlevel, faction, minhealth, maxhealth, mana, scale, npcflags, attacktime, mindamage, maxdamage, rangedattacktime, rangedmindamage, rangedmaxdamage, mountdisplayid, equipmodel1, equipmodel2, equipmodel3, respawntime, armor, resistance1, resistance2, resistance3, resistance4, resistance5, resistance6, combat_reach, auras, boss, money, invisibility_type, death_state, walk_speed, run_speed, fly_speed) VALUES ('888411','72','72','634','132234','133234','78766','0','2100','2314','4215','0','0','0','0','0','0','0','36000','2439','0','0','99','0','0','0','2','0','1','0','0','0','2.5','8','14','0')

LUA

Code:

------------------------------------------------------
-----------WRITTEN BY KREEGOTH -------------
------------------------------------------------------
function Vakama_EnterCombat (pUnit, event)
pUnit:RegisterEvent("Vakama_Blue", 1000, 0)
 pUnit:RegisterEvent("Vakama_Phase2", 1000, 0)
	    pUnit:SendChatMessage(14, 0, "The fury of the Earth unhindered!") 
	    local Choice=math.random(1, 3)
        if Choice==1 then
	    pUnit:RegisterEvent("Vakama_Nova", 2000, 0)
	    pUnit:RegisterEvent("Vakama_Nature", 3000, 0)
	    pUnit:RegisterEvent("Vakama_Blue", 1000, 1)
            pUnit:SendChatMessage(14, 0, "Feel the Charge of Natures Fury!")
        elseif Choice==2 then
	    pUnit:RegisterEvent("Vakama_Earth", 5000, 0)
	    pUnit:RegisterEvent("Vakama_Fire", 4000, 0)
	    pUnit:RegisterEvent("Vakama_Blue", 1000, 1)
            pUnit:SendChatMessage(14, 0, "Feel the Earth's Pain!")
        elseif Choice==3 then
	    pUnit:RegisterEvent("Vakama_Flames", 6000, 0)
	    pUnit:RegisterEvent("Vakama_Ice", 5000, 0)
	    pUnit:RegisterEvent("Vakama_Dire", 4000, 0)
	    pUnit:RegisterEvent("Vakama_Blue", 1000, 1)
            pUnit:SendChatMessage(14, 0, "May the Flames of hatred consume you!")
end 	              
end

function Vakama_Blue (pUnit, event)
         pUnit:CastSpell(42567)
end
         
function Vakama_Nature (pUnit, event)
         pUnit:FullCastSpellOnTarget(39120, pUnit:GetClosestPlayer())
end

function Vakama_Fire (pUnit, event)
         pUnit:FullCastSpellOnTarget(37797, pUnit:GetClosestPlayer())
end

function Vakama_Ice (pUnit, event)
         pUnit:FullCastSpellOnTarget(3130, pUnit:GetClosestPlayer())
end

function Vakama_Dire (pUnit, event)
         pUnit:FullCastSpellOnTarget(45248, pUnit:GetClosestPlayer())
end



function Vakama_Nova (pUnit, event)
         pUnit:FullCastSpellOnTarget(38936, pUnit:GetClosestPlayer())
end

function Vakama_Earth (pUnit, event)
         pUnit:CastSpell(33919)
end

function Vakama_Flames (pUnit, event)
         pUnit:FullCastSpellOnTarget(20019, pUnit:GetMainTank())
end

function Vakama_Phase2 (pUnit, event)
      if pUnit:GetHealthPct() < 76 then
         pUnit:RemoveEvents()
		 pUnit:RegisterEvent("Vakama_Phase3", 1000, 0)
	    pUnit:SendChatMessage(14, 0, "Death finds us all...")
         local Choice=math.random(1, 3)
        if Choice==1 then
	    pUnit:RegisterEvent("Vakama_Doom", 3000, 0)
		pUnit:RegisterEvent("Vakama_Daring", 4000, 0)
            pUnit:SendChatMessage(14, 0, "You will Perish!")           
        elseif Choice==2 then
	    pUnit:RegisterEvent("Vakama_Herald", 5000, 0)
		pUnit:RegisterEvent("Vakama_Sorrow", 6000, 0)
		pUnit:RegisterEvent("Vakama_Slice", 4000, 0)
            pUnit:SendChatMessage(14, 0, "Flee in terror...The Wrath of the Earth is Upon you")           
        elseif Choice==3 then
	    pUnit:RegisterEvent("Vakama_Demonic", 3000, 0)
		pUnit:RegisterEvent("Vakama_Sear", 5000, 0)
            pUnit:SendChatMessage(14, 0, "The world burns....Now you Will too!")                     
end
end
end

function Vakama_Daring (pUnit, event)
         pUnit:FullCastSpellOnTarget(30511, pUnit:GetMainTank())
end

function Vakama_Sorrow (pUnit, event)
         pUnit:FullCastSpellOnTarget(31347, pUnit:GetMainTank())
end

function Vakama_Slice (pUnit, event)
         pUnit:FullCastSpellOnTarget(24192, pUnit:GetMainTank())
end

function Vakama_Sear (pUnit, event)
         pUnit:FullCastSpellOnTarget(38445, pUnit:GetMainTank())
end

function Vakama_Doom (pUnit, event)
         pUnit:FullCastSpellOnTarget(31347, pUnit:GetRandomPlayer())
end

function Vakama_Herald (pUnit, event)
         pUnit:FullCastSpellOnTarget(28864, pUnit:GetMainTank())
end

function Vakama_Demonic (pUnit, event)
         pUnit:CastSpell(31901)
end

function Vakama_Phase3 (pUnit, event)
      if pUnit:GetHealthPct() < 49 then
         pUnit:RemoveEvents()
		 pUnit:RegisterEvent("Vakama_Phase4", 1000, 0)
	     pUnit:SendChatMessage(14, 0, "It is pointless to resist the inevitable!")
       local Choice=math.random(1, 4)
        if Choice==1 then
	    pUnit:RegisterEvent("Vakama_Blast", 3000, 0)
		pUnit:RegisterEvent("Vakama_Saturate", 5000, 0)
            pUnit:SendChatMessage(14, 0, "All you miserable creatures know is pain....Feel some YOURSELVES!")            
        elseif Choice==2 then
	    pUnit:RegisterEvent("Vakama_Disorient", 5000, 0)
		pUnit:RegisterEvent("Vakama_Dimember", 3000, 0)
            pUnit:SendChatMessage(14, 0, "You cannot overcome this!")           
        elseif Choice==3 then
	    pUnit:RegisterEvent("Vakama_Shelter", 5000, 0)
		pUnit:RegisterEvent("Vakama_Stagger", 4000, 0)
		pUnit:RegisterEvent("Vakama_Falter", 3000, 0)
            pUnit:SendChatMessage(14, 0, "There is nothing you can do against the Earth's Fury!")           
	elseif Choice==4 then
	    pUnit:RegisterEvent("Vakama_Feeble", 4000, 0)
		pUnit:RegisterEvent("Vakama_Stun", 4000, 0)
		pUnit:RegisterEvent("Vakama_Lock", 3000, 0)
	    pUnit:SendChatMessage(14, 0, "Burn! BURN!")           
end
end
end


function Vakama_Saturate (pUnit, event)
         pUnit:FullCastSpellOnTarget(41068, pUnit:GetMainTank())
end

function Vakama_Dismember (pUnit, event)
         pUnit:FullCastSpellOnTarget(43648, pUnit:GetMainTank())
end

function Vakama_Stagger (pUnit, event)
         pUnit:FullCastSpellOnTarget(16922, pUnit:GetMainTank())
end

function Vakama_Stun (pUnit, event)
         pUnit:FullCastSpellOnTarget(2880, pUnit:GetMainTank())
end

function Vakama_Lock (pUnit, event)
         pUnit:FullCastSpellOnTarget(22856, pUnit:GetMainTank())
end

function Vakama_Falter (pUnit, event)
         pUnit:FullCastSpellOnTarget(38813, pUnit:GetMainTank())
end

function Vakama_Blast (pUnit, event)
         pUnit:CastSpell(36278)
end

function Vakama_Disorient (pUnit, event)
         pUnit:FullCastSpellOnTarget(32752, pUnit:GetMainTank())
end

function Vakama_Shelter (pUnit, event)
         pUnit:CastSpell(35096)
end

function Vakama_Feeble (pUnit, event)
         pUnit:FullCastSpellOnTarget(34088, pUnit:GetRandomPlayer(0))
end

function Vakama_Phase4 (pUnit, event)
      if pUnit:GetHealthPct() < 20 then
         pUnit:RemoveEvents()
         pUnit:SendChatMessage(14, 0, "You cannot alter the mistakes of your past...Your only choice is....Eradication")
         pUnit:RegisterEvent("Vakama_Death", 2000, 0)
end
end

function Vakama_Death (pUnit, event)
         pUnit:FullCastSpellOnTarget(31347, pUnit:GetRandomPlayer())
end

function Vakama_LeaveCombat (pUnit, event)
         pUnit:RemoveEvents()
end

function Vakama_Die (pUnit, event)
         pUnit:RemoveEvents()
		 pUnit:PlaySoundToSet(1356)
         pUnit:SendChatMessage(14, 0, ".......Why have I been forsaken?")     
end

RegisterUnitEvent(888411, 1, "Vakama_EnterCombat")
RegisterUnitEvent(888411, 2, "Vakama_LeaveCombat")
RegisterUnitEvent(888411, 4, "Vakama_Die")