function Teleport(pl,cmd,args)
    local Trace = pl:GetEyeTrace()
    local Pos = Trace.HitPos
    if pl:GetPos():Distance( Pos ) > 500 then return end
    pl:SetPos(Pos)
end
concommand.Add("Teleport",Teleport)