本文章共4228字,分3页,当前第2页,快速翻页:
|
Else
//在180-190之间:
px=498.5
EndIf
Goto 开始
EndIf
Goto 测节拍速度
EndIf
EndIf
Goto 测节拍速度
Rem 按空格
//循环防卡延时:
Delay 8*dt
//检测小球位置:
VBSCall Call FindColor(413,366,513,370,"520000",x,y)
If x>0 and x<px
//没到P点,延时等待小球到达设定的P点处
Delay (px-x)*t
KeyPress 32 1
//延时等待小球滚完剩余路程:
Delay 40*t
Goto 开始
ElseIf x>=px
//已到或超过设定的P点,直接按空格:
KeyPress 32 1
Delay 40*t
Goto 开始
Else
Goto 按空格
EndIf
Rem 开始
//循环防卡延时:
Delay 8*dt
//单数箭头
IfColor 399 391 ef0000 2
IfColor 399 404 ffffff 2
IfColor 263 404 ffffff 2
VBS s=9:k=0
Goto 按箭头
EndIf
IfColor 297 404 ffffff 2
VBS s=7:k=34
Goto 按箭头
EndIf
IfColor 331 404 ffffff 2
VBS s=5:k=68
Goto 按箭头
EndIf
IfColor 365 404 ffffff 2
VBS s=3:k=102
Goto 按箭头
EndIf
VBS s=1:k=136
Goto 按箭头
EndIf
EndIf
//双数箭头
IfColor 382 391 ef0000 2
IfColor 382 404 ffffff 2
IfColor 280 404 ffffff 2
VBS s=8:k=17
Goto 按箭头
EndIf
IfColor 314 404 ffffff 2
VBS s=6:k=51
Goto 按箭头
EndIf
IfColor 348 404 ffffff 2
VBS s=4:k=85
Goto 按箭头
EndIf
VBS s=2:k=119
|