.lua's not working menu
Follow us:

User Tag List

Results 1 to 7 of 7
  1. 08-19-2009 #1
    thebigman's Avatar
    thebigman
    thebigman is offline
    Contributor Reliable Trader
    CoreCoins Purchaser
    Reputation
    89
    Join Date
    Dec 2008
    Posts
    605
    Thanks G/R
    2/0
    Trade Feedback
    26 (96%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    .lua's not working

    uhmm simple as the title said, the logon/realms thing does NOT show any red text or errors loading the scripts, but they just seem not to want to work... Heres the ones I am using. IDs DO match atm. If you see anything wrong, please feel free to tell me and i will fix it. I use arc emu. default scripting engines.


    Code:
    --				--
	-- Start function --
--				--

function Mage_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "What do you want!?")
Unit:SetCombatCapable(1)
Unit:SetFaction(35)
Unit:RegisterEvent("Mage_TalkStart1", 1000, 0)
end

--				--
	-- Cinematic --
--				--

function Mage_TalkStart1(Unit,Event)
Unit:RemoveEvents()
Unit:SetCombatCapable(1)
x=Unit:GetX()
y=Unit:GetY()
z=Unit:GetZ()
o=Unit:GetO()
Unit:MoveTo(x, y+5, z, o)
Unit:SendChatMessage(12, 0, "Wait..What!? How!? How are you here... I knew  I should of delt with you myself!")
Unit:RegisterEvent("Mage_TalkStart2", 7000, 0)
end

function Mage_TalkStart2(Unit,Event)
Unit:RemoveEvents()
Unit:StopMovement(2000)
Unit:SetCombatCapable(1)
x=Unit:GetX()
y=Unit:GetY()
z=Unit:GetZ()
o=Unit:GetO()
Unit:MoveTo(x, y-5, z, o)
Unit:SendChatMessage(12, 0, "Did you enjoy slaughtering my worthless men?  I would of done it myself if not for that fool Blightbearer..")
Unit:RegisterEvent("Mage_TalkStart3", 9000, 0)
end

function Mage_TalkStart3(Unit,Event)
Unit:RemoveEvents()
Unit:StopMovement(2000)
Unit:SetCombatCapable(1)
x=Unit:GetX()
y=Unit:GetY()
z=Unit:GetZ()
o=Unit:GetO()
Unit:MoveTo(x+5, y, z, o)
Unit:SendChatMessage(12, 0, "I was soon to complete my project, but you  worthless runts had to slay Uzkaron!")
Unit:RegisterEvent("Mage_TalkStart4", 9000, 0)
end


function Mage_TalkStart4(Unit,Event)
Unit:RemoveEvents()
Unit:StopMovement(2000)
Unit:SetCombatCapable(1)
x=Unit:GetX()
y=Unit:GetY()
z=Unit:GetZ()
o=Unit:GetO()
Unit:MoveTo(x-5, y, z, o)
Unit:SendChatMessage(12, 0, "A pity Highlord Blightbearer had to fall to such mortals as  yourself, I would of loved to send the chimp crying to his followers. A "God" running from myself.. A sight for many indeed.")
Unit:RegisterEvent("Mage_TalkStart5", 10000, 0)
end


function Mage_TalkStart5(Unit,Event)
Unit:RemoveEvents()
Unit:StopMovement(2000)
Unit:SetCombatCapable(1)
x=Unit:GetX()
y=Unit:GetY()
z=Unit:GetZ()
o=Unit:GetO()
Unit:MoveTo(x+2, y+2, z, o)
Unit:SendChatMessage(12, 0, "I must say, you did proceed much further than  I anticipated. I must congratulate you on that achievement. Such a tragic  turn of events, though.")
Unit:RegisterEvent("Mage_TalkStart6", 10000, 0)
end


function Mage_TalkStart6(Unit,Event)
Unit:RemoveEvents()
Unit:SetCombatCapable(0)
Unit:SetFaction(14)
x=Unit:GetX()
y=Unit:GetY()
z=Unit:GetZ()
o=Unit:GetO()
Unit:MoveTo(x-2, y-2, z, o)
Unit:SendChatMessage(12, 0, "Enough chat! I must end what those morons  started!")
Unit:RegisterEvent("Mage_Phase1", 1000, 0)
Unit:RegisterEvent("Mage_Spell1", 4000, 0)
Unit:RegisterEvent("Mage_Spell2", 10000, 0)
Unit:RegisterEvent("Mage_Spell3", 13000, 0)
end

function Mage_Phase1(Unit, Event)
if Unit:GetHealthPct() < 90 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Muahaha! Burn! Burn in malicous fire!")
Unit:CastSpell(42945)
Unit:RegisterEvent("Mage_Phase2", 1000, 0)
Unit:RegisterEvent("Mage_1Spell1", 4000, 0)
Unit:RegisterEvent("Mage_1Spell2", 12000, 0)
Unit:RegisterEvent("Mage_1Spell3", 4000, 0)
end
end

function Mage_Phase2(Unit, Event)
if Unit:GetHealthPct() < 75 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "The power of arcane courses through my  veins!")
Unit:CastSpell(46553)
Unit:RegisterEvent("Mage_Phase3", 1000, 0)
Unit:RegisterEvent("Mage_2Spell1", 5000, 0)
Unit:RegisterEvent("Mage_2Spell2", 4000, 0)
Unit:RegisterEvent("Mage_2Spell3", 6000, 0)
end
end

