diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-05-23 22:52:01 +0100 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-05-23 22:52:01 +0100 |
commit | f886dc2f03a75b12749ad029134b70c346aea194 (patch) | |
tree | b3d6f00d52672e35c477a003537e159e86161318 /src/Game/Entities/Types.hs | |
parent | a8091dc3c82a4d646e84b356c46319ba54847ce0 (diff) | |
download | space-plat-hs-f886dc2f03a75b12749ad029134b70c346aea194.tar.gz space-plat-hs-f886dc2f03a75b12749ad029134b70c346aea194.zip |
Deadly blocks kill the player
Implemented "auto-checkpoints" based on where the player lands after a
jump.
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 e9ca02f..765800f 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} | RunnerData {wallCount :: Int} +data EntityData = NoData | ShooterData {coolDown :: Int} | RunnerData {wallCount :: Int} | PlayerData {checkx :: Int, checky :: Int} type Collision = Entity -> IO Bool @@ -36,6 +36,7 @@ data Action = ActionAddEffect Int Int EffectName | ActionAddBattery Int Int | ActionHitPlayer + | ActionHitPlayerDeadly | ActionExitStarted | ActionEntryDone | ActionExitDone |