Move hands to touch walls

src/Dodge/Data/Creature.hs

@@ -22,6 +22,7 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.Map.Strict as M
+import qualified Data.IntMap.Strict as IM
 import Dodge.Data.ActionPlan
 import Dodge.Data.Creature.Misc
 import Dodge.Data.Creature.Perception
@@ -30,8 +31,6 @@ import Dodge.Data.Creature.State
 import Dodge.Data.Item
 import Dodge.Data.Material
 import Geometry.Data
-import qualified Data.IntSet as IS
---import qualified IntMapHelp as IM
 
 data Creature = Creature
     { _crPos :: Point3
@@ -58,7 +57,7 @@ data Creature = Creature
     , _crIntention :: Intention
     , _crName :: String
     , _crDeathTimer :: Int
-    , _crWallTouch :: IS.IntSet
+    , _crWallTouch :: IM.IntMap Point2
     }
 
 data CrHP