pico-8 cartridge // http://www.pico-8.com
version 18
__lua__
-- ld45 - recycle shooter
-- by thesnide

function _init()
	printh("---","console.txt",true)
	f=0
	p={ -- player's ship
		s=0, -- sprite
		x=64,y=64,
		h=100, -- health
		a=100, -- ammo
		p=0,	-- points (score)
		bb={x1=0,y1=0,x2=7,y2=7}
	}	
	
	gun_offset={4,1,5,0}

	bullets={}
	aliens={} -- aliens
	scraps={} -- scrap
	explosions={} -- explosions
	pup={} -- power ups
end
-->8
function _draw()
	cls()
	
	spr(p.s,p.x,p.y)

	for pu in all(pus) do
		spr(pu.s,pu.x,pu.y)
	end	

	for a in all(aliens) do
		spr(a.s,a.x,a.y)
		if a.h < a.mh then
			line(a.x,a.y,a.x+a.h,a.y,col(a.h,a.mh))
		end
	end

	for s in all(scraps) do
		spr(s.s,s.x,s.y)
	end

	for b in all(bullets) do
		spr(b.s,b.x,b.y)
	end

	for x in all(explosions) do
		circfill(x.x,x.y,x.s*x.t,8)
		circfill(x.x,x.y,x.s*x.t/3*2,9)
		circfill(x.x,x.y,x.s*x.t/3,10)
	end
		
	-- health bar
	line(0,0,1,0,8)
	line(2,0,2+p.h,0,col(p.h,100))
	
	-- ammo bar
	line(0,2,1,2,12)
	if p.a > 0 then
		line(2,2,2+p.a,2,col(p.a,100))
	end
end
-->8
function _update()
	f+=1
	pk("f:"..f)

	-- spawn scrap
	if rnd(10) > 9 then
		spawn_scrap(rnd(128),rnd(128))
	end

	-- spawn aliens
	if rnd(10) > #aliens then
		add(aliens, {
			s=16,dx=rnd(1),dy=rnd(2),
			x=rnd(128),y=rnd(6),
			h=1,mh=1,
			bb={x1=0,y1=0,x2=7,y2=7}
 		})
 	end

	-- move aliens
	for a in all(aliens) do
		a.x+=a.dx
		a.y+=a.dy

	 	if off(a) then del(aliens,a) end 
 	end
 
	-- move scrap
	for a in all(scraps) do
		a.x+=a.dx
		a.y+=a.dy

	 	if off(a) then del(scraps,a) end 
 	end

	-- move bullets
	for b in all(bullets) do
		b.x+=b.dx
		b.y+=b.dy

		if off(b) then del(bullets,b) end 
	end

	-- update explosions 
	for x in all(explosions) do
		x.t+=1
		if x.t > 7 then del(explosions,x) end
	end

	-- move player
	if btn(0) then p.x-=1 end
	if btn(1) then p.x+=1 end
	if btn(2) then p.y-=1 end
	if btn(3) then p.y+=1 end
	if btnp(4) then fire() end
	if btnp(5) then upgrade() end

	-- detect collisions
	for a in all(aliens) do
		if collide(a,p) then
			-- collision a/player
			p.h -= 1
			xplode(a.x,a.y,3)			
			del(aliens,a)
		end
		
		for b in all(bullets) do
			if collide(a,b) then
				-- collision alien/bullet
				spawn_pu(a.x,a.y)
				xplode(b.x,b.y,.5)
				del(bullets,b)

				a.h-=1
				if a.h <= 0 then 
					xplode(a.x,a.y,1)
					del(aliens,a) 
				end
			end
		end
	end
 
 for s in all(scraps) do
		if collide(p,s) then
			-- pickup scrap
			pk("pickup scrap")

			p.a+=1

			del(scraps,s)
		end
	end
 
	for pu in all(pus) do
		if collide(p,pu) then
			-- pickup power up
			pk("pickup power up")


			-- action depends on the pu type
			if (pu.s==48) then p.h += 1 end
			if (pu.s==49) then p.a += 1 end
			del(pu,pus)
		end
	end
end
-->8
function absolutize_bb(o)
	return {
		x1=o.bb.x1+o.x,
		x2=o.bb.x2+o.x,
		y1=o.bb.y1+o.y,
		y2=o.bb.y2+o.y
	}
end