function Mage_Phase3(Unit, Event)
if Unit:GetHealthPct() < 60 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Starting to feel chilly, are we?!")
Unit:CastSpell(39035)
Unit:RegisterEvent("Mage_Phase4", 1000, 0)
Unit:RegisterEvent("Mage_3Spell1", 6000, 1)
Unit:RegisterEvent("Mage_3Spell2", 9000, 0)
Unit:RegisterEvent("Mage_3Spell3", 8000, 0)
end
end

function Mage_Phase4(Unit, Event)
if Unit:GetHealthPct() < 45 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "This drags on far to long, I grow bored with  you..")
Unit:CastSpell(52535)
Unit:RegisterEvent("Mage_Phase5", 1000, 0)
Unit:RegisterEvent("Mage_4Spell1", 20000, 0)
Unit:RegisterEvent("Mage_4Spell2", 10000, 0)
Unit:RegisterEvent("Mage_4Spell3", 6000, 0)
end
end

function Mage_Phase5(Unit, Event)
if Unit:GetHealthPct() < 30 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Hah! Pathetic magicks.. ")
Unit:CastSpell(31534)
Unit:RegisterEvent("Mage_Phase6", 1000, 0)
Unit:RegisterEvent("Mage_5Spell1", 13000, 0)
Unit:RegisterEvent("Mage_5Spell2", 14000, 0)
Unit:RegisterEvent("Mage_5Spell3", 4000, 0)
end
end

function Mage_Phase6(Unit, Event)
if Unit:GetHealthPct() < 15 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "ENOUGH!! I shall end this now!")
Unit:CastSpell(29963)
Unit:RegisterEvent("Mage_6Spell1", 120000, 1)
Unit:RegisterEvent("Mage_6Spell2", 20000, 0)
Unit:RegisterEvent("Mage_6Spell3", 9000, 0)
Unit:RegisterEvent("Mage_6Spell4", 10000, 0)
Unit:RegisterEvent("Mage_6Spell4", 25000, 0)
Unit:RegisterEvent("Mage_6Spell5", 5400, 0)
end
end
--			--
	-- Spells --
--			--

function Mage_Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(54095, Unit:GetMainTank())
end

function Mage_Spell2(Unit, Event)
Unit:CastSpell(36876)
end

function Mage_Spell3(Unit, Event)
Unit:FullCastSpellOnTarget(55362, Unit:GetMainTank())
end

function Mage_1Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(37110, Unit:GetRandomPlayer(0))
end

function Mage_1Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(29964, Unit:GetRandomPlayer(0))
end

function Mage_1Spell3(Unit, Event)
Unit:FullCastSpellOnTarget(56934, Unit:GetRandomPlayer(0))
end

function Mage_2Spell1(Unit, Event)
Unit:CastSpell(36481)
end

function Mage_2Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(29956, Unit:GetRandomPlayer(0))
end

function Mage_2Spell3(Unit, Event)
Unit:CastSpell(37106)
end

function Mage_3Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(44572, Unit:GetMainTank())
end

function Mage_3Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(46035, Unit:GetRandomPlayer(0))
end

function Mage_3Spell3(Unit, Event)
Unit:CastSpell(30095)
end

function Mage_4Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(32863, Unit:GetRandomPlayer(0))
end

function Mage_4Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(38913, Unit:GetRandomPlayer(0))
end

function Mage_4Spell3(Unit, Event)
Unit:FullCastSpellOnTarget(41069, Unit:GetMainTank())
end

function Mage_5Spell1(Unit, Event)
Unit:CastSpell(29951)
end

function Mage_5Spell2(Unit, Event)
Unit:CastSpell(40631)
end

function Mage_5Spell3(Unit, Event)
Unit:FullCastSpellOnTarget(47610, Unit:GetMainTank())
end

function Mage_6Spell1(Unit, Event)
Unit:SendChatMessage(14, 0, "Explode!")
Unit:CastSpell(56505)
end

function Mage_6Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(42834, Unit:GetMainTank())
end

function Mage_6Spell3(Unit, Event)
Unit:CastSpell(33061)
end

function Mage_6Spell4(Unit, Event)
Unit:FullCastSpellOnTarget(44781, Unit:GetRandomPlayer(0))
end

function Mage_6Spell5(Unit, Event)
Unit:FullCastSpellOnTarget(42897, Unit:GetMainTank())
end

function Mage_OnLeaveCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "As I thought! Nothing for the likes of me!")
Unit:RemoveEvents() 
end

function Mage_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "Oh the sorrow..")
end

function Mage_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "Years of planning... Forgive me master..")
Unit:RemoveEvents()
end

RegisterUnitEvent(133716, 1, "Mage_OnCombat")
RegisterUnitEvent(133716, 2, "Mage_OnLeaveCombat")
RegisterUnitEvent(133716, 3, "Mage_OnKilledTarget")
RegisterUnitEvent(133716, 4, "Mage_OnDied")
    Code:
    function On_Gossip(unit, event, player)
unit:GossipCreateMenu(15, player, 0)
unit:GossipMenuAddItem(2, "I will go to Rohan!", 1, 0)
unit:GossipSendMenu(player)
end

