Mager1794's Application

mager1794 · New guy Posts: 3 Join date: 2008-07-03

Hi There im Mager1794 my real name is Cody but i'd prefer if you guys call me mager XD
i have been LUA scripting for a long time i'd say at minimum a year i started learning cuase i want to be a programer when i get older and i figured start with the easy stuff first
i've seen LASP's work and thought that i'd like to join this project right now im scripting Ashenvale and it will be my example work i will continuously update til it is finished thanks for reading my application (im not good with words sorry let my script do the talking)

Code:

function Akkrilus_Spell1(pUnit)
pUnit:FullCastSpell(1094)
end

function Akkrilus_OnEnterCombat(pUnit, event)
pUnit:FullCastSpell(184)
--To Give it a more randomization of chance
local random = math.random(1,3)
if (random == 1) then
      pUnit:RegisterEvent("Akkrilus_Spell1", 4500, 0)
end
if (random == 2) then
pUnit:RegisterEvent("Akkrilus_Spell1", 3000, 0)
end
if (random == 3) then
pUnit:RegisterEvent("Akkrilus_Spell1", 5500, 0)
end
end

RegisterUnitEvent(3773, 1, "Akkrilus_OnEnterCombat")

function Falthis_Shadowbolt(pUnit)
--Makes Apothecary Falthis Cast Spell 20791 (shadow bolt)
pUnit:FullCastSpell(20791)
end

function Falthis_OnEnterCombat(pUnit, event)
pUnit:RegisterEvent("Falthis_Shadowbolt", 3500, 0)
end

RegisterUnitEvent(3735, 1, "Falthis_OnEnterCombat")

--Befouled Water Elemental

function BefouledWE_Spell1(pUnit)
pUnit:FullCastSpell(9672)
end

function BefouledWE_Spell2(pUnit)
local plr = pUnit:GetRandomPlayer()
if (plr ~= nil) then
pUnit:FullCastSpell(6873, plr)
end
end

function BefouledWE_OnEnterCombat(pUnit, event)
pUnit:RegisterEvent("BefouledWE_Spell1", 4000, 0)
local random = math.random(1,3)
if (random ~= 3) then
   end
if (random == 3) then
   pUnit:RegisterEvent("BefouledWE_Spell1", 1000, 1)
   end
end

RegisterUnitEvent(3917, 1, "BefouledWE_OnEnterCombat")

--Gives random chance to summon one of its minions on combat
function Blackhearthellcaller_OnEnterCombat(pUnit, event)
local random = math.random(1,2)
if (random == 1)
   pUnit:CastSpell(11939)
   end
else
   pUnit:CastSpell(12746)
   end
end

RegisterUnitEvent(3771, 1, "Blackhearthellcaller_OnEnterCombat")

--Branch Snapper AI Scripted

function branchsnapper_Spells(pUnit)
local random = math.random(1,2)
local plr = pUnit:GetRandomPlayer()
if (random == 1)
   pUnit:FullCastSpell(3583, plr)
   end
if (random == 2)
   pUnit:FullCastSpell(10101, plr)
   end
end

function branchsnapper_OnEnterCombat(pUnit, event)
local random = math.random(1,4)
if (random == 1)
   RegisterEvent("branchsnapper_Spells", 5000)
   end
if (random == 2)
   RegisterEvent("branchsnapper_Spells", 3000)
   end
if (random == 3)
   RegisterEvent("branchsnapper_Spells", 7000)
   end
if (random == 4)
   RegisterEvent("branchsnapper_Spells", 4000)
   end
end

RegisterUnitEvent(10641, 1, "branchsnapper_OnEnterCombat")

function AshenvaleOR_OnSpawn(pUnit, event)
pUnit:CastSpell(20540)
end

function AshenvaleOR_Spell1(pUnit)
pUnit:CastSpell(18545)
end

function AshenvaleOR_Spell2(pUnit)
pUnit:CastSpell(8646)
end

function AshenvaleOR_Shoot(pUnit)
pUnit:CastSpell(6660)
end

function AshenvaleOR_OnEnterCombat(pUnit)
local plr = pUnit:GetRandomPlayer(1)
if (plr ~= nil)
   pUnit:RegisterEvent("AshenvaleOR_Spell2", 7500, 0)
   end
else
   pUnit:RegisterEvent("AshenvaleOR_Shoot", 2000, 0)
   pUnit:RegisterEvent("AshenvaleOR_Spell1", 5000, 0)
   end
end

RegisterUnitEvent(12856, 1, "AshenvaleOR_OnEnterCombat")

function Cenarprot_Roar(pUnit)
pUnit:CastSpell(15727)
end

function Cenarprot_OnCombat(pUnit)
pUnit:CastSpell(7090)
pUnit:RegisterEvent("Cenarprot_Roar", 7000, 0)
end

RegisterUnitEvent(3797, 1, "Cenarprot_OnCombat")

if you have yet to notice from my scripts i really hate it when something is garunteed for exact times to happen because it makes them prepared for it....i want them to fear it not mock it

ok so im bored so i decided that that will be the example i give if i get hired ill finish it if not its LASP's to keep