Animate enemies.

1 files changed, 9 insertions, 1 deletions

diff --git a/game.scm b/game.scm
index 839796e..a848392 100644
--- a/game.scm
+++ b/game.scm
@@ -752,7 +752,15 @@ each time KEY is pressed."
                                                 ('popcorn-light 4)
                                                 ('pincer-dark 8)
                                                 ('pincer-light 12))
-                                              (if hit? 2 0)))))
+                                              (if hit?
+                                                  ;; Use the hit
+                                                  ;; indicator frame.
+                                                  2
+                                                  ;; Swap between the
+                                                  ;; 2 normal
+                                                  ;; animation frames.
+                                                  (modulo (round (/ time 5))
+                                                          2))))))
                     (sprite-batch-add! batch context tex rect)))
                 enemies))))