--objects tab
local inst={}
--obj manager
function inst.add(o,...) 
	o=copy(o)
	o.init(o,...)
	add(insts,o)
 return o
end

function inst.tick()
	for i=1, #objs do
	 o=inst[i]
	 o.tick(o) 
	end
end

function inst.draw()
	for i=1, #objs do
	 o=inst[i] 
		o.draw(o)
	end
end

--obj base
local obj = 
{
	 init = function(o)
   --team
 	 o.team=0
 	 o.weap={}
   --bars
  	o.hp=100
 		o.mp=100
 		o.ap=3
 		--stats
 		o.pwr=1
 		o.rng=1
 		o.rpd=1
 		o.nrg=1
 		o.spc=1
 		--anim
 		o.a=true
 		o.apos=0
 		o.aoff=0
 		o.askp=0
 		o.aspd=1
 		o.alen=1
 		--sprite
 		o.s=true
 		o.sobj=o        --sync object
 		o.spos=vec(0,0) --position
 		o.soff=vec(0,0) --offset
 		o.svel=vec(0,0) --velocity
 		o.sfrc=vec(1,1) --friction
 		o.smax=vec(4,4) --max speed
 		o.ssiz=vec(1,1) --size needs fix
 		o.srot=vec(1,0) --rotation
 		--hitbox
 		o.h=true
 		o.hobj=nil      --sync object
 		o.hpos=vec(0,0) --pos
 		o.hoff=vec(2,2) --offset
 		o.hvel=vec(0,0) --velocity
 		o.hfrc=vec(1,1) --friction
 		o.hmax=vec(4,4) --max speed
 		o.hsiz=vec(4,4) --size
 	 o.hrot=vec(1,0) --not implimented
	 end,

 	tick = function(o)

 		--anim
  	if a then
  	 o.aoff = wrap(o.aspd,0,o.alen)
   end

 	 --sprite
 		if s then
 	  local pos=o.sobj and o.sobj.spos or o.spos
 			local vel=o.sobj and o.sobj.svel or o.svel 
 			local frc=o.sobj and o.sobj.sfrc or o.sfrc
 		 local max=o.sobj and o.sobj.smax or o.smax
 			local rot=o.sobj and o.sobj.srot or o.srot

 		 o.svel  =vmull(vel, frc)
 	  o.spos  =vaddl(pos, vel)
    o.svel.x= mid(vel.x,-max.x,max.x)
 	  o.svel.y= mid(vel.y,-max.y,max.y)
 	  o.spos.x=wrap(pos.x, 0, 127)
 	  o.spos.y=wrap(pos.y, 8, 120)
 	 end

 	 if h then 
 	  local pos=o.hobj and o.hobj.spos or o.hpos
 			local vel=o.hobj and o.hobj.svel or o.hvel 
 			local frc=o.hobj and o.hobj.sfrc or o.hfrc
 		 local max=o.hobj and o.hobj.smax or o.hmax
 			local rot=o.hobj and o.hobj.srot or o.hrot

    o.hpos  =vaddl(pos,vel)
 		 o.hvel  =vmull(vel,frc)
    o.hvel.x= mid(vel.x,max.x,max.x)
 	  o.hvel.y= mid(vel.y,max.y,max.y)
 	  o.hpos.x=wrap(pos.x, 0, 127)
 	  o.hpos.y=wrap(pos.y, 8, 120)
 	 end
 	end,

  draw = function(o)

  	if s then
  		sprr(
  			anim(o.apos, o.aoff, o.askp),
 				o.spos.x+ldirx(vgetr(o.srot))*o.soff.x,
  			o.spos.y+ldiry(vgetr(o.srot))*o.soff.y,
  			o.ssiz.x,
  			o.ssiz.y,
  			vgetr(o.srot)
 			)
 		end
 end
}

--obj thrust
local thr=
{
	init=function(o,pos,rot,obj)
		obj.init(o)
		o.apos=32
		o.spos=pos
		o.srot=rot
		o.sobj=obj
		o.soff=vec(0,-6)
	end,

	tick=function(o)
		obj.tick(o)
	end,

	draw=function(o)
		obj.draw(o)
	end
}

--obj player
local plr = 
{
	init=function(o,pos,rot,team)
		obj.init(o)
		o.apos=32
		o.spos=pos
		o.srot=rot
		o.team=team
		o.part1=inst.add(thr, pos,rot,o)
	end,

	tick=function(o)
		obj.tick(o)
		local u=btn(2,o.team) and 0.10 or 0
 	local d=btn(3,o.team) and 0.99 or 1
	 local l=btn(0,o.team) and 2    or 0
	 local r=btn(1,o.team) and 2    or 0

	 vaddl(o.svel, u, o.tr)
  vmull(o.svel, vec(d,d))
	 vaddr(o.srot, r-l)

	 if     u==0.10 then o.part1.alen=3
	 elseif d==0.99 then o.part1.alen=1
	 else                o.part1.alen=2
	 end	 
	end,

	draw=function(o)
	 obj.draw(o)
 end
}