Remove equipment records

src/Dodge/Euse.hs

@@ -33,14 +33,19 @@ doItmCrWdWd x itm cr = case x of
 
 useE :: LocationLDT ItemLink ComposedItem -> Creature -> World -> World
 useE loc cr = case eo of
-    Nothing -> id
-    Just EDoNothing -> id
-    Just (EMagShield mt) -> useMagShield mt itm cr
-    Just EWristShield -> setWristShieldPos itm cr
-    Just EHeadLamp -> createHeadLamp itm cr
+--    Nothing -> id
+--    Just EDoNothing -> id
+    --Just (EMagShield mt) 
+    EQUIP (MAGSHIELD mt) -> useMagShield mt itm cr
+    --Just EWristShield 
+    EQUIP WRISTARMOUR -> setWristShieldPos itm cr
+    --Just EHeadLamp 
+    EQUIP HEADLAMP -> createHeadLamp itm cr
+    _ -> id
   where
     itm = loc ^. locLDT . ldtValue . _1
-    eo = itm ^? itUse . uequipEffect . eeUse
+    eo = itm ^. itType
+    --eo = itm ^? itUse . uequipEffect . eeUse
 
 -- this should probably drain energy
 useMagShield :: MagnetBuBu -> Item -> Creature -> World -> World