mob/verb/view8()
   for(var/mob/m in block(locate(x-8,y-8,z),locate(x+8,y+8,z))
      m << "[usr] talks!"

point
    var
        x = 0
        y = 0
        z = 0
    New(x, y, z)
        src.x = x
        src.y = y
        src.z = z
proc
    p(x, y, z)
        //returns a new point object with coordinates x, y, z
        if(istype(x, /point)||istype(x, /atom))
            var/point/p = x
            x = p.x
            y = p.y
            z = p.z
        return new /point(x, y, z)
    locatep(point/p)
        //locatep(p) mimics functionality of locate(x, y, z) where x, y, z are p.x, p.y, p.z
        return locate(p.x, p.y, p.z)

line
    var
        point
            p1; p2
    New(point/p1, point/p2)
        src.p1 = p1
        src.p2 = p2
    proc
        m()
            //returns the slope
            return (p2.y-p1.y)/(p2.x-p1.x)
        y_intercept()
            //returns the y of the y-intercept point
            return p1.y-p1.x*m()
        online(point/p)
            //returns 1 if point p is on this line, 0 otherwise
            if(p.y == m()*p.x + y_intercept()) return 1
            return 0
        parallel(line/L)
            //returns 1 if line L is parallel to this line, 0 otherwise
            return (m() == L.m())
        perpendicular(line/L)
            //returns 1 if line L is perpendicular to this line, 0 otherwise
            return (m() == -1/L.m())
        xpoint(y)
            //returns the x value of the point that corresponds to the y value given
            return (y-y_intercept())/m()
        ypoint(x)
            //returns the y value of the point that corresponds to the x value given
            return m()*x + y_intercept()
        get_points()
            //returns a list of points on the line from p1 to p2
            list/L[0]
            var/m = m()
            if(m <= 1)
                for(var/index = p1.x to p2.x)
                    L += p(index, ypoint(index))
            else
                for(var/index = p1.y to p2.y)
                    L += p(xpoint(index), index)
            return L

atom/InSight(atom/target)
    var/line/L = new(p(src), p(target))
    var/list/turf_line = L.get_points()
    for(var/index = 1 to turf_line.len)
        turf_line[index] = locatep(turf_line[index])
    //the rest is easy common sense stuff that anybody can do
    //just use this list of turfs however you want to calculate line of site. I'll give an example
    turf_line.Remove(loc)
    for(var/turf/T in turf_line)
        if(T.opacity) return 0
        for(var/atom/movable/M in T.contents)
            if(M.opacity) return 0
    return 1

> ………if(steep)
> …………if(!plot(y,x,z,i)) return
> …………else
> ……………if(!plot(x,y,z,i)) return
>