diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-03-11 23:17:21 +0000 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-03-11 23:17:21 +0000 |
| commit | 897bfe0f72ddc80a020a421cbe987b54716e571e (patch) | |
| tree | 4fefcc434abf0e0699f40276efefa71a802457b5 /src/Game/Entities/Types.hs | |
| parent | edc6b611de752a224082583cd00d19ee6da04c5e (diff) | |
| download | space-plat-hs-897bfe0f72ddc80a020a421cbe987b54716e571e.tar.gz space-plat-hs-897bfe0f72ddc80a020a421cbe987b54716e571e.zip | |
Exit transition
Diffstat (limited to 'src/Game/Entities/Types.hs')
| -rw-r--r-- | src/Game/Entities/Types.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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, |