炫舞辅助工具 代码公布  永不非法

[General]
Description=炫舞自动跳超级脚本
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
//=======得到当前窗口的句柄=======
Plugin Wend=Window.Foreground()
//======移动窗口到1.1的位置=====
Plugin Window.Move(Wend,1,1)
//==================脚本主体==================
While 1
    Gosub cjt
    Gosub ajt
EndWhile
//================脚本主体结束================
//==============开始检测箭头数量==============
Sub cjt
    While 1
        //循环防卡延时：
        Delay 8*dt
        VBS i=0
        While i<9
            IfColor 283+17.5*i 449 D76500 2
                VBS s=9-i:k=17.5*i
                Goto jscjt
            EndIf
            If i<4
                IfColor 283+17.5*i 449 2300D3 2
                    VBS s=9-i:k=17.5*i
                    Goto jscjt
                EndIf
            EndIf
            VBS i=i+1
        EndWhile
    EndWhile
    //-------------结束测箭头
    Rem jscjt
Return
//================检测箭头数量结束=============
//================开始按箭头===================
Sub ajt
    VBS x=0
    IfColor 283+k 449 008AFA 2
        VBS x=x+1
    EndIf
    //------------------循环检测为哪个方向键（已包括反键）并按相应方向键
    While x<s
        //-------------循环防卡延时
        Delay 4*dt
        VBS a=0:b=0:c=0
        //-------------判断4K还是8K
        IfColor 276+k+x*35 457 EE9900 2
            Goto an8k
        EndIf
        IfColor 276+k+x*35 457 5300F3 2
            Goto an8k
        EndIf
        Goto an4k
        //--------------8K
        Rem an8k
        Gosub 8k
        Goto xyg
        //--------------4K
        Rem an4k
        Gosub 4k
        Goto xyg
        //--------------下一个方向键
        Rem xyg
        Delay 4*dt
        x=x+1
    EndWhile
    Delay 256
Return
//=================结束按箭头=================[/ft]
//===================8==K=====================
Sub 8k
    IfColor 275+k+x*35 449 CE6000 2
        VBS a=1
    EndIf
    IfColor 275+k+x*35 449 2100CB 2
        VBS a=0.1
    EndIf
    IfColor 283+k+x*35 457 F39D00 2
        VBS b=1
    EndIf
    IfColor 283+k+x*35 457 4D00EF 2
        VBS b=0.1
    EndIf
    IfColor 290+k+x*35 449 D76500 2
        VBS c=3
    EndIf
    IfColor 290+k+x*35 449 2100CB 2
        VBS c=0.3
    EndIf
    VBS sum=a+b+c
    //正键
    If sum=3
        KeyPress 33,1
        Goto 8kjs
    EndIf
    If sum=1
        KeyPress 36,1
        Goto 8kjs
    EndIf
    If sum=4
        KeyPress 34,1
        Goto 8kjs
    EndIf
    If sum=2
        KeyPress 35,1
        Goto 8kjs
    EndIf
    //反键
    If sum=0.3
        KeyPress 35,1
        Goto 8kjs
    EndIf
    If sum=0.1
        KeyPress 34,1
        Goto 8kjs
    EndIf
    If sum=0.4
        KeyPress 36,1
        Goto 8kjs
    EndIf
    If sum=0.2
        KeyPress 33,1
        Goto 8kjs
    EndIf
    Rem 8kjs
Return
//=================8k结束==============
//==================4==k===============
Sub 4k
    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
        KeyPress 38,1
        Goto 4kjs
    EndIf
    If sum=2
        KeyPress 37,1
        Goto 4kjs
    EndIf
    If sum=3
        KeyPress 39,1
        Goto 4kjs
    EndIf
    If sum=4
        KeyPress 40,1
        Goto 4kjs
    EndIf
    //反键
    If sum=0.1
        KeyPress 40,1
        Goto 4kjs
    EndIf
    If sum=0.2
        KeyPress 39,1
        Goto 4kjs
    EndIf
    If sum=0.3
        KeyPress 37,1
        Goto 4kjs
    EndIf
    If sum=0.4
        KeyPress 38,1
        Goto 4kjs
    EndIf
    Rem 4kjs
Return
//=================4k结束==================

非法的话 就改下东西
了解就好  请忽破坏游戏平衡
仅供学术研究
一切后果与作者无关