[Release] More than 340 Lua's

[Marsm3nsch]

Hello mmowned.com!!!

I have here a pack from more than 340 Lua's ,but have written none from them.

This is a blizzlike pack, but 1 or 2 funserver scripts.

Here are some from these scripts :

Kaz'rogal (mount hyjal)

--[[ Kaz'Rogal.Lua - Author: Shorts
********************************
*                                                            *
* The LUA++ Scripting Project        *
*                                                            *
********************************

This software is provided as free and open source by the
staff of The LUA++ Scripting Project, in accordance with 
the AGPL license. This means we provide the software we have 
created freely and it has been thoroughly tested to work for 
the developers, but NO GUARANTEE is made it will work for you 
as well. Please give credit where credit is due, if modifying,
redistributing and/or using this software. Thank you.

~~End of License Agreement
-- LUA++ staff, April 15, 2008. ]]

function KazOnCombat(pUnit, event)
	pUnit:SendChatMessage(14, 0, "Cry for mercy! Your meaningless lives will soon be forfeit.")
	pUnit:PlaySoundToSet(11015)
	pUnit:RegisterEvent("KazAttacks", 1000, 0)
end

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

function KazOnKilledTarget(pUnit, event)
	local KazSpeech = math.random(1, 2)
	if (KazSpeech == 1) then
		pUnit:SendChatMessage(14, 0, "Your death will be a painful one.")
		pUnit:PlaySoundToSet(11016)
	elseif (KazSpeech == 2) then
		pUnit:SendChatMessage(14, 0, "You... are marked.")
		pUnit:PlaySoundToSet(11052)
	end
end

function KazOnDeath(pUnit, event)
	pUnit:SendChatMessage(14, 0, "Hahahahaa aahaah!")
	pUnit:PlaySoundToSet(11018)
end

function KazAttacks(pUnit, event)
	pUnit:RegisterEvent("KazCleave", math.random(30000, 60000), 0)
	pUnit:RegisterEvent("KazMOKR", math.random(30000, 60000), 0)
	pUnit:RegisterEvent("KazStomp", math.random(25000, 45000), 0)
	pUnit:RegisterEvent("KazDispel", math.random(30000, 60000), 0)
end

function KazCleave(pUnit, event)
	pUnit:CastSpellOnTarget(31345, pUnit:GetMainTank())
end

function KazMOKR(pUnit, event)
	local KazMOKRSpeech = math.random(1,2)
	if (KazMOKRSpeech == 1) then
		pUnit:SendChatMessage(14, 0, "You... are nothing!")
		pUnit:PlaysoundToSet(11053)
		pUnit:CastSpellOnTarget(31447, pUnit:GetInRangePlayers())
	elseif (KazMOKRSpeech == 2) then
		pUnit:SendChatMessage(14, 0, "Miserable nuisance!")
		pUnit:PlaySoundToSet(11054)
		pUnit:CastSpellOnTarget(31447, pUnit:GetInRangePlayers())
	end
end

function KazStomp(pUnit, event)
	pUnit:CastSpell(31408)
end

function KazDispel(pUnit, event)
	pUnit:CastSpellOnTarget(43577, pUnit:GetRandomPlayer(0))
end

RegisterUnitEvent(17888, 1, "KazOnCombat")
RegisterUnitEvent(17888, 2, "KazOnLeaveCombat")
RegisterUnitEvent(17888, 3, "KazOnKillTarget")
RegisterUnitEvent(17888, 4, "KazOnDeath")

or Felmyst and Kalecgos (sunwell)

--[[ Felmyst.lua
********************************
*                                                            *
* The LUA++ Scripting Project        *
*                                                            *
********************************

This software is provided as free and open source by the
staff of The LUA++ Scripting Project, in accordance with 
the AGPL license. This means we provide the software we have 
created freely and it has been thoroughly tested to work for 
the developers, but NO GUARANTEE is made it will work for you 
as well. Please give credit where credit is due, if modifying,
redistributing and/or using this software. Thank you.

~~End of License Agreement
-- LUA++ staff, March 26, 2008. ]]


-- Felmyst by Project eXa and AntiWar
--Phaze1 (about 75seconds)

function Fel_Cleave(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "I am stronger than ever before!")
	pUnit:CastSpellOnTarget(31345, pUnit:GetMainTank())
end

function Fel_Corrosion(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "I am stronger than ever before!")
	pUnit:FullCastSpellOnTarget(45866, pUnit:GetMainTank())
end

function Fel_NoxiousFumes(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "I am stronger than ever before!")
	pUnit:FullCastSpell(45738)
end

function Fel_GasNova(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "I am stronger than ever before!")
	pUnit:FullCastSpell(45855)
