diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-04-19 23:16:22 +0100 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-04-19 23:19:37 +0100 |
commit | 9ffa3f57067598acfbe5196a4452b225ab295b83 (patch) | |
tree | d893d9eba5a51f5a831e287bf1724e1f93a48026 /src/Game/Entities/Common.hs | |
parent | 7a1d4eb4481fa54753673e67532039da2b9c0b2f (diff) | |
download | space-plat-hs-9ffa3f57067598acfbe5196a4452b225ab295b83.tar.gz space-plat-hs-9ffa3f57067598acfbe5196a4452b225ab295b83.zip |
Added "runner" enemy
Diffstat (limited to 'src/Game/Entities/Common.hs')
-rw-r--r-- | src/Game/Entities/Common.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Game/Entities/Common.hs b/src/Game/Entities/Common.hs index 661fe07..eb84400 100644 --- a/src/Game/Entities/Common.hs +++ b/src/Game/Entities/Common.hs @@ -5,6 +5,7 @@ module Game.Entities.Common inLine, updateFrame, updateGravity, + turn, ) where @@ -13,6 +14,11 @@ import Game.Entities.Const import Game.Entities.Types import qualified Game.Sprites as S +-- | Return the opposite direction. +turn :: Dir -> Dir +turn DirRight = DirLeft +turn DirLeft = DirRight + -- | Convert direction into a sprite set. toSpriteSet :: Dir -> Int toSpriteSet DirRight = 0 |