textest.p8

pico-8 cartridge // http://www.pico-8.com
version 8
__lua__
function identity(x)
 return x
end

function sort(t,key)
 if (key==nil) key=identity
 msort(t,1,#t,key)
end

function msort(t,a,b,key)
 if (a==b) return
 local sp=flr((a+b)/2)
 if b-a>=2 then
  msort(t,a,sp,key)
  msort(t,sp+1,b,key)
 end
 local ai,bi=a,sp+1
 local ex={}
 function exa()
  add(ex,t[ai])
  ai+=1
 end
 function exb()
  add(ex,t[bi])
  bi+=1
 end
 while ai<=sp and bi<=b do
  if key(t[ai])>key(t[bi]) then
   exb()
  else
   exa()
  end
 end
 while ai<=sp do exa() end
 while bi<=b do exb() end
 ai=1
 for i=a,b do
  t[i]=ex[ai]
  ai+=1
 end
end




function pickpop(a)
 -- remove a random item from
 -- the array and return it
 -- does not preserve order
 -- o(1)
 local i=flr(rnd(#a))+1
 local ret=a[i]
 a[i]=a[#a]
 a[#a]=nil
 return ret
end

function grid(w,h)
 local wh=w*h
 local g={w=w,h=h}
 g.offs = function(x,y)
  return x+y*w
 end
 g.xy = function(offs)
  return offs%w,flr(offs/w)
 end
 g.dcdl = function(l)
  -- decode link
  return
   l%w,
   flr(l/w)%h,
   flr(l/wh)
 end
 g.spll = function(l)
  -- split link
  x,y,ori = g.dcdl(l)
  return x,y,x+1-ori,y+ori,ori
 end
 g.encl = function(
  -- encode link
   x,y,ori)
  return ori*wh+y*w+x
 end
 g.alllinks = function()
  t={}
  for y=0,h-2 do
   for x=0,w-1 do
    add(t,g.encl(x,y,1))
   end
  end
  for y=0,h-1 do
   for x=0,w-2 do
    add(t,g.encl(x,y,0))
   end
  end
  return t
 end
 g.prl = function(l)
  --print link
  x,y,ori = g.dcdl(l)
  print(x..","..y.."/"..ori)
 end
 return g
end

function maze(g)
 local m={}
 local cells={}
 local colors={}
 for i=0,g.w*g.h-1 do
  cells[i]=0
 end
 m.g=g
 m.haslink = function(l)
  local x,y,ori=g.dcdl(l)
  local v=cells[x+y*g.w]
  return band(v,ori+1)!=0
 end
 m.has = function(x,y,ori)
  if x<0 or x>=g.w then
   return false
  end
  if y<0 or y>=g.h then
   return false
  end
  return band(
   cells[x+y*g.w],
   ori+1) != 0
 end
 m.getcol = function(x,y)
  return colors[x+y*g.w]
 end
 m.alllinks = function(state)
  if (state==nil) state=true
  local ret={}
  for l in all(g.alllinks()) do
   if m.haslink(l)==state then
    add(ret,l)
   end
  end
  return ret
 end
 m.kruskal = function()
  local k={}
  function super(i)
   local s=k[i]
   if (s==nil) then
    k[i]=i
    return i
   end
   if (s==i) return s
   k[i]=super(s)
   return k[i]
  end
  function superxy(x,y)
   return g.xy(
    super(g.offs(x,y)))
  end
  function kjoin(l)
   local x1,y1,x2,y2,ori=
    g.spll(l)
   local a=g.offs(x1,y1)
   local b=g.offs(x2,y2)
   local aa=super(a)
   local bb=super(b)
   if (aa==bb) return
   --merge discrete sets
   k[max(aa,bb)]=min(aa,bb)
   --form link
   cells[a]=bor(cells[a],ori+1)
  end
  local links=g.alllinks()
  while #links>0 do
   kjoin(pickpop(links))
  end
 end
 m.tighten=function(n)
  local links=m.alllinks(false)
  for i=1,n do
    local l=pickpop(links)
    local x,y,ori=g.dcdl(l)
    local a=x+g.w*y
    cells[a]=bor(cells[a],ori+1)
  end
 end
 m.color=function(n)
  local allcells={}
  for i=0,g.w*g.h-1 do
   allcells[i+1]=i
  end
  -- seeds
  for i=0,n-1 do
   while true do
    local idx=flr(rnd(#cells))
    if colors[idx]==nil then
     colors[idx]=i
     break
    end
   end
  end
  while #allcells>0 do
   local c=pickpop(allcells)
   if colors[c]==nil then
    local ns={}
    function nadd(nei,ori,lc)
     if band(cells[lc],ori+1)!=0 then
      add(ns,colors[nei])
     end
    end
    local x,y=g.xy(c)
    if (x>0) nadd(c-1,0,c-1)
    if (y>0) nadd(c-g.w,1,c-g.w)
    if (x<g.w-1) nadd(c+1,0,c)
    if (y<g.h-1) nadd(c+g.w,1,c)
    if #ns==0 then
     add(allcells,c)
    else
     colors[c]=ns[flr(rnd(#ns))+1]
    end
   end
  end
 end
 m.draw=function()
  for i=0,g.w*g.h-1 do
   local c=cells[i]
   local x,y=g.xy(i)
   x*=8 y*=8
   rectfill(x+2,y+2,x+5,y+5,colors[i]%8+8)
   rectfill(x+3,y+3,x+4,y+4,flr(colors[i]/8)+8)
   if c%2!=0 then
    rectfill(x+6,y+3,x+9,y+4,7)
   end
   if band(c,2)!=0 then
    rectfill(x+3,y+6,x+4,y+9,7)
   end
  end
 end
 return m
end

worldseed=1234

function prng(n, ...)
 srand(worldseed)
 for s in all({...}) do
  srand(rnd()+s)
 end
 return rnd(n)
end

--cornercode
-- 0x1 = topleft
-- 0x2 = topright
-- 0x4 = botleft
-- 0x8 = botright
--combine, e.g.
-- 0x3 = top
-- 0xd = l-shape
-- 0xf = all

--dividecode
-- same as cornercode, but no
-- high bit. e.g.
-- 0x1 = topleft
-- 0x2 = topright
-- 0x3 = top/bottom
-- 0x4 = botleft
-- 0x5 = left/right
-- 0x6 = crisscross (bad)
-- 0x7 = botright

big_divs=64
thin_divs=80
wall_divs=96
box_masks=112
zig_masks=128
plt_addr=0x5000 -- to 0x50ff
sha_addr=0x5100 -- to 0x51ff
sha2_addr=0x5200 -- to 0x520f

tex_stone=4
tex_grass=6
tex_tangle=8
tex_rock=10
tex_dirt=12

all_tex={4,6,8,10,12,14,20,22}
function rnd_tex()
 return all_tex[rn(#all_tex)+1]
end

function ccode(tl,tr,bl,br)
 -- corder code
 return
  (tl and 1 or 0) +
  (tr and 2 or 0) +
  (bl and 4 or 0) +
  (br and 8 or 0)  
end

function abcl(a,b,v)
 -- a/b classify
 if (v==a) return 1
 if (v==b) return 2
 return 0
end

function ccodemap4(a,b,mx,my)
 -- read map to calculate corner code
 local
  tlc,trc,blc,brc
 tlc=abcl(a,b,mget(mx,my))
 trc=abcl(a,b,mget(mx+1,my))
 blc=abcl(a,b,mget(mx,my+1))
 brc=abcl(a,b,mget(mx+1,my+1))
 return ccode(
  tlc==0,trc==0,blc==0,brc==0),
  max(max(max(tlc,trc),
          blc),
      brc)
end

function sprofs(s, y)
 -- calculate address of sprite #s row y
 y=y or 0
 return
  (s%16)*4 +
  (flr(s/16)*512) +
  y*64 
end

function gfxofs(x, y)
 -- calculate address of screen
 -- x,y. when x is odd, round
 -- down to the byte
 return
  0x6000 +
  flr(x/2) +
  y*64
end

function maskcpy(
  src1,src2,mask,dest,bytes)
 -- copy pixel bytes with a
 -- mask, which should have
 -- 0x0 nibbles for clear and
 -- 0x7 nibbles for opaque
 -- applies a palette
 -- transform to src1 only
 for i=1,bytes do
  s1=peek(
   bor(plt_addr,peek(src1)))
  m=peek(mask)
  s2=peek(src2)
  v=band(s1,m)+band(s2,bnot(m))
  poke(dest,v)
  src1+=1
  src2+=1
  dest+=1
  mask+=1
 end
end

function nomaskcpy(
  src1,src2,mask,dest,bytes)
 for i=1,bytes do
  s1=peek(
   bor(plt_addr,peek(src1)))
  poke(dest,s1)
  src1+=1
  dest+=1
 end
end

function memspr(spr,go)
 maskspr2(spr,nil,nil,go)
end

function maskspr2(
  spr1,spr2,mask,go)
 so1=sprofs(spr1)
 local mcpy=maskcpy
 local mo=0
 if mask==nil then
  mcpy = nomaskcpy
 else
  mo=mask
 end
 if spr2==nil then
  so2 = go
 else
  so2 = sprofs(spr2)
 end
 --sprofs(mask)
 for h=0,7 do
  mcpy(
   so1,so2,
   mo,go,4)
  so1+=64
  so2+=64
  mo+=64
  go+=64
 end
end

function build_plt(addr)
 -- build lookup table for
 -- palette to use in maskspr
 local ca,cb
 for a=0,15 do
  ca=shl(
   band(15,peek(0x5f00+a)),4)
  for b=0,15 do
   cb=band(15,peek(0x5f00+b))
   poke(
    addr+bor(shl(a,4),b),
    bor(ca,cb))
  end
 end
end

function pal_switch(n)
 setpal(n)
 build_plt(plt_addr)
end

wall=2
floor=1
tex_wall=tex_rock
tex_floor=tex_tangle

function setpal(idx)
 for i=0,3 do
  pal(i,sget(idx,i+8))
 end
end

function getunusedcol(pal1,pal2,pal3)
 local c=15
 repeat
  local ok=true
  for i=0,3 do
   for p in all({pal1,pal2,pal3}) do
    if sget(p,i+8)==c then
     c-=1
     ok=false
    end
   end
  end
 until ok
 return c
end


function prerender(
  tex_a, tex_b,
  pal_a, pal_b,
  ptr_dest)
 pal_switch(pal_a)
 for i=0,15 do
  maskspr2(tex_a,nil,nil,
   ptr_dest+i*4)
 end
 pal_switch(pal_b)
 for i=0,15 do
  maskspr2(
   tex_b,nil,
   sprofs(zig_masks+i),
   ptr_dest+i*4)
 end
end

function rn(n)
 return flr(rnd(n))
end

function mkbiome(b)
 b.w={t=b.walt,p=b.walp}
 b.f={t=b.flot,p=b.flop}
 b.b={t=b.bort,p=b.borp}
 return b
end

function rndbiome()
 return mkbiome {
  walt=rnd_tex(),
  flot=rnd_tex(),
  bort=big_divs + 16*rn(3),
  walp=rn(24),
  flop=rn(24),
  borp=rn(24),
  wallstyle=rn(3)
 }
end

biomes={}

function genbiomes(seed)
 if (seed!=nil) srand(seed)
 for i=0,63 do
  biomes[i]=rndbiome()
 end
end

ice_biome={
 walt=tex_rock,
 flot=tex_dirt,
 bort=wall_divs,
 walp=8,
 flop=10,
 borp=9
}

dark_biome={
 walt=tex_dirt,
 flot=tex_dirt,
 bort=big_divs,
 walp=11,
 flop=0,
 --borp=6
 borp=rn(24)
}

forest_biome={
 walt=tex_tangle,
 flot=tex_grass,
 bort=thin_divs,
 walp=4,
 flop=12,
 borp=13
}

darker_biome={
 walt=tex_rock,
 flot=tex_dirt,
 bort=thin_divs,
 walp=0,
 flop=1,
 borp=14
}

main_bordert=15
ex1_bordert=15
ex2_bordert=15

function counter(c,d)
 return function()
  local r=c
  c+=d
  return r
 end
end

function setup_room(
  biome_main,
  biome_ex1,
  biome_ex2)
 palt()
 palt(0,false)
 prerender(
  biome_main.walt,
  biome_ex1.walt,
  biome_main.walp,
  biome_ex1.walp,
  0x1800)
 prerender(
  biome_main.walt,
  biome_ex2.walt,
  biome_main.walp,
  biome_ex2.walp,
  0x1a00)
 prerender(
  biome_main.flot,
  biome_ex1.flot,
  biome_main.flop,
  biome_ex1.flop,
  0x1c00)
 prerender(
  biome_main.flot,
  biome_ex2.flot,
  biome_main.flop,
  biome_ex2.flop,
  0x1e00)
 
 --rectfill(0,0,127,7,0)
 memset(0x1600,0,0x200)
 ptr_spr=counter(sprofs(main_wavt),4)
 function do_variant(pt)
  pal_switch(pt.p)
  memspr(pt.t+1,ptr_spr())
 end
 do_variant(biome_main.w)
 do_variant(biome_main.f)
 do_variant(biome_ex1.w)
 do_variant(biome_ex1.f)
 do_variant(biome_ex2.w)
 do_variant(biome_ex2.f)

 pal_switch(biome_main.borp)
 main_bordert=
  getunusedcol(
   biome_main.borp,
   biome_ex1.borp,
   biome_ex2.borp)
 pal(3,main_bordert)
 build_plt(plt_addr)
 ptr_spr=counter(sprofs(main_bort),4)
 for i=0,7 do
  memspr(biome_main.bort+i,ptr_spr())
 end

 ptr_spr=counter(sprofs(ex1_bort),4)
 memset(0x1400,0,0x200)
 setpal(biome_ex1.borp)
 pal(3,main_bordert)
 build_plt(plt_addr)
 for i=0,7 do
  memspr(biome_ex1.bort+i,ptr_spr())
 end
 setpal(biome_ex2.borp)
 pal(3,main_bordert)
 build_plt(plt_addr)
 for i=0,7 do
  memspr(biome_ex2.bort+i,ptr_spr())
 end

 --Uncomment to dump sprites
 --back to screen
 --memcpy(0x6000,0x1400,0xc00)

 bake_map()
 clear_borders()
 bake_borders(1, main_bort)
 bake_borders(2, ex1_bort)
 bake_borders(3, ex2_bort)
end

-- We use sprites 0xb8..0xff
-- for pre-baking the map tiles
-- for room.

-- wavt: wall/variant/tex
-- flvt: floor/variant/tex
main_wavt=0xb8
main_flvt=0xb9
ex1_wavt=0xba
ex1_flvt=0xbb
ex2_wavt=0xbc
ex2_flvt=0xbd
main_bort=0xb0
ex1_bort=0xa0
ex2_bort=0xa8
wall_ex1=0xc0
wall_ex2=0xd0
floor_ex1=0xe0
floor_ex2=0xf0

variants={
 [wall_ex1]=main_wavt,
 [wall_ex2]=main_wavt,
 [floor_ex1]=main_flvt,
 [floor_ex2]=main_flvt,
 [wall_ex1+0xf]=ex1_wavt,
 [wall_ex2+0xf]=ex2_wavt,
 [floor_ex1+0xf]=ex1_flvt,
 [floor_ex2+0xf]=ex2_flvt
}

function vspr(idx, x, y)
 local v=variants[idx] or idx
 if (flr(shr(x,3))+flr(shr(y,3)))%2==0 then
  idx=v
 end
 spr(idx,x,y)
end

function pickv(idx, x, y)
 if (x+y)%2==0 then
  return variants[idx] or idx
 end
 return idx
end

function clear_borders()
 mrect(54,0,54+16,16,0)
end

function bake_borders(code, texbase)
 local q
 for x=0,15 do
  for y=0,15 do
   q=ccodemap4(2,3,x,y)
   if band(q,8)==8 then
    q=bxor(q,0xf)
   end
   ex=mget(x+19,y+1)
   if ex==code and q>0 then
    mset(54+x,y,texbase+q)
   end
  end
 end
end


shadow_tiles={
 [4]=4,
 [6]=4,
 [8]=7,
 [9]=7,
 [12]=3,
 [13]=2,
 [14]=1
}

function draw_shadows()
 local q
 pal()
 palt(0,false)
 for x=0,15 do
  for y=0,15 do
   q=ccodemap4(2,3,x,y)
   if q>0 then
    q=peek(sha2_addr+q)
    if q>0 then
     fast_shadow(72+q,x*8,y*8)
    end
   end
  end
 end
end

function slow_shadow(sidx,x,y)
 -- Works anywhere
 local sx=8*(sidx%16)
 local sy=8*flr(sidx/16)
 for yy=0,7 do
  for xx=0,7 do
   local c=sget(xx+sx,yy+sy)
   local d=pget(x+xx,y+yy)
   c=peek(sha_addr+bor(d,shl(c,4)))
   pset(x+xx,y+yy,c)
  end
 end
end

function fast_shadow(sidx,x,y)
 -- Does not range check - not
 -- safe to use if it might
 -- fall outside the screen.
 -- Only for even x.
 local saddr=sprofs(sidx)
 local paddr=gfxofs(x,y)
 -- The most outrageous hack of
 -- all here is that we start
 -- yy from 3 since none of our
 -- shadow textures have content
 -- in the top three rows.
 for yy=3,7 do
  local ofs=yy*64
  for xx=0,3 do
   local cs=peek(saddr+ofs)
   local ds=peek(paddr+ofs)
   local clo=shl(band(cs,0x3),4)
   local dlo=band(ds,0xf)
   dlo=peek(bor(clo,dlo)+sha_addr)
   local chi=band(cs,0xf0)
   local dhi=shr(band(ds,0xf0),4)
   dhi=peek(bor(chi,dhi)+sha_addr)
   cs=bor(dlo,shl(dhi,4))
   poke(paddr+ofs,cs)
   ofs+=1
  end
 end

end

function init_fast_shadow(addr)
 -- build lookup table for
 -- palette to use fast_shadow
 for c=0,3 do
  for d=0,15 do
   local result=sget(c,d+16)
   poke(sha_addr+d+c*16,result)
  end
 end
 memset(sha2_addr,16,0)
 for idx,v in pairs(shadow_tiles) do
  poke(sha2_addr+idx,v)
 end
end

function dice(lo,hi)
 if (lo>=hi) return lo
 return rn(hi-lo+1)+lo
end

function mrect(x1,y1,x2,y2,v)
 for y=y1,y2 do
  for x=x1,x2 do
   mset(x,y,v)
  end
 end
end

seed_xlinks=77
seed_ylinks=78
seed_walls=79


clockwise={
 {0,-1},
 {1,-1},
 {1,0},
 {1,1},
 {0,1},
 {-1,1},
 {-1,0},
 {-1,-1}
}
cardinal={
 {0,-1},
 {1,0},
 {0,1},
 {-1,0}
}

function cavernify(x,y,p)
 -- toggle map cell iff it
 -- won't affect topology
 -- assumes all map values
 -- are 1 or 2
 function getneib(dir)
  return mget(
   x+dir[1],
   y+dir[2])
 end
 local acc=0
 local prev=getneib(
  clockwise[
   #clockwise])
 for dir in all(clockwise) do
  local v=getneib(dir)
  if v!=prev then
   acc+=1
  end
  prev=v
 end
 if (acc!=2) return
 acc=0
 local cell=mget(x,y)
 for dir in all(cardinal) do
  if getneib(dir)!=cell then
   acc+=1
  end
 end
 if (acc==0) return
 if (acc==1 and dice(1,p)>1) return
 --printh('x'..x..' y'..y..' := '..(3-cell))
 mset(x,y,3-cell)
end

function pickitempos()
 local x,y
 while true do
  x=dice(2,14)
  y=dice(2,14)
  if mget(x,y)==1 then
   x=mid(3,x,13)
   y=mid(3,y,13)
   mrect(x-1,y-1,x+1,y+1,1)
   return {x,y}
  end
 end
end

ctrl=800

function random_walls(maze,gx,gy,walls)

 local topx=flr(prng(9,seed_xlinks,gx,gy))+4
 local topw=1
 local botx=flr(prng(9,seed_xlinks,gx,gy+1))+4
 local botw=1
 local lefty=flr(prng(9,seed_ylinks,gx,gy))+4
 local lefth=1
 local righty=flr(prng(9,seed_ylinks,gx+1,gy))+4
 local righth=1
 local minx=min(topx-topw,botx-botw)
 local maxx=max(topx+topw,botx+botw)
 local miny=min(lefty-lefth,righty-righth)
 local maxy=max(lefty+lefth,righty+righth)
 minx=dice(2,minx)
 maxx=dice(maxx,14)
 miny=dice(2,miny)
 maxy=dice(maxy,14)
 local vert=((gx+gy)%2)==0

 mrect(0,0,16,16,2)
 mrect(18,0,18+17,17,1)

 mrect(minx,miny,maxx,maxy,1)
 prng(-1,seed_walls,gx,gy)
 --for i=0,7 do
 -- local x=flr(rnd(maxx-minx+1))+minx
 -- local y=flr(rnd(maxy-miny+1))+miny
 -- mset(x,y,2)
 --end

 if maze.has(gx,gy-1,1) then
  mrect(topx-topw,0,topx+topw,miny,1)
  if vert then
   mrect(18+topx-topw-1,0,18+topx+topw+2,3,2)
   mrect(18+topx-topw,4,18+topx+topw+1,4,2)
  end
 end
 if maze.has(gx,gy,1) then
  mrect(botx-botw,maxy,botx+botw,16,1)
  if vert then
   mrect(18+botx-botw-1,14,18+botx+botw+2,17,3)
   mrect(18+botx-botw,13,18+botx+botw+1,13,3)
  end
 end
 if maze.has(gx-1,gy,0) then
  mrect(0,lefty-lefth,minx,lefty+lefth,1)
  if not vert then
   mrect(18,lefty-lefth-1,18+3,lefty+lefth+2,2)
   mrect(18+4,lefty-lefth,18+4,lefty+lefth+1,2)
  end
 end
 if maze.has(gx,gy,0) then
  mrect(maxx,righty-righth,16,righty+righth,1)
  if not vert then
   mrect(18+14,righty-righth-1,18+17,righty+righth+2,3)
   mrect(18+13,righty-righth,18+13,righty+righth+1,3)
  end
 end

 if walls>0 then
  for i=0,((walls==2) and 800 or 100) do
   cavernify(dice(2,14),dice(2,14),(walls==2) and 32 or 1)
  end
 end
 local itempos=pickitempos()
 gix=itempos[1]
 giy=itempos[2]
end

function bake_map()
 local v,q,ex
 for x=0,16 do
  for y=0,16 do
   v=mget(x,y)
   if v==wall then
    q,ex=ccodemap4(2,3,x+18,y)
    q=bxor(0xf,q)
    if ex==0 then
     -- solid main wall
     mset(x+36,y,pickv(wall_ex1,x,y))
    else
     mset(x+36,y,pickv(wall_ex1+q+16*(ex-1),x,y))
    end
   else
    q,ex=ccodemap4(2,3,x+18,y)
    q=bxor(0xf,q)
    if ex==0 then
     -- solid main floor
     mset(x+36,y,pickv(floor_ex1,x,y))
    else
     mset(x+36,y,pickv(floor_ex1+q+16*(ex-1),x,y))
    end
   end
  end
 end
end

function draw_bg()
 pal()
 palt()
 palt(0,false)
 map(36,0,-4,-4,17,17)
 draw_shadows()
end

function draw_fg()
 pal()
 palt()
 palt(0,false)
 palt(main_bordert,true)
 map(54,0,0,0,16,16)
end
function range(a,b)
 t={}
 for i=a,b do
  add(t,i)
 end
 return t
end

function _init()
 srand(1)
 --build_plt(plt_addr)
 --setup_room(
 -- dark_biome,
 -- darker_biome,
 -- forest_biome)
 grd=grid(16,16)
 world=maze(grd)
 world.kruskal()
 world.tighten(32)
 world.color(64)
 genbiomes()
 gx,gy=8,8
 ux,uy=60,60
 local xs=range(1,16)
 local ys=range(1,16)
 g_obelisks={}
 g_buried={}
 g_keys={}
 g_chests={}
 g_features={}
 function add_feature(f)
  g_features[
   grd.offs(f.x, f.y)
  ]=f
 end
 function rnd_feature(f)
  local x=dice(1,16)
  local y=dice(1,16)
  local o=grd.offs(x,y)
  if g_features[o] == nil then
   f.x=x
   f.y=y
   g_features[o] = f
   return f
  end
  -- try again (tail call)
  return rnd_feature(f)
 end
 for i=1,8 do
  add_feature{
   x=pickpop(xs),
   y=pickpop(ys),
   type='obelisk'
  }
  add_feature{
   x=pickpop(xs),
   y=pickpop(ys),
   type='buried'
  }
 end
 for i=1,8 do
  rnd_feature{type='key'}
  rnd_feature{type='chest'}
  rnd_feature{type='sage'}
  rnd_feature{type='trader'}
  rnd_feature{type='gem'}
 end
 init_fast_shadow(sha_addr)
 initroom()
end

function screenoff()
 for i=0,15 do
  pal(i,0,1)
 end
end

function screenon()
 for i=0,15 do
  pal(i,i,1)
 end
end

function initroom()
 --screenoff()
 local bm=world.getcol(gx,gy)
 local b1,b2
 bm=biomes[bm]
 local vert=((gx+gy)%2)==0
 if vert then
  b1=world.getcol(gx,gy-1) or 0
  b2=world.getcol(gx,gy+1) or 0
 else
  b1=world.getcol(gx-1,gy) or 0
  b2=world.getcol(gx+1,gy) or 0
 end
 b1=biomes[b1]
 b2=biomes[b2]
 random_walls(world,gx,gy,bm.wallstyle)
 setup_room(
  bm,b1,b2)
 local feature=g_features[grd.offs(gx,gy)]
 if feature then
  if feature.type == 'key' then
   sprites={player,chestkey}
   chestkey.x=gix*8-4
   chestkey.y=giy*8-4
  elseif feature.type == 'chest' then
   sprites={player,chest}
   chest.x=gix*8-4
   chest.y=giy*8-4
  else
   sprites={player}
  end
 else
  sprites={player}
 end
end

function overlap(a1,a2,b1,b2)
 return min(a2,b2)-max(a1,b1)+1
end
function eject(a1,a2,b1,b2)
 local l=a2-b1+1
 local r=b2-a1+1
 if l<r then
  return a1-l,a2-l
 end
 return a1+r,a2+r
end
function ejectwall(wx,wy,ori)
 local hov=overlap(ux+4,ux+11,wx*8,wx*8+7)
 local vov=overlap(uy+4,uy+11,wy*8,wy*8+7)
 if (hov<=0) return
 if (vov<=0) return
 ori=ori or hov<=vov
 if ori==0 then
  ux=eject(ux+4,ux+11,wx*8,wx*8+7)-4
  return
 end
 if ori==1 then
  uy=eject(uy+4,uy+11,wy*8,wy*8+7)-4
 end
end

function _update60()
 local going=false
 function go(dx,dy)
   gx=mid(0,gx+dx,15)
   gy=mid(0,gy+dy,15)
   ux=mid(0,ux-200*dx,120)
   uy=mid(0,uy-200*dy,120)
   going=true
 end
 function blocked(x,y)
  if (mget(x,y)==2) return true
  for f in all(sprites) do
   if f.solid then
    if flr((f.x+4)/8)==x and
     flr((f.y+4)/8)==y then
     return true
    end
   end
  end
  return false
 end
 function wk(dx,dy)
  ux+=dx
  uy+=dy
  local x1=flr((ux+4)/8)
  local y1=flr((uy+4)/8)
  local x2,y2=x1+1,y1+1
  local ori=dy!=0 and 1 or 0
  
  if blocked(x1,y1) then
   ejectwall(x1,y1,ori)
  end
  if blocked(x1,y2) then
   ejectwall(x1,y2,ori)
  end
  if blocked(x2,y1) then
   ejectwall(x2,y1,ori)
  end
  if blocked(x2,y2) then
   ejectwall(x2,y2,ori)
  end
 end
 if (btn(0)) wk(-1,0)
 if (btn(1)) wk(1,0)
 if (btn(2)) wk(0,-1)
 if (btn(3)) wk(0,1)
 if (ux>120) go(1,0)
 if (ux<0) go(-1,0)
 if (uy>120) go(0,1)
 if (uy<0) go(0,-1)
 if going then
  initroom()
 end
 if btn(4) then
  gem1.spr=56+dice(0,4)
 end
 if btn(5) then
  gem1.palette=
   primary_palettes[
    dice(1,8)
   ]
 end
end

player={
 x=64,
 y=64,
 palette=26,
 spr=52
}

chestkey={
 x=32,
 y=32,
 palette=0,
 spr=36,
 solid=false
}

chest={
 x=32,
 y=32,
 palette=0,
 spr=37,
 solid=true
}

gem1={
 x=96,
 y=96,
 palette=13,
 spr=57
}

sprites={
 player
}

pal_red=23
pal_pink=26
pal_tan=24
pal_violet=25
pal_blue=9
pal_green=13
pal_yellow=15
pal_orange=17

primary_palettes={
 pal_red,
 pal_pink,
 pal_tan,
 pal_violet,
 pal_blue,
 pal_green,
 pal_yellow,
 pal_orange
}

function drawsprites()
 for s in all(sprites) do
  setpal(s.palette)
  palt()
  palt(0,false)
  palt(3,true)
  spr(s.spr,s.x,s.y-3)
 end
end

function drawspriteshadows()
 for s in all(sprites) do
  slow_shadow(53,s.x,s.y)
 end
end

function _draw()
 if (btn(4)) return
 player.x=ux
 player.y=uy
 sort(sprites,function(s) return s.y end)
 draw_bg()
 -- Fast shadow isn't good
 -- because x can be odd
 -- and might overlap edge
 -- of screen.
 drawspriteshadows()
 --slow_shadow(53,ux,uy)
 draw_fg()
 pal()
 palt()
 drawsprites()
 --spr(52,ux,uy-3)
 pal()
 palt()
 palt(0,false)
 rectfill(0,0,31,5,0)
 print(stat(1),0,0,7)
 screenon()
end
__gfx__
0000000088888880ccccccc0aaaaaaa0011110210111111100000000010000000000200100002001000201210002012111111111111100111111222200002222
00000000888ee880ccdddcc0a99999a0011110000222112200000010011000002001000102010010001201210012012100111111111100111111222200002222
0070070088eee880cddcddc0aaa99aa0011110110000000010000222222200000002000100100020011201120112011200111121111111111111222200002222
00077000888ee880ccccddc0aa9999a0022220220211201200010000000010100000102000020001012100120112101211111111101222211111222200002222
00077000888ee880cccddcc0aaaa99a0000000000000000001010000000011101200100020001000012100020121210211110011111222212222111122221111
00700700888ee880cdddddc0a9999aa0111101101101111001110100000222220100020001002000021102000121121012210011111222212222111122221111
0000000088888880ccccccc0aaaaaaa0222102202202122011110100010000000102010010000100021002100211110012211111111222212222111122221111
00000000000000000000000000000000000000000000000022222220222200001000100210201020020002110000001111111111111111112222111122221111
01001566d5d13144522fd85120200000111211111111111122222222222222221111111111111111000000000000000000000000000000000000000000000000
10112ddd6dc3b3999487ee8291800000112221111111111121111111111111211111111111222111000000000000000000000000000000000000000000000000
2105d6577c623bfad99fff48fde50000122222111111111121222221222221211111111111222111000000000000000000000000000000000000000000000000
30000000000000000000000000000000222222211111211121211121211121211111111111111111000000000000000000000000000000000000000000000000
42244506770000000000000000000000111111111112221121222121212221211111111122212221000000000000000000000000000000000000000000000000
516514d56dd130000000000000000000111111111122222121111121211111211111111122212221000000000000000000000000000000000000000000000000
6579d706770000000000000000000000111111211222222222222221222222211111111111111111000000000000000000000000000000000000000000000000
7d7ab707770000000000000000000000111112221111111111111111111111111111111111111111000000000000000000000000000000000000000000000000
0000000000000000333333333333333333111333322222133333333333321333333331138899bbaa000780003332033333322223320023333333322333331233
1000000000000000333333333333333331aaa03344aaa4413332133333211133121312218899bbaa079217e03222122333222110312002333333222133222113
210000000000000033333333333333333170703322a1a22133222133220000003122221322443399042008203210010332211210221222233332221132210333
3110000000000000333377777777333331aaa03311a1a1113322213333677d3333222333112211447a00007f2203321222122103002122213322211322221133
42100000000000003337777777777333331a003344aaa44133222133333dd33312122133eeccffdd940000920103321021210033200211103212113322222210
510000000000000033377777777773333177033344444441332221333331133321312213eeccffdd07b007d03212210311003333122222032121133322112210
6510000000000000333777777777733331aa03332222222133122133332110331333312188dd99110317c1003201100313333333112222332211333332111110
7d100000000000003337777777777333330003331111111133012133332110333333311122552200000d50003332033313333333311111333113333333110003
82100000000000003337777777777333333663330000000033201133310000133111333133112133337722333331033333100033333333333333333333322133
9210000000000000333777777777733333677d330000000033220133310660131222000231211113371100233331033331722103333333333333333333211213
a410000000000000333777777777733333677d33000000003222100331677d131122211217221220727722023322103312112210312222133222772333213213
b3100000000000003337777777777333333dd333011111103221110331677d131222121200011000727722023372103301001220111111112227722233213113
cd100000000000003333777777773333333113331333333132211103331111331122211231221103101100103222210301001220100000012277222233213333
d5100000000000003333333377733333332110332333333232111003321111031222121233121033101100103222210312117210122222211772222133213333
e2100000000000003333333377333333332110332222222232110003321111031112211133310333310022031111111031222103022222203111111333213333
f4100000000000003333333373333333332110330111111030000003321111030333000333300333331100330000000033100033300000033333333333213333
33333333333222333332222333333333333333333322233333322233333333330000000000000000000000000000000000000000000000000000000000000000
33333333333222333332222333333333333333333322233333322233333333330000000000000000000000000000000000000000000000000000000000000000
33333333330003333330003333003333333333333330003333000333333333000000000000000000000000000000000000000000000000000000000000000000
33333333220003333330003322003300220033333330003322000300333222000000000000001000000100000000000000000000000000000000000000000000
33333333220003333333220022002200220022333322333322022200333222000000000033321000000123333333333333330000000000000000000000003333
33333333223333333333220022332200220022333322333322322200333222330000000033321000000123333333333333330000000000000000000000003333
33333333333333333333333333333333223300333300033333300333330003330000000022211000000112222222222222220000000000000000000000002222
33333333333333333333333333333333333300333300033333300333330003330000000011110000000011111111111111110000000000000000000000001111
33333333330220333302203333333333333333333302203333022033333333330000000000000000000000000000000000000000000000000000000000000000
33333333330211033301103333030030333333333301103333011030333333330000000000000000000000000000000000000000000000000000000000000000
33333333000120333302200000202101000303333330220300222001333030000000000000000000000000000000000000000000000000000000000000000000
33333333212110333330112121212121212010333301110321211121330201210000000000000000000000000000000000000000000000000000000000000000
33333333212010333301122121210021212110333330220321211121330221210000000000000000000000000000000000000000000000000000000000000000
33333333000303333330020000003300000122033301103300011100330120000000000000000000000000000000000000000000000000000000000000000000
33333333333333333333303333333333330220333302203333022033302210330000000000000000000000000000000000000000000000000000000000000000
33333333333333333333333333333333330110333011103330111033330110330000000000000000000000000000000000000000000000000000000000000000
33333333332110333321103333333333333333333321103333211033333333330000000000000000000000000000000000000000000000000000000000000000
33333333331100333311003333333333333333333311003333211033333333330000000000000000000000000000000000000000000000000000000000000000
33333333212110333321111221222212212221333321103322222122332222120000000000000000000000000000000000000000000000000000000000000000
33333333111110333321111111111111111110333321103311211011332111110000000000000000000000000000000000000000000000000000000000000000
33333333101110333321110110111101101110333321103311211011332111010000000000000000000000000000000000000000000000000000000000000000
33333333000000333310000000000000001110333321103300100000332110000000000000000000000000000000000000000000000000000000000000000000
33333333333333333333333333333333331100333311003333211033331100330000000000000000000000000000000000000000000000000000000000000000
33333333333333333333333333333333332110333321103333211033332110330000000000000000000000000000000000000000000000000000000000000000
00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff
00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff
00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff
00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff00000000ffff00000000ffffffffffff
00000000000000000000000000000000ffff0000ffff0000ffff0000ffff00000000ffff0000ffff0000ffff0000ffffffffffffffffffffffffffffffffffff
00000000000000000000000000000000ffff0000ffff0000ffff0000ffff00000000ffff0000ffff0000ffff0000ffffffffffffffffffffffffffffffffffff
00000000000000000000000000000000ffff0000ffff0000ffff0000ffff00000000ffff0000ffff0000ffff0000ffffffffffffffffffffffffffffffffffff
00000000000000000000000000000000ffff0000ffff0000ffff0000ffff00000000ffff0000ffff0000ffff0000ffffffffffffffffffffffffffffffffffff
00000000ffff0f0f000fffffffffffff0f0f0000ffff00000000ffffffffffff00000f0fffff00000f0fffffffffffff0f0f0f00ffff0f00000f0fffffffffff
00000000fff0f000f0f0fffffffffffff0000f00fff0f0f00000ffffffffffff000f0000ffff000000ffffffffffffff00000000fffff0f00f00ffffffffffff
00000000ff0f0f0f000f0fffffffffff0f0f00f0ffff00000000ffffffffffff00000f0fffff0000f00fffffffffffff0f0f0f00ffff0f0f000f0fffffffffff
00000000f0f0f000f0f0f0fff0f0fffff0f0f000fff0f0f00000fffffffff0f00f00f0f0ffff000000f0fffffffffffffff0f0f0fffff0f0f0f0ffffffffffff
000000000f0f00f0000f0f0f0f0f0fffff0f0f0fffff0f00ffff0000ffff0f0f000f0f0f0000ffff0f0f0fff0f0fffffffff0f0fffffffff0f0fffffffffffff
00000000f0f000000000f0f0f0f0f0f0fff0f000fffff00fffff0000fff0f000f0f0f0ff0000ffff0000fffff0f0ffffffffffffffffffffffffffffffffffff
000000000000f0000f00000000000f00ffff0f0fffffff00ffff0000ffff00f0000f0fff0000ffff0f0f0fff000fffffffffffffffffffffffffffffffffffff
00000000f0f000000000f0f0f0f00000fffff0f0fffff0f0ffff0000fff0f000f0f0ffff0000ffff0000ffff00f0ffffffffffffffffffffffffffffffffffff
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000077777777000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000777777777700000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000777777777700000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000777777777700000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000777777777700000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000777777777700000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000777777777700000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000777777777700000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000777777777700000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000077777777000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000077700000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000077000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000070000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888880
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888880
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888880
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888880
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888880
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888880
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

__gff__
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__map__
0202020202010101010101010202020202000101010101010101010101010101010101010008090808080900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020202020201010101010101020202020200010101010101010101010101010101010101000908090809090000000000888400040504000a0a0a0b0a0b0a0b0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
02020101010101010101010102020202020001010101010101010101010101010101010100080908090809098c8c84008a8500050405050a0a0a0a0b0b0b0a0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202010101010101010101010202020202000202010101010101010101010101010103030009080908090909838381888e8d84040504050a0a0a0b0a0b0a0b0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202010101010101010101010202020202000202020101010101010101010101010303030000000000000000000000828b8781050405050a0a0a0a0b0b0b0a0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0101010101010202020201010202020101000202020201010101010101010101030303030706070000000000888c8400828100040504040a0a0a0b0a0b0a0b0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
01010101010102020202010101020201010002020202010101010101010101010303030306070600000000008a8f85000000000404040500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0101010101010202020201010101010101000202020201010101010101010101030303030d0d0d0000000000828381000000000505040500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0101010101010101020201010101010101000202020201010101010101010101030303031617160000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0101010101010101020201010101010101000202020201010101010101010101030303031716170000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202020201010101010101010202010102000202020201010101010101010101030303030000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202020202010101010101010202020202000202020201010101010101010101030303030000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202020202020102010101010202020202000202020201010101010101010101030303030000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202020202020202010101010102020202000202020101010101010101010101010303030000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202020202020202010101010102020202000202010101010101010101010101010103030000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202020202020202020101010102020202000101010101010101010101010101010101010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0202020202020202020101010102020202000101010101010101010101010101010101010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000101010101010101010101010101010101010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__sfx__
00020000313703137031660313503a7603a7703a7703a7703a7603a7603a7603a7503a7503a7503a7403a7403a7403a7303a7303a7303a7203a7203a7203a7103a7103a710397003970039700397003970039700
00080000344003440034400344003e4003e4003e4003e4000e4400e400164300d4001d4300d400244200d4000d4200d4000d4100c4100b4000a4000a400094000840008400074000740000400004000040000400
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
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__music__
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344