end

function Fel_Encapsulate(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "I am stronger than ever before!")
	pUnit:CastSpellOnTarget(45665, pUnit:GetRandomTarget(0))
end

function Fel_OnCombat(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "Glory to Kil'jaeden! Death to all who oppose!")
	pUnit:RegisterEvent("Fel_Cleave",20000,0)
	pUnit:RegisterEvent("Fel_Corrosion",36000,0)
	pUnit:RegisterEvent("Fel_NoxiousFumes",27000,0)
	pUnit:RegisterEvent("Fel_GasNova",30000,0)
	pUnit:RegisterEvent("Fel_Encapsulate",45000,0)
	--pUnit:RegisterEvent("Phaze2",75000,1)
end

function Fel_OnLeaveCombat(pUnit, Event)
	
end

function Fel_OnKilledTarget(pUnit, Event)
	local Choice=math.random(1,2)
	if Choice==1 then
		pUnit:SendChatMessage(13, 0, "I kill for the master!")
	elseif Choice==2 then
		pUnit:SendChatMessage(13, 0, "The end has come!")
	end
end

function Fel_OnDied(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "Kil'jaeden... will... prevail...")
	pUnit:RemoveEvents()
end


--Phaze2 (about 75seconds) SHIT and i know its not strung together

function Phaze2(pUnit, Event)
--pUnit:Emote(?????)
end


function Fel_DemonicVapor(pUnit, Event)
	local x = pUnit:GetX()
	local y = pUnit:GetY()
	local z = pUnit:GetZ()
	local o = pUnit:GetO()
	pUnit:SendChatMessage(13, 0, "I am stronger than ever before!")
	pUnit:CastSpell(45402)
	pUnit:SpawnCreature(30170, x-1, y, z, o, 14, o)
	pUnit:SpawnCreature(30170, x+1, y, z, o, 14, o)
	pUnit:SpawnCreature(30170, x, y-1, z, o, 14, o)
	pUnit:SpawnCreature(30170, x, y+1, z, o, 14, o)
	pUnit:SpawnCreature(30170, x-3, y, z, o, 14, o)
	pUnit:SpawnCreature(30170, x+3, y, z, o, 14, o)
end

function Fel_GreenVapor(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "I am stronger than ever before!")
	--pUnit:CastSpell(?????)XML
end

RegisterUnitEvent(25038, 1, "Fel_OnCombat")
RegisterUnitEvent(25038, 2, "Fel_OnLeaveCombat")
RegisterUnitEvent(25038, 3, "Fel_OnKilledTarget")
RegisterUnitEvent(25038, 4, "Fel_OnDied")



--First Boss forgot the name
--You want it more blizz like do it urself

--Phaze1
function Kel_SpectralExhaustion(pUnit, Event)
	pUnit:CastSpell(44867)
end

function Kel_SpectralRealm(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "I will purge you!")
	pUnit:CastSpellOnTarget(46021, pUnit:GetRandomPlayer(0))
	pUnit:RegisterEvent("Kel_SpectralExhaustion",60000,1)
end

function Kel_SpectralBlast(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "Your pain has only begun!")
	pUnit:CastSpellOnTarget(44866, pUnit:GetMainTank())
	pUnit:RegisterEvent("Kel_SpectralRealm",1000,1)
end

function Kel_WildMagic(pUnit, Event)
	local Choice=math.random(1,6)
	if Choice==1 then
		pUnit:CastSpell(44978)
	elseif Choice==2 then
		pUnit:CastSpell(45001)
	elseif Choice==3 then
		pUnit:CastSpell(45002)
	elseif Choice==4 then
		pUnit:CastSpell(45004)
	elseif Choice==5 then
		pUnit:CastSpell(45006)
	elseif Choice==6 then
		pUnit:castSpell(45010)	
	end
end

function Kel_FrostBreath(pUnit)
	pUnit:FullCastSpell(44799)	
end

function Kel_ArcaneBuffet(pUnit, Event)
	pUnit:CastSpell(45018)
end

function Kel_OnCombat(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "No longer will I be a slave to Malygos! Challenge me and you will be destroyed!")
	pUnit:RegisterEvent("Kel_ArcaneBuffet",5000,0)
	pUnit:RegisterEvent("Kel_FrostBreath",35000,0)
	pUnit:RegisterEvent("Kel_WildMagic",20000,0)
	pUnit:RegisterEvent("Kel_SpectralBlast",30000,0)
	pUnit:RegisterEvent("Kel_SpectralExhaustion",replaceme,0)
end

function Kel_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function Kel_OnKilledTarget(pUnit, Event)
	local Choice=math.random(1,2)
	if Choice==1 then
		pUnit:SendChatMessage(13, 0, "In the name of Kil'jaeden!")
	elseif Choice==2 then
		pUnit:SencChatMessage(13, 0, "You were warned!")
	end	
