chameleonic/chameleonic.p8

pico-8 cartridge // http://www.pico-8.com
version 39
__lua__
-- setup
modules={}
real_modules={}

frame=0
function _init()
 _doall("init") end
function _update()
 frame+=1
 if (frame%1==0) _doall("update") end
function _draw()
 _doall("draw") end

mnames={}
function names(root)
 local n=mnames[root]
 if(n)return all(n)
 n={root.."0", root, root.."2", root.."3"}
 mnames[root]=n
 return all(n)
end

function _doall(x)
 for n in names(x) do
  for mod in all(modules) do
   local f=mod[n]
   if (f) f(mod)
  end
 end
end 

-- source: https://www.lexaloffle.com/bbs/?pid=78990
gaps=split"57,23,10,4,1"
--{701,301,132,57,23,10,4,1}
function shellsort(a)
 for gap in all(gaps) do
  for i=gap+1,#a do
   local x,j=a[i],i-gap
   while j>=1 and a[j].key>x.key do
    a[j+gap]=a[j]
    j-=gap
   end
   a[j+gap]=x
  end
 end
end

function linefill(ax,ay,bx,by,r,c)
 if(c) color(c)
 local dx,dy=bx-ax,by-ay
 -- avoid overflow
 -- credits: https://www.lexaloffle.com/bbs/?tid=28999
 local n,d=_mnmx(abs(dx),abs(dy)) 
 n/=d
 d*=sqrt(n*n+1)
 if(d<0.001) return
 local ca,sa=dx/d,-dy/d
   
 -- polygon points
 local spans={}
 local function calcxy(u,v) return ax+u*ca+v*sa,ay-u*sa+v*ca end
 local x0,y0=calcxy(0,r)
 for s in all{{0,-r},{d,-r},{d,r},{0,r}} do
  local x1,y1=calcxy(unpack(s))
  local _x1,_y1=x1,y1
  if(y0>y1) x0,y0,x1,y1=x1,y1,x0,y0
  local dx=(x1-x0)/(y1-y0)
  if(y0<0) x0-=y0*dx y0=-1
  local cy0=y0\1+1
  -- sub-pix shift
  x0+=(cy0-y0)*dx
  for y=y0\1+1,min(y1\1,127) do
   -- open span?
   local span=spans[y]
   if (span) rectfill(x0,y,span,y)
   spans[y]=x0
   x0+=dx
  end
  x0,y0=_x1,_y1
 end
end

function _apply(x,ts,a)
 local t=deli(ts,1)
 for k,v in pairs(t) do
  if (k!="update") x[k]=v 
 end

 if (t and t.update and not t.update(x,a)) add(ts,t,1)
end

function sgn0(x)
 return x!=0 and sgn(x) or 0
end

function _mnmx(x,y)
 if (x>y)return y,x
 return x,y
end


function _rast(
 xs,ys,x0,y0,x1,y1
)
 local function _add()
  local n=#xs
  if (n==0 or xs[n]!=x0 or ys[n]!=y0) add(xs,x0) add(ys,y0)
 end

 local dx,dy=abs(x1-x0),abs(y1-y0)
 local sx=-1
 local sy=-1
 if (x0<x1) sx=1
 if (y0<y1) sy=1
	
 local done=false,err
 if dx>dy then
  err=dx/2.0
  while x0!=x1 do
   _add()
   err-=dy
   if (err<0) y0+=sy err+=dx
   x0+=sx
  end
 else
  err=dy/2.0
  while y0!=y1 do
   _add()
   err-=dx
   if (err<0) x0+=sx err+=dy 
   y0+=sy
  end
 end
 _add()
end

-->8
-- input
kbd={}
add(real_modules,kbd)
function kbd:init()
 self.real=btn()
 self.state={btn=0}
end

function kbd:update()
 -- figure out what keys are _really_ pressed
 local now_real,was_real=btn(),self.real
 self.real=now_real

 -- add keys that are really pressed 
 -- if they weren't really pressed before
 -- (they may have been force-
 --  released by :release())
 local real_pressed=~was_real&now_real

 local state=self.state
 local now_down=state.btn&now_real|real_pressed
 local was_down=state.btn

 -- deduce pressed/released by changes in down
 state.btn,state.btnp,state.btnr=
  now_down,
  ~was_down&now_down,
  ~now_down&was_down
end

for _kbdi in all(split"btn,btnp,btnr") do
 kbd[_kbdi]=function(self,i,t) return 1<<i&self.state[_kbdi]!=0 end
end

function kbd:release(i)
 self.state.btn&=~(1<<i)
end

function tostring(any)
 if type(any)=="table" then
  local str = "{ "
  for k,v in pairs(any) do
      str=str..tostring(k).."->"..tostring(v).." "
  end
  return str.."}"
 end
 return tostr(any)
end

-->8
-- title screen
title={}
add(modules,title)

blinkcol=10
function title:draw()
 cls(0)
 -- this is right for 72x32
 spr(3,28,56,9,2)
 print("pyrex",32,73,7)
 print("[nyeogmi]",62,73,7)
 print("kistaro",32,79,7)
 local lvlstr = "⬅️ "..start_level.." ➡️"
 print(lvlstr,50,91,1)
 print(lvlstr,51,90,blinkcol) 
end

start_level=0
max_level=15

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)
end

-->8
--level behaviors
level={}
add(real_modules,level)

function level:init()
 level:reinit(start_level)
end

function level:reinit(n)
 self.ix=n
 self.todo={}
 self.bigx,self.bigy=n%8,n\8

 self:load_dynobjs()
 self:recollide()
 self:reanchor(true)
 self:spawn_exit()
end

function level:restart()
 self:reinit(self.ix)
end

function level:advance()
 self:reinit(self.ix+1)
end

pitpal = {[0]=1,[7]=0,[6]=1,[4]=1}
function level:draw()
 cls(1)
 pal(1,0)
 map(
  self.bigx*16,self.bigy*16,
  0,0,16,16,
  64 -- flag 6: visible
 )
 for _,pit in pairs(self._pits) do
  spr(pit.s,pit.px,pit.py)
  if pit.contents then
   pal(pitpal)
   palt(0,false)
   spr(pit.contents,pit.px,pit.py)
   pal()
   pal(1,0)
  end
 end
 for _,crate in pairs(self._crates) do
  spr(crate.s,crate.px,crate.py)
 end
 pal()
end

