aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add GAME OVER callout

Browse source
This commit is contained in:
Sam Tay 2017-06-18 14:58:00 -04:00
parent 4936597ae2
commit 87b8e05919
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/UI/Game.hs
View file

@ -145,6 +145,7 @@ drawInfo :: Game -> Widget Name
drawInfo g = hLimit 16 -- size of next piece box drawInfo g = hLimit 16 -- size of next piece box
$ vBox [ drawNextShape (g ^. nextShape) $ vBox [ drawNextShape (g ^. nextShape)
, padTop (Pad 2) $ drawHelp , padTop (Pad 2) $ drawHelp
, padTop (Pad 2) $ drawGameOver g
] ]
drawNextShape :: Tetrimino -> Widget Name drawNextShape :: Tetrimino -> Widget Name
@ -176,7 +177,12 @@ drawKeyInfo action keys =
(padRight Max $ padLeft (Pad 1) $ str (action ++ ":")) (padRight Max $ padLeft (Pad 1) $ str (action ++ ":"))
<+> (padLeft Max $ padRight (Pad 1) $ str keys) <+> (padLeft Max $ padRight (Pad 1) $ str keys)
drawGameOver :: Game -> Widget Name
drawGameOver g = if (isGameOver g)
then padLeftRight 3 $ withAttr gameOverAttr $ str "GAME OVER"
else emptyWidget
theMap :: AttrMap
theMap = attrMap V.defAttr theMap = attrMap V.defAttr
[ (iAttr, on V.cyan V.cyan) [ (iAttr, on V.cyan V.cyan)
, (oAttr, on V.yellow V.yellow) , (oAttr, on V.yellow V.yellow)
@ -185,6 +191,7 @@ theMap = attrMap V.defAttr
, (zAttr, on V.red V.red) , (zAttr, on V.red V.red)
, (jAttr, on V.blue V.blue) , (jAttr, on V.blue V.blue)
, (lAttr, on V.white V.white) -- damn no orange in ANSI , (lAttr, on V.white V.white) -- damn no orange in ANSI
, (gameOverAttr, fg V.red `V.withStyle` V.bold)
] ]
iAttr, oAttr, tAttr, sAttr, zAttr, jAttr, lAttr :: AttrName iAttr, oAttr, tAttr, sAttr, zAttr, jAttr, lAttr :: AttrName
@ -198,3 +205,6 @@ lAttr = "L"
emptyAttr :: AttrName emptyAttr :: AttrName
emptyAttr = "empty" emptyAttr = "empty"
gameOverAttr :: AttrName
gameOverAttr = "gameOver"