Getting a sword slashing animation working

1 files changed, 71 insertions, 45 deletions

diff --git a/util.lua b/util.lua
index 157d7ad..b73838a 100644
--- a/util.lua
+++ b/util.lua
@@ -1,49 +1,51 @@
+update_hooks = {}
+
 -- https://pico-8.fandom.com/wiki/Qsort
-function qsort(a,c,l,r)
-	c,l,r=c or function(a,b) return a<b end,l or 1,r or #a
-	if l<r then
-		if c(a[r],a[l]) then
-			a[l],a[r]=a[r],a[l]
-		end
-		local lp,k,rp,p,q=l+1,l+1,r-1,a[l],a[r]
-		while k<=rp do
-			local swaplp=c(a[k],p)
-			-- "if a or b then else"
-			-- saves a token versus
-			-- "if not (a or b) then"
-			if swaplp or c(a[k],q) then
-			else
-				while c(q,a[rp]) and k<rp do
-					rp-=1
-				end
-				a[k],a[rp],swaplp=a[rp],a[k],c(a[rp],p)
-				rp-=1
-			end
-			if swaplp then
-				a[k],a[lp]=a[lp],a[k]
-				lp+=1
-			end
-			k+=1
-		end
-		lp-=1
-		rp+=1
-		-- sometimes lp==rp, so 
-		-- these two lines *must*
-		-- occur in sequence;
-		-- don't combine them to
-		-- save a token!
-		a[l],a[lp]=a[lp],a[l]
-		a[r],a[rp]=a[rp],a[r]
-		qsort(a,c,l,lp-1       )
-		qsort(a,c,  lp+1,rp-1  )
-		qsort(a,c,       rp+1,r)
-	end
+function qsort(a, c, l, r)
+    c, l, r = c or function(a, b) return a < b end, l or 1, r or #a
+    if l < r then
+        if c(a[r], a[l]) then
+            a[l], a[r] = a[r], a[l]
+        end
+        local lp, k, rp, p, q = l + 1, l + 1, r - 1, a[l], a[r]
+        while k <= rp do
+            local swaplp = c(a[k], p)
+            -- "if a or b then else"
+            -- saves a token versus
+            -- "if not (a or b) then"
+            if swaplp or c(a[k], q) then
+            else
+                while c(q, a[rp]) and k < rp do
+                    rp -= 1
+                end
+                a[k], a[rp], swaplp = a[rp], a[k], c(a[rp], p)
+                rp -= 1
+            end
+            if swaplp then
+                a[k], a[lp] = a[lp], a[k]
+                lp += 1
+            end
+            k += 1
+        end
+        lp -= 1
+        rp += 1
+        -- sometimes lp==rp, so
+        -- these two lines *must*
+        -- occur in sequence;
+        -- don't combine them to
+        -- save a token!
+        a[l], a[lp] = a[lp], a[l]
+        a[r], a[rp] = a[rp], a[r]
+        qsort(a, c, l, lp - 1)
+        qsort(a, c, lp + 1, rp - 1)
+        qsort(a, c, rp + 1, r)
+    end
     return a
 end
 
 function filter(a, pred)
     filtered = {}
-    for k,v in ipairs(a) do
+    for k, v in ipairs(a) do
         if pred(v) then
             filtered[k] = v
         end
@@ -53,9 +55,33 @@ end
 
 function fmt(x)
     t = type(x)
-    if t == "number" then return "" .. x
-    elseif t == "string" then return x
-    elseif t == "boolean" and x then return "true"
-    elseif t == "boolean" and not x then return "false" end
-    return "NA"
+    if t == "number" then
+        return "" .. x
+    elseif t == "string" then
+        return x
+    elseif t == "boolean" and x then
+        return "true"
+    elseif t == "boolean" and not x then
+        return "false"
+    end
+    return "_unknown_"
+end
+
+_button_states = {}
+function _update_button_states(_dt)
+    for button = 0, 20 do
+        if btn(button) then
+            if _button_states[button] == "up" then
+                _button_states[button] = "just_pressed"
+            else
+                _button_states[button] = "held"
+            end
+        else
+            _button_states[button] = "up"
+        end
+    end
 end
+update_hooks[1] = _update_button_states
+function button_just_pressed(id)
+    return _button_states[id] == "just_pressed"
+end
\ No newline at end of file