From 6e48bd38850f6326fe435ff87af3ca14e6707379 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Thu, 9 Feb 2023 23:25:05 +0000 Subject: Spawn objects For now only the Player. --- src/Game/Entities.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Game/Entities.hs') diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs index 96cc4fa..7d29e41 100644 --- a/src/Game/Entities.hs +++ b/src/Game/Entities.hs @@ -1,4 +1,4 @@ -module Game.Entities (Entities, mkEntities, mkPlayer, mkEffect, append, updateAll, render) where +module Game.Entities (Entities, Entity, mkEntities, mkPlayer, mkEffect, add, updateAll, render) where import Data.Foldable (traverse_) import Data.IORef @@ -59,8 +59,8 @@ data Entity = Entity mkEntities :: S.SpriteSheet -> Entities mkEntities sprites = Entities sprites [] -append :: Entity -> Entities -> Entities -append e (Entities sprites entities) = Entities sprites (entities ++ [e]) +add :: Entities -> [Entity] -> Entities +add (Entities sprites entities) es = Entities sprites (entities ++ es) processSpawn :: S.SpriteSheet -> Spawn -> IO Entity processSpawn sprites (DustEffectSpawn x y) = mkEffect sprites x y "dust" -- cgit v1.2.3