Fix explosion damage

src/Dodge/Item/Equipment/Shape.hs

@@ -11,6 +11,7 @@ pictureOnEquip sp cr itm = fromMaybe mempty $ do
     i <- itm ^? itPos . ipInvID
     epos <- cr^? crInvEquipped . ix i
     return $ equipPosition epos cr sp
+
 equipPosition :: EquipPosition -> Creature -> SPic -> SPic
 equipPosition epos cr sh = case epos of
     OnLeftWrist -> translateToLeftWrist cr sh
@@ -19,4 +20,5 @@ equipPosition epos cr sh = case epos of
         translateToRightLeg cr (mirrorSPxz sh)
     OnHead -> translateToHead cr sh
     OnChest -> translateToChest cr sh
-    _ -> sh
+    OnBack -> translateToBack cr sh
+    OnSpecial -> sh