From 4fbbf73aeb39566f73d54e3d42670c7c258e2466 Mon Sep 17 00:00:00 2001
From: the lemons <citrons@mondecitronne.com>
Date: Sun, 21 Aug 2022 20:37:53 -0500
Subject: everything so far

basic mechanics and player control have been implemented, but they work
very poorly at present.
---
 Bolvis.lua | 125 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 125 insertions(+)
 create mode 100644 Bolvis.lua

(limited to 'Bolvis.lua')

diff --git a/Bolvis.lua b/Bolvis.lua
new file mode 100644
index 0000000..7f7f0e9
--- /dev/null
+++ b/Bolvis.lua
@@ -0,0 +1,125 @@
+local game = require 'game'
+local physics = require 'physics'
+local Camera = require 'Camera'
+
+local Bolvis = physics.Object:extend()
+Bolvis.sprite = love.graphics.newImage("bolvis.png", {dpiscale = 5})
+Bolvis.z = 50
+
+local Hand = game.Object:extend()
+Hand.sprite_open = love.graphics.newImage("hand-open.png", {dpiscale = 3.5})
+Hand.sprite_closed = love.graphics.newImage("hand-closed.png", {dpiscale = 3.5})
+Hand.max_speed = 10
+Hand.z = 49
+
+function Bolvis:new(pos, rotation)
+	physics.Object.new(self, pos, rotation, nil, 'dynamic')
+	self.shape = love.physics.newRectangleShape(90, 90)
+	self.fixture = love.physics.newFixture(self.body, self.shape)
+	self.fixture:setRestitution(0.2)
+	self.fixture:setDensity(20)
+	self.hand = Hand(self)
+	self.camera = Camera()
+	self.camera:follow(self)
+end
+
+function Bolvis:update()
+	self.body:setAngle(0)
+	physics.Object.update(self)
+end
+
+function Hand:new(bolvis)
+	game.Object.new(self)
+	self.offset = {100, -100}
+	self.bolvis = bolvis
+	self.sprite = self.sprite_open
+end
+
+function Hand:angle()
+	local x, y = unpack(self.pos)
+	local bx, by = unpack(self.bolvis.pos)
+	local ox, oy = x - bx, y - by
+	local a = math.atan(oy / math.abs(ox)) + math.pi / 2
+	if ox < 0 then a = -a end
+	return a
+end
+
+local function clamp(n, max, min)
+	return math.max(math.min(n, max), min)
+end
+
+function Hand:update()
+	self.rot = self:angle()
+	if not self.grab_joint then
+		self.pos[1] = self.bolvis.pos[1] + self.offset[1]
+		self.pos[2] = self.bolvis.pos[2] + self.offset[2]
+	else
+		self.pos = {self.grabbed.body:getWorldPoint(unpack(self.grab_pos))}
+	end
+end
+
+function Hand:present_offset()
+	local x, y = unpack(self.pos)
+	local bx, by = unpack(self.bolvis.pos)
+	return x - bx, y - by
+end
+
+function Hand:mousemoved(_, _, dx, dy)
+	dx = clamp(dx, self.max_speed, -self.max_speed)
+	dy = clamp(dy, self.max_speed, -self.max_speed)
+	self.offset[1] = clamp(self.offset[1] + dx, 1920 / 2, -1920 / 2)
+	self.offset[2] = clamp(self.offset[2] + dy, 1080 / 2, -1080 / 2)
+	if self.grab_joint then
+		local x, y = unpack(self.offset)
+		self.grab_joint:setLinearOffset(x + self.grab_pos[1], y + self.grab_pos[2])
+	end
+end
+
+function Hand:mousepressed(_, _, button)
+	if button == 1 then
+		self.sprite = self.sprite_closed
+		local grabbed
+		for o in pairs(game.all_objects) do
+			if o.fixture then
+				if o.fixture:testPoint(unpack(self.pos)) then
+					if o ~= self.bolvis then
+						self.grabbed = o
+						break
+					end
+				end
+			end
+		end
+		if self.grabbed then
+			local x1, y1 = unpack(self.bolvis.pos)
+			local x2, y2 = unpack(self.bolvis.pos)
+			self.grab_joint = love.physics.newMotorJoint(
+				self.bolvis.body, self.grabbed.body, 0.5, true)
+			self.grab_joint:setMaxForce(500)
+			self.grab_pos = {self.grabbed.body:getLocalPoint(unpack(self.pos))}
+		end
+	end
+end
+
+function Hand:mousereleased(_, _, button)
+	if button == 1 then
+		self.sprite = self.sprite_open
+		if self.grab_joint then
+			self.grabbed = nil
+			self.grab_joint:destroy()
+			self.grab_joint = nil
+		end
+		self.offset = {self:present_offset()}
+	end
+end
+
+function Hand:draw()
+	local x1, y1 = unpack(self.bolvis.pos)
+	local x2, y2 = unpack(self.pos)
+	love.graphics.setColor(1, 0.8, 0.9)
+	love.graphics.setLineWidth(15)
+	love.graphics.line(x1, y1, x2, y2)
+	love.graphics.setColor(1, 1, 1)
+	game.Object.draw(self)
+end
+
+return Bolvis
-- 
cgit v1.2.3