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/Entry.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/Entry.hs')
-rw-r--r-- | src/Game/Entities/Entry.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Game/Entities/Entry.hs b/src/Game/Entities/Entry.hs index 5c17146..28b1c4e 100644 --- a/src/Game/Entities/Entry.hs +++ b/src/Game/Entities/Entry.hs @@ -5,6 +5,9 @@ import Game.Entities.Const import Game.Entities.Types import qualified Game.Sprites as S +openingDoorSet :: Int +openingDoorSet = 2 + mkEntry :: S.SpriteSheet -> Int -> Int -> IO Entity mkEntry sprites x y = do s <- S.get sprites "exit" @@ -15,9 +18,10 @@ mkEntry sprites x y = do y = y, delay = frameDelay, frame = 0, + set = openingDoorSet, jumping = False, gravity = gravityOff, - dir = Dying, + dir = DirRight, sprite = s, update = pure . updateEntry, destroy = False, |