Remove creature records

src/Dodge/Prop/Moving.hs

@@ -3,6 +3,7 @@ module Dodge.Prop.Moving (
     fallSmallBounce,
 ) where
 
+import Dodge.Creature.Radius
 import Dodge.Base
 import Dodge.Data.World
 import Geometry
@@ -20,7 +21,7 @@ fallSmallBounceDamage pr w =
         | _prPosZ pr < 25 = cWorld . lWorld . creatures %~ fmap dodamage'
         | otherwise = id
     dodamage' cr
-        | dist (_crPos cr) p < _crRad cr + 5 =
+        | dist (_crPos cr) p < crRad (cr ^. crType) + 5 =
             cr & crState . csDamage
                 .:~ Damage CRUSHING (floor . (* 10) . max 0 . subtract 5 . abs $ _prVelZ pr) (p -.- v) p (p +.+ v) NoDamageEffect
         | otherwise = cr