Move towards unifying (your) creature manipulation with selection

2026-05-14 13:42:33 +01:00
parent ab393febcb
commit 59d128f87a
35 changed files with 271 additions and 252 deletions
@@ -62,12 +62,12 @@ useMagShield mt _ cr w =
 --    _ -> w

 createHeadLamp :: Item -> Creature -> World -> World
-createHeadLamp _ cr =
+createHeadLamp _ cr w = w &
    cWorld
        . lWorld
        . lights
        .:~ LSParam
-            (_crPos cr + rotate3z (_crDir cr) (translateToES cr OnHead (V3 5 0 3)))
+            (_crPos cr + rotate3z (_crDir cr) (translateToES w cr OnHead (V3 5 0 3)))
            200
            0.7

@@ -122,7 +122,7 @@ setWristShieldPos itm cr esite w = w & moveWallIDUnsafe i wlline
        . itLocation
        . ilEquipSite
        . _Just of
-        Just x -> translateToES cr x -- . g
+        Just x -> translateToES w cr x -- . g
        _ -> undefined
    --    g
    --        | twists cr = (+.+.+ V3 (-5) 10 0)