partial conversion to CSV-based levels, does not run yet

the_parser.p8

@@ -0,0 +1,61 @@
+pico-8 cartridge // http://www.pico-8.com
+version 41
+__lua__
+-- the parser
+
+parser = {}
+mknew(parser)
+
+-- calls parse_into with a nop
+-- emit function.
+function parser:parse(str)
+ self:parse_into(str, function() end)
+end
+
+-- read a file of commands and
+-- execute them, emitting the
+-- results from each call into
+-- `emit` as a table per row.
+--
+-- a "command" is a method on
+-- self. a row alternates
+-- commands with args. when
+-- calling a command, it also
+-- gets a table of previous
+-- results as the first arg.
+-- args are split on ','.
+function parser:parse_into(str, emit)
+ for row in all(split(str, "\n")) do
+  local prev = {}
+  local sectors = split(row, ":")
+  for i=1,#sectors,2 do
+   local x = self[sectors[i]](self, prev, usplit(sectors[i+1]))
+   if (x) add(prev, x)
+  end
+  emit(prev)
+ end
+end
+
+-- saves prev[sel] as self.name.
+-- if sel is unspecified, saves
+-- all of prev (as a table).
+function parser:saveas(prev, name, sel)
+ self[name] = sel and prev[sel] or prev
+end
+
+-- returns its args, ignoring
+-- prev. Used to stuff things
+-- into prev. args are packed
+-- if there's multiple.
+function parser:val(_, ...)
+ local ret := pack(...)
+ if (#ret == 1) return ret[1]
+ return ret
+end
+
+function parser:bind(_, fn, ...)
+ local f = self[fn]
+ return function()
+  f(...)
+ end
+end

updatedshmup.p8

@@ -26,22 +26,19 @@ end
 -- ret is definitely not nil
 -- before calling setmetatable.
 -- use to initialize mutables.
+--
+-- if there was a previous new,
+-- it is invoked on the new
+-- object *after* more, because
+-- this works better with the
+-- `more` impls i use.
 function mknew(tt, more)
- local mt = {__index=tt}
+ local mt,oldnew = {__index=tt},tt.new
- -- check "more" only once ever
- if more then
  tt.new=function(ret)
   if(not ret) ret = {}
-   more(ret)
+  if(more) more(ret)
+  if(oldnew) oldnew(ret)
   setmetatable(ret, mt)
-   return ret
-  end
- else
-  tt.new=function(ret)
-   if (not ret) ret = {}
-   setmetatable(ret, mt)
-   return ret
-  end
  end
 end
 
@@ -416,59 +413,6 @@ function grab_p1_butts()
  }
 end
 