-- works only with objects
function collide(o1, o2)
	bb1=absolutize_bb(o1)
	bb2=absolutize_bb(o2)
	if bb1.x1 > bb2.x2 then return false end	
	if bb1.x2 < bb2.x1 then return false end	
	if bb1.y1 > bb2.y2 then return false end
	if bb1.y2 < bb2.y1 then return false end
	return true
end

-- get color for resource
function col(value,maximum)
	c=8
	nv = value * 100 / maximum
	if nv > 20 then c=9 end
	if nv > 40 then c=10 end
	if nv > 60 then c=11 end
	if nv > 80 then c=3 end
	return c
end

-- see if offscreen
function off(o)
	bb=absolutize_bb(o)
	if bb.x2 < -20 then return true end
	if bb.y2 < -20 then return true end
	if bb.x2 > 140 then return true end
	if bb.y2 > 140 then return true end
	return false
end	

function fire()
	if p.a < 0 then return end
	
	p.a-=1
	
	for i=1,p.s do
		b={
			s=32,
			x=p.x+gun_offset[i],y=p.y,
			dx=0,dy=-3,
			bb={x1=0,y1=0,x2=1,y2=4}
		}
	 add(bullets,b)
	end
end

function xplode(x,y,size)
	add(explosions,{x=x,y=y,s=size,t=0})
	for i=0,size*2 do
		spawn_scrap(x,y)
	end
end

function spawn_scrap(x,y)
	add(scraps,{
		s=33,
		x=x,y=y,
		dx=rnd(4)-1.5,dy=rnd(4)-1.5,
		bb={x1=0,y1=0,x2=1,y2=4}
	})
end

function spawn_pu(x,y)
	if (rnd(10) > 3) then return end
	add(pus,{x=x,y=y,s=48,t=0})
end

function pk(s)
	printh(s)
	printh(s,"console.txt")
end

function upgrade()
	if p.s>4 or p.a<80 then return end
	
	p.a-=80 -- use ammo to convert
	p.s+=1	
end
__gfx__
00000000000080000800800008008000080080000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00660000006680000866800008668000086680000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
06cc600006cc600006cc600006cc680086cc68000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
06cc600006cc600006cc600006cc680086cc68000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
66996600669966006699660066996600669966000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
06886000068860000688600006886000068860000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
09900990000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
b33bb33b000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
bbb33bbb000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
3bbccbb3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
3bbccbb3000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0bbccbb0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0bbbbbb0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
06000060000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
80000000055000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
90000000506500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
90000000566500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
a0000000555500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000055000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
088000000cc000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
88880000cccc00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
88880000cccc00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
088000000cc000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__label__
88333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333330000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
cc333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333330000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000990099000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000b33bb33b00000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000bbb33bbb00000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000003bbccbb300000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000003bbccbb300000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000bbccbb000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000bbbbbb000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000990099000000000000600006000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000b33bb33b00000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000bbb33bbb00000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000003bbccbb300000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000003bbccbb300000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000bbccbb000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000bbbbbb000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000600006000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000099009900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000b33bb33b0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000099bbb33bbb0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000b333bbccbb30000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000bbb3bbccbb30000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000003bbcbbccbb00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000003bbcbbbbbb00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000bbc6bb00600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000bbbbbb00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000060000600990099000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000b33bb33b00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000bbb33bbb00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000003bbccbb300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000003bbccbb300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000bbccbb000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000bbbbbb000000000000000000000000000000000000000000000000000000000000000000000000000990099000000000000000000000
0000000000000000000060000600000000000000000000000000000000000000000000000000000000000000000000000000b33bb33b00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000bbb33bbb00000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003bbccbb300000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003bbccbb300000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000bbccbb000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000bbbbbb000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000600006000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000550000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000005065000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000005665000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000005555000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000550000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000066000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000006cc600000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000006cc600000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000006699660000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000688600000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000009900990000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000b33bb33b000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000bbb33bbb000000000000000000000000000009900
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000003bbccbb30000000000000000000000000000b33bb
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000003bbccbb30000000000000000000000000000bbb33
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000bbccbb000000000000000000000000000003bbcc
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000bbbbbb000000000000000000000000000003bbcc
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000600006000000000000000000000000000000bbcc
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000bbbb
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000006000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000990099000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000b33bb33b00000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000000bbb33bbb00000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000003bbccbb300000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000003bbccbb300000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000bbccbb000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000bbbbbb000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000600006000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000005500000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000050650000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000056650000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000055550000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000005500000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000