function level:busy()
 for _,crate in pairs(self._crates) do
  if (#crate.todo>0) return true 
 end
 return false
end

function level:update()
 _apply(self, self.todo)

 local remove={}
 for cix,crate in pairs(self._crates) do
  _apply(crate, crate.todo)

  if #crate.todo==0 then 
   local pit=self._pits[_mix(crate.mx,crate.my)]
   if pit and not pit.contents then
    add(remove,cix)
    crate.dead=true
    pit.contents=crate.s
   end
  end
 end
 for cix in all(remove) do
  self._crates[cix]=nil
 end
 if #remove>0 then
  self:recollide()
  self:reanchor()
 end
end

function level:load_dynobjs()
 self._crates={}
 self._pits={}

 local crate_id=1
 for mx=0,15,1 do
  for my=0,15,1 do
   local mxy=_mix(mx,my)
   local px,py=mx*8,my*8
   local s=self:_mget(mx,my)
   local def=self:_get_cratedef(s)
   if def then
    self._crates[mxy]={
     s=s,def=def,
     id=crate_id,
     mx=mx,my=my,
     px=px,py=py,
     todo={}
    }
    crate_id+=1
   end

   -- pit
   if (s==28) self._pits[mxy]={s=s,mx=mx,my=my,px=px,py=py}
  end
 end
end

function level:recollide()
 self._coll={}
 for mx=0,15 do
  for my=0,15 do
   local mxy=_mix(mx,my)
   self._coll[mxy]=
    fget(self:_mget(mx,my),7) or
    self._crates[mxy]!=nil
  end
 end
end

function level:reanchor()
 local anch_new={}
 for dxy in all{{-1,-1},{1,-1},{-1,1},{1,1}} do
  local dx,dy=unpack(dxy)
  assert(dx!=0 and dy!=0)
  for mx0=0,15 do
   for my0=0,15 do
    local mx1,my1=mx0+dx,my0+dy

    if (
     self:mcoll(mx0,my0) and not self:get_crate(mx0,my0) and
     not self:mcoll(mx0,my1) and
     not self:mcoll(mx1,my0) and
     not self:mcoll(mx1,my1)
    ) then
     local key="GEOM"..mx0..","..my0..","..dx..","..dy
     anch_new[key]= {
      ax=max(mx0,mx1),ay=max(my0,my1),adx=-dx,ady=-dy
     }
    end
   end
  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]={
    ax=max(mx0,mx1),ay=max(my0,my1),adx=-dx,ady=-dy
   }
  end
 end

 local anch_old=self._anch
 if (anch_old==nil) anch_old={}
 for _,old in pairs(anch_old) do
  old.dropped=true
 end

 for k,new in pairs(anch_new) do
  local old=anch_old[k]
  if old then
   anch_new[k]=old
   old.ax_old,old.ay_old,old.ax,old.ay,old.adx,old.ady=old.ax,old.ay,new.ax,new.ay,new.adx,new.ady
   old.dropped=nil
  end
 end
 self._anch=anch_new
 self._anch_keys={}
 for k,_ in pairs(self._anch) do
  add(self._anch_keys,{key=k})
 end
 shellsort(self._anch_keys)
 for point in self:anchor_points() do
  if (point.ax_old and player.rope) player.rope:be_pushed_by(point,point.ax_old,point.ay_old)
  point.ax_old,point.ay_old=nil,nil
 end

 if (player.rope) player.rope:relax()
end

function level:win_at(mx,my)
 return self._wins[_mix(mx,my)]
end

function level:anchor_points()
 keys=all(self._anch_keys)
 return function() 
  local k=keys()
  if (k==nil) return nil
  return self._anch[k.key]
 end
end

function level:get_open_pit(mx,my)
 local pit=self._pits[_mix(mx,my)]
 if (pit and pit.contents==nil) return pit
end

function level:spawn_exit()
 self._wins={}
 local spawned=false
 local spawn_at=function(x,y)
  if (self:_mget(x,y)!=1) return
  assert(not spawned,x..","..y) 
  spawned=true 
  player:reinit(x,y)
  player.orientx=-1
  if (x<8) player.orientx=1 
 end
 local win_at=function(x,y)
  if (self:_mget(x,y)!=18) return
  for nx=x-1,x+1 do
   for ny=y-1,y+1 do
    if nx<0 or ny<0 or nx>15 or ny>15 then
     self._wins[_mix(nx,ny)]=true
    end
   end
  end
 end
 for f in all{spawn_at,win_at} do
  for x=1,14 do f(x,0) f(x,15) end
  for y=0,15 do f(0,y) f(15,y) end
 end
 assert(spawned)
end

function level:mcoll(mx,my)
 return self._coll[_mix(mx,my)]!=false
end

function level:pcoll(px,py)
 return self:mcoll(px\8,py\8)
end

function level:get_crate(mx,my)
 return self._crates[_mix(mx,my)]
end

function level:_mget(mx,my)
 return mget(
  self.bigx*16+mx,
  self.bigy*16+my
 )
end

function _amix(ax,ay)
 return ax..","..ay
end

function _mix(mx,my)
  return mx..","..my
end

function level:_get_cratedef(s)
 if (s<64 or s>=80) return nil
 
 local s2=s-64
 return {
  up=s2&1!=0,
  right=s2&2!=0,
  down=s2&4!=0,
  left=s2&8!=0
 }
end

function level:get_latch(dx,dy,px,py)
 local mx,my=px\8,py\8
 local mxy=_mix(mx,my)
 
 local crate=self._crates[mxy]
 local dx1,dy1=-sgn0(dx),-sgn0(dy)

 if crate then
  if
   (crate.def.up and dy>0) or
   (crate.def.down and dy<0) or 
   (crate.def.left and dx>0) or
   (crate.def.right and dx<0)
  then
   return {
    el="crate",
    dx=dx1,dy=dy1,
    ax_offset=dx1*0.5,
    ay_offset=dy1*0.5,
    rec=crate
   }
  end
 end
 
	local m=self:_mget(mx,my)
	
	if
	 (m==60 and dy1<0) or
	 (m==61 and dx1>0) or
	 (m==62 and dy1>0) or 
	 (m==63 and dx1<0)
	then
	 return {
	  el="eyehook",
   dx=dx1,dy=dy1,
   ax_offset=dx1*0.5,
   ay_offset=dy1*0.5,
   rec={mx=mx,my=my,px=mx*8,py=my*8},
	 }
	end
end

function level:can_move(
 is_player,
 mx0,my0,dmx,dmy,exclude_src,exclude_dst
)
 local mx1,my1=mx0+dmx,my0+dmy
 if (is_player and self:win_at(mx1,my1)) return true 
 if (is_player and self:get_open_pit(mx1,my1)) return wrongbleep:adequately_warned()

 if (self:mcoll(mx1,my1) or player.x==mx1 and player.y==my1) return false

 if player.rope then
  local chk=false
  local w,h=1.6,0.2
  if (dmx==0) w,h=0.2,1.6

  if (dmy==-1) rectx,recty=0.4,-0.8
  if (dmy==1) rectx,recty=0.4,0.2
  if (dmx==-1) rectx,recty=-0.8,0.4
  if (dmx==1) rectx,recty=0.2,0.4

  if (player.rope:collide_mrect(mx0+rectx,my0+recty,w,h,exclude_src,exclude_dst)) return false
 end
 
 return true
end

function level:tug_crate(mx0,my0,dmx,dmy)
 local mxy0=_mix(mx0,my0)
 local existing=self._crates[mxy0]
 if (not existing) return
 
 self._crates[mxy0]=nil
 local mx1,my1=mx0+dmx,my0+dmy
 local px1,py1=mx1*8,my1*8
 existing.todo={
  {px=px1+dmx,py=py1+dmy,mx=mx1,my=my1,update=function()
   self:recollide()
   self:reanchor()
   return true
  end},
  {px=px1,py=py1}
 }

 self._crates[_mix(mx1,my1)]=existing
end

-->8
--player handling
player={}
add(real_modules,player)

function player:init()
 -- don't change this on reinit:
 -- it stays the same when the level is changed or reloaded
 self.vanish_frame=0 
end

function player:reinit(x,y)
 self.x,self.y=x,y
 self.px,self.py=0,0
 self.todo={}

 self.fall_frame=0
 
 self.orientx,self.orienty=-1,0
end