function Gossip_Submenus(unit, event, player, id, intid, code)

if(intid == 1) then
player:Teleport(1, -4580.280762, -3706.275879, 46.666096)
end

RegisterUnitGossipEvent(99999, 1, "On_Gossip")
RegisterUnitGossipEvent(99999, 2, "Gossip_Submenus")
    Code:
    function ac_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "You shall not proceed!")
Unit:RegisterEvent("ac_Spell1", 6000, 0)
Unit:RegisterEvent("ac_Spell2", 12000, 0)
end

function ac_Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(59248, Unit:GetMainTank())
end

function ac_Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(34793, Unit:GetRandomPlayer(1))
end

function ac_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "No threat found. Resuming normal gaurd sequence.")
end

function ac_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "Target eliminated. Determining next threat.")
end

function ac_OnDied(Unit, Event)
Unit:RemoveEvents() 
Unit:SendChatMessage(14, 0, "WARNING! WARNING! CRITICAL SYSTEM FAILURE! ERUPTION IN 5, 4, 3, 2, 1-")
Unit:CastSpell(28450)
Unit:RemoveEvents() 
end

RegisterUnitEvent(133721, 1, "ae_OnCombat")
RegisterUnitEvent(133721, 2, "ae_OnLeaveCombat")
RegisterUnitEvent(133721, 3, "ae_OnKilledTarget")
RegisterUnitEvent(133721, 4, "ae_OnDied")
    Code:
    function On_Gossip(unit, event, player)
unit:GossipCreateMenu(15, player, 0)
unit:GossipMenuAddItem(2, "I will go to Rohan!", 1, 0)
unit:GossipSendMenu(player)
end

function Gossip_Submenus(unit, event, player, id, intid, code)

if(intid == 1) then
player:Teleport(1, -4580.280762, -3706.275879, 46.666096)
end

RegisterUnitGossipEvent(99998, 1, "On_Gossip")
RegisterUnitGossipEvent(99998, 2, "Gossip_Submenus")
    Code:
    function Undead_Frost_Wyrm_EnterCombat(pUnit, event)
local timer1=math.random(5200, 13500)
local timer3=math.random(5200, 13500)
pUnit:RegisterEvent("Frostpaw_Rend", timer1, 1)
pUnit:RegisterEvent("Demoralizing_Shout", timer3, 1)
end

function Frostpaw_Rend(pUnit, event)
local timer2=math.random(10000, 22500)
if (pUnit:GetMainTank() ~= nil) then
pUnit:FullCastSpellOnTarget(12054, pUnit:GetMainTank())
pUnit:RegisterEvent("Frostpaw_Rend", timer2, 0)
end
end

function Demoralizing_Shout(pUnit, event)
local timer4=math.random(30000, 45000)
pUnit:CastSpell(13730)
pUnit:RegisterEvent("Demoralizing_Shout", timer4, 0)
end

RegisterUnitEvent (133799, 1, "Undead_Frost_Wyrm_EnterCombat")
    Code:
    function mt_OnCombat(Unit, Event)
Unit:SendChatMessage(12, 0, "I live to serve the Master!")
Unit:RegisterEvent("mt_Spell1", 6000, 0)
Unit:RegisterEvent("mt_Spell2", 20000, 0)
Unit:RegisterEvent("mt_Spell3", 15000, 0)
end

function mt_Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(61087, Unit:GetMainTank())
end

function mt_Spell2(Unit, Event)
Unit:CastSpell(5762)
end

function mt_Spell3(Unit, Event)
Unit:CastSpell(54890)
end

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

function mt_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "For the Magus!")
end

function mt_OnDied(Unit, Event)
Unit:SendChatMessage(12, 0, "I am free! Thank you- and run! Run while you can!")
Unit:RemoveEvents() 
end

RegisterUnitEvent(133729, 1, "mt_OnCombat")
RegisterUnitEvent(133729, 2, "mt_OnLeaveCombat")
RegisterUnitEvent(133729, 3, "mt_OnKilledTarget")
RegisterUnitEvent(133729, 4, "mt_OnDied")
    Code:
    function uk_OnCombat(Unit, Event)
Unit:SetFaction(35)
Unit:RegisterEvent("uk_TalkStart1", 1000, 0)
end

--				--
	-- Cinematic --
--				--

function uk_TalkStart1(Unit,Event)
Unit:RemoveEvents()
Unit:SetCombatCapable(1)
x=Unit:GetX()
y=Unit:GetY()
z=Unit:GetZ()
o=Unit:GetO()
Unit:MoveTo(x, y+5, z, o)
Unit:SendChatMessage(14, 0, "Fools! Do you realize what you have done? I was in the middle of bending the will of Deathwing to my own! Although, the creature is more powerful than I anticipated...")
Unit:RegisterEvent("uk_TalkStart2", 9000, 0)
end

function uk_TalkStart2(Unit,Event)
Unit:RemoveEvents()
Unit:SetCombatCapable(0)
Unit:StopMovement(2000)
Unit:SendChatMessage(14, 0, "You think of me as a simple human? I am a champion of the black dragonflight! I have survived eons! I have witnessed the fall of empires! I have mastered every path, perfected every art! I am the messanger of the Old Gods themselves! Prepare yourselves, for utter destruction!")
Unit:SetModel(18194)
Unit:SetScale(0.3)
Unit:SetFaction(14)
Unit:RegisterEvent("uk_Phase1", 1000, 0)
Unit:RegisterEvent("uk_normalspell1", 30000, 0)
end

