Model & Scale Gossip

--[[ CREATED BY CARLSBERG----

CREDITS:

CARLSBERG = SCRIPTING IT.
RIOCHET2 = SORTING UP SMALL THINGS
X543R = CAME UP WITH THE IDEA

Made for: ImmortalWoW
]]

local npc_id = 72000 -- Change to your NPC ID

function GossipOnTalk(pUnit, event, pPlayer)
    pUnit:GossipCreateMenu(100, pPlayer, 0)
    pUnit:GossipMenuAddItem(0, "Change my look", 1, 0)
    pUnit:GossipMenuAddItem(0, "Change my Scale", 2, 0)
    pUnit:GossipMenuAddItem(0, "Change speed", 3, 0)
    pUnit:GossipMenuAddItem(0, "Make me normal", 4, 0)
    pUnit:GossipSendMenu(pPlayer)
end

function GossipOnSelect(pUnit, event, pPlayer, id, intid, code)
    if (intid == 1) then
        local Choice = math.random(1, 6)
        if (Choice == 1) then
            pPlayer:SetModel(30893)
        elseif (Choice == 2) then
            pPlayer:SetModel(21445)
        elseif (Choice == 3) then
            pPlayer:SetModel(20023)
        elseif (Choice == 4) then
            pPlayer:SetModel(22906)
        elseif (Choice == 5) then
            pPlayer:SetModel(36597)
        elseif (Choice == 6) then
            pPlayer:SetModel(30893)
        end
    elseif (intid == 2) then
        local scale = math.random(1, 7)
        if (scale == 1) then
            pPlayer:SetScale(0.5)
        elseif (scale == 2) then
            pPlayer:SetScale(2)
        elseif (scale == 3) then
            pPlayer:SetScale(0.1)
        elseif (scale == 4) then
            pPlayer:SetScale(2.5)
        elseif (scale == 5) then
            pPlayer:SetScale(5)
        elseif (scale == 6) then
            pPlayer:SetScale(0.3)
        elseif (scale == 7) then
            pPlayer:SetScale(4)
        end
    elseif (intid == 3) then
        local speed = math.random(1, 7)
        if (speed == 1) then
            pPlayer:SetPlayerSpeed(12)
        elseif (speed == 2) then
            pPlayer:SetPlayerSpeed(10)
        elseif (speed == 3) then
            pPlayer:SetPlayerSpeed(20)
        elseif (speed == 4) then
            pPlayer:SetPlayerSpeed(50)
        elseif (speed == 5) then
            pPlayer:SetPlayerSpeed(2)
        elseif (speed == 6) then
            pPlayer:SetPlayerSpeed(17)
        elseif (speed == 7) then
            pPlayer:SetPlayerSpeed(7)
        elseif (speed == 8) then
            pPlayer:SetPlayerSpeed(5)
        end
    elseif (intid == 4) then
        pPlayer:DeMorph()
        pPlayer:SetPlayerSpeed(7)
                pPlayer:SetScale(1)
    end
    pPlayer:GossipComplete()
end

RegisterUnitGossipEvent(npc_id, 1, GossipOnTalk)
RegisterUnitGossipEvent(npc_id, 2, GossipOnSelect)