diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-03-21 21:28:25 +0000 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-03-21 21:28:25 +0000 |
commit | 11d2ed7f15a86dd465bc3456e3478e9ff03bf5d2 (patch) | |
tree | f5e6df771eb4396df13fe3cdc2d98721917a2d68 /src/Game/Entities/Types.hs | |
parent | 1c8a22d24b14d258a9103f7b83d627359eae0da8 (diff) | |
download | space-plat-hs-11d2ed7f15a86dd465bc3456e3478e9ff03bf5d2.tar.gz space-plat-hs-11d2ed7f15a86dd465bc3456e3478e9ff03bf5d2.zip |
Introduce a set property
Stopped abusing the direction property!
Diffstat (limited to 'src/Game/Entities/Types.hs')
-rw-r--r-- | src/Game/Entities/Types.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Game/Entities/Types.hs b/src/Game/Entities/Types.hs index e8b29b0..34bddd3 100644 --- a/src/Game/Entities/Types.hs +++ b/src/Game/Entities/Types.hs @@ -12,7 +12,7 @@ where import Data.IORef import qualified Game.Sprites as S -data Dir = DirRight | DirLeft | Dying deriving (Eq) +data Dir = DirRight | DirLeft deriving (Eq) data Type = TypePlayer | TypePickup | TypeEffect | TypeEnemy deriving (Eq) @@ -43,6 +43,7 @@ data Entity = Entity y :: Int, delay :: Int, frame :: Int, + set :: Int, jumping :: Bool, gravity :: Int, dir :: Dir, |