-- alphawar by lyoy
-- created for gamejam gamecodeur 11 --
game={}
game.scene=""
game.statut=""
game.btnxrelease=false
game.score=0

grpenemies={}
grpprojectiles={}
grpparticules={}
grpbackground={}
grpgfx={}
player={}
timer=0
timer1s=0
lasttime=0

levelbg={
{"<","","","","","","","<",">"},
{"<","","","","","","","<",">"},
{"<","","","","","","","<",">"},
{"<","","","","","","","p",">"},
{"<","","","","","","","p",">"},
{"<","","","","","","","p",">"}

}



function _draw()

	cls()
	
	if(game.scene=="game")then
		game_draw()
	elseif(game.scene=="start_screen")then
		stscreen_draw()
	end

end

function game_init()
	game.statut="game"
	player=mkship(50,80)
	mkbackground()
	for i=1,5 do 
		local enemy=mkenemy(rnd(100),(rnd(20)+40)*-1,flr(rnd(3)+1) )
	end
	
	for i=1,10 do 
		local enemy=mkenemy(rnd(100),(rnd(20)+120)*-1,flr(rnd(3)+1) )
	end
	
	for i=1,15 do 
		local enemy=mkenemy(rnd(100),(rnd(20)+200)*-1,flr(rnd(3)+1) )
	end
	
	for i=1,20 do 
		local enemy=mkenemy(rnd(100),(rnd(20)+350)*-1,flr(rnd(3)+1) )
	end
	
	for i=1,10 do 
		local enemy=mkenemy(rnd(100),(rnd(20)+500)*-1,flr(rnd(3)+1) )
	end
	

end

function _init()
	game.scene="start_screen"
end


function game_over()
	game.statut="gameover"
	--restart()
end

function restart()
	
	game.scene="start_screen"
	grpenemies={}
	grpprojectiles={}
	grpparticules={}
	grpbackground={}
	grpgfx={}
	player={}

end

function _update()
	

	timer=timer+1
	timer1s=flr(timer/30)
	
	
	if(game.scene=="game") then
		if(btnp(5) and game.statut=="gameover")then
			restart()
		else
			game_update()
		end
		
	elseif(game.scene=="start_screen")then
		stscreen_update()
	end
	
	
	
	
	
end


---- functions  make -----
--------------------------