end

function Kel_OnDied(pUnit, Event)
	pUnit:RemoveEvents()	
end

--Phaze2
function Sath_Curse(pUnit, Event)
	if Choice==1 then
		pUnit:SendChatMessage(13, 0, "Your misery is my delight!")
	elseif Choice==2 then
		pUnit:SendChatMessage(13, 0, " will watch you bleed!")
	end
	pUnit:SendChatMessage(13, 0, "real message goes here")
	pUnit:CastSpellOnTarget(45034, pUnit:GetRandomPlayer(0))	
end

function Sath_ShadowBoltVolley(pUnit, Event)
	local Choice=math.random(1,2)
	if Choice == 1 then
		pUnit:SendChatMessage(13, 0, "Your misery is my delight!")
	elseif Choice == 2 then
		pUnit:SendChatMessage(13, 0, " will watch you bleed!")
	end
	pUnit:CastSpellOnTarget(38840, pUnit:GetRandomPlayer(0))
end

function Sath_CorruptingStrike(pUnit, Event)
	if Choice == 1 then
		pUnit:SendChatMessage(13, 0, "Your misery is my delight!")
	elseif Choice == 2 then
		pUnit:SendChatMessage(13, 0, " will watch you bleed!")
	end
	pUnit:CastSpellOnTarget(45029, pUnit:GetRandomPlayer(0))	
end

function Sath_OnCombat(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "Gyahaha... There will be no reprieve. My work here is nearly finished.")
	pUnit:RegisterEvent("Sath_Curse",35000,0)
	pUnit:RegisterEvent("ShadowBoltVolley",10000,0)
	pUnit:RegisterEvent("Sath_CorruptingStrike",25000,0)
end

function Sath_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()
end

function Sath_OnKilledTarget(pUnit, Event)
	local Choice=math.random
	if Choice==1 then
		pUnit:SendChatMessage(13, 0, "Pitious mortal!")
	elseif Choice==2 then
		pUnit:SendChatMessage(13, 0, "Haven't you heard? I always win!")	
	end
end

function Sath_OnDied(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "I'm... never on... the losing... side...")
	pUnit:RemoveEvents()	
end

RegisterUnitEvent(24850, 1, "Kel_OnCombat")
RegisterUnitEvent(24850, 2, "Kel_OnLeaveCombat")
RegisterUnitEvent(24850, 3, "Kel_OnKilledTarget")
RegisterUnitEvent(24850, 4, "Kel_OnDied")
RegisterUnitEvent(24892, 1, "Sath_OnCombat")
RegisterUnitEvent(24892, 2, "Sath_OnLeaveCombat")
RegisterUnitEvent(24892, 3, "Sath_OnKilledTarget")
RegisterUnitEvent(24892, 4, "Sath_OnDied")

I hope u enjoy the scripts and have fun!

And sorry community for my bad english...

Here is the NEWDownload-Link : Filebeam - Free Fast File Hosting

Credits

big thx to b!atch , for more than 40% of these scripts

Blua , for the 2.4.2 scripts, thanks

and L.a.s.p , for the best Area scripts I've ever seen

Thx to Lua++ for the most of these scripts

[AzolexX]

You didnt Named Lua++ in Credits they created Both Scripts You posted,That Other one With Felmyst and Kaelgos,Felmyst is Working 100% but Kael Disapear on 90% on Any Core,so its kind of not working.

[SectorSeven]

Also, about 200 of these scripts won't work without the Lua++ engine

[Marsm3nsch]

the kalec don't disapear at 90% on my server and the Lua work all , but i reupload it -.-

[SectorSeven]

No, you need to add the LUAScripting engine from C++ to your download so that the new unit and go commands they have will work...

[Gastricpenguin]

Look, if B!atch and the other people in your credits already released them, why are you just doing it again...?

[jaspervdg]

lol u better could give a link of the svn:http://mmoforge.org/svn/luaplusplus

[AzolexX]

About Sunwell Scripts,The Boss Talks/yells are in party Chat you need to Change from 13 to 14

[Hellgawd]

tell that to BrantX, the scripter of those.
-Hell
p.s.: On topic, we don't really need another mass release of someone elses scripts.

[alstann]

nice rep when i can

[BrantX]

Tell me what?

[b!atch]

The luaplusplus stuff is in my mega pack. just download it^^

[genecyst]

The luaplusplus stuff is in my mega pack. just download it^^

And where can one find said mega pack?

[SectorSeven]

From the Lua++ svn

[genecyst]

From the Lua++ svn

thank you :wave: