Call show17(bx, by)
next_block_kind = 17
End If
Else
If Form_main.Image_block(by * 10 + bx + 10).Visible = False And Form_main.Image_block(by * 10 + bx + 20).Visible = False And Form_main.Image_block(by * 10 + bx + 12).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 + 21).Visible = False
by = by + 1
Call show17(bx, by)
next_block_kind = 17
End If
End If
Case 17
If by * 10 + bx + 11 < 169 Then
If Form_main.Image_block(by * 10 + bx - 10).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 2).Visible = False
by = by - 1
Call show18(bx, by)
next_block_kind = 18
End If
End If
Case 18
If by * 10 + bx + 21 < 169 And bx <= 7 Then
If Form_main.Image_block(by * 10 + bx + 2).Visible = False And Form_main.Image_block(by * 10 + bx + 12).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 + 20).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
Call show6(bx, by)
next_block_kind = 6
End If
Else
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).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Form_main.Image_block(by * 10 + bx + 21).Visible = False
bx = bx - 1
Call show6(bx, by)
next_block_kind = 6
End If
End If
Case 19
If by * 10 + bx + 30 < 169 And bx >= 1 And bx <= 7 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 + 12).Visible = False Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Form_main.Image_block(by * 10 + bx + 30).Visible = False
bx = bx - 1
by = by + 1
Call show7(bx, by)
next_block_kind = 7
End If
ElseIf by * 10 + bx + 30 < 169 And bx < 1 Then
If Form_main.Image_block(by * 10 + bx + 11).Visible = False And Form_main.Image_block(by * 10 + bx + 12).Visible = False And Form_main.Image_block(by * 10 + bx + 13).Visible = False Then
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Form_main.Image_block(by * 10 + bx + 30).Visible = False
Form_main.Image_block(by * 10 + bx).Visible = False
by = by + 1
Call show7(bx, by)
next_block_kind = 7
End If
ElseIf by * 10 + bx + 30 < 169 And bx = 8 Then
If Form_main.Image_block(by * 10 + bx + 7).Visible = False And Form_main.Image_block(by * 10 + bx + 8).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
Form_main.Image_block(by * 10 + bx + 30).Visible = False
by = by + 1
& << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页 |
