[Release]WotlK Scripts!

[AzolexX]

Here are my Wotlk Scripts!

Borean Tundra Mobs Scripts(some,blizzlike data):

--[[ BerylBoreanTundra.lua

This script was written and is protected
by the GPL v2. This script was released
by Azolex  of the BLUA Scripting
Project. Please give proper accredidations
when re-releasing or sharing this script
with others in the emulation community.

~~End of License Agreement
-- Azolex, October 7, 2008. ]]
--http://wotlk.wowhead.com/?npc=25353#abilities
--Beryl Treasure Hunter
function BerylTreasureHunter_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("BerylTreasureHunter_Beam", 2000, 0) --2 Seconds timer :) not Blizzlike(still beta :) 
end

function BerylTreasureHunter_Beam(pUnit,Event)
	pUnit:FullCastSpellOnTarget(50658,pUnit:GetClosestPlayer())
end

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

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

--http://wotlk.wowhead.com/?npc=25316#abilities
--Beryl Sorcerer
function BerylSorcerer_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("BerylSorcerer_Beam", 3200, 3) --3 Second Cast Time Should do from 3 to 4 Times Random :)
end

function BerylSorcerer_Beam(pUnit,Event)
	pUnit:FullCastSpellOnTarget(9672,pUnit:GetRandomPlayer()) --Loled at Damage its from wowhead :) i will Change it When BLizzard Release WotlK and i Get Better info :P
end

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

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

RegisterUnitEvent (25353, 1, "BerylTreasureHunter_OnEnterCombat")
RegisterUnitEvent (25353, 2, "BerylTreasureHunter_OnLeaveCombat")
RegisterUnitEvent (25353, 4, "BerylTreasureHunter_OnDied")
RegisterUnitEvent (25316, 1, "BerylSorcerer_OnEnterCombat")
RegisterUnitEvent (25316, 2, "BerylSorcerer_OnLeaveCombat")
RegisterUnitEvent (25316, 4, "BerylSorcerer_OnDied")

Here is Culling the Stratholme last boss Mal'Ganis:

--[[ Boss -- Mal'Ganis.lua

This script was written and is protected
by the GPL v2. This script was released
by Azolex of the Blua Scripting
Project. Please give proper accredidations
when re-releasing or sharing this script
with others in the emulation community.

~~End of License Agreement
-- Azolex, September 13, 2008. ]]

--Mal'Ganis http://wotlk.wowhead.com/?npc=26533 last Boss of "Culling The Stratholme" CoT Wotlk Event Timers are not 100% Blizzlike but they are fine :)
-- He should banish at End of Fight i dont know how do you get Loot :) i Just good my Wotlk Retail Acc i hope i will find out soon
function MG_EnterCombat(pUnit, Event)
	pUnit:SendChatMessage(14, 0, "This will be a fine test, Prince Arthas.") -- I will add Sound ID's laterz :)
	pUnit:RegisterEvent("MG_Swarm", 16000, 0)
	pUnit:RegisterEvent("MG_Blast", 12000, 0)
	pUnit:RegisterEvent("MG_Sleep", 21000, 0)
	pUnit:RegisterEvent("MG_Vampiric", 8000, 0)
end


function MG_Swarm(pUnit, Event)
	pUnit:CastSpell(52720) -- http://wotlk.wowhead.com/?spell=52720
end

function MG_Blast(pUnit,Event)
	pUnit:FullCastSpellOnTarget(52722,pUnit:GetRandomPlayer(0)) -- http://wotlk.wowhead.com/?spell=52722
end

function MG_Sleep(pUnit,Event)
pUnit:FullCastSpellOnTarget(52721,pUnit:GetRandomPlayer(0))
	local Choice=math.random(1, 2)
		if Choice==1 then
			pUnit:SendChatMessage(14, 0, "Time out.")
		elseif Choice==2 then
			pUnit:SendChatMessage(14, 0, "You seem tired.")
end
end

function MG_Blast(pUnit,Event)
	pUnit:FullCastSpellOnTarget(52723,pUnit:GetRandomPlayer(0)) -- http://wotlk.wowhead.com/?spell=52723 100% not Supported by Any Core!
end


function MG_OnKill(pUnit,Event)
	pUnit:RemoveEvents()
	local Choice=math.random(1, 3)
		if Choice==1 then
			pUnit:SendChatMessage(14, 0, "All too easy.")
		elseif Choice==2 then
			pUnit:SendChatMessage(14, 0, "The dark lord is displeased with your interference.")
		elseif Choice==3 then
			pUnit:SendChatMessage(14, 0, "It is Prince Arthas I want, not you.")
end
end

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


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

RegisterUnitEvent(26533, 1, "MG_EnterCombat")
RegisterUnitEvent(26533, 2, "MG_OnLeaveCombat")
RegisterUnitEvent(26533, 3, "MG_OnKill")
RegisterUnitEvent(26533, 4, "MG_OnDied")

Credits:
Me Azolex
BrantX


Blua Scripting: Blua - Revision 404: /

[kainmcloud]

Thanks bro!+Rep I cant beleive this is not a hot topic!It really really should be all these scripts are epic! Thanks!