diff options
| -rw-r--r-- | game.scm | 6 | ||||
| -rw-r--r-- | level.tmx | 4 |
2 files changed, 6 insertions, 4 deletions
@@ -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))) @@ -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"/> |