mob/verb/boulder()
    var/obj/boulder/tl=new /obj/boulder/tl(usr.loc)
    var/obj/boulder/tr=new /obj/boulder/tr(usr.loc)
    var/obj/boulder/br=new /obj/boulder/br(usr.loc)
    var/obj/boulder/bl=new /obj/boulder/bl(usr.loc)
    if(usr.dir==NORTH)
        tl.loc=locate(usr.x-1,usr.y+2,usr.z)
        tr.loc=locate(usr.x,usr.y+2,usr.z)
        bl.loc=locate(usr.x-1,usr.y+1,usr.z)
        br.loc=locate(usr.x,usr.y+1,usr.z)
        spawn()walk(tr,usr.dir)
        spawn()walk(tl,usr.dir)
        spawn()walk(br,usr.dir)
        spawn()walk(bl,usr.dir)
obj/boulder
    icon='boulder2.dmi'
    density=1
    tl
        icon_state="tl"
        //New()
        //  var/obj/boulder/A=src
        //  var/obj/boulder/B=new /obj/boulder/tr(locate(src.x,src.y,src.z))
        //  var/obj/boulder/C=new /obj/boulder/bl(locate(src.x,src.y,src.z))
        //  var/obj/boulder/D=new /obj/boulder/br(locate(src.x,src.y,src.z))
        Bump(atom/A)
            if(isturf(A)||isobj(A))
                //var/obj/boulder/Z=src
                var/obj/boulder/tr/B
                var/obj/boulder/br/C
                var/obj/boulder/bl/D
                for(B in view(1))
                    del(B)
                for(C in view(1))
                    del(C)
                for(D in view(1))
                    del(D)
                del(src)
            s_damage(A,150,"#FF0000")
            A:HP-=150
            A:DeathCheck(src,A)
    tr
        icon_state="tr"
        Bump(atom/A)
            if(isturf(A)||isobj(A))
                //var/obj/boulder/Z=src
                var/obj/boulder/tl/B
                var/obj/boulder/br/C
                var/obj/boulder/bl/D
                for(B in view(1))
                    del(B)
                for(C in view(1))
                    del(C)
                for(D in view(1))
                    del(D)
                del(src)
            s_damage(A,150,"#FF0000")
            A:HP-=150
            A:DeathCheck(src,A)
    br
        icon_state="br"
        Bump(atom/A)
            if(isturf(A)||isobj(A))
                //var/obj/boulder/Z=src
                var/obj/boulder/tl/B
                var/obj/boulder/tr/C
                var/obj/boulder/bl/D
                for(B in view(1))
                    del(B)
                for(C in view(1))
                    del(C)
                for(D in view(1))
                    del(D)
                del(src)
            s_damage(A,150,"#FF0000")
            A:HP-=150
            A:DeathCheck(src,A)
    bl
        icon_state="bl"
        Bump(atom/A)
            if(isturf(A)||isobj(A))
                //var/obj/boulder/Z=src
                var/obj/boulder/tl/B
                var/obj/boulder/br/C
                var/obj/boulder/tr/D
                for(B in view(1))
                    del(B)
                for(C in view(1))
                    del(C)
                for(D in view(1))
                    del(D)
                del(src)
            s_damage(A,150,"#FF0000")
            A:HP-=150
            A:DeathCheck(src,A)