From 5b461c68e3194aef85bd175d51a30f205adb327f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 16 Apr 2020 22:01:22 -0400 Subject: Day 6 progress. --- lisparuga/actor.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lisparuga/actor.scm') diff --git a/lisparuga/actor.scm b/lisparuga/actor.scm index 5439e6b..625a2a1 100644 --- a/lisparuga/actor.scm +++ b/lisparuga/actor.scm @@ -93,7 +93,7 @@ (world-hitboxes #:accessor world-hitboxes #:init-form '()) (bullet-field #:accessor bullet-field #:init-keyword #:bullet-field)) -(define (sync-hitboxes actor) +(define-method (sync-hitboxes (actor )) ;; Sync hitboxes to world coordinates. (let ((pos (position actor))) (for-each (lambda (world-hitbox) @@ -106,6 +106,14 @@ (map make-world-hitbox (hitboxes actor))) (sync-hitboxes actor)) +(define-method (move-to (actor ) x y) + (next-method) + (sync-hitboxes actor)) + +(define-method (teleport (actor ) x y) + (next-method) + (sync-hitboxes actor)) + (define-method (update (actor ) dt) (let ((v (velocity actor))) (unless (and (= (vec2-x v) 0.0) -- cgit v1.2.3