function title_update()
	if btnp(4) then
		change_screen(screen_conversation({
			{phoebe_portrait, "hi! i'm phoebe! welcome to pilton!"},
			{phoebe_portrait, "this is a small town known for our fireworks festival."},
			{phoebe_portrait, "or we would be. my grandfather, the town's best alchemist, died suddenly and"},
			{phoebe_portrait, "hadn't taught me about fireworks. my mother is an adventurer instead"},
			{phoebe_portrait, "of learning alchemy, so now there's no one to carry on the tradition."},
			{phoebe_portrait, "the town's pretty broken up about it but i'm doing my best to carry on."},
			{phoebe_portrait, "but i only know the basics of picking herbs and purifying water."},
		},
		function() change_screen(screen_workbench) end,
		{update=walkaround_update, draw=walkaround_draw}))
	end
end

r1, r2 = 0,0
function title_draw()
	cls()
	local big = "\^t\^w"
	local t = "atelier phoebe"
	local co = 0
	local x = 10
	for i=1,#t do
		local c = sub(t, i, i)
		col = 9
		if (time()*2 + x/128) % 8 < 0.25 then
			col = 10
		end
		x = print(big .. c, x, 30 + sin(x/128+time()/4)*2, col)
	end
end

screen_title = {update=title_update, draw=title_draw}