add rocket-controls

azimut · Oct 30, 2024 · a883e02 · a883e02
1 parent 8414e68
commit a883e02
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/controls/control.lisp b/src/controls/control.lisp
@@ -105,3 +105,13 @@
     (when (key-down-p key.space) (move camera *vec3-up*      mult))
     (when (key-down-p key.c)     (move camera *vec3-down*    mult)))
   (pos camera))
+
+(defun rocket-controls ()
+  (when (key-down-p key.space)
+    (rocket-pause-toggle))
+  (when (key-down-p key.r)
+    (rocket-set-row 0))
+  (when (key-down-p key.comma)
+    (decf (rocket-row) 0.1))
+  (when (key-down-p key.period)
+    (incf (rocket-row) 0.1)))