From ff2a01852d80e9f5591202d8017beb59d72ca40e Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Mon, 20 Apr 2026 00:49:32 +0100 Subject: Make sandbox demo bots face --- demo/sandbox.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'demo/sandbox.scm') 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 ─────────────────────────────────────────────────────────── -- cgit v1.2.3