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

Otherwise we get terribly confused about who's supposed to be playing.

diff --git a/atoms.lisp b/atoms.lisp
index 0855c84b7c2a8d0b5382dd29c63f381473f938c9..5dc0def11eb6624367af4c06de80cf1586334bca 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -416,6 +416,7 @@ (defmethod restore ((game atom-game) (snapshot atom-game-snapshot))
          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)))
 
 ;;;--------------------------------------------------------------------------