Remove all AI code from AI file

src/Dodge/Base.hs

@@ -95,16 +95,19 @@ allWalls w = IM.unions $ concatMap IM.elems $ IM.elems $ _wallsZone w
 
 creaturesNearPoint :: Point2 -> World -> IM.IntMap Creature
 creaturesNearPoint p w =  IM.unions [f b $ f a $ _creaturesZone w | a<-[x-1,x,x+1] , b<-[y-1,y,y+1]]
-    where (x,y) = zoneOfPoint p
-          f i m = case IM.lookup i m of Just val -> val
-                                        _        -> IM.empty
+  where 
+    (x,y) = crZoneOfPoint p
+    f i m = case IM.lookup i m of 
+        Just val -> val
+        _        -> IM.empty
 
 cloudsNearPoint :: Point2 -> World -> IM.IntMap Cloud
 cloudsNearPoint p w =  IM.unions [f b $ f a $ _cloudsZone w | a<-[x-1,x,x+1] , b<-[y-1,y,y+1]]
-    where (x,y) = zoneOfPoint p
-          f i m = case IM.lookup i m of Just val -> val
-                                        _        -> IM.empty
-
+  where 
+    (x,y) = cloudZoneOfPoint p
+    f i m = case IM.lookup i m of 
+        Just val -> val
+        _        -> IM.empty
 -- possible BUG, occurs when used in thingsHitLongLine
 creaturesAlongLine :: Point2 -> Point2 -> World -> IM.IntMap Creature
 --creaturesAlongLine a b w = IM.unions [f y $ f x $ _creaturesZone w | (x,y) <- zoneOfLine a b]
@@ -115,9 +118,6 @@ creaturesAlongLine a b w = IM.foldrWithKey' g IM.empty kps
           kps = zoneOfLineIntMap a b
           f i m = case IM.lookup i m of Just val -> val
                                         _        -> IM.empty
-
-
-
 {- | Expands a line out to a given thickness. -}
 lineGeom :: Float -> Point2 -> Point2 -> [Point2]
 lineGeom t x y
@@ -148,7 +148,6 @@ insertInZoneWith
 insertInZoneWith x y fun obj = IM.insertWith f x $ IM.singleton y obj
   where
     f _ = IM.insertWith fun y obj
-
 {- | I believe this overwrites the value if it already exists, but not sure. -}
 insertIMInZone 
     :: Int      -- ^ First key