Remove all AI code from AI file

2021-05-15 14:59:35 +02:00
parent e658fdcd0b
commit 0798cc0b0e
13 changed files with 121 additions and 122 deletions
@@ -74,12 +74,14 @@ update' w = case _menuLayers w of
  where 
    zoneCreatures = set creaturesZone (IM.foldr creatureInZone IM.empty (_creatures w))
    creatureInZone cr = insertIMInZone x y cid cr
-      where (x,y) = zoneOfPoint $ _crPos cr
-            cid = _crID cr
+      where 
+        (x,y) = crZoneOfPoint $ _crPos cr
+        cid = _crID cr
    zoneClouds = set cloudsZone (IM.foldr cloudInZone IM.empty (_clouds w))
    cloudInZone cr = insertIMInZone x y cid cr
-      where (x,y) = zoneOfPoint $ _clPos cr
-            cid = _clID cr
+      where 
+        (x,y) = cloudZoneOfPoint $ _clPos cr
+        cid = _clID cr
    doubleArgumentFor f x = f x x

 updateTriggers :: World -> World