summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2018-07-26 21:04:43 +0200
committerRicardo Wurmus <rekado@elephly.net>2018-07-27 17:15:49 +0200
commit88d9fe6e81e5063a6c34c4b4fd01e4b0fb69736a (patch)
tree8d00b90087b568bdb7238d06ea74d4e73592d1c0
parent49fe6a0b52cee75e51c7ddaebf1d416552b28dff (diff)
game: Use map positions for teleportation.
-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