Make sandbox demo bots face

1 files changed, 6 insertions, 2 deletions

diff --git a/demo/sandbox.scm b/demo/sandbox.scm
index 0851f16..62ae398 100644
--- a/demo/sandbox.scm
+++ b/demo/sandbox.scm
@@ -71,7 +71,8 @@
                       #:gravity? #t #:on-ground? #f
                       #:solid? #t #:immovable? #f
                       #:tile-id 1
-                      #:demo-id id #:demo-since-jump 0)))
+                      #:demo-id id #:demo-since-jump 0
+		      #:facing -1)))
 
 ;; ── Per-entity intent ───────────────────────────────────────────────────────
 
@@ -84,7 +85,10 @@
          (jump?    (and ground? (>= since +demo-bot-jump-interval-ms+)))
          (since    (if jump? 0 since))
          (ay       (if jump? (- *jump-force*) 0)))
-    (entity-set (entity-set (entity-set e #:vx vx) #:demo-since-jump since) #:ay ay)))
+    (entity-set-many e `((#:vx . vx)
+			 (#:demo-since-jump . ,since)
+			 (#:ay . ,ay)
+			 (#:facing . -1)))))
 
 ;; ── Scene builder ───────────────────────────────────────────────────────────