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/Types.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/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 05726a8..71a1718 100644 --- a/src/Game/Entities/Types.hs +++ b/src/Game/Entities/Types.hs @@ -17,7 +17,7 @@ data Dir = DirRight | DirLeft deriving (Eq, Show, Ord) data Type = TypePlayer | TypePickup | TypeEffect | TypeEnemy deriving (Eq) -data EntityData = NoData | ShooterData {coolDown :: Int} +data EntityData = NoData | ShooterData {coolDown :: Int} | RunnerData {wallCount :: Int} type Collision = Entity -> IO Bool @@ -48,6 +48,7 @@ data Entity = Entity delay :: Int, frame :: Int, set :: Int, + -- FIXME: this should be player data jumping :: Bool, gravity :: Int, dir :: Dir, |