Drikish
05-03-2009, 07:22 PM
Okay, well, I just started learning Lua yesterday and this is my very first full script, so go easy on me :P
Any feedback and tips are much appreciated
function Argus_OnCombat(Unit,Event)
Unit:RegisterEvent("Argus_Phase1", 1000, 0)
end
function Argus_OnDeath(Unit,Event)
Unit:SendChatMessage("14, 0, "Noooooooo!!!!!")
Unit:SetScale(1)
Unit:RemoveEvents()
end
RegisterUnitEvent(676767, 1, "Argus_OnCombat")
RegisterUnitEvent(676767, 4, "Argus_OnDeath")
function Argus_Phase1(Unit,Event)
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "You cannot defeat my superior LUA coding!")
Unit:SetScale(2)
Unit:RegisterEvent("Argus_Phase2", 1000, 0)
end
function Argus_Phase2(Unit,Event)
if Unit:GetHealthPct() <= 70 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Hmmm, there must be a flaw in my script of epicness")
Unit:SetScale(2.2)
Unit:CastSpellOnTarget(45299, Unit:GetRandomPlayer(0))
Unit:CastSpell(52237)
Unit:RegisterEvent("Argus_Phase3", 1000, 0)
end
end
function Argus_Phase3(Unit,Event)
if Unit:GetHealthPct() <=50 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Now I'm getting angry!")
Unit:SetScale(2.5)
Unit:CastSpellOnTarget(45299, Unit:GetRandomPlayer(0))
Unit:CastSpellOnTarget(56402, Unit:GetMainTank())
Unit:RegisterEvent("Argus_Phase4", 1000, 0)
end
end
function Argus_Phase4(Unit,Event)
if Unit:GetHealthPct() <=30 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "I'm to leet to fail!")
Unit:SendChatMessage(14, 0, "I'm reporting you to Blizzard!!")
Unit:SetScale(2.7)
Unit:CastSpellOnTarget(34620, Unit:GetMainTank())
Unit:CastSpellOnTarget(45299, Unit:GetRandomPlayer(0))
end
end
Credits: A special thanks to Junni42 for his Lua basics and Amanh for his great guide on phases.
Also, thanks to Sdyess94 for fixing the script and making it operable
**I have not been able to test this because my LuaEngine is broke at the moment.
Any feedback and tips are much appreciated
function Argus_OnCombat(Unit,Event)
Unit:RegisterEvent("Argus_Phase1", 1000, 0)
end
function Argus_OnDeath(Unit,Event)
Unit:SendChatMessage("14, 0, "Noooooooo!!!!!")
Unit:SetScale(1)
Unit:RemoveEvents()
end
RegisterUnitEvent(676767, 1, "Argus_OnCombat")
RegisterUnitEvent(676767, 4, "Argus_OnDeath")
function Argus_Phase1(Unit,Event)
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "You cannot defeat my superior LUA coding!")
Unit:SetScale(2)
Unit:RegisterEvent("Argus_Phase2", 1000, 0)
end
function Argus_Phase2(Unit,Event)
if Unit:GetHealthPct() <= 70 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Hmmm, there must be a flaw in my script of epicness")
Unit:SetScale(2.2)
Unit:CastSpellOnTarget(45299, Unit:GetRandomPlayer(0))
Unit:CastSpell(52237)
Unit:RegisterEvent("Argus_Phase3", 1000, 0)
end
end
function Argus_Phase3(Unit,Event)
if Unit:GetHealthPct() <=50 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Now I'm getting angry!")
Unit:SetScale(2.5)
Unit:CastSpellOnTarget(45299, Unit:GetRandomPlayer(0))
Unit:CastSpellOnTarget(56402, Unit:GetMainTank())
Unit:RegisterEvent("Argus_Phase4", 1000, 0)
end
end
function Argus_Phase4(Unit,Event)
if Unit:GetHealthPct() <=30 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "I'm to leet to fail!")
Unit:SendChatMessage(14, 0, "I'm reporting you to Blizzard!!")
Unit:SetScale(2.7)
Unit:CastSpellOnTarget(34620, Unit:GetMainTank())
Unit:CastSpellOnTarget(45299, Unit:GetRandomPlayer(0))
end
end
Credits: A special thanks to Junni42 for his Lua basics and Amanh for his great guide on phases.
Also, thanks to Sdyess94 for fixing the script and making it operable
**I have not been able to test this because my LuaEngine is broke at the moment.