Work towards duct taping torch

2022-07-14 10:50:12 +01:00
parent bfe9073808
commit 2cfa3ca3a7
8 changed files with 40 additions and 11 deletions
@@ -17,6 +17,7 @@ module Dodge.Item.Equipment
    , flameShield
    ) where
 import Dodge.Data
+import Dodge.LightSource.Torch
 import Dodge.Item.Draw
 import Dodge.Item.Equipment.Booster
 import Dodge.LightSource
@@ -114,11 +115,11 @@ torch = defaultWeapon
    & itUse . useAim . aimMuzPos .~ 10

 createHeldLight :: Creature -> Int -> World -> World
-createHeldLight cr i w = w
-    & tempLightSources .:~ tlsTimeRadColPos 1 250 0.7 
-        (p +.+.+ rotate3 (_crDir cr) (heldItemOffset itm cr (V3 8 0 1.5)))
+createHeldLight cr i = createTorchLightOffset cr itm 0
+--     tempLightSources .:~ tlsTimeRadColPos 1 250 0.7 
+--        (p +.+.+ rotate3 (_crDir cr) (heldItemOffset itm cr (V3 8 0 1.5)))
  where
-    p = addZ 0 $ _crPos cr
+--    p = addZ 0 $ _crPos cr
    itm = cr ^?! crInv . ix i

 flatShield :: Item