Thread: Unworthy script

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.

Code:

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")