Remove creature records

src/Dodge/Flame.hs

@@ -4,6 +4,7 @@ module Dodge.Flame (
     updateFlame,
 ) where
 
+import Dodge.Creature.Radius
 import Dodge.Data.World
 import Data.Foldable
 import Data.Tuple
@@ -91,7 +92,7 @@ updateFlame w pt
     closeWls wl = uncurry segOnCirc (_wlLine wl) ep 5
     closeCrs cr =
         dist ep (_crPos cr)
-            < _crRad cr + 10 - min 9 (max 0 (fromIntegral time - 80))
+            < crRad (cr ^. crType) + 10 - min 9 (max 0 (fromIntegral time - 80))
                 + 5 * angleCoeff (angleVV (ep -.- _crPos cr) rotd)
     angleCoeff x' = abs $ 1 - abs ((x' * 2 - pi) / pi)
     rfl wl p =