function player:update()
 -- this is a non-gameplay action that takes precedence over 
 -- all gameplay actions
 self:_vanish_if_requested()

 if not (#self.todo>0 or level:busy()) then
  if level:win_at(self.x,self.y) then
   level:advance()
   return
  end
  if level:get_open_pit(self.x,self.y) then
   self.todo={{update=self._fall}}
   return
  end

  if kbd:btn(0) then 
   self.orientx=-1
   self.orienty=0
  elseif kbd:btn(1) then
   self.orientx=1
   self.orienty=0
  elseif kbd:btn(2) then
   self.orienty=-1
  elseif kbd:btn(3) then
   self.orienty=1
  end

  if kbd:btn(4) then
   if kbd:btnp(4) and self.rope!=nil then 
    self.rope:destroy()
    kbd:release(4)
   end
   -- wait for user to release it
  else
   local function try_move(dx,dy,f)
    if (level:can_move(true,self.x,self.y,dx,dy,0,2)) self.todo=f return
    wrongbleep:bleep()
   end
   if kbd:btn(0) then 
    try_move(-1,0,{{orientx=-1,orienty=0,px=-2},{px=-7},{x=self.x-1,px=0}})
   elseif kbd:btn(1) then
    try_move(1,0,{{orientx=1,orienty=0,px=2},{px=7},{x=self.x+1,px=0}})
   elseif kbd:btn(2) then
    try_move(0,-1,{{orienty=-1,py=-2},{py=-7},{y=self.y-1,py=0}})
   elseif kbd:btn(3) then
    try_move(0,1,{{orienty=1,py=2},{py=7},{y=self.y+1,py=0}})
   elseif not self.rope and kbd:btnr(4) then
    local dx,dy=self.orientx,self.orienty
    if (dy!=0) dx=0

    local x,y=self.x,self.y
    while not level:mcoll(x,y) do x+=dx y+=dy end

    self.rope=rope:new(
     x+0.5-dx*0.5,y+0.5-dy*0.5,
     self.x+0.5,self.y+0.5,
     level:get_latch(dx,dy,x*8,y*8)
    )
    
    self.todo={{
     update=function()
      return self.rope==nil or self.rope:latched()
     end
    }}
   elseif kbd:btnp(5) then
    if (self.rope and not self.rope:tug()) wrongbleep:bleep(9)
   end
  end
 end

 _apply(self,self.todo)

 if self.rope then
  self.rope:update()
  if self.rope:done_reeling() then 
   local latch=self.rope.latch
   self.x=latch.rec.mx+latch.dx
   self.y=latch.rec.my+latch.dy
  end

  self.rope:drag_dst(
   self.x+self.px/8+0.5,
   self.y+self.py/8+0.5
  )

  local tdx,tdy=self.rope:tug_orientxy()
  if (tdx) self.orientx=tdx
  if (tdy) self.orienty=tdy

  if (self.rope:done()) self.rope=nil
 end
end

function player:_vanish_if_requested() 
 if kbd:btn(5) then
  self.vanish_frame+=1

  if (self.fall_frame>0 or self.vanish_frame>20) then
   self.rope=nil
   level:restart()
   kbd:release(5)
   self.vanish_frame=20
  end
 else
  self.vanish_frame-=1
 end

 self.vanish_frame=max(self.vanish_frame,0)
end

function player:_fall()
 if (self.fall_frame<10) self.fall_frame+=1
end

function player:draw()
 local px=self.x*8+self.px+wrongbleep:vibrate()
 local py=self.y*8+self.py+wrongbleep:vibrate()

 local head=1-self.orienty

 local vanish_level=max((self.vanish_frame-4)/16,0)
 local invis_level=max(self.fall_frame/10,4*(vanish_level-0.75))
 if (invis_level>=1.0) return

 --[[
 local HEAD=14--3
 local BODY=12--12
 local TAIL=14--14
 local IRIS=7--9
 local PUPIL=0--0
 ]]

  -- in order: head,body,iris,pupil,body again,tail
 local palette=split"-1,14,14,12,12,-1,-1,-1,7,0,-1,12,14,14,14"
 local function setpal()
  --[[
   -- head
   nil,14,14,
   --body
   [2]=HEAD,
   [3]=HEAD,
   [4]=BODY,
   [5]=BODY,
   [9]=IRIS,
   [10]=PUPIL,
   [12]=BODY,
   [13]=TAIL,
   [14]=TAIL,
   [15]=TAIL,
  ]]
  pal(palette)

  -- vanish colors
  local vanish=split"13,15,14,5,4,12,2,3,9,10"
  for i,ilc in ipairs(vanish) do
   if (vanish_level>i/#vanish) pal(ilc,1)
  end

  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
 if (self.orientx==1) rx+=6

 if self.rope then
  local rx_adj,ry_adj=self.rope:affected_src_xy(rx,ry)
  if rx_adj!=nil then
   local drx,dry=rx_adj-rx,ry_adj-ry
   rx,ry=rx+drx,ry+dry
   px,py=px+drx,py+dry
  end
 end

 if self.orientx==-1 then
  setpal()
  spr(16,px+6,py-2,1,1)
  spr(17,px+1,py,1,1)
  if (self.rope and invis_level<=0.25) pal() self.rope:draw(self.x*8+self.px+1,self.y*8+self.py+2) setpal()
  spr(head,px-3,py-3,1,1)
 else
  setpal()
  spr(16,px-6,py-2,1,1,true)
  spr(17,px-1,py,1,1,true)
  if (self.rope and invis_level<=0.25) pal() self.rope:draw(self.x*8+self.px+7,self.y*8+self.py+2) setpal()
  spr(head,px+3,py-3,1,1,true)
 end
 pal()

end
-->8
-- rope physics
rope={}
rope.__index=rope

function rope:new(
 src_ax,src_ay,dst_ax,dst_ay,latch
)
 local r={
  id=0,
  anchors={
   {ax=src_ax,ay=src_ay,prev=nil,next=nil},
   {ax=dst_ax,ay=dst_ay,prev=nil,next=nil}
  },
  state={name="cast",frame=0},
  latch=latch,
 }
 r.src=r.anchors[1]
 r.dst=r.anchors[2]
 r.src.next=r.dst
 r.dst.prev=r.src
 setmetatable(r,rope)
 return r
end

function rope:latched()
 return self.state.name=="latched"
end

function rope:done()
 return self.state.name=="done"
end

function rope:done_reeling()
 return self.state.name=="done" and self.state.reelin
end

function rope:update()
 if self.state.name=="cast" then
  self.state.frame+=1
  if (self.state.frame>=3) self.state={name="latched"}

 elseif self.state.name=="latched" then
  if (self.latch==nil) wrongbleep:bleep(5) self:destroy() return

  if 
   self.latch!=nil and
   self.latch.rec!=nil 
  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_sane()) self:destroy()

 elseif self.state.name=="destroy" then -- destroy
  self.state.frame+=1
  if (self.state.frame>=5) self.state={name="done",reelin=self.state.reelin}
 else 
  -- done state
 end
end

function rope:destroy(reelin)
 if (self.state.name=="destroy" or self.state.name=="done") return
 self.state={name="destroy",frame=0,reelin=reelin}
end

function rope:affected_src_xy(artificial_px,artificial_py)
 -- this is the loop from :draw but simplified
 if (not self.state.reelin) return 

 perc_to_show=(1.0-self.state.frame/8)^2
 local points=self:_anchors_simplified()
 points[#points]={x=artificial_px,y=artificial_py}

 local len=0
 for i=1,#points-1 do len+=distance(points[i],points[i+1]) end
 local len_to_show=perc_to_show*len

 local len_cumulative=0
 for i=1,#points-1 do
  local src=points[i]
  local dst=points[i+1]

  local x,y=dst.x,dst.y
  local dx,dy=src.x-x,src.y-y

  local len_here=len_to_show-len_cumulative
  local dist_base=distance_dxy(dx,dy)
  len_cumulative+=dist_base 

  if len_here>0 and dist_base>0 then
   local coef=min(len_here/dist_base,1.0)

   return x+dx-dx*coef,y+dy-dy*coef
  end
 end

 return points[1]
end

function rope:draw(artificial_px,artificial_py)
 local points,highlight=self:_tug(true)
 if (self.state.name=="done") return
 local perc_to_show=1.0
 local from_end=false
 if (self.state.name=="cast") perc_to_show=self.state.frame/2
 if (self.state.name=="destroy") perc_to_show=(1.0-self.state.frame/8)^2
 if (self.state.reelin) from_end=true

 points[#points]={x=artificial_px,y=artificial_py}

 local len=0
 for i=1,#points-1 do
  len+=distance(points[i],points[i+1])
 end
 local len_to_show=perc_to_show*len

 local len_cumulative=0
 local ia,iz,istep=#points-1,1,-1
 if (from_end) ia,iz,istep=1,#points-1,1
 for i=ia,iz,istep do
  local src=points[i]
  local dst=points[i+1]

  local x,y=dst.x,dst.y
  local dx,dy=src.x-x,src.y-y

  local len_here=len_to_show-len_cumulative
  local dist_base=distance_dxy(dx,dy)
  len_cumulative+=dist_base 

  if len_here>0 and dist_base>0 then
   local coef=min(len_here/dist_base,1.0)

   if from_end then
    x,y=x+dx-dx*coef,y+dy-dy*coef
    dx,dy=dx*coef,dy*coef
   else
    dx,dy=dx*coef,dy*coef
   end

   local color=8
   if (highlight==i) color=12

   linefill(x,y,x+0.25*dx,y+0.25*dy,1.0,color)
   linefill(x+0.25*dx,y+0.25*dy,x+1*dx,y+1*dy,0.5,color)
   linefill(x+0.9*dx,y+0.9*dy,x+dx,y+dy,1.0,color)
   circfill(x+dx+0.5,y+dy+0.5,1.0,color)
  end
 end

 -- draw latch
 if self.latch!=nil and self.latch.rec and (perc_to_show>=1.0 or from_end) then
  local x,y=self.latch.rec.px,self.latch.rec.py
  local ldx,ldy=self.latch.dx,self.latch.dy
  local color=8
  if (highlight==0) color=12
  if self.latch.dx==-1 and self.latch.dy==0 then
   rectfill(x,y+3,x+2,y+4,color)
  elseif self.latch.dx==1 and self.latch.dy==0 then
   rectfill(x+5,y+3,x+7,y+4,color)
  elseif self.latch.dx==0 and self.latch.dy==-1 then
   rectfill(x+3,y,x+4,y+2,color)
  elseif self.latch.dx==0 and self.latch.dy==1 then
   rectfill(x+3,y+5,x+4,y+7,color)
  end
 end

 -- debug
 local n1=self.src
 local sy=0
 while true do
  if (n1==nil) break
  local x=n1.ax*8
  local y=n1.ay*8
  if n1.associated_with then
   if (n1.associated_with.adx>0) x-=1
   if (n1.associated_with.ady>0) y-=1
  end
  rectfill(x-1,y-1,x+1,y+1,12)
  print("ax="..n1.ax..",ay="..n1.ay,0,sy)
  sy+=7

  local n0=n1.prev
  local n2=n1.next
  if n0!=nil and n2!=nil then
   if n1.associated_with then
    local _,_,_,adx,ady=would_stick(n0.ax,n0.ay,n1.associated_with,n2.ax,n2.ay)
    assert(adx==-1 or adx==0 or adx==1)
    assert(ady==-1 or ady==0 or ady==1)
    --assert(not (adx==0 and ady==0))

    local c=3
    if (n1.associated_with.dropped) c=4
    rectfill(x+2,y+2,x+4,y+4,c)
    pset(x+adx*2,y,9)
    pset(x,y+ady*2,9)
   else
   rectfill(x+2,y+2,x+4,y+4,2)
   end
  else
   rectfill(x+2,y+2,x+4,y+4,4)
  end

  n1=n1.next
 end

 for _,p in pairs(level._anch) do
  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)
	 pset(x+p.adx,y,11)
	 pset(x,y+p.ady,11)
	end
end

function rope:drag_dst(x,y)
 self:drag(self.dst,x,y)
end

function rope:drag_src(x,y)
 self:drag(self.src,x,y)
end

function rope:drag(n1,ax_new,ay_new)
 self:relax()
 self:_drag(n1,ax_new,n1.ay)
 self:_drag(n1,ax_new,ay_new)
 self:relax()
end

function rope:relax()
 local n0=self.src
 while true do
  local n1=n0.next
  if (n1==nil) break
  local n2=n1.next

  if n0.ax==n1.ax and n0.ay==n1.ay then 
   n0.next=n2 
   if (n2!=nil) n2.prev=n0
  else
   n0=n0.next
  end
 end

 local n0=self.src
 while true do
  if (n0==nil) return
  local n1=n0.next
  if (n1==nil) return
  local n2=n1.next
  if (n2==nil) return

  if n1.associated_with!=nil then

   local x0,y0=n0.ax,n0.ay
   local x1,y1=n1.ax,n1.ay
   local x2,y2=n2.ax,n2.ay

   if x1!=n1.associated_with.ax or y1!=n1.associated_with.ay then
    -- printh("dragging home: "..tostring{n1.ax,n1.ay}.."->"..tostring(n1.associated_with))
    self:_drag(n1,n1.associated_with.ax,n1.associated_with.ay)
   end

   local would,x1_new,y1_new=would_stick(x0,y0,n1.associated_with,x2,y2)
   if not would and not (n1.ax==x1_new and n1.ay==y1_new) then
    -- printh("relaxing: "..tostring(n0.associated_with).."->"..tostring(n1.associated_with).."->"..tostring(n2.associated_with))
    self:_drag(n1,x1_new,y1_new)
    n0=n1.prev
    n2=n1.next
    n0.next=n2
    n2.prev=n0
    n1.next=nil
    n1.prev=nil
   else n0=n0.next end
  else n0=n0.next end
 end
end

function rope:_check_sane()
 if (not self:latched()) return true
 if (level:busy()) return true

 local n0=self.src

 local qxs,qys={},{}
 while true do 
  local n1=n0.next
  if (n1==nil) break 

  _rast(qxs,qys,flr(n0.ax*2),flr(n0.ay*2),flr(n1.ax*2),flr(n1.ay*2)) 
  n0=n1
 end

 local function _possible_tiles(qx,qy)
  local mx0=(qx-1)\2
  local mx1=qx\2
  local my0=(qy-1)\2
  local my1=qy\2

  local poss={}
  for mx=mx0,mx1 do
   for my=my0,my1 do
    add(poss,{mx=mx,my=my})
   end
  end
  return poss
 end
 local function _blocked(qx,qy)
  for i in all(_possible_tiles(qx,qy)) do
   if (not level:mcoll(i.mx,i.my)) return false
  end
  return true
 end

 -- find cases where i move through an impassable zone
 for i=1,#qxs do
  if (_blocked(qxs[i],qys[i])) return false
 end

 -- find cases where i am cut off diagonally
 for i=3,#qxs do
  local qx1,qy1=qxs[i-1],qys[i-1]
  if qx1%2==0 and qy1%2==0 then
   local ok=false
   for m0 in all(_possible_tiles(qxs[i-2],qys[i-2])) do
    for m2 in all(_possible_tiles(qxs[i],qys[i])) do
     local mx0,my0=m0.mx,m0.my
     local mx2,my2=m2.mx,m2.my
     if not (level:mcoll(mx0,my0) or level:mcoll(mx2,my2)) then
      local dmx,dmy=abs(mx2-mx0),abs(my2-my0)

      if dmx==1 and dmy==1 and level:mcoll(mx0,my2) and level:mcoll(mx2,my0) then
      else
       --printh("ok! "..tostring({qxs[i-2],qys[i-2]})..tostring({qxs[i],qys[i]})..tostring(m0)..tostring(m2))
       ok=true
      end
     end
    end
   end

   if (not ok) return false
  end
 end
 return true
end

function would_stick(x0,y0,anchor,x2,y2)
 local x1,y1=anchor.ax,anchor.ay

 local dx=x2-x0
 local dy=y2-y0

 -- there is no reason for an acute angle to stick around in this world
 --[[
 local ang0=atan2(x2-x1,y2-y1)
 local ang2=atan2(x0-x1,y0-y1)
 local diff=abs((ang0-ang2 + 0.5)%1-0.5)
 if (diff<0.25) return false,x0,y0,0,0
 ]]--

 local adx,ady
 local x1_new,y1_new
 if abs(dx)>abs(dy) then
  if (x0>x2) dx,x0,y0,x2,y2=-dx,x2,y2,x0,y0
  local dprop=(x1-x0)/dx
  x1_new,y1_new=x1,y0+dprop*(y2-y0)
  ady=sgn0(y1_new-y1)
  adx=0
  if (y0>y2) adx=ady
  if (y0<y2) adx=-ady
 else
  if (y0>y2) dy,x0,y0,x2,y2=-dy,x2,y2,x0,y0
  local dprop=(y1-y0)/dy
  x1_new,y1_new=x0+dprop*(x2-x0),y1
  adx=sgn0(x1_new-x1)
  ady=0
  if (x0>x2) ady=adx
  if (x0<x2) ady=-adx
 end

 local wouldnt=anchor.dropped or (anchor.adx!=adx or anchor.ady!=ady)

 return not wouldnt,x1_new,y1_new,adx,ady
end

function rope:be_pushed_by(anchor,ax_old,ay_old)
 local n0=self.src
 local ax_new,ay_new=anchor.ax,anchor.ay
 while true do
  n1=n0.next
  if (n1==nil) return

  local nx0,ny0=n0.ax,n0.ay
  local nx1,ny1=n1.ax,n1.ay

  if
   (ax_new==ax_old and nx0<=anchor.ax and anchor.ax<=nx1) and 
   (ay_new==ay_old and ny0<=anchor.ay and anchor.ay<=ny1) and 
   not (anchor.ax==nx0 and anchor.ay==ny0) and
   not (anchor.ax==nx1 and anchor.ay==ny1) and

   (_which_side(ax_old,ay_old,nx0,ny0,nx1,ny1)!= 
    _which_side(ax_new,ay_new,nx0,ny0,nx1,ny1) 
   ) and would_stick(nx0,ny0,anchor,nx1,ny1)
  then
   local nx05,ny05
   if ax_new==ax_old then
    nx05=anchor.ax
    ny05=ny0+(nx05-nx0)/(nx1-nx0) * (ny1-ny0)
    --printh("found (x): "..tostring({nx05,ny05}))
   elseif ay_new==ay_old then
    ny05=anchor.ay
    nx05=nx0+(ny05-ny0)/(ny1-ny0) * (nx1-nx0)
    --printh("found (y): "..tostring({nx05,ny05}))
   else
    assert(false,"wtf?")
   end

   local n05={ax=nx05,ay=ny05,associated_with=anchor,prev=n0,next=n1}
   --printh("adding: "..tostring({nx05,ny05,anchor}))
   n0.next=n05
   n1.prev=n05
   self:_drag(n05,anchor.ax,anchor.ay)
   -- printh("dragged: "..tostring({n05.ax,n05.ay,anchor}))
   -- printh("local: "..tostring(n0.associated_with).."->"..tostring(n05.associated_with).."->"..tostring(n1.associated_with))
  else
   n0=n0.next
  end
 end
end

function rope:_drag(n1,ax1_new,ay1_new)
 local function _sweep_radar(ax_pivot,ay_pivot,ax_far0,ay_far0,ax_far1,ay_far1)
  if (ax_far0==ax_far1 and ay_far0==ay_far1) return nil

  if ax_far0==ax_far1 then
   local ax_far=ax_far0
   local ax0,ax1=_mnmx(ax_pivot,ax_far)

   ay_far_old=ay_far0
   for ay_far_new in _stepfrom(ay_far0,ay_far1) do
    for anchor in level:anchor_points() do
     if 
      not (anchor.ax==ax_pivot and anchor.ay==ay_pivot) and
      -- not (anchor.ax==ax_far0 and anchor.ay==ay_far0) and
      not (anchor.ax==ax_far1 and anchor.ay==ay_far1) and
      (ax0<=anchor.ax and anchor.ax<=ax1) and 
      would_stick(ax_pivot,ay_pivot,anchor,ax_far,ay_far_new) and
      (
        _which_side(anchor.ax,anchor.ay,ax_pivot,ay_pivot,ax_far,ay_far_old) !=
        _which_side(anchor.ax,anchor.ay,ax_pivot,ay_pivot,ax_far,ay_far_new)
      )
     then
      return anchor
     end
    end
    ay_far_old=ay_far_new
   end
  elseif ay_far0==ay_far1 then
   local ay_far=ay_far0
   local ay0,ay1=_mnmx(ay_pivot,ay_far)

   ax_far_old=ax_far0
   for ax_far_new in _stepfrom(ax_far0,ax_far1) do
    for anchor in level:anchor_points() do
     if 
      not (anchor.ax==ax_pivot and anchor.ay==ay_pivot) and
      -- not (anchor.ax==ax_far0 and anchor.ay==ay_far0) and
      not (anchor.ax==ax_far1 and anchor.ay==ay_far1) and
      would_stick(ax_pivot,ay_pivot,anchor,ax_far_new,ay_far) and
      (ay0<=anchor.ay and anchor.ay<=ay1) and 
      (
        _which_side(anchor.ax,anchor.ay,ax_pivot,ay_pivot,ax_far_old,ay_far) !=
        _which_side(anchor.ax,anchor.ay,ax_pivot,ay_pivot,ax_far_new,ay_far)
      )
     then
      return anchor
     end
    end
    ax_far_old=ax_far_new
   end
  end
 end

 local ax1_old,ay1_old=n1.ax,n1.ay
 n1.ax=ax1_new
 n1.ay=ay1_new

 local n0=n1.prev
 while true do
  if (n0==nil) break
  local anch=_sweep_radar(n0.ax,n0.ay,ax1_old,ay1_old,ax1_new,ay1_new)
  if (anch==nil) break
  local n05={ax=anch.ax,ay=anch.ay,associated_with=anch,prev=n0,next=n1}
  -- printh("creating pre: "..tostring(n0.associated_with).."->"..tostring(n05.associated_with).."->"..tostring(n1.associated_with))
  n0.next=n05
  n1.prev=n05
  n0=n05
 end

 local n2=n1.next
 while true do
  if (n2==nil) break
  local anch=_sweep_radar(n2.ax,n2.ay,ax1_old,ay1_old,ax1_new,ay1_new)
  if (anch==nil) break
  local n15={ax=anch.ax,ay=anch.ay,associated_with=anch,prev=n1,next=n2}
  -- printh("creating post: "..tostring(n1.associated_with).."->"..tostring(n15.associated_with).."->"..tostring(n2.associated_with))
  n1.next=n15
  n2.prev=n15
  n2=n15
 end
end

function _stepfrom(x0,x1)
 local done=false
 if x0==x1 then
  return function() 
   if (done) return nil
   done=true return x0
  end
 end

 local mul=0.5
 x0*=2
 x1*=2
 if (x0>x1) x0,x1,mul=-x0,-x1,-mul
 local i=flr(x0)
 local top=flr(x1)
 return function()
  if (done) return nil
  i+=1
  if i>top then 
   done = true
   if (x1!=flr(x1)) return mul*x1
   return nil
  end
  return mul*i
 end
end

function _which_side(x,y,x0,y0,x1,y1)
 return sgn0((x1-x0)*(y-y0) - (y1-y0)*(x-x0))
end

function distance_dxy(dx,dy)
 return sqrt(dx*dx+dy*dy)
end

function distance(p1,p2)
 local dx=p2.x-p1.x
 local dy=p2.y-p1.y
 return sqrt(dx*dx+dy*dy)
end

function rope:collide_mrect(mx0,my0,mw,mh,exclude_src,exclude_dst)
 local mx1,my1=mx0+mw,my0+mh
 local n0=self.src

 while true do
  local n1=n0.next
  if (n1==nil) return false

  local nd=n0
  for i=1,exclude_dst do 
   nd=nd.next
   if (nd==nil) return false
  end

  local x1,y1,x2,y2=n0.ax,n0.ay,n1.ax,n1.ay
  local function _line_line(x3,y3,x4,y4)
   local denom=((y4-y3)*(x2-x1)-(x4-x3)*(y2-y1))

   local ua=
    ((x4-x3)*(y1-y3)-(y4-y3)*(x1-x3))/denom
   if (ua<0 or ua>1) return false

   local ub=
    ((x2-x1)*(y1-y3)-(y2-y1)*(x1-x3))/denom
   if (ub<0 or ub>1) return false

   return true
  end


  if exclude_src<=0 then
   if (_line_line(mx0,my0,mx1,my0) or _line_line(mx0,my0,mx0,my1) or _line_line(mx0,my1,mx1,my1) or _line_line(mx1,my0,mx1,my1)) return true
  end
  exclude_src-=1
  n0=n1
 end
end

-->8
-- moved here because it's complicated

function rope:tug_orientxy()
 local a1=self.dst
 local a0=self.dst.prev
 local dx=a0.ax-a1.ax
 local tdx=nil
 if (dx>3/8) tdx=1
 if (dx<-3/8) tdx=-1

 local dy=a0.ay-a1.ay
 local tdy=nil
 if abs(dy)>abs(dx)/2 then 
  if (dy>3/8) tdy=1
  if (dy<-3/8) tdy=-1
 end
 return tdx,tdy
end

function rope:tug()
 if (not self:latched()) return
 return self:_tug()
end

function rope:_tug(hypothetically)
 local ancs=self:_anchors_simplified()
 local touched={}

 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_to_do,corners={}
  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])
   ops_to_do=ops_after_trash
  end

  local ops=ops_to_do

  if #ops>0 then
   if (hypothetically) return ancs,i-1

   local dmx,dmy=ops[1].dmx,ops[1].dmy
   for o in all(ops) do
    level:tug_crate(o.mx,o.my,o.dmx,o.dmy)
   end
   return true
  end
 end

 local latch=self.latch
 if latch!=nil and latch.el=="eyehook" then
  if (hypothetically) return ancs,0
  player.todo={{
   update=function(s) 
    if s.rope==nil or s.rope:done() then
     return true
    end
   end
  }}
  self:destroy(true)
  return true
 end
 if latch!=nil and latch.el=="crate" then
  local dmx,dmy=
   sgn0(latch.dx),
   sgn0(latch.dy)
  local obj_anc=ancs[1]
  local pull_anc=ancs[2]

  local pull_dx=pull_anc.x-obj_anc.x
  local pull_dy=pull_anc.y-obj_anc.y
  
  local mx0=latch.rec.mx
  local my0=latch.rec.my
  
  local mxa=(pull_anc.x+dmx)\8
  local mya=(pull_anc.y+dmy)\8
  
  local invalid_move=false
  if 
   (dmx!=0 and sgn0(pull_dx)!=dmx) or
   (dmy!=0 and sgn0(pull_dy)!=dmy) or

   sgn0(mx0-mxa)!=
   sgn0(mx0+dmx-mxa) or
   
   sgn0(my0-mya)!=
   sgn0(my0+dmy-mya)
  then
   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

   level:tug_crate(mx0,my0,dmx,dmy) 
   return true
  end
 end

 if (hypothetically) return ancs,nil
 return false
