/traderous

-- Class: Mouse
-- This tracks the state of the mouse, i.e. its coordinates onscreen
-- and if a button was just pressed or released this frame.
--
-- See http://love2d.org/wiki/MouseConstant for a list of mouse button names.
--
-- Extends:
--		<Sprite>

Mouse = Sprite:extend{
	visible = false,

	-- private property: _thisFrame
	-- what buttons are pressed this frame
	-- if you are interested in this, use allPressed() instead
	_thisFrame = {},

	-- private property: lastFrame
	-- what mouse buttons were pressed last frame
	_lastFrame = {},
	
	new = function (self, obj)
		obj = self:extend(obj)
		the.mouse = obj
		love.mousepressed = function (x, y, button) obj:mousePressed(button) end
		love.mousereleased = function (x, y, button) obj:mouseReleased(button) end
		if obj.onNew then obj:onNew() end
		return obj
	end,

	-- Method: pressed
	-- Are *any* of the buttons passed held down this frame?
	--
	-- Arguments:
	--		string button descriptions passed as individual arguments;
	--		if none are passed, the left mouse button is assumed
	--
	-- Returns:
	-- 		boolean

	pressed = function (self, ...)
		local buttons = {...}

		if #buttons == 0 then buttons[1] = 'l' end
	
		for _, value in pairs(buttons) do
			if STRICT then
				assert(type(value) == 'string', 'all mouse buttons are strings; asked to check a ' .. type(value))
			end

			if self._thisFrame[value] then
				return true
			end
		end
		
		return false
	end,

	-- Method: justPressed
	-- Are *any* of the buttons passed pressed for the first time this frame?
	--
	-- Arguments:
	--		string button descriptions passed as individual arguments;
	--		if none are passed, the left mouse button is assumed
	--
	-- Returns:
	-- 		boolean

	justPressed = function (self, ...)
		local buttons = {...}

		if #buttons == 0 then buttons[1] = 'l' end
	
		for _, value in pairs(buttons) do
			if STRICT then
				assert(type(value) == 'string', 'all mouse buttons are strings; asked to check a ' .. type(value))
			end

			if self._thisFrame[value] and not self._lastFrame[value] then
				return true
			end
		end
		
		return false
	end,

	-- Method: released
	-- Are *all* of the buttons passed not held down this frame?
	--
	-- Arguments:
	--		string button descriptions passed as individual arguments;
	--		if none are passed, the left mouse button is assumed
	--
	-- Returns:
	-- 		boolean

	released = function (self, ...)
		local buttons = {...}
		if #buttons == 0 then buttons[1] = 'l' end
	
		for _, value in pairs(buttons) do
			if STRICT then
				assert(type(value) == 'string', 'all mouse buttons are strings; asked to check a ' .. type(value))
			end

			if self._thisFrame[value] then
				return false
			end
		end
		
		return true
	end,

	-- Method: justReleased
	-- Are *any* of the buttons passed released after being held last frame?
	--
	-- Arguments:
	--		string button descriptions passed as individual arguments;
	--		if none are passed, the left mouse button is assumed
	--
	-- Returns:
	-- 		boolean

	justReleased = function (self, ...)
		local buttons = {...}
		if #buttons == 0 then buttons[1] = 'l' end	
	
		for _, value in pairs(buttons) do
			if STRICT then
				assert(type(value) == 'string', 'all mouse buttons are strings; asked to check a ' .. type(value))
			end

			if self._lastFrame[value] and not self._thisFrame[value] then
				return true
			end
		end
		
		return false
	end,

	-- Method: allPressed
	-- Returns all buttons currently pressed this frame.
	--
	-- Arguments:
	--		none
	--
	-- Returns:
	--		string button descriptions; if nothing is pressed, nil

	allPressed = function (self)
		local result = {}

		for key, value in pairs(self._thisFrame) do
			if value then table.insert(result, key) end
		end
		
		return unpack(result)
	end,

	-- Method: allJustPressed
	-- Returns all buttons just pressed this frame.
	--
	-- Arguments:
	--		none
	--
	-- Returns:
	--		string button descriptions; if nothing is just pressed, nil

	allJustPressed = function (self)
		local result = {}

		for key, value in pairs(self._thisFrame) do
			if value and not self._lastFrame[key] then table.insert(result, key) end
		end
		
		return unpack(result)
	end,

	-- Method: allJustReleased
	-- Returns all buttons just released this frame.
	--
	-- Arguments:
	--		none
	--
	-- Returns:
	--		string buttons descriptions; if nothing is just pressed, nil

	allJustPressed = function (self)
		local result = {}

		for key, value in pairs(self._thisFrame) do
			if not value and self._lastFrame[key] then table.insert(result, key) end
		end
		
		return unpack(result)
	end,

	mousePressed = function (self, button)
		self._thisFrame[button] = true
	end,

	mouseReleased = function (self, button)
		-- we ignore wheel-related events to force the button
		-- to be detectable for at least one frame

		if button ~= 'wd' and button ~= 'wu' then
			self._thisFrame[button] = false
		end
	end,

	endFrame = function (self, elapsed)
		for key, value in pairs(self._thisFrame) do
			self._lastFrame[key] = value
		end

		-- now force mouse wheel buttons to be released

		self._thisFrame.wd = false
		self._thisFrame.wu = false
	
		self.x = love.mouse.getX() - the.app.inset.x
		self.y = love.mouse.getY() - the.app.inset.y

		Sprite.endFrame(self)
	end,

	update = function() end
}