Fix flatshield wall creation and remove muzzle

src/Dodge/Item/BackgroundEffect.hs

@@ -2,6 +2,7 @@ module Dodge.Item.BackgroundEffect (
     itEffectOnPickup,
     itEffectOnDrop,
     rootNotrootEff,
+    rootAndAttNotEff,
     createShieldWall,
     removeShieldWall,
 ) where
@@ -36,6 +37,19 @@ rootNotrootEff f g it
     | it ^? itLocation . ilIsRoot == Just True = f it
     | otherwise = g it
 
+rootAndAttNotEff ::
+    (Item -> Creature -> World -> World) ->
+    (Item -> Creature -> World -> World) ->
+    Item ->
+    Creature ->
+    World ->
+    World
+rootAndAttNotEff f g it
+    | it ^? itLocation . ilIsRoot == Just True 
+        && it ^? itLocation . ilIsAttached == Just True
+        = f it
+    | otherwise = g it
+
 createShieldWall :: Item -> Creature -> World -> World
 createShieldWall it cr w = case it ^? itParams . flatShieldWlMIX . _Just of
     Nothing ->