bsp; by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
ElseIf Form_main.Image_block(by * 10 + bx + 30).Visible = True Or Form_main.Image_block(by * 10 + bx + 31).Visible = True Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
Else
End If
Case 16
If by = 14 Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
ElseIf Form_main.Image_block(by * 10 + bx + 10).Visible = True Or Form_main.Image_block(by * 10 + bx + 31).Visible = True Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
Else
End If
Case 17
If by = 15 Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
ElseIf Form_main.Image_block(by * 10 + bx + 20).Visible = True Or Form_main.Image_block(by * 10 + bx + 11).Visible = True Or Form_main.Image_block(by * 10 + bx + 12).Visible = True Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
Else
End If
Case 18
If by = 14 Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
ElseIf Form_main.Image_block(by * 10 + bx + 30).Visible = True Or Form_main.Image_block(by * 10 + bx + 31).Visible = True Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
Else
End If
Case 19
If by = 13 Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
ElseIf Form_main.Image_block(by * 10 + bx + 40).Visible = True Then
Call clear(block_l, by)
bx = 3
by = 0
Form_main.Timer_speed.Enabled = False
Call next_block
Else
End If
End Select
End Sub
Sub add_score()
End Sub
Sub add_level()
End Sub
Sub block_play(block_kind As Integer) ''''显示于play_field的方块
Select Case block_kind
Case 2
Call show2(bx, by) ''''Z字型
Case 3
Call show3(bx, by) ''''反Z字型
Case 4
Call show4(bx, by) ''''土字型
Case 5
Call show5(bx, by) ''''L字型
Case 6
Call show6(bx, by) ''''反L字型
Case 7
Call show7(bx, by) ''''一字型
Case 1
Call show1(bx, by) ''''正方形
Case 8
Call show8(bx, by)
Case 9
Call show9(bx, by)
Case 10
Call show10(bx, by)
Case 11
Call show11(bx, by)
Case 12
Call show12(bx, by)
Case 13
Call show13(bx, by)
Case 14
Cal 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
