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

Time for action – generating new pieces

  1. Add the GenerateNewPieces() method to the GameBoard class:
    Public Sub GenerateNewPieces(dropSquare As Boolean)
      Dim x, y As Integer
    
      If dropSquare Then
        For x = 0 To GameBoardWidth
          For y = GameBoardHeight To 0 Step -1
            If GetSquare(x, y) = "Empty" Then
              FillFromAbove(x, y)
            End If
          Next
        Next
      End If
    
      For y = 0 To GameBoardHeight
        For x = 0 To GameBoardWidth
          If GetSquare(x, y) = "Empty" Then
            RandomPiece(x, y)
          End If
        Next
      Next
    
    End Sub

What just happened?

When GenerateNewPieces() is called with true passed as dropSquares, the looping logic processes one column at a time from the bottom up. By using the step 1 in the for loop for the Y coordinate, we can make the loop run backwards instead of the default forward direction. When it finds an empty square, it calls FillFromAbove() to pull a filled square from above into that location.

The reason the processing order is important here is that by filling a lower square from a higher position, that higher position will become empty. It, in turn, will need to be filled from above.

After the holes are filled (or if dropSquares is set to false), GenerateNewPieces() examines each square in boardSquares and asks it to generate random pieces for each square that contains an empty piece.

Water-filled pipes

Whether or not a pipe is filled with water, it is managed separately from its orientation. Rotating a single pipe could change the water-filled status of any number of other pipes, without changing their rotation.

Instead of filling and emptying individual pipes, it is easier to empty all of the pipes and then re-fill the pipes that need to be marked as having water in them.

主站蜘蛛池模板: 巴林左旗| 宝坻区| 长岭县| 安达市| 龙里县| 三门县| 洱源县| 塔河县| 启东市| 正安县| 马边| 财经| 巴马| 涿鹿县| 苍南县| 枣庄市| 黄石市| 邮箱| 永寿县| 莎车县| 凤山市| 绿春县| 太湖县| 休宁县| 新乐市| 保山市| 晴隆县| 淅川县| 翼城县| 盐津县| 大洼县| 新巴尔虎左旗| 伊川县| 辽阳市| 永平县| 龙泉市| 花莲市| 长乐市| 紫金县| 奇台县| 灌南县|