Remove creature records

2025-06-06 13:36:18 +01:00
parent 73c79f2f4d
commit 0f55257bff
48 changed files with 621 additions and 610 deletions
@@ -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