Remove creature records

src/Dodge/Update/Camera.hs

@@ -6,6 +6,7 @@ module Dodge.Update.Camera (
     updateCamera,
 ) where
 
+import Dodge.Creature.Radius
 import Bound
 import Control.Monad
 import Data.Foldable
@@ -202,7 +203,7 @@ rotateToOverlappingWall w =
     maybe
         id
         (doWallRotate . snd)
-        (overlapCircWallsClosest p (_crRad cr + 10) (filter _wlRotateTo $ wlsNearPoint p w))
+        (overlapCircWallsClosest p (crRad (cr ^. crType) + 10) (filter _wlRotateTo $ wlsNearPoint p w))
         w
   where
     cr = you w

src/Dodge/Update/Cloud.hs

@@ -1,5 +1,6 @@
 module Dodge.Update.Cloud where
 
+import Dodge.Creature.Radius
 import Data.Foldable
 import Dodge.Data.World
 import Dodge.Zoning.Creature
@@ -14,5 +15,5 @@ cloudPoisonDamage c w = w & dodamagesto (filter f $ crsNearPoint clpos w)
     doDam cr =
         cWorld . lWorld . creatures . ix (_crID cr) . crState . csDamage
             .:~ Damage POISONDAM 1 clpos clpos clpos NoDamageEffect
-    f cr = dist3 (addZ 20 $ _crPos cr) (_clPos c) < _crRad cr + _clRad c + 10
+    f cr = dist3 (addZ 20 $ _crPos cr) (_clPos c) < crRad (cr ^. crType) + _clRad c + 10
     clpos = stripZ $ _clPos c