[examples/gtk-tetris.pl] clear lines that are full of blocks

sorear · Oct 2, 2011 · b08643d · b08643d
1 parent d2614f8
commit b08643d
Showing 1 changed file with 19 additions and 2 deletions.
diff --git a/examples/gtk-tetris.pl b/examples/gtk-tetris.pl
@@ -78,7 +78,7 @@ ($sender, $eventargs)
     $offsetX = (($windowWidth  - ($scale * matrixColumns))/2).Int;
     $offsetY = (($windowHeight - ($scale * matrixRows   ))/2).Int;
     $cc.SetSourceRGB(0, 0, 0.4.Num); $cc.Paint;  # Dark blue background
-    MoveDownOne();
+    TryMovePieceDown();  # also clears full rows and makes new pieces
     DrawMatrix($cc);
     DrawPiece($cc);
     $cc.dispose-hack; # Should be $cc.IDisposable.Dispose but currently
@@ -113,7 +113,7 @@ ($deltaX, $deltaY)
     $canMove;
 }
 
-sub MoveDownOne()
+sub TryMovePieceDown()
 {
     if CanMovePiece(0, 1) {
         ++$pieceY;
@@ -122,6 +122,23 @@ ()
         for @piece -> $x, $y {
             @matrix[$y+$pieceY][$x+$pieceX] = $colorindex;
         }
+        # Look for full rows and remove them. TODO: keep score.
+        for ^matrixRows -> $row {
+            my $full = True;
+            for ^matrixColumns -> $column {
+                if @matrix[$row][$column] == 0 { $full = False; }
+            }
+            if $full {
+                loop (my $moveRow = $row; $moveRow > 0; --$moveRow) {
+                    for ^matrixColumns -> $column {
+                        @matrix[$moveRow][$column] = @matrix[$moveRow-1][$column];
+                    }
+                }
+                for ^matrixColumns -> $column {
+                    @matrix[0][$column] = 0;
+                }
+            }
+        }
         CreatePiece();
     }
 }