diff options
Diffstat (limited to 'game.scm')
| -rw-r--r-- | game.scm | 27 |
1 files changed, 26 insertions, 1 deletions
@@ -736,6 +736,7 @@ (duration (or (assq-ref properties 'duration) 0))) (when speed (change-scroll-speed speed duration)))) + ('chaser (spawn-chaser x y)) ('warning (do-warning)) (_ #t))) (define max-scroll (- (* (level-height level) tile-height) game-height)) @@ -957,7 +958,7 @@ (define (spawn-flyer1* x y script) (spawn-enemy - (make-enemy 'flyer1 10 (vec2 x y) (vec2 16.0 16.0) + (make-enemy 'flyer1 30 (vec2 x y) (vec2 22.0 16.0) (vec2 0.0 0.0) script 1000 #(0.0 24.0 48.0 72.0) image:flyer1 (vec2 24.0 24.0)))) @@ -1012,6 +1013,30 @@ (define (spawn-flyer1 x y) (spawn-flyer1* x y #f)) + (define (spawn-chaser x y) + (define (script flyer) + (set-enemy-dy! flyer -3.0) + (wait 30) + (tween (lambda (dy) + (set-enemy-dy! flyer dy)) + 30 -3.0 -1.0 + smoothstep lerp) + (tween (lambda (dy) + (set-enemy-dy! flyer dy)) + 30 -1.0 -2.9 + smoothstep lerp) + (wait (* 5 60)) + (tween (lambda (dy) + (set-enemy-dy! flyer dy)) + 30 -2.9 -1.2 + smoothstep lerp) + (wait (+ (* 3 60) 30)) + (tween (lambda (dy) + (set-enemy-dy! flyer dy)) + 30 -1.2 0.0 + smoothstep lerp)) + (spawn-flyer1* x (+ y game-height 8.0) script)) + (define (spawn-boss x y) (spawn-enemy (make-enemy 'boss 300 (vec2 x (- y 24.0)) (vec2 144.0 50.0) |