summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--game.scm6
-rw-r--r--level.tmx4
2 files changed, 6 insertions, 4 deletions
diff --git a/game.scm b/game.scm
index f5ed7b4..6b83102 100644
--- a/game.scm
+++ b/game.scm
@@ -538,7 +538,6 @@
(define particles (make-particle-pool 500 image:particles))
(define (explode x y)
(let ((speed 1.0))
- (sound-effect-play sound:explosion)
(do-circle
(lambda (theta)
(particle-pool-add! particles 'explosion 20 x y
@@ -904,6 +903,7 @@
((or (enemy-dead? enemy)
(enemy-out-of-bounds? enemy))
(when (enemy-dead? enemy)
+ (sound-effect-play sound:explosion)
(explode (enemy-x enemy) (enemy-y enemy))
(set! *player-score*
(+ *player-score* (enemy-points enemy))))
@@ -1014,7 +1014,7 @@
(define (spawn-boss x y)
(spawn-enemy
- (make-enemy 'boss 300 (vec2 x y) (vec2 144.0 50.0)
+ (make-enemy 'boss 300 (vec2 x (- y 24.0)) (vec2 144.0 50.0)
(vec2 0.0 0.0) #f 500000
#(0.0 0.0 0.0 0.0) image:boss (vec2 144.0 96.0))))
@@ -1107,6 +1107,8 @@
(define (player-die!)
(unless *player-invincible?*
(sound-effect-play sound:player-death 0.5)
+ (explode (vec2-x player-position)
+ (vec2-y player-position))
(set! *player-lives* (max (- *player-lives* 1) 0))
(player-position-reset!)
(do-player-invincible)))
diff --git a/level.tmx b/level.tmx
index f16c319..c9beff1 100644
--- a/level.tmx
+++ b/level.tmx
@@ -1167,13 +1167,13 @@
<property name="speed" type="float" value="2"/>
</properties>
</object>
- <object id="166" type="scroll-speed" x="0" y="736" width="16" height="16">
+ <object id="166" type="scroll-speed" x="0" y="768" width="16" height="16">
<properties>
<property name="duration" type="int" value="120"/>
<property name="speed" type="float" value="0.25"/>
</properties>
</object>
- <object id="167" type="scroll-speed" x="0" y="400" width="16" height="16">
+ <object id="167" type="scroll-speed" x="0" y="496" width="16" height="16">
<properties>
<property name="duration" type="int" value="30"/>
<property name="speed" type="float" value="0.5"/>