Show blocked crate moves (#24)

Save/load system. Not golfed.

Saves the music flag, the last level the player played, and the furthest level reached. Loads music flag on launch. Title screen starts on most recent level played; when in "release configuration" the title screen will only let the player pick levels up to the maximum reached through gameplay, but right now this is replaced with the 31.

Save file can be wiped by holding the down arrow at the title screen.

block writes while reading

Disabling writes during "wipe" and "first load" is not quite semantically what we want, it's writes during read we want to block. This happens because turning the music on or off tries to save the state, and it's easier to just ignore that persistence request than to rework the music code so it doesn't. "wipe" and "first load" are when we're actually reading (and enacting) state, but it's the act of reading rather than those two acts that should block writes.

It is also unwilling to write until it's done its first read, which I think is a feature; it makes it harder to accidentally blank out the player's data.

Show blocked moves as an animated X.

I am not convinced the sprite is very good. This could help the player learn what pulls were considered before proposing the ones that would occur if the player pulled the tongue. Or it's just visual noise that sucks. Anyway, this correctly captures what the blocked considered moves were, and we can decide whether to use it or not.

Reviewed-on: pyrex/chameleonic#24
Co-authored-by: Kistaro Windrider <kistaro@gmail.com>
Co-committed-by: Kistaro Windrider <kistaro@gmail.com>

chameleonic.p8

@@ -8,8 +8,9 @@ real_modules={}
 frame=0
 function _init()
  -- printh("restarting")
- music_on()
- _doall("init") end
+ _doall("init")
+end
+
 function _update()
  frame+=1
  if (frame%1==0) _doall("update") end
@@ -17,12 +18,16 @@ function _draw()
  _doall("draw") end
 
 function music_on()
- music(0)
+ if (stat(54) ~= 0) music(0)
+ persist.music=true
+ persist:write()
  menuitem(3, "music: on", music_off)
 end
 
 function music_off()
  music(-1)
+ persist.music=false
+ persist:write()
  menuitem(3, "music: off", music_on)
 end
 
@@ -261,7 +266,7 @@ end
 title={}
 add(modules,title)
 
-blinkcol=10
+lvlshimmer = {4,9,10,10,9}
 function title:draw()
  cls(0)
  -- this is right for 72x32
@@ -270,22 +275,33 @@ function title:draw()
  print("[nyeogmi]",62,73,7)
  print("kistaro",32,79,7)
  local lvlstr = "⬅️ "..start_level.." ➡️"
- print(lvlstr,50,91,1)
- print(lvlstr,51,90,blinkcol) 
+ local lx, ly = 51+wrongbleep:vibrate(), 90+wrongbleep:vibrate()
+ print(lvlstr,lx-1,ly+1,1)
+ print(lvlstr,lx,ly,cycle(lvlshimmer)) 
 end
 
-start_level=0
-max_level=31
+function title:init()
+ start_level=persist.recent_level
+ -- max_level=persist.max_level
+ max_level = 31 --debugging/coding
+ wiped = false
+end
 
 function title:update()
- blinkcol=9
- if (time()*4\1%2==0) blinkcol=10
- 
  if (btnp"0") start_level-=1
  if (btnp"1") start_level+=1
- start_level%=max_level
-
- if (btnp"4" or btnp"5") modules=real_modules _init() music(0)
+ start_level%=(max_level+1)
+ if btn"3" and not wiped then
+  wrongbleep:bleep()
+  if (wrongbleep:adequately_warned()) then
+   persist:wipe()
+   max_level = 0
+   start_level = 0
+   wiped=true
+   -- todo: sfx(kaboom!)
+  end
+ end
+ if (btnp"4" or btnp"5") modules=real_modules _init()
 end
 
 -->8
@@ -308,6 +324,8 @@ function level:reinit(n)
  self:load_dynobjs()
  self:recollide_reanchor()
  self:spawn_exit()
+ 
+ persist:lvlstart()
 end
 
 function level:restart()
@@ -976,7 +994,7 @@ function rope:affected_src_xy(artificial_px,artificial_py)
 end
 
 function rope:draw(artificial_px,artificial_py)
- local points,highlight,hypo_ops=self:_tug(true)
+ local points,highlight,hypo_ops,hypo_blocks=self:_tug(true)
  local n,perc_to_show,from_end = self.state.name,1.0
  if (n=="done") return
  if (n=="cast") perc_to_show=self.state.frame/2
@@ -1048,11 +1066,17 @@ function rope:draw(artificial_px,artificial_py)
 
  -- hypothetical
  local time=t()-self.flicker_t
- if n=="latched" and time>0 and time%0.5>0.25 and not level:busy() then
-  for o in all(hypo_ops) do
-   local mx0,my0,dmx,dmy=unpack(o)
-   local px1,py1=(mx0+dmx)*8,(my0+dmy)*8
-   spr(14,px1,py1)
+ if n=="latched" and time>0 and not level:busy() then
+  if time%0.5>0.25 then
+   for o in all(hypo_ops) do
+    local mx0,my0,dmx,dmy=unpack(o)
+    local px1,py1=(mx0+dmx)*8,(my0+dmy)*8
+    spr(14,px1,py1)
+   end
+  end
+  for o in all(hypo_blocks) do
+   local x,y,dx,dy=unpack(o)
+   spr(53,8*x+4*dx,8*y+4*dy,1,1,time%0.5>0.25)
   end
  end
 
@@ -1513,20 +1537,23 @@ function rope:_tug(hypothetically)
  local ancs=self:_anchors_simplified()
  local touched={}
 
+ local blocks = {}
  for i=#ancs-1,2,-1 do
-  local ops_before_trash=self:_calc_push(ancs[i+1],ancs[i],ancs[i-1],ancs[i-2])
+  local ops_before_trash,blocks_before_trash=self:_calc_push(ancs[i+1],ancs[i],ancs[i-1],ancs[i-2])
   local ops_to_do,corners={}
+  for b in all(blocks_before_trash) do add(blocks, b) end
   if #ops_before_trash>0 then 
    ops_to_do=ops_before_trash
   else 
-   local ops_after_trash=self:_calc_push(ancs[i-2],ancs[i-1],ancs[i],ancs[i+1])
+   local ops_after_trash,blocks_after_trash=self:_calc_push(ancs[i-2],ancs[i-1],ancs[i],ancs[i+1])
    ops_to_do=ops_after_trash
+   for b in all(blocks_after_trash) do add(blocks,b) end
   end
 
   local ops=ops_to_do
 
   if #ops>0 then
-   if (hypothetically) return ancs,i-1,ops
+   if (hypothetically) return ancs,i-1,ops,blocks
 
    for o in all(ops) do level:tug_crate(unpack(o)) end
    return true
@@ -1535,7 +1562,7 @@ function rope:_tug(hypothetically)
 
  local latch=self.latch
  if latch and latch.el=="eyehook" then
-  if (hypothetically) return ancs,0,{}
+  if (hypothetically) return ancs,0,{},blocks
   player.todo={{
    update=function(s) 
     if not s.rope or s.rope:done() then
@@ -1576,17 +1603,19 @@ function rope:_tug(hypothetically)
    invalid_move=true
   end
   
-  if not invalid_move and
-   level:can_move(false,mx0,my0,dmx,dmy,1,0)
-  then
-   if (hypothetically) return ancs,0,{{mx0,my0,dmx,dmy}}
+  if not invalid_move then
+   if level:can_move(false,mx0,my0,dmx,dmy,1,0) then
+    if (hypothetically) return ancs,0,{{mx0,my0,dmx,dmy}},blocks
 
-   level:tug_crate(mx0,my0,dmx,dmy) 
-   return true
+    level:tug_crate(mx0,my0,dmx,dmy) 
+    return true
+   else
+    add(blocks, {mx0,my0,dmx,dmy})
+   end
   end
  end
 
- if (hypothetically) return ancs
+ if (hypothetically) return ancs,0,{},blocks
  return 
 end
 
@@ -1656,7 +1685,7 @@ function rope:_calc_push(
   end
  end
 
- local ops2={}
+ local ops2,blocked={},{}
  for o in all(ops) do
   local mx,my,dmx,dmy=unpack(o)
   if not level:mcoll(mx,my) then
@@ -1665,6 +1694,7 @@ function rope:_calc_push(
    local crate=level:get_crate(mx,my)
    if crate then
     if not level:can_move(false,mx,my,dmx,dmy,0,0) then
+     add(blocked,o)
      break
     end
    else
@@ -1673,7 +1703,7 @@ function rope:_calc_push(
    add(ops2,o)
   end
  end
- return ops2
+ return ops2,blocked
 end
 
 function rope:_anchors_simplified()
@@ -1715,6 +1745,7 @@ end
 -->8
 --wrongbleeps
 wrongbleep={}
+add(modules,wrongbleep)
 add(real_modules,wrongbleep)
 function wrongbleep:init()
  self.duration=0
@@ -1722,8 +1753,12 @@ function wrongbleep:init()
 end
 function wrongbleep:update()
  if (self.duration>5) self.duration=5
- if self.duration>0 then sfx(63,3) self.continuous+=1
- else self.continuous=0 end
+ if self.duration>0 then
+  sfx(63,3)
+  self.continuous+=1
+ else
+  self.continuous=0
+ end
  self.duration=max(self.duration-1,-4)
 end
 function wrongbleep:bleep(duration)
@@ -1881,6 +1916,48 @@ function debugmouse:draw3()
  pal()
 end
 
+-->8
+-- save/load
+
+persist={}
+add(modules, persist)
+add(real_modules, persist)
+
+function persist:init0()
+ cartdata("ulimate_lizard_total_destruction_0_1")
+ self.init0 = self.read
+ self:read()
+end
+
+function persist:read()
+ self.ready=false
+ local m = dget(0) == 0
+ self.music = m
+ if m then music_on() else music_off() end
+ self.max_level = dget(1)
+ self.recent_level = dget(2)
+ self.ready=true
+end
+
+function persist:wipe()
+ for i=0,64 do
+  dset(i,0)
+ end
+ self:read()
+end
+
+function persist:lvlstart()
+ self.recent_level = level.ix
+ self.max_level = max(self.max_level, level.ix)
+ self:write()
+end
+
+function persist:write()
+ if (not self.ready) return
+ dset(0, self.music and 0 or -1)
+ dset(1, self.max_level)
+ dset(2, self.recent_level)
+end
 __gfx__
 000030000000002200003000eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeff1ff1ff1fffffff1ffffff1fffffff1dddddddd111111110000000033300333
 003333300000332200333330eeffffffffffffffffffffeee5e555e55e555e5eff1ff1ffffffffffffffffffffffffffdddddddd111111110cc00cc033300333
@@ -1908,10 +1985,10 @@ eeee0000cc04405500444400efeeee5e11111111e5eeeefeeeeeeeeeeeeeeeeeffffffffffffffff
 000aa111991111103bbbbbb3eeeeeeeeeeeeeeeeeeeeeeeeff1ff1ffffffffffffffffff00000000000000000000000000000000000000000000000000000000
 0000000099100000f765000000000000000000000000000000000000000000000000000000000000000000000000000011111111111111111999999111111111
 00000000990000007700000000000000000000000000000000000000000000000000000000000000000000000000000019911991999999911999999119999999
-00000000990000006060000000000000000000000000000000000000000000000000000000000000000000000000000019977991999999911999999119999999
-00000000090000005005000000000000000000000000000000000000000000000000000000000000000000000000000019911991999117111991199111711999
-00000000aa0000000000000000000000000000000000000000000000000000000000000000000000000000000000000019911991999117111991199111711999
-0000000077a000000000000000000000000000000000000000000000000000000000000000000000000000000000000019999991999999911997799119999999
+00000000990000006060000000000000000bc0000090020000000000000000000000000000000000000000000000000019977991999999911999999119999999
+00000000090000005005000000bbcc00000bc0000009200000000000000000000000000000000000000000000000000019911991999117111991199111711999
+00000000aa0000000000000000ccbb00000cb0000002900000000000000000000000000000000000000000000000000019911991999117111991199111711999
+0000000077a000000000000000000000000cb0000020090000000000000000000000000000000000000000000000000019999991999999911997799119999999
 00000007777a00000000000000000000000000000000000000000000000000000000000000000000000000000000000019999991999999911991199119999999
 00044444444444000000000000000000000000000000000000000000000000000000000000000000000000000000000019999991111111111111111111111111
 44444444444004444444444444400444444444444440044444444444444004444444444444400444444444444440044444444444444004444444444444400444
@@ -2141,7 +2218,7 @@ __label__
 77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
 
 __gff__
-000000c0c0c0c0c0c0c0c0c0c0c00000000000c0c0c0c0c0c0c0c0c0202020200040c0c0c0c0c0c0c008080800000000404000000808080808080808c0c0c0c000000000080808080808080800000008000000000808080808080808000000000008080808080808080808080000000000080808080808080808080800000000
+000000c0c0c0c0c0c0c0c0c0c0c00000000000c0c0c0c0c0c0c0c0c0202020200040c0c0c0c0c0c0c008080800000000404000000000080808080808c0c0c0c000000000080808080808080800000008000000000808080808080808000000000008080808080808080808080000000000080808080808080808080800000000
 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 __map__
 0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d1203040404050d0d0d0d010d0d0d0d0d0d0d0d0d0d0d0d0d0d120d0d0d0d0d0d0d0d0d0d0d0d0d03043e0a040404050d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d