codes = {};
for (y = 1; y <= Bottom; y++) {
  if ([4,y] == "11111" && [4,y+1] == "22222" && [4,y+2] == "33333") {
    codes[[1,y]] = true;
  }
}
for (y = Bottom; y >= 1; y--) {
  if ([1,y] in codes) {
    DeleteRow(y);
  }
}