function mkenemy(px,py,ptype)
	local enemy={}
	enemy.x=px
	enemy.y=py
	enemy.dx=0
	enemy.speed=0.15
	enemy.ecartx=4
 enemy.ecarty=5
 enemy.shootrate=10
	if (ptype==1) then
		enemy.sprite=
		{
			{"<",0,"e",0,">"},
 		{"<","e","a","a",">"},
 		{"<",0,"h",0,">"}
		}
		enemy.col=1
		enemy.dx=0
		enemy.dy=1
	elseif (ptype==2) then
		enemy.sprite=
		{
			{"<",0,"e",0,">"},
 		{"<","e","a","a",">"},
 		{"<","y","y","y",">"}
		}
		enemy.col=2
		enemy.dy=3
	elseif (ptype==3) then
			enemy.sprite=
		{
			{"<","u","e","u",">"},
 		{"<","e","a","a",">"},
 		{"<","y","y","y",">"},
 		{"<",0,"y",0,">"}
		}
		enemy.col=2
		enemy.dy=3
	elseif (ptype==4) then
		enemy.sprite=
		{
			{0,0,"r",0,0},
 		{"<","e","a","a",">"},
 		{"<","y","y","y",">"},
 		{"<","t","0","t",">"},
 		{0,"<","\142",">",0}
		}
		enemy.col=1
		enemy.dy=4
	end
	enemy.w=#(enemy.sprite[1])*6
	enemy.h=#enemy.sprite*6
	enemy.life=flr(rnd(60))
	enemy.damagetimer=0
	printh("enemy.h: "..enemy.h)
	
	function enemy:update()
		enemy:collisions()
		enemy:move()
		enemy.shootrate-=1
		if(enemy.shootrate<=0
		and enemy.y>0)then
			enemy.shoot()
			enemy.shootrate=rnd(150)+5
		end
	end
	
	function enemy:move()
		enemy.x=enemy.x+enemy.dx*enemy.speed
		enemy.y=enemy.y+enemy.dy*enemy.speed
		
		--enemy.x=enemy.x+cos(time()/3)*20+50
		
	end--end fn enemu move
	
	
	
	function enemy:shoot()
		mkbullet("benemy",enemy.x+enemy.ecartx,enemy.y+20,1,11,"!!")
	end
	
	function enemy:die()
		local px=enemy.x+enemy.w/2
		local py=enemy.y+enemy.h/2
		sfx(2)
		if(game.score>=0)then
	  game.score+=2
	 end
		
		for i=1,10 do
			mkparticule(px+rnd(10),py+rnd(4))
		end
		
		del(grpgfx,enemy)
		del(grpenemies,enemy)
	end--end fn enemy die
	
	function enemy:damage(pamount)
		enemy.life=enemy.life-pamount
		enemy.damagetimer=20
		if(enemy.life<=0)then
			enemy.die()
		end
	end-- end fn enemy damage
	
	function enemy:collisions()
		for i=1,#grpprojectiles do
			local proj=grpprojectiles[i]
			
			if(proj~=nil)then
			
					if proj.x+proj.w/2>enemy.x 
						and proj.x+proj.w/2<enemy.x+enemy.w
						and proj.y>enemy.y
						and proj.y<enemy.y+enemy.h
						and enemy.y>0  then
					--collision
						
						sfx(3)
						if(proj.tag=="bship")then
							enemy:damage(proj.damage)
							proj:die()
						end
					
					
					
					end--end check
			
			end--end check proj nil
			
		end--end loop proj
	end--end functin collision
	
	add(grpgfx,enemy)
	add(grpenemies,enemy)
	return enemy

end


function mkparticule(px,py)
	local particule={}
	particule.x=px
	particule.y=py
	particule.life=10
	add(grpparticules,particule)
	
	function particule:update()
		particule.life=particule.life-1
		if(particule.life<=0)then
			del(grpparticules,particule)
		end
	end
	
	return particule
	
end

function mkpartbg()
	local bgpart={}
	bgpart.x=rnd(150)
	bgpart.y=rnd(150)
	bgpart.speed=rnd(5)
	function bgpart:update()
			bgpart.y=bgpart.y+1*bgpart.speed
			if(bgpart.y>150)then
				bgpart.y=rnd(30)*-1
			end
	end
		
	add(grpbackground,bgpart)
	return bgpart
	
end

function mkbackground()
	for i=1,20 do
		mkpartbg()
	end
end

function mkbullet(ptag,px,py,pdy,pcol,ptext)
	local bullet={}
	bullet.x=px
	bullet.y=py
	bullet.dy=pdy
	bullet.col=pcol
	bullet.tag=ptag
	bullet.sprite=
	{
	{ptext}
	}
	bullet.size=1
	bullet.w=6
	bullet.velocity=3
	bullet.damage=10
	function bullet:move()
		bullet.y=bullet.y+bullet.dy*bullet.velocity
		if (bullet.y<-0) then
			bullet:die()
		end -- end if bullet screen out
	end
	function bullet:die()
		del(grpgfx,bullet)
		del(grpprojectiles,bullet)
	end
	
	add(grpgfx,bullet)
	add(grpprojectiles,bullet)
	
	return bullet
end



