diff options
| -rw-r--r-- | scenes/game.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/scenes/game.scm b/scenes/game.scm index cb05f70..1591844 100644 --- a/scenes/game.scm +++ b/scenes/game.scm @@ -226,11 +226,17 @@ be executed; if so, perform the action." (lambda (obj) (match (map-object-name obj) ("enter-house" - (teleport player 560.0 1800.0) + (let ((house-pos (start-position game "house"))) + (teleport player + (vec2-x house-pos) + (vec2-y house-pos))) ;; TODO: change music? (pause-music)) ("exit-house" - (teleport player 620.0 1100.0) + (let ((exited-house-pos (start-position game "exited-house"))) + (teleport player + (vec2-x exited-house-pos) + (vec2-y exited-house-pos))) (resume-music)) ("talk-to-reaper" (start-talking player |