l show14(bx, by)
Case 15
Call show15(bx, by)
Case 16
Call show16(bx, by)
Case 17
Call show17(bx, by)
Case 18
Call show18(bx, by)
Case 19
Call show19(bx, by)
End Select
End Sub
Sub move_left(move_left_kind)
Select Case move_left_kind
Case 1 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
bx = bx - 1
Call show1(bx, by)
End If
End If
Case 2 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 10).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
bx = bx - 1
Call show2(bx, by)
End If
End If
Case 3 ''''ok
If Form_main.Image_block(by * 10 + bx).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
bx = bx - 1
Call show3(bx, by)
End If
End If
Case 4 ''''ok
If Form_main.Image_block(by * 10 + bx).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
bx = bx - 1
Call show4(bx, by)
End If
End If
Case 5 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
bx = bx - 1
Call show5(bx, by)
End If
End If
Case 6
If Form_main.Image_block(by * 10 + bx + 1).Visible = False And Form_main.Image_block(by * 10 + bx + 9).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 2).Visible = False
Form_main.Image_block(by * 10 + bx + 12).Visible = False
bx = bx - 1
Call show6(bx, by)
End If
End If
Case 7 ''''ok
If Form_main.Image_block(by * 10 + bx - 1).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 3).Visible = False
bx = bx - 1
Call show7(bx, by)
End If
End If
Case 8 ''''ok
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 + 19).Visible = False Then
If bx >= 1 Then
Form_main.Image_block(by * 10 + bx + 1).Visible = False
Form_main.Image_block(by * 10 + bx + 11).Visible = False
Form_main.Image_block(by * 10 + bx + 20).Visible = False
bx = bx - 1
Call show8(bx, by)
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
