Add dust on bullet wall hit

2021-09-13 12:23:51 +01:00
parent b27c174d93
commit 29f048cfdd
15 changed files with 93 additions and 68 deletions
@@ -58,5 +58,5 @@ damCrsOnLine dam p1 p2 = over creatures (IM.map damIfOnLine)
                                     = over crHP (\hp -> hp - dam) cr
                         | otherwise = cr

-tempLightForAt :: Int -> Point2 -> World -> World
-tempLightForAt i p w = w & tempLightSources %~ (tLightAt i p :)
+makeTLight :: Int -> Float -> Point3 -> Point2 -> World -> World
+makeTLight i rad col p = tempLightSources %~ (tLight i rad col p :)