function uk_Phase1(Unit, Event)
if Unit:GetHealthPct() < 90 then
Unit:RemoveEvents()
Unit:SetScale(1) 
Unit:SendChatMessage(12, 0, "Witness my first path, the brave and mighty Warrior!")
Unit:SetModel(16539)
Unit:CastSpell(37786)
Unit:RegisterEvent("uk_1spell1", 10000, 0)
Unit:RegisterEvent("uk_1spell2", 20000, 0)
Unit:RegisterEvent("uk_Phase2", 1000, 0)
end
end

function uk_Phase2(Unit, Event)
if Unit:GetHealthPct() < 81 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "See the power of my second path, the powerful and knowledge hungry Mage!")
Unit:SetModel(11396)
Unit:CastSpell(43426)
Unit:RegisterEvent("uk_2spell1", 5000, 0)
Unit:RegisterEvent("uk_2spell2", 20000, 0)
Unit:RegisterEvent("uk_Phase3", 1000, 0)
end
end

function uk_Phase3(Unit, Event)
if Unit:GetHealthPct() < 72 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The third path, the stealthy rogue, hiding in the shadows and using cheap tricks.")
Unit:SetModel(2314)
Unit:RegisterEvent("uk_3spell1", 15000, 0)
Unit:RegisterEvent("uk_3spell2", 5000, 0)
Unit:RegisterEvent("uk_Phase4", 1000, 0)
end
end

function uk_Phase4(Unit, Event)
if Unit:GetHealthPct() < 63 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The fourth path, the mighty Paladin, defender of the light and the Alliance.")
Unit:SetModel(1499)
Unit:CastSpell(41541)
Unit:RegisterEvent("uk_4spell1", 30000, 0)
Unit:RegisterEvent("uk_Phase5", 1000, 0)
end
end

function uk_Phase5(Unit, Event)
if Unit:GetHealthPct() < 54 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "Ahhh... The fifth path- the great Deathknight, the might of the Scourge.")
Unit:SetModel(16513) 
Unit:RegisterEvent("uk_5spell1", 15000, 0)
Unit:RegisterEvent("uk_Phase6", 1000, 0) 
end
end

function uk_Phase6(Unit, Event)
if Unit:GetHealthPct() < 45 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "My sixth path, the Hunter, stalker of the wild.")
Unit:SetModel(2206)
Unit:RegisterEvent("uk_summon1", 1000, 1)	 
Unit:RegisterEvent("uk_summon2", 1000, 1)
Unit:CastSpell(49067)
Unit:RegisterEvent("uk_Phase7", 1000, 0)
end
end

function uk_Phase7(Unit, Event)
if Unit:GetHealthPct() < 36 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "My seventh path, the Druid- warden of the forest.")
Unit:SetModel(21635)
Unit:RegisterEvent("uk_7spell1", 8000, 0)
Unit:RegisterEvent("uk_Phase8", 1000, 0) 
end
end

function uk_Phase8(Unit, Event)
if Unit:GetHealthPct() < 27 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The eighth path, the Shaman, calling upon the forces of the elements.")
Unit:SetModel(4542)
Unit:RegisterEvent("uk_8spell1", 10000, 0)
Unit:RegisterEvent("uk_Phase9", 1000, 0)
end
end

function uk_Phase9(Unit, Event)
if Unit:GetHealthPct() < 18 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The ninth path, the priest, healing with the power of the Light or corrupting with the power of the Shadow.")
Unit:SetModel(1495)
Unit:RegisterEvent("uk_9spell1", 15000, 0)
Unit:RegisterEvent("uk_9spell2", 3000, 0)
Unit:RegisterEvent("uk_Phase10", 1000, 0)
end
end

function uk_Phase10(Unit, Event)
if Unit:GetHealthPct() < 9 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The tenth path, the warlock, master of dark magic and destruction.")
Unit:SetModel(16309)
Unit:RegisterEvent("uk_10spell1", 2000, 0)
end
end

function uk_normalspell1 (Unit, Event)
Unit:CastSpell(38924)
end

function uk_1spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(59035, Unit:GetMainTank())
end

function uk_1spell2 (Unit, Event)
Unit:FullCastSpellOnTarget(54132, Unit:GetRandomPlayer(1))
end

function uk_2spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(28478, Unit:GetMainTank())
end

function uk_2spell2 (Unit, Event)
Unit:FullCastSpellOnTarget(54132, Unit:GetRandomPlayer(1))
end

function uk_3spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(41978, Unit:GetMainTank())
end

function uk_3spell2 (Unit, Event)
Unit:FullCastSpellOnTarget(59409, Unit:GetRandomPlayer(1))
end

function uk_4spell1 (Unit, Event)
Unit:CastSpell(48817)
end

function uk_5spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(55321, Unit:GetMainTank())
end

function uk_7spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(54459, Unit:GetMainTank())
end

function uk_8spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(61528, Unit:GetMainTank())
end

function uk_9spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(46560, Unit:GetRandomPlayer(0))
end

function uk_9spell2 (Unit, Event)
Unit:FullCastSpellOnTarget(52722, Unit:GetMainTank())
end

function uk_10spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(57374, Unit:GetMainTank())
end

function uk_summon1(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (133707, x, y, z, o, 14 ,60000);
end

function uk_summon2(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (133708, x, y, z, o, 14 ,60000);
end

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

function uk_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "Join the Dark Ones!")
end

function uk_OnDied(Unit, Event)
Unit:SendChatMessage(12, 0, "I... will... return....")
Unit:RemoveEvents()
Unit:SetModel(18194)
Unit:SetScale(0.3)
end

function uk_OnSpawn(Unit, Event)
Unit:RemoveEvents()
Unit:SetModel(16279)
end


RegisterUnitEvent(55555, 1, "uk_OnCombat")
RegisterUnitEvent(55555, 2, "uk_OnLeaveCombat")
RegisterUnitEvent(55555, 3, "uk_OnKilledTarget")
RegisterUnitEvent(55555, 4, "uk_OnDied")
RegisterUnitEvent(55555, 6, "uk_OnSpawn")
    Code:
    function dk_OnCombat(Unit, Event)
Unit:SendChatMessage(12, 0, "You shall make a fine addition to my army!")
Unit:RegisterEvent("dk_Spell1", 5000, 0)
Unit:RegisterEvent("dk_Spell5", 10000, 0)
Unit:RegisterEvent("dk_Phase1", 1000, 0)
end

function dk_Phase1(Unit, Event)
if Unit:GetHealthPct() < 65 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Deathknights! Aid me!")
Unit:RegisterEvent("dk_Phase2", 1000, 0)
Unit:RegisterEvent("dk_Summon", 1000, 2)
end
end

function dk_Phase2(Unit, Event)
if Unit:GetHealthPct() < 50 then
Unit:RemoveEvents()
Unit:SetModel(22702)
Unit:SetScale(2)
Unit:SendChatMessage(14, 0, "My mortal form is shed! Witness the power of true darkness!")
Unit:RegisterEvent("dk_Phase3", 1000, 0)
Unit:RegisterEvent("dk_Spell2", 5000, 0)
Unit:RegisterEvent("dk_Spell4", 20000, 0)
end
end

function dk_Phase3(Unit, Event)
if Unit:GetHealthPct() < 8 then
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "I am fed by the power of death itself! FEEL MY WRATH!!!")
Unit:RegisterEvent("dk_Spell3", 6000, 0)
end
end

function dk_Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(55321, Unit:GetMainTank())
end

function dk_Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(57374, Unit:GetMainTank())
end

function dk_Spell3(Unit, Event)
Unit:CastSpell(59377)
end


function dk_Spell4(Unit, Event)
Unit:FullCastSpellOnTarget(21330, Unit:GetRandomPlayer(0))
end


function dk_Spell5(Unit, Event)
Unit:FullCastSpellOnTarget(55053, Unit:GetRandomPlayer(0))
end

function dk_Summon(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (133711, x, y, z, o, 14 ,60000);
end

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

function dk_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "Rest while you can, for soon you too shall taste the sweet embrace of undeath!")
end

function dk_OnDied(Unit, Event)
Unit:RemoveEvents()
Unit:SendChatMessage(12, 0, "Death... She stalks me... once more....")
end

RegisterUnitEvent(133714, 1, "dk_OnCombat")
RegisterUnitEvent(133714, 2, "dk_OnLeaveCombat")
RegisterUnitEvent(133714, 3, "dk_OnKilledTarget")
RegisterUnitEvent(133714, 4, "dk_OnDied")
    Code:
    function Necromancer_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Your flesh is mine!")
Unit:RegisterEvent("Necromancer_Spell1", 3000, 0)
end

function Necromancer_Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(36275, Unit:GetRandomPlayer(0))
end

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

function Necromancer_OnKillTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "I will live up to Highlord Blightbearer's expectations!")
end

function Necromancer_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "I have failed you master!")
Unit:RemoveEvents()
end

RegisterUnitEvent(133710, 1, "Necromancer_OnCombat")
RegisterUnitEvent(133710, 2, "Necromancer_OnLeaveCombat")
RegisterUnitEvent(133710, 3, "Necromancer_OnKillTarget")
RegisterUnitEvent(133710, 4, "Necromancer_OnDied")
    Code:
    function Deathknight_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Death awaits you mortals!")
Unit:RegisterEvent("Deathknight_Spell1", 10000, 0)
end

function Deathknight_Spell1(Unit, Event)
Unit:FullCastSpellOnTarget(56361, Unit:GetMainTank())
end

function Deathknight_OnLeaveCombat(Unit, Event)
UnitRemoveEvents()
end

function Deathknight_OnKillTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "Highlord Plaguebringer shall be pleased indeed.")
end

function Deathknight_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "Highlord Plaguebringer shall see to your deaths!")
Unit:RemoveEvents()
end

RegisterUnitEvent(133711, 1, "Deathknight_OnCombat")
RegisterUnitEvent(133711, 2, "Deathknight_OnLeavecombat")
RegisterUnitEvent(133711, 3, "Deathknight_OnKillTarget")
RegisterUnitEvent(133711, 4, "Deathknight_OnDied")
    Code:
    function Sapphiron_Nether_Burn(Unit, event, miscunit, misc)
	print "Sapphiron Nether Burn"
	Unit:FullCastSpellOnTarget(30523,Unit:GetClosestPlayer())
	Unit:SendChatMessage(11, 0, "Hello adventures ... This is the end of the line.")
end

function Sapphiron_Vode_Zone(Unit, event, miscunit, misc)
	print "Sapphiron Vode Zone"
	Unit:FullCastSpellOnTarget(30533,Unit:GetRandomPlayer())
	Unit:SendChatMessage(11, 0, "Let unholy flames purge you!")
end

function Dragon_Spawn(pUnit, Event) 
if pUnit:GetHealthPct() < 80 then 
Unit:RemoveEvents(); 
Unit:FullCastSpell(0)
Unit:RegisterEvent("Dragon_Spawn",100,5)
Unit:RegisterEvent("Dragon_Spawn",1000,0)
end

function Dragon_Spawn(pUnit, Event) 
if pUnit:GetHealthPct() < 40 then 
Unit:RemoveEvents(); 
Unit:FullCastSpell(0)
Unit:RegisterEvent("Dragon_Spawn",100,5)
Unit:RegisterEvent("Dragon_Spawn",1000,0)
end

function Dragon_Spawn(pUnit, Event) 
if pUnit:GetHealthPct() < 20 then 
Unit:RemoveEvents(); 
Unit:FullCastSpell(0)
Unit:RegisterEvent("Dragon_Spawn",100,5)
Unit:RegisterEvent("Dragon_Spawn",1000,0)
end

function Sapphiron_Banish_Phase(Unit, event, miscunit, misc)
	print "Sapphiron Banish Phase"
	Unit:SendAreaTriggerMessage("BANISH PHASE")
	Unit:FullCastSpell(35182)
	Unit:FullCastSpellOnTarget(38524,Unit:GetClosestPlayer())
end

function Sapphiron_Enrage(Unit, event, miscunit, misc)
	print "Sapphiron Enrage"
	Unit:FullCastSpell(35595)
	Unit:SendChatMessage(11, 0, "You will all die...")
end

function Dragon_Spawn(pUnit, Event) 
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
pUnit:SpawnCreature(133799, x, y, z, o, 14, 600000) 
end

function Sapphiron(unit, event, miscunit, misc)
	print "Sapphiron"
	unit:RegisterEvent("Sapphiron_Portal_PhaseA",1000,1)
	unit:RegisterEvent("Sapphiron_Nether_Burn",10000,0)
	unit:RegisterEvent("Sapphiron_Vode_Zone",20000,0)
	unit:RegisterEvent("Sapphiron_Banish_Phase",30000,0)
	unit:RegisterEvent("Sapphiron_Portal_PhaseB",60000,0)
	unit:RegisterEvent("Sapphiron_Enrage",540000,0)
	unit:RegisterEvent("Dragon_Spawn",1000,5)
end

RegisterUnitEvent(15989,1,"Sapphiron")
    Code:
    function uk_OnCombat(Unit, Event)
Unit:SetFaction(35)
Unit:RegisterEvent("uk_TalkStart1", 1000, 0)
end

--				--
	-- Cinematic --
--				--

function uk_TalkStart1(Unit,Event)
Unit:RemoveEvents()
Unit:SetCombatCapable(1)
x=Unit:GetX()
y=Unit:GetY()
z=Unit:GetZ()
o=Unit:GetO()
Unit:MoveTo(x, y+5, z, o)
Unit:SendChatMessage(14, 0, "Fools! Do you realize what you have done? I was in the middle of bending the will of Deathwing to my own! Although, the creature is more powerful than I anticipated...")
Unit:RegisterEvent("uk_TalkStart2", 9000, 0)
end

function uk_TalkStart2(Unit,Event)
Unit:RemoveEvents()
Unit:SetCombatCapable(0)
Unit:StopMovement(2000)
Unit:SendChatMessage(14, 0, "You think of me as a simple human? I am a champion of the black dragonflight! I have survived eons! I have witnessed the fall of empires! I have mastered every path, perfected every art! I am the messanger of the Old Gods themselves! Prepare yourselves, for utter destruction!")
Unit:SetModel(18194)
Unit:SetScale(0.3)
Unit:SetFaction(14)
Unit:RegisterEvent("uk_Phase1", 1000, 0)
Unit:RegisterEvent("uk_normalspell1", 30000, 0)
end

function uk_Phase1(Unit, Event)
if Unit:GetHealthPct() < 90 then
Unit:RemoveEvents()
Unit:SetScale(1) 
Unit:SendChatMessage(12, 0, "Witness my first path, the brave and mighty Warrior!")
Unit:SetModel(16539)
Unit:CastSpell(37786)
Unit:RegisterEvent("uk_1spell1", 10000, 0)
Unit:RegisterEvent("uk_1spell2", 20000, 0)
Unit:RegisterEvent("uk_Phase2", 1000, 0)
end
end

function uk_Phase2(Unit, Event)
if Unit:GetHealthPct() < 81 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "See the power of my second path, the powerful and knowledge hungry Mage!")
Unit:SetModel(11396)
Unit:CastSpell(43426)
Unit:RegisterEvent("uk_2spell1", 5000, 0)
Unit:RegisterEvent("uk_2spell2", 20000, 0)
Unit:RegisterEvent("uk_Phase3", 1000, 0)
end
end

function uk_Phase3(Unit, Event)
if Unit:GetHealthPct() < 72 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The third path, the stealthy rogue, hiding in the shadows and using cheap tricks.")
Unit:SetModel(2314)
Unit:RegisterEvent("uk_3spell1", 15000, 0)
Unit:RegisterEvent("uk_3spell2", 5000, 0)
Unit:RegisterEvent("uk_Phase4", 1000, 0)
end
end

function uk_Phase4(Unit, Event)
if Unit:GetHealthPct() < 63 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The fourth path, the mighty Paladin, defender of the light and the Alliance.")
Unit:SetModel(1499)
Unit:CastSpell(41541)
Unit:RegisterEvent("uk_4spell1", 30000, 0)
Unit:RegisterEvent("uk_Phase5", 1000, 0)
end
end

function uk_Phase5(Unit, Event)
if Unit:GetHealthPct() < 54 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "Ahhh... The fifth path- the great Deathknight, the might of the Scourge.")
Unit:SetModel(16513) 
Unit:RegisterEvent("uk_5spell1", 15000, 0)
Unit:RegisterEvent("uk_Phase6", 1000, 0) 
end
end

function uk_Phase6(Unit, Event)
if Unit:GetHealthPct() < 45 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "My sixth path, the Hunter, stalker of the wild.")
Unit:SetModel(2206)
Unit:RegisterEvent("uk_summon1", 1000, 1)	 
Unit:RegisterEvent("uk_summon2", 1000, 1)
Unit:CastSpell(49067)
Unit:RegisterEvent("uk_Phase7", 1000, 0)
end
end

function uk_Phase7(Unit, Event)
if Unit:GetHealthPct() < 36 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "My seventh path, the Druid- warden of the forest.")
Unit:SetModel(21635)
Unit:RegisterEvent("uk_7spell1", 8000, 0)
Unit:RegisterEvent("uk_Phase8", 1000, 0) 
end
end

function uk_Phase8(Unit, Event)
if Unit:GetHealthPct() < 27 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The eighth path, the Shaman, calling upon the forces of the elements.")
Unit:SetModel(4542)
Unit:RegisterEvent("uk_8spell1", 10000, 0)
Unit:RegisterEvent("uk_Phase9", 1000, 0)
end
end

function uk_Phase9(Unit, Event)
if Unit:GetHealthPct() < 18 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The ninth path, the priest, healing with the power of the Light or corrupting with the power of the Shadow.")
Unit:SetModel(1495)
Unit:RegisterEvent("uk_9spell1", 15000, 0)
Unit:RegisterEvent("uk_9spell2", 3000, 0)
Unit:RegisterEvent("uk_Phase10", 1000, 0)
end
end

function uk_Phase10(Unit, Event)
if Unit:GetHealthPct() < 9 then
Unit:RemoveEvents() 
Unit:SendChatMessage(12, 0, "The tenth path, the warlock, master of dark magic and destruction.")
Unit:SetModel(16309)
Unit:RegisterEvent("uk_10spell1", 2000, 0)
end
end

function uk_normalspell1 (Unit, Event)
Unit:CastSpell(38924)
end

function uk_1spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(59035, Unit:GetMainTank())
end

function uk_1spell2 (Unit, Event)
Unit:FullCastSpellOnTarget(54132, Unit:GetRandomPlayer(1))
end

function uk_2spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(28478, Unit:GetMainTank())
end

function uk_2spell2 (Unit, Event)
Unit:FullCastSpellOnTarget(54132, Unit:GetRandomPlayer(1))
end

function uk_3spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(41978, Unit:GetMainTank())
end

function uk_3spell2 (Unit, Event)
Unit:FullCastSpellOnTarget(59409, Unit:GetRandomPlayer(1))
end

function uk_4spell1 (Unit, Event)
Unit:CastSpell(48817)
end

function uk_5spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(55321, Unit:GetMainTank())
end

function uk_7spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(54459, Unit:GetMainTank())
end

function uk_8spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(61528, Unit:GetMainTank())
end

function uk_9spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(46560, Unit:GetRandomPlayer(0))
end

function uk_9spell2 (Unit, Event)
Unit:FullCastSpellOnTarget(52722, Unit:GetMainTank())
end

function uk_10spell1 (Unit, Event)
Unit:FullCastSpellOnTarget(57374, Unit:GetMainTank())
end

function uk_summon1(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (133707, x, y, z, o, 14 ,60000);
end

function uk_summon2(Unit, Event)
local x = Unit:GetX();
local y = Unit:GetY();
local z = Unit:GetZ();
local o = Unit:GetO();
Unit:SpawnCreature (133708, x, y, z, o, 14 ,60000);
end

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

function uk_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "Join the Dark Ones!")
end

function uk_OnDied(Unit, Event)
Unit:SendChatMessage(12, 0, "I... will... return....")
Unit:RemoveEvents()
Unit:SetModel(18194)
Unit:SetScale(0.3)
end

function uk_OnSpawn(Unit, Event)
Unit:RemoveEvents()
Unit:SetModel(16279)
end


RegisterUnitEvent(55555, 1, "uk_OnCombat")
RegisterUnitEvent(55555, 2, "uk_OnLeaveCombat")
RegisterUnitEvent(55555, 3, "uk_OnKilledTarget")
RegisterUnitEvent(55555, 4, "uk_OnDied")
RegisterUnitEvent(55555, 6, "uk_OnSpawn")
    Reply With Quote Reply With Quote
    .lua's not working
  2. 08-20-2009 #2
    Kaidos's Avatar
    Kaidos
    Kaidos is offline
    Contributor
    Reputation
    148
    Join Date
    Jun 2008
    Posts
    324
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Send a message via MSN to Kaidos
    Code:
    function On_Gossip(unit, event, player)
unit:GossipCreateMenu(15, player, 0)
unit:GossipMenuAddItem(2, "I will go to Rohan!", 1, 0)
unit:GossipMenuAddItem(0, "Nevermind.", 201, 0)
unit:GossipSendMenu(player)
end

function Gossip_Submenus(unit, event, player, id, intid, code)

if(intid == 201) then
player:GossipComplete()
end

if(intid == 1) then
player:Teleport(1, -4580.280762, -3706.275879, 46.666096)
end
end

RegisterUnitGossipEvent(99999, 1, "On_Gossip")
RegisterUnitGossipEvent(99999, 2, "Gossip_Submenus")
    You missed an end. Add always more then one GossipMenuAddItem, because if there is only one, the lua engine will choose him automatically.


    uhmm simple as the title said, the logon/realms thing does NOT show [...]
    You need to look into the world.exe^^


    EDIT: edited the script, i failed at a point lol.
    Last edited by Kaidos; 08-21-2009 at 05:10 AM.
    Reply With Quote Reply With Quote
  3. 08-20-2009 #3
    Gastricpenguin's Avatar
    Gastricpenguin
    Gastricpenguin is offline
    Legendary
    Reputation
    980
    Join Date
    Feb 2007
    Posts
    2,236
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Also, if none of them are working, do you even have lua enabled in world.config?
    Reply With Quote Reply With Quote
  4. 08-20-2009 #4
    thebigman's Avatar
    thebigman
    thebigman is offline
    Contributor Reliable Trader
    CoreCoins Purchaser
    Reputation
    89
    Join Date
    Dec 2008
    Posts
    605
    Thanks G/R
    2/0
    Trade Feedback
    26 (96%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    its all lua enabled.
    thanks for the nvm part.
    Reply With Quote Reply With Quote
  5. 08-20-2009 #5
    thebigman's Avatar
    thebigman
    thebigman is offline
    Contributor Reliable Trader
    CoreCoins Purchaser
    Reputation
    89
    Join Date
    Dec 2008
    Posts
    605
    Thanks G/R
    2/0
    Trade Feedback
    26 (96%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    ok thanks guys. Im not too happy the dragon one didnt work and the teleporters still dont even with revision, so i still need help with the top dragon one. It seems to not work at all.

    Same with the mage script (not the enslaved mages, the boss one)

    no errors at this point.
    Reply With Quote Reply With Quote
  6. 08-22-2009 #6
    jfigal's Avatar
    jfigal
    jfigal is offline
    Member
    Reputation
    3
    Join Date
    Jun 2007
    Posts
    5
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Actually, you can only have one Item in a menu.
    I've had this script and it has worked fine.
    Code:
    function Healer_OnTalk(Unit, event, player)
Unit:GossipCreateMenu(50, player, 0)
Unit:GossipMenuAddItem(0, "Heal Me!", 1, 0)
Unit:GossipSendMenu(player)
end

function Healer_OnSelect(unit, event, player, id, intid, code)
if (intid == 1) then
player:SetHealthPct(100)
player:GossipComplete()
end
end

RegisterUnitGossipEvent(400006, 1, "Healer_OnTalk")
RegisterUnitGossipEvent(400006, 2, "Healer_OnSelect")
    Reply With Quote Reply With Quote
  7. 08-23-2009 #7
    thebigman's Avatar
    thebigman
    thebigman is offline
    Contributor Reliable Trader
    CoreCoins Purchaser
    Reputation
    89
    Join Date
    Dec 2008
    Posts
    605
    Thanks G/R
    2/0
    Trade Feedback
    26 (96%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    thhhhank you.


    just dragon not working and mage boss
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Similar Threads

  1. LUA script not working
    By pedobear123 in forum World of Warcraft General
    Replies: 12
    Last Post: 09-01-2008, 09:38 AM
  2. Lua portal not working
    By Noobcraft in forum WoW EMU Questions & Requests
    Replies: 6
    Last Post: 08-14-2008, 06:48 PM
  3. [Help] Lua Script Not Working
    By Muruk in forum World of Warcraft Emulator Servers
    Replies: 26
    Last Post: 03-16-2008, 02:13 PM
  4. LUA portals not working
    By roguesownu in forum World of Warcraft Emulator Servers
    Replies: 5
    Last Post: 02-23-2008, 05:49 PM
  5. Simple Lua Script , not working need help!
    By Arugos in forum World of Warcraft Emulator Servers
    Replies: 16
    Last Post: 12-30-2007, 02:06 PM
All times are GMT -5. The time now is 05:38 PM. Powered by vBulletin® Version 4.2.3
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search