Compare text

Find the difference between two text files

Display

Layout

Real-time editorHide whitespace changesHide unchanged linesDisable line wrap

Diff precision

Syntax

Process

Diffchecker Desktop The most secure way to run Diffchecker. Get the Diffchecker Desktop app: your diffs never leave your computer!Get Desktop

Cliffside2

Created 2 hours agoDiff never expires

18 removals

Lines
Total
Removed

Characters
Total
Removed

To continue using this feature, upgrade to Diffchecker Pro View Pricing

1168 lines

10 additions

Lines
Total
Added

Characters
Total
Added

To continue using this feature, upgrade to Diffchecker Pro View Pricing

1160 lines

pico-8 cartridge // http://www.pico-8.com

version 43

__lua__

-- cliffside 2 long

-- by leo22344

level_index,level_intro=0,0

function game_start()

-- reset state

snow,clouds,

freeze_time,frames,seconds,minutes,shake,sfx_timer,

berry_count,death_count,

collected,show_score,

camera_x,camera_y,

have_grapple=

{},{},

0,0,0,0,0,0,

0,0,

{},0,

0,0,

true

for i=0,25 do

add(snow,{x=rnd(132),y=rnd(132)})

add(clouds,{x=rnd(132),y=rnd(132),s=16+rnd(32)})

end

-- goto titlescreen or level

if level_index==0 then

current_music=38

music(current_music)

else

goto_level(level_index)

end

function _init()

game_start()

--goto_level(14)

end

function _update()

-- titlescreen

if level_index==0 then

if titlescreen_flash then

titlescreen_flash-=1

if titlescreen_flash<-30 then goto_level(1) end

elseif btn(4) or btn(5) then

titlescreen_flash=50

sfx(22,3)

end

-- level intro card

elseif level_intro>0 then

level_intro-=1

if level_intro==0 then psfx(17,24,9) end

-- normal level

else

-- timers

sfx_timer=max(sfx_timer-1)

infade=min(infade+1,60)

shake=max(shake-1)

if level_index~=8 and level_index~=14 then

frames+=1

seconds+=frames\30

minutes+=seconds\60

seconds%=60

frames%=30

end

update_input()

--freeze

if freeze_time>0 then

freeze_time-=1

else

--objects

for o in all(objects) do

if o.freeze>0 then

o.freeze-=1

else

o:update()

end

if o.destroyed then

del(objects,o)

end

function _draw()

pal()

if level_index==0 then

cls(0)

if titlescreen_flash then

local c=titlescreen_flash>10 and (titlescreen_flash%10<5 and 7 or 10) or titlescreen_flash>5 and 2 or titlescreen_flash>0 and 1 or 0

if c<10 then for i=0,15 do pal(i,c) end end

end

sspr(64,32,64,32,36,32)

local icoy=titlescreen_flash and (50-titlescreen_flash) or 0

spr(114, 114, 118+icoy)

rect(0,0,127,127,7)

print_center("mod by",70,1)

print_center("mod by",4,1)

print_center("rubyred",77,5)

print_center("leo22344",11,5)

print_center("inspired by a mod by",18,1)

print_center("✽calverin✽", 26, 9)

print_center("llllllllllllllllllllllllllllllllllllloong",65,14)

print_center("mod of a mod by",72,1)

print_center("rubyred",79,5)

print_center("original game by",88,1)

print_center("maddy thorson",95,5)

print_center("noel berry",102,5)

print_center("lena raine",109,5)

draw_snow()

return

end

if level_intro>0 then

cls()

camera()

draw_time(4,4)

if level_index>8 then

local d=level_intro==60 and level_index==9 and "\^d3" or ""

local d2=level_intro==60 and level_index==9 and "\^4" or ""

print("\^i"..d.."black diamond"..d2,37,56, 7)

end

print_center(level.title,64,7)

return

end

local camera_x,camera_y=peek2(0x5f28),peek2(0x5f2a)

if shake>0 then

camera(camera_x-2+rnd(5),camera_y-2+rnd(5))

end

-- clear screen

cls(level and level.bg or 0)

-- draw clouds

