Remove creature records

src/Dodge/Item/BackgroundEffect.hs

@@ -4,6 +4,7 @@ module Dodge.Item.BackgroundEffect (
     itEffectOnDrop,
 ) where
 
+import Dodge.Creature.Radius
 import Dodge.Inventory.SelectionList
 --import Dodge.Inventory.Path
 import Data.Maybe
@@ -67,7 +68,7 @@ createShieldWall' it cr w = case it ^? itParams . flatShieldWlMIX . _Just of
     wlline = (a, b)
     crdirv = unitVectorAtAngle $ _crDir cr
     crpos = _crPos cr
-    rad = _crRad cr + 2
+    rad = crRad (cr ^. crType) + 2
     a = crpos +.+ rad *.* crdirv -.- 10 *.* therot crdirv
     b = crpos +.+ rad *.* crdirv +.+ 10 *.* therot crdirv
     therot