nybble
/
waterdeep
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

store all the messages from the game and print them at the end.

This commit is contained in:
Jesse D. McDonald 2014-07-26 17:00:53 -05:00
parent 7f7e39213e
commit 4331512a3e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ConsoleUI.hs
View File

@ -95,7 +95,7 @@ drawState :: IORef DisplayState -> IO ()
drawState ref = do drawState ref = do
ds <- readIORef ref ds <- readIORef ref
printWaterdeep (ds ^. gameState) printWaterdeep (ds ^. gameState)
forM_ (ds ^. gameMessages) putStrLn mapM_ putStrLn $ take 4 $ ds ^. gameMessages
unless (null (ds ^. gameMessages)) $ putStrLn "" unless (null (ds ^. gameMessages)) $ putStrLn ""
menuPrompt :: IORef DisplayState -> IO () -> WaterdeepPrompt a -> IO a menuPrompt :: IORef DisplayState -> IO () -> WaterdeepPrompt a -> IO a
@ -103,7 +103,7 @@ menuPrompt ref redraw (NotifyState w) = do
modifyIORef ref (gameState .~ w) modifyIORef ref (gameState .~ w)
redraw redraw
menuPrompt ref redraw (Broadcast s) = do menuPrompt ref redraw (Broadcast s) = do
modifyIORef ref (gameMessages %~ ((s:) . take 4)) modifyIORef ref (gameMessages %~ (s:))
redraw redraw
menuPrompt ref redraw prm@(SolicitChoice p t cs) = do menuPrompt ref redraw prm@(SolicitChoice p t cs) = do
let menuSize = length cs let menuSize = length cs
@ -149,4 +149,6 @@ main = do
let w0 = newGame players defaultQuestDeck defaultIntrigueDeck defaultBuildingDeck rndgen let w0 = newGame players defaultQuestDeck defaultIntrigueDeck defaultBuildingDeck rndgen
ref <- newIORef (DisplayState { _gameState = w0, _gameMessages = [] }) ref <- newIORef (DisplayState { _gameState = w0, _gameMessages = [] })
runWaterdeepM (menuPrompt ref (drawState ref)) waterdeepGame w0 runWaterdeepM (menuPrompt ref (drawState ref)) waterdeepGame w0
putStrLn "--- GAME LOG ---"
mapM_ putStrLn . reverse . view gameMessages =<< readIORef ref
return () return ()