local questID = 63002
local questgiver = 58000
local mountname = "Argent Warhorse"

local function UnMount(unit, player)
    player:Dismount()
    player:SetCombatCapable(true)
    player:SetPlayerSpeed(7)
    unit:SendChatMessageToPlayer(14, 0, "You didn't last any longer? I'm not suprised!", player)
end

local function questaccept(event, player, QuestID, unit)
    if(questID == QuestID) then
        player:SendBroadcastMessage("You've mounted the "..mountname..".")

        player:SetCombatCapable(false)
        player:SetMount(28918)
        player:SetPlayerSpeed(11)

        unit:SendChatMessageToPlayer(12, 0, "You better not fall off", player)
        CreateLuaEvent(function() UnMount(unit, player) end, 60000, 1)
    end
end

RegisterServerHook(14, questaccept)