diff options
Diffstat (limited to 'game.scm')
| -rw-r--r-- | game.scm | 85 |
1 files changed, 65 insertions, 20 deletions
@@ -1109,13 +1109,33 @@ (define (spawn-tunnel-flyer1 x y) (define (script flyer) + (define (shoot dx dy) + (bullet-pool-add! enemy-bullets 2 + (enemy-x flyer) + (enemy-y flyer) + 4.0 4.0 + dx dy)) (set-enemy-dy! flyer 1.0) - (wait 80) + (wait 40) + (shoot 0.0 2.0) + (wait 40) (set-enemy-dx! flyer -1.0) (set-enemy-dy! flyer 0.0) + (run-script + (lambda () + (do ((i 0 (+ i 1))) + ((= i 3)) + (wait 20) + (shoot -2.0 0.0)))) (wait 140) (set-enemy-dx! flyer 0.0) - (set-enemy-dy! flyer 1.0)) + (set-enemy-dy! flyer 1.0) + (run-script + (lambda () + (do ((i 0 (+ i 1))) + ((= i 3)) + (wait 20) + (shoot 0.0 2.0))))) (spawn-flyer1* x y script)) (define (spawn-flyer1-down x y) @@ -1125,7 +1145,7 @@ (bullet-pool-add! enemy-bullets 2 (enemy-x flyer) (enemy-y flyer) - 2.0 2.0 + 4.0 4.0 (* (cos theta) speed) (* (sin theta) speed)))) (define (shoot) @@ -1135,43 +1155,65 @@ ) (set-enemy-dy! flyer 1.0) (wait 30) - (forever - (shoot) - (wait 10) - (shoot) - (wait 10) - (shoot) - (wait 45))) + (shoot) + (wait 15) + (shoot) + (wait 15) + (shoot)) (spawn-flyer1* x y script)) (define (spawn-flyer1-down-left x y) (define (script flyer) + (define (shoot dx dy) + (bullet-pool-add! enemy-bullets 2 + (enemy-x flyer) + (enemy-y flyer) + 4.0 4.0 + dx dy)) (set-enemy-dy! flyer 1.0) (wait 60) (set-enemy-dx! flyer -1.0) (set-enemy-dy! flyer 0.0) - (wait 60) + (wait 40) (tween (lambda (dx) (set-enemy-dx! flyer dx)) 30 -1.0 0.0 - smoothstep lerp)) + smoothstep lerp) + (forever + (wait 30) + (shoot 0.0 1.5))) (spawn-flyer1* x y script)) (define (spawn-flyer1-down-right x y) (define (script flyer) + (define (shoot dx dy) + (bullet-pool-add! enemy-bullets 2 + (enemy-x flyer) + (enemy-y flyer) + 4.0 4.0 + dx dy)) (set-enemy-dy! flyer 1.0) (wait 60) (set-enemy-dx! flyer 1.0) (set-enemy-dy! flyer 0.0) - (wait 60) + (wait 40) (tween (lambda (dx) (set-enemy-dx! flyer dx)) 30 1.0 0.0 - smoothstep lerp)) + smoothstep lerp) + (forever + (wait 30) + (shoot 0.0 1.5))) (spawn-flyer1* x y script)) (define (spawn-chaser x y) (define (script flyer) + (define (shoot dx dy) + (bullet-pool-add! enemy-bullets 2 + (enemy-x flyer) + (enemy-y flyer) + 4.0 4.0 + dx dy)) (set-enemy-dy! flyer -3.0) (wait 30) (tween (lambda (dy) @@ -1191,7 +1233,10 @@ (tween (lambda (dy) (set-enemy-dy! flyer dy)) 30 -1.2 0.0 - smoothstep lerp)) + smoothstep lerp) + (forever + (wait 30) + (shoot 0.0 1.5))) (spawn-flyer1* x (+ y game-height 8.0) script)) (define (spawn-boss x y) @@ -1798,12 +1843,12 @@ (music-play) (set! *game-state* 'play) (scheduler-reset! *scheduler*) - (set! *scroll* 0.0) - ;; (set! *scroll* (* 440.0 tile-height)) + ;; (set! *scroll* 0.0) + (set! *scroll* (* 140.0 tile-height)) (set! *last-scroll* 0.0) - (set! *last-row-scanned* (level-height level)) - ;; (set! *last-row-scanned* (- (level-height level) - ;; 440)) + ;; (set! *last-row-scanned* (level-height level)) + (set! *last-row-scanned* (- (level-height level) + 140)) (bullet-pool-reset! player-bullets) (bullet-pool-reset! enemy-bullets) (enemy-pool-reset! enemies) |