From 897bfe0f72ddc80a020a421cbe987b54716e571e Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sat, 11 Mar 2023 23:17:21 +0000 Subject: Exit transition --- src/Game/Entities/Types.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Game/Entities/Types.hs') diff --git a/src/Game/Entities/Types.hs b/src/Game/Entities/Types.hs index 392a86f..4ece6c5 100644 --- a/src/Game/Entities/Types.hs +++ b/src/Game/Entities/Types.hs @@ -14,7 +14,7 @@ import qualified Game.Sprites as S data Dir = DirRight | DirLeft | Dying deriving (Eq) -data Type = TypePlayer | TypePickup | TypeEffect | TypeEnemy +data Type = TypePlayer | TypePickup | TypeEffect | TypeEnemy deriving (Eq) type Collision = Entity -> IO Bool @@ -29,7 +29,7 @@ data Entities = Entities -- | The effect name must match the sprite name in the spritesheet. type EffectName = String -data Action = ActionAddEffect Int Int EffectName | ActionAddBattery Int Int | ActionHitPlayer | ActionExitLevel +data Action = ActionAddEffect Int Int EffectName | ActionAddBattery Int Int | ActionHitPlayer | ActionExitStarted | ActionExitDone data Entity = Entity { typ :: Type, -- cgit v1.2.3