Cleanup

src/Dodge/Euse.hs

@@ -41,8 +41,8 @@ useMagShield mt _ cr w =
             , _mgField = mt
             }
 
---setWristShieldPos :: Item -> Creature -> EquipSite -> World -> World
---setWristShieldPos itm cr x = moveWallIDUnsafe i wlline
+-- setWristShieldPos :: Item -> Creature -> EquipSite -> World -> World
+-- setWristShieldPos itm cr x = moveWallIDUnsafe i wlline
 --  where
 --    i = _itParamID $ _itParams itm
 --    wlline = (f (V3 (-10) 7 0), f (V3 10 7 0))
@@ -62,16 +62,13 @@ useMagShield mt _ cr w =
 --    _ -> w
 
 createHeadLamp :: Item -> Creature -> World -> World
-createHeadLamp _ cr w =
-    w
-        & cWorld
+createHeadLamp _ cr =
+    cWorld
         . lWorld
         . lights
         .:~ LSParam
             ( _crPos cr
-                +.+.+ rotate3
-                    (_crDir cr)
-                    (translateToES cr OnHead (V3 5 0 3))
+                + rotate3z (_crDir cr) (translateToES cr OnHead (V3 5 0 3))
             )
             200
             0.7
@@ -105,7 +102,8 @@ onEquipWristShield itm cr w =
         & setWristShieldPos
             ( itm & itParams .~ ItemParamID{_itParamID = i}
             )
-            cr esite
+            cr
+            esite
   where
     i = IM.newKey (w ^. cWorld . lWorld . walls)
     esite = w ^?! cWorld . lWorld . items . ix (itm ^. itID . unNInt) . itLocation . ilEquipSite . _Just
@@ -132,4 +130,4 @@ setWristShieldPos itm cr esite w = w & moveWallIDUnsafe i wlline
     --    g
     --        | twists cr = (+.+.+ V3 (-5) 10 0)
     --        | otherwise = id
-    f = (+.+ cr ^. crPos . _xy) . stripZ . rotate3 (_crDir cr) . handtrans
+    f = (+ cr ^. crPos . _xy) . stripZ . rotate3z (_crDir cr) . handtrans