Move towards abstracting out held item positioning

2022-07-14 00:06:13 +01:00
parent d26470281c
commit 090408b438
4 changed files with 46 additions and 3 deletions
@@ -112,9 +112,10 @@ torch = defaultWeapon

 createHeldLight :: Creature -> Int -> World -> World
 createHeldLight cr i w = w
-
-removeHeldLight :: Creature -> Int -> World -> World
-removeHeldLight cr i w = w
+    & tempLightSources .:~ tlsTimeRadColPos 1 200 0.7 p
+  where
+    p = addZ 20 $ _crPos cr
+    itm = cr ^?! crInv . ix i

 flatShield :: Item
 flatShield = defaultWeapon