Refactor doors

src/Dodge/CreatureEffect.hs

@@ -1,7 +1,7 @@
 module Dodge.CreatureEffect where
+import Dodge.Creature.Test
 import Dodge.Data
 import Geometry
-import Dodge.Creature.Test
 import Dodge.Base.Collide
 import Dodge.Path
 import qualified IntMapHelp as IM
@@ -47,6 +47,7 @@ doCrBl cb = case cb of
     CrCanShoot -> crCanShoot
     CrIsReloading -> crIsReloading
     CrIsAiming -> crIsAiming
+    CrIsAnimate -> isAnimate
 
 doMCrAc :: MCrAc -> Maybe Creature -> Action
 doMCrAc mca = case mca of