Remove creature records

src/Dodge/HeldUse.hs

@@ -10,6 +10,7 @@ module Dodge.HeldUse (
     heldEffectMuzzles,
 ) where
 
+import Dodge.Creature.Radius
 import Dodge.Creature.Mass
 import Dodge.Data.Muzzle
 import Dodge.Data.UseDelay
@@ -802,7 +803,7 @@ shootTractorBeam cr w =
         & soundContinue (CrWeaponSound (_crID cr) 0) cpos tone440sawtoothquietS (Just 2)
   where
     cpos = _crPos cr
-    spos = cpos +.+ (_crRad cr + 10) *.* unitVectorAtAngle dir
+    spos = cpos +.+ (crRad (cr ^. crType) + 10) *.* unitVectorAtAngle dir
     xpos = cpos +.+ 400 *.* unitVectorAtAngle dir
     dir = _crDir cr
     outpos = fst $ collidePointWallsFilter (const True) cpos xpos w