Continue to refactor body/equipment positionings

src/Dodge/Euse.hs

@@ -35,7 +35,6 @@ useMagShield mt _ cr w =
 setWristShieldPos :: Item -> Creature -> EquipSite -> World -> World
 setWristShieldPos itm cr x w = moveWallIDUnsafe i wlline w
   where
-    m = w ^. cWorld . lWorld . items
     i = _itParamID $ _itParams itm
     wlline = (f (V3 (-10) 7 0), f (V3 10 7 0))
     handtrans = case x of
@@ -58,6 +57,6 @@ createHeadLamp _ cr w = w &
     cWorld . lWorld . lights
         .:~ LSParam
             ((_crPos cr `v2z` 0) +.+.+ rotate3 (_crDir cr) 
-    (translatePointToHead (w ^. cWorld . lWorld . items) cr (V3 5 0 3)))
+    (translateToES cr OnHead (V3 5 0 3)))
             200
             0.7