summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scenes/game.scm10
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