PDA

View Full Version : Unworthy script



runiker
07-02-09, 09:31 PM
This script should work to make the Unworthy Initiates in ebon hold more like the ones on retail note that i can not change the sql files for you so you must make sure they are attackable can can be killed and have the right data in there.

If there are any errors port them in this forum and i will fix bugs.


function function Unworthy_cast1 (pUnit, event)
pUnit:FullCastSpell(52374)
end

function function Unworthy_cast2 (pUnit, event)
pUnit:FullCastSpell(52375)
end

function function Unworthy_cast3 (pUnit, event)
pUnit:FullCastSpell(49576)
end

function function Unworthy_cast4 (pUnit, event)
pUnit:FullCastSpell(52372)
end

function function Unworthy_cast5 (pUnit, event)
pUnit:FullCastSpell(52373)
end




function function Unworthy_EnterCombat (pUnit, event)
pUnit:SetModel(25375)
pUnit:RegisterEvent("Unworthy_cast1", 15000, 0)
pUnit:RegisterEvent("Unworthy_cast2", 17000, 0)
pUnit:RegisterEvent("Unworthy_cast3", 20000, 0)
pUnit:RegisterEvent("Unworthy_cast4", 16000, 0)
pUnit:RegisterEvent("Unworthy_cast5", 19000, 0)

end

function Unworthy_LeaveCombat1 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25356)
end
if display == 2 then
pUnit:SetModel(25367)
end
if display == 3 then
pUnit:SetModel(25365)
end
if display == 4 then
pUnit:SetModel(25366)
end
pUnit:RemoveEvents()
end

function Unworthy_LeaveCombat2 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25370)
end
if display == 2 then
pUnit:SetModel(25368)
end
if display == 3 then
pUnit:SetModel(25359)
end
if display == 4 then
pUnit:SetModel(25354)
end
pUnit:RemoveEvents()
end

function Unworthy_LeaveCombat5 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25369)
end
if display == 2 then
pUnit:SetModel(25363)
end
if display == 3 then
pUnit:SetModel(25352)
end
if display == 4 then
pUnit:SetModel(25360)
end
pUnit:RemoveEvents()
end

function Unworthy_LeaveCombat4 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25355)
end
if display == 2 then
pUnit:SetModel(25371)
end
if display == 3 then
pUnit:SetModel(25372)
end
if display == 4 then
pUnit:SetModel(25361)
end
pUnit:RemoveEvents()
end

function Unworthy_LeaveCombat4 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25373)
end
if display == 2 then
pUnit:SetModel(25357)
end
if display == 3 then
pUnit:SetModel(25358)
end
if display == 4 then
pUnit:SetModel(25364)
end
pUnit:RemoveEvents()
end

function Unworthy_Die1 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25356)
end
if display == 2 then
pUnit:SetModel(25367)
end
if display == 3 then
pUnit:SetModel(25365)
end
if display == 4 then
pUnit:SetModel(25366)
end
pUnit:RemoveEvents()
end

function Unworthy_Die2 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25370)
end
if display == 2 then
pUnit:SetModel(25368)
end
if display == 3 then
pUnit:SetModel(25359)
end
if display == 4 then
pUnit:SetModel(25354)
end
pUnit:RemoveEvents()
end

function Unworthy_Die5 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25369)
end
if display == 2 then
pUnit:SetModel(25363)
end
if display == 3 then
pUnit:SetModel(25352)
end
if display == 4 then
pUnit:SetModel(25360)
end
pUnit:RemoveEvents()
end

function Unworthy_Die4 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25355)
end
if display == 2 then
pUnit:SetModel(25371)
end
if display == 3 then
pUnit:SetModel(25372)
end
if display == 4 then
pUnit:SetModel(25361)
end
pUnit:RemoveEvents()
end

function Unworthy_Die4 (pUnit, event)
display = math.random (1 , 4)
if display == 1 then
pUnit:SetModel(25373)
end
if display == 2 then
pUnit:SetModel(25357)
end
if display == 3 then
pUnit:SetModel(25358)
end
if display == 4 then
pUnit:SetModel(25364)
end
pUnit:RemoveEvents()
end

RegisterUnitEvent(29566, 1, "Unworthy_EnterCombat")
RegisterUnitEvent(29565, 1, "Unworthy_EnterCombat")
RegisterUnitEvent(29519, 1, "Unworthy_EnterCombat")
RegisterUnitEvent(29520, 1, "Unworthy_EnterCombat")
RegisterUnitEvent(29567, 1, "Unworthy_EnterCombat")
RegisterUnitEvent(29566, 2, "Unworthy_LeaveCombat1")
RegisterUnitEvent(29565, 2, "Unworthy_LeaveCombat2")
RegisterUnitEvent(29519, 2, "Unworthy_LeaveCombat3")
RegisterUnitEvent(29520, 2, "Unworthy_LeaveCombat4")
RegisterUnitEvent(29567, 2, "Unworthy_LeaveCombat5")
RegisterUnitEvent(29566, 4, "Unworthy_Die1")
RegisterUnitEvent(29567, 4, "Unworthy_Die2")
RegisterUnitEvent(29520, 4, "Unworthy_Die3")
RegisterUnitEvent(19519, 4, "Unworthy_Die4")
RegisterUnitEvent(29565, 4, "Unworthy_Die5")

runiker
11-02-09, 11:22 PM
Fixed an error

QQrofl
12-02-09, 01:53 AM
Very nice... I really thought you said this script was "Unworthy" lol... Glad I clicked on it. xD

Lbniese
02-09-09, 12:10 PM
Make download link please and the npc

Alvanaar
06-09-09, 05:45 PM
Lots of unecessary code in this.