--   Actors+Actor CLASSes
-- andygfx - cubesteam - 2016

-- Define TActors container class ---------------------------------------------

TActors = {}

-- TActors CONSTRUCTOR 

function TActors:New() 

    o = { 
            list={}
        } 

    setmetatable(o, self) 
    self.__index = self 

    return o 

end 

-- TActors methods ------------------------------------------------------------

-- add actor to Actors list
function TActors:Add(actor)
	add(self.list,actor)
end

-- delete actor from Actors list
function TActors:Del(actor)
	del(self.list,actor)
end

-- return count of actors in list
function TActors:Count()
	return #self.list
end

-- call user defined update method on all actors in list
function TActors:Update()
	for a in all(self.list) do 
		if a.enable then
			a:update()
		end
	end
end

-- call user defined draw method on all actors in list
function TActors:Draw()
	for a in all(self.list) do 
		if a.enable then
			a:draw()
		end
	end
end

-- Define TActor class --------------------------------------------------------

TActor = {} 

-- TActor CONSTRUCTOR ---------------------------------------------------------

function TActor:New() 

    o = { 
            name="actor",
			enable=true,
			visible=true,
			x = 0, y = 0,
			_x = 0, _y = 0,
			sprite = 0,
			sx = 1, sy = 1,
			dx = 0, dy = 0,
			update = function() end,
			draw = function() end 
        } 

    setmetatable(o, self) 
    self.__index = self 

    return o 

end 

-- METHODS 

-- set actor fields
function TActor:Set(name,sprID,x,y,w,h,dx,dy)
	self.name=name
	self.sprite=sprID
	self.x=x
	self.y=y
	self._x=x
	self._y=y
	self.sx=w
	self.sy=h
	self.dx=dx
	self.dy=dy
end

-- set actor update and draw callback
function TActor:SetCallback(fncUpdate,fncDraw)
	self.update = fncUpdate
	self.draw = fncDraw
end

-- respawn acgtor to start position
function TActor:Respawn()
	self.x=self._x
	self.y=self._y
end

-- pico8 callbacks ------------------------------------------------------------ 

function _init()
end

function _update()
  Actors:Update()
end

function _draw()
  cls()
  Actors:Draw()
end

-- TEST ACTORS ----------------------------------------------------------------

-- create Actors container
Actors=TActors:New()

-- user defined UPDATE callback for actor
function UpdatePlane(self)
	self.x+=self.dx
	self.y+=self.dy

	if self.x>128 then self:Respawn() end

end

-- user defined DRAW callback fro actor
function DrawPlane(self)
	spr(self.sprite,self.x,self.y,self.sx,self.sy)
end

-- create actor#1
plane1 = TActor:New()
plane1:Set("plane1",1,10,20,2,1,1,0)
plane1:SetCallback(UpdatePlane,DrawPlane)

Actors:Add(plane1)

-- create actor#2
plane2 = TActor:New()
plane2:Set("plane2",1,10,35,2,1,2,0)
plane2:SetCallback(UpdatePlane,DrawPlane)

Actors:Add(plane2)

-- create actor#3
plane3 = TActor:New()
plane3:Set("plane3",1,10,50,2,1,3,0)
plane3:SetCallback(UpdatePlane,DrawPlane)

Actors:Add(plane3)

function TActors:New() 

    o = { 
            list={}
        } 

    setmetatable(o, self) 
    self.__index = self 

    return o 

end

function TActors:New() 

    self.__index = self 
    return setmetatable({ 
            list={}
        }, self) 

end