(no commit message)

[gacela.git] / games / asteroids / asteroids.scm

diff --git a/games/asteroids/asteroids.scm b/games/asteroids/asteroids.scm
index bda8fc0a9c263eed163a08b19a90e5629cea02bf..3a355a63db0d747d3054e25b24a45361a84eed5d 100644 (file)
--- a/games/asteroids/asteroids.scm
+++ b/games/asteroids/asteroids.scm
@@ -54,6 +54,10 @@
           (set! moving #f)))
     `((x . ,x) (y . ,y) (angle . ,angle) (moving . ,moving))))
 
+(define (ship-shot s)
+  (cond ((key-released? 'space)
+        #f)))
+
 (define (make-asteroids n)
   (define (xy n r)
     (let ((n2 (- (random (* n 2)) n)))
@@ -71,6 +75,8 @@
   (run-game
    (set! asteroids (map move-asteroid asteroids))
    (set! ship (move-ship ship))
-   (set! shots (ship-shots
+   (let ((shot (ship-shot ship)))
+     (cond (shot
+           (set! shots (cons shot shots)))))
    (for-each draw-asteroid asteroids)
    (draw-ship ship)))