#1

[LUA] Boss Script

in LUA 25.06.2010 23:50
von ArcUser • 26 Beiträge

+++++++++++++++++++++++++++++++++++
++++Boss Script made 100% By Crown++++
++++++++++ 25.6.2010 ++++++++++++++++
+++++++++++++++++++++++++++++++++++

Zitat
RegisterUnitEvent(450005, 1,"Test_OnCombat")
RegisterUnitEvent(450005, 2,"Test_OnLeaveCombat")
RegisterUnitEvent(450005, 3,"Test_OnKilledTarget")
RegisterUnitEvent(450005, 4,"Test_OnDied")

function Test_onCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Bist du bereit fuer dein Ende?")
Unit:RegisterEvent("Test_Phase1", 30000, 0)
end

function Test_Phase1(Unit, Event)
if Unit:GetHealthPct() < 80 then
Unit:RemoveEvents()
Unit:CastSpell(40733)
Unit:SendChatMessage(14, 0," STIRB! Elend")
Unit:RegisterEvent("Test_Phase2", 10000, 0)
end
end

function Test_Spell1(Unit, Event)
local spell1ziel = Unit:GetRandomPlayer(0)
if(spell1ziel~=nil) then
Unit:FullCastSpellOnTarget(37594, spell1ziel)
end
end

function Test_Phase2(Unit, Event)
if Unit:GetHealthPct() < 50 then
Unit:RemoveEvents()
Unit:RegisterEvent("Phase2_Spell1", 10000, 0)
Unit:SendChatMessage(14, 0, 10000,"Na los bringt mich um falls ihr es schafft!")
Unit:RegisterEvent("Test_Phase3", 10000, 0)
end
end

function Phase2_spell1(Unit, Event)
local spell2ziel = Unit:GetMainTank()
if(spell2ziel~=nil) then
Unit:FullCastSpellOnTarget(25801, spell2ziel)
end
end

function Name_Phase3(Unit, Event)
if Unit:GetHealthPct() < 20 then
Unit:RemoveEvents()
Unit:RegisterEvent("Phase3_spell1", 1000, 0)
Unit:RegisterEvent("Phase3_spell2", 1000, 0)
Unit:SendChatMessage(14, 0, "Jetzt reichts ich bereite euch ein Ende!!!")
end
end

function Phase3_spell1(Unit, Event)
local spell3ziel = Unit:GetRandomPlayer(0)
if(spell3ziel~=nil) then
Unit:FullCastSpellOnTarget(43430, spell3ziel)
end
end

function Phase3_Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(46565)
end

function Test_onKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "NEEEEEIIIIINNNNN!!!!!!!")
end

function Test_onLeaveCombat(Unit, Event)
Unit:RemoveEvents()
end

function Test_onDied(Unit, Event)
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "NEEEEEIIIIINNNNN.!!!!! IHR HABT MICH BEZWUNGEN")
end

RegisterUnitEvent(450005, 1,"Test_OnCombat")
RegisterUnitEvent(450005, 2,"Test_OnLeaveTarget")
RegisterUnitEvent(450005, 3,"Test_OnKilledTarget")
RegisterUnitEvent(450005, 4,"Test_OnDied")



Infos:

Der Boss besteht aus 3 Phasen und jeweil´s 5Spells die er auf Zufällige Ziele Castet.

MFG

CroWn

nach oben springen


Besucher
0 Mitglieder und 4 Gäste sind Online

Wir begrüßen unser neuestes Mitglied: Zudoran
Forum Statistiken
Das Forum hat 44 Themen und 47 Beiträge.