Question

http://i44.tinypic.com/znlvra.png

所以我得到了这个游戏就像舞蹈revo它更糟糕好吧它说好和完美当你击中箭头我遇到问题完美的击中它的工作取决于箭头的速度但我有一个选项容易，中等而且基本上很容易就是最慢和最难的是速度最快它我从来没有达到完美所以我问你们是否有更好的方法来完善或帮助我改进这段代码：

'Perfect Hit
If (RArrowDown.Top = ArrowDown.Top) And RArrowDown.Visible = True Then
    TimerMain.Enabled = False
    Hit += 1
    Score += 20
    RArrowDown.Visible = False
    Perfect.Visible = True
    TimerPerfect.Enabled = True
    Combo_Counter += 1
    RandomTime_1.Enabled = True
    'End If
    'Good Hit
ElseIf (RArrowDown.Top <= ArrowDown.Top + ArrowDown.Height) And (ArrowDown.Top <= RArrowDown.Top + RArrowDown.Height) And RArrowDown.Visible = True Then
    TimerMain.Enabled = False
    Hit += 1
    Score += 10
    RArrowDown.Visible = False
    Good.Visible = True
    TimerGood.Enabled = True
    Combo_Counter += 1
    RandomTime_1.Enabled = True
End If

Answer 1

我认为更好的方法是获得一个值，表明完成按键的距离是多远（我认为某人实际上完全得到它是非常不正常的），然后按照这个值行事。然后你可以调整那些能给你带来完美或好评的乐队：

Dim offset as Integer
If [Right Arrow Pressed]
    offset = RarrowDown.Top - ArrowDown.Top
End If

Select Case offset

case is 0 to 3
    'perfect

case 4 to 10
    'good

case 11 to 20
    'poor

case else
    'missed

End Select

舞蹈革命游戏

1 个答案: