[Release] Meiya Stormsinger

[Meiya Stormsinger]

[ame="http://www.youtube.com/watch?v=HYwoizwk_XY"]YouTube - Meiya Stormsinger[/ame]

Alright, im going to add a brief explanation for this boss.

It's a druid wannabe boss, named Meiya Stormsinger, i got the name from myself, i use the name Meiya on most of my wow characters, and i think it fits a druid aswell. i will now explain the phases.

Phase 1: As soon as he enters combat he will transform into a cat, Every 10 seconds the boss will cast Rend, wich deals about 3k damage each 2 or 3 seconds, the boss will also do Rake and Mangle, wich are also Dots, but they don't deal as much damage as the rend, every 15 seconds the boss will also do a Thunderclap lookalike thing named Pound, That deals about 2k damage each hit, and it hits 3 times, so about 6k damage aproximetly... Also every 14 seconds the boss will do Absorb Vitality wich makes you loose 20 Str and 20 Agi, and also increases the bosses agi and str by 20%, this spell stacks. Each 10 seconds the boss will also spawn a cloud that deals damage over time, and it deals about 2k damage each 1 second, so you have to move out of it or you will die, this stays thru all phases, same goes with the Random Buffs, they are called Wild Magic, and the 4 different ones do different thing, one increases threat caused by 100%, another one increases critical strike damage by 100%, one increases healing by 100%, and the last one reduces mana cost of all spells by 50%.

Once the boss reaches 70% HP, it will start phase 2.

Phase 2: The boss will yell "You are making me angry!" and it will turn into a bear, the boss will now start casting a silencing roar every 14 seconds, wich silences you for 2 seconds and deals like 2000 damage, it will also cast another roar that reduces your attackpower by about 500 each 30 seconds. The boss will cast Swipe aswell, wich deals about 10k damage if it hits you, that happends every 5 seconds, but feel free to modify that. The boss will also cast Creeping Paralyzis wich is a debuff that has a 5 second countdown, after the countdown is gone, you will get stunned for 3 seconds, but the paralyze is dispellable during the countdown part, tell the priests to use Mass Dispell. It will also spawn adds every 40 seconds, wich are called "Raging Moonkins" they cast wrath each second that deals about 3k damage, so you have to kill those fast or you will die.

And as soon as it reaches 30% HP it will start phase 3.

Phase 3: During this phase the boss is in normal night elf form, it will now be acting as a moonkin / healer... Each 5 seconds the boss casts a Moonfire that tics for about 500 damage, but it stacks, don't remember if it's a aoe spell or just hits one, but anyways it stacks... The boss will also cast Lifebloom each 20 seconds that tics for about 5k each tic, it is dispellable by a shaman. Each 9 seconds the boss will also cast an aoe spell named "Call Lightning" that deals about 4k damage, and during this phase the boss will also be doing a spell named "Brutal Swipe" wich can deal up to 20k damage if you take a hit from it, it's the same spell as the one used in Zul'Aman bear boss... Boss will also do a spell named Blinding Light wich looks like an AoE moonfire, but it doesnt add any effect, it just deals about 5k damage if i'm not wrong. The boss will also be doing some more random buffs during this phase, and those spells are the ones from Bwl, they increase Frostdamage by 25% but reduces fire damage by 25% as an example, but it's random.

Thats most likely the entire boss fight, not good at explaining but i atleast tried.

--[[  Meiya Stormsinger  ]]--
--[[  Smurfen© Original  ]]--
--[[_____________________]]--




--[[Meiya Stormsinger]]--

function Meiya_Rend(Unit, event)
    local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
     Unit:FullCastSpellOnTarget(54708, SpellTarget)
	else
  end
end


