From b9578c2a2c60d75c4a4d4519f10b99703ee5ea27 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 5 Feb 2023 23:18:30 +0000
Subject: Swpan new entities

- Each entity can generate a list of "spawns" (add a new entity)
- Added a "dust" effect to the jump WIP

TODO: probably wrap the entity list in a type so we don't need to pass
the spritesheet to the update function.
---
 src/Game.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Game.hs')

diff --git a/src/Game.hs b/src/Game.hs
index 3121ddf..28e14e7 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -110,6 +110,7 @@ gameLoop = do
       controls = _controls env
       map' = _map env
       entities = _entities env
+      sprites = _sprites env
 
   events <- map SDL.eventPayload <$> SDL.pollEvents
 
@@ -125,8 +126,7 @@ gameLoop = do
     SDL.rendererRenderTarget renderer $= Just canvas
     SDL.clear renderer
 
-    -- update entities filtering out the ones that have been destroyed
-    updated <- liftIO $ fmap (filter (not . E.eDestroy)) (traverse (\e -> E.eUpdate e e) =<< readIORef entities)
+    updated <- liftIO $ E.update sprites =<< readIORef entities
     entities $= updated
 
     -- render map and entities
-- 
cgit v1.2.3