.Visible = False Then
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Form_main.Image_block(by * 10 + bx).Visible = False
Call show4(bx, by)
next_block_kind = 4
End If
End If
Case 12
If Form_main.Image_block(by * 10 + bx - 9).Visible = False Then
Form_main.Image_block(by * 10 + bx).Visible = False
by = by - 1
bx = bx + 1
Call show11(bx, by)
next_block_kind = 11
End If
Case 13
If by * 10 + bx + 21 < 169 And bx >= 1 Then
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
bx = bx - 1
Call show5(bx, by)
next_block_kind = 5
End If
Else
If Form_main.Image_block(by * 10 + bx + 11).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Call show5(bx, by)
next_block_kind = 5
End If
End If
Case 14
If by * 10 + bx + 12 < 169 Then
If Form_main.Image_block(by * 10 + bx - 9).Visible = False And Form_main.Image_block(by * 10 + bx - 8).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
by = by - 1
bx = bx + 1
Call show13(bx, by)
next_block_kind = 13
End If
End If
Case 15
If by * 10 + bx + 22 < 169 And bx <= 7 Then
If Form_main.Image_block(by * 10 + bx + 10).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx + 22).Visible = False Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
by = by + 1
Call show14(bx, by)
next_block_kind = 14
End If
Else
If Form_main.Image_block(by * 10 + bx + 10).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
by = by + 1
bx = bx - 1
Call show14(bx, by)
next_block_kind = 14
End If
End If
Case 16
If by * 10 + bx + 19 < 169 And bx >= 1 Then
If Form_main.Image_block(by * 10 + bx + 10).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False And Form_main.Image_block(by * 10 + bx + 19).Visible = False Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
by = by + 1
bx = bx - 1
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页 |
