assert on unrecognized directive

saves four tokens and is more diagnostic.

chameleonic.p8

@@ -8,9 +8,8 @@ real_modules={}
 frame=0
 function _init()
  -- printh("restarting")
- _doall("init")
-end
-
+ music_on()
+ _doall("init") end
 function _update()
  frame+=1
  if (frame%1==0) _doall("update") end
@@ -18,23 +17,19 @@ function _draw()
  _doall("draw") end
 
 function music_on()
- if (stat(54) ~= 0) music(0)
- persist.music=true
- persist:write()
+ music(0)
  menuitem(3, "music: on", music_off)
 end
 
 function music_off()
  music(-1)
- persist.music=false
- persist:write()
  menuitem(3, "music: off", music_on)
 end
 
-function gsv(s,sep1,sep2)
- local ret=split(s,sep1 or "\n")
+function gsv(s)
+ local ret=split(s,"\n")
  for i,v in ipairs(ret) do
-  ret[i] = type(v) == "string" and split(v,sep2 or "`") or {v} end
+  ret[i] = type(v) == "string" and split(v,"`") or {v} end
  return ret
 end
 
@@ -43,6 +38,39 @@ function cycle(tbl,period)
  return tbl[t()%period*#tbl\period+1]
 end
 
+-- fake sprintf function
+-- %~ for literal "%"
+-- %v for param
+-- %! for tostring(param)
+--    which dumps tables
+function fmt(f, ...)
+ local out, i = "", 0
+ for s in all(split(f,"%")) do
+  if i == 0 then
+   -- before first format directive
+   out ..= s
+   i = 1
+  else
+   local m = s[1]
+   if m == "~" then
+    out ..= "%"
+   else
+    local p = select(i,...)
+    i+=1
+    if m == "v" then
+     out ..= p
+    elseif m == "!" then
+     out ..= tostring(p)
+    else
+     assert(false, tostr(m).."is not a formatting directive")
+    end
+   end
+   out ..=sub(s,2)
+  end
+ end
+ return out
+end
+
 mnames={}
 function names(root)
  local n=mnames[root]
@@ -251,14 +279,12 @@ function kbd:release(i)
 end
 
 function tostring(any)
- if type(any)=="table" then
+ if (type(any)!="table") return tostr(any)
  local str = "{ "
  for k,v in pairs(any) do
-      str=str..tostring(k).."->"..tostring(v).." "
+  str..=tostring(k).."->"..tostring(v).." "
  end
  return str.."}"
- end
- return tostr(any)
 end
 
 -->8
@@ -266,7 +292,7 @@ end
 title={}
 add(modules,title)
 
-lvlshimmer = {4,9,10,10,9}
+blinkcol=10
 function title:draw()
  cls(0)
  -- this is right for 72x32
@@ -274,34 +300,23 @@ function title:draw()
  print("pyrex",32,73,7)
  print("[nyeogmi]",62,73,7)
  print("kistaro",32,79,7)
- local lvlstr = "⬅️ "..start_level.." ➡️"
- local lx, ly = 51+wrongbleep:vibrate(), 90+wrongbleep:vibrate()
- print(lvlstr,lx-1,ly+1,1)
- print(lvlstr,lx,ly,cycle(lvlshimmer)) 
+ local lvlstr = fmt("⬅️ %v ➡️",start_level)
+ print(lvlstr,50,91,1)
+ print(lvlstr,51,90,blinkcol) 
 end
 
-function title:init()
- start_level=persist.recent_level
- -- max_level=persist.max_level
- max_level = 31 --debugging/coding
- wiped = false
-end
+start_level=0
+max_level=31
 
 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+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()
+ start_level%=max_level
+
+ if (btnp"4" or btnp"5") modules=real_modules _init() music(0)
 end
 
 -->8
@@ -314,18 +329,15 @@ function level:init()
 end
 
 function level:reinit(n)
- self.hintlevel=0
+ self.hintlevel = 0
  self.ix=n
  self.todo={}
  self.bigx,self.bigy=n%8,n\8
  self.dirty=false
 
- player.rope=nil  -- reanchor will touch the rope otherwise
  self:load_dynobjs()
  self:recollide_reanchor()
  self:spawn_exit()
- 
- persist:lvlstart()
 end
 
 function level:restart()
@@ -353,9 +365,10 @@ function level:draw()
   local pr=self._pits[_mix(px+1,py)]
 
   spr(pit.s,px,py)
-  if pit.full then
+  if pit.contents then
    pal(pitpal)
    palt(0,false)
+   --spr(pit.contents,pit.px,pit.py)
    spr(79,pit.px,pit.py)
    pal()
    pal(normpal)
@@ -386,10 +399,10 @@ function level:update()
 
   if #crate.todo==0 then 
    local pit=self._pits[_mix(crate.mx,crate.my)]
-   if pit and not pit.full then
+   if pit and not pit.contents then
     add(remove,cix)
     crate.dead=true
-    pit.full=true
+    pit.contents=crate.s
    end
   end
  end
@@ -457,8 +470,7 @@ function level:recollide_reanchor()
      not self:mcoll(mx1,my0) and
      not self:mcoll(mx1,my1)
     ) then
