From e943038fa574829ac651778e35b9c6cd575d5ccf Mon Sep 17 00:00:00 2001
From: sabadev <saba@sabadev.xyz>
Date: Sun, 31 Jan 2021 15:04:28 -0500
Subject: [PATCH] Added score display to the other screens, and added out of
 bounds collision detection for the box.

---
 src/Game.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/Game.hs b/src/Game.hs
index 9c49966..ada0342 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -94,7 +94,8 @@ handleTick state@(State { stateScreen = GameScreen }) = do
   let oldPlayer = statePlayer state
   let player = moveCharacter (entityDirection oldPlayer) oldPlayer
   let box = handleCollision player (stateBox state)
-  state { statePlayer = player, stateBox = box, stateScore = stateScore state + 1 }
+  if isOutOfBounds box then state { stateScreen = TitleScreen }
+                       else state { statePlayer = player, stateBox = box, stateScore = stateScore state + 1 }
 handleTick state = state
 
 handleKeyPress :: State -> Char -> State
@@ -110,8 +111,8 @@ handleKeyPress state@(State { stateScreen = GameScreen }) 'D' = state { statePla
 handleKeyPress state _ = state
 
 render :: State -> G.Plane
-render state@(State { stateScreen = TitleScreen }) = G.mergePlanes drawBlank $ drawTitle : []
-render state@(State { stateScreen = HelpScreen }) = G.mergePlanes drawBlank $ drawHelp : []
+render state@(State { stateScreen = TitleScreen }) = G.mergePlanes drawBlank $ drawTitle : drawScore state : []
+render state@(State { stateScreen = HelpScreen }) = G.mergePlanes drawBlank $ drawHelp : drawScore state : []
 render state@(State { stateScreen = GameScreen }) = do
   let playerPlane = drawPlayer $ statePlayer state
   let boxPlane = drawBox $ stateBox state
@@ -167,3 +168,6 @@ handleCollision :: Character t -> Character Box -> Character Box
 handleCollision (Character { entityCoords = coords, entityDirection = direction }) box
   | willCollide direction coords (entityCoords box) = moveCharacter direction box
   | otherwise = box
+
+isOutOfBounds :: Character Box -> Bool
+isOutOfBounds (Character { entityCoords = (row, column) }) = row == fst topLeftBoundary || column == snd topLeftBoundary || row == snd bottomRightBoundary || column == fst bottomRightBoundary
-- 
2.20.1