draw_clouds(1,0,0,1,1,level.clouds or 13,#clouds)

-- columns

if level.columns then

fillp(0b0000100000000010.1)

local x=0

while x<level.width do

local tx=x*8+camera_x*0.1

rectfill(tx,0,tx+(x%2)*8+8,level.height*8,level.columns)

x+=1+x%7

end

fillp()

end

-- draw tileset

for x=mid(0,camera_x\8,level.width),mid(0,(camera_x+128)\8,level.width) do

for y=mid(0,camera_y\8,level.height),mid(0,(camera_y+128)\8,level.height) do

local tile=tile_at(x,y)

if level.pal and fget(tile,7) then level.pal() end

if tile~=0 and fget(tile,0) then spr(tile,x*8,y*8) end

pal() palt()

end

-- score

if show_score>175 then

local off=level_index==14 and 40 or 0

local b=level_index==14 and 10 or 7

rectfill(34,5+off,98,47+off,1)

rectfill(32,3+off,96,45+off,0)

rect(32,3+off,96,45+off,b)

local gb=level_index==8 and berry_count==8 and 115 or level_index==14 and 115 or 21

local gt=minutes<1 and 116 or minutes==1 and seconds<30 and 116 or berry_count==8 and minutes<2 and 116 or level_index==14 and minutes<10 and 116 or 87

local gd=death_count<=0 and 117 or 71

spr(gb,44,9+off)

?"x "..berry_count..(level_index==8 and "/8" or ""),56,11+off,7

spr(gt,44,21+off)

draw_time(56,21+off)

spr(gd,44,33+off)

?"x "..death_count,56,34+off,7

end

for o in all(objects) do

if o.base==player and o.draw_back then o:draw() end

end

-- draw objects

local p

for o in all(objects) do

if o.base==player then p=o else o:draw() end

end

if p and not p.draw_back then p:draw() end

-- draw snow

draw_snow()

-- draw fg clouds

if level.fogmode then

if level.fogmode==1 then fillp(0b0101101001011010.1) end

draw_clouds(1.25,0,level.height*8+10,1,0,7,#clouds-10)

fillp()

end

camera()

-- screen wipes

-- very similar functions ... can they be compressed into one?

if p and p.wipe_timer>5 then

for i=0,127 do

rectfill(0,i,191*(p.wipe_timer-5)/12-32+sin(i*0.2)*16+(127-i)*0.25,i,0)

end

if infade<15 then

for i=0,127 do

rectfill(191*infade/12-32+sin(i*0.2)*16+(127-i)*0.25,i,128,i,0)

end

-- game timer

if infade<45 then

draw_time(4,4)

end

camera(camera_x,camera_y)

end

function draw_time(x,y)

local m,h=minutes%60,minutes\60

rectfill(x,y,x+32,y+6,0)

?two_digit_str(h)..":"..two_digit_str(m)..":"..two_digit_str(seconds),x+1,y+1,7

end

function two_digit_str(x)

return x<10 and "0"..x or x

end

function draw_clouds(scale,ox,oy,sx,sy,color,count)

for i=1,count do

local c=clouds[i]

local s=c.s*scale

local x,y=ox+(camera_x+(c.x-camera_x*0.9)%(128+s)-s/2)*sx,oy+(camera_y+(c.y-camera_y*0.9)%(128+s/2))*sy

clip(x-s/2-camera_x,y-s/2-camera_y,s,s/2)

circfill(x,y,s/3,color)

if i%2==0 then

circfill(x-s/3,y,s/5,color)

circfill(x+s/3,y,s/6,color)

end

c.x+=(4-i%4)*0.25

end

clip(0,0,128,128)

end

function draw_snow()

for i,s in pairs(snow) do

circfill(camera_x+(s.x-camera_x*0.5)%132-2,camera_y+(s.y-camera_y*0.5)%132,i%2,7)

s.x+=4-i%4

s.y+=sin(time()*0.25+i*0.1)

end

function print_center(text,y,c)

?text,64-2*#text-0.5,y,c

end

function approach(x,target,max_delta)

return x<target and min(x+max_delta,target) or max(x-max_delta,target)

end

function psfx(id,off,len,lock)

if sfx_timer<=0 or lock then

sfx(id,3,off,len)

if lock then sfx_timer=lock end

end

function draw_sine_h(x0,x1,y,col,amplitude,time_freq,x_freq,fade_x_dist)

pset(x0,y,col)

pset(x1,y,col)

local x_sign,x_max,last_y,this_y=sgn(x1-x0),abs(x1-x0)-1,y

for i=1,x_max do

local fade=i<=fade_x_dist and i/(fade_x_dist+1) or i>x_max-fade_x_dist+1 and (x_max+1-i)/(fade_x_dist+1) or 1

local ax,ay=x0+i*x_sign,y+sin(time()*time_freq+i*x_freq)*amplitude*fade

pset(ax,ay+1,1)

pset(ax,ay,col)

this_y=ay

while abs(ay-last_y)>1 do

ay-=sgn(this_y-last_y)

pset(ax-x_sign,ay+1,1)

pset(ax-x_sign,ay,col)

end

last_y=this_y

end

function bdpal() pal(1,1) pal(2,13) pal(5,5) end

levels={

{

x=0,

y=0,

offset=0,

width=32,

height=16,

camera_mode=0,

music=38,

{

x=32,

y=0,

offset=343,

width=48,

height=19,

camera_mode=1,

music=36

{

x=64,

y=19,

width=16,

height=29,

camera_mode=0,

title="ruins",

index=1

{

x=80,

y=0,

width=16,

height=16,

camera_mode=0

{

x=96,

y=0,

width=32,

height=16,

camera_mode=0

{

x=96,

y=16,

width=32,

height=48,

camera_mode=2,

title="ravine",

index=2,

music=2,

columns=1,

{

x=16,

y=48,

width=80,

height=16,

camera_mode=0,

title="tundra",

index=3,

pal=function() pal(1,13) pal(2,14) pal(5,2) end,

bg=13,

clouds=15,

fogmode=1

{

x=80,

y=16,

width=16,

height=16,

camera_mode=0,

right_edge=true,

title="safe haven",

pal=function() pal(1,13) pal(2,14) pal(5,2) end,

bg=13,

clouds=15,

fogmode=1

{

x=0,

y=32,

width=32,

height=16,

camera_mode=0,

title="dangerous overhang",

music=45,

pal=bdpal,

clouds=1,

fogmode=2

{

x=0,

y=16,

width=32,

height=16,

camera_mode=0,

title="glacial pillars",

pal=bdpal,

clouds=1

{

x=0,

y=48,

width=16,

height=16,

camera_mode=0,

title="cave-in",

pal=bdpal,

clouds=1

{

x=32,

y=19,

width=16,

height=29,

camera_mode=0,

title="beyond juggling",

pal=bdpal,

clouds=1

{

x=48,

y=19,

width=16,

height=29,

camera_mode=0,

title="frustration",

pal=bdpal,

clouds=1

{

x=80,

y=32,

width=16,

height=16,

camera_mode=0,

right_edge=true,

title="shattered summit",

pal=bdpal,

clouds=1

}

--[[

{

offset=679,

width=128,

height=22,

camera_mode=3,

camera_barriers_x={38},

camera_barrier_y=6,

music=2,

title="trailhead"

{

offset=1313,

width=128,

height=32,

camera_mode=4,

music=2,

title = "glacial caves",

pal=function() pal(2,12) pal(5,2) end,

columns = 1

{

offset=2411,

width=128,

height=16,

camera_mode=5,

music=2,

title="golden valley",

pal=function() pal(2,14) pal(5,2) end,

bg=13,

clouds=15,

fogmode=2

{

offset=2645,

width=128,

height=16,

camera_mode=6,

camera_barriers_x={105},

music=2,

pal=function() pal(2,14) pal(5,2) end,

bg=13,

clouds=15,

fogmode=2

{

offset=2880,

width=128,

height=16,

camera_mode=7,

music=2,

pal=function() pal(2,12) pal(5,2) end,

bg=13,

clouds=7,

fogmode=2,

{

offset=3079,

width=16,

height=62,

title="destination",

camera_mode=8,

music=2,

pal=function() pal(2, 1) pal(7, 11) end,

bg=15,

clouds=7,

fogmode=2,

right_edge=true

}

--]]

}

function camera_x_barrier(tile_x,px,py)

local bx=tile_x*8

if px<bx-8 then

camera_target_x=min(camera_target_x,bx-128)

elseif px>bx+8 then

camera_target_x=max(camera_target_x,bx)

end

c_offset=0

camera_modes={

-- 0: free

[0]=function(px,py)

camera_target_x,camera_target_y=mid(px-64,0,level.width*8-128),mid(py-64,0,level.height*8-128)

end,

-- 1: intro

function (px,py)

camera_target_x=(py > 24 and px<256) and mid(px-64,0,128) or (py <= 24) and mid(px-64,0,256) or 256

camera_target_y=py > 24 and 24 or 0

end,

-- 2: intro 2

function (px,py)

camera_target_x=px < 128 and 0 or 128

camera_target_y=mid(py-64,0,level.height*8-128)

end,

-- 3: level 1

function (px,py)

camera_target_x,camera_target_y=mid(px-56,0,level.width*8-128),py<level.camera_barrier_y*8+3 and 0 or level.camera_barrier_y*8

for i,b in ipairs(level.camera_barriers_x) do

camera_x_barrier(b,px,py)

end

end,

-- 4: level 2

function (px,py)

if px%128>8 and px%128<120 then

px=(px\128)*128+64

end

if py%128>4 and py%128<124 then

py=(py\128)*128+64

end

camera_target_x,camera_target_y=mid(px-64,0,level.width*8-128),mid(py-64,0,level.height*8-128)

end

}

function snap_camera()

camera_x,camera_y=camera_target_x,camera_target_y

camera(camera_x,camera_y)

end

function tile_y(py)

return mid(py\8,0,level.height-1)--max(0,min(py\8,level.height-1))

end

function goto_level(index)

-- set level

level,level_index,level_checkpoint=levels[index],index,nil

if level.title then

level_intro=60

end

if level_index==2 then

psfx(17,8,16)

end

-- start music

if current_music~=level.music and level.music then

current_music=level.music

music(level.music)

end

-- load level contents

restart_level()

end

function next_level()

level_index+=1

goto_level(level_index)

end

function restart_level()

camera_x,camera_y,camera_target_x,camera_target_y,

objects,

infade,have_grapple,sfx_timer=

0,0,0,0,

{},

0,level_index>2,0

for i=0,level.width-1 do

for j=0,level.height-1 do

local t=types[tile_at(i,j)]

if t and not collected[id(i,j)] and (not level_checkpoint or t~=player) then

create(t,i*8,j*8)

end

-- gets the tile at the given location from the loaded level

function tile_at(x,y)

return x<0 or y<0 or x>=level.width or y>=level.height and 0 or mget(level.x+x,level.y+y)--peek(0x4300+x+y*level.width)

end

input_x,input_jump_pressed,input_grapple_pressed,axis_x_value=0,0,0,0

function update_input()

-- axes

local prev_x=axis_x_value

if btn(0) then

if btn(1) then

if axis_x_turned then

axis_x_value,input_x=prev_x,prev_x

else

axis_x_turned,axis_x_value,input_x=true,-prev_x,-prev_x

end

else

axis_x_turned,axis_x_value,input_x=false,-1,-1

end

else

local b=btn(1) and 1 or 0

axis_x_turned,axis_x_value,input_x=false,b,b

end

-- input_jump

local jump=btn(4)

input_jump_pressed,input_jump=jump and not input_jump and 4 or jump and max(0,input_jump_pressed-1) or 0,jump

-- input_grapple

local grapple=btn(5)

input_grapple_pressed,input_grapple=grapple and not input_grapple and 4 or grapple and max(0,input_grapple_pressed-1) or 0,grapple

end

function consume_jump_press()

local val=input_jump_pressed>0

input_jump_pressed=0

return val

end

function consume_grapple_press()

local val=input_grapple_pressed>0

input_grapple_pressed=0

return val

end

objects,types,lookup={},{},{}

function lookup.__index(self, i) return self.base[i] end

object = {

speed_x=0,

speed_y=0,

remainder_x=0,

remainder_y=0,

hit_x=0,

hit_y=0,

hit_w=8,

hit_h=8,

grapple_mode=0,

hazard=0,

facing=1,

freeze=0

}

function object.move_x(self,x,on_collide)

self.remainder_x+=x

local mx=flr(self.remainder_x+0.5)

self.remainder_x-=mx

local total,mxs=mx,sgn(mx)

while mx~=0

if self:check_solid(mxs,0) then

if on_collide then

return on_collide(self,total-mx,total)

end

return true

else

self.x+=mxs

mx-=mxs

end

function object.move_y(self,y,on_collide)

self.remainder_y+=y

local my=flr(self.remainder_y+0.5)

self.remainder_y-=my

local total,mys=my,sgn(my)

local mys=sgn(my)

while my~=0

if self:check_solid(0,mys) then

if on_collide then

return on_collide(self,total-my,total)

end

return true

else

self.y+=mys

my-=mys

end

function object.on_collide_x(self,moved,target)

self.remainder_x,self.speed_x=0,0

return true

end

function object.on_collide_y(self,moved,target)

self.remainder_y,self.speed_y=0,0

return true

end

function object.update() end

function object.draw(self)

spr(self.spr,self.x,self.y,1,1,self.flip_x,self.flip_y)

end

function object.overlaps(self,b,ox,oy)

if self==b then return end

ox,oy=ox or 0,oy or 0

return

ox+self.x+self.hit_x+self.hit_w>b.x+b.hit_x and

oy+self.y+self.hit_y+self.hit_h>b.y+b.hit_y and

ox+self.x+self.hit_x<b.x+b.hit_x+b.hit_w and

oy+self.y+self.hit_y<b.y+b.hit_y+b.hit_h

end

function object.contains(self,px,py)

return

px>=self.x+self.hit_x and

px<self.x+self.hit_x+self.hit_w and

py>=self.y+self.hit_y and

py<self.y+self.hit_y+self.hit_h

end

function object.check_solid(self, ox, oy)

ox,oy=ox or 0,oy or 0

for i=(ox+self.x+self.hit_x)\8,(ox+self.x+self.hit_x+self.hit_w-1)\8 do

for j=tile_y(oy+self.y+self.hit_y),tile_y(oy+self.y+self.hit_y+self.hit_h-1) do

if fget(tile_at(i,j),1) then

return true

end

for o in all(objects) do

if o.solid and o~=self and not o.destroyed and self:overlaps(o, ox, oy) then

return true

end

function object.corner_correct(self,dir_x,dir_y,side_dist,look_ahead,only_sign,func)

look_ahead,only_sign=look_ahead or 1,only_sign or 1

if dir_x~=0 then

for i=1,side_dist do

for s=1,-2,-2 do

if s==-only_sign then

goto continue_x

end

if not self:check_solid(dir_x,i*s) and (not func or func(self,dir_x,i*s)) then

self.x+=dir_x

self.y+=i*s

return true

end

::continue_x::

end

elseif dir_y~=0 then

for i=1,side_dist do

for s=1,-1,-2 do

if s==-only_sign then

goto continue_y

end

if not self:check_solid(i*s,dir_y) and (not func or func(self,i*s,dir_y)) then

self.x+=i*s

self.y+=dir_y

return true

end

::continue_y::

end

function id(tx,ty) return level_index*100+flr(tx)+flr(ty)*128 end

function create(type,x,y)

local obj=setmetatable({

base=type,

x=x,

y=y,

id=id(x\8,y\8)

},lookup)

add(objects, obj);

(obj.init or stat)(obj)

return obj

end

function new_type(spr)

local obj=setmetatable({

spr=spr,

base=object

},lookup)

types[spr]=obj--add(types, obj)

return obj

end

grapple_pickup=new_type(20)

function grapple_pickup.draw(self)

spr(self.spr,self.x,self.y+sin(time())*2,1,1,not self.right)

end

spike_v=new_type(36)

function spike_v.init(self)

if not self:check_solid(0,1) then

self.flip_y,self.hazard=true,3

else

self.hit_y,self.hazard=5,2

end

self.hit_h = 3

end

spike_h=new_type(37)

function spike_h.init(self)

if self:check_solid(-1,0) then

self.flip_x,self.hazard=true,4

else

self.hit_x,self.hazard=5,5

end

self.hit_w=3

end

snowball=new_type(62)

snowball.grapple_mode,snowball.thrown_timer,snowball.hp=3,0,6

function snowball.update(self)

if not self.held then

self.thrown_timer -= 1

--speed

if self.stop then

self.speed_x=approach(self.speed_x,0,0.25)

if self.speed_x==0 then

self.stop=false

end

else

if self.speed_x~=0 then

self.speed_x=approach(self.speed_x,sgn(self.speed_x)*2,0.1)

end

--gravity

if not self:check_solid(0,1) then

self.speed_y=approach(self.speed_y,4,0.4)

end

--apply

self:move_x(self.speed_x,self.on_collide_x)

self:move_y(self.speed_y,self.on_collide_y)

--bounds

if self.y>level.height*8+24 then

self.destroyed=true

end

function snowball.on_collide_x(self,moved,total)

if self:corner_correct(sgn(self.speed_x),0,2,2,1) then

return

end

if self:hurt() then

return true

end

self.speed_x*=-1

self.remainder_x,self.freeze=0,1

psfx(17,0,2)

return true

end

function snowball.on_collide_y(self)--,moved,total)

if self.speed_y>=4 then

self.speed_y=-2

psfx(17,0,2)

elseif self.speed_y>=1 then

self.speed_y=-1

psfx(17,0,2)

else

self.speed_y=0

end

self.remainder_y=0

return true

end

function snowball.on_release(self,thrown)

if not thrown then

self.stop=true

end

self.thrown_timer=8

end

function snowball.hurt(self)

--self.hp-=1

if self.hp<=0 then

psfx(8,16,4)

self.destroyed=true

return true

end

function snowball.bounce_overlaps(self,o)

if self.speed_x~=0 then

self.hit_w,self.hit_x=12,-2

local ret=self:overlaps(o)

self.hit_w,self.hit_x=8,0

return ret

end

return self:overlaps(o)

end

function snowball.contains(self,px,py)

return px>=self.x and px<self.x+8 and py>=self.y-1 and py<self.y+10

end

function snowball.draw(self)

pal(7,1)

spr(self.spr,self.x,self.y+1)

pal()

spr(self.spr,self.x,self.y)

end

springboard=new_type(11)

springboard.grapple_mode,springboard.thrown_timer=3,0

function springboard.update(self)

if not self.held then

self.thrown_timer-=1

--friction and gravity

if self:check_solid(0,1) then

self.speed_x=approach(self.speed_x,0,1)

else

self.speed_x=approach(self.speed_x,0,0.2)

self.speed_y=approach(self.speed_y,4,0.4)

end

--apply

self:move_x(self.speed_x,self.on_collide_x)

self:move_y(self.speed_y,self.on_collide_y)

if self.player then

self.player:move_y(self.speed_y)

end

self.destroyed=self.y>level.height*8+24

end

function springboard.on_collide_x(self,moved,total)

self.speed_x*=-0.2

self.remainder_x,self.freeze=0,1

return true

end

function springboard.on_collide_y(self,moved,total)

if self.speed_y<0 then

self.speed_y,self.remainder_y=0,0

return true

end

if self.speed_y>=2 then

self.speed_y*=-0.4

else

self.speed_y=0

end

self.remainder_y=0

self.speed_x*=0.5

return true

end

function springboard.on_release(self,thrown)

if thrown then

self.thrown_timer=5

end

grappler=new_type(46)

grappler.grapple_mode,grappler.hit_x,grappler.hit_y,grappler.hit_w,grappler.hit_h=2,-1,-1,10,10

berry=new_type(21)

function berry.update(self)

if self.collected then

self.timer+=1

self.y-=0.2*(self.timer > 5 and 1 or 0)

self.destroyed=self.timer > 30

elseif self.player then

self.x+=(self.player.x-self.x)/8

self.y+=(self.player.y-4-self.y)/8

self.flash-=1

if self.player:check_solid(0,1) and self.player.state~=99 then self.ground+=1 else self.ground=0 end

if self.ground>3 or self.player.x>level.width*8-7 or self.player.last_berry~=self then

psfx(8,8,8,20)

collected[self.id]=true

berry_count+=1

self.collected,self.timer,self.draw=true,0,score

end

function berry.collect(self,player)

Saved diffs

Original text

Open file

pico-8 cartridge // http://www.pico-8.com
version 43
__lua__
level_index,level_intro=0,0

function game_start()
  
  -- reset state
  snow,clouds,
  freeze_time,frames,seconds,minutes,shake,sfx_timer,
  berry_count,death_count,
  collected,show_score,
  camera_x,camera_y,
  have_grapple=
  {},{},
  0,0,0,0,0,0,
  0,0,
  {},0,
  0,0,
  true

for i=0,25 do 
    add(snow,{x=rnd(132),y=rnd(132)})
    add(clouds,{x=rnd(132),y=rnd(132),s=16+rnd(32)})
  end

-- goto titlescreen or level
  if level_index==0 then
    current_music=38
    music(current_music)
  else
    goto_level(level_index)
  end
end

function _init()
  game_start()
  --goto_level(14)
end

function _update()

-- titlescreen
  if level_index==0 then
    if titlescreen_flash then
      titlescreen_flash-=1
      if titlescreen_flash<-30 then goto_level(1) end
    elseif btn(4) or btn(5) then
      titlescreen_flash=50
      sfx(22,3)
    end
  -- level intro card
  elseif level_intro>0 then
    level_intro-=1
    if level_intro==0 then psfx(17,24,9) end
  -- normal level
  else
    -- timers
    sfx_timer=max(sfx_timer-1)
    infade=min(infade+1,60)
    shake=max(shake-1)
    if level_index~=8 and level_index~=14 then
      frames+=1
      seconds+=frames\30
      minutes+=seconds\60
      seconds%=60
      frames%=30
    end

update_input()

--freeze
    if freeze_time>0 then
      freeze_time-=1
    else
      --objects
      for o in all(objects) do
        if o.freeze>0 then
          o.freeze-=1
        else
          o:update()
        end
        if o.destroyed then
          del(objects,o)
        end
      end
    end
  end
end

function _draw()
  pal()
  if level_index==0 then
    cls(0)
    if titlescreen_flash then
      local c=titlescreen_flash>10 and (titlescreen_flash%10<5 and 7 or 10) or titlescreen_flash>5 and 2 or titlescreen_flash>0 and 1 or 0
      if c<10 then for i=0,15 do pal(i,c) end end
    end
    sspr(64,32,64,32,36,32)
    local icoy=titlescreen_flash and (50-titlescreen_flash) or 0
    spr(114, 114, 118+icoy)
    rect(0,0,127,127,7)
    print_center("mod by",70,1)
    print_center("rubyred",77,5)
    print_center("original game by",88,1)
    print_center("maddy thorson",95,5)
    print_center("noel berry",102,5)
    print_center("lena raine",109,5)
    draw_snow()
    return
  end

if level_intro>0 then
    cls()
    camera()
    draw_time(4,4)
    if level_index>8 then
    		local d=level_intro==60 and level_index==9 and "\^d3" or ""
    		local d2=level_intro==60 and level_index==9 and "\^4" or ""
      print("\^i"..d.."black diamond"..d2,37,56, 7)
    end
    print_center(level.title,64,7)
    return
  end

local camera_x,camera_y=peek2(0x5f28),peek2(0x5f2a)

if shake>0 then
    camera(camera_x-2+rnd(5),camera_y-2+rnd(5))
  end

-- clear screen
  cls(level and level.bg or 0)

-- draw clouds
  draw_clouds(1,0,0,1,1,level.clouds or 13,#clouds)

-- columns
  if level.columns then
    fillp(0b0000100000000010.1)
    local x=0
    while x<level.width do
      local tx=x*8+camera_x*0.1
      rectfill(tx,0,tx+(x%2)*8+8,level.height*8,level.columns)
      x+=1+x%7
    end
    fillp()
  end

-- draw tileset
  for x=mid(0,camera_x\8,level.width),mid(0,(camera_x+128)\8,level.width) do
    for y=mid(0,camera_y\8,level.height),mid(0,(camera_y+128)\8,level.height) do
      local tile=tile_at(x,y)
      if level.pal and fget(tile,7) then level.pal() end
      if tile~=0 and fget(tile,0) then spr(tile,x*8,y*8) end
      pal() palt()
    end
  end

-- score
  if show_score>175 then
  		local off=level_index==14 and 40 or 0
    local b=level_index==14 and 10 or 7
    rectfill(34,5+off,98,47+off,1)
    rectfill(32,3+off,96,45+off,0)
    rect(32,3+off,96,45+off,b)
    local gb=level_index==8 and berry_count==8 and 115 or level_index==14 and 115 or 21
    local gt=minutes<1 and 116 or minutes==1 and seconds<30 and 116 or berry_count==8 and minutes<2 and 116 or level_index==14 and minutes<10 and 116 or 87
    local gd=death_count<=0 and 117 or 71
    spr(gb,44,9+off)
    ?"x "..berry_count..(level_index==8 and "/8" or ""),56,11+off,7
    spr(gt,44,21+off)
    draw_time(56,21+off)
    spr(gd,44,33+off)
    ?"x "..death_count,56,34+off,7
  end

for o in all(objects) do
    if o.base==player and o.draw_back then o:draw() end
  end

-- draw objects
  local p
  for o in all(objects) do
    if o.base==player then p=o else o:draw() end
  end
  if p and not p.draw_back then p:draw() end

-- draw snow
  draw_snow()

-- draw fg clouds
  if level.fogmode then
    if level.fogmode==1 then fillp(0b0101101001011010.1) end
    draw_clouds(1.25,0,level.height*8+10,1,0,7,#clouds-10)
    fillp()
  end

camera()

-- screen wipes
  -- very similar functions ... can they be compressed into one?
  if p and p.wipe_timer>5 then
    for i=0,127 do
      rectfill(0,i,191*(p.wipe_timer-5)/12-32+sin(i*0.2)*16+(127-i)*0.25,i,0)
    end
  end

if infade<15 then
    for i=0,127 do
      rectfill(191*infade/12-32+sin(i*0.2)*16+(127-i)*0.25,i,128,i,0)
    end
  end

-- game timer
  if infade<45 then
    draw_time(4,4)
  end

camera(camera_x,camera_y)
end

function draw_time(x,y)
  local m,h=minutes%60,minutes\60
  rectfill(x,y,x+32,y+6,0)
  ?two_digit_str(h)..":"..two_digit_str(m)..":"..two_digit_str(seconds),x+1,y+1,7
end

function two_digit_str(x)
  return x<10 and "0"..x or x
end

function draw_clouds(scale,ox,oy,sx,sy,color,count)
  for i=1,count do
    local c=clouds[i]
    local s=c.s*scale
    local x,y=ox+(camera_x+(c.x-camera_x*0.9)%(128+s)-s/2)*sx,oy+(camera_y+(c.y-camera_y*0.9)%(128+s/2))*sy
    clip(x-s/2-camera_x,y-s/2-camera_y,s,s/2)
    circfill(x,y,s/3,color)
    if i%2==0 then
      circfill(x-s/3,y,s/5,color)
      circfill(x+s/3,y,s/6,color)
    end
    c.x+=(4-i%4)*0.25
  end
  clip(0,0,128,128)
end

function draw_snow()
  for i,s in pairs(snow) do
    circfill(camera_x+(s.x-camera_x*0.5)%132-2,camera_y+(s.y-camera_y*0.5)%132,i%2,7)
    s.x+=4-i%4
    s.y+=sin(time()*0.25+i*0.1)
  end
end

function print_center(text,y,c)
  ?text,64-2*#text-0.5,y,c
end

function approach(x,target,max_delta)
  return x<target and min(x+max_delta,target) or max(x-max_delta,target)
end

function psfx(id,off,len,lock)
  if sfx_timer<=0 or lock then
    sfx(id,3,off,len)
    if lock then sfx_timer=lock end
  end
end

function draw_sine_h(x0,x1,y,col,amplitude,time_freq,x_freq,fade_x_dist)
  pset(x0,y,col)
  pset(x1,y,col)
  local x_sign,x_max,last_y,this_y=sgn(x1-x0),abs(x1-x0)-1,y
  for i=1,x_max do
    local fade=i<=fade_x_dist and i/(fade_x_dist+1) or i>x_max-fade_x_dist+1 and (x_max+1-i)/(fade_x_dist+1) or 1
    local ax,ay=x0+i*x_sign,y+sin(time()*time_freq+i*x_freq)*amplitude*fade
    pset(ax,ay+1,1)
    pset(ax,ay,col)
    this_y=ay
    while abs(ay-last_y)>1 do
      ay-=sgn(this_y-last_y)
      pset(ax-x_sign,ay+1,1)
      pset(ax-x_sign,ay,col)
    end
    last_y=this_y
  end
end

function bdpal() pal(1,1) pal(2,13) pal(5,5) end

levels={
  {
    x=0,
    y=0,
    offset=0,
    width=32,
    height=16,
    camera_mode=0,
    music=38,
  },
  {
    x=32,
    y=0,
    offset=343,
    width=48,
    height=19,
    camera_mode=1,
    music=36
  },
  {
  		x=64,
  		y=19,
  		width=16,
  		height=29,
  		camera_mode=0,
  		title="ruins",
  		index=1
  },
  {
  		x=80,
  		y=0,
  		width=16,
  		height=16,
  		camera_mode=0
  },
  {
  		x=96,
  		y=0,
  		width=32,
  		height=16,
  		camera_mode=0
  },
  {
  		x=96,
  		y=16,
  		width=32,
  		height=48,
  		camera_mode=2,
  		title="ravine",
  		index=2,
  		music=2,
  		columns=1,
  },
  {
  		x=16,
  		y=48,
  		width=80,
  		height=16,
  		camera_mode=0,
  		title="tundra",
  		index=3,
  		pal=function() pal(1,13) pal(2,14) pal(5,2) end,
    bg=13,
    clouds=15,
    fogmode=1
  },
  {
  		x=80,
  		y=16,
  		width=16,
  		height=16,
  		camera_mode=0,
  		right_edge=true,
  		title="safe haven",
  		pal=function() pal(1,13) pal(2,14) pal(5,2) end,
    bg=13,
    clouds=15,
    fogmode=1
  },
  {
  		x=0,
  		y=32,
  		width=32,
  		height=16,
  		camera_mode=0,
  		title="dangerous overhang",
  		music=45,
  		pal=bdpal,
				clouds=1,
  		fogmode=2
  },
  {
  		x=0,
  		y=16,
  		width=32,
  		height=16,
  		camera_mode=0,
  		title="glacial pillars",
  		pal=bdpal,
				clouds=1
  },
  {
  		x=0,
  		y=48,
  		width=16,
  		height=16,
  		camera_mode=0,
  		title="cave-in",
  		pal=bdpal,
				clouds=1
  },
  {
  		x=32,
  		y=19,
  		width=16,
  		height=29,
  		camera_mode=0,
  		title="beyond juggling",
  		pal=bdpal,
				clouds=1
  },
  {
  		x=48,
  		y=19,
  		width=16,
  		height=29,
  		camera_mode=0,
  		title="frustration",
  		pal=bdpal,
				clouds=1
  },
  {
  		x=80,
  		y=32,
  		width=16,
  		height=16,
  		camera_mode=0,
  		right_edge=true,
  		title="shattered summit",
  		pal=bdpal,
				clouds=1
  }
  --[[
  {
    offset=679,
    width=128,
    height=22,
    camera_mode=3,
    camera_barriers_x={38},
    camera_barrier_y=6,
    music=2,
    title="trailhead"
  },
  {
    offset=1313,
    width=128,
    height=32,
    camera_mode=4,
    music=2,
    title = "glacial caves",
    pal=function() pal(2,12) pal(5,2) end,
    columns = 1
  },
  {
    offset=2411,
    width=128,
    height=16,
    camera_mode=5,
    music=2,
    title="golden valley",
    pal=function() pal(2,14) pal(5,2) end,
    bg=13,
    clouds=15,
    fogmode=2
  },
  {
    offset=2645,
    width=128,
    height=16,
    camera_mode=6,
    camera_barriers_x={105},
    music=2,
    pal=function() pal(2,14) pal(5,2) end,
    bg=13,
    clouds=15,
    fogmode=2
  },
  {
    offset=2880,
    width=128,
    height=16,
    camera_mode=7,
    music=2,
    pal=function() pal(2,12) pal(5,2) end,
    bg=13,
    clouds=7,
    fogmode=2,
  },
  {
    offset=3079,
    width=16,
    height=62,
    title="destination",
    camera_mode=8,
    music=2,
    pal=function() pal(2, 1) pal(7, 11) end,
    bg=15,
    clouds=7,
    fogmode=2,
    right_edge=true
  }
  --]]
}

function camera_x_barrier(tile_x,px,py)
  local bx=tile_x*8
  if px<bx-8 then
    camera_target_x=min(camera_target_x,bx-128)
  elseif px>bx+8 then
    camera_target_x=max(camera_target_x,bx)
  end
end

c_offset=0
camera_modes={
    -- 0: free
    [0]=function(px,py)
      camera_target_x,camera_target_y=mid(px-64,0,level.width*8-128),mid(py-64,0,level.height*8-128)
    end,
    -- 1: intro
    function (px,py)
      camera_target_x=(py > 24 and px<256) and mid(px-64,0,128) or (py <= 24) and mid(px-64,0,256) or 256
      camera_target_y=py > 24 and 24 or 0
    end,
    -- 2: intro 2
    function (px,py)
    	camera_target_x=px < 128 and 0 or 128
    	camera_target_y=mid(py-64,0,level.height*8-128)
    end,
    -- 3: level 1
    function (px,py)
      camera_target_x,camera_target_y=mid(px-56,0,level.width*8-128),py<level.camera_barrier_y*8+3 and 0 or level.camera_barrier_y*8
      for i,b in ipairs(level.camera_barriers_x) do
        camera_x_barrier(b,px,py)
      end
    end,
    -- 4: level 2
    function (px,py)
      if px%128>8 and px%128<120 then
        px=(px\128)*128+64
      end
      if py%128>4 and py%128<124 then
        py=(py\128)*128+64
      end
      camera_target_x,camera_target_y=mid(px-64,0,level.width*8-128),mid(py-64,0,level.height*8-128)
    end
}

function snap_camera()
  camera_x,camera_y=camera_target_x,camera_target_y
  camera(camera_x,camera_y)
end

function tile_y(py)
  return mid(py\8,0,level.height-1)--max(0,min(py\8,level.height-1))
end

function goto_level(index)
  -- set level
  level,level_index,level_checkpoint=levels[index],index,nil

if level.title then
    level_intro=60
  end

if level_index==2 then 
    psfx(17,8,16)
  end

-- start music
  if current_music~=level.music and level.music then
    current_music=level.music
    music(level.music)
  end
  
  -- load level contents
  restart_level()
end

function next_level()
  level_index+=1
  goto_level(level_index)
end

function restart_level()
  camera_x,camera_y,camera_target_x,camera_target_y,
  objects,
  infade,have_grapple,sfx_timer=
  0,0,0,0,
  {},
  0,level_index>2,0

for i=0,level.width-1 do
    for j=0,level.height-1 do
      local t=types[tile_at(i,j)]
      if t and not collected[id(i,j)] and (not level_checkpoint or t~=player) then
        create(t,i*8,j*8)
      end
    end
  end
end

-- gets the tile at the given location from the loaded level
function tile_at(x,y)
  return x<0 or y<0 or x>=level.width or y>=level.height and 0 or mget(level.x+x,level.y+y)--peek(0x4300+x+y*level.width)
end

input_x,input_jump_pressed,input_grapple_pressed,axis_x_value=0,0,0,0

function update_input()
    -- axes
  local prev_x=axis_x_value
  if btn(0) then
    if btn(1) then
      if axis_x_turned then
        axis_x_value,input_x=prev_x,prev_x
      else
        axis_x_turned,axis_x_value,input_x=true,-prev_x,-prev_x
      end
    else
      axis_x_turned,axis_x_value,input_x=false,-1,-1
    end
  else
    local b=btn(1) and 1 or 0
    axis_x_turned,axis_x_value,input_x=false,b,b
  end
  -- input_jump
  local jump=btn(4)
  input_jump_pressed,input_jump=jump and not input_jump and 4 or jump and max(0,input_jump_pressed-1) or 0,jump
  -- input_grapple
  local grapple=btn(5)
  input_grapple_pressed,input_grapple=grapple and not input_grapple and 4 or grapple and max(0,input_grapple_pressed-1) or 0,grapple
end

function consume_jump_press()
  local val=input_jump_pressed>0
  input_jump_pressed=0
  return val
end

function consume_grapple_press()
  local val=input_grapple_pressed>0
  input_grapple_pressed=0
  return val
end

objects,types,lookup={},{},{}
function lookup.__index(self, i) return self.base[i] end

object = {
 speed_x=0,
 speed_y=0,
 remainder_x=0,
 remainder_y=0,
 hit_x=0,
 hit_y=0,
 hit_w=8,
 hit_h=8,
 grapple_mode=0,
 hazard=0,
 facing=1,
 freeze=0
}

function object.move_x(self,x,on_collide) 
  self.remainder_x+=x
  local mx=flr(self.remainder_x+0.5)
  self.remainder_x-=mx

local total,mxs=mx,sgn(mx)
  while mx~=0
  do
    if self:check_solid(mxs,0) then
      if on_collide then
        return on_collide(self,total-mx,total)
      end
      return true
    else
      self.x+=mxs
      mx-=mxs
    end
  end
end

function object.move_y(self,y,on_collide)
  self.remainder_y+=y
  local my=flr(self.remainder_y+0.5)
  self.remainder_y-=my
  
  local total,mys=my,sgn(my)
  local mys=sgn(my)
  while my~=0
  do
    if self:check_solid(0,mys) then
      if on_collide then
        return on_collide(self,total-my,total)
      end
      return true
    else
      self.y+=mys
      my-=mys
    end
  end
end

function object.on_collide_x(self,moved,target)
  self.remainder_x,self.speed_x=0,0
  return true
end

function object.on_collide_y(self,moved,target)
  self.remainder_y,self.speed_y=0,0
  return true
end

function object.update() end

function object.draw(self)
  spr(self.spr,self.x,self.y,1,1,self.flip_x,self.flip_y)
end

function object.overlaps(self,b,ox,oy)
  if self==b then return end
  ox,oy=ox or 0,oy or 0
  return
    ox+self.x+self.hit_x+self.hit_w>b.x+b.hit_x and
    oy+self.y+self.hit_y+self.hit_h>b.y+b.hit_y and
    ox+self.x+self.hit_x<b.x+b.hit_x+b.hit_w and
    oy+self.y+self.hit_y<b.y+b.hit_y+b.hit_h
end

function object.contains(self,px,py)
  return
    px>=self.x+self.hit_x and
    px<self.x+self.hit_x+self.hit_w and
    py>=self.y+self.hit_y and
    py<self.y+self.hit_y+self.hit_h
end

function object.check_solid(self, ox, oy)
  ox,oy=ox or 0,oy or 0
  for i=(ox+self.x+self.hit_x)\8,(ox+self.x+self.hit_x+self.hit_w-1)\8 do
    for j=tile_y(oy+self.y+self.hit_y),tile_y(oy+self.y+self.hit_y+self.hit_h-1) do
      if fget(tile_at(i,j),1) then
        return true
      end
    end
  end
  for o in all(objects) do
    if o.solid and o~=self and not o.destroyed and self:overlaps(o, ox, oy) then
      return true
    end
  end
end

function object.corner_correct(self,dir_x,dir_y,side_dist,look_ahead,only_sign,func)
  look_ahead,only_sign=look_ahead or 1,only_sign or 1
  if dir_x~=0 then
    for i=1,side_dist do
      for s=1,-2,-2 do
        if s==-only_sign then
          goto continue_x
        end
        if not self:check_solid(dir_x,i*s) and (not func or func(self,dir_x,i*s)) then
          self.x+=dir_x
          self.y+=i*s
          return true
        end
        ::continue_x::
      end
    end
  elseif dir_y~=0 then
    for i=1,side_dist do
      for s=1,-1,-2 do
        if s==-only_sign then
          goto continue_y
        end
        if not self:check_solid(i*s,dir_y) and (not func or func(self,i*s,dir_y)) then
          self.x+=i*s
          self.y+=dir_y
          return true
        end
        ::continue_y::
      end
    end
  end
end

function id(tx,ty) return level_index*100+flr(tx)+flr(ty)*128 end

function create(type,x,y)
  local obj=setmetatable({
    base=type,
    x=x,
    y=y,
    id=id(x\8,y\8)
  },lookup)
  add(objects, obj);
  (obj.init or stat)(obj)
  return obj
end

function new_type(spr)
  local obj=setmetatable({
    spr=spr,
    base=object
  },lookup)
  types[spr]=obj--add(types, obj)
  return obj
end

grapple_pickup=new_type(20)
function grapple_pickup.draw(self)
  spr(self.spr,self.x,self.y+sin(time())*2,1,1,not self.right)
end

spike_v=new_type(36)
function spike_v.init(self)
  if not self:check_solid(0,1) then
    self.flip_y,self.hazard=true,3
  else
    self.hit_y,self.hazard=5,2
  end
  self.hit_h = 3
end

spike_h=new_type(37)
function spike_h.init(self)
  if self:check_solid(-1,0) then
    self.flip_x,self.hazard=true,4
  else
    self.hit_x,self.hazard=5,5
  end
  self.hit_w=3
end

snowball=new_type(62)
snowball.grapple_mode,snowball.thrown_timer,snowball.hp=3,0,6
function snowball.update(self)
  if not self.held then
    self.thrown_timer -= 1
    --speed
    if self.stop then
      self.speed_x=approach(self.speed_x,0,0.25)
      if self.speed_x==0 then
        self.stop=false
      end
    else
      if self.speed_x~=0 then
        self.speed_x=approach(self.speed_x,sgn(self.speed_x)*2,0.1)
      end
    end

--gravity
    if not self:check_solid(0,1) then
      self.speed_y=approach(self.speed_y,4,0.4)
    end

--apply
    self:move_x(self.speed_x,self.on_collide_x)
    self:move_y(self.speed_y,self.on_collide_y)

--bounds
    if self.y>level.height*8+24 then
      self.destroyed=true
    end
  end
end
function snowball.on_collide_x(self,moved,total)
  if self:corner_correct(sgn(self.speed_x),0,2,2,1) then
    return
  end
  if self:hurt() then
    return true
  end
  self.speed_x*=-1
  self.remainder_x,self.freeze=0,1
  psfx(17,0,2)
  return true
end
function snowball.on_collide_y(self)--,moved,total)
  if self.speed_y>=4 then
    self.speed_y=-2
    psfx(17,0,2)
  elseif self.speed_y>=1 then
    self.speed_y=-1
    psfx(17,0,2)
  else
    self.speed_y=0
  end
  self.remainder_y=0
  return true
end
function snowball.on_release(self,thrown)
  if not thrown then
    self.stop=true
  end
  self.thrown_timer=8
end
function snowball.hurt(self)
  --self.hp-=1
  if self.hp<=0 then
    psfx(8,16,4)
    self.destroyed=true
    return true
  end
end
function snowball.bounce_overlaps(self,o)
  if self.speed_x~=0 then
    self.hit_w,self.hit_x=12,-2
    local ret=self:overlaps(o)
    self.hit_w,self.hit_x=8,0
    return ret
  end
  return self:overlaps(o)
end
function snowball.contains(self,px,py)
  return px>=self.x and px<self.x+8 and py>=self.y-1 and py<self.y+10
end
function snowball.draw(self)
  pal(7,1)
  spr(self.spr,self.x,self.y+1)
  pal()
  spr(self.spr,self.x,self.y)
end

springboard=new_type(11)
springboard.grapple_mode,springboard.thrown_timer=3,0
function springboard.update(self)
  if not self.held then
    self.thrown_timer-=1
    --friction and gravity  
    if self:check_solid(0,1) then
      self.speed_x=approach(self.speed_x,0,1)
    else
      self.speed_x=approach(self.speed_x,0,0.2)
      self.speed_y=approach(self.speed_y,4,0.4)
    end
    --apply
    self:move_x(self.speed_x,self.on_collide_x)
    self:move_y(self.speed_y,self.on_collide_y)
    if self.player then
      self.player:move_y(self.speed_y)
    end
    self.destroyed=self.y>level.height*8+24
  end
end
function springboard.on_collide_x(self,moved,total)
  self.speed_x*=-0.2
  self.remainder_x,self.freeze=0,1
  return true
end
function springboard.on_collide_y(self,moved,total)
  if self.speed_y<0 then
    self.speed_y,self.remainder_y=0,0
    return true
  end
  if self.speed_y>=2 then
    self.speed_y*=-0.4
  else
    self.speed_y=0
  end
  self.remainder_y=0
  self.speed_x*=0.5
  return true
end
function springboard.on_release(self,thrown)
  if thrown then
    self.thrown_timer=5
  end
end

grappler=new_type(46)
grappler.grapple_mode,grappler.hit_x,grappler.hit_y,grappler.hit_w,grappler.hit_h=2,-1,-1,10,10

berry=new_type(21)
function berry.update(self)
  if self.collected then
    self.timer+=1
    self.y-=0.2*(self.timer > 5 and 1 or 0)
    self.destroyed=self.timer > 30
  elseif self.player then
    self.x+=(self.player.x-self.x)/8
    self.y+=(self.player.y-4-self.y)/8
    self.flash-=1

if self.player:check_solid(0,1) and self.player.state~=99 then self.ground+=1 else self.ground=0 end

if self.ground>3 or self.player.x>level.width*8-7 or self.player.last_berry~=self then
      psfx(8,8,8,20)
      collected[self.id]=true
      berry_count+=1
      self.collected,self.timer,self.draw=true,0,score
    end
  end
end
function berry.collect(self,player)
  if not self.player then
    self.player,player.last_berry,self.flash,self.ground=player,self,5,0
    psfx(7,12,4)
  end
end
function berry.draw(self)
  if (self.timer or 0)<5 then
    grapple_pickup.draw(self)
    if (self.flash or 0)>0 then
      circ(self.x+4,self.y+4,self.flash*3,7)
      circfill(self.x+4,self.y+4,5,7)
    end
  else
    ?"1000",self.x-4,self.y+1,8
    ?"1000",self.x-4,self.y,self.timer%4<2 and 7 or 14
  end
end

crumble=new_type(19)
crumble.solid,crumble.grapple_mode=true,1
function crumble.init(self)
  self.time,self.ox,self.oy=0,self.x,self.y
end
function crumble.update(self)
  if self.breaking then
    self.time+=1
    if self.time>10 then
      self.x,self.y=-32,-32
    end
    if self.time>90 then
      self.x,self.y=self.ox,self.oy
      local can_respawn=true
      for o in all(objects) do
        if self:overlaps(o) then can_respawn=false break end
      end
      if can_respawn then
        self.breaking,self.time=false,0
        psfx(17,5,3)
      else
        self.x,self.y=-32,-32
      end
    end
  end
end
function crumble.draw(self)
  object.draw(self)
  if self.time>2 then
    fillp(0b1010010110100101.1)
    rectfill(self.x,self.y,self.x+7,self.y+7,1)
    fillp()
  end
end

break_block=new_type(102)
break_block.solid,break_block.grapple_mode,break_block.hit_w,break_block.hit_h=true,1,16,16
function break_block.init(self)
	self.dtimer=-1
end
function break_block.update(self)
	self.dtimer-=1
	self.destroyed=self.dtimer==0
end
function break_block.on_grapple(self, player)
	self.dtimer=1
	player.freeze=0
	player.state=0
	player.grapple_retract=true
	for x=0,1 do
		for y=0,1 do
			create(smoke, self.x+x*8, self.y+y*8)
		end
	end
 psfx(8,16,4)
end
function break_block.draw(self)
	if level.pal then level.pal() end
	spr(102, self.x, self.y, 2, 2)
	pal()
end

smoke=new_type(200)
function smoke.init(self)
	self.particles={}
	for i=0,10 do
		add(self.particles, {
			x=rnd(8),
			y=rnd(8),
			dx=rnd(1)-0.5,
			dy=rnd(1),
			t=rnd(20)
		})
	end
	self.t=5+flr(rnd(2))
end
function smoke.update(self)
	for i in all(self.particles) do
		i.x+=i.dx
		i.y+=i.dy
		i.t-=1
		if i.t<1 then
			del(self.particles, i)
		end
	end
	self.t-=1
	self.destroyed=#self.particles==0
end
function smoke.draw(self)
	for i in all(self.particles) do
		rectfill(self.x+i.x, self.y+i.y, self.x+i.x, self.y+i.y, i.t>5 and 7 or 6)
	end

local s=self.t<3 and 1 or 0
  local t=mid(0,4,self.t)
  local shape = {rectfill,rect,rectfill,rect,[0]=function()end}
  shape[t](self.x+s, self.y+s, self.x+8-s, self.y+8-s, 7)
end

side_spring=new_type(112)
function side_spring.init(self)
	self.flip_x=self:check_solid(1,0)
  self.hit_w=6
  self.hit_x=self.flip_x and 2 or 0
	self.t=0
end
function side_spring.spring(self)
	self.t=4
end
function side_spring.update(self)
	if self.t>0 then
		self.t-=1
	end
end
function side_spring.draw(self)
	sspr(self.t, 56, 8, 8, self.x, self.y, 8, 8, self.flip_x)
end

car=new_type(6)
car.solid,car.hit_y,car.hit_w,car.hit_h=true,4,12,12
function car.update(self)
  if self.player then
    self.timer-=1
    if self.timer==59 then
    		?"\as9i0x3c1"
    end
    if self.timer > 34 then
    		?"\as9i6x5c0"
    end
    if self.timer >= 34 and self.timer < 50 and self.timer%2==0 then
      self.player.y+=1
    end
    if self.timer <= 0 then
      self.player.freeze=0
      self.player.state=101
    end
  end
end
function car.draw(self)
  spr(6, self.x, self.y, 2, 2)
end

checkpoint=new_type(13)
function checkpoint.init(self)
  if level_checkpoint==self.id then
    create(player,self.x,self.y)
  end
end
function checkpoint.draw(self)
  if level_checkpoint==self.id then
    sspr(104,0,1,8,self.x,self.y)
    pal(2,11)
    for i=1,7 do
      sspr(104+i,0,1,8,self.x+i,self.y+sin(-time()*2+i*0.25)*(i-1)*0.2)
    end
    pal()
  else
    object.draw(self)
  end
end

function make_spawner(tile,dir)
  local spawner=new_type(tile)
  function spawner.init(self)
    self.timer,self.spr=(self.x/8)%32,-1
  end
  function spawner.update(self)
    self.timer+=1
    if self.timer>=32 and abs(self.x-64-camera_x)<128 then
      self.timer=0
      local snowball=create(snowball,self.x,self.y-8)
      snowball.speed_x,snowball.speed_y=dir*2,4
      psfx(17,5,3)
    end
  end
  return spawner
end
snowball_spawner_r,snowball_spawner_l=make_spawner(14,1),make_spawner(15,-1)

player=new_type(2)
player.t_jump_grace,
player.t_var_jump,
player.var_jump_speed,
player.grapple_x,
player.grapple_y,
player.grapple_dir,
player.grapple_wave,
player.t_grapple_cooldown,
player.wipe_timer,
player.t_grapple_jump_grace,
player.t_grapple_pickup,
player.state=
0,0,0,0,0,0,0,0,0,0,0,0

-- grapple functions

--[[
  object grapple modes:
    0 - no grapple
    1 - solid
    2 - solid centered
    2 - holdable
]]

function player.start_grapple(self)
  self.state,
  self.speed_x,
  self.speed_y,
  self.remainder_x,
  self.remainder_y,
  self.grapple_x,
  self.grapple_y,
  self.grapple_wave,
  self.grapple_retract,
  self.t_grapple_cooldown,
  self.t_var_jump=
  10,0,0,0,0,self.x,self.y-3,0,false,6,0
  if input_x~=0 then
    self.grapple_dir=input_x
  else
    self.grapple_dir=self.facing
  end
  self.facing=self.grapple_dir
  psfx(8,0,5)
end

-- 0 = nothing, 1 = hit!, 2 = fail
function player.grapple_check(self,x,y)
  local tile=tile_at(x\8,tile_y(y))
  if fget(tile,1) then
    self.grapple_hit=nil
    return fget(tile,2) and 2 or 1
  end
  for o in all(objects) do
    if o.grapple_mode~=0 and o:contains(x, y) then
      self.grapple_hit=o
      return 1
    end
  end
  return 0
end

-- helpers

function player.jump(self)
  consume_jump_press()
  self.state,
  self.speed_y,
  self.var_jump_speed,
  self.t_var_jump,
  self.t_jump_grace,
  self.auto_var_jump=
  0,-4,-4,4,0,false
  self.speed_x+=input_x*0.2
  self:move_y(self.jump_grace_y - self.y)
  psfx(7,0,4)
end

function player.bounce(self,x,y)
  self.state,
  self.speed_y,
  self.var_jump_speed,
  self.t_var_jump,
  self.t_jump_grace,
  self.auto_var_jump=
  0,-4,-4,4,0,true
  self.speed_x+=sgn(self.x-x)*0.5
  self:move_y(y-self.y) 
end

function player.spring(self,y)
  consume_jump_press()
  if input_jump then 
    psfx(17,2,3)
  else
    psfx(17,0,2)
  end
  self.state,
  self.speed_y,
  self.var_jump_speed,
  self.t_var_jump,
  self.t_jump_grace,
  self.remainder_y,
  self.auto_var_jump,
  self.springboard.player=
  0,-5,-5,6,0,0,false,nil
  for o in all(objects) do
    if o.base == crumble and not o.destroyed and self.springboard:overlaps(o, 0, 4) then
      o.breaking = true
      psfx(8, 20, 4)
    end
  end
end

function player.wall_jump(self,dir)
  if self.sspringing then return end
  consume_jump_press()
  self.state,
  self.speed_y,
  self.var_jump_speed,
  self.speed_x,
  self.t_var_jump,
  self.auto_var_jump,
  self.facing=
  0,-3,-3,3*dir,4,false,dir
  self:move_x(-dir*3)
  psfx(7,4,4)
end

function player.grapple_jump(self)
  consume_jump_press()
  psfx(17,2,3)
  self.state,
  self.t_grapple_jump_grace,
  self.speed_y,
  self.var_jump_speed,
  self.t_var_jump,
  self.auto_var_jump,
  self.grapple_retract=
  0,0,-3,-3,4,false,true
  self.speed_x=mid(-4,self.speed_x,4)--sgn(self.speed_x)*min(4,abs(self.speed_x))
  --if abs(self.speed_x)>4 then
  --  self.speed_x=sgn(self.speed_x)*4
  --end
  self:move_y(self.grapple_jump_grace_y-self.y)
end

function player.bounce_check(self,obj)
  return self.speed_y>=0 and self.y-self.speed_y<obj.y+obj.speed_y+4
end

function player.die(self)
  self.state,freeze_time,shake=99,2,5
  death_count+=1
  psfx(14,16,16,120)
end

--[[
  hazard types:
    0 - not a hazard
    1 - general hazard
    2 - up-spike
    3 - down-spike
    4 - right-spike
    5 - left-spike
]]

player.hazard_table={
  function(self) return true end, -- 1
  function(self) return self.speed_y>=0 end, -- 2
  function(self) return self.speed_y<=0 end, -- 3
  function(self) return self.speed_x<=0 end, -- 4
  function(self) return self.speed_x>=0 end -- 5
}

function player.hazard_check(self,ox,oy)
  for o in all(objects) do
    if o.hazard~=0 and self:overlaps(o,ox or 0,oy or 0) and self.hazard_table[o.hazard](self) then
      return true
    end
  end
end

function player.correction_func(self,ox,oy)
  return not self:hazard_check(ox,oy)
end

-- grappled objects

function pull_collide_x(self,moved,target)
  return not self:corner_correct(sgn(target),0,4,2,0)
end

function player.release_holding(self,obj,x,y,thrown)
  obj.held,obj.speed_x,obj.speed_y,self.holding=false,x,y,nil
  obj:on_release(thrown)
  psfx(7,24,6)
end

-- events

function player.init(self)
  self.x+=4
  self.y+=8
  self.hit_x,self.hit_y,self.hit_w,self.hit_h=-3,-6,6,6
  -- scarf
  self.scarf={}
  for i=0,4 do
    add(self.scarf,{x=self.x,y=self.y})
  end
  --camera
  camera_modes[level.camera_mode](self.x,self.y)
  camera_x,camera_y=camera_target_x,camera_target_y
  camera(camera_x, camera_y)
end

function player.update(self)
  local on_ground=self:check_solid(0,1)
  if on_ground then
    self.t_jump_grace,self.jump_grace_y=4,self.y
  else
    self.t_jump_grace=max(self.t_jump_grace-1)
  end

self.t_grapple_jump_grace=max(self.t_grapple_jump_grace-1)

if self.t_grapple_cooldown>0 and self.state<1 then
    self.t_grapple_cooldown-=1
  end

-- grapple retract
  if self.grapple_retract then
    self.grapple_x,self.grapple_y=approach(self.grapple_x,self.x,12),approach(self.grapple_y,self.y-3,6)
    if self.grapple_x==self.x and self.grapple_y==self.y-3 then
      self.grapple_retract=false
    end
  end

--[[
    player states:
      0   - normal
      1 - lift
      2   - springboard bounce
      10  - throw grapple
      11  - grapple attached to solid
      12  - grapple pulling in holdable
      50  - get grapple!!
      99  - dead
      100 - finished level
  ]]

if self.state==0 then
    -- normal state

-- facing
    if input_x~=0 then
      self.facing=input_x
    end
    -- running
    self.speed_x=approach(
      self.speed_x,
      input_x*2,
      abs(self.speed_x)>2 and input_x==sgn(self.speed_x) and 0.1 or on_ground and 0.8 or input_x~=0 and 0.4 or 0.2
      )

-- gravity
    if not on_ground then
      self.speed_y=min(self.speed_y+(abs(self.speed_y)<0.2 and input_jump and 0.4 or 0.8),btn(3) and 5.2 or 4.4)
    end

-- variable jumping
    if self.t_var_jump>0 then
      if input_jump or self.auto_var_jump then
        self.speed_y=self.var_jump_speed
        self.t_var_jump-=1
      else
        self.t_var_jump=0
      end
    end

-- jumping
    if input_jump_pressed>0 then
      if self.t_jump_grace>0 then
        self:jump()
      elseif self:check_solid(2) then
        self:wall_jump(-1)
      elseif self:check_solid(-2) then
        self:wall_jump(1)
      elseif self.t_grapple_jump_grace>0 then
        self:grapple_jump()
      end
    end

-- throw holding
    if self.holding and not input_grapple and not self.holding:check_solid(0,-2) then
      self.holding.y-=2
      local b=btn(3)
      self:release_holding(self.holding,(b and 2 or 4)*self.facing,b and 0 or -1,not b)
    end

-- throw grapple
    if have_grapple and not self.holding and self.t_grapple_cooldown<=0 and consume_grapple_press() then
      self:start_grapple()
    end

elseif self.state==1 then
    -- lift state
    hold=self.grapple_hit
    hold.x,hold.y=approach(hold.x,self.x-4,4),approach(hold.y,self.y-14,4)

if hold.x==self.x-4 and hold.y==self.y-14 then
      self.state,self.holding=0,hold
    end

elseif self.state==2 then
    -- springboard bounce state
    self:move_x(approach(self.x,self.springboard.x+4,0.5)-self.x)
    self:move_y(approach(self.y, self.springboard.y + 4, 0.2)-self.y)
    if self.springboard.spr==11 and self.y>=self.springboard.y+2 then
      self.springboard.spr=12
    elseif self.y==self.springboard.y+4 then
      self:spring(self.springboard.y+4)
      self.springboard.spr=11
    end

elseif self.state == 10 then
    -- throw grapple state

-- grapple movement and hitting stuff
    local grabbed
    for i=1,min(64-abs(self.grapple_x-self.x),6) do
      local hit=self:grapple_check(self.grapple_x+self.grapple_dir,self.grapple_y)
      for i=-1,1,2 do
        if hit==0 then
          hit=self:grapple_check(self.grapple_x+self.grapple_dir,self.grapple_y+i)
        end
      end
      --if hit==0 then
      --  hit=self:grapple_check(self.grapple_x+self.grapple_dir,self.grapple_y+1)
      --end

local mode=self.grapple_hit and self.grapple_hit.grapple_mode or 0

if hit==0 then
        self.grapple_x+=self.grapple_dir*2
      elseif hit==1 then
        if mode==2 then
          self.grapple_x,self.grapple_y=self.grapple_hit.x+4,self.grapple_hit.y+4
        elseif mode==3 then
          self.grapple_hit.held,grabbed=true,true
        end
        self.state,self.grapple_wave,self.grapple_boost,self.freeze=mode == 3 and 12 or 11,2,false,2
        if self.grapple_hit and self.grapple_hit.on_grapple then
        	self.grapple_hit.on_grapple(self.grapple_hit, self)
        end
        psfx(14,0,5)
        break
      end

if hit==0 and abs(self.grapple_x-self.x)>=64 or hit==2 then
        psfx(hit==2 and 7 or 14,8,3)
        self.grapple_retract,self.freeze,self.state=true,2,0
        break
      end
    end

-- grapple wave
    self.grapple_wave,self.spr=approach(self.grapple_wave,1,0.2),3

-- release
    if not grabbed and (not input_grapple or abs(self.y-self.grapple_y)>8) then
      self.state,self.grapple_retract=0,true
      psfx(-2)
    end

elseif self.state==11 then
    -- grapple attached state
    
    -- start boost
    if not self.grapple_boost then
      self.grapple_boost,self.speed_x=true,self.grapple_dir*8
    end

-- acceleration
    self.speed_x,self.speed_y=approach(self.speed_x,self.grapple_dir*5,0.25),approach(self.speed_y,0,0.4)

-- y-correction
    if self.speed_y==0 and self.y-3~=self.grapple_y then
      self:move_y(sgn(self.grapple_y-self.y+3)*0.5)
    end

-- wall pose
    if self.spr~=4 and self:check_solid(self.grapple_dir) then
      self.spr=4
      psfx(14,8,3)
    end

-- jumps
    if consume_jump_press() then
      if self:check_solid(self.grapple_dir*2) then
        self:wall_jump(-self.grapple_dir)
      else
        self.grapple_jump_grace_y=self.y
        self:grapple_jump()
      end
    end

-- grapple wave
    self.grapple_wave=approach(self.grapple_wave,0,0.6)

-- release
    if self.grapple_hit and self.grapple_hit.destroyed or not input_grapple then
      self.state,
      self.t_grapple_jump_grace,
      self.grapple_jump_grace_y,
      self.grapple_retract=
      0,4,self.y,true
      self.facing*=-1
      self.speed_x=abs(self.speed_x)<=0.5 and 0 or mid(-5,self.speed_x,5)--sgn(self.spd.x)*min(5,abs(self.speed_x))--abs(self.speed_x)>5 and sgn(self.speed_x)*5 or abs(self.speed_x)<=0.5 and 0 or self.speed_x
    end

-- release if beyond grapple point
    if sgn(self.x-self.grapple_x)==self.grapple_dir then
      self.state=0
      if self.grapple_hit and self.grapple_hit.grapple_mode==2 then
        self.t_grapple_jump_grace,self.grapple_jump_grace_y=4,self.y
      end
      --if abs(self.speed_x)>5 then
      self.speed_x=sgn(self.speed_x)*min(5,abs(self.speed_x))
      --end
    end

elseif self.state==12 then
    -- grapple pull state
    local obj=self.grapple_hit

-- pull
    if obj:move_x(-self.grapple_dir*6,pull_collide_x) then
      self.state,self.grapple_retract,obj.held=0,true,false
      return
    else
      self.grapple_x=approach(self.grapple_x,self.x,6)
    end

-- y-correct
    if obj.y~=self.y-7 then
      obj:move_y(sgn(self.y-obj.y-7)*0.5)
    end

-- grapple wave
    self.grapple_wave=approach(self.grapple_wave,0,0.6)

-- hold
    if self:overlaps(obj) then
      self.state=1
      psfx(7,16,6)
    end

-- release
    if not input_grapple or abs(obj.y-self.y+7)>8 or sgn(obj.x+4-self.x)==-self.grapple_dir then
      self.state,self.grapple_retract=0,true
      self:release_holding(obj,-self.grapple_dir*5,0,true)
    end

elseif self.state==50 then
    -- grapple pickup state
    self.speed_y,self.speed_x=min(self.speed_y+0.8,4.5),approach(self.speed_x,0,0.2)

if on_ground then
      if self.t_grapple_pickup==0 then music(39) end
      if self.t_grapple_pickup==61 then music(-1) end
      if self.t_grapple_pickup==70 then music(22) end
      if self.t_grapple_pickup>80 then self.state=0 end
      self.t_grapple_pickup+=1
    end

elseif self.state==99 or self.state==100 or self.state==101 then
    -- dead / finished state

if self.state==100 then
      self.x+=1
      if self.wipe_timer==5 and level_index>1 then psfx(17,24,9) end
    end

self.wipe_timer+=1
    if self.wipe_timer>20 then
      if self.state==99 then restart_level() elseif self.state==100 then next_level() else goto_level(9) end
    end
    return
  end
  
  self.sspringing=false

-- apply
  self:move_x(self.speed_x,self.on_collide_x)
  self:move_y(self.speed_y,self.on_collide_y)

-- holding
  if self.holding then
    self.holding.x,self.holding.y=self.x-4,self.y-14
  end

-- sprite
  if self.state==50 and self.t_grapple_pickup>0 then
    self.spr=5
  elseif self.state~=11 then
    self.spr=not on_ground and 3 or input_x~=0 and 2+(self.spr+0.25)%2 or 2
  end

-- object interactions
  for o in all(objects) do
    if o.base==grapple_pickup and self:overlaps(o) then
      --grapple pickup
      o.destroyed,have_grapple,self.state=true,true,50
      psfx(7,12,4)
    elseif o.base==snowball and not o.held then
      --snowball
      if self:bounce_check(o) and o:bounce_overlaps(self) then
        self:bounce(o.x+4,o.y)
        psfx(17,0,2)
        o.freeze,o.speed_y=1,-1
        o:hurt()
      elseif o.speed_x~=0 and o.thrown_timer<=0 and self:overlaps(o) then
        self:die()
        return
      end
    elseif o.base==springboard and self.state~=2 and not o.held and self:overlaps(o) and self:bounce_check(o) then
      --springboard  
      self.state,
      self.speed_x,
      self.speed_y,
      self.t_jump_grace,
      self.springboard,
      self.remainder_y,
      o.player=
      2,0,0,0,o,0,self
      self:move_y(o.y+4-self.y)
    elseif o.base==berry and self:overlaps(o) then
      --berry
      o:collect(self)
    elseif o.base==crumble and not o.breaking then
      --crumble
      if self.state==0 and self:overlaps(o,0,1) then
        o.breaking=true
        psfx(8,20,4)
      elseif self.state==11 then
        if self:overlaps(o,self.grapple_dir) or self:overlaps(o,self.grapple_dir,3) or self:overlaps(o,self.grapple_dir,-2) then
          o.breaking=true
          psfx(8,20,4)
        end
      end
    elseif o.base==checkpoint and level_checkpoint~=o.id and self:overlaps(o) then
      level_checkpoint=o.id
      psfx(8,24,6,20)
    elseif o.base==side_spring and self:overlaps(o) then
    	psfx(17,2,3)
    	self.speed_x,self.speed_y=6*(o.flip_x and -1 or 1),-4
    	self.var_jump_speed=-5
    	self.t_var_jump=3
    	self.state=0
    	self.facing=o.flip_x and 1 or -1
    	self.sspringing=true
    	o:spring()
    elseif o.base==car and self:overlaps(o,0,1) and not o.player and self.state==0 and not self.grapple_retract then
      self.x=o.x+7
      self.facing=1
      self.freeze=1000
      self.draw_back=true
      self.state=0
      self.spr=2
      o.player=self
      o.timer=60
      shake=5
    end
  end

-- death
  if self.state<99 and (self.y>level.height*8+16 or self:hazard_check()) then
    self:die()
    return
  end

-- bounds
  if self.y<-16 then
    self.y,self.speed_y=-16,0
  end
  if self.x<3 then
    self.x,self.speed_x=3,0
  elseif self.x>level.width*8-3 then
    if level.right_edge then
      self.x,self.speed_x=level.width*8-3,0
    else
      self.state=100
    end
  elseif level_index==2 and self.x>256-5 and self.x<256 and self.y>24 then
    self.state=100
  end

-- intro bridge music
  if current_music==levels[1].music and self.x>61*8 then
    current_music=37
    music(37)
    psfx(17,24,9)
  end

-- ending music
  if level_index==8 or level_index==14 then
  		local on_flower = 
  				(level_index==8 and self.x>56 and self.x<72) or
  				(level_index==14 and self.x>80 and self.x<96 and self.y<25)
    if current_music~=40 and on_flower then
      current_music=40
      ending=true
      music(40)
    end
    if ending then show_score+=1 end
    if show_score==190 then music(38) end
  end

-- camera
  camera_modes[level.camera_mode](self.x,self.y,on_ground)
  camera_x,camera_y=approach(camera_x,camera_target_x,5),approach(camera_y,camera_target_y,5)
  camera(camera_x,camera_y)
end

function player.on_collide_x(self, moved, target)
  if (self.state==0 and sgn(target)==input_x and self:corner_correct(input_x,0,2,2,-1,self.correction_func)) or
    (self.state==11 and self:corner_correct(self.grapple_dir,0,4,2,0,self.correction_func)) then
    return
  end
  return object.on_collide_x(self,moved,target)
end

function player.on_collide_y(self, moved, target)
  if target<0 and self:corner_correct(0,-1,2,1,input_x,self.correction_func) then
    return
  end
  self.t_var_jump=0
  return object.on_collide_y(self,moved,target)
end

function player.draw(self)

-- death fx
  if self.state==99 then
    local e=self.wipe_timer/10
    if e<=1 then
      for i=0,7 do
        circfill(mid(camera_x,self.x,camera_x+128)+cos(i/8)*32*e,mid(camera_y,self.y-4,camera_y+128)+sin(i/8)*32*e,(1-e)*8,10)
      end
    end
    return
  end

-- scarf
  local last={x=self.x-self.facing,y=self.y-3}
  for i=1,#self.scarf do
    local s=self.scarf[i]

-- approach last pos with an offset
    s.x+=(last.x-s.x-self.facing)/1.5
    s.y+=(last.y-s.y+sin(i*0.25+time())*i*0.25)/2

-- don't let it get too far
    local dx,dy=s.x-last.x,s.y-last.y
    local dist=sqrt(dx*dx+dy*dy)
    if dist>1.5 then
      s.x,s.y=last.x+dx/dist*1.5,last.y+dy/dist*1.5
    end

-- fill
    rectfill(s.x,s.y,s.x,s.y,10)
    rectfill((s.x+last.x)/2,(s.y+last.y)/2,(s.x+last.x)/2,(s.y+last.y)/2,10)
    last=s
  end

-- grapple
  if self.state>=10 and self.state<=12 then
    draw_sine_h(self.x,self.grapple_x,self.y-3,7,2*self.grapple_wave,6,0.08,6)
  end

-- retracting grapple
  if self.grapple_retract then
    line(self.x,self.y-2,self.grapple_x,self.grapple_y+1,1)
    line(self.x,self.y-3,self.grapple_x,self.grapple_y,7)
  end

-- sprite
  spr(self.spr,self.x-4,self.y-8,1,1,self.facing~=1)

if self.state==50 and self.t_grapple_pickup>0 then
    spr(20,self.x-4,self.y-18)
    for i=0,1,0.0625 do
      local a=time()*4+i
      local s,c,ty=sin(a),cos(a),self.y-14
      line(self.x+s*16,ty+c*16,self.x+s*40,ty+c*40,7)
    end
  end
end
__gfx__
00000000626666660011110001111110011111000011110000000000000000000000000000000000000000006666666600000000422222220000000000000000
00000000626666660111111011144411111111100111111000000000000000000000000000000000000000000311113000000000422222220800000000000080
00700700626666661114441111474471144441101174471100000000000000000000000000000000000000000031130000000000422222220080000000000800
0007700022222222114744710144444017447410714444170000000000000000000000000000000000000077000bb00000000000422222220008000000008000
00077000666662660144444000aaaa000444441007aaaa700eeeeeeeeee00000000000000000000000000777000bb00066666666200000000000808008080000
007007006666626600aaaa000022220000aaaa7000222200e111ee11e111000000770000000000000007777700b11b0000033000400000000000088008800000
000000006666626600222200070000700022220000222200e1ccee7ce7cc00000777770000000000007777770b1111b0000bb000400000000000888008880000
000000002222222200700700000000000000700007700770e1cceeccee77c0007777777000000000777777776666666666666666400000000000000000000000
57777777777777777777777599999999000600000b300b00e1cceeeceeccc0000000000000000000000000000000000000000000000000000000000000022000
77777777777777777777777791111119006660000033b000eeeeeeeeeeee22220000000000000000000000000000000000000000000000000000000000022000
77777777777777777777777791411419000500000288882088888888888897970000000000000000000000000000000000000000000000000000000000024000
77777771177777711777777791441119000500000898888088888888888897970000000000000000000000000000000000000000000000000000000000044000
777777122177771221777777911441190044400008888980eeeeeeeeeeee11110000000000000000077000000000000000000000000000000000000000044000
71777122221111222217771791414419009990000888888020002220002222220000000000000000777700000000000000000000000000000000000000044000
72111222222222222221112791111119004440000289882001610201615551000000000000000000777777000000000000000000000000000000000000044000
72222222222222222222222799999999009990000028820001110001110111000000000000000000777777700000000000000000000000000000000000042000
72222222222222222222222757777775000000000000066622222222222222225555555555555555555555555777777777777777777777750008800056666650
77222222222222222222227777777777000000000007777722222221122222225555555555555550055555557771111177711111777111170081180066666661
77222222222222222222227777777777000000000000066622222211112222225555555555555500005555557777111117771111177711170811118066666661
77722222222222222222277777177177007000700000000022222111111222225555555555555000000555557117711111177111111771178117711866666661
777222222222222222222777772112770070007000000666222211111111222255555555555500000000555571ddd7ddddddd7ddddddd7178117711856666651
772222222222222222222277772222770676067600077777222111111111122255555555555000000000055571dddddddddddddddddddd170811118055555551
77222222222222222222227777722777067606760000066622111111111111225555555555000000000000557111111111111111111111170081180015555551
72222222222222222222222757777775067606760000000021111111111111125555555550000000000000055777777777777777777777750008800001111110
722222222222222222222227577777777777777777777775211111111111111211111111500000000000000557777775777ddd17777ddd170077770056666655
7222222222222222222222277777777777777777777777772211111111111122111111115500000000000055777711177777dd177777dd170777677066666661
72222722222222222222222777777777777777777777777722211111111112221111111155500000000005557117711771177d1771177d177777777766666661
722222222222222222222227777777711777777117777777222211111111222211111111555500000000555571111717711dd717711dd7177777767766666661
7722222222222222222722777777771221777712217777772222211111122222111111115555500000055555711ddd17711ddd17711ddd177767777756666651
7772222222777722222227777177712222111122221777172222221111222222111111115555550000555555711ddd17711ddd17711ddd177777777755555551
7777722227777772222777777211122222222222222111272222222112222222111111115555555005555555711ddd17711ddd17711111170777677015555551
5777777777777777777777755777777777777777777777752222222222222222111111115555555555555555711ddd17711ddd17577777750077770051111115
00000000000000000000000000000000000000000000000000000000166666100000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000dd000000000000000000000000008667776600000000000000000000000000000000000000000000000000000000000000000
0000880000000000000000000dd11d000aa000a0000800000000008e666666600000000000000000000000000000000000000000000000000000000000000000
0008e880000000000000000dd1177d0000a0baa0000e8000800000e861161160000000000000000000000000000a000000000000000000000000000000000000
00088880b000000000000dd1117117d000ab0aa0000880008e000b806116116000000000000000000000000000a0a00000000000000000000000000000000000
000088003b000000000dd1177171117d0003b0b00b00b0008e000b00166666100000000000000000000000000a000a0000000000000000000000000000000000
0000000003b000000dd111711717117d0b03b0b00bb03b0b0b00b30006060600000000000000000000000000a000009000000000000000000000000000000000
0000b00000b00000d11771771711771d00bb30b0b30b3b030b0b3b000000000000000000000000000000000a0000009000000000000000000000000000000000
00003bb00b300000d17117177777111d000000000000000055b35555006660000000000000000000000000900000009000a00000000000000000000000000000
0000033bb30000000d771711711111d0000000000000000055b3555506181600000000000000000000000a00000000090a0a0000000000000000000000000000
000000b33b000e800d1771111711dd000000000000000000555b35556118116000000000000000000000900000000000a000a000000000000000000000000000
00000003bb00088000d1771111dd000000000000082800005555b555611888600000000000000000000000000000000000000000000000000000000000000000
0000000b33000b0000d11711dd0000000000000082e800005555b555611111600000000000eeeee00ee000000eee00eeeeee00eeeeee00000000000000000000
00b000b33000b300000d11dd00000000000000088e8000005553b55506111600000000000eeeeeee0ee000000eeee0eeeeeee0eeeeeee0000000000000000000
00b000b33000b3000000dd00000000000000000888200000555b555500666000000000000ee000ee0ee0000000ee00ee000000ee000000000000000000000000
003b003bb00b30000000000000000000000000088200000055555555000000000000000002200000022000000022002222000022220000000000000000000000
000000000000000000000000000000000000000b0000000057777557755777750000000002200022022000020022002200000022000000000000000000000000
00000000000000000000000000000000000000b00000000077777777777777770000000002222222022222220222002200000022000000000000000000000000
0000000000000000000000000000000008000b300000000077777777777777770000000000222220022222220222202200000022000000000000000000000000
0000000000000000000000000000000008800bb00000000077771177771177770000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000080033b00000000777122111122177700000000eeeee00eee00eeeeee00eeeeee0000000aaaaa000000000000000000
0000000000000000000000000000000000b00033b00b000057122222222221750000000e00000ee000ee000000ee000000e00000a00000a00000000000000000
00000000000000000000000000000000000b0033b0b300005722222222222275000000e0000000e0000e0000000e0000000e000a0000000a0000000000000000
000000000000000000000000000000000003b0bb30b300007772222222222777000000e00eeeee0e00ee00eee00e00eeeee00000aaaa000a0000000000000000
0000000000000000000000000a400a0000aaa0004999994077722222222227770000002000000022002200202002000020000000090000900000000000000000
0000600000000000101111010044a0000a9a9a0099aaa99057722222222227750000000222222022002200222002002222000000900999900000000000000000
b003700000000000111b1b1104999940a99a99a09999999057222222222222750000002000000020002200000002000000200009000000090000000000000000
0bb07000000000001111991109a99990a99aaaa09449449077222222222222770000000200000220000200000022000000020009000000090020000000000000
0bb07000000000000117771009999a90a99999a09449449077222222222222770000200022222002222022222200222222200000999999900002000000000000
b00370000000000001177710099999900a999a004999994077722277772227770002000000000000000000000000000000000000000000000000200220022000
000060000000000001177710049a994000aaa0000909090077777777777777770002000000000000000000000000000000000000000000000000200020002000
00000000000000001199d99000499400000000000000000057777557755777750020000000000000000000000000000000000000000000000000020020202000
8383731212121212121212121313131313131313131313121263838383838383c2d29200000000004400a00111111111c382924242424242c352000000000000
1313131323d39200000000000000000200a20323920000a29200000000000000c300a23343111111114343131312638322820042424202122282000052011112
8383121213131313131312239200000000000000a28282101212838383838383b3e300000052b3334343431313131313c392000000000000c35200000052f2f2
c2c2d2920000000000000000006400030000a232524200000000041400313100c30000a2650212132392f1f1a203127322820033434312122292000052021212
83831222b39200a28265105200000000000000000000a2101212638383838383c34242000052c3b2c2c2d2829200a2b3c3a1d00000424200c352000052b2c2c2
21328200000000000000000000011111a392000000f2000000000515a3828200c300000082022292000000f10082021222920000a28202122200000052021262
83831222c300000000a210520000004200000000e30054101212121212121212c3b3b3a39352c3b2c2d282920000e3c3c333434343435393c352000000a282b3
228292000000f3f3f3930000000312129200000000f100000000b3b382829200c3000000a20222000000000000a2101222000000008202122252000000021283
83831222c393000020441052000000b30000a301111153031313131313131313c3c3c3829252c36582920000000042d3c3524242424242a2c3520000000082c3
228200000000f100a292000000a20212000000a393f100000000d3d392000000c3000000000323a1e30000000000101322424242a38202122252000000026283
83731222c382003343432352000000c3000082031323b392000000a29252b3b3c3d3c3920052d392000000000042b2c2c352000000000000c35200000000a2d3
22820000000000000042424242420212002000a2829200000000a29200000000c300000000a23343101000000000a2b30243435392a202122252000000026383
83121222c38293b2d2829200000000c393a38265b3b3c307000000000052c3d3c3a2d393000000000000000000b30111c3520000004242a3c352000052b2c2c2
2292000000424242420111111111121211210000920000000000000000000000c30000000000a28203100000000000c3109200000000021223520000a3021263
73121222c3828282829200000000a3c382828282c3c3d307000042000052d392c3e3a2828293000000420000a3c30212c352a33343431121c35200e252b30111
2200000052011143431313131313131312220000000000000000000000000000c30000000000009200000000000000c3100051000000032352000000a2031313
13131323d382829200000000000082c382828282c3c392000000b30000000000d34242a28282930052b35200a2c30212c352a26592520222c352000052c30212
220000005203236592000000000000a213239300000000000000000000001700c30000000000000000000000000000c310424242424232520000000000a2b2c2
112152a28282920000000000e38082c3829200a2d3d300000000c300000000001121b3a38282820052c3520000c30212c35200a200520222c352e20052c30212
220000000052f382000000000000000092a292000000000000000000a0012100d3a100d00000000000e200000000a3c3021111434343535200a38293d0a0b2c2
12225200000000000052b301111121c382000000a29200000000c300000000001222c3828282920052c3520000d30313d342424200520222c352000052c30212
220000000052f392000000a39300000000000000000000000000000001122256c2c2c2c2d200000000000000000082c30212239200a28293a382b2c2c2c2c2c2
1222f207000000000052c302121222c392000000000000000000c3930000f2f21222c3920000000052c3520000a282b31143435393520323d35200e252c30212
2200000000000000000010112182935400000000005400000000000003132332c2c2d292000000000000000000a382d3022382000000a2828282b2c2c2c2c2c2
1223f207000000000052c302121222c3000000000000006400a0d382000001111222d3424242424242c35200000000c3229200a2920000000000000052c30212
22a1d0a3930000000000101212111111f20000000111210000003100000000f1c3829200000000000000000000a20111226592000000000000a292f1f1a282b3
22520000000000000052d303121222c3930000a393a3b3011111218293a30312121211111111111121c3522000e354d322f20700000000000000000052c30212
12111121920000000000101212121212f20000a0021222000000000000a39300c38200000000000000000000004202122282000000000000540000f1000082c3
225200000000000000a38265031222c392000000a282c3021212228282826502721212121212121222c301111111111122f207000000a3934400d00052d30212
1212122242424242424210126283838392000032031323000000a393a3829200c38200b3424242424242424242320212229200000000a301210000000000a2c3
225200000000a38282828282820222c300000000a382c3026272228282828202838372121212121222c302121212121222f10000a38282011111111111111212
12721212111111111111121283838383930000f1a28292000000a28282829300c39200c30111434343434343434312122200000000a3820323000000000000c3
1213131313131312121212122292a2c3838312122382920000000000000000000000000000000000000000000000000000a2828282c3c3b2d292000000000000
00000000000000000000000000000000a2c3c38292000000a2b2c2d203131312c30000c30222828292000000a265101223a1b0a38282828292000000000000c3
2252a265b2c2d20313131313230000c3838312229200000000000000000000000000000000000000000000000000000000000000a2d3c3829200000000004200
0000000000000000000000000000000000c3d3920000000000a2926600000010d393a3d3032392000000000000821013b2c2c2d28282920000000000313131c3
22520000a282828292000000000000c383731222000000000000000000000000000000000000000000000000000000000000000000a2c382000051000000f252
000000000000000000000000000000d0a0d3820000000000000000000051001010828282920000000000000000a292b3b3b3b38282920000e2000000a28282c3
2252000000000000000000005420a0d383121222000000000000000000000000000000000000000000000000000000000000e2000000c392000000000000f100
0000000000000000000000000000b2c2c2d2920000000000000052b35600a010109200000000000000000000000000c3c3c3c39200000000000000000000a2c3
225200004242424242420111111111118312122393000000000000000000000000420000000000004200000000000000000000000000c30000000000a393f100
000000000000000000e20000000000000000000000e30000000052c3011111121000d0b00000000000000000000000c3c3c3c3000000000000000000000000c3
22520052011111114343131313131313731222829200000000000000000000005210000000000052f300000000004242424242000000c3000000000000a28293
000000000000000000000000000000000000000000420000000052c3031313131211112142424242420000a38293a0d3c3d3d3b2d200e20000000000000000c3
22520052021213234242424242424242121223820000000000000000000000005210930000000052f380d0000000b2c2c2c2d2000000c300000000000000a292
00000000000000000000004200000000e200000052b34200000052d33282829213131313434343435393a38282011121c352a282b300000000000000000000c3
2252005202226592000000e200000000122282920000000000000000800000005210820000000052011143539300b382920000000000c3000000000000000000
0000000000000000000052b3000000000000000052c3f30000000042a2920000c2c2d292000000a28282828282021222c3525182c300000000000000000000c3
23520052032382000000000000000000122282000000000000521011214242424210920000000052032365829200c3820000e2000000c3000000000000000000
0000000000000000000052c3000000000000000052c3f2000000000000000000c2c2d2000000000000a2828282021222c35200a2d30000000000000000d0a0d3
82000000b2d29200000042424242000013239200000000000052101212111111112200000000000000a282824242c392000000000000c3000000000000000000
000000000000e300000052c3930000000000000052c3f2000000000000000000c2d29200000000000000004242021222c35200000000000000000000b3f2f2f2
829300000066006600e3b3b2c2d24242000000000000000000001013131313131323000000000000000000a20121c300000042424242d3930000000000000000
0000000000004242000052c382000000e200000052c3f200000000000000000021820000000000004242420111121222c352000000000000e2000000c3011121
82828293424242424242c3011111111100000000000000000000f100a282828292f1000000000000000000420222c3000000b2c2c2c2d2920000000000000000
000044000000b3f2000052c3920000000000000052c3324200000000e2000000229200000044a0334343431313131323d39300000000000000000000c3021212
920000a2101111111121c302121212120020005400000000000000005100a29200f1000000424242424242320222c300000000a2828292000000004200000000
b30121000000c3f2424242c3000000005100000052c30121000000000000000022000000003343539200000000a265b2d28200000000424242424242d3021212
42424242101212121222c302126283831111111111112100000042420000000000f10000a3011111111111111222c3000000e20082820000000000f252000000
c30323424242c301111121c3930000000000000052c30222420000000000000022a1d0000000b00000000000000000a28282930000a001111111111111126272
11111111121262837222c30212838383121212121213239300a3b3f35200000000f1000082021212121212121222c300000000a382925400d000b0f242424242
c30111111121c302121222c382000000e200000052c3021221000000000000001211111111111111112142424242011111111111111112121212121212628383
12121212628383838322c30212838383838372122292a2828282c3f35200000000f100a382021262838383721222c393000000a2011111111111111111111121
c30212121222c302121222c3829300000000000052c3021222930000000000001212121212121212121211111111121212121212121212628383838383838383
__label__
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777
70000000000000000000000000000000000000007770000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000700000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
77000000000000000000000000000000000000000000000000000700000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000007770000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000700000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000070000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000777000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000070000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000007000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000070000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000777000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000070000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000007000000000000000000000000000000000700000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000077700000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000700000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007770000007
700000000000000000000000000000000000000000000000000000000000000a0000000000000000000000000000000000000000000000000000000700000007
70000000000000000000000000000000000000000000000000000000000000a0a000000000000000000000000000000000000000000000000000000000000007
7000000000000000000000000000000000000000000000000000000000000a000a00000000000000000000000000000000000000000000000000000000000007
700000000000000000000000000000000000000000000000000000000000a0000090000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000a00000090000000000000000000000000000000000000000000000000000000000007
7000000000000000000000000000000000000000000000000000000000900000009000a000000000000000000000000000000000000000000000000000000007
700000000000000000000000000000000000000000000000000000000a00000000090a0a00000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000900000000000a000a0000000000000000000000000000000700000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
7000000000000000000000000000000000000000000000eeeee00ee000000eee00eeeeee00eeeeee000000000000000000000000000000070000000000000007
700000000000000000000000000000000000000000000eeeeeee0ee000000eeee0eeeeeee0eeeeeee00000000000000000000000000000000000000000000007
700000000000000000000000000000000000000000000ee000ee0ee0000000ee00ee000000ee0000000000000000000000000000000000000000000000000007
70000000000000000000000000700000000000000000022000000220000000220022220000222200000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000022000220220000200220022000000220000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000022222220222222202220022000000220000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000002222200222222202222022000000220000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000eeeee00eee00eeeeee00eeeeee0000000aaaaa0000000000000000000000000000000000000000000007
7000000000000000000000000000000000000000000e00000ee000ee000000ee000000e00000a00000a000000000000000000000000000000000000000000007
700000000000000000000000000000000000000000e0000000e0000e0000000e0000000e000a0000000a00000000000000000000000000000000000000000007
700000000000000000000000000000000000000000e00eeeee0e00ee00eee00e00eeeee00000aaaa000a00000000000000000000000000000000000000000007
70000000000000000000000000000000000000000020000000220022002020020000200000000900009000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000002222220220022002220020022220000009009999000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000020000000200022000000020000002000090000000900000000000000000000000000000000000000000007
70000000000000000000000000000700000000000002000002200002000000220000000200090000000900200000000000000000000000000000000000000007
70000000000000000000000000000000000000002000222220022220272222002222222000009999999000020000000000000000000000000000000000000007
70000000000000000000000000000000000000020000000000000000777000000000000000000000000000002002200220000000000000000000000000000007
70000000000000000000000000000000000000020000000000000000070000000000000000000000000000002000200020000000000000000000000000000007
70000000000000000000000000000000000000200000000000000000000000000000000000000000000000000200202020000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000007000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000077700000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000070000000000000000000000007000000000000011100110110000001110101000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000011101010101000001010101000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000010101010101000001100111000000000000000000000000700000000000000000000000000007
70000000000000000000000000000000000000000000000000010101010101000001010001000000000000000000000007770000000000000000000000000007
70000000000000000000000000000000000000000000000000010101100111000001110111000000000000000000000000700000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000005550505055505050555055505500000000000000000000000000000000000000000000000000007
70000000000000000000000000000700000007000000000005050505050505050505050005050000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000077700000000005500505055005550550055005050000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000007000000000005050505050500050505050005050000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000005050055055505550505055505550000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000110111011100110111011001110100000000110111011101110000011101010000000000000000000000000000000007
70000000000000000000000000000001010101001001000010010101010100000001000101011101000000010101010000000000000000000000000000000007
70000000000000000000000000000001010110001001000010010101110100000001000111010101100000011001110000000000000000000000000000000007
70000000000000000000000000000001010101001001010010010101010100000001010101010101000000010100010000000000000000000000000000000007
70000000000000000000000000000001100101011101110111010101010111000001110101010101110000011101110000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007000000000000000000000000000000000007
70000000000000000000000000000000000005550555055005500505000005550505005505550055005505500000000000000000000000000000000000000007
70000000000000000000000000000000000005550505050505050505000000500505050505050500050505050000000000000000000000000000000000000007
70000000000000000000000000000000000005050555050505050555000000500555050505500555050505050000000000000000000000000000000000000007
70000000000000000000000000000000000005050505050505050005000000500505050505050005050505050000000000000000000000000000000000000007
70000000000000000000000000000000000005050505055505550555000000500505055005050550055005050000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005500055055505000000055505550555055505050000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005050505050005000000050505000505050505050000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005050505055005000000055005500550055005550000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005050505050005000000050505000505050500050000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005050550055505550000055505550505050505550000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005000555055005550000055505550555055005550000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005000500050505050000050505050050050505000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005000550050505550000055005550050050505500000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005000500050505050000050505050050050505000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000005550555050505050000050505050555050505550000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010111101000007
707000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000111b1b11000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000011119911000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001177710000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001177710000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001177710000007
7000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001199d990000007
70000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007
77777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777

__gff__
0003000000000101010101000000000083838300000001010101010000000001838383830800838381818107070700038383838383838383818181070707000301010101010101000000000000000000010101010101810000000000000000000101010101010000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__map__
0000000000000000000000000000000000000000000000000000000000000010212121212121212121212121212121212121212121213131313131313131313131313131313131313131313131313121383721313131313131313131313121213721313131313131312121363721313121213638383837212121213131313131
00000000000000000000000000000000000000000000000000000000000010212121212121212121212121212121212121212121212200000000000000000000000000000000000000000000002a2820213132290000000000000000002a010121322856290000002a3031212132292a30312121363721313131323b28282900
00000000000000000000000000000000000000000000000000000000000a2026212121212121212121212121212121212121212121220000000000000000000000000000000000000000000000002820225629000000002f0000242400000000222828283900000000002a01322800002a563031212132290000233c29000000
0000000000000000000000000000000000000000000000000000000000102138212131313131312121212121212121212131313131320000253f33343411111101010101010101010101010100002801222800000000002f000a33351a00460022292a282800000000000001282900000000002a2022280000002a3c00000000
000000000000000000000000000000000000080000000000000000000020213821222828290000303131313131313131223b00002a29000000002a562801212101290000000000000000000000002a01012900000000333434341111111111113200002a28392424000000012800000000000000202228000000003d00000024
00000000000000000000000000000000001012000000000000000000002026382122290000000000001f002a28282900013d000000000000000000002a013131010000000000003a3900000000000001010000000000002a562801313121212100000000282810120000002a290000242400003a203228000000000000000001
000000000000000000000000000000000020220000000046000000003a2038382122000000000000001f00002a2800000100000000000000000000000000000001000000000000282800000000000001011a000000000000002a012829202126000200002a28202200000000000000333539002a012829000000000000000001
0000000000000000000000000000000000202239000010121a003a28282036382122000014000000001f000000280000000000000000000000000000000044000100000000002a2828290000000000012210123900002400000001280020213811111200002a2022000000000000000129000000012900000000000000002401
00000000000000000000000000000000003032280000202111122828282021212122000000000010111112000028390000000000000000000000000033111111010000000000002828000000000000012230322828393f3900002a29002021382121222424242022650000000000000100000000014400000000000024242320
00000000000000003a28390000000000002a282900002021212228282930313121221a2f2f2f442026272200002a10111111111200000000000000002a302126010000000000002a29000000000000012112282828283f29000000242420213827212111111121222f2f0800000000010000242401121a3a2839000010111121
0000000000000010111228283900440000002839003a202627222900002a28562121111111111121383822242424303131313132390000000000000000282036010000000000003a39000000000000012122282828282900000000011121213838213131313131322310111200000001393a3334313134343529000001012121
0000000000000020212228282810121a003a2828282820363722000000002a282121212121212126383821111111111111352a282900000000000000002a3021010000000000002a29000000000000013132290000000000000000012121263838222828291f00002a3031322424240128282829001f00000000000001012121
0000000000450a303132292a2820211111111111111121212122000000003a28313131313131313638372121212121213229000000003a3f3f00000000002820010000000000000000000000000000010000000000000000002424012121383837222900001f000000002a333434343529000000001f00000000000001012126
0000020a10111111111200002820212121212121212121262722240000101111000000002a282830313131313121212228000000000028282900000000002a2001390000000000060000000000003a0100000000000000003a3b1021212638382122000000013900000000000013000000000000001f00000000003a20212138
1111111121212126212200002a202121262721263838383838211224242021210000000000002a291f002a28560101012900000000002829003a3900000000200128283900460000000046003a2828014502000000000000283c20212136383821220015000128000000000000130000000d0a23101112000000002820212138
262721212126383827220000002021263838383838383838382721111121212600020045000000001f0000282829000000000000003a280000283f3f3900002001010101010101010101010101010101111112000000003a283c302121263838212200003a0128390000003a10111111111111112121223900003a2820212638
37212121313131313121223c3c3031323c3c2021212131313131323c3021213c11111111121a00001f003a2828390000000000003a282839002a2828290000200101010101010101010101010101010137213200000000000000000000202138212131313131313131313131323c3c3c20212121212121213131313121212121
21213132242424242430323c3c2424243c3c3031313224242424243c2430313c2121212121111111111112292a2828390000083e1011122800002829000000200101010101010101010101010101010121221f0000002a00002900000020213831322900001f1f00002a2828563d3c3c30313121212131322829002a30313131
31322424000000000024243d3d0000253c3c2424242400000000003c0024243c383838272121262721212111111111111111111121212228393a28000000002001010101010101010101010101010101212200000000003a390000000020213629000000001f0000000000002a283d3d29002a0101015629000000002a290000
242400000000000000000066000000253c3c3900000000000000003d0000003d313131313131313131313131313131312121313131313131313131313131212121213131313131313131313121212121213200000000002a290000003a2021210000000000000000000000000000660000150001012900000000000000004600
000000000000000000000024240000253c3c28000000000000000024000000663b28282828290000001f1f002a28282831322424242424242424242424240121313228282900001f1f002a56012121212229000000000000000000002a3021210002000000000000000000000000000000000a01560000000000000000011111
00000000000024000000253b3b0000253c3c28000000000000000024000000003c292a2900000045001f00000008002a29000000242424240024242400000121282829000000001f000000280121212132000000000000000000000000282021111112000013130000000000003b101111111201290000000024242424012121
0000000000253f700000253c3c0000253c3c2900000000240000003b3900253b3c250000253b101111111111111111110000003a3b1011122410123b3900202129000244000000000000002801313121290000000039005455003a00002a30213131322424242424242f2f00003c202627212201000000000010111111212126
0000000000001f0000003a3c3c3900253c3c00000000253f2500003d2900253c3c253a39253c20213131313131212126000000283c3031322f30323d2839202111111112390000000000002a28292a20000000003a29006465002a3900002a30111111343434343434343500003c203637213229000000000020212121212638
0000000000001f000000283c3c2800253d3d000000242428000000240000003c3c252a29253c0101291f00002520213845023a283d5628291f1f2a2828282021212121322900000000000000000000200000003a28000010120000283900000021213229002a285628000000003d202121322900000000002420212638383838
0000020000001f000000283c3c28000066000000250101290000000000003a3c3c250000253c0156001f0000252021362c2c2c2d282900001f0000002a282021272122290000000000002f3f39000020000000002a39103131123a2900000000212265003e08282829000000002a010101280000000000250121213638383838
00002f2f00001f0000002a3c3c2800002424000025010170000000240000283c3c25393a253d0128001f0000253031312c2c2d290000000000000024002a20213821222424242424242410122800002000000000002a013b3b012900000000003131343434352828000000000000010101290000000000250131313131312136
0000101224241f000000003c3c2800253b3b0000252001700000003b393a283c3c252a29002a2829003b2500002a283b3b282900000000002400003b2424202138212111113434343434313228393a20000000000033323d3d303500000000003b3b00002a28282900000000003a0101011a0d00000000001f00002a56282021
2400202111121f000024243c3c2900253c3c2424242022000024243c2828283c3c25000000002a00003c25000000283c3c280000002400003b24243d1011212138212121222b2c2c2c2c2d2828282820000000003a2b2d33352b2d39000000003c3d000000000000000000000028012121111239000000001f000000002a3021
2324202121221f242410123c3c0000243c3c1011112122242410123c29002a3c3d25083e000d00000a3c250000002a3c3c290000003b24243c1011343131313138272121223b2b2d292a2829002a28200002440a1011111111111112390000003c00000000000000000000453a28012121313228393a01001f00000000002a20
11112121212101010121223c3c2424233c3c2021212121111121223c2424243c3434343434343434353d25000000003c3c000024243d10123c3032282829002a38372121223c28290000000000002a201111111121212121212121222f2f1a003c000000000000000000001011112121222829002a2801451f00000000002420
21212126382721212121223c3c1011123c3c2026382721212121223c1011123c2c2c2d5629000000000000000000463d3c393a33343431323c252a290000000037212121223c28000000000000000020212121212121212627212121111111113c003a2324242424242424202121262722280000002a10111239000000242320
__sfx__
01030306245342452024510245102451024510245002450030500305002b5002b5002950029500245002450030500305002b5002b5002950029500245002450030500305002b5002b50029500295002450024500
0104020317770187711877018770154001540015400164001740018400194001a4001b4001d4001e4001f4001f4001f4001c40018400164000000000000000000000000000000000000000000000000000000000
010b05080017000160001500014000132001220012200122000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000605081817300154001400013000122001220012200122000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
010300002f6702f6302f6202f6202f6102f6102f6102f6102f6152f61500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
010400021837020370000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
01040002183701f370000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
010200000c6400c070110611305130634306250c06000051244502b4513a4503a4502b0241f021320213202329040290502a0612a0602c0612c0600c65400000186631e0601f0511f0501e0411d0311c02100000
010700000c05318653246440061200612000000000000000301532b1402e13035130241342b1242e114351153c473186250c625006150065324620186212461524340246433233131321303112b3110000000000
010b0000308303082529820298152b8202b8152482024815308203081537820378153582035815308203081529820298152b8102b815248102481530810308152b8202b815298102981524810248151f8101f815
010b0000080400802518045180251f0451f0252204522025080400802518045180251f0451f0252204522025080400802518045180251f0451f0252204522025080400802518045180251f0451f0252204522025
010b0000080400802518045180251f0451f0252004520025080400802518045180251d0451d0251f0451f025080400802518045180251f0451f0252004520025080400802518045180251d0451d0251f0451f025
010b00000a0400a02516045160251d0451d0251e0451e0250a0400a02516045160251b0451b0251d0451d0250a0400a02516045160251d0451d0251e0451e0250a0400a02516045160251b0451b0251d0451d025
010b00000c0400c02514045140251b0451b0251d0451d0250c0400c02514045140251b0451b0251d0451d0250c0450800014045140251a0001a000180451802507000070001d0451d02520045200251404514025
01040000306532405330653306103061018615376003760000654000003065424800248002480000000000003c6240c6412466113075260741a0610e0510206425041190310d04424031180210c024180110c011
010b0000247402473500000000002b7402b73500000000002b7002b7002b7402b73529740297002b7402b7302b7122b7152b9402b7302c740007002e7402e7302e7222e71530750000002e9402e7322c7402c735
010b00002b9402b7302b7302b722297402973524740247302473024720247222471529700297002b7252b7152b7152b7152b7002b700297252971529715297152472524715247152471524700247000000000000
010c000013033006001f033210313c02100654070140c0210004415611116110e6110c6110b6110961107611056110461102611006110061500615006150061500614006110c62118631246310c6210061100615
010b000022740227302272222715297402973500000000002b7002b700297402973527740297002974029730297122971529940297302a740007002c7402c7302c7222c7152a7500000029940297322774027735
010b00000c0400c02514045140251b0451b0251d0451d0250c0400c02514045140251a0451a0251d0451d0250c0450800014045140251a0001a000180451802507000070001d0451d02520055200252406524025
010b0000279402773027730277222771227712297402773026740267302673026722267122671224712247152071624706207262470520716247062074624705207162471614053240000cc201405324c2018c10
010b000018b5018a2018a2018a1518b5018a2018a2018a2018a1018a1524b4024a2024a2024a2024a5024a2024b3424a201fa341fa2518b5018a2018a2018a2018a2018a2018a2018a1018a1018a1516b4016a22
010600002463424160188352b1501f8252e1402481524140188252b1301f8152e1202481524130188152b1201f8152e0102481524120188151f8101f81522810228150000018c0018c0000000000000000000000
010b000014b5014a2014a2014a5014a2014a2014a1014a1520b5020a2020a2020a5020a1020a1014b5014a2014a5014a2014a2014a1014a2414a2014a5014a1014a5414a2014a2014a5014a2414a201ba501ba10
010b000012b5012a2012a2012a1512b5012a2012a2012a2012a1012a151eb401ea201ea201ea201ea501ea201eb341ea2019a3419a2512b5012a2012a2012a2012a2012a2012a2012a1012a1012a1519b4019a22
110b000011b5011a2011a2011a5011b5411a2011a1011a101db501da201da201da501db541da201da101da101db500000018b2018a2018a150000011b2011a2011a150000018b2018a2318c4018c1024a3018a21
010b000018b5018a2018a2018a1518b5018a2018a2018a2018c4018c1024b4024a2024a2024a2024a5024a2024b3424a201fa341fa2518b5018a2018a2018a2018c4018c1018a2018a1018a1018a1516b4016a22
010b000014b5014a2014a2014a5014a2014a2014a1014a1518c4018c1020a2020a5020a1020a1014b5014a2014a5014a2014a2014a1014a2414a200cc2514a1018c4018c1014a2014a5014a2414a201ba501ba10
010b000012b5012a2012a2012a1512b5012a2012a2012a2018c4018c101eb401ea201ea201ea201ea501ea201eb341ea2019a3419a2512b5012a2012a2012a2018c4018c1012a2012a1012a1012a1519b4019a22
010b00000000030810308152b8102b8152981029815248102481530810308152b8102b8152981029815248102481530810308152b8102b8152981029815248102481530810308152b8102b815298102981524810
010b00001d1301d1201d1121d112241302412500000000002910029100241202411522110221152414024130241122411527135001002912500100291302b1302b1202b112291302912527135001002412500000
010b0000221302212022112221121b1301b1250000000000291002910022120221152011020115221402213022112221152213500100241252410025136251302512025112241302412522135001002012500000
010b000011040110251d0451d0252204522025240452402511040110251d0451d0252004520025240452402511040110251d0451d0252204522025240452402511040110251d0451d02522045220252404524025
010b000019b5019a2019a2019a1519b5019a2019a2019a2019c4019c1025b4025a2025a2025a2025a5025a2025b3425a2020a3420a2519b5019a2019a2019a2019c4019c1019a2019a1019a1019a1517b4017a22
010b00001d1301d1201d1121d1121d1121d1150000000000291202911524125291002b1252b1002c1302c1202c1202c1222c1122c11529b203010029b202b1001f1001f1002b1252b10029125291002412524100
010b00001d1301d1201d1121d1151d1301d1201d1121d112291202911524125291002b1252b1002c1302c1202c1202c1222c1122c11529b201db3029b202b1001f1001f1002b1252b10029125291002412524100
010b00001bb501ba201ba201ba501ba201ba201ba101ba151fc401fc1027a2027a5027a1027a101bb501ba201ba501ba201ba201ba101ba241ba2013c251ba101fc401fc101ba201ba501ba241ba2022a5022a10
010b00001db501da201da201da151db501da201da201da201dc401dc1029b4029a2029a2029a2029a5029a2029b3429a2024a3424a251db501da201da201da201dc401dc101da201da101da101da151bb401ba22
010b000018b5018a2518a2018a2518a2018a2518b4018a2518c400cc2518a1018a1524b5024a2524a2024a2524a2024a2518b5018a2518a2018a2518a2018a2518c400cc2518a1018a1524b5024a2518a1018a15
010b0000245650c01500505180152b5450c01524565180152c5550c0152b54518015245650c0152e555180152b5450c01524565180152c5550c0152b54518015245650c0152b55518015295450c0152b56518015
110b00001f1441f1301f1301f1301f1211f1221f1121f1151f100006162414024130261322612027140271302713027130271202712227111271153cb252710024b15006162b10030b003cb250c1002b1442b130
010b000016b5016a2516a2016a2516a2016a2516b4016a2516c400ac2516a1016a1522b5022a2522a2022a2522a2022a2516b5016a2516a2016a2516a2016a2516c400ac2516a1016a1522b5022a2516a1016a15
010b000014b5014a2514a2014a2514a2014a2514b4014a2514c4008c2514a1014a1520b5020a2520a2020a2520a2020a2514b5014a2514a2014a2514a2014a2514c4008c2514a1014a1520b5020a2514a1014a15
010b000013b5013a2513a2013a2513a2013a2513b4013a2513c4007c2513a1013a151fb501fa251fa201fa251fa201fa2513b5013a2513a2013a2513a2013a2513c4007c2513a1013a151fb501fa2513a1013a15
110b0000291442913029130291222b1402b132241402413024130241302412024122241122411224112241150c300133003cb250c300133001b3003cb25133000c71513715187251a7251b7351f7352414526145
110b00001f1441f1301f1301f1301f1211f1221f1121f1151f100006162414024130261322612027140271302713027130271202712227111271153cb252710024b15006162b10030b0029144291302913229122
110b00002714427130271302712227122271122914027130261402613026130261302612026122261122611226112261153cb250c3003cb251b3000a300133000c7151371500c4000c251b7351f7352414526145
010b000011b5011a2511a2011a2511a2011a2511b4011a2511c4005c2511a1011a151db501da251da201da251da201da2511b5011a2511a2011a2511a2011a2511c4005c2511a1011a151db501da2511a1011a15
110b00000c5450550018d550510018d45051000c5350510018d4517a0018d3517a002452517a0018d3517a000c54517a0018d5517a0018d45000000c53517a0018d4517a0018d3516a000c52517a0018d3517a00
110b00000c54517a0018e5517a0018e4517a000c53517a0018e4517a0018e3517a002452517a0018e3517a000c54517a0018e5517a0018e45000000c53517a0018e4517a0018e3516a000c5252461418e3524624
cd0b00002411424011240212402124031240312402124021241142401124021240212403124031240212402124114240112402124021240312403124021240212411424011240212402124035240352401524015
018200200c60018600186140c6110c6150000000000000000c6140c61500000000000000000000246140c6110c615000000000000000000001861400611006150000000000000000c6140c615000000000000000
15820000000000ca740ca700ca700ca75000003c00000000000000ca740ca700ca700ca750000000000000000000000a7400a7000a7000a750000000000000000000000000000000ca740ca7100a7100a7500000
0182002004614006111d611026111061109611056120461200611116110261110611096110561204612006111d611026112861109611056120461200611116110261110611096110561204612006120561202615
010b0000188401f850248601f850248602687024840268502886226870288502b8603087130872248002680030820268002880030810308003080030814000003080000000000000000000000000000000000000
010700000c00018600246000060000600246002b8003780037800378003780037800000000000000000000000c0001860024600006000c05318653246440061200612246532b8743787137862378523784237824
010e000018a1418a1018a2018a3018a4018a5018a6018a7018a6218a5218a4218a3218a2218a1218a1218a1518a5018a4018a3018a3518a2418a4018a3018a3518a5018a4018a3018a3518a2418a4018a3018a35
010e00000c0431a8001c80018800000001f8000c0330c0230c033268002480026800288002680028800298000c7500c74513750137451a7501a74518750187451f7501f745247402473526740267352474024735
011000002b7402b73530740307353274032730327203271032710327103271032715000000000000000000001f8502b8522b8422b835000000000000000000000000000000000000000000000000000000000000
010e00000cc400cc45130001a000130001a0000cc450cc450cc430cc4500000000000cc400cc4500000000000cc400cc45000000000000000000000000000000130161a026130361a046130361a026130161a016
01100000130161a026180361f046130461a036180261f016130161a016180161f015130001a000130001a00000000000000000000000000000000000000000000000000000000000000000000000000000000000
0110000018a1418a1018a2018a3018a4018a5018a6018a7018a6218a5218a4218a3218a2218a1218a1218a1500000000000000000000000000000000000000000000000000000000000000000000000000000000
01100000180161f026180361f046180361f026180161f016180161f016180161f0150000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
010e00000000000000000000000000000000000000000000006140c6110c611186111861124611246113062130621246112461118611186110c61100611006150000000000000000000000000000000000000000
__music__
00 091d4344
00 091d5656
01 090a1555
00 090b1757
00 090c1858
00 090d194e
00 1a0a0f51
00 1b0b1057
00 1c0c1258
00 19131444
00 21201e44
00 240c1f44
00 25132244
02 25132344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 41424344
00 091d4344
00 091d4344
01 090a4344
00 090b4344
00 090c4344
00 090d4e44
00 090a4f44
00 090b5044
00 090c5244
00 09135444
00 09201d44
00 090c1d44
00 090d1d44
02 09131d44
03 33347544
03 73343544
03 41423544
04 36374344
00 38393b3f
04 3d3a3c3e
00 41424344
00 41424344
00 41424344
00 41324344
01 28272644
00 2c272944
00 2d272a44
00 2e272b44
00 30272f44
00 31272a44
00 30272944
00 31272b44
00 32262b44
02 32262f44

Changed text

Open file

pico-8 cartridge // http://www.pico-8.com
version 43
__lua__
-- cliffside 2 long
-- by leo22344
level_index,level_intro=0,0

for i=0,25 do 
    add(snow,{x=rnd(132),y=rnd(132)})
    add(clouds,{x=rnd(132),y=rnd(132),s=16+rnd(32)})
  end

-- goto titlescreen or level
  if level_index==0 then
    current_music=38
    music(current_music)
  else
    goto_level(level_index)
  end
end

function _init()
  game_start()
  --goto_level(14)
end

function _update()

update_input()

function _draw()
  pal()
  if level_index==0 then
    cls(0)
    if titlescreen_flash then
      local c=titlescreen_flash>10 and (titlescreen_flash%10<5 and 7 or 10) or titlescreen_flash>5 and 2 or titlescreen_flash>0 and 1 or 0
      if c<10 then for i=0,15 do pal(i,c) end end
    end
    sspr(64,32,64,32,36,32)
    local icoy=titlescreen_flash and (50-titlescreen_flash) or 0
    spr(114, 114, 118+icoy)
    rect(0,0,127,127,7)
    print_center("mod by",4,1)
    print_center("leo22344",11,5)
    print_center("inspired by a mod by",18,1)
    print_center("✽calverin✽", 26, 9)
    print_center("llllllllllllllllllllllllllllllllllllloong",65,14)
    print_center("mod of a mod by",72,1)
    print_center("rubyred",79,5)
    print_center("original game by",88,1)
    print_center("maddy thorson",95,5)
    print_center("noel berry",102,5)
    print_center("lena raine",109,5)
    draw_snow()
    return
  end