Remove creature records

src/Dodge/Creature/Action/Blink.hs

@@ -5,6 +5,7 @@ module Dodge.Creature.Action.Blink (
     unsafeBlinkAction,
 ) where
 
+import Dodge.Creature.Radius
 import Dodge.Zoning.Wall
 import Data.Maybe
 import Dodge.Base
@@ -33,7 +34,7 @@ blinkActionMousePos cr w =
     cpos = _crPos cr
     --p2 = bouncePoint (const True) 1 cpos p1 w
     p2 = pushIntoMaybe $ collideCircWalls cpos p1 r (wlsNearSeg cpos p1 w)
-    r = _crRad cr
+    r = crRad $ cr ^. crType
     p3 = maybe p1 ((+.+ squashNormalizeV (cpos -.- p1)) . fst) p2 
     --p3 = maybe p1 (const 0) p2 
     --p3 = maybe p1 fst p2 
@@ -102,5 +103,5 @@ blinkActionFail cr w =
     p1 = w ^. cWorld . lWorld . lAimPos
     cpos = _crPos cr
     p2 = bouncePoint (const True) 1 cpos p1 w
-    r = 1.5 * _crRad cr
+    r = 1.5 * crRad (cr ^. crType)
     p3 = maybe p1 (mvPointTowardAtSpeed r cpos . fst) p2