diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-02-20 21:52:22 +0000 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-20 21:52:22 +0000 |
commit | ed585355b1f78de15885e803138a98b75ca2b1e2 (patch) | |
tree | da25f10539fa39ee284dc49ab9d5e53721bc008f /src/Game/Entities/Pickup.hs | |
parent | 92785d2df84e18953048a6537b71c824a2a4b288 (diff) | |
download | space-plat-hs-ed585355b1f78de15885e803138a98b75ca2b1e2.tar.gz space-plat-hs-ed585355b1f78de15885e803138a98b75ca2b1e2.zip |
Split entities in modules.
Diffstat (limited to 'src/Game/Entities/Pickup.hs')
-rw-r--r-- | src/Game/Entities/Pickup.hs | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/src/Game/Entities/Pickup.hs b/src/Game/Entities/Pickup.hs new file mode 100644 index 0000000..d0f80f6 --- /dev/null +++ b/src/Game/Entities/Pickup.hs @@ -0,0 +1,37 @@ +module Game.Entities.Pickup (mkBattery) where + +import Data.IORef +import Game.Entities.Common +import Game.Entities.Const +import Game.Entities.Types +import qualified Game.Sprites as S + +mkBattery :: S.SpriteSheet -> Int -> Int -> IORef Entity -> IO () -> IO Entity +mkBattery sprites x y playerRef collectedBattery' = do + s <- S.get sprites "battery" + pure + Entity + { typ = TypePickup, + x = x, + y = y, + delay = frameDelay, + frame = 0, + jumping = False, + gravity = gravityOff, + dir = DirRight, + sprite = s, + update = updateBattery (collision playerRef) collectedBattery', + destroy = False, + spawns = [] + } + +updateBattery :: Collision -> IO () -> Entity -> IO Entity +updateBattery touchedPlayer collectedBattery' e = do + touched <- touchedPlayer e + if touched then e {destroy = True} <$ collectedBattery' else pure updateBatteryFrame + where + updateBatteryFrame :: Entity + updateBatteryFrame + | e.delay > 0 = e {delay = e.delay - 1} + | e.frame + 1 < frameLimit e = e {delay = frameDelay, frame = e.frame + 1} + | otherwise = e {delay = frameDelay, frame = 0} |