diff options
| -rw-r--r-- | demo/sandbox.scm | 8 |
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 ─────────────────────────────────────────────────────────── |