Cleanup, fix menu lock on restarting level after game over

src/Dodge/Creature/Inanimate.hs

@@ -13,6 +13,7 @@ import Dodge.WorldEvent.Explosion
 import Dodge.Creature.Picture
 --import Dodge.Creature.Stance.Data
 import Dodge.Picture.Layer
+import Dodge.Particle.Spark
 import Dodge.Default
 import Dodge.Creature.State
 import Dodge.LightSource
@@ -26,7 +27,6 @@ import Geometry
 --import Geometry.Vector3D
 import Polyhedra
 import Shape
-import Dodge.WorldEvent
 import Dodge.SoundLogic
 
 import System.Random

src/Dodge/Creature/YourControl.hs

@@ -34,7 +34,7 @@ wasdWithAiming
 wasdWithAiming w speed i cr
     | isAiming 
         = addAnyTwist $ set crDir mouseDir $ theMovement cr
-    | (isReloading && SDL.ButtonRight `S.member` _mouseButtons w)
+    | isReloading && SDL.ButtonRight `S.member` _mouseButtons w
         = addAnyTwist $ set crDir (mouseDir + anytwist) $ theMovement cr
     | otherwise = theMovement $ theTurn $ removeTwist cr
   where