本文章共4228字,分3页,当前第1页,快速翻页:
|
【脚本代码】
//坐标变量:
VBS dim x,x1,x2,xx,px
//时间变量:
VBS dim t,t1,t2,tt,dt
//初始化变量:
VBS i=1:tt=0:xx=0
//循环及按键的延时设置,请根据电脑及网络情况自行调整(1-5),以偏小为好:
VBS dt=2
//响一下,提示脚本开始运行:
Beep
Rem 测节拍速度
//循环防卡延时:
Delay 8*dt
//第一次测小圆珠的位置:
VBSCall Call FindColor(400,365,540,370,"520000",x1,y1)
If x1>0
//记录从系统启动到现在的毫秒数:
Plugin t1=GetSysInfo.GetTime()
Delay 512
//第二次测小圆珠的位置:
VBSCall Call FindColor(400,365,540,370,"520000",x2,y2)
If x2>x1
//再次记录从系统启动到现在的毫秒数:
Plugin t2=GetSysInfo.GetTime()
//计算两次测量的时间差,并累加:
VBS tt=tt+t2-t1
//计算两次测量的坐标差差,并累加:
VBS xx=xx+x2-x1
VBS i=i+1
//循环测5次以减小误差:
If i=5
//算出不同节拍下小球的移动速度(毫秒/单位坐标)
VBS t=tt/xx
//根据歌曲速度调整P点位置:
If t>20
//在70-90之间:
px=502
ElseIf t>16 and t<=20
//在90-110之间:
px=501.5
ElseIf t>14 and t<=16
//在110-130之间:
px=501
ElseIf t>12 and t<=14
//在130-150之间:
px=500.5
ElseIf t>11 and t<=12
//在150-160之间:
px=500
ElseIf t>10 and t<=11
//在160-170之间:
px=499.5
ElseIf t>9.5 and t<=10
//在170-180之间:
px=499
 |
点这里复制本页地址发送给您QQ/MSN上的好友 |
|