diff options
Diffstat (limited to 'game.scm')
| -rw-r--r-- | game.scm | 30 |
1 files changed, 17 insertions, 13 deletions
@@ -954,19 +954,23 @@ (define (spawn-turret x y) (define (script enemy) (let ((speed 2.0)) - (wait 60) - (let loop ((theta 0.0)) - (let ((dx (* (cos theta) speed)) - (dy (* (sin theta) speed)) - (v (direction-to-player (enemy-position enemy)))) - (bullet-pool-add! enemy-bullets 0 - (enemy-x enemy) - (enemy-y enemy) - 2.0 2.0 - (* (vec2-x v) speed) - (* (vec2-y v) speed))) - (wait 30) - (loop (+ theta 0.2))))) + (define (current-dir) + (direction-to-player (enemy-position enemy))) + (define (shoot dir) + (bullet-pool-add! enemy-bullets 0 + (enemy-x enemy) + (enemy-y enemy) + 2.0 2.0 + (* (vec2-x dir) speed) + (* (vec2-y dir) speed))) + (forever + (wait 60) + (let ((dir (current-dir))) + (shoot dir) + (wait 10) + (shoot dir) + (wait 10) + (shoot dir))))) (spawn-turret* x y script)) (define (spawn-popcorn x y) |