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] ... 下一页 >> 没有相关教程
|