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
@@ -124,9 +124,9 @@ updateSoundQueue :: World -> World
 updateSoundQueue = set sounds M.empty

 updateLightSources :: World -> World
-updateLightSources w = set tempLightSources (catMaybes tlss) w'
+updateLightSources w = set tempLightSources tlss w
  where 
-    (w',tlss) = mapAccumR (\a b -> _tlsUpdate b a b) w $ _tempLightSources w
+    tlss = mapMaybe (\b -> _tlsUpdate b w b) $ _tempLightSources w

 updateProjectiles :: World -> World
 updateProjectiles w = IM.foldl' (flip $ dbArg _pjUpdate) w $ _projectiles w