--1k shmup
--werxzy

-- enemy data
ty=split("⁶:425affffe7662400,0.01,0,7,0,0.3,0,-0.0001,2,5,5`⁶:425affffe7662400,0.01,0,7,0,1.1,0,-0.01,1,3,3`⁶:22227f7f2a361c08,0,0,9,0,0.3,0,0.02,4,1,3`⁶:425affffe7662400,0,0,13,0,0.1,0,0,3,30,20`⁶:3c42bdbdbda5423c,0,0,5,0,0.25,0,-0.0005,5,20,25","`")
-- bullet data
bty=split("●,1,0,0,0.8,1,60`✽,1,-15,15,0.4,3,200`✽,0,-120,10,0.4,7,100`\feミ,0,0,180,1,2,20`✽,1,0,36,1,10,30","`")
cartdata"shm1k_werx"
function _init()
	en,bul,pb,px,py,ph,pi,pc,sc = {},{},{},64,80,3,0,0,0
end

function _update60()
	cls()
	if ph ~= 0 then
		-- spawn regular enemy
		if t() % 2 == 1 then
			e=add(en, split(ty[rnd{1,2,3}]))
			e[7]=rnd(e[2])-e[2]/2
			e.r,e[2]=rnd(20),rnd(100)+10
		end

		-- spawn boss enemy
		if t() % 20 == 1 then
			e=add(en, split(ty[rnd{4,5}]))
			e.r,e[2]=rnd(20),64
		end

		-- player movement and drawing
		p_=btn(4)and 0.5or 1.2
		px+=(tonum(btn(1))-tonum(btn(0)))*p_
		py+=(tonum(btn(3))-tonum(btn(2)))*p_
		px=mid(px,120)
		py=mid(py,120)
		?(pi%20<=10and"⁶:081c362a7f7f3614"or""),px,py,11
		-- player fires
		if pc<=0 and btn(4)then
			pc+=10
			add(pb,{"⁶:1c3e3e1c1c080800",px,py,3,0,-3.5,0,0})
			?"\as3i7gc",0,0
		end

		-- update bullets, and enemy ships
		for t in all{pb,en,bul} do
			for o in all(t) do
				o[2]+=o[5]
				o[3]+=o[6]
				o[5]+=o[7]
				o[6]+=o[8]
				if(not col(o,0,0,128,128))del(t,o)
				if o.r then
					o.r-=1
					if o.r<0then
						b=split(bty[o[9]])
						o.r=b[7]
						nb(o[2],o[3],unpack(b))
					end
				end
				?unpack(o) -- draws ship or bullet
				 -- check player collision with enemy ships or bullets
				if pget(px+3,py+2) ~= 0 and pi==0 and t ~= pb then
					ph-=1
					pi=90
					if(t==bul)del(t,o)
					?ph==0 and "\a<i6g1g2g1g2g1g2g1" or "\a<i6g1",0,0
				end

				if t==en then
					-- check collision with each bullet
					for b in all(pb) do
						if col(o,b[2],b[3],5,5)then
							del(pb,b)
							o[10]-=1
							?o[10]==0 and "\a<i6g1g2g1g2g1g2g1" or "\a<i6g1",0,0
							if o[10]==0 then
								del(t,o)
								sc += (o[11]>>16)*50
							end
						end
					end
				end
			end
			if t == pb then
				pset(px+3,py+2,0)
			end
		end

		for i = 1,ph do
			?"♥",i*6,118,8
		end

		-- high scores
		?tostr(sc,2),6,1
		?tostr($0x5e00,2)
		poke4(0x5e00, max($0x5e00, sc))
		-- cooldowns
		pi = max(pi-1)
		pc = max(pc-1)
	else
		?"game over\n"..tostr(sc,2),50,50
		if(btnp(5))_init()
	end

end

function col(o,x,y,w,h)
	x-=o[2]y-=o[3]
	return x<8and x+w>0and y<5and y+h>0
end

-- bullet generation function
function nb(x,y,ch,pt,as,ad,sp,c)
	a=atan2(px-x,py-y)*pt+as/360
	for _=1,c do
		add(bul,{ch,x,y,8,cos(a)*sp,sin(a)*sp,0,0})
		a+=ad/360
	end
end