Remove eeAttachPos record

src/Dodge/Item/Draw.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE LambdaCase #-}
 module Dodge.Item.Draw (
     itemSPic,
     itemEquipPict,
@@ -17,7 +18,7 @@ itemEquipPict :: Creature -> LabelDoubleTree ItemLink ComposedItem -> SPic
 itemEquipPict cr itmtree
     | Just i <- itm ^? itLocation . ilInvID
     , Just esite <- cr ^? crInv . ix i . itLocation . ilEquipSite . _Just
-    , Just attachpos <- itm ^? itUse . uequipEffect . eeAttachPos
+    , Just attachpos <- equipAttachPos <$> itm ^? itType . ibtEquip
         = equipPosition esite cr attachpos (itemSPic itm)
     | itm ^? itLocation . ilInvID == cr ^? crManipulation . manObject . imRootSelectedItem
         = overPosSP (heldItemOffset itm cr) (itemTreeSPic itmtree)
@@ -25,6 +26,14 @@ itemEquipPict cr itmtree
   where
     itm = itmtree ^. ldtValue . _1
 
+equipAttachPos :: EquipItemType -> Point3
+equipAttachPos = \case
+    BATTERYPACK ->  V3 (-8) 0 10
+    FUELPACK -> V3 (-9) 0 10
+    BULLETBELTPACK -> V3 (-9) 0 10
+    BULLETBELTBRACER -> V3 (-9) 0 10
+    _ -> 0
+
 equipPosition :: EquipSite -> Creature -> Point3 -> SPic -> SPic
 equipPosition epos cr p sh = case epos of
     OnLeftWrist -> translateToLeftWrist cr sh