Start simplifying tesla arcs

2025-01-09 11:01:17 +00:00
parent c355fe4f5f
commit 5fb71cec39
6 changed files with 35 additions and 37 deletions
@@ -644,8 +644,7 @@ mcShootAuto itm mc w
 -- | assumes that the item is held
 shootTeslaArc :: Item -> Creature -> Muzzle -> World -> World
 shootTeslaArc itm cr mz w =
-    w'
-        & cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix itRef . itParams .~ ip
+    w' & cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix itRef . itParams .~ ip
  where
    -- use items item location instead
    itRef = cr ^?! crManipulation . manObject . imRootSelectedItem -- unsafe!! TODO change