Use circles instead of points for zome wall zones

src/Dodge/Update/Camera.hs

@@ -218,9 +218,10 @@ rotateToOverlappingWall w =
     maybe
         id
         (doWallRotate . snd)
-        (overlapCircWallsClosest p (crRad (cr ^. crType) + 10) (filter _wlRotateTo $ wlsNearPoint p w))
+        (overlapCircWallsClosest p r (filter _wlRotateTo $ wlsNearCirc p r w))
         w
   where
+    r = (crRad (cr ^. crType) + 10)
     cr = you w
     p = you w ^. crPos . _xy
 

src/Dodge/Update/Cloud.hs

@@ -9,6 +9,7 @@ import LensHelp
 import Linear
 
 cloudPoisonDamage :: Gas -> World -> World
+-- should probably use crsNearCirc
 cloudPoisonDamage c w = foldl' (flip doDam) w (filter f $ crsNearPoint clpos w)
   where
     doDam cr =