function mkship(px,py)
	ship={}
	ship.sprite={
	{"i","","","^","","","i"},
	{"i","","","i","","","i"},
	{"i","","","i","","","i"},
 {"<","i","a","m","-","a",">"},
 {"<","x","w","i","n","g",">"},
 {"<","-","i","i","i","-",">"}
 }
 
 ship.x=px
 ship.y=py
 ship.dx=0
 ship.dy=0
 ship.col=7
 ship.ecartx=4
 ship.ecarty=5
 ship.lifemax=100
 ship.life=ship.lifemax
 ship.speed=2
 ship.w=#(ship.sprite[1])*6
	ship.h=#ship.sprite*6
 ship.firecooldownlimit=5
 ship.firecooldown=ship.firecooldownlimit
 ship.damagetimer=0
 --table.insert(grpgfx,ship)
 
 function ship:update()
 	ship:collisions()
 		if(ship.firecooldown>0 )then
 			ship.firecooldown=ship.firecooldown-1
 		else
 			ship.firecooldown=ship.firecooldownlimit
 		end
 end
 
 function ship:damage(pamount)
 	if(ship.life>0)then
 		ship.life=ship.life-pamount
 	end
		
		ship.damagetimer=20
		if(ship.life<=0)then
			ship.die()
		end
	end-- end fn enemy damage
	
	function ship:die()
	 sfx(2)
	 if(game.score>0)then
	  game.score-=1
	 end
	
		game_over()
	end
 
 function ship:collisions()
		for i=1,#grpprojectiles do
			local proj=grpprojectiles[i]
			
			if(proj~=nil)then
				print("ship",50,50,7)
					if proj.x+proj.w/2>ship.x 
						and proj.x+proj.w/2<ship.x+ship.w
						and proj.y>ship.y
						and proj.y<ship.y+ship.h  then
					--collision
					sfx(3)
					printh("-----collisions ship----")
					ship:damage(proj.damage)
					proj:die()
					
					
					end--end check
			
			end--end check proj nil
			
		end--end loop proj
	end--end functin collision
 
 function ship:shoot()
 	sfx(1)
 	mkbullet("bship",ship.x,ship.y,-1,8,"!")
 	mkbullet("bship",ship.x+24,ship.y,-1,8,"!")
 	
 end
 add(grpgfx,ship)
 return ship
end

------ draw ------
------------------

function draw_ui()

	
	rectfill(0,0,128,10,0)
	rect(0,0,127,10,6)
	print("life",5,3,8)
	--- life bar ----
	local px=24
	local pxmaxinit=50
	local pxmax=50
	if(player~=nil)then
		local lifepercent=player.life/player.lifemax
		
		pxmax = lifepercent*(pxmaxinit-px)+px
		
	end
	
	rectfill(px,3,pxmax,7,8)
	rect(px,3,pxmaxinit,7,5)
	
	print("score",60,3,9)
	print(game.score,90,3,9)
end

function draw_cgx()

	local posy=0
	local posx=0
	local spacex=6
	local spacey=6
	local col=0
	for i=1,#grpgfx do
		local gfx=grpgfx[i]
		
		if (gfx~=nil)then
			
			if(gfx.ecartx~=nil and gfx.ecarty~=nil)then
				spacex=gfx.ecartx
				spacey=gfx.ecarty
			end
			col=gfx.col
			
			for j=1,#grpgfx[i].sprite do
				posy=j*spacey+grpgfx[i].y
				local pixl=grpgfx[i].sprite[j]
					for k=1,#pixl do
				
						posx=k*spacex+grpgfx[i].x
						
							
						
						if ( type(pixl[k])=="string") then
						
							if (gfx.damagetimer~=nil)then
								if (gfx.damagetimer>0) then
									gfx.damagetimer=gfx.damagetimer-1
									col = flr((time()*20)%3)+7
								elseif(gfx.damagetimer<=0)then
									--gfx.damagetimer=10
								end -- end damage timer
								
						end--end check damage timer exist
						
							print(pixl[k],posx-1,posy-1,col)
						elseif (pixl[k]=="") then
						
						else
							if (gfx.damagetimer~=nil)then
								if (gfx.damagetimer>0) then
									gfx.damagetimer=gfx.damagetimer-1
									col = flr((time()*20)%3)+7
								elseif(gfx.damagetimer<=0)then
									--gfx.damagetimer=10
								end -- end damage timer
								
							end--end check damage timer exist
							
							if(gfx.tag~=nil)then
								if(gfx.tag=="benemy")then
									circ(posx,posy,2,gfx.col)
								elseif(gfx.tag=="bship")then
									circ(posx,posy,1,col)
								end
							else
								circ(posx,posy,4,col)
							end
							
							
							
						end--end if check type
					
					end-- end loop sprite col
				
			end-- end loop sprite line
			posx=0
		
		end -- end if gfx not nil
		
		
	end--end loop all gfx

