[General]
Description=炫舞4K传统自动方向
BeginHotkey=118
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=120
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=【小路工作室】.
支持传统反，自动P
.
【使用说明】.
1、屏幕分辨率设置无所谓，刷新率随意；.
2、游戏设置窗口模式，速度最快；.
3、启动游戏，舞步出现时，按下F7启动脚本，脚本开始自动按方向键；.
5、游戏中途若要打字聊天或不想自动按方向了，可以按F9停止脚本，想用脚本的时候再按F7就好了。.
.
【作者介绍】.
小路工作室
.
【制作日期】.
2009年1月21日
[Script]
dim hwnd
Plugin hwnd=Window.GetKeyFocusWnd()
Plugin Window.Move(hwnd,1,1)
Delay 512
VBS dt=2
Rem 开始
//测箭头数量：
//循环防卡延时：
Delay 8*dt
//单数箭头
IfColor 283 449 D76500 2
VBS s=9:k=0
Goto 按箭头
EndIf
IfColor 318 449 D76500 2
VBS s=7:k=35
Goto 按箭头
EndIf
IfColor 353 449 D76500 2
VBS s=5:k=70
Goto 按箭头
EndIf
IfColor 388 449 D76500 2
VBS s=3:k=105
Goto 按箭头
EndIf
IfColor 423 449 D76400 2
VBS s=1:k=140
Goto 按箭头
EndIf
//双数箭头
IfColor 301 449 D76500 2
VBS s=8:k=18
Goto 按箭头
EndIf
IfColor 336 449 D76500 2
VBS s=6:k=53
Goto 按箭头
EndIf
IfColor 371 449 D76500 2
VBS s=4:k=88
Goto 按箭头
EndIf
IfColor 406 449 D76500 2
VBS s=2:k=123
Goto 按箭头
EndIf
//单数反箭头
IfColor 283 449 2300D3 2
VBS s=9:k=0
Goto 按箭头
EndIf
IfColor 318 449 2300D3 2
VBS s=7:k=35
Goto 按箭头
EndIf
//双数反箭头
IfColor 301 449 2300D3 2
VBS s=8:k=18
Goto 按箭头
EndIf
IfColor 336 449 2300D3 2
VBS s=6:k=53
Goto 按箭头
EndIf
Goto 开始
Rem 按箭头
//开始按箭头
VBS x=0
IfColor 283+k 449 008AFA 2
VBS x=x+1
EndIf
While x<s
//循环防卡延时：
Delay 8*dt
//循环检测为哪个方向键（已包括反键）并按相应方向键：
VBS a=0:b=0:c=0
IfColor 277+k+x*35 444 D76500 2
VBS a=1
EndIf
IfColor 277+k+x*35 444 2300D3 2
VBS a=0.1
EndIf
IfColor 278+k+x*35 453 D76500 2
VBS b=1
EndIf
IfColor 278+K+x*35 453 2300D3 2
VBS b=0.1
EndIf
IfColor 289+k+x*35 453 D76500 2
VBS c=3
EndIf
IfColor 289+k+x*35 453 2300D3 2
VBS c=0.3
EndIf
VBS sum=a+b+c
//正键
If sum=1
//Plugin Window.SendKeyPress(hwnd,38,1)
KeyPress 38,1
Delay 8*dt
Goto 下一个
EndIf
If sum=2
//Plugin Window.SendKeyPress(hwnd,37,1)
KeyPress 37,1
Delay 8*dt
Goto 下一个
EndIf
If sum=3
//Plugin Window.SendKeyPress(hwnd,39,1)
KeyPress 39,1
Delay 8*dt
Goto 下一个
EndIf
If sum=4
//Plugin Window.SendKeyPress(hwnd,40,1)
KeyPress 40,1
Delay 8*dt
Goto 下一个
EndIf
//反键
If sum=0.1
//Plugin Window.SendKeyPress(hwnd,40,1)
KeyPress 40,1
Delay 8*dt
Goto 下一个
EndIf
If sum=0.2
//Plugin Window.SendKeyPress(hwnd,39,1)
KeyPress 39,1
Delay 8*dt
Goto 下一个
EndIf
If sum=0.3
//Plugin Window.SendKeyPress(hwnd,37,1)
KeyPress 37,1
Delay 8*dt
Goto 下一个
EndIf
If sum=0.4
//Plugin Window.SendKeyPress(hwnd,38,1)
KeyPress 38,1
Delay 8*dt
Goto 下一个
EndIf
If sum=0
Goto 继续
EndIf
Rem 下一个
x=x+1
Rem 继续
EndWhile
Goto 开始
EndScript
