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

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.

主站蜘蛛池模板: 从江县| 昌江| 兴仁县| 娄底市| 宣化县| 赤壁市| 和田市| 上饶市| 乐昌市| 康定县| 错那县| 莎车县| 平定县| 莆田市| 南昌县| 兴义市| 翁源县| 枣阳市| 塘沽区| 奈曼旗| 井陉县| 砚山县| 浪卡子县| 施秉县| 无为县| 金秀| 南丹县| 曲阜市| 舞阳县| 新昌县| 城市| 日土县| 广汉市| 阿图什市| 碌曲县| 榕江县| 苏尼特左旗| 元朗区| 徐水县| 泰顺县| 汽车|