local teleBoxes = {
                {Center = Vector(-1865.32, -393.72, -4863.968750), Size = Vector(50,23,60), TelePos = Vector(-1845.35,-342.75,-4840.97),TelePos2 = Vector(-1873.943237,-340.656250,-4777.968750),TelePos3 = Vector(-1871.898682,-340.746216,-4719.968750), ComeBack = (Vector(-1866.575073,-414.372101,-4863.968750)),Occupied = false},
                {Center = Vector(-1700.471069,-393.72,-4863.968750), Size = Vector(50,23,60), TelePos = Vector(-2034.09,-501.35,-4766.344),TelePos2 = Vector(-1693.230347,-337.328156,-4777.968750),TelePos3 = Vector(-1693.230347,-337.328156,-4719.570313),ComeBack = (Vector(-1866.575073,-414.372101,-4863.968750)),Occupied = false},
                {Center = Vector(-1866.508301,-505,-4863.968750), Size = Vector(50,23,60), TelePos = Vector(-1825.217285,-557.164001,-4831.598633),TelePos2 = Vector(-1862.846558,-554.872559,-4777.968750),TelePos3 = Vector(-1868.771729,-554.842834,-4719.968750),ComeBack = (Vector(-1866.575073,-414.372101,-4863.968750))},
                {Center = Vector(-1700.999390,-504.649078,-4863.968750), Size = Vector(50,23,60), TelePos = Vector(-1699.032227,-554.086487,-4831.968750),TelePos2 = Vector(-1683.000488,-557.165771,-4777.968750),TelePos3 = Vector(-1688.121826,-559.982605,-4719.968750),ComeBack = (Vector(-1866.575073,-414.372101,-4863.968750))}
                }

for k,v in ipairs(teleBoxes) do
        local vCenter,boxSize = v.Center, v.Size
        local mins,maxs = vCenter-Vector(boxSize.x,boxSize.y, 0), vCenter+boxSize

        teleBoxes[k].Mins = mins
        teleBoxes[k].Maxs = maxs
end

if SERVER then
        AddCSLuaFile()

        hook.Add("KeyPress", "KeyPress.TeleportBox", function(ply, key,bed)
                for k,v in ipairs(teleBoxes) do
                        local vCenter,boxSize = v.Center, v.Size
                        local mins,maxs = v.Mins, v.Maxs

                        if (key == IN_USE) and ply:GetPos():WithinAABox(mins, maxs) then

        ply:DrawWorldModel(false)
                ply:DrawViewModel(false)
                ply:SetNoTarget(true)
                ply:SetParent(RagDoll)
                local RagDoll = ents.Create("prop_ragdoll")
                RagDoll:SetModel(ply:GetModel())
                RagDoll:SetName(ply:GetName())
                RagDoll:SetColor(ply:GetColor())
                RagDoll:SetMaterial(ply:GetMaterial())
               // RagDoll:SetPos(v.TelePos)
                if !RagDoll:GetPos():IsEqualTol(v.TelePos,10) then RagDoll.Bed1Used = false end
                if RagDoll:GetPos():IsEqualTol(v.TelePos,10) then RagDoll.Bed1Used = true end
                if RagDoll:GetPos():IsEqualTol(v.TelePos2,10) then RagDoll.Bed2Used = true end
                if RagDoll:GetPos():IsEqualTol(v.TelePos3,10) then RagDoll.Bed3Used = true end
                if !RagDoll.Bed1Used then RagDoll:SetPos(v.TelePos) end
                if RagDoll.Bed1Used then RagDoll:SetPos(v.TelePos2) end
                if RagDoll.Bed2Used then RagDoll:SetPos(v.TelePos3) end
                //RagDoll:SetPos(v.TelePos)
                RagDoll:SetAngles(Angle(-40,0,0))
                RagDoll:SetHealth(ply:Health())
                RagDoll:SetOwner(ply)
                RagDoll:Spawn()
                RagDoll:Activate()
                ply:Spectate( OBS_MODE_CHASE )
                ply:SpectateEntity( RagDoll )
                ply:SetEyeAngles(Angle(0,90,0))
                timer.Simple(12, function()


                                        Unrag(ply, RagDoll)
                                ply:SetPos(v.ComeBack) end)

                                                                        //ply:SetAngles(7.24,-90.96,0.0):Angle() end)

                        end
                end
        end)
else
        hook.Add("PostDrawOpaqueRenderables", "PDOR.TeleBoxDebug", function()
                for k,v in ipairs(teleBoxes) do
                        local vCenter,boxSize = v.Center, v.Size
                        render.DrawWireframeBox(vCenter, Angle(), -Vector(boxSize.x,boxSize.y, 0), boxSize, Color(0,0,255), true)
                end
        end)
end
function Unrag(ply,RagDoll)
        ply:SetDSP( 4, false)
        ply:Spectate(0)
        ply:SpectateEntity()
        ply:UnSpectate( RagDoll )
        ply:Spawn()
        //ply:SetPos(v.ComeBack)
        RagDoll:Remove()
        ply:DrawWorldModel(true)
        ply:DrawViewModel(true)
        ply:SetNoTarget(false)
        ply:Freeze(false)
        //ply:SetHealth(health)
        end