player
    proc
        ViewMap(R=view_range)
            var/turf/Standing = src.loc
            if(!isturf(Standing)) return 0

            if(R < 1) R=1
            if(R > 50) R = 50

            var/list/buffer = list()
            var/tempbuffer = ""
            var/atom/A
            var/TopLeftX = x - R
            var/TopLeftY = y + R
            var/LowRightX = x + R
            var/LowRightY = y - R

            if(TopLeftX < 1) TopLeftX=1
            if(TopLeftY > world.maxy) TopLeftY = world.maxy
            if(LowRightX > world.maxx) LowRightX = world.maxx
            if(LowRightY < 1) LowRightY = 1

            buffer += "\[[Standing.name]] ([Standing.x],[Standing.y],[Standing.z])"

            for(var/Ye = TopLeftY, Ye >= LowRightY, Ye--)
                for(var/Ex = TopLeftX, Ex <= LowRightX, Ex++)
                    var/turf/RealTurf = locate(Ex,Ye,z)
                    var/display = "[RealTurf.text]"
                    var/atom/highest_layer

                    for(A in RealTurf.contents)
                        if(A.ascii_layer > highest_layer.ascii_layer)
                            highest_layer = A

                    display = "[highest_layer.ascii_color][highest_layer.ascii_icon]{g"
                    tempbuffer += display
                    continue
                buffer += tempbuffer
                tempbuffer = ""
                continue

            if(Standing.desc) buffer += Standing.desc

            
            var/dirs = ""

            if(isturf(locate(x,y+1,z)))
                dirs += " North"
            if(isturf(locate(x-1,y,z)))
                dirs += " West"
            if(isturf(locate(x,y-1,z)))
                dirs += " South"
            if(isturf(locate(x+1,y,z)))
                dirs += " East"

            if(dirs)
                buffer += "\n{z\[{rExits{Z:{g[dirs]\]"

            else if(!dirs)
                buffer += "\n{z\[{rExits{Z:{gNone\]"

            send(List2Text(buffer,"\n"),src,0)
            return buffer