addRowsToCount :: Int -> Game ()                               
addRowsToCount ct = do linum <- gets lineNum
                       linetxt <- gets linesText
                       fnt <- asks font
                       let newct = linum + (toEnum ct)
                       setLineNum newct
                       liftIO $ freeSurface linetxt
                       newlinetxt <- liftIO $ renderTextSolid fnt (show newct) textColor
                       setLinesText newlinetxt



-- | Checks if we should set the current piece into the board and move on                    
addRowsToCount :: Int -> Game ()
addRowsToCount ct = do linum <- gets lineNum
                       linetxt <- gets linesText
                       fnt <- asks font
                       let newct = linum + (toEnum ct)
                       setLineNum newct
                       liftIO $ freeSurface linetxt
                       newlinetxt <- liftIO $ renderTextSolid fnt (show newct) textColor
                       setLinesText newlinetxt



-- | Checks if we should set the current piece into the board and move on                    
addRowsToCount ct = do linum <- gets lineNum
                       linetxt <- gets linesText
                       fnt <- asks font
                       let newct = linum + (toEnum ct)
                       setLineNum newct
                       liftIO $ freeSurface linetxt
                       newlinetxt <- liftIO $ renderTextSolid fnt (show newct) textColor
                       setLinesText newlinetxt



-- | Checks if we should set the current piece into the board and move on                    