atoms.lisp: Cancel the explosion animation when we restore a snapshot.

[atoms] / atoms.lisp

diff --git a/atoms.lisp b/atoms.lisp
index e1c331c..5dc0def 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -290,7 +290,7 @@
               (state (player-state player)))
          (cond ((and (zerop score) (eql state :playing))
                 (setf (player-state player) :losing))
-               ((member state '(:playing :starting))
+               ((member state '(:playing :starting :ready))
                 (incf remaining)
                 (setf found player)))))
       (changed game :scores :players players)
@@ -416,6 +416,7 @@
          for snap-player in snap-players
          do (restore player snap-player))
     (setf (game-player-index game) (slot-value snapshot 'player-index))
+    (game-cancel-timeout game)
     (changed game :refresh)))
 
 ;;;--------------------------------------------------------------------------