Add score board

norm2782 · Aug 24, 2010 · 9969baf · 9969baf
1 parent 44a2a5e
commit 9969baf
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/HaskBan.hs b/HaskBan.hs
@@ -18,9 +18,13 @@ module HaskBan (main) where
     keypad stdScr True
     cursSet CursorInvisible
     mvWAddStr stdScr 0 0 "Welcome to HaskBan, the world's most awesome Haskell-based Sokoban game."
+    showMoves 0
     refresh
     progLoop
 
+  showMoves :: Int -> IO ()
+  showMoves s = mvWAddStr stdScr 3 30 ("Number of moves: " ++ show s)
+
   progLoop :: IO ()
   progLoop = do --mvWAddStr stdScr 1 0 (showSokoMap (return getMap))
                 key <- getCh