function Meiya_Absorb(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	 Unit:FullCastSpellOnTarget(29323, SpellTarget)
	else
  end
end

function Meiya_Rake(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(53499, SpellTarget)
	else
  end
end

function Meiya_Pound(Unit, event)
	Unit:FullCastSpell(34162)
end

function Meiya_Mangle(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(31041, SpellTarget)
	else
  end
end

function Meiya_Bear_Form(Unit, event)
	Unit:SetModel(1082)
end

function Meiya_Swipe(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(42395, SpellTarget)
	else
  end
end

function Meiya_Summon(Unit, Event)
x = Unit:GetX()
y = Unit:GetY()
z = Unit:GetZ()
o = Unit:GetO()
	Unit:SpawnCreature(60001, 6251.000977, 5752.145020, -6.270163, 2.244286, 14, 999999999)
	Unit:SpawnCreature(60001, 6221.815918, 5784.540039, -6.270830, 5.468343, 14, 999999999)
end

function Meiya_Paralyze(Unit, event)
	Unit:CastSpell(43095)
end

function Meiya_Roar(Unit, event)
	Unit:CastSpell(48560)
end

function Meiya_Roar2(Unit, event)
	Unit:CastSpell(59010)
end

function Meiya_Random_Buffs(Unit, event)
local Buff = math.random(1,4)
    if Buff == 1 then
        Unit:CastSpell(44978)
    end
   
    if Buff == 2 then
        Unit:CastSpell(45006)
    end

    if Buff == 3 then
        Unit:CastSpell(45004)
    end

    if Buff == 4 then
        Unit:CastSpell(45010)
    end
end

function Meiya_Phase4(Unit, event)
	Unit:FullCastSpell(45855)
end

function Meiya_Blinding_Light(Unit, event)
	Unit:FullCastSpell(33009)
end

function Meiya_Moonfire(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(43545, SpellTarget)
	else
  end
end

function Meiya_Lightning(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(43661, SpellTarget)
	else
  end
end

function Meiya_Brutal_Swipe(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(56586, SpellTarget)
	else
  end
end

function Meiya_Lifebloom(Unit, event, miscunit, misc)
	Unit:FullCastSpell(43421)
end

function Meiya_Cloud(Unit, event, miscunit, misc)
local Cloud = math.random(1,9)
	if Cloud == 1 then
		Unit:SpawnCreature(60002, 6227.686035, 5760.978027, -6.386242, 0.834875 , 14, 30000)
end

	if Cloud == 2 then
		Unit:SpawnCreature(60002, 6237.043457, 5788.960449, -6.130141, 0.907917 , 14, 30000)
end

	if Cloud == 3 then
		Unit:SpawnCreature(60002, 6243.418945, 5752.062988, -6.250000, 4.450847, 14, 30000)
end

	if Cloud == 4 then
		Unit:SpawnCreature(60002, 6216.602539, 5744.271973, -5.168359, 3.390559, 14, 30000)
end

	if Cloud == 5 then
		Unit:SpawnCreature(60002, 6208.830566, 5761.512695, -6.130295, 1.560582, 14, 30000)
end

	if Cloud == 6 then
		Unit:SpawnCreature(60002, 6212.263184, 5787.220703, -6.130295, 1.302186, 14, 30000)
end

	if Cloud == 7 then
		Unit:SpawnCreature(60002, 6236.048828, 5771.378418, -6.332530, 5.723976, 14, 30000)
end

	if Cloud == 8 then
		Unit:SpawnCreature(60002, 6245.803711, 5780.999023, -6.270755, 1.698802, 14, 30000)
end

	if Cloud == 9 then
		Unit:SpawnCreature(60002, 6201.681152, 5755.654297, -4.113744, 0.700558, 14, 30000)
	end
end

function Meiya_Random_Buffs2(Unit, event)
local Buff = math.random(1,6)
	if Buff == 1 then
		Unit:CastSpell(40880)
end
	if Buff == 2 then
		Unit:CastSpell(40883)
end
	if Buff == 3 then
		Unit:CastSpell(40897)
end
	if Buff == 4 then
		Unit:CastSpell(40896)
end
	if Buff == 5 then
		Unit:CastSpell(40882)
end
	if Buff == 6 then
		Unit:CastSpell(40891)
	end
end

function Meiya_StopMovement(Unit, event)
              Unit:StopMovement(20000)
end

function Meiya_LeaveCombat(Unit, event)
	Unit:RemoveEvents()
	Unit:SendChatMessage(14,0,"I warned you!")
	Unit:RemoveAura(18309)
	Unit:SetModel(15399)
end

function Meiya_Died(Unit, event)
	Unit:RemoveEvents()
	Unit:SendChatMessage(14,0,"The tradgedy of life is not that it ends so soon, but that we wait so long to begin it!")
end

function Meiya_OnCombat(Unit, event, miscunit, misc)
		Unit:SendChatMessage(14, 0, "You are brave, but you will never defeat me!")
		Unit:SetModel(15506)
    		Unit:RegisterEvent("Meiya_Rend",10000,0)
    		Unit:RegisterEvent("Meiya_Rake",11000,0)
    		Unit:RegisterEvent("Meiya_Mangle",12000,0)
    		Unit:RegisterEvent("Meiya_Phase2",1000,0)
    		Unit:RegisterEvent("Meiya_Pound",15000,0)
    		Unit:RegisterEvent("Meiya_Absorb",14000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000, 0)
end

function Meiya_Phase2(Unit, event, miscunit, misc)
	if Unit:GetHealthPct() < 70 then
		Unit:RemoveAura(21653)
		Unit:RemoveEvents()
		Unit:SendChatMessage(14, 0, "You are making me angry!")
		Unit:RegisterEvent("Meiya_Bear_Form",1000,1)
		Unit:RegisterEvent("Meiya_Swipe",5000,0)
		Unit:RegisterEvent("Meiya_Roar",30000,0)
		Unit:RegisterEvent("Meiya_Roar2",14000,0)
		Unit:RegisterEvent("Meiya_Phase3",1000,0)
		Unit:RegisterEvent("Meiya_Paralyze",23000,0)
		Unit:RegisterEvent("Meiya_Summon",40000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000, 0)
		Unit:RegisterEvent("Meiya_StopMovement",40000,0)
end
end

function Meiya_Phase3(Unit, event, miscunit, misc)
	if Unit:GetHealthPct() < 30 then
		Unit:RemoveAura(18309)
		Unit:RemoveEvents()
		Unit:SetModel(15399)
		Unit:StopMovement(1000)
		Unit:SendChatMessage(14,0,"Perhaps you think you're being treated unfairly?")
		Unit:RegisterEvent("Meiya_Phase4",1000,1)
		Unit:RegisterEvent("Meiya_Moonfire",5000,0)
		Unit:RegisterEvent("Meiya_Lifebloom",20000,0)
		Unit:RegisterEvent("Meiya_Lightning",9000,0)
		Unit:RegisterEvent("Meiya_Brutal_Swipe",33000,0)
		Unit:RegisterEvent("Meiya_Blinding_Light",12000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs2",10000,0)
end
end


RegisterUnitEvent(60000,1,"Meiya_OnCombat")
RegisterUnitEvent(60000,2,"Meiya_LeaveCombat")
RegisterUnitEvent(60000,4,"Meiya_Died")








--[[ Raging Moonkin ]]--

function Raging_Wrath(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(20698, SpellTarget)
   else
  end
end

function Raging_Move(Unit, Event)
   local SpellTarget = Unit:GetRandomPlayer(0)
   if (SpellTarget ~= nil) then
   Unit:MoveTo(SpellTarget:GetX(), SpellTarget:GetY(), SpellTarget:GetZ(), SpellTarget:GetO())
   else
  end
end

function Raging_Explosion(Unit, event)
	if Unit:GetHealthPct() < 15 then
		Unit:CastSpell(52429)
		Unit:Kill(Unit)
end
end

function Raging_OnSpawn(Unit, event)
	Unit:SendChatMessage(14,0,"Feel my wrath!")
	Unit:FullCastSpellOnTarget(20698,Unit:GetRandomPlayer(0))
	Unit:RegisterEvent("Raging_Move",1000,1)
end

function Raging_OnCombat(Unit, event)
	Unit:RegisterEvent("Raging_Explosion",1000,0)
	Unit:RegisterEvent("Raging_Wrath",1500,0)
end

function Raging_OnDied(Unit, event)
	Unit:RemoveEvents()
	Unit:Despawn(1,0)
end

function Raging_OnLeaveCombat(Unit, event)
	Unit:RemoveEvents()
	Unit:Despawn(1, 0)
end

RegisterUnitEvent(60001,18,"Raging_OnSpawn")
RegisterUnitEvent(60001,1,"Raging_OnCombat")
RegisterUnitEvent(60001,2,"Raging_OnLeaveCombat")
RegisterUnitEvent(60001,4,"Raging_OnDied")





--[[Poison Cloud]]--

function Cloud_OnSpawn(Unit, event)
	Unit:CastSpell(61672)
             Unit:StopMovement(999999999)
end

function Cloud_OnLeaveCombat(Unit, event)
	Unit:Despawn(1000,0)
end

RegisterUnitEvent(60002,18,"Cloud_OnSpawn")
RegisterUnitEvent(60002,2,"Cloud_OnLeaveCombat")

Also, the sql's i use.

insert into `creature_names` (`entry`, `name`, `subname`, `info_str`, `Flags1`, `type`, `family`, `rank`, `unk4`, `spelldataid`, `male_displayid`, `female_displayid`, `male_displayid2`, `female_displayid2`, `unknown_float1`, `unknown_float2`, `civilian`, `leader`) 
values ('60000', "Meiya Stormsinger", "King of Sholazar Basin", '', '0', '10', '0', '3', '0', '0', '15399', '0', '0', '0', '1', '1', '0', '0');

insert into `creature_proto` (`entry`, `minlevel`, `maxlevel`, `faction`, `minhealth`, `maxhealth`, `mana`, `scale`, `npcflags`, `attacktime`, `attacktype`, `mindamage`, `maxdamage`, `can_ranged`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `respawntime`, `armor`, `resistance1`, `resistance2`, `resistance3`, `resistance4`, `resistance5`, `resistance6`, `combat_reach`, `bounding_radius`, `auras`, `boss`, `money`, `invisibility_type`, `death_state`, `walk_speed`, `run_speed`, `fly_speed`, `extra_a9_flags`, `spell1`, `spell2`, `spell3`, `spell4`, `spell_flags`, `modImmunities`) 
values ('60000', '80', '80', '14', '1600000', '1600000', '1000000', '4', '0', '2000', '0', '10000', '20000', '0', '0', '0', '0', '0', '4000', '0', '0', '0', '0', '0', '0', '0', '0', "0", '1', '150000', '0', '0', '14.00', '14.00', '14.00', '0', '0', '0', '0', '0', '0', '34815');




insert into `creature_names` (`entry`, `name`, `subname`, `info_str`, `Flags1`, `type`, `family`, `rank`, `unk4`, `spelldataid`, `male_displayid`, `female_displayid`, `male_displayid2`, `female_displayid2`, `unknown_float1`, `unknown_float2`, `civilian`, `leader`) 
values ('60002', "Poison Cloud", "", '', '13', '10', '0', '1', '0', '0', '11686', '0', '0', '0', '1', '1', '0', '0');

insert into `creature_proto` (`entry`, `minlevel`, `maxlevel`, `faction`, `minhealth`, `maxhealth`, `mana`, `scale`, `npcflags`, `attacktime`, `attacktype`, `mindamage`, `maxdamage`, `can_ranged`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `respawntime`, `armor`, `resistance1`, `resistance2`, `resistance3`, `resistance4`, `resistance5`, `resistance6`, `combat_reach`, `bounding_radius`, `auras`, `boss`, `money`, `invisibility_type`, `death_state`, `walk_speed`, `run_speed`, `fly_speed`, `extra_a9_flags`, `spell1`, `spell2`, `spell3`, `spell4`, `spell_flags`, `modImmunities`) 
values ('60002', '80', '80', '14', '5000000', '5000000', '', '0.1', '0', '1000000', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', "0", '1', '0', '0', '0', '2.50', '8.00', '14.00', '0', '0', '0', '0', '0', '0', '0');




insert into `creature_names` (`entry`, `name`, `subname`, `info_str`, `Flags1`, `type`, `family`, `rank`, `unk4`, `spelldataid`, `male_displayid`, `female_displayid`, `male_displayid2`, `female_displayid2`, `unknown_float1`, `unknown_float2`, `civilian`, `leader`) 
values ('60001', "Raging Moonkin", "Meiya's Minion", '', '0', '1', '0', '1', '0', '0', '12237', '0', '0', '0', '1', '1', '0', '0');

insert into `creature_proto` (`entry`, `minlevel`, `maxlevel`, `faction`, `minhealth`, `maxhealth`, `mana`, `scale`, `npcflags`, `attacktime`, `attacktype`, `mindamage`, `maxdamage`, `can_ranged`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `respawntime`, `armor`, `resistance1`, `resistance2`, `resistance3`, `resistance4`, `resistance5`, `resistance6`, `combat_reach`, `bounding_radius`, `auras`, `boss`, `money`, `invisibility_type`, `death_state`, `walk_speed`, `run_speed`, `fly_speed`, `extra_a9_flags`, `spell1`, `spell2`, `spell3`, `spell4`, `spell_flags`, `modImmunities`) 
values ('60001', '80', '80', '14', '50000', '50000', '100000', '2', '0', '100', '0', '100', '100', '0', '0', '0', '0', '0', '10000', '0', '0', '0', '0', '0', '0', '0', '0', "0", '0', '0', '0', '0', '14.00', '14.00', '14.00', '0', '0', '0', '0', '0', '0', '0');

[Meiya Stormsinger]

I will delete King emberath untill i have added nil values and locals.

Also need to write a boss fight description.

[stoneharry]

Looks good but a note, try using stopmovement instead of root as root doesn't seem to work on a lot of Lua engines. Also post some pictures + more information about the script, not everyone can understand it from just looking at the script +Rep

Edit: The stop movement is done like so,

:StopMovement(1000) = 1 second
:StopMovement(5000) will stop the person moving for 5 seconds

[Meiya Stormsinger]

I changed to StopMovement
Thanks for the rep, i just wanna contribute to MMOwned just like everyone else.


I will also add screenshots or a video when i get home, can't do it at the moment, because i am currently 100 miles from where i live , but i'm going home tomorrow so i will add it by then.

[Link_S]

I have no idea if this is good or not, but as I haven't seen bosses out here on the latest time (Prob because of that they get deleted :P). +Rep.

[Meiya Stormsinger]

I have no idea if this is good or not, but as I haven't seen bosses out here on the latest time (Prob because of that they get deleted :P). +Rep.

I salute you with respect, thanks for the +Rep

[sasoritail]

Any Screenies ?
Want to see the boss
+Rep btw

[Meiya Stormsinger]

Any Screenies ?
Want to see the boss
+Rep btw

Thanks alot for the rep, i salute you.

I'm sorry but unfortunatelly im not at home at the moment =/

Ill be going home tomorrow, so i'll post some pics and / or a video by then. ^^

[advertiser103]

coolio love this script!

[Meiya Stormsinger]

coolio love this script!

Thank you

[Reflection]

Looks cool. Good job.

[Meiya Stormsinger]

Thanks Reflection

[Fyesan]

nice script but one mistake a function miss
but nice work +Rep

--[[  Meiya Stormsinger  ]]--
--[[  Smurfen© Original  ]]--
--[[_____________________]]--




--[[Meiya Stormsinger]]--

function Meiya_Rend(Unit, event)
    local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
     Unit:FullCastSpellOnTarget(54708, SpellTarget)
	else
  end
end


function Meiya_Absorb(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	 Unit:FullCastSpellOnTarget(29323, SpellTarget)
	else
  end
end

function Meiya_Rake(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(53499, SpellTarget)
	else
  end
end

function Meiya_Pound(Unit, event)
	Unit:FullCastSpell(34162)
end

function Meiya_Mangle(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(31041, SpellTarget)
	else
  end
end

function Meiya_Bear_Form(Unit, event)
	Unit:SetModel(1082)
end

function Meiya_Swipe(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(42395, SpellTarget)
	else
  end
end

function Meiya_Summon(Unit, Event)
x = Unit:GetX()
y = Unit:GetY()
z = Unit:GetZ()
o = Unit:GetO()
	Unit:SpawnCreature(60001, 6251.000977, 5752.145020, -6.270163, 2.244286, 14, 999999999)
	Unit:SpawnCreature(60001, 6221.815918, 5784.540039, -6.270830, 5.468343, 14, 999999999)
end

function Meiya_Paralyze(Unit, event)
	Unit:CastSpell(43095)
end

function Meiya_Roar(Unit, event)
	Unit:CastSpell(48560)
end

function Meiya_Roar2(Unit, event)
	Unit:CastSpell(59010)
end

function Meiya_Random_Buffs(Unit, event)
local Buff = math.random(1,4)
    if Buff == 1 then
        Unit:CastSpell(44978)
    end
   
    if Buff == 2 then
        Unit:CastSpell(45006)
    end

    if Buff == 3 then
        Unit:CastSpell(45004)
    end

    if Buff == 4 then
        Unit:CastSpell(45010)
    end
end

function Meiya_Phase4(Unit, event)
	Unit:FullCastSpell(45855)
end

function Meiya_Blinding_Light(Unit, event)
	Unit:FullCastSpell(33009)
end

function Meiya_Moonfire(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(43545, SpellTarget)
	else
  end
end

function Meiya_Lightning(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(43661, SpellTarget)
	else
  end
end

function Meiya_Brutal_Swipe(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(56586, SpellTarget)
	else
  end
end

function Meiya_Lifebloom(Unit, event, miscunit, misc)
	Unit:FullCastSpell(43421)
end

function Meiya_Cloud(Unit, event, miscunit, misc)
local Cloud = math.random(1,9)
	if Cloud == 1 then
		Unit:SpawnCreature(60002, 6227.686035, 5760.978027, -6.386242, 0.834875 , 14, 30000)
end

	if Cloud == 2 then
		Unit:SpawnCreature(60002, 6237.043457, 5788.960449, -6.130141, 0.907917 , 14, 30000)
end

	if Cloud == 3 then
		Unit:SpawnCreature(60002, 6243.418945, 5752.062988, -6.250000, 4.450847, 14, 30000)
end

	if Cloud == 4 then
		Unit:SpawnCreature(60002, 6216.602539, 5744.271973, -5.168359, 3.390559, 14, 30000)
end

	if Cloud == 5 then
		Unit:SpawnCreature(60002, 6208.830566, 5761.512695, -6.130295, 1.560582, 14, 30000)
end

	if Cloud == 6 then
		Unit:SpawnCreature(60002, 6212.263184, 5787.220703, -6.130295, 1.302186, 14, 30000)
end

	if Cloud == 7 then
		Unit:SpawnCreature(60002, 6236.048828, 5771.378418, -6.332530, 5.723976, 14, 30000)
end

	if Cloud == 8 then
		Unit:SpawnCreature(60002, 6245.803711, 5780.999023, -6.270755, 1.698802, 14, 30000)
end

	if Cloud == 9 then
		Unit:SpawnCreature(60002, 6201.681152, 5755.654297, -4.113744, 0.700558, 14, 30000)
	end
end

function Meiya_Random_Buffs2(Unit, event)
local Buff = math.random(1,6)
	if Buff == 1 then
		Unit:CastSpell(40880)
end
	if Buff == 2 then
		Unit:CastSpell(40883)
end
	if Buff == 3 then
		Unit:CastSpell(40897)
end
	if Buff == 4 then
		Unit:CastSpell(40896)
end
	if Buff == 5 then
		Unit:CastSpell(40882)
end
	if Buff == 6 then
		Unit:CastSpell(40891)
	end
end

function Meiya_StopMovement(Unit, event)
              Unit:StopMovement(20000)
end

function Meiya_LeaveCombat(Unit, event)
	Unit:RemoveEvents()
	Unit:SendChatMessage(14,0,"I warned you!")
	Unit:RemoveAura(18309)
	Unit:SetModel(15399)
end

function Meiya_Died(Unit, event)
	Unit:RemoveEvents()
	Unit:SendChatMessage(14,0,"The tradgedy of life is not that it ends so soon, but that we wait so long to begin it!")
end

function Meiya_OnCombat(Unit, event, miscunit, misc)
		Unit:SendChatMessage(14, 0, "You are brave, but you will never defeat me!")
		Unit:SetModel(15506)
    		Unit:RegisterEvent("Meiya_Rend",10000,0)
    		Unit:RegisterEvent("Meiya_Rake",11000,0)
    		Unit:RegisterEvent("Meiya_Mangle",12000,0)
    		Unit:RegisterEvent("Meiya_Phase2",1000,0)
    		Unit:RegisterEvent("Meiya_Pound",15000,0)
    		Unit:RegisterEvent("Meiya_Absorb",14000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000, 0)
end

function Meiya_Phase2(Unit, event, miscunit, misc)
	if Unit:GetHealthPct() < 70 then
		Unit:RemoveAura(21653)
		Unit:RemoveEvents()
		Unit:SendChatMessage(14, 0, "You are making me angry!")
		Unit:RegisterEvent("Meiya_Bear_Form",1000,1)
		Unit:RegisterEvent("Meiya_Swipe",5000,0)
		Unit:RegisterEvent("Meiya_Roar",30000,0)
		Unit:RegisterEvent("Meiya_Roar2",14000,0)
		Unit:RegisterEvent("Meiya_Phase3",1000,0)
		Unit:RegisterEvent("Meiya_Paralyze",23000,0)
		Unit:RegisterEvent("Meiya_Summon",40000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000, 0)
		Unit:RegisterEvent("Meiya_StopMovement",40000,0)
end
end

function Meiya_Phase3(Unit, event, miscunit, misc)
	if Unit:GetHealthPct() < 30 then
		Unit:RemoveAura(18309)
		Unit:RemoveEvents()
		Unit:SetModel(15399)
		Unit:StopMovement(1000)
		Unit:SendChatMessage(14,0,"Perhaps you think you're being treated unfairly?")
		Unit:RegisterEvent("Meiya_Phase4",1000,1)
		Unit:RegisterEvent("Meiya_Moonfire",5000,0)
		Unit:RegisterEvent("Meiya_Lifebloom",20000,0)
		Unit:RegisterEvent("Meiya_Lightning",9000,0)
		Unit:RegisterEvent("Meiya_Brutal_Swipe",33000,0)
		Unit:RegisterEvent("Meiya_Blinding_Light",12000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs2",10000,0)
end
end


RegisterUnitEvent(60000,1,"Meiya_OnCombat")
RegisterUnitEvent(60000,2,"Meiya_LeaveCombat")
RegisterUnitEvent(60000,4,"Meiya_Died")








--[[ Raging Moonkin ]]--

function Raging_Wrath(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(20698, SpellTarget)
   else
  end
end

function Raging_Move(Unit, Event)
   local SpellTarget = Unit:GetRandomPlayer(0)
   if (SpellTarget ~= nil) then
   Unit:MoveTo(SpellTarget:GetX(), SpellTarget:GetY(), SpellTarget:GetZ(), SpellTarget:GetO())
   else
  end
end

function Raging_Explosion(Unit, event)
	if Unit:GetHealthPct() < 15 then
		Unit:CastSpell(52429)
		Unit:Kill(Unit)
end
end

function Raging_OnSpawn(Unit, event)
	Unit:SendChatMessage(14,0,"Feel my wrath!")
	Unit:FullCastSpellOnTarget(20698,Unit:GetRandomPlayer(0))
	Unit:RegisterEvent("Raging_Move",1000,1)
end

function Raging_OnCombat(Unit, event)
	Unit:RegisterEvent("Raging_Explosion",1000,0)
	Unit:RegisterEvent("Raging_Wrath",1500,0)
end

function Raging_OnDied(Unit, event)
	Unit:RemoveEvents()
	Unit:Despawn(1,0)
end

function Raging_OnLeaveCombat(Unit, event)
	Unit:RemoveEvents()
	Unit:Despawn(1, 0)
end

RegisterUnitEvent(60001,18,"Raging_OnSpawn")
RegisterUnitEvent(60001,1,"Raging_OnCombat")
RegisterUnitEvent(60001,2,"Raging_OnLeaveCombat")
RegisterUnitEvent(60001,4,"Raging_OnDied")





--[[Poison Cloud]]--

function Cloud_OnSpawn(Unit, event)
	Unit:CastSpell(61672)
             Unit:StopMovement(999999999)
end

function Cloud_OnLeaveCombat(Unit, event)
	Unit:Despawn(1000,0)
end

RegisterUnitEvent(60002,18,"Cloud_OnSpawn")
RegisterUnitEvent(60002,2,"Cloud_OnLeaveCombat")

some screens xD

[Meiya Stormsinger]

nice script but one mistake a function miss
but nice work +Rep

--[[  Meiya Stormsinger  ]]--
--[[  Smurfen© Original  ]]--
--[[_____________________]]--




--[[Meiya Stormsinger]]--

function Meiya_Rend(Unit, event)
    local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
     Unit:FullCastSpellOnTarget(54708, SpellTarget)
	else
  end
end


function Meiya_Absorb(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	 Unit:FullCastSpellOnTarget(29323, SpellTarget)
	else
  end
end

function Meiya_Rake(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(53499, SpellTarget)
	else
  end
end

function Meiya_Pound(Unit, event)
	Unit:FullCastSpell(34162)
end

function Meiya_Mangle(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(31041, SpellTarget)
	else
  end
end

function Meiya_Bear_Form(Unit, event)
	Unit:SetModel(1082)
end

function Meiya_Swipe(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(42395, SpellTarget)
	else
  end
end

function Meiya_Summon(Unit, Event)
x = Unit:GetX()
y = Unit:GetY()
z = Unit:GetZ()
o = Unit:GetO()
	Unit:SpawnCreature(60001, 6251.000977, 5752.145020, -6.270163, 2.244286, 14, 999999999)
	Unit:SpawnCreature(60001, 6221.815918, 5784.540039, -6.270830, 5.468343, 14, 999999999)
end

function Meiya_Paralyze(Unit, event)
	Unit:CastSpell(43095)
end

function Meiya_Roar(Unit, event)
	Unit:CastSpell(48560)
end

function Meiya_Roar2(Unit, event)
	Unit:CastSpell(59010)
end

function Meiya_Random_Buffs(Unit, event)
local Buff = math.random(1,4)
    if Buff == 1 then
        Unit:CastSpell(44978)
    end
   
    if Buff == 2 then
        Unit:CastSpell(45006)
    end

    if Buff == 3 then
        Unit:CastSpell(45004)
    end

    if Buff == 4 then
        Unit:CastSpell(45010)
    end
end

function Meiya_Phase4(Unit, event)
	Unit:FullCastSpell(45855)
end

function Meiya_Blinding_Light(Unit, event)
	Unit:FullCastSpell(33009)
end

function Meiya_Moonfire(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(43545, SpellTarget)
	else
  end
end

function Meiya_Lightning(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(43661, SpellTarget)
	else
  end
end

function Meiya_Brutal_Swipe(Unit, event)
	local SpellTarget = Unit:GetMainTank()
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(56586, SpellTarget)
	else
  end
end

function Meiya_Lifebloom(Unit, event, miscunit, misc)
	Unit:FullCastSpell(43421)
end

function Meiya_Cloud(Unit, event, miscunit, misc)
local Cloud = math.random(1,9)
	if Cloud == 1 then
		Unit:SpawnCreature(60002, 6227.686035, 5760.978027, -6.386242, 0.834875 , 14, 30000)
end

	if Cloud == 2 then
		Unit:SpawnCreature(60002, 6237.043457, 5788.960449, -6.130141, 0.907917 , 14, 30000)
end

	if Cloud == 3 then
		Unit:SpawnCreature(60002, 6243.418945, 5752.062988, -6.250000, 4.450847, 14, 30000)
end

	if Cloud == 4 then
		Unit:SpawnCreature(60002, 6216.602539, 5744.271973, -5.168359, 3.390559, 14, 30000)
end

	if Cloud == 5 then
		Unit:SpawnCreature(60002, 6208.830566, 5761.512695, -6.130295, 1.560582, 14, 30000)
end

	if Cloud == 6 then
		Unit:SpawnCreature(60002, 6212.263184, 5787.220703, -6.130295, 1.302186, 14, 30000)
end

	if Cloud == 7 then
		Unit:SpawnCreature(60002, 6236.048828, 5771.378418, -6.332530, 5.723976, 14, 30000)
end

	if Cloud == 8 then
		Unit:SpawnCreature(60002, 6245.803711, 5780.999023, -6.270755, 1.698802, 14, 30000)
end

	if Cloud == 9 then
		Unit:SpawnCreature(60002, 6201.681152, 5755.654297, -4.113744, 0.700558, 14, 30000)
	end
end

function Meiya_Random_Buffs2(Unit, event)
local Buff = math.random(1,6)
	if Buff == 1 then
		Unit:CastSpell(40880)
end
	if Buff == 2 then
		Unit:CastSpell(40883)
end
	if Buff == 3 then
		Unit:CastSpell(40897)
end
	if Buff == 4 then
		Unit:CastSpell(40896)
end
	if Buff == 5 then
		Unit:CastSpell(40882)
end
	if Buff == 6 then
		Unit:CastSpell(40891)
	end
end

function Meiya_StopMovement(Unit, event)
              Unit:StopMovement(20000)
end

function Meiya_LeaveCombat(Unit, event)
	Unit:RemoveEvents()
	Unit:SendChatMessage(14,0,"I warned you!")
	Unit:RemoveAura(18309)
	Unit:SetModel(15399)
end

function Meiya_Died(Unit, event)
	Unit:RemoveEvents()
	Unit:SendChatMessage(14,0,"The tradgedy of life is not that it ends so soon, but that we wait so long to begin it!")
end

function Meiya_OnCombat(Unit, event, miscunit, misc)
		Unit:SendChatMessage(14, 0, "You are brave, but you will never defeat me!")
		Unit:SetModel(15506)
    		Unit:RegisterEvent("Meiya_Rend",10000,0)
    		Unit:RegisterEvent("Meiya_Rake",11000,0)
    		Unit:RegisterEvent("Meiya_Mangle",12000,0)
    		Unit:RegisterEvent("Meiya_Phase2",1000,0)
    		Unit:RegisterEvent("Meiya_Pound",15000,0)
    		Unit:RegisterEvent("Meiya_Absorb",14000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000, 0)
end

function Meiya_Phase2(Unit, event, miscunit, misc)
	if Unit:GetHealthPct() < 70 then
		Unit:RemoveAura(21653)
		Unit:RemoveEvents()
		Unit:SendChatMessage(14, 0, "You are making me angry!")
		Unit:RegisterEvent("Meiya_Bear_Form",1000,1)
		Unit:RegisterEvent("Meiya_Swipe",5000,0)
		Unit:RegisterEvent("Meiya_Roar",30000,0)
		Unit:RegisterEvent("Meiya_Roar2",14000,0)
		Unit:RegisterEvent("Meiya_Phase3",1000,0)
		Unit:RegisterEvent("Meiya_Paralyze",23000,0)
		Unit:RegisterEvent("Meiya_Summon",40000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000, 0)
		Unit:RegisterEvent("Meiya_StopMovement",40000,0)
end
end

function Meiya_Phase3(Unit, event, miscunit, misc)
	if Unit:GetHealthPct() < 30 then
		Unit:RemoveAura(18309)
		Unit:RemoveEvents()
		Unit:SetModel(15399)
		Unit:StopMovement(1000)
		Unit:SendChatMessage(14,0,"Perhaps you think you're being treated unfairly?")
		Unit:RegisterEvent("Meiya_Phase4",1000,1)
		Unit:RegisterEvent("Meiya_Moonfire",5000,0)
		Unit:RegisterEvent("Meiya_Lifebloom",20000,0)
		Unit:RegisterEvent("Meiya_Lightning",9000,0)
		Unit:RegisterEvent("Meiya_Brutal_Swipe",33000,0)
		Unit:RegisterEvent("Meiya_Blinding_Light",12000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs",19000,0)
		Unit:RegisterEvent("Meiya_Cloud",10000,0)
		Unit:RegisterEvent("Meiya_Random_Buffs2",10000,0)
end
end


RegisterUnitEvent(60000,1,"Meiya_OnCombat")
RegisterUnitEvent(60000,2,"Meiya_LeaveCombat")
RegisterUnitEvent(60000,4,"Meiya_Died")








--[[ Raging Moonkin ]]--

function Raging_Wrath(Unit, event)
	local SpellTarget = Unit:GetRandomPlayer(0)
     if (SpellTarget ~= nil) then
	Unit:FullCastSpellOnTarget(20698, SpellTarget)
   else
  end
end

function Raging_Move(Unit, Event)
   local SpellTarget = Unit:GetRandomPlayer(0)
   if (SpellTarget ~= nil) then
   Unit:MoveTo(SpellTarget:GetX(), SpellTarget:GetY(), SpellTarget:GetZ(), SpellTarget:GetO())
   else
  end
end

function Raging_Explosion(Unit, event)
	if Unit:GetHealthPct() < 15 then
		Unit:CastSpell(52429)
		Unit:Kill(Unit)
end
end

function Raging_OnSpawn(Unit, event)
	Unit:SendChatMessage(14,0,"Feel my wrath!")
	Unit:FullCastSpellOnTarget(20698,Unit:GetRandomPlayer(0))
	Unit:RegisterEvent("Raging_Move",1000,1)
end

function Raging_OnCombat(Unit, event)
	Unit:RegisterEvent("Raging_Explosion",1000,0)
	Unit:RegisterEvent("Raging_Wrath",1500,0)
end

function Raging_OnDied(Unit, event)
	Unit:RemoveEvents()
	Unit:Despawn(1,0)
end

function Raging_OnLeaveCombat(Unit, event)
	Unit:RemoveEvents()
	Unit:Despawn(1, 0)
end

RegisterUnitEvent(60001,18,"Raging_OnSpawn")
RegisterUnitEvent(60001,1,"Raging_OnCombat")
RegisterUnitEvent(60001,2,"Raging_OnLeaveCombat")
RegisterUnitEvent(60001,4,"Raging_OnDied")





--[[Poison Cloud]]--

function Cloud_OnSpawn(Unit, event)
	Unit:CastSpell(61672)
             Unit:StopMovement(999999999)
end

function Cloud_OnLeaveCombat(Unit, event)
	Unit:Despawn(1000,0)
end

RegisterUnitEvent(60002,18,"Cloud_OnSpawn")
RegisterUnitEvent(60002,2,"Cloud_OnLeaveCombat")

some screens xD

There was nothing wrong with the script, halestorm looked at it and found nothing wrong, thanks for posting prints

[Fyesan]

hmmm... my world give an error but after this function it works