Yerney
04-19-2008, 02:07 PM
Hi Ac-web!
Now is your chance to get your server more blizzlike!
LUA SCRIPT INFO:
I've made the most mobs in the starting area of the Orcs/Trolls scripted, like:
- Yarrog BaneShadow(For the Burning Medaillon Quest)
- Vile Familairs(The blue demons)
- Sarkoth(The Black Scorpion)
- VenomTail Scorpion
- Thunder Lizard
Totally Blizzlike(Maybe the casting time a little off but the spells are working)
Code:
--Sarkoth, The scorpion by Yerney
function Sarkoth_OnCombat(pUnit, Event)
pUnit:RegisterEvent("Sarkoth_Claw", 1000, 2)
end
function Sarkoth_Claw(pUnit, Event)
pUnit:FullCastSpellOnTarget(16827, pUnit:GetClosestPlayer())
end
RegisterUnitEvent(3281, 1, "Sarkoth_OnCombat")
--Vile Familiar, The demon things in the cave by Yerney
function Vile_OnCombat(pUnit, Event)
pUnit:RegisterEvent("Vile_Fire", 5000, 0)
end
function Vile_Fire(pUnit, Event)
pUnit:FullCastSpellOnTarget(11921, pUnit:GetClosestPlayer(0))
end
function Vile_LeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
end
function Vile_Dead(pUnit, Event)
pUnit:RemoveEvents()
end
RegisterUnitEvent(3101, 1, "Vile_OnCombat")
RegisterUnitEvent(3101, 2, "Vile_LeaveCombat")
RegisterUnitEvent(3101, 4, "Vile_Dead")
--Yarrog BaneShadow, The guy for Burning Blade Medallion quest
function Yarrog_OnCombat(pUnit, Event)
pUnit:RegisterEvent("Yarrog_Fire", 7500, 2)
pUnit:RegisterEvent("Yarrog_Curse", 20000, 1)
end
function Yarrog_Fire(pUnit, Event)
pUnit:FullCastSpellOnTarget(348, pUnit:GetClosestPlayer())
end
function Yarrog_Curse(pUnit, Event)
pUnit:FullCastSpellOnTarget(172, pUnit:GetClosestPlayer())
end
function Yarrog_LeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
end
function Yarrog_Dead(pUnit, Event)
pUnit:RemoveEvents()
end
RegisterUnitEvent(3183, 1, "Yarrog_OnCombat")
RegisterUnitEvent(3183, 2, "Yarrog_LeaveCombat")
RegisterUnitEvent(3183, 4, "Yarrog_Dead")
--Thunder Lizard by Yerney
function TL_OnCombat(pUnit, Event)
pUnit:RegisterEvent("TL_cast", 8000, 0)
end
function TL_cast(pUnit, Event)
pUnit:FullCastSpellOnTarget(5401, pUnit:GetClosestPlayer())
end
function TL_LeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
end
function TL_Dead(pUnit, Event)
pUnit:RemoveEvents()
end
RegisterUnitEvent(3130, 1, "TL_OnCombat")
RegisterUnitEvent(3130, 2, "TL_LeaveCombat")
RegisterUnitEvent(3130, 4, "TL_Dead")
--VenomTail by Yerney
function VT_OnCombat(pUnit, Event)
pUnit:RegisterEvent("VT_cast", 7500, 0)
end
function VT_cast(pUnit, Event)
pUnit:FullCastSpellOnTarget(5416, pUnit:GetClosestPlayer())
end
function VT_LeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
end
function VT_Dead(pUnit, Event)
pUnit:RemoveEvents()
end
RegisterUnitEvent(3127, 1, "VT_OnCombat")
RegisterUnitEvent(3127, 2, "VT_LeaveCombat")
RegisterUnitEvent(3127, 4, "VT_Dead")
Now is your chance to get your server more blizzlike!
LUA SCRIPT INFO:
I've made the most mobs in the starting area of the Orcs/Trolls scripted, like:
- Yarrog BaneShadow(For the Burning Medaillon Quest)
- Vile Familairs(The blue demons)
- Sarkoth(The Black Scorpion)
- VenomTail Scorpion
- Thunder Lizard
Totally Blizzlike(Maybe the casting time a little off but the spells are working)
Code:
--Sarkoth, The scorpion by Yerney
function Sarkoth_OnCombat(pUnit, Event)
pUnit:RegisterEvent("Sarkoth_Claw", 1000, 2)
end
function Sarkoth_Claw(pUnit, Event)
pUnit:FullCastSpellOnTarget(16827, pUnit:GetClosestPlayer())
end
RegisterUnitEvent(3281, 1, "Sarkoth_OnCombat")
--Vile Familiar, The demon things in the cave by Yerney
function Vile_OnCombat(pUnit, Event)
pUnit:RegisterEvent("Vile_Fire", 5000, 0)
end
function Vile_Fire(pUnit, Event)
pUnit:FullCastSpellOnTarget(11921, pUnit:GetClosestPlayer(0))
end
function Vile_LeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
end
function Vile_Dead(pUnit, Event)
pUnit:RemoveEvents()
end
RegisterUnitEvent(3101, 1, "Vile_OnCombat")
RegisterUnitEvent(3101, 2, "Vile_LeaveCombat")
RegisterUnitEvent(3101, 4, "Vile_Dead")
--Yarrog BaneShadow, The guy for Burning Blade Medallion quest
function Yarrog_OnCombat(pUnit, Event)
pUnit:RegisterEvent("Yarrog_Fire", 7500, 2)
pUnit:RegisterEvent("Yarrog_Curse", 20000, 1)
end
function Yarrog_Fire(pUnit, Event)
pUnit:FullCastSpellOnTarget(348, pUnit:GetClosestPlayer())
end
function Yarrog_Curse(pUnit, Event)
pUnit:FullCastSpellOnTarget(172, pUnit:GetClosestPlayer())
end
function Yarrog_LeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
end
function Yarrog_Dead(pUnit, Event)
pUnit:RemoveEvents()
end
RegisterUnitEvent(3183, 1, "Yarrog_OnCombat")
RegisterUnitEvent(3183, 2, "Yarrog_LeaveCombat")
RegisterUnitEvent(3183, 4, "Yarrog_Dead")
--Thunder Lizard by Yerney
function TL_OnCombat(pUnit, Event)
pUnit:RegisterEvent("TL_cast", 8000, 0)
end
function TL_cast(pUnit, Event)
pUnit:FullCastSpellOnTarget(5401, pUnit:GetClosestPlayer())
end
function TL_LeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
end
function TL_Dead(pUnit, Event)
pUnit:RemoveEvents()
end
RegisterUnitEvent(3130, 1, "TL_OnCombat")
RegisterUnitEvent(3130, 2, "TL_LeaveCombat")
RegisterUnitEvent(3130, 4, "TL_Dead")
--VenomTail by Yerney
function VT_OnCombat(pUnit, Event)
pUnit:RegisterEvent("VT_cast", 7500, 0)
end
function VT_cast(pUnit, Event)
pUnit:FullCastSpellOnTarget(5416, pUnit:GetClosestPlayer())
end
function VT_LeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
end
function VT_Dead(pUnit, Event)
pUnit:RemoveEvents()
end
RegisterUnitEvent(3127, 1, "VT_OnCombat")
RegisterUnitEvent(3127, 2, "VT_LeaveCombat")
RegisterUnitEvent(3127, 4, "VT_Dead")