If
Case 7
If by * 10 + bx + 21 < 169 Then
If Form_main.Image_block(by * 10 + bx - 9).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False And Form_main.Image_block(by * 10 + bx + 21).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 + 3).Visible = False
bx = bx + 1
by = by - 1
Call show19(bx, by)
next_block_kind = 19
End If
End If
Case 8
If by * 10 + bx + 20 < 169 And bx >= 1 Then
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx).Visible = False Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
bx = bx - 1
Call show2(bx, by)
next_block_kind = 2
End If
Else
If Form_main.Image_block(by * 10 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx).Visible = False Then
Form_main.Image_block(by * 10 + bx + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Call show2(bx, by)
next_block_kind = 2
End If
End If
Case 9
If by * 10 + bx + 20 < 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 Then
Form_main.Image_block(by * 10 + bx + 11).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
bx = bx - 1
Call show3(bx, by)
next_block_kind = 3
End If
Else
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 2).Visible = False Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
Call show3(bx, by)
next_block_kind = 3
End If
End If
Case 10
If by * 10 + bx + 21 < 169 And bx <= 7 Then
If Form_main.Image_block(by * 10 + bx + 12).Visible = False Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
by = by + 1
Call show12(bx, by)
next_block_kind = 12
End If
Else
If Form_main.Image_block(by * 10 + bx + 9).Visible = False And Form_main.Image_block(by * 10 + bx + 20).Visible = False Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
by = by + 1
bx = bx - 1
Call show12(bx, by)
next_block_kind = 12
End If
End If
Case 11
If by * 10 + bx + 20 < 169 And bx >= 1 Then
If Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
Form_main.Image_block(by * 10 + bx + 20).Visible = False
bx = bx - 1
Call show4(bx, by)
next_block_kind = 4
End If
Else
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 12) << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页 |
