despawn shots aggressively when offscreen

avoids hitting enemies before they spawn in.

may need to revisit this for the X coordinate if I want to implement a "Wild Ball" kind of weapon, but I think I won't have the tokens for that anyway

vacuum_gambit.p8

@@ -60,7 +60,7 @@ function mknew(tt)
 end
 
 -- intrusive singly-linked list.
--- cannot be nested!
+-- cannot be nested or crossed!
 linked_list = mknew{
  is_linked_list=true,
  init = function(x)
@@ -93,9 +93,7 @@ end
 
 -- strip calls f(x) for each
 -- node, removing each node for
--- which f(x) returns true. it
+-- which f(x) returns true.
--- returns the new tail; nil
--- if the list is now empty.
 function linked_list:strip(f)
  local p, n = self, self.next
  while n do
@@ -107,7 +105,6 @@ function linked_list:strip(f)
   n = n.next
  end
  self.tail = p
- return p
 end
 
 -- optimized special case -
@@ -237,52 +234,39 @@ function updategame()
  end
  events:vore(new_events)
  events:strip(call_move)
- for _, lst in ipairs{intangibles_bg, eships, pbullets, ebullets} do
+ for _, lst in ipairs{intangibles_bg, eships} do
   lst:strip(call_move)
  end
 
+	-- eship collider will be used
+ -- both for pship and pbullets.
+ local eship_collider = collider.new{from=eships}
+
  if not ps.dead then
   ps:move()
   local pbox = hurtbox(ps)
-  eships:strip(function(es)
+  for es in eship_collider:iterate_collisions(pbox) do
-   if(not collides(pbox, hurtbox(es))) return
    ps:hitship(es)
-   return es:hitship(ps)
+   if(es:hitship(ps)) eship_collider:yoink(es)
-  end)
+  end
   ebullets:strip(function(eb)
+   -- loopify this when split moves implemented
+   if (eb:move()) return true
    if (not collides(pbox, hurtbox(eb))) return
    ps:hitbullet(eb)
    return eb:hitship(ps)
   end)
- end
-
-	-- many bullets and many enemy ships;
-	-- use bucket collider for efficiency
- local pbullet_collider = collider.new()
- local p, n = pbullets, pbullets.next
- while n do
-  n.prev = p
-  pbullet_collider:insert(n)
-  p = n
-  n = p.next
- end
-
- eships:strip(
-  function(es)
-   for pb in all(pbullet_collider:get_collisions(es)) do
-    if pb:hitship(es) then
-     pbullet_collider:hide(pb)
-     pb.prev.next = pb.next
-     if pb.next then
-      pb.next.prev = pb.prev
  else
-      pbullets.tail = pb.prev
+  ebullets:strip(call_move)
  end
+
+ pbullets:strip(function(pb)
+  if (pb:move()) return true
+  for es in eship_collider:iterate_collisions(hurtbox(pb)) do
+   if (es:hitbullet(pb)) eship_collider:yoink(es)
+   if (pb:hitship(es)) return true
   end
-    if (es:hitbullet(pb)) return true
+ end)
-   end
-  end
- )
  
  intangibles_fg:strip(call_move)
 
@@ -826,22 +810,14 @@ remainder:
 end
 
 function bullet_base:hitship(_)
- self:die()
  return true
 end
 
-function bullet_base:die()
-end
-
 function bullet_base:move()
  self.x += self.dx
  self.y += self.dy
  if (self.f) self.f -= 1
- if (self.y > 145) or (self.y < -8 * self.height) or (self.f and self.f < 0) then
+ return (self.y > 130) or (self.y < -self.height*8) or (self.f and self.f < 0) or (self.x > 128) or (self.x < -self.width*8)
-  self:die()
-  return true
- end
- return false
 end
 
 function bullet_base:draw()
@@ -1445,6 +1421,22 @@ end
 collider = mknew{
  init = function(x)
   x.suppress = {}
+  local p, n = x.from, x.from.next
+  while n do
+   -- insert
+   for i in all(collider_indexes(hurtbox(n))) do
+    local a = x[i]
+    if not a then
+     a = {}
+     x[i] = a
+    end
+    add(a, n)
+   end
+   -- prepare yoink
+   n.prev = p
+   p = n
+   n = n.next
+  end
  end,
 }
 
@@ -1458,40 +1450,39 @@ function collider_indexes(box)
  return ret
 end
 
-function collider:insert(item)
+function collider:yoink(item)
- -- todo: separate "big items" list?
- local bdx = collider_indexes(hurtbox(item))
- for i in all(bdx) do
-  local x = self[i]
-  if not x then
-   x = {}
-   self[i] = x
-  end
-  add(x, item)
- end
-end
-
-function collider:hide(item)
  self.suppress[item]=true
+ local p,n = item.prev,item.next
+ p.next = n
+ if n then
+  n.prev = p
+ else
+  self.from.tail = p
+ end
 end
 
-function collider:get_collisions(item)
+function collider:iterate_collisions(box)
- local found = { }
  local seen = { }
- local box = hurtbox(item)
  local bucket_ids = collider_indexes(box)
- for b_idx in all(bucket_ids) do
+ local bii, bidl, bucket, bi, blen = 1, #bucket_ids, false, 1, 0
-  local bucket = self[b_idx]
+ return function()
-  if bucket then
+  while bii <= bidl do
-   for candidate in all(bucket) do
+   if not bucket then
-    if not (seen[candidate] or self.suppress[candidate]) then
+    bucket,blen = self[bucket_ids[bii]],0
+    if (bucket) blen=#bucket
+   end
+   while bi <= blen do
+    local candidate = bucket[bi]
+    bi += 1
+    if not seen[candidate] then
      seen[candidate] = true
-     if (collides(box, hurtbox(candidate))) add(found, candidate)
+     if (not self.suppress[candidate] and collides(box, hurtbox(candidate))) return candidate
     end
+   end -- done with this bucket
+   bi=1
+   bii += 1
   end
-  end
+ end -- end of closure def
- end
- return found
 end
 
 -->8
@@ -1770,7 +1761,6 @@ function xp_gem:draw()
 end
 
 function xp_gem:move()
- 
  if not primary_ship.dead and abs(self.x + 1 - primary_ship.x - primary_ship.hurt.x_off) <= primary_ship.magnet and abs(self.y + 1 - primary_ship.y - primary_ship.hurt.y_off) <= primary_ship.magnet then
   if (self.x < primary_ship.x + 3) self.x += 1
   if (self.x > primary_ship.x + 5) self.x -= 1
@@ -1780,9 +1770,6 @@ function xp_gem:move()
  return bullet_base.move(self)
 end
 
--- todo: "magnetic" behavior
--- when near player ship
-
 function xp_gem:hitship(ship)
  if (ship ~= primary_ship or primary_ship.dead) return false
  primary_ship.xp += self.val