; 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 + 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 10
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 + 20).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 11
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 + 21).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 12
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 + 10).Visible = True Or Form_main.Image_block(by * 10 + bx + 21).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 13
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 + 11).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 14
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 + 10).Visible = True Or Form_main.Image_block(by * 10 + bx + 11).Visible = True Or Form_main.Image_block(by * 10 + bx + 22).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 15
If by = 14 Then
Call clear(block_l, by)
bx = 3
&n上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
