-- game loop

function _init()
 gamestart()
	_upd=update_game()
	_drw=draw_game()
end

function _update()
	frm+=1
	_upd()
end

function _draw()
	_drw()
end

function gamestart()
	frm=1
	col=false
----------------
--menus
----------------
	men_main={
		items={"start game","controls"},
		menx=10,
		meny=10,
		curx=2,
		cury=10,
		menoff=7
	}
----------------
--player
----------------
	p={
	sp=1,
	x=48,
	xo=0,
	y=40,
	yo=0,
	w=8,
	h=8,
	ymt=0,
	spd=1,
	flp=false,
	dx=0,
	dy=0,
	--gravity/collision stuff
	hbx1=1,
	hbx2=6,
	hby1=7,
	hby2=1,
	grv=0.2,
	acc=0.5,
	landed=false,
	jumping=false,
	running=false,
	falling=false,
	dashing=false,
	rolling=false,
	attacking=false,
	itemgrab=false,
	--animation (in sprite #)
		frame=0,
		anim_idle=1,
		anim_walk={1,2,3,4},
		anim_jf=5,
		anim_atk={1,4,6},
		anim_dashing=8,
		anim_rolling={9,10,11,9},
		anim_attacking=6,
		anim_itemgrab=7,
	--game stats
		mhp=10,
		chp=10,
		atk=1,
		def=1,
		agi=1.1,--1.1 beacuse fucking math
}
		inv={}
		abilities={}
----------------
--tiles
----------------
	--collision
	t={--x1=l x2=r y1=t y2=b
		wall={x1=4,x2=6,y1=0,y2=7},
		floor={x1=0,x2=7,y1=4,y2=7}
	}
end
-->8
-- updates
function update_game()
--player---------------------
-----------------------------
		p.frame+=1
		if p.frame==5 then
		 p.frame=1
		end
		if (btn(⬅️))	then
			p.dx=-1
			p.flp=true
			p.running=true
		elseif (btn(➡️))	then
			p.dx=1
			p.flp=false
			p.running=true
		else
			p.dx=0
			p.running=false
		end

--collisions & gravity
		local ly=p.y
		p.dy+=p.grv

--check collision left and right
  if p.dx<0 then
    if collide_map(p,"left",0) then
      p.dx=0
    end
  elseif p.dx>0 then
    if collide_map(p,"right",0) then
      p.dx=0
    end
  end

  --jump
  if btnp(⬆️)
  and p.landed then
    p.dy-=2
    p.landed=false
  end

  --check collision up and down
  if p.dy>0 then
    p.falling=true
    p.landed=false
    p.jumping=false

    if collide_map(p,"down",0) then
      p.landed=true
      p.falling=false
      p.dy=0
      p.y-=((p.y+p.h+1)%8)-1
    end
  elseif p.dy<0 then
    p.jumping=true
    if collide_map(p,"up",0) then
      p.dy=0
    end
  end
	p.x+=p.dx
	p.y+=p.dy
--animation
	if p.jumping or p.falling then
		p.sp=p.anim_jf
	elseif p.running then
		if frm%5<=4 then
			p.sp=p.anim_walk[p.frame]
		end 
	elseif p.attacking then
		p.sp=p.anim_attack
	else --player idle
		p.sp=1
	end

end

function update_mm()
	upd_menu(men_main)
end
-->8
-- draws
function draw_game()
	cls()
	map()
	spr(p.sp,p.x,p.y,1,1,p.flp)
	camera(p.x-60,p.y-60)

	print(p.dx,1+p.x-59,1+p.y-59,8)
	print(p.dy,9+p.x-59,1+p.y-59,8)
end

function draw_mm() 
	cls()
	menutext(men_main.items,men_main.menx,men_main.meny,8)
	drw_menucur(men_main)
end

-->8
--functions
function does_tile(flag,x,y) -- bool
	tile=mget(x,y)
	has_flag=fget(tile,flag)
	return has_flag
end

function collide_map(obj,aim,flag)
 --obj = table needs x,y,w,h
 --aim = left,right,up,down

 local x=obj.x  local y=obj.y
 local w=obj.w  local h=obj.h

 local x1=0	 local y1=0
 local x2=0  local y2=0

 if aim=="left" then
   x1=x-1  y1=y
   x2=x    y2=y+h-1

 elseif aim=="right" then
   x1=x+w-1    y1=y
   x2=x+w  y2=y+h-1

 elseif aim=="up" then
   x1=x+2    y1=y-1
   x2=x+w-3  y2=y

 elseif aim=="down" then
   x1=x+2      y1=y+h
   x2=x+w-3    y2=y+h
 end

 --pixels to tiles
 x1/=8    y1/=8
 x2/=8    y2/=8

 if fget(mget(x1,y1), flag)
 or fget(mget(x1,y2), flag)
 or fget(mget(x2,y1), flag)
 or fget(mget(x2,y2), flag) then
   return true
 else
   return false
 end

end

-->8
--menu

function startmenu(menutable)

end

function menutext(menutable,x,y,off)
	for i=1, #menutable do
		print(menutable[i],x,y+menutable.off*i)
	end
end

function drw_menucur(menutable)	
	local x1 = menutable.curx-8
	local y1 = menutable.cury-10
	local x2 = x1+12
	local y2 = y1+6

	rectfill(x1,y1,x2,y2,7)
end

function upd_menu(menutable)
	if btnp(⬆️) then
	 menutable.cury-=7 
	end
	if btnp(⬇️) then
	 menutable.cury+=7
	end
--	if btnp(❎) then menuacc(menutable)
--	if btnp(🅾️) then menuden(menutable)

end