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

reformat console output for a more compact layout

This commit is contained in:
Jesse D. McDonald 2014-09-01 18:09:20 -05:00
parent 748fe76f4a
commit 6b9df9680c
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/ConsoleUI.hs
View File

@ -54,13 +54,10 @@ printWaterdeep :: WaterdeepState -> IO ()
printWaterdeep w = do
let playerStates = map snd $ IM.toAscList $ w ^. gamePlayerStates
clearScreen
putStrLn ("Players: " ++ intercalate ", " (map (^. playerName) playerStates))
putStrLn ("First Player: " ++
(w ^. gamePlayerState (w ^. gameFirstPlayer) . playerName))
putStrLn ("Current Round: " ++ show (w ^. gameCurrentRound))
let p = w ^. gameCurrentPlayer
when (p /= noPlayerID) $
putStrLn ("Current Player: " ++ (w ^. gamePlayerState p . playerName))
printf "Round %d; First Player: %s; Current Player: %s\n"
(w ^. gameCurrentRound)
(w ^. gamePlayerState (w ^. gameFirstPlayer) . playerName)
(w ^. gamePlayerState (w ^. gameCurrentPlayer) . playerName)
putStrLn ""
putStrLn "Cliffwatch Inn:"
forM_ (w ^. gameCliffwatchInn) $ \q -> do
@ -74,14 +71,15 @@ printWaterdeep w = do
(b ^. buildingAccumulation)
putStrLn ""
forM_ playerStates $ \p -> do
printf "%s's State (%s):\n" (p ^. playerName)
printf "%s's State (%s; %d points; %d agents):\n" (p ^. playerName)
(show (p ^. playerFaction . factionColor))
putStrLn (" Score: " ++ show (p ^. playerScore))
putStrLn (" Tavern: " ++ (p ^. playerTavern . to showTavern))
putStrLn (" Incomplete: " ++ showItems (p ^.. playerIncompleteQuests . traverse . questTitle))
putStrLn (" Complete: " ++ showItems (p ^.. playerCompletedQuests . traverse . questTitle))
putStrLn (" Intrigues: " ++ showItems (p ^.. playerIntrigueCards . traverse . intrigueTitle))
putStrLn (" Agent Pool: " ++ show (p ^. playerAgentsInPool))
(p ^. playerScore)
(p ^. playerAgentsInPool)
putStrLn (" Tavern: " ++ (p ^. playerTavern . to showTavern))
putStrLn (" Incomplete: " ++ showItems (p ^.. playerIncompleteQuests . traverse . questTitle))
putStrLn (" Complete: " ++ showItems (p ^.. playerCompletedQuests . traverse . questTitle))
putStrLn (" Plot Quests: " ++ showItems (p ^.. playerPlotQuests . traverse . questTitle))
putStrLn (" Intrigues: " ++ showItems (p ^.. playerIntrigueCards . traverse . intrigueTitle))
putStrLn ""
showItems :: [String] -> String