function Teleport(pl,cmd,args)
    local Trace = pl:GetEyeTrace()
    local Pos = Trace.HitPos
    pl:SetPos(Pos)
end
concommand.Add("Teleport",Teleport)