-     local key="GEOM"..mx0..","..my0..","..dx..","..dy
-     anch_new[key]= {
+     anch_new[fmt("GEOM%v,%v,%v,%v",mx0,my0,dx,dy)]= {
       max(mx0,mx1),max(my0,my1),adx=-dx,ady=-dy
      }
     end
@@ -466,10 +478,9 @@ function level:recollide_reanchor()
   end
 
   for _,cr in pairs(self._crates) do
-   local key="CRATE"..cr.id..","..dx..","..dy
    local mx0,my0=cr.mx,cr.my
    local mx1,my1=mx0+dx,my0+dy
-   anch_new[key]={
+   anch_new[fmt("CRATE%v,%v,%v",cr.id,dx,dy)]={
     max(mx0,mx1),max(my0,my1),adx=-dx,ady=-dy
    }
   end
@@ -522,7 +533,7 @@ end
 
 function level:get_open_pit(mx,my)
  local pit=self._pits[_mix(mx,my)]
- if (pit and not pit.full) return pit
+ if (pit and not pit.contents) return pit
 end
 
 function level:spawn_exit()
@@ -860,7 +871,7 @@ function player:draw()
    if (vanish_level>i/#vanish) pal(ilc,5)
   end
 
-  if (self.fall_frame>3) local zc=@0x5f00&0xf0 for i=0x5f00,0x5f0c,4 do poke4(i,0x0505.0505) end poke(0x5f00,zc|0x01)
+  if (self.fall_frame>3) local zc=@0x5f00&0xf0 for i=0x5f00,0x5f0c,4 do poke4(i,0x0101.0101) end poke(0x5f00,zc|0x01)
  end
 
  local rx,ry=self.x*8+self.px+1,self.y*8+self.py+2
@@ -933,12 +944,17 @@ function rope:update()
   if (not self.latch) wrongbleep:bleep(5) self:destroy() return
 
   if self.latch.rec then
+   self:drag_src{
+    self.latch.rec.mx+0.5+self.latch.ax_offset,
+    self.latch.rec.my+0.5+self.latch.ay_offset
+   }
+
    if self.latch.rec.dead==true then 
     self:destroy()
    end
   end
 
-  if (not self:_check_pinch()) self:destroy()
+  if (not self:_check_sane()) self:destroy()
 
  elseif self.state.name=="destroy" then -- destroy
   self.state.frame+=1
@@ -1065,22 +1081,25 @@ function rope:draw(artificial_px,artificial_py)
  while true do
   if (n1==nil) break
   local anch=level:anchor_at(n1)
-  local ax,ay=_anch_unpack(n1)
-  local x=ax*8
-  local y=ay*8
+  local x=n1.ax*8
+  local y=n1.ay*8
   if anch then
    if (anch.adx>0) x-=1
    if (anch.ady>0) y-=1
   end
   rectfill(x-1,y-1,x+1,y+1,12)
-  print("ax="..ax..",ay="..ay,72,sy)
+  print(fmt("ax=%v,ay=%v",n1.ax,n1.ay),72,sy)
   sy+=7
 
   local n0=n1.prev
   local n2=n1.next
   if n0!=nil and n2!=nil then
    if anch then
-    rectfill(x+2,y+2,x+4,y+4,3)
+    local _,_,_=would_stick(anch,n0.ax,n0.ay,n1.ax,n1.ay,n2.ax,n2.ay)
+
+    local c=3
+    if (anch.dropped) c=4
+    rectfill(x+2,y+2,x+4,y+4,c)
    else
    rectfill(x+2,y+2,x+4,y+4,2)
    end
@@ -1092,8 +1111,7 @@ function rope:draw(artificial_px,artificial_py)
  end
 
  for _,p in pairs(level._anch) do
-  local ax,ay=_anch_unpack(p)
-  local x,y=ax*8,ay*8
+  local x,y=p.ax*8,p.ay*8
   if (p.adx>0) x-=1
   if (p.ady>0) y-=1
 	 pset(x,y,11)
@@ -1107,6 +1125,10 @@ function rope:drag_dst(xy)
  self:drag(self.dst,xy)
 end
 
+function rope:drag_src(xy)
+ self:drag(self.src,xy)
+end
+
 function rope:drag(n1,axy)
  self:relax()
  self:_drag(n1,{axy[1],n1[2]})
@@ -1143,7 +1165,7 @@ function rope:relax()
  end
 end
 
-function rope:_check_pinch()
+function rope:_check_sane()
  if (not self:latched()) return true
  if (level:busy()) return true
 
@@ -1245,18 +1267,8 @@ function would_stick(anchor,xy0,xy1,xy2)
 end
 
 function rope:experience_anchor_moves(moves)
- local latch=self.latch
-
  self:_be_dragged_by(moves)
  self:_be_pushed_by(moves)
-
- if latch.rec then 
-  self:_drag(self.src,{
-   latch.rec.mx+0.5+latch.ax_offset,
-   latch.rec.my+0.5+latch.ay_offset
-  })
- end
-
  self:relax()
 end
 
@@ -1597,13 +1609,7 @@ function rope:_calc_push(
  local ops={}
  if (not an) return ops
 
- local ax0,ay0=_anch_unpack(a0)
- local ax1,ay1=_anch_unpack(a1)
-
- local anch=level:anchor_at(a0)
- if (not anch) return ops
-
- if ax0==ax1 then
+ if a0.x==a1.x then
   -- no far side applying pressure?
   local y0,y1=_mnmx(a0.y,a1.y)
   local my0,my1,smy=(y0+1)\8,(y1-1)\8,1
@@ -1613,13 +1619,13 @@ function rope:_calc_push(
   end
   
   local mx,dmx
-  if anch.adx==-1 and a0.x>an.x+7 then
+  if a0.x%8==0 and a0.x>an.x+7 then
    -- push left
-   mx=ax0-1
+   mx=(a0.x-1)\8
    dmx=-1
-  elseif anch.adx==1 and a0.x<an.x-7 then
+  elseif a0.x%8==7 and a0.x<an.x-7 then
    -- push right
-   mx=ax0
+   mx=(a0.x+1)\8
    dmx=1
   else
    return {}
@@ -1630,7 +1636,7 @@ function rope:_calc_push(
   end
  end
  
- if ay0==ay1 then
+ if a0.y==a1.y then
   local x0,x1=_mnmx(a0.x,a1.x)
   local mx0,mx1,smx=(x0+1)\8,(x1-1)\8,1
   if a0.x>a1.x then
@@ -1639,14 +1645,14 @@ function rope:_calc_push(
   end
   
   local my,dmy
-  if anch.ady==-1 and a0.y>an.y+6 then
+  if a0.y%8==0 and a0.y>an.y+6 then
    -- push up
-   my=ay0-1
+   my=(a0.y-1)\8
    dmy=-1
    
-  elseif anch.ady==1 and a0.y<an.y-6 then
+  elseif a0.y%8==7 and a0.y<an.y-6 then
    -- push down
-   my=ay0
+   my=(a0.y+1)\8
    dmy=1
   else
    return {}
@@ -1715,7 +1721,6 @@ end
 -->8
 --wrongbleeps
 wrongbleep={}
-add(modules,wrongbleep)
 add(real_modules,wrongbleep)
 function wrongbleep:init()
  self.duration=0
@@ -1723,12 +1728,8 @@ 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)
@@ -1747,23 +1748,36 @@ end
 -- text
 level_text={by_lvl={}}
 add(real_modules,level_text)
-level_text_raw=gsv[[
-0`9`11`press 🅾️ to mlem & unmlem,
-0`33`17`❎ to yoink]]
+level_text_raw={
+ "0`9`11`\f7\#0press 🅾️ to mlem & unmlem",
+ "0`33`17`\f7\#0❎ to yoink"
+}
 function level_text:init()
- for i=0,31 do self.by_lvl[i]={} end
+ for i=0,32 do level_text.by_lvl[i]={} end
 	for row in all(level_text_raw) do
-  if (row) add(self.by_lvl[row[1]],row)
+  if row then
+   lvlxys=split(row,"`")
+   add(level_text.by_lvl[lvlxys[1]],lvlxys)
+  end
 	end
 end
-function level_text:draw2()
- for xys in all(self.by_lvl[level.ix]) do
-  print(xys[4],xys[2],xys[3],7)
+function level_text:draw()
+ for xys in all(level_text.by_lvl[level.ix]) do
+  print(xys[4],xys[2],xys[3],6)
  end
 end
 
 -->8
 --hint system
+function rot13(s)
+ local sord = pack(ord(s,1,#s))
+ for i,c in ipairs(sord) do
+  if (inorder{65, c, 77} or inorder{97, c, 109}) sord[i]=c+13
+  if (inorder{78, c, 90} or inorder{110, c, 122}) sord[i]=c-13
+ end
+ return chr(unpack(sord))
+end
+
 --hint file format:
 -- each row is one hint.
 -- 4 or 5 columns
@@ -1774,10 +1788,8 @@ end
 -- [3] y coord
 -- [4] message line 1 (rot13)
 -- [5] message llne 2 (rot13)
--- [6] arrow  (semicolon separated list: each element is two comma-separated integers)
 -- row 5 can be omitted
 -- for a 1-line hint
--- row 6 can be omitted if there is no arrow
 --
 -- multiple hints for the same
 -- room are revealed in order
@@ -1786,29 +1798,20 @@ hints = {}
 add(real_modules,hints)
 
 function hints:init()
- local h = gsv[[0`42`57`🅾️ pULL`  ■
-0`42`73`❎, ❎ pULL``69,67;55,67
-1`35`33`⁘`   pULL`62,35;41,35
-1`79`82`pULL ■``100,94;100,88
-1`42`98`⁘`IGNORE`66,99;52,99;52,75;28,75;28,120
-2`75`65`   `⁘`86,67;76,67;76,71
-2`104`73` ■`pULL`81,75;86,75
-2`27`42`⁘``36,16;36,44;31,44
-3`51`106`■``52,97;52,104
-3`-1`-1```28,78;28,45
-3`-1`-1```65,35;83,35
-3`-1`-1```97,35;105,35
-24`-1`-1```41,51;47,51
-24`59`49`■
-24`-1`-1```75,62;75,51
-24`-1`-1```78,49;67,49
-24`-1`-1```36,62;36,51
-24`-1`-1```56,59;56,51
-24`67`17`■
-24`-1`-1```62,83;58,83
-]]
+ local h = gsv[[0`42`57`🅾️ yVPX`  ■
+0`42`73`❎, ❎ cHYY
+1`35`34`⁘ sVYY
+1`99`82`■ cHYY
+1`42`98`⁘`VTABER
+2`75`65`i <`⁘
+2`104`73` ■`cHYY
+2`27`42`⁘
+3`51`106`■ cHYY
+3`27`81`⁘ HAOYBPX ZR
+3`91`33`■ FGNAQ`  URER]]
  for rec in all(h) do
-  if(rec[6]) rec[6]=gsv(rec[6],";",",")
+  rec[4]=rot13(rec[4])
+  if(rec[5]) rec[5]=rot13(rec[5])
   local lh = self[rec[1]]
   if lh then
    add(lh,rec)
@@ -1820,39 +1823,22 @@ function hints:init()
  menuitem(2,"hide hints",function() level.hintlevel=0 end)
 end
 
+function shdprint(txt,x,y,c)
+ print(txt,x-1,y+1,1)
+ print(txt,x,y,c)
+end
+
 hintflicker=split"7,10,9,8,8,9,10,7"
 function hints:draw2()
  pal()
  local c=cycle(hintflicker)
 
- local function body()
  for i,h in ipairs(self[level.ix]) do
   if (i > level.hintlevel) return
-   local _,x,y,txt,txt2,arrow=unpack(h)
-
-   print(txt,x,y)
-   if (txt2) print(txt2,x,y+8)
-
-   if arrow then
-    line()
-    local x0,y0,x1,y1
-    for i=1,#arrow do
-     x0,y0,x1,y1=x1,y1,unpack(arrow[i])
-     line(x1,y1)
+  local _,x,y,txt,txt2=unpack(h)
+  shdprint(txt,x,y,c)
+  if (txt2) shdprint(txt2,x,y+8,c)
  end
-    local dir=atan2(x1-x0,y1-y0)
-    local function _ahead(d,r)
-     line(x1+r*sgn0(cos(dir+d)),y1+r*sgn0(sin(dir+d)))
-    end
-    _ahead(0.375,2) _ahead(0.625,2) _ahead(0,0)
-   end
-  end
- end
-
- color(7)
- camera(1,-1) pal(7,1) body()
- camera() pal(7,c) body()
- pal()
 end
 
 -->8
@@ -1868,67 +1854,19 @@ function debugmouse:init()
 end
 
 debugflicker=split"5,6,7,15,14,8,2,4,9,10,11,3,12,13"
-debugchs = split" ,□,x"
+debugchs = split" ,x, ,□"
 
 function debugmouse:draw3()
  if (stat(34) == 0) return
  pal(15,cycle(debugflicker,1.5))
- local x, y, c = stat(32), stat(33), debugchs[stat(34) & 0x3]
- if not c or c == " " then
-  spr(50,x,y)
- else
+ local x, y, c = stat(32), stat(33), cycle(debugchs,2)
+ if (c == " ") spr(50,x,y)
  print(c,x,y,15)
- end
- print(x..", "..y,
-       mid(0,x,97),
-       mid(0, y > 117 and y - 6 or y + 6, 117),
-       15)
+ local px, py = mid(0,x,89), mid(0, y > 111 and y - 12 or y + 6, 117)
+ print(fmt("(%v, %v)\n[%v, %v]",x,y,x\8,y\8),px,py,15)
  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()
- self.ready=true
-end
-
-function persist:read()
- 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)
-end
-
-function persist:wipe()
- self.ready=false
- for i=0,64 do
-  dset(i,0)
- end
- self:read()
- self.ready=true
-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__
 000030000000002200003000eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeff1ff1ff1fffffff1ffffff1fffffff1dddddddd111111110005000000000000
 003333300000332200333330eeffffffffffffffffffffeee5e555e55e555e5eff1ff1ffffffffffffffffffffffffffdddddddd111111110000500000000000
@@ -1995,69 +1933,69 @@ eeee0000cc04405500444400efeeee5e11111111e5eeeefeeeeeeeeeeeeeeeeeffffffffffffffff
 00880888880880888880880000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 00000000000000000000888888800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000030404040404040402140404040404050
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c0c000c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c0c000c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c0c000c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c0c000c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c0c000c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c0c000c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c000000000f300c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c00000e1e10000c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c00000000491b100c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c000040000000000c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0000000c0d0c0c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c000c0c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c000c0c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031c0c0c0c0c0c000c0c0c0c0c0c0c051
 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000032424242424242104242424242424252
-d0d0d0d0d0d0d0d0e3d0d0d0d0d0d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0
-d0d0d0d0d0d04100000041d0d0d0d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d0d0d0d0d0d04100000041d0d0d0d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-4141304040404040004040404050d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d300e1e1e1e1d1d100d1d1d1d151d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d00031000000c1f100c1f1c1f151d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d00031000400f100e1f124c1005141d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d000e10000000404f30400c100000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000212000000000000c0
-d00031000400e1e1e1e1e1f1005141d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000313000000000000c0
-d000310000000000000000000051d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-4100e1e1e1e1e1e1a4e1e1e1e151d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000c0
-4141324242424242004242424252d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d0d0d0d0d0d0d0410041d0d0d0d0d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d0d0d0d0d0d0d0410041d0d0d0d0d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d0d0d0d0d0d0d0410041d0d0d0d0d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c00000000000000000000000000000c0
-d0d0d0d0d0d0d0d021d0d0d0d0d0d0d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c021c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c021c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c100c0c000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c000c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c1002400c1c100c0c0c0c0c0c0c0c0c0c0c0c0c0c000c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c00000e300c00000c0c0c0c0c0c0c0c0c0c0c10000c000c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c000000000c000c0c0c0c0c0c0c0c0c0c000000000c100c100f3c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+000000000000000000000000000000001000340000c000c0c0c0c0c0c0c0c0c01000c034c1c1c1c100c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c000000000c100f3c0c0c0c0c0c0c0c0c00000000000000000c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000212000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000313000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0100000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0
 __label__
 77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
 77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
@@ -2208,22 +2146,22 @@ __map__
 0d0d0d0d0d0d0d0d0d080d0d0d0d0d0d0d0d230024242425141300000000150d0d0d134f1e00151414141400140d0d0d0d0d0d0d0d13000006240024070000150d2324240024242513000040441500140d0d0d0d0d0d0d0d0d080d0d0d0d0d0d0100000000000000062424242514140d0100001d1d483f230024242424242425
 0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d1400140d0d0d0d2324242424250d0d0d13000000000000000000140d0d0d0d0d0d0d0d23242425140014232424250d0d0d1400140d0d13000000001500120d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d1423242424243c250d0d0d0d0d0d0d0d14131f1f00000000140d0d0d0d0d0d
 0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d120d0d0d0d0d0d0d0d0d0d0d0d0d0d23242424251414141414140d0d0d0d0d0d0d0d0d0d0d0d0d010d0d0d0d0d0d0d0d0d010d0d0d232424242425140d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d23242424251414140d0d0d0d0d0d
-0d0d0d0d0d0d0d0d030404040404050d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d010d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d0d0d0d0d0d0d0d0d0d0d120d0d0d00000000000000000000000000000000
-0d03040404040405133d00001c00150d0d0d0d0d0d0d0d0d0304043e0404050d0d0d0d0d030404000404050d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d0d14030404040404041400140d0d00000000000000000000000000000000
-0d13001c1c004f0000421e1d1f00150d0d0d0d0d0d0d0d0d130000000000150d0d0d0d0317420000004816050d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d141413000000000000001e003f0d00000000000000000000000000000000
-0d13001c1c1d00150000001c000000010d03040404040405130000000000150d0d0d141300191b1d191b0015140d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d030417001d1d1d1d1d0015140d0d00000000000000000000000000000000
-0d13001f1f000015131e1e1f1d1d150d0d13460044004c15130000000000150d0d3d001e0042001f0048001e003f0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d130000001c1c421c1c00150d0d0d00000000000000000000000000000000
-0d13000000000015130000001c1c150d0d131d1d1e1d1d152324241d2424250d0d140023240700410006242500140d0d0d0d0d0d030404040404050d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d13001d1d1f1f001c1c00150d0d0d00000000000000000000000000000000
-0927271b1e1e0015130014001c1c150d0d131c3d001c1c000000001f040404050d1400000023243c2425000000140d0d0d0d0d0d130000001c000000000d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d13001c1c0000001c1c00150d0d0d00000000000000000000000000000000
-0d131c1c00000000000000001c1c150d0d131f1f1e1f1f1514141300280000150d14000000001f1f1f00000000140d0d0d141414130028001c4516050014140d00000000000000000000000000000000000000000000000000000000000000000d0d13001c1c001e001c1c00150d0d0d00000000000000000000000000000000
-0d131c1c0014001513001e1e1927270b0d1300004100001514141300000000010d144f47411400000014000000140d0d01000000000000001f0000150000001200000000000000000000000000000000000000000000000000000000000000000d0d13001c1c0000001c1c00150d0d0d00000000000000000000000000000000
-0d131c1c00000015130000000000150d0927271b001927270b031741280000150d14434b491400000014000000140d0d0d14141413002800000000151414140d00000000000000000000000000000000000000000000000000000000000000000d0d13001c1c001d1d1f1f00150d0d0d00000000000000000000000000000000
-0d131f1f1d1e1e151300001d1d00150d0d131f1c001c1c151f130000004900150d03040404040000000304040405140d0d0d0d0d13000000000006250d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d13001c1c481c1c000000150d0d0d00000000000000000000000000000000
-120000001c00000013001f1c1c00150d0d13001f001f1c0000131d1d000000150d1300000000000003170000000000120d0d0d0d232424242424250d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d1413001f1f1f1f1f000624250d0d0d00000000000000000000000000000000
-0d13001d1f1e4800004f001c1c00150d0d13000000001f1500232424242424250d13000000001d1d1d0000000015140d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0000000000000000000000000000000000000000000000000000000000000000010000000000000000001514140d0d0d00000000000000000000000000000000
-0d13001c00003f15232424242424250d0d1300000000001500140d0d0d0d0d0d0d130000000625031700000000150d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d14232424242424242425140d0d0d0d00000000000000000000000000000000
-0d232424242424250d0d0d0d0d0d0d0d0d2324242424242500140d0d0d0d0d0d0d130000062503170000000000150d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000
-0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d120d0d0d0d0d0d0d0d232424250d23242424242424250d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000
+0d0d0d0d0d0d0d0d030404040404050d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d010d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d03040404040405133d00001c00150d0d0d0d0d0d0d0d0d0304043e0404050d0d0d0d0d030404000404050d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d130000000000151300001d1f00150d0d0d0d0d0d0d0d0d150000000000150d0d0d0d0317420000004816050d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d13001d1d1e4f000000001c000000010d03040404040405150000000000150d0d0d141300191b1d191b0015140d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d13001f1f000015131e1e1f1d1d150d0d13460044004c15150000000000150d0d3d001e0042001f0048001e003f0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d13000000000015130000001c1c150d0d131d1d1e1d1d152324241d2424250d0d140023240700410006242500140d0d0d0d0d0d030404040404050d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0927271b1e1e0015130014001c1c150d0d131c3d001c1c000000001f040404050d1400000023243c2425000000140d0d0d0d0d0d130000001c000000000d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d131c1c00000000000000001c1c150d0d131f1f1e1f1f1514141300280000150d14000000001f1f1f00000000140d0d0d141414130028001c4516050014140d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d131c1c0014001513001e1e1927270b0d1300004100001514141300000000010d144f47411400000014000000140d0d01000000000000001f0000150000001200000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d131c1c00000015130000000000150d0927271b001927270b031741280000150d14434b491400000014000000140d0d0d14141413002800000000151414140d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d131f1f1d1e1e151300001d1d00150d0d131f1c001c1c151f130000004900150d03040404040000000304040405140d0d0d0d0d13000000000006250d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+120000001c000000004f1e1f1f00150d0d13001f001f1f0000131d1d000000150d1300000000000003170000000000120d0d0d0d232424242424250d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d13001d1f000015130000000000150d0d1300000000001500232424242424250d13000000001d1d1d0000000015140d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d13001c00003f15232424242424250d0d1300000000001500140d0d0d0d0d0d0d130000000625031700000000150d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d232424242424250d0d0d0d0d0d0d0d0d2324242424242500140d0d0d0d0d0d0d130000062503170000000000150d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d120d0d0d0d0d0d0d0d232424250d23242424242424250d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 __sfx__
 00110000250002500025030250302503000000230350000023030230302303023030230302303023030230302103021030210302103021030210300000000000177401774017740177311e7501e7501e7501e750
 00110000290202a0212a0202a0202a0202a02025030250052503025030250302503025030250302503025030250302503025030250302503225030230322504526030260302a040000002d0402d0402d0402d040