--->8
--- the parser
-
-parser = {}
-mknew(parser)
-
--- calls parse_into with a nop
--- emit function.
-function parser:parse(str)
- self:parse_into(str, function() end)
-end
-
--- read a file of commands and
--- execute them, emitting the
--- results from each call into
--- `emit` as a table per row.
---
--- a "command" is a method on
--- self. a row alternates
--- commands with args. when
--- calling a command, it also
--- gets a table of previous
--- results as the first arg.
--- args are split on ','.
-function parser:parse_into(str, emit)
- for row in all(split(str, "\n")) do
-  local prev = {}
-  local sectors = split(row, ":")
-  for i=1,#sectors,2 do
-   local x = self[sectors[i]](self, prev, usplit(sectors[i+1]))
-   if (x) add(prev, x)
-  end
-  emit(prev)
- end
-end
-
--- saves prev[sel] as self.name.
--- if sel is unspecified, saves
--- all of prev (as a table).
-function parser:saveas(prev, name, sel)
- self[name] = sel and prev[sel] or prev
-end
-
--- returns its args, ignoring
--- prev. Used to stuff things
--- into prev. args are packed
--- if there's multiple.
-function parser:val(_, ...)
- local ret := pack(...)
- if (#ret == 1) return ret[1]
- return ret
-end
-
 -->8
 --ship behavior
 
@@ -725,10 +669,7 @@ blocky = frownie.new{
 }
 mknew(blocky)
 
-function spawn_spewy_at(x, y)
+spewy = frownie.new{
-	local spewy = frownie.new{
-	 x = x,
-	 y = y,
  sprite=26,
  power=-20,
  hurt = {
@@ -737,22 +678,20 @@ function spawn_spewy_at(x, y)
   width=8,
   height=5
  },
- 
  hp=1,
  maxpower=70,
  generator=0.5,
-	 main_gun = protron_gun.new{enemy=true},
  fire_off_x=4,
  fire_off_y = 7,
  grab_butts=function()
   local butts=frownie.grab_butts()
   butts[5]=1
   return butts
-	 end,
-	}
- eships:push_back(spewy)
-	return spewy
  end
+}
+mknew(spewy, function(ship)
+ ship.main_gun=ship.main_gun or protron_gun.new{enemy=true}
+end}
 
 chasey = ship_m.new{
  sprite = 5,
@@ -777,32 +716,20 @@ chasey = ship_m.new{
  thrust = 0.2,
  drag = 0.075,
  slip = true,
+}
+mknew(chasey, function(ship)
+ ship.main_gun=ship.main_gun or zap_gun.new{enemy=true}
+end)
 
- grab_butts = function(self)
+function chasey:grab_butts()
-  local butts = {0,0,0,0,0}
+ local butts = {[0]=0,0,0,0,0,0}
-  butts[0] = 0
  if (self.x < primary_ship.x) butts[1] = 1
  if (self.x > primary_ship.x) butts[0] = 1
  if (self.x - 16 < primary_ship.x and self.x + 16 > primary_ship.x) butts[5] = 1
  return butts
- end,
-}
-mknew(chasey)
-
-function spawn_chasey_at(x, y)
- local c = chasey.new{
-  x = x,
-  y = y,
-  main_gun = zap_gun.new{enemy=true},
- }
- eships:push_back(c)
- return c
 end
 
-function spawn_xl_chasey_at(x, y)
+xl_chasey=chasey.new{
- local c = chasey.new{
-  x = x,
-  y = y,
  size=2,
  maxspd=1.25,
  hurt = {
@@ -827,9 +754,9 @@ function spawn_xl_chasey_at(x, y)
   pal()
  end,
 }
- eships:push_back(c)
+mknew(xl_chasey, function(ship)
- return c
+ ship.main_gun=ship.main_gun or zap_gun.new{enemy=true}
-end
+end)
 -->8
 -- collisions
 
@@ -900,7 +827,9 @@ end
 
 -- a level is a map from
 -- effective frame number to
--- callback for that frame.
+-- a list of actions for that
+-- frame. an action is a
+-- method name and its args.
 
 -- effective frame number stops
 -- when freeze count is nonzero
@@ -924,16 +853,20 @@ freeze = 0
 
 eol = {}
 
-function load_level(lvltbl)
+function load_level(levelfile)
  distance = 0
  lframe = 0
  freeze = 0
  current_level = {}
- -- copy the level so we can
+ for row in all(csv(levelfile)) do
- -- modify it dynamically
+  local x = current_level[row[1]]
- -- without losing the original
+  if row[2] == "eol" then
- for frame, cb in pairs(lvltbl) do
+   assert(x==nil, "events on eol frame")
-  current_level[frame] = cb
+   row[1] = eol
+  else
+   add(x, row)
+  end
+  row[1]=x
  end
  leveldone = false
 end
@@ -943,13 +876,16 @@ function level_frame()
  if (current_level == nil) return true
  if freeze == 0 then 
   distance += 1
-  local cb = current_level[distance]
+  local cbs = current_level[distance]
-  if cb ~= nil then
+  if cbs ~= nil then
-   if cb == eol then
+   if cbs == eol then
     current_level = nil
     return true
    else
-    cb()
+    for c in all(cbs) do
+     assert(c[1] == distance)
+     level_events[c[2]](unpack(c.params, 3))
+    end
    end
   end
  end
@@ -958,14 +894,7 @@ end
 -->8
 -- example level
 
-function spawn_rnd_x(typ)
+
- s = typ.new{
-  x = rnd(104),
-  y = -(typ.size * 8 - 1)
- }
- eships:push_back(s)
- return s
-end
 
 function spawn_blocking_rnd_x(typ)
  freeze += 1
@@ -1071,6 +1000,75 @@ function spawn_blocking_boss_chasey()
  return c
 end
 
+spawns = {
+ chasey = chasey,
+ frownie = frownie,
+ blocky = blocky,
+ spewy = spewy,
+ spewy_xl=spewy_xl,
+ -- TODO: populate this
+}
+function std_spawn(tnm, n, blocking, goodie,altspr)
+ local typ = spawns[tnm]
+ assert(typ, tostr(tnm).." not a spawnable")
+ for i=1,(n or 1) do
+  spawn_rnd(typ, blocking, goodie,altspr)
+ end
+end
+
+-- blocking: 1 or 0
+function spawn_rnd(typ, blocking, goodie,altspr)
+ freeze += blocking
+ s = typ.new{
+  x = rnd(104),
+  y = -(typ.size * 8 - 1)
+  ice=blocking
+  die=function(self)
+   freeze -= self.ice
+   self.ice=0
+   typ.die(self)
+   spawn_goodie(goodie, self.x, self.y, self.size)
+  end
+ }
+ if (altspr) s.spr = altspr
+ eships:push_back(s)
+ return s
+end
+
+-- TODO: spawn_goodie compatible versions of gun drops
+-- TODO: goodie table
+function spawn_goodie(goodie_name, x, y, sz)
+ if (not goodie_name or #goodie_name == 0) return
+ local sh = sz and sz/2 or 0
+ goodies[goodie_name].new{}:spawn_at(x+sh,y+sh)
+end
+
+-- TODO: populate level_events
+
+-- to implement: multi(times, interval, f, ...)
+-- once on this frame, then times-1 times after that spaced interval
+-- frames apart, f(...). schedule this like the one-off written in
+-- example_level.
+function multi(times, interval, fnm, ...)
+ local f,irm = level_events[fnm],interval
+ fnm(...)
+ events:push_back{move=function()
+  irm-=1
+  if irm <= 0 then
+   irm=interval
+   times-=1
+   fnm(...)
+   return times <= 1
+  end
+ end}
+end
+
+-- then convert sample_level to csv.
+-- spawn_spec_gun_at and spawn_main_gun_at will need parsed forms.
+-- the boss also needs to be reachable, but one-off is fine.
+-- each row of level csv is offset,event,event-args...
+-- where offset,eol is a special case.
+
 example_level = {
  [1]=spawn_frownie,
  [60]=spawn_bonus_vulcan_chasey,