Decrease muzzle flare light time

2021-03-20 18:51:03 +01:00
parent 19fc1f2468
commit 4365185f9f
5 changed files with 34 additions and 25 deletions
@@ -94,7 +94,7 @@ shoot f cid w | fireCondition = over (pointerToItem . wpLoadedAmmo) (\ammo -> am
          reloadCondition = _wpLoadedAmmo item == 0

 withMuzFlare :: (Int -> World -> World) -> Int -> World -> World
-withMuzFlare f cid w = over tempLightSources (tLightAt 4 pos :)
+withMuzFlare f cid w = over tempLightSources (tLightAt 3 pos :)
                      . lowLightAt pos2 $ f cid w
    where cr = _creatures w IM.! cid
          dir = _crDir cr
@@ -112,8 +112,8 @@ withRandomDir acc f cid w = over (creatures . ix cid . crDir) (\d -> d - a)
 withVelWthHiteff :: Point2 -> Float -> HitEffect' -> Int -> World -> World
 withVelWthHiteff vel width hiteff cid w 
    = over particles' ((:) newbul)
-        . over tempLightSources ((:) (tLightAt 4 pos))
-        . lowLightAt pos2
+--        . over tempLightSources ((:) (tLightAt 4 pos))
+--        . lowLightAt pos2
        $ set randGen g
        w
    where cr = _creatures w IM.! cid