pico-8 cartridge // http://www.pico-8.com
version 41
__lua__
-- snow dogs
-- by jpt


function _init()
	create_particles()
end

function _update()
	update_snow()
	if mode == "title" then
		update_title()
	elseif mode == "game" then
		handle_input()
		update_trees()
	end
end

function _draw()
	if mode == "title" then
		draw_title()
		draw_snow()
	elseif mode == "game" then
		draw_game()
		draw_snow()
		--pdebug()
		draw_hud()
	end
end


function draw_game()
	cls()
	rectfill(0,0,128,128, 6)
	draw_dog(5, 0, 0)
	draw_dog(5, 0, 1)
	draw_dog(6, 1, 0)
	draw_dog(7, 1, 1)
	draw_dog(7, 0, 2)
	draw_dog(6, 1, 2)
	draw_trees()
end


-->8
-- particles

particles = {}
max_x = 200
	
function create_particles()
	for i=1,300 do
		particles[i] = {
			y=rnd(128)-128,
			x=rnd(max_x),
			dir=rnd(2)-1
		}
	end
end

function draw_snow()
	for p in all(particles) do
		pset(p.x, p.y, 7)
	end
end

function update_snow()
	for p in all(particles) do
		p.x += p.dir - steering
		p.y += 1 + speed
		if p.y > 128 or p.x < 0 then
			p.y = 0
			p.x = rnd(max_x)
		end
	end
end

-->8
-- game entities

function draw_dog(dog_n, x, y)
	-- x is 0..1
	-- y is 0..4
	dog_x = (
					74 - (16 * x) +
				 (steering*4*y)
	)
	-- grey transparency
	palt(0b000001000000000)
	spr(dog_n, dog_x,
	 128-(16*(y+1)), 1, 2)
	palt()
end

function draw_tree(x, y)
	spr(11, x, y, 1, 2)
end

function pdebug()
	print("sledx "..sled_x, 0, 0, 11)
	print("speed "..speed)
end

function draw_trees()
	for i=1,8 do
		draw_tree(
			left_wall[i]-8 - sled_x + 64,
			(i-1)*16
		)
		draw_tree(
			right_wall[i] - sled_x + 64,
			(i-1)*16
		)
	end
end

function update_trees()
	local new_dist = distance + speed
	if flr(new_dist / 16) > flr(distance / 16) then
		for i = 8,2,-1 do
			left_wall[i] = left_wall[i-1]
			right_wall[i] = right_wall[i-1]
		end
		left_wall[1] = left_wall[2] + rnd(21) - 10
		right_wall[1] = right_wall[2] + rnd(21) - 10
	end
end

function draw_hud()
	rectfill(14,0,114,4,7)
	rectfill(14,1,14+distance/10000*100,3,11)
	for l=0,5 do
		print("🐱", 1, 1+l*7, 7)
	end
end
-->8
-- global state

mode = "title"
steering = 0
speed = 1
distance = 0
sled_x = 64

left_wall = {
	22, 20, 20, 18, 
	18, 16, 16, 16,
}

right_wall = {
	112, 112, 114, 114,
	116, 118, 118, 118
}

-->8
-- input processing

function handle_input()
	if btn(0) then
		steering = -1
	elseif btn(1) then
		steering = 1
	else
		steering = 0
	end
	
	if btn(2) then
		speed = 2
	else
		speed = 1
	end
	distance += speed
	sled_x += steering * speed
end
-->8
-- title

title_y = 0
title_stretch = 0
title_rainbow = 0
title_susan = -40
title_89 = 40

function update_title()
	if title_y < 50 then
		title_y += 1
	elseif title_stretch < 16 then
		title_stretch += 1
	end 
	if title_stretch == 16 and title_susan < 30 then
		title_susan += 1
		title_89 -= 1
	end
	
	if btnp(4) then
		mode = "game"
	end
end

function draw_title()
	cls(0)
	
	if title_susan then
		print("susan butcher's",
		title_susan,
		title_susan + 10, 12)
	end
	
	pal(8, 8+t()%6)
	pal(12, 8+(t()+4)%6)
	sspr(48, 24, 54, 16,
				  40-title_stretch,
				  title_y,
				  54+title_stretch*2,
				  16+title_stretch)
	sspr(104, 24, 16, 16,
						70+title_89,
						100+title_89,
						48, 48)
