Case 18
If (by * 10 + bx + 22) < 169 Then
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False And Form_main.Image_block(by * 10 + bx + 22).Visible = False Then
If bx < 8 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
bx = bx + 1
Call show18(bx, by)
End If
End If
End If
Case 19
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 11).Visible = False And Form_main.Image_block(by * 10 + bx + 21).Visible = False And Form_main.Image_block(by * 10 + bx + 31).Visible = False Then
If bx < 9 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 10).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
Call show19(bx, by)
End If
End If
End Select
''''Form_main.Timer_speed.Enabled = True
End Sub
Sub turn(turn_kind As Integer)
Select Case turn_kind
Case 1
Case 2
If by * 10 + bx + 21 < 169 Then
If Form_main.Image_block(by * 10 + bx + 2).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 + 1).Visible = False
bx = bx + 1
Call show8(bx, by)
next_block_kind = 8
End If
End If
Case 3
If by * 10 + bx + 22 < 169 Then
If 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 + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 10).Visible = False
bx = bx + 1
Call show9(bx, by)
next_block_kind = 9
End If
End If
Case 4
If by * 10 + bx + 21 < 169 Then
If Form_main.Image_block(by * 10 + bx + 21).Visible = False Then
Form_main.Image_block(by * 10 + bx + 12).Visible = False
Call show10(bx, by)
next_block_kind = 10
End If
End If
Case 5
If by * 10 + bx + 21 < 169 Then
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 20).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 + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
Call show15(bx, by)
next_block_kind = 15
End If
End If
Case 6
If by * 10 + bx + 21 < 169 Then
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 22).Visible = False Then
Form_main.Image_block(by * 10 + bx + 10).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
bx = bx + 1
Call show16(bx, by)
next_block_kind = 16
End If
End << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页 |
