From 1d68ac340c28792b2b498e204ef123730d901443 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Thu, 16 Feb 2023 21:11:18 +0000 Subject: Added lives to the HUD --- src/Game/Hud.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Game/Hud.hs') diff --git a/src/Game/Hud.hs b/src/Game/Hud.hs index 3b59558..dd72bb3 100644 --- a/src/Game/Hud.hs +++ b/src/Game/Hud.hs @@ -19,4 +19,6 @@ render :: SDL.Renderer -> Hud -> IO () render renderer hud = do state <- readIORef hud.stateRef let xs = [0 .. state.totalBatteries - 1] - mapM_ (\x -> S.render renderer hud.sprite (4 + x * 8) 178 0 (if state.batteries <= x then 0 else 1)) xs + in mapM_ (\x -> S.render renderer hud.sprite (4 + x * 8) 178 0 (if state.batteries <= x then 0 else 1)) xs + let xs = [0 .. state.totalLives - 1] + in mapM_ (\x -> S.render renderer hud.sprite (320 - 4 - state.totalLives * 8 + x * 8) 178 0 (if state.lives <= x then 2 else 3)) xs -- cgit v1.2.3