[原创]劲舞欣赏源代码[General]Description=劲舞欣赏V1.0BeginHotkey=88BeginHotkeyMod=0RunOnce=0Enable=1[Repeat]Type=0Number=1[Comment]Content=劲舞团.【功能说明】.1、自动按箭头、空格，能跳过FINISH舞步.2、不限速度，能自动测出节拍速度，得出合理的延时（配置低点的推荐跳120以下的）.3、适合新手练习场和自由练习场.4、适合普通单人和个人同步..【使用说明】..1、推荐XP系统使用，16、32色均可.2、必须在新模式下使用，即大箭头（请看截图）.3、开始后，若不是大箭头，请按TAB键转到大箭头.等小球移动时方可启动脚本4、若在中途启动脚本，可能要等小球转3-5次才会按箭头5、跳完后请按F12终止脚本，下次开始再重新启动..【作者介绍】.星帆.有什么意见或建议请联系我.QQ：47201804.Email：ccy-47201804@163.com.【制作日期】.2005/06/20[Script]VBS dim x1(3),x2(3),tt(3)VBS i=1Rem 测节拍速度VBSCall Call FindColor(400,365,440,370,"520000",x1(i),y1)If x1(i)>0Delay 1000VBSCall Call FindColor(400,365,540,370,"520000",x2(i),y2)If x2(i)>x1(i)VBS tt(i)=x2(i)-x1(i)VBS i=i+1If i=4VBS t=3000/(tt(1)+tt(2)+tt(3))Goto 是否开始EndIf Goto 测节拍速度EndIf EndIf Delay 10Goto 测节拍速度Rem 按空格VBSCall Call FindCenterColor(470,366,513,377,"520000",x,y)If x>0 and x<503Delay (503-x)*(t-2.65)KeyPress 32 1Delay 40*tGoto 是否开始EndIf If x>502KeyPress 32 1Delay 40*tGoto 是否开始EndIf If x<0Delay 20Goto 按空格EndIf Rem 是否开始Rem 单数箭头IfColor 399 391 ef0000 2IfColor 399 404 ffffff 2IfColor 263 404 ffffff 2VBS s=9:k=0Goto 按箭头EndIf IfColor 297 404 ffffff 2VBS s=7:k=34Goto 按箭头EndIf IfColor 331 404 ffffff 2VBS s=5:k=68Goto 按箭头EndIf IfColor 365 404 ffffff 2VBS s=3:k=102Goto 按箭头EndIf VBS s=1:k=136Goto 按箭头EndIf EndIf Rem 双数箭头IfColor 382 391 ef0000 2IfColor 382 404 ffffff 2IfColor 280 404 ffffff 2VBS s=8:k=17Goto 按箭头EndIf IfColor 314 404 ffffff 2VBS s=6:k=51Goto 按箭头EndIf IfColor 348 404 ffffff 2VBS s=4:k=85Goto 按箭头EndIf VBS s=2:k=119Goto 按箭头EndIf EndIf Delay 10Rem FREE全亮IfColor 388 367 8cff7b 2IfColor 388 378 8cff7b 2KeyPress 40 1Delay 15*tGoto 是否开始EndIf EndIf Rem FREEIfColor 388 367 4ae342 2IfColor 388 378 4ae342 2KeyPress 40 1Delay 15*tEndIf EndIf Goto 是否开始Rem 按箭头VBS x=0IfColor 264+k 392 9600 2VBS x=x+1EndIf While x
