Remove eeAttachPos record

src/Dodge/Item/Equipment.hs

@@ -19,7 +19,6 @@ module Dodge.Item.Equipment (
 
 import Dodge.Data.Magnet
 import Dodge.Item.Weapon.Bullet
-import Geometry.Data
 import Dodge.Data.Item
 import Dodge.Default
 import LensHelp
@@ -33,19 +32,16 @@ magShield =
 flameShield :: Item
 flameShield =
     defaultEquipment
---        & itUse . uequipEffect . eeType .~ GoesOnChest
         & itType .~ EQUIP FLAMESHIELD
 
 frontArmour :: Item
 frontArmour =
     defaultEquipment
---        & itUse . uequipEffect . eeType .~ GoesOnChest
         & itType .~ EQUIP FRONTARMOUR
 
 wristArmour :: Item
 wristArmour =
     defaultEquipment
---        & itUse . uequipEffect . eeType .~ GoesOnWrist
         & itUse . uequipEffect . eeOnEquip .~ EonWristShield
         & itUse . uequipEffect . eeUse .~ EWristShield
         & itUse . uequipEffect . eeOnRemove .~ EoffWristShield
@@ -54,13 +50,10 @@ wristArmour =
 batteryPack :: Item
 batteryPack =
     defaultEquipment
---        & itUse . uequipEffect . eeType .~ GoesOnBack
-        & itUse . uequipEffect . eeAttachPos .~ V3 (-8) 0 10
         & itUse . uequipEffect . eeUse .~ EDoNothing
         & itConsumables
             .~ AmmoMag
                 { _magParams = NoAmmoParams
---                , _magType = ElectricalAmmo
                 , _magLoadStatus =
                     ReloadStatus
                         { _iaMax = 10000000
@@ -72,14 +65,11 @@ batteryPack =
 fuelPack :: Item
 fuelPack =
     defaultEquipment
---        & itUse . uequipEffect . eeType .~ GoesOnBack
-        & itUse . uequipEffect . eeAttachPos .~ V3 (-9) 0 10
 --        & itUse . uequipEffect . eeUse .~ EFuelSource 10000 10000
         & itType .~ EQUIP FUELPACK
         & itConsumables
             .~ AmmoMag
                 { _magParams = GasParams ChemFuel
---                , _magType = GasAmmo
                 , _magLoadStatus =
                     ReloadStatus
                         { _iaMax = 100000
@@ -90,13 +80,10 @@ fuelPack =
 bulletBeltPack :: Item
 bulletBeltPack =
     defaultEquipment
-        -- & itUse . uequipEffect . eeType .~ GoesOnBack
-        & itUse . uequipEffect . eeAttachPos .~ V3 (-9) 0 10
         & itUse . uequipEffect . eeUse .~ EDoNothing
         & itConsumables
             .~ AmmoMag
                 { _magParams = BulletParams defaultBullet
---                , _magType = BeltBulletAmmo
                 , _magLoadStatus =
                     ReloadStatus
                         { _iaMax = 10000000
@@ -108,13 +95,10 @@ bulletBeltPack =
 bulletBeltBracer :: Item
 bulletBeltBracer =
     defaultEquipment
-        -- & itUse . uequipEffect . eeType .~ GoesOnWrist
-        & itUse . uequipEffect . eeAttachPos .~ V3 (-9) 0 10
         & itUse . uequipEffect . eeUse .~ EDoNothing
         & itConsumables
             .~ AmmoMag
                 { _magParams = BulletParams defaultBullet
---                , _magType = BeltBulletAmmo
                 , _magLoadStatus =
                     ReloadStatus
                         { _iaMax = 100000
@@ -124,22 +108,15 @@ bulletBeltBracer =
         & itType .~ EQUIP BULLETBELTBRACER
 
 brainHat :: Item
-brainHat =
-    defaultEquipment
-        -- & itUse . uequipEffect . eeType .~ GoesOnHead
-        & itType .~ EQUIP BRAINHAT
+brainHat = defaultEquipment & itType .~ EQUIP BRAINHAT
 
 hat :: Item
-hat =
-    defaultEquipment
-        -- & itUse . uequipEffect . eeType .~ GoesOnHead
-        & itType .~ EQUIP HAT
+hat = defaultEquipment & itType .~ EQUIP HAT
 
 headLamp :: Item
 headLamp =
     defaultEquipment
         & itUse . uequipEffect . eeUse .~ EHeadLamp
-        -- & itUse . uequipEffect . eeType .~ GoesOnHead
         & itType .~ EQUIP HEADLAMP
 
 powerLegs :: Item
@@ -161,6 +138,4 @@ wristInvisibility =
         & itType .~ EQUIP (INVISIBILITYEQUIPMENT GoesOnWrist)
 
 pulseChecker :: Item
-pulseChecker =
-    defaultEquipment
-        & itType .~ EQUIP WRIST_ECG
+pulseChecker = defaultEquipment & itType .~ EQUIP WRIST_ECG