官术网_书友最值得收藏!

Time for action – letting the player play

  1. Modify the Update() method of Game1.vb, by adding the following before the call to MyBase.Update(gameTime):
    Select Case gameState
      Case GameStates.TitleScreen
        If Keyboard.GetState().IsKeyDown(Keys.Space) Then
          _gameBoard.ClearBoard()
          _gameBoard.GenerateNewPieces(False)
          playerScore = 0
          gameState = GameStates.Playing
        End If
    
        Case GameStates.Playing
          timeSinceLastInput +=
          (CSng(gameTime.ElapsedGameTime.TotalSeconds))
    
          If timeSinceLastInput >= MinTimeSinceLastInput Then
            HandleMouseInput(Mouse.GetState())
          End If
    
          _gameBoard.ResetWater()
    
          Dim y As Integer
    
          For y = 0 To GameBoard.GameBoardHeight
            CheckScoringChain(_gameBoard.GetWaterChain(y))
          Next
    
          _gameBoard.GenerateNewPieces(True)
    End Select

What just happened?

The Update() method performs two different functions, depending on the current gameState value. If the game is in TitleScreen state, Update() examines the keyboard, waiting for the Space bar to be pressed. When it is, Update() clears the _gameBoard, generates a new set of pieces, resets the player's score, and changes gameState to Playing.

While in the Playing state, Update() accumulates time in timeSinceLastInput in order to pace the game play properly. If enough time has passed, the HandleMouseInput() method is called to allow the player to rotate game pieces.

Update() then calls ResetWater() to clear the water flags for all pieces on the game board. This is followed by a loop that processes each row, starting at the top and working downward, using CheckScoringChain() and GetWaterChain(), to fill any pieces that should have water in them and check the results of each row for completed chains.

Finally, GenerateNewPieces() is called with the true parameter for dropSquares, which will cause GenerateNewPieces() to fill the empty holes from the squares above, and then generate new pipes to replace the empty squares.

主站蜘蛛池模板: 安西县| 郧西县| 衡阳县| 郑州市| 河东区| 山丹县| 商河县| 伊宁县| 体育| 北宁市| 通海县| 慈溪市| 前郭尔| 抚顺县| 花垣县| 铁力市| 平塘县| 东城区| 报价| 全州县| 赣榆县| 石屏县| 新宁县| 株洲市| 克拉玛依市| 南安市| 犍为县| 邵阳县| 定南县| 黑水县| 措勤县| 台南市| 抚顺市| 茶陵县| 内乡县| 康平县| 冕宁县| 邮箱| 如皋市| 佛冈县| 炎陵县|