[Release] Blizzlike Scripts

**AzolexX** · 10-07-2008

Hello MMoWneD!!!

This are Some Cool and Useful Blizzlike Scripts for your Server

Blade Edge Scripts Scripted by me

Code:

--[[ Blade Edge -- BloodMaulPart1.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, August, 31th, 2008. ]]

-- Bloodmaul Warlock http://www.wowhead.com/?npc=19994

function BMWarlock_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("BMWarlock_DeamonArmor", 1, 1)
	pUnit:RegisterEvent("BMWarlock_ShadowB", 3100, 0)
	pUnit:RegisterEvent("BMWarlock_Enrage", 18000, 0)
end

function BMWarlock_DeamonArmor(pUnit,Event)
	pUnit:FullCastSpell(13787)
end

function BMWarlock_ShadowB(pUnit,Event)
	pUnit:FullCastSpellOnTarget(20825,pUnit:GetMainTank())
end

function BMWarlock_Enrage(pUnit,Event)
	pUnit:FullCastSpell(13787)
end

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

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

RegisterUnitEvent (19994, 1, "BMWarlock_OnEnterCombat")
RegisterUnitEvent (19994, 2, "BMWarlock_OnLeaveCombat")
RegisterUnitEvent (19994, 4, "BMWarlock_OnDied")

--Bloodmaul Taskmaster http://www.wowhead.com/?npc=22160

function BMTask_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("BMTask_KnockDown", 8000, 0)
	pUnit:RegisterEvent("BMTask_Enrage", 18000, 1)
end

function BMTask_KnockDown(pUnit,Event)
	pUnit:FullCastSpellOnTarget(37592,pUnit:GetMainTank())
end

function BMTask_Enrage(pUnit,Event)
	pUnit:FullCastSpell(37786)
end

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

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

RegisterUnitEvent (22160, 1, "BMTask_OnEnterCombat")
RegisterUnitEvent (22160, 2, "BMTask_OnLeaveCombat")
RegisterUnitEvent (22160, 4, "BMTask_OnDied")

-- Bloodmaul Soothsayer http://www.wowhead.com/?npc=22384

function BMSoot_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("BMSoot_Bolt", 3100, 0)
end

function BMSoot_Bolt(pUnit,Event)
	pUnit:FullCastSpellOnTarget(20825,pUnit:GetMainTank()) -- Lol,WTF is with Damage :) does Only 100 lol and its only spell of his!
end

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

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

RegisterUnitEvent (22384, 1, "BMSoot_OnEnterCombat")
RegisterUnitEvent (22384, 2, "BMSoot_OnLeaveCombat")
RegisterUnitEvent (22384, 4, "BMSoot_OnDied")

-- Bloodmaul Skirmisher http://www.wowhead.com/?npc=19948

function BMSkir_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("BMSkir_Bersek", 1000, 1)
	pUnit:RegisterEvent("BMSkir_Kick", 6000, 1)
	pUnit:RegisterEvent("BMSkir_Enrage", 1000, 1)
end

function BMSkir_Bersek(pUnit,Event)
     if pUnit:GetHealthPct() > 85 then
	pUnit:FullCastSpell(34932)
end

function BMSkir_Kick(pUnit,Event)
	pUnit:FullCastSpellOnTarget(20825,pUnit:GetMainTank())
end

function BMSkir_Enrage(pUnit,Event)
     if pUnit:GetHealthPct() > 25 then
	pUnit:FullCastSpell(37786)
end

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

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

RegisterUnitEvent (19948, 1, "BMSkir_OnEnterCombat")
RegisterUnitEvent (19948, 2, "BMSkir_OnLeaveCombat")
RegisterUnitEvent (19948, 4, "BMSkir_OnDied")

Code:

--[[ Blade Edge -- BloodMaulPart1.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, August, 31th, 2008. ]]

-- Bloodmaul Shaman http://www.wowhead.com/?npc=19992

function BMShaman_OnEnterCombat(pUnit,Event)
	pUnit:FullCastSpell(12550)
	pUnit:RegisterEvent("BMWarlock_LShield", 15000, 1)
end

function BMShaman_LShield(pUnit,Event)
	pUnit:FullCastSpell(12550)
end

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

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

RegisterUnitEvent (19992, 1, "BMShaman_OnEnterCombat")
RegisterUnitEvent (19992, 2, "BMShaman_OnLeaveCombat")
RegisterUnitEvent (19992, 4, "BMShaman_OnDied")