end

function rope:_calc_push(
 an,a0,a1,af
)
 local ops={}
 if (an==nil) return ops

 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
  if a0.y>a1.y then
   my0,my1=my1,my0
   smy=-smy
  end
  
  local mx,dmx
  if a0.x%8==0 and a0.x>an.x+7 then
   -- push left
   mx=(a0.x-1)\8
   dmx=-1
  elseif a0.x%8==7 and a0.x<an.x-7 then
   -- push right
   mx=(a0.x+1)\8
   dmx=1
  else
   return {}
  end
  
  for my=my0,my1,smy do
   add(ops,{mx=mx,my=my,dmx=dmx,dmy=0})
  end
 end
 
 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
   mx0,mx1=mx1,mx0
   smx=-smx
  end
  
  local my,dmy
  if a0.y%8==0 and a0.y>an.y+6 then
   -- push up
   my=(a0.y-1)\8
   dmy=-1
   
  elseif a0.y%8==7 and a0.y<an.y-6 then
   -- push down
   my=(a0.y+1)\8
   dmy=1
  else
   return {}
  end
  
  for mx=mx0,mx1,smx do
   add(ops,{mx=mx,my=my,dmx=0,dmy=dmy})
  end
 end

 local ops2={}
 for o in all(ops) do
  if not level:mcoll(o.mx,o.my) then
   -- great!
  else
   local crate=level:get_crate(o.mx,o.my)
   if crate==nil then
    break
   else
    if not level:can_move(false,o.mx,o.my,o.dmx,o.dmy,0,0) then
     break
    end
   end
   add(ops2,o)
  end
 end
 return ops2
end

function rope:_anchors_simplified()
 -- todo: cache this
 local points={}
 local _slope = function(p0,p1)
  return atan2(p1.y-p0.y,p1.x-p0.x)
 end
 a=self.src
 while a!=nil do
  local point={
   x=flr(a.ax*8+0.5),y=flr(a.ay*8+0.5),
   ax=a.ax,ay=a.ay
  }
  local aw=a.associated_with
  local l=self.latch
  if aw then
   if (aw.adx==1) point.x-=1
   if (aw.ady==1) point.y-=1
  elseif a.prev==nil and l then
   if (l.ax_offset<0) point.x-=1
   if (l.ay_offset<0) point.y-=1
  end

  local p0,p1=points[#points-1],points[#points]
  if p0==nil then
   add(points,point)
  elseif _slope(p0,p1)==_slope(p1,point) then  -- epsilon?
   points[#points]=point
  else
   add(points,point)
  end
  a=a.next
 end
 return points
end

-->8
--wrongbleeps
wrongbleep={}
add(real_modules,wrongbleep)
function wrongbleep:init()
 self.duration=0
 self.continuous=0
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
 self.duration=max(self.duration-1,-4)
end
function wrongbleep:bleep(duration)
 self.duration+=duration or 2
end
function wrongbleep:vibrate(duration)
 if (self.continuous<10) return 0
 return (rnd()*2-1)*min(self.continuous/10,2)
end
function wrongbleep:adequately_warned(duration)
 return self.continuous>45
end


-->8
-- text
level_text={by_lvl={}}
add(real_modules,level_text)
level_text_raw={
 "9`9`11`\f7\#0press 🅾️ to mlem & unmlem",
 "9`33`17`\f7\#0❎ to yoink"
}
function level_text:init()
 for i=0,32 do level_text.by_lvl[i]={} end
	for row in all(level_text_raw) do
  if row then
   lvlxys=split(row,"`")
   add(level_text.by_lvl[lvlxys[1]],lvlxys)
  end
	end
end
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
__gfx__
000030000000002200003000000cc0cc0cccccccccccccccccccccccccccccccc0bb0000000000000000000000000000dddddddd000000000005000000000000
003333300000332200333330000cc0cc0000cc0000000000000000000cc0000000bb0bb0bbbb0bbbbb0bbbbb0bbb0000dddddddd000000000000500000000000
099333990039932009333339000cc0cc0cc0cc0cc0cccccccc0ccccc0cc0ccccc0bb0bb000bb0000bb0bb0bb0bb0b000dddddddd000000000000000000000000
09a333a9033a932009333339000cc0cc0cc0cc0cc0cc0cc0cc0000cc0cc0cc0cc0bb0bb0bb000bbbbb0bbb000bb0b000dddddddd000000005005005000000000
023333323333320000222220000cc0cc0cc0cc0cc0cc0cc0cc0ccccc0cc0ccccc0bb0bb0bbbb0bbbbb0bb0bb0bbbb000dddddddd000000000500500500000000
002222200000220000222220000cc0cc0cc0000cc0cc0cc0cc0cc0cc0cc0cc0000bb0000000000000000000000000000dddddddd000000000000000000000000
000222c002222c0000022200000ccccc0ccccc0cc0cc0cc0cc0ccccc0cc0ccccc0bbbbbbbbbbbbbbbbbbbbbbbbbbb000dddddddd000000000005000000000000
00000cc00000cc0000000cc0000000000000000000000000000000000000000000000000000000000000000000000000dddddddd000000000000500000000000
0000ff00000000000000000088888888888888888888880aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa11111111000000000000000000000000
000f00f0000000000aa00aa00088000000088000000000000000000000000aa00000000000000000aa0000000000000011111111000000000000000000000000
00d0000f000000000aaaaaa000880888880880888880880aaa00aaa0aaaa0aa0aaaaa0aa0a0aaaa0aa0aa0aaaaa0aaa011111111000000000000000000000000
00d0d00f00c040500aaaaaa000880880880880000880880aa0a0aa00aa000aa0aa0aa0aa0a0aa000aa0aa0aa0aa0aa0a11111111000000000000000000000000
00dd00ee00c445500099990000880880880880888880880aa0a0aa0000aa0aa0aaa000aa0a0aa000aa0aa0aa0aa0aa0a11111111000000000000000000000000
00000ee00c44455500aaaa0000880880880880880880880aaaa0aaa0aaaa0aa0aa0aa0aaaa0aaaa0aa0aa0aaaaa0aa0a11111111000000000000000000000000
00eeee000c004005000aa00000880888880880888880880000000000000000000000000000000000000000000000000011111111000000000000000000000000
eeee0000cc0440550044440000000000000000000000888888800000000000000000000000000000000000000000000011111111000000000000000000000000
00000000000a90000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000aaaaaaa91000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000aaaaaa1a91100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0aaaaaaaaa1a91110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0aaaaaaaa41a91a10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0a000aa4441a91a10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00a0044449a110a10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000aa111991111100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000009910000000000000000000000000000000000000000000000000000000000000000000000000000000000000ddd00ddddddddddddddddddddddddddd
000000009900000000000000000000000000000000000000000000000000000000000000000000000000000000000000ddd00ddddddddddddddddddddddddddd
000000009900000000000000000000000000000000000000000000000000000000000000000000000000000000000000ddd77ddddddddddddddddddddddddddd
000000000900000000000000000000000000000000000000000000000000000000000000000000000000000000000000ddd00dddddd00700ddd00ddd00700ddd
00000000aa00000000000000000000000000000000000000000000000000000000000000000000000000000000000000ddd00dddddd00700ddd00ddd00700ddd
0000000077a0000000000000000000000000000000000000000000000000000000000000000000000000000000000000ddddddddddddddddddd77ddddddddddd
00000007777a000000000000000000000000000000000000000000000000000000000000000000000000000000000000ddddddddddddddddddd00ddddddddddd
000444444444440000000000000000000000000000000000000000000000000000000000000000000000000000000000ddddddddddddddddddd00ddddddddddd
44444444444004444444444444444444444444444440044444444444444004444444444444400444444444444440044444444444444004444444444444400444
47766774477007744776677447700774477667744770077447766774477007744776677447700774477667744770077447766774477007744776677447700774
47777774477777744777777447777774477777744777777447777774477777744777777447777774477777744777777447777774477777744777777447777774
46700764467007644670070046700700467007644670076446700700467007000070076400700764007007000070070000700764007007640070070000700700
46700764467007644670070046700700467007644670076446700700467007000070076400700764007007000070070000700764007007640070070000700700
47777774477777744777777447777774477777744777777447777774477777744777777447777774477777744777777447777774477777744777777447777774
47766774477667744776677447766774477007744770077447700774477007744776677447766774477667744776677447700774477007744770077447700774
44444444444444444444444444444444444004444440044444400444444004444444444444444444444444444444444444400444444004444440044444400444
__label__
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77766777777667777776677777766777777667777776677777766777777667777776677777766777777667777776677777766777777667777776677777766777
77766777777667777776677777766777777667777776677777766777777667777776677777766777777667777776677777766777777667777776677777766777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777700000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777700000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777700000000000000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000000777667777776677700000000000000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000000777667777776677700000000000000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000000000000777777777777777700000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777700000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777700000000000000000000000000000000000000000000000077777777
77777777000000000000000077777777000000000000000000000000000000000000000000000000000000000000000077777777000000000000000077777777
77777777000000000000000077777777000000000000000000000000000000000000000000000000000000000000000077777777000000000000000077777777
77777777000000000000000077777777000000000000000000000000000000000000000000000000000000000000000077777777000000000000000077777777
77766777000000000000000077766777000000000000000000000000000000000000000000000000000000000000000077766777000000000000000077766777
77766777000000000000000077766777000000000000000000000000000000000000000000000000000000000000000077766777000000000000000077766777
77777777000000000000000077777777000000000000000000000000000000000000000000000000000000000000000077777777000000000000000077777777
77777777000000000000000077777777000000000000000000000000000000000000000000000000000000000000000077777777000000000000000077777777
77777777000000000000000077777777000000000000000000000000000000000000000000000000000000000000000077777777000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777777000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777777000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777777000000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000077766777000000000000000077766777000000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000077766777000000000000000077766777000000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000077777777000000000000000077777777000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777777000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777777000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000007777777700000000777777770000000000000000000000000000000000000000000000007777777700000000777777770000000077777777
77777777000000007777777700000000777777770000000000000000000000000000000000000000000000007777777700000000777777770000000077777777
77777777000000007777777700000000777777770000000000000000000000000000000000000000000000007777777700000000777777770000000077777777
77766777000000007776677700000000777667770000000000000000000000000000000000000000000000007776677700000000777667770000000077766777
77766777000000007776677700000000777667770000000000000000000000000000000000000000000000007776677700000000777667770000000077766777
77777777000000007777777700000000777777770000000000000000000000000000000000000000000000007777777700000000777777770000000077777777
77777777000000007777777700000000777777770000000000000008000000000000000080000000000000007777777700000000777777770000000077777777
77777777000000007777777700000000777777770000000000000088888888888888888888000000000000007777777700000000777777770000000077777777
77777777000000000000000000000000000000000000000000000088888877777778888888800000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088877777777777777788880000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088877777777777777708888000000000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000088877667777776677700888800000000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000088777667777776677700088880000000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000000000088777777777777777700008888000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088777777777777777700000888000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088777777777777777700000008880000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088777777777777777700000000888000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088777777777777777700000000088800000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088777777777777777700000000008880000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000088777667777776677700000000000888000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000088877667777776677700000000000088800000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000000000088877777777777777700000000000008880000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088877777777777777700000000000000888000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088877777777777777700000000000000088800000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088880000000000000000000000000000008880000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000088888800000000000000000000000000000888000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000088888000000000000000000000000000088800000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000000000088880000000000000000000000000000888000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000000000000088880000000000000000000000000888800000000000000000000000077766777
77777777000000000000000000000000000000000000000000000000000000000888880000000000000000000000088880000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000008888880000000000000000000008888000000033000000000000077777777
777777770000000000000000000000000000000000000000000000000000000000000888880000000000000000000008883330003bb300000000000077777777
777777770000000077777777000000007777777700000000000000007777777777777778880000000000000077777777833b33003ab337770000000077777777
77777777000000007777777700000000777777770000000000000000777777777777777888800000000000007777777733333300331137770000000077777777
77777777000000007777777700000000777777770000000000000000777777777777777788800000000000007777777700883330711337770000000077777777
77766777000000007776677700000000777667770000000000000000777667777776677788800000000000007776677703333333733367770000000077766777
77766777000000007776677700000000777667770000000000000000777667777776677708880000000000007776677700333330333667770000000077766777
77777777000000007777777700000000777777770000000000000000777777777777777700880000000000007777777700033133311777770000000077777777
77777777000000007777777700000000777777770000000000000000777777777777777700888000000000007777777700003100317777770000000077777777
77777777000000007777777700000000777777770000000000000000777777777777777700088000000000007777777700033103317777770000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000088800000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000008800000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000008880000000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000000000000000000000000000888000000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000000000000000000000000000888000000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000000000000000000000000000000000888800000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000088800000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000088880000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777778880000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777778880000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777778800000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000077766777000000000000000077766778800000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000077766777000000000000000077766778800000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000077777777000000000000000077777778800000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777778880000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000077777777000000000000000077777778880000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777700000088880000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777700000888800000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777700008888000000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000000777667777776677700088800000000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000000777667777776677700880000000000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000000000000777777777777777708800000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777777788000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000777777777777778880000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000888800000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000008888000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000008880000000000000000000000000000000000000000000000000077777777
77766777000000000000000000000000000000000000000000000000000000000000800000000000000000000000000000000000000000000000000077766777
77766777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077766777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77766777777667777776677777766777777667777776677777766777777667777776677777766777777667777776677777766777777667777776677777766777
77766777777667777776677777766777777667777776677777766777777667777776677777766777777667777776677777766777777667777776677777766777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777

__gff__
000000000808080808080808c00000000000000008080808080808080000000040400000080808080808080800000000404000000808080808080808c0c0c0c000000000080808080808080800000000000000000808080808080808000000000000000008080808080808080000000000000000080808080808080800000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__map__
0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e
0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0c00000000000000000000000000000c0e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0c0000000000000c001c1c000c0c000c0e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
0c000000000044000c0c0c0c0c0c0c0c0c00000000000000000000000000000c0c0000000000000000000000000c000c0e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
0c0000000000000000000000000000000c00000000000000000000000000000c0c00004f0c0c0000000c000000001c120e00000000000e0e0e0e0000000000000e000000000e000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
3d1c000000001c0000000000000000000000000000000000000000000000000c3d000c000c0c0000003f0c0c0000000c0e00000000000000000e0000000000000e000000000e000e00000000000000000e0000000000000000000000000000000e0000000000000e0e000000000000000e00000000000e0e0e0e000000000000
0c0000000000000000000000000000410000000000000000000000000000000c0c000c0000000000000000000000000c0e00000000000000000e0000000000000e000000000e000e00000000000000000e00000000000e0e0e000000000000000e00000000000e0000000000000000000e00000000000000000e000000000000
0c000000000000000c0c0c0c0c0c0c0c0c00000000000020210000000000000c01000c0c00000000000c0c004f00000c0e0000000000000e0e0e0000000000000e000000000e0e0e0e0e0000000000000e00000000000e0000000000000000000e00000000000e0e0e000000000000000e000000000000000e00000000000000
0c0c0c0c0c0c00000000000c0c0c0c0c0c00000000000030310000000000000c0c0000000000000c00000c000000000c0e00000000000000000e0000000000000e0000000000000e00000000000000000e00000000000e0e0e000000000000000e00000000000e00000e0000000000000e0000000000000e0000000000000000
0c00000000000c0c004f000c0c0c0c0c0c00000000000000000000000000000c0c00004f0000000c0c000c0000000c0c0e00000000000e0e0e0e0000000000000e0000000000000e00000000000000000e000000000000000e000000000000000e0000000000000e0e000000000000000e0000000000000e0000000000000000
0c00000c4f00000000000000000000120100000000000000000000000000000c0c00000000000000000000000000000c0e0000000000000000000000000000000e0000000000000e00000000000000000e00000000000e0e0e000000000000000e0000000000000000000000000000000e000000000000000000000000000000
3d0000000000003f0c000c0c0c0c0c0c0c00000000000000000000000000000c0c00000c00000000000000000000000c0e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
0c0000000000000000000c0c0c0c0c0c0c00000000000000000000000000000c0c000c0c0c0000000c0c0c004f00000c0e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
010000000000000c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0c00000c00000000000000000000000c0e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
0c0c0c0c00000c0c0c0c0c0c0c0c0c0c0c00000000000000000000000000000c0c00000000001c00000000000000000c0e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
0c0c0c0c00410c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e0000000000000000000000000000000e000000000000000000000000000000
0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e
0c00000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0000000000000000000000000000000e000000000000000000000000000000
0c004f000000000c001c1c000c0c000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0000000000000c0c0c0c0c0c0c0c0c0c0c0c00000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c3e0c0c0c0c0c0e0000000000000000000000000000000e000000000000000000000000000000
0c0000000000000000000000000c000c0c00000000000000000c00000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c000000000000000000000c0c0c0c0c0c0000000000000000000c000000000c0c000000000000000000001c0000000c0e000000000e000000000000000000000e000000000000000000000000000000
0c0000000c0c0000000c000000001c120100000000000000004f000000000012010000000000001c004f0000000000120100000000000000004f1c000000001201000000000000000047000000000012010000000000000000401c00000000120e000000000e0000000e0000000000000e000000000e00000e0e0e0000000000
0c000c000c0c0000000c0c0c0000000c0c00000000000000000c00000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c000000000000000000000c0c0c0c0c0c0000000000000000000c000000000c0c000000000000000000001c0000000c0e000000000e0000000e000e000000000e000000000e00000e00000000000000
0c000c0000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0000000000000c0c0c0c0c0c0c0c0c0c0c0c00000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c3c0c0c0c0c0c0e000000000e0000000e0e0e0e0000000e000000000e00000e0e0e0000000000
01000c0c00000000000c0c004f00000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e000000000e00000000000e000000000e000000000e000000000e0000000000
0c0000000000000c00000c000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e000000000e00000000000e000000000e000000000e000000000e0000000000
0c00004f0000000c0c000c0000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0000000000000000000000000000000e000000000e00000e0e0e0000000000
0c00000000000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0000000000000000000000000000000e000000000000000000000000000000
0c00000c00000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0000000000000000000000000000000e000000000000000000000000000000
0c000c0c0c0000000c0c0c004f00000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0000000000000000000000000000000e000000000000000000000000000000
0c00000c00000000000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0000000000000000000000000000000e000000000000000000000000000000
0c00000000001c00000000000000000c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0000000000000000000000000000000e000000000000000000000000000000
0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0c0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e0e
__sfx__
01280000050550c05511055180551d05500000000000000000055070550c0550f055130550f0550c0550705501055080550d055140551905500000000000000000055070550f0551305518055130550f0550c055
0128000000000000001f0001f055200551f0551d055180551b055000000000000000000000000000000000000000000000000001b0551d0551b05519055140551805500000000000000000000000000000000000
01280000050550c05511055180551d05518055110550d0550c055130551b055240552b0551b05518055130550a055110551a05522055290550e0550a05505055000550705510055180551f055100550c05507055
012800000000000000130001f055220552005500000270551f0550000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
012800001d4521d452050550c05514055110551f452204522445224452050550c055140551105526452264522745227452080550f055180551405526452244522245222452030550a0551f4521f4521b4521b452
012800001d4521d4520105508055110550d0551f452204522445224452050550c055140551105526452264522745227452070550e0551f4521f4522645226452244522445200055070550f0520f0550e0550c055
00280000000000000000000000000505500000050550c055000000000000000050050505500000050550c055000000000000000000000805500000080550f05500000000000000000000030550a0550205509055
012800000122401222000000000001055000000105508055052220522200000000000505500000050550c05507222072220000000000022220222202222022220022200222000000000000055070550005507055
012800001d3541f3542035420300203040000027354273501f350000001d3001d3541b354000001f354000001d3541f3542035422354243542635027354293502b3540000024354000002935429350293502b350
012800000000000000010550805501055080050105508055000550800000000070550005507055000550705500000000000105508055010550805501055080550005500000070550000000055000000705500000
01280010183541a3541b3540000000000000002235400000213540000026354000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
01281000080050f005080550f05501055000000f055000000e3550000013355000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
010300000015000250000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__music__
01 00014344
00 02034344
00 04064344
00 05074344
00 08094344
02 0a0b4344