end	
__gfx__
00000000644444466444444667c7c7c6666666666666666666666666666666660000000000033000666666666666666600000000666666666666666600000000
000000006499994664999946c777777c666666666666666666666666556666550000000000033000666336666663766600000000466666646666666600000000
00700700693993966939939677077077666666666666666666666666565555650000000000333300666336666663366600000000446666444666666600000000
00077000699999966999999d77777777666666666466664660066776665555660000000000333300663333666633776600000000444664446666666600000000
0007700069999996699999dd77788777666666666444444666007766655555560000000003333330663333666637736600000000646666466666666600000000
00700700699ee996699ee9dd67777776666666666644446666777066655555560000000000044000663333666633336600000000664444666666666600000000
0000000066999966669999dd66777766666666666644446666070066665555660000000000044000633333366333777600000000660440666666666600000000
0000000066699666666996dd67777776666666666664466666677666666556660000000000044000633333366377733600000000664444444444446600000000
000000006dd99dd66dd99ddd77777777666666666664466666707766665555660000000000000000633333366333333600000000664444044444444600000000
00000000ddddddddddddddd677677677666666666644446666077766655555560000000000000000333333333333777700000000666440044444444400000000
00000000dd2222dddd22222677677677666666666644446666770066655555560000000000000000333333337777733300000000666440444444444400000000
00000000dd2222dddd22222677677667666666666644446666770766655555560000000000000000666446666664466600000000666666444444444600000000
00000000dd2222dddd22222666677766666666666644446666077766655555560000000000000000666446666664466600000000666666446666644600000000
00000000dd2222dddd22222666777776666666666644446666077766655555560000000000000000666446666664466600000000666666446666644600000000
00000000d222222dd222222667777776666666666644446666677666665555660000000000000000666446666664466600000000666666446666644600000000
00000000622222266222222667777776666666666664466666607666666556660000000000000000666446666664466600000000666666046666604600000000
00000000622222266666666666666666666666660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000622662266666666666666666666666660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000622662266666666666666666666666660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000622662266666666666666666666666660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000622662266666666666666666666666660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000622662266666666666666666666666660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000666666666666666666666666666666660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000666666666666666666666666666666660000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000666666666666666666666666000000000000000066660666600066660666600066000666666000066000666600000000080000000000000000000000
00000000666666666666666666666666000000000000000066660666660066660666600600600660000600666600666660000000800888800088880000000000
00000000666666666666666666666666000000000000000006600660066006600066006600660660000606600660660066000000008000080000008000000000
00000000666666666666666666666666000000000000000006600660006006600066006600660666666606600660660006000000008000080000008000000000
00000000666666666666666666666666000000000000000006600660006006600066006666660666660006600660660006000000000888800088888000000000
00000000666666666666666666666666000000000000000006600660066006600066006600660660660006600660660066000000008000080000008000000000
00000000666666666666666666666666000000000000000066660666660066660066006600660660066000666600666660000000008000080000008000000000
00000000666666666666666666666666000000000000000066660666600066660066006600660660006600066000666600000000000888800088880000000000
__label__
60606060600000000060000000006000000000000000000000000000000000000000000000000000000000000000000000006000000000600000000060606060
00000000006000000000600000000060000000000000000000000000000000000000000000000000000000000000000000600000000060000000006000000000
00000000000060000000006000000000606000000000000000000000000000000000000000000000000000000000006060000000006000000000600000000000
60606000000000600000000060000000000060000000000000000000000000000000000000000000000000000000600000000000600000000060000000006060
00000060000000006000000000600000000000606000000000000000000000000000000000000000000000006060000000000060000000006000000000600000
00000000600000000060000000006000000000000060606060606060606060600060606060606060606060600000000000006000000000600000000060000000
60600000006000000000000000000060000000000000000000000000000000006000000000000000000000000000000000600000000000000000006000000060
00006000000060000000600000000000606000000000000000000000000000000000000000000000000000000000006060000000000060000000600000006000
00000060000000600000006000000000000060606060606060606060606060606060606060606060606060606060600000000000006000000060000000600000
60000000600000006000000060000000000000000000000000000000606060606060606060000000000000000000000000000000600000006000000060000000
00600000000000000000000000606000000000000000000060606060606060606060606060606060600000000000000000006060000000000000000000000060
00006000006000000060000000000060606060606060606060606060606000000000006060606060606060606060606060600000000000600000006000006000
00000000000060000000600000000000000000000000606060606060606060606060606060606060606060000000000000000000000060000000600000000000
60000060000000600000006060000000000000006060606060600000000000000000000000000060606060606000000000000000606000000060000000600000
00000000600000006000000000606060606060606060606000000000000000000000000000000000006060606060606060606060000000006000000060000000
00600000000000000060000000000000000000606060606060606060606060606060606060606060606060606060000000000000000000600000000000000060
00006000006000000000600000000000006060606060000000000000000000000000000000000000000000606060606000000000000060000000006000006000
00000060000060000000006060606060600060600000000000000000000000000000000000000000000000000060600060606060606000000000600000600000
60000000000000600000000000000000606060606060606060606060606000000000006060606060606060606060606060000000000000000060000000000000
00600000600000006000000000000060606060000000000000000000000060606060600000000000000000000000606060600000000000006000000060000060
00000000006000000060606060606060606000000000000000000000000000000000000000000000000000000000006060606060606060600000006000000000
00006000000060000000000000006060606060606060606060000000000000000000000000000000606060606060606060606000000000000000600000006000
60000060000000600000000000606060600000000000000000606000000000000000000000006060000000000000000060606060000000000060000000600000
00000000000000006060606060006060000000000000000000000060606000000000006060600000000000000000000000606000606060606000000000000000
00600000600000000000000000606000606060606060000000000000000060606060600000000000000000606060606060006060000000000000000060000060
00006000006000000000006060600060000000000000600000000000000000000000000000000000000060000000000000600060606000000000006000006000
00000000000060606060600060606000000000000000006060000000000000000000000000000000606000000000000000006060600060606060600000000000
60000060000000000000006060606060606060600000000000600000000000000000000000000060000000000060606060606060606000000000000000600000
00600000600000000000606060600000000000006000000000006060000000000000000000606000000000006000000000000060606060000000000060000060
00000000006060606060000060000000000000000060000000000000606060600060606060000000000000600000000000000000600000606060606000000000
00006000000000000000606000606060606000000000600000000000000000006000000000000000000060000000006060606060006060000000000000006000
60000060000000000060606060000000000060000000006000000000000000000000000000000000006000000000600000000000606060600000000000600000
00600000606060606060606000000000000000600000000060600000000000000000000000000060600000000060000000000000006060606060606060000060
00000000000000000000000060606060600000006000000000006000000000000000000000006000000000006000000060606060600000000000000000000000
00006000000000006060606000000000006000000060000000000060600000000000000060600000000000600000006000000000006060606000000000006000
60000060606060606060600000000000000060000000600000000000006060606060606000000000000060000000600000000000000060606060606060600000
00000000000000000000006060606060000000000000006000000000000000000000000000000000006000000000000000606060606000000000000000000000
00600000000000606060600000000000600000600000000060000000000000000000000000000000600000000060000060000000000060606060000000000060
00006060006060600000000000000000000000006000000000600000000000000000000000000060000000006000000000000000000000000060606000606000
60000000600000006060006060606000006000000060000000006060000000000000000000606000000000600000006000006060606000606000000060000000
00600000000060606000600000000060000060000000600000000000606060606060606060000000000060000000600000600000000060006060600000000060
00006060606000000060000000000000000000600000006000000000000000000000000000000000006000000060000000000000000000600000006060606000
00000000000060606000606060600000600000000000000060000000000000000000000000000000600000000000000060000060606060006060600000000000
60000000006000000060000000006000006000006000000000606000000000000000000000006060000000006000006000006000000000600000006000000000
00606060600060606000000000000060000000000060000000000060606060606060606060600000000000600000000000600000000000006060600060606060
00000000006000000000606060000000000060000000600000000000000000000000000000000000000060000000600000000000606060000000006000000000
00000000600060600060000000600000600000600000006000000000000000000000000000000000006000000060000060000060000000600060600060000000
60606060006000006000000000006000000000000000000060606060606060606060606060606060600000000000000000006000000000006000006000606060
00000000000060600060606060000060006000006000000000000000000000000000000000000000000000006000006000600000606060600060600000000000
00000000600000006000000000600000000060000060000000000000006060606060606000000000000000600000600000000060000000006000000060000000
60606060006060000000000000006000600000000000606060606060606060606060606060606060606060000000000060006000000000000000606000606060
00000000600000600060606060000000000000600000000000000000606060606060606060000000000000000060000000000000606060600060000060000000
00000060006000006000000000000060006000006000000000006060606060000000606060606000000000006000006000600000000000006000006000600000
60606000000060600000000000600000000060000060606060600060600000000000000060600060606060600000600000000060000000000060600000006060
00000000606000000060606000006000600000000000000000006060006060606060606000606000000000000000000060006000006060600000006060000000
00000060000060006000000060000000000000600000000000606060600000000000000060606060000000000060000000000000600000006000600000600000
60606000600000600000000000600060006000006060606060606000000000000000000000006060606060606000006000600060000000000060000060006060
00000000006000000060606000006000000060000000000000000060006060606060606000600000000000000000600000006000006060600000006000000000
00000060000060006000000060000000600000600000000060606000600000000000000060006060600000000060000060000000600000006000600000600000
60606000600000600000000000600060006000006060606000000060000000000000000000600000006060606000006000600060000000000060000060006060
00000060006000000060606000000000000000000000000060600000006060606060606000000060600000000000000000000000006060600000006000600000
00000000600060006000000060006000600060000000006000006000600000000000000060006000006000000000600060006000600000006000600060000000
60606000000000600000000000600060000000606060600060000060000000000000000000600000600060606060000000600060000000000060000000006060
00000060006000000060606060000000006000000000006000600000000060606060600000000060006000000000006000000000606060600000006000600000
00006000600060006000000000006000600060000000000060006000006000000000006000006000600000000000600060006000000000006000600060006000
60600000000000600000000000600060000000606060600000000000600000000000000060000000000060606060000000600060000000000060000000000060
00000060006000000060606060006000006000000000006000600060000000000000000000600060006000000000006000006000606060600000006000600000
00006000600060006000000000600000600060000000600060000000000060606060600000000000600060000000600060000060000000006000600060006000
00600000000000600000000000000060000000600060000000006000006000000000006000006000000000600060000000600000000000000060000000000060
60000060006000000060606060006000006000006000006000600000600000000000000060000060006000006000006000006000606060600000006000600000
00006000000060006000000000600000600060000000600000000060000000000000000000600000000060000000600060000060000000006000600000006000
60600000600000000000000000006060000000606060000060000000000000000000000000000000600000606060000000606000000000000000000060000060
00000060006000600000606060600000606000000000000000006000000060606060600000006000000000000000006060000060606060000060006000600000
00006000000000000060000000000060000060000000006000600000006000000000006000000060006000000000600000600000000000600000000000006000
60600000600060006000000000006000006000606060600000000000600000000000000060000000000060606060006000006000000000006000600060000060
00000060000000000000606060600060600000000000000060000060000000000000000000600000600000000000000060600060606060000000000000600000
00000000006000600060000000006000006060000000006000000000000000000000000000000000006000000000606000006000000000600060006000000000
60606000600060000000000000000060600000606060600000006000000000000000000000006000000060606060000060600000000000000000600060006060
00000000000000006000006060606000606060000000000000600000000060606060600000000060000000000000606060006060606000006000000000000000
00000060006000600000600000000060000000600000000060000000606000000000006060000000600000000060000000600000000060000060006000600000
60606000000000000060000000000000606060006060606000000060000000000000000000600000006060606000606060000000000000600000000000006060
00000000600060000000000060606060000000600000000000006000000000000000000000006000000000000060000000606060600000000000600060000000
00000060000000006000006000000000606060006000000000600000000000000000000000000060000000006000606060000000006000006000000000600000
60606000006000600000600000000000006060600060606060000000000000606060000000000000606060600060606000000000000060000060006000006060
00000000600000000060000060606060600060006000000000000000006060000000606000000000000000006000600060606060600000600000000060000000
00000000000060000000000000000000006000600060000000000060600000000000000060600000000000600060006000000000000000000000600000000000
60606060000000006000006000000000000060606000606060606000000000000000000000006060606060006060600000000000006000006000000000606060
00000000006000600000600000006060606060606060000000000000000000000000000000000000000000606060606060606000000060000060006000000000
00000000600000000060000000600000000000606000600000000000000000606060000000000000000060006060000000000060000000600000000060000000
60606060000060000000000060000000000000006060006060606060606060000000606060606060606000606000000000000000600000000000600000606060
00000000000000006000006000000060606060600060600000000000000000000000000000000000000060600060606060600000006000006000000000000000
60000000006000000000600000006000000000006060606060000000000000000000000000000000606060606000000000006000000060000000006000000000
00606060600000600000000000600000000000000000606000606060606060606060606060606060006060000000000000000060000000000060000060606060
00000000000060000060000060000000606060606060606060600000000000000000000000000060606060606060606060000000600000600000600000000000
60000000006000006000006000000060000000000000006060606060000000000000000000606060606000000000000000600000006000006000006000000000
00606060600000000000000000006000000000000000000060606060606060606060606060606060600000000000000000006000000000000000000060606060
60000000000000600000600000600000000060606060606060606060606000000000006060606060606060606060600000000060000060000060000000000000
00600000000060000060000000000000006000000000000000006060606060606060606060606000000000000000006000000000000000600000600000000060
60006060606000000000000060000000600000000000000000000000006060606060606000000000000000000000000060000000600000000000006060606000
60600000000000006000006000000060000000006060606060606060606060606060606060606060606060606000000000600000006000006000000000000060
00006000000000600000000000006000000000600000000000000000000000000000000000000000000000000060000000006000000000000060000000006000
60600060606060000000600000600000000060000000000000000000000000000000000000000000000000000000600000000060000060000000606060600060
00006000000000000060000000000000006000000000006060606060606060606060606060606060606000000000006000000000000000600000000000006000
60600060000000006000000060000000600000000060600000000000000000000000000000000000000060600000000060000000600000006000000000600060
60606000606060600000006000000060000000006000000000000000000000000000000000000000000000006000000000600000006000000060606060006060
00000000000000000000600000006000000000600000000000000000606060606060606060000000000000000060000000006000000060000000000000000000
60606060000000000060000000600000000060000000000000606060000000000000000000606060000000000000600000000060000000600000000000606060
00606060606060606000000060000000006000000000006060000000000000000000000000000000606000000000006000000000600000006060606060606060
60006000600000000000000000000000600000000000600000000000000000000000000000000000000060000000000060000000000000000000000060006000
00600060006000000000606000000060000000006060000000000000000000000000000000000000000000606000000000600000006060000000006000600060
00006060600060606060000000006000000000600000000000000000606060606060606060000000000000000060000000006000000000606060600060606000
60600060606000000000000000600000000060000000000000006060000000000000000000606000000000000000600000000060000000000000006060600060
00006000600060000000000060000000006000000000000060600000000000000000000000000060600000000000006000000000600000000000600060006000
00000060006000606060606000000000600000000000606000000000000000000000000000000000006060000000000060000000006060606060006000600000
60606060606060000000000000000060000000000060000000000000000000000000000000000000000000600000000000600000000000000000606060606060
00000000606060600000000000006000000000006000000000000000000000000000000000000000000000006000000000006000000000000060606060000000
00000000006060606060606060600000000060600000000000000060606060606060606060600000000000000060600000000060606060606060606000000000
60606060600060000000000000000000006000000000000000606000000000000000000000006060000000000000006000000000000000000000600060606060
00000000006060606060000000000000600000000000006060000000000000000000000000000000606000000000000060000000000000606060606000000000
00000000000000606000606060606060000000000000600000000000000000000000000000000000000060000000000000606060606060006060000000000000
00606060606060006060000000000000000000006060000000000000000000000000000000000000000000606000000000000000000000606000606060606060
60000000000000606060600000000000000060600000000000000000000060606060600000000000000000000060600000000000000060606060000000000000
00000000000000006060606060606060606000000000000000006060606000000000006060606000000000000000006060606060606060606000000000000000
00000000000000000060606000000000000000000000000060600000000000000000000000000060600000000000000000000000006060600000000000000000
00000000000000000000606060000000000000000060606000000000000000000000000000000000006060600000000000000000606060000000000000000000
00000000000000000000006060606060606060606000000000000000000000000000000000000000000000006060606060606060606000000000000000000000
00000000000000000000000060600000000000000000000000000000000000000000000000000000000000000000000000000060600000000000000000000000
00000000000000000000000000606060000000000000000000006060606060606060606060606000000000000000000000606060000000000000000000000000

__map__
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000010101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000010101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__sfx__
01030000000000000000000020500305004050050500a050100502a0502805027050292502725025250212501e25019250162502c150261501d15000000000000000000000000000000000000000000000000000
001000001325013250132502525023250142401c24026230142502526027240282502625020250192501725017250192501b25012250000000000000000000000000000000000000000000000000000000000000
__music__
00 01424344