proc
        Zonshoot()
            var/obj/H = new/obj/Zonbullet
            flick("Zon shoot",usr)
            spawn(3)
            if(src.fired == 0)
                src.fired = 1
                spawn(20)
                    src.fired = 0
                H.dir = src.dir
                H.loc = src.loc
                while(H)
                    step(H,H.dir)
                    var/turf/T = H.loc
                    if(T.density == 1)
                        del(H)
                        break
                    for(var/mob/M as mob in T)
                        if(M == src)
                            continue
                        src<<"You shot [M]!"
                        M.health -= 15
                        M.deathcheck()

                        del(H)