--Bloodmaul Geomancer http://www.wowhead.com/?npc=19952

function BMGeomancer_OnEnterCombat(pUnit,Event)
	pUnit:FullCastSpell(12544) --Frost armor :)
	pUnit:RegisterEvent("BMGeomancer_FireBolt", 9000, 2)
end

function BMGeomancer_KnockDown(pUnit,Event)
	pUnit:FullCastSpellOnTarget(9053,pUnit:GetMainTank()) -- lol i dont understand Blizzard?
end

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

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

RegisterUnitEvent (19952, 1, "BMGeomancer_OnEnterCombat")
RegisterUnitEvent (19952, 2, "BMGeomancer_OnLeaveCombat")
RegisterUnitEvent (19952, 4, "BMGeomancer_OnDied")

-- Bloodmaul Goon http://www.wowhead.com/?npc=21294

function BMGoon_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("BMGoon_KickFirst", 1000, 1)
	pUnit:RegisterEvent("BMGoon_KickSecond", 1000, 1)
end

function BMGoon_KickFirst(pUnit,Event)
     if pUnit:GetHealthPct() > 85 then
	pUnit:FullCastSpellOnTarget(10966,pUnit:GetMainTank())
end

function BMGoon_KickSecond(pUnit,Event)
     if pUnit:GetHealthPct() > 25 then
	pUnit:FullCastSpellOnTarget(10966,pUnit:GetMainTank())
end

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

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

RegisterUnitEvent (21294, 1, "BMGoon_OnEnterCombat")
RegisterUnitEvent (21294, 2, "BMGoon_OnLeaveCombat")
RegisterUnitEvent (21294, 4, "BMGoon_OnDied")

-- Bloodmaul Mauler http://www.wowhead.com/?npc=19993

function BMMauler_OnEnterCombat(pUnit,Event)
    pUnit:FullCastSpell(34932)
	pUnit:RegisterEvent("BMMauler_Kick", 9000, 2)
	pUnit:RegisterEvent("BMMauler_Enrage", 1000, 1)
end

function BMMauler_Kick(pUnit,Event)
	pUnit:FullCastSpellOnTarget(37592,pUnit:GetMainTank())
end

function BMMauler_Enrage(pUnit,Event)
     if pUnit:GetHealthPct() > 20 then
    pUnit:FullCastSpell(37786)
end

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

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

RegisterUnitEvent (19993, 1, "BMMauler_OnEnterCombat")
RegisterUnitEvent (19993, 2, "BMMauler_OnLeaveCombat")
RegisterUnitEvent (19993, 4, "BMMauler_OnDied")

Code:

--[[ Blade Edge -- BloodMaulPart1.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, August, 31th, 2008. ]]

-- Bloodmaul Brewmaster http://www.wowhead.com/?npc=19957
-- this is some Drunk NPC :)
function BMBrewmaster_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("BMWarlock_Drink", 2000, 1)
end

function BMBrewmaster_Drink(pUnit,Event)
	pUnit:FullCastSpellOnTarget(37591,pUnit:GetMainTank())
end

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

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

RegisterUnitEvent (19957, 1, "BMBrewmaster_OnEnterCombat")
RegisterUnitEvent (19957, 2, "BMBrewmaster_OnLeaveCombat")
RegisterUnitEvent (19957, 4, "BMBrewmaster_OnDied")

-- Bloodmaul Brute http://www.wowhead.com/?npc=19991

function BMBrute_OnEnterCombat(pUnit,Event)
    pUnit:FullCastSpell(34932)
	pUnit:RegisterEvent("BMBrute_Clave", 4500, 8) -- 100% correct info :)
	pUnit:RegisterEvent("BMBrute_Kick", 9000, 2)
	pUnit:RegisterEvent("BMBrute_Enrage", 1000, 1)
end

function BMBrute_Clave(pUnit,Event)
	pUnit:FullCastSpellOnTarget(15496,pUnit:GetMainTank())
end

function BMBrute_Enrage(pUnit,Event)
     if pUnit:GetHealthPct() > 15 then
    pUnit:FullCastSpell(37786)
end

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

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

RegisterUnitEvent (19991, 1, "BMBrute_OnEnterCombat")
RegisterUnitEvent (19991, 2, "BMBrute_OnLeaveCombat")
RegisterUnitEvent (19991, 4, "BMBrute_OnDied")

More Scripts Soon to Come

Check Out Blua Scripting On:

Blua :: Main Page

SVN:Revision 383: /

There are Also WOTLK Scripts

Regards.