test player-relative paths

vacuum_gambit.p8

@@ -1501,13 +1501,13 @@ ship_f = mknew(ship_m.new{
 diamond_loop = segment.new{
  dests = {
   destination.new{
-   x_off_frac=0.25
+   x_off_frac=0.125
   }, destination.new{
-   y_off_frac=0.25
+   y_off_frac=0.125
   }, destination.new {
-   x_off_frac = -0.25
+   x_off_frac = -0.125
   }, destination.new {
-   y_off_frac = -0.25
+   y_off_frac = -0.125
   },
  },
 }
@@ -1529,6 +1529,37 @@ diamond_bounce = path.new{
  },
 }
 
+swoop = segment.new {
+ dests = {
+  destination.new{
+   accel_frac = 0
+  }, destination.new{
+   x_off_frac = -0.75,
+   anchor_frac = 0.25,
+  }, destination.new {
+   x_off_frac = -0.375,
+   anchor_frac = 0.625,
+  }, destination.new {
+   y_off_frac = -0.125,
+   anchor_frac = 1,
+  }, destination.new {
+   x_off_frac = 0.375,
+   anchor_frac = 0.625,
+  },
+ },
+}
+
+swoop_loop = path.new {
+ segs = {
+  diamond_loop,
+  swoop,
+  park,
+  diamond_loop.mirror,
+  swoop.mirror,
+  park,
+ }
+}
+
 ship_mook = mknew(ship_f.new{
  sprite=103
 })
@@ -1545,12 +1576,13 @@ ship_turret = mknew(ship_f.new{
 ship_skirmisher = mknew(ship_f.new{
  sprite=107,
  xp = 0x0.0004,
+ hp = 1.5,
  sparks = smokespark,
  sparkodds = 3,
  fire_off_y = 7,
  xmin = -8,
  xmax = 112,
- path = diamond_bounce,
+ path = swoop_loop,
 })
 
 function ship_skirmisher:reset_bounds()
@@ -1675,7 +1707,7 @@ flotilla = mknew{
    [8]=mknew(ship_turret.new{ship_t=8}),
    [9]=mknew(ship_turret.new{ship_t=9, sprite=4}),
    [12]=mknew(ship_skirmisher.new{ship_t=12}),
-   [13]=mknew(ship_skirmisher.new{ship_t=13, sprite=26}),
+   [13]=mknew(ship_skirmisher.new{ship_t=13, sprite=26, path=diamond_bounce}),
   }
  end,
 }
@@ -1691,8 +1723,9 @@ function flotilla:load(ulc_cx, ulc_cy, lvl)
   [12]=0,
   [13]=0,
  }
+ local maxcol = 0
  repeat
-  local row,cx,opt,f,mode= {},ulc_cx,{},0,0
+  local row,cx,opt,f,mode = {},ulc_cx,{},0,0
   for i,v in ipairs(self.opt_odds) do
    opt[i*4-4]=rnd()<v
   end
@@ -1702,7 +1735,7 @@ function flotilla:load(ulc_cx, ulc_cy, lvl)
    mode = f&0x03
    if mode==2 then
     -- bits 0x0c: ship class
-    local ship_t = f&0x0c
+    local ship_t, col = f&0x0c, cx-ulc_cx
     -- bit 0x20: optional?
     if f&0x20 == 0 or opt[ship_t] then
      -- bit 0x10: alternate ship?
@@ -1711,7 +1744,8 @@ function flotilla:load(ulc_cx, ulc_cy, lvl)
      -- and we allow alternates
      -- for this type of ship
      ship_t+=(uv>>ship_t&0x1)&((f&0x10)>>4)
-     add(row, self.ship_bases[ship_t].new{col=cx-ulc_cx})
+     add(row, self.ship_bases[ship_t].new{col=col})
+     if (col > maxcol) maxcol = col
     end
    end
    cx += 1
@@ -1731,6 +1765,13 @@ function flotilla:load(ulc_cx, ulc_cy, lvl)
   -- control mark bit 0x04: end of flotilla
  until f&0x04 > 0
  self.rows=rows
+ -- mirror right half paths; alternate center column if odd
+ local rh = maxcol>>1
+ for r, row in ipairs(rows) do
+  for s in all(row) do
+   if ((s.path) and (s.col > rh or (s.col == rh and r & 1 == 1))) s.path = s.path.mirror.new()
+  end
+ end
  self:statisfy(counts)
 end