rand

-- ###CARLSBERG###

local npc_id = 72000

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(4875)
        elseif (Choice == 2) then
            pPlayer:SetModel(8715)
        elseif (Choice == 3) then
            pPlayer:SetModel(20976)
        elseif (Choice == 4) then
            pPlayer:SetModel(5293)
        elseif (Choice == 5) then
            pPlayer:SetModel(10318)
        elseif (Choice == 6) then
            pPlayer:SetModel(12064)
        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(5)
        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)
    end
    pPlayer:GossipComplete()
end

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