end

function draw_particules()

	for i=1,#grpparticules do
		local part=grpparticules[i]
		if (part~=nil)then
			circ(part.x,part.y,flr((time()*20)%20)+7,flr((time()*10)%3)+7)
		end
	end

end

function draw_background()
	
	for i=1,#grpbackground do
		local bgp=grpbackground[i]
		if(bgp~=nil)then
			line(bgp.x,bgp.y,bgp.x,bgp.y+bgp.speed,5)
			
		end
	end
	
end

function game_draw()
	
	draw_background()
	draw_particules()
	draw_cgx()
	draw_ui()
	
	if(game.statut=="gameover")then
		rectfill(9,40,110,80,0)
		rect(10,40,110,80,1)
		print("game over",39,50,1)
		print("game over",40,50,5)
		print("press \151 to restart",19,65,1)
		print("press \151 to restart",20,65,5)
	end

end

function stscreen_draw()

	line(62,0,128,128,7)
	line(62,0,0,128,7)
	local p=45
	local y=50
	print("alpha war",p-1,y,7)
	print("alpha war",p+1,y,7)
	print("alpha war",p,y+1,7)
	print("alpha war",p,y-1,7)
	print("alpha war",p,y,6)
	
	print("by lyoy",48,60,6)
	print("push \151 to start",32,80,1)
	print("push \151 to start",31,80,8)
	
	
	
end

------- updates -------
-----------------------


function stscreen_update()

	if(btnp(5) and game.scene=="start_screen")then
		--on lance la partie
		game.scene="game"
		game_init()
	end

end




function game_update()

	

	player:update()
	
	for i=1,#grpbackground do
		local bgpart=grpbackground[i]
		if(bgpart~=nil)then
			bgpart:update()
		end
	end
	
	for i=1,#grpparticules do
		local part=grpparticules[i]
		if(part~=nil)then
			part:update()
		end
	end
	--[[ debug 
	--printh( flr((time()*5)%3)+1 )
	--printh("firecooldown : "..player.firecooldown)
	--printh("firecooldown limit : "..player.firecooldownlimit)
	--printh(#grpprojectiles)
	for i=1,#grpenemies do
		local enemy=grpenemies[i]
		if (enemy~=nil)then
				
				enemy:update()
				if (lasttime!=timer1s) then
					--enemy:move()
				end--end if timer1s
		end--end check enemy nil
	end--end loop grpenemies
	
	for i=1,#grpprojectiles do
		local proj=grpprojectiles[i]
		if (proj~=nil) then
			proj:move()
		end--end if proj nil
		
	end--end loop projectiles
	
	
	if(game.statut=="game")then
	
		if(btn(0) == true 
		and game.scene=="game" 
		and player.x>-10) then
			player.x=player.x-1*player.speed
		end
		if(btn(1) == true 
		and game.scene=="game"
		and player.x+player.w<130 )then
			player.x=player.x+1*player.speed
			--player.ecartx+=0.03
		end
		if(btn(2) == true 
		and game.scene=="game"
		and player.y>0 )then
			player.y=player.y-1*player.speed
		end
		if(btn(3) == true 
		and game.scene=="game"
		and player.y+player.h<150 )then
			player.y=player.y+1*player.speed
		
		end
		if(btn(5) == true and game.scene=="game" and player.firecooldown==player.firecooldownlimit) then
			player:shoot()
		elseif(btnp(5) and game.scene=="game" and player.firecooldown>=player.firecooldownlimit-3 )then
			player:shoot()
		end
	
		lasttime=timer1s
	
	elseif(game.statut=="gameover")then
		
		if(btnp(5))then
			
			--game.statut=""
			--game_over()
		end
	
	end
	
	

	

end