//头部 获得窗口信息
//跳舞次数
sum=0
max=10
off=0
//空格速度微调(50-70之间 机器速度越慢 数值越小)
speed=65
Dim hwnd
//申明变量是个好习惯
//定义变量
hwnd=Plugin.Window.Foreground()
//调用插件得到当前窗口句柄,结果返回给变量hwnd
wtext=Plugin.Window.GetText(hwnd)
//调用插件根据窗口句柄得到当前窗口标题,结果返回给变量wtext
wclass=Plugin.Window.GetClass(hwnd)
//调用插件根据窗口句柄得到当前窗口类,结果返回给变量wclass
path=Plugin.Window.GetExePath(hwnd)
//调用插件根据窗口句柄得到当前窗口的路径,结果返回给变量path
rect=Plugin.Window.GetClientRect(hwnd)
//调用插件根据窗口句柄得到当前客户区坐标数据,结果返回给变量rect
wrect=Plugin.Window.GetWindowRect(hwnd)
//调用插件根据窗口句柄得到当前窗口坐标数据,结果返回给变量wrect
MyArray = Split(rect, "|", -1, 1)
Area=MyArray(2)*MyArray(3)
If Area<>480000 Then
    MessageBox "请将游戏分辨率调整为800*600,谢谢。"
    EndScript
End if
//主程序
Rem 主程序
If sum>=max Then
    MessageBox "已经跳了次数了呦。"
    EndScript
    Call Plugin.Msg.ShowScrTXT(10,10,500,500," ","ffff00")
End if
sum=sum+1
MoveTo 458+MyArray(0),152+MyArray(1)
Delay 100
LeftClick 1
Goto 跳舞
//跳舞程序
Rem 跳舞
x=53+MyArray(0)
y=390+MyArray(1)
While x<750+MyArray(0)
    //up
    Call FindPic(x,y,x+63,y+63,"up.bmp",0.9,intX,intY)
    If intX>0 Then
        KeyPress 38,1
    End if
    //downn
    Call FindPic(x,y,x+63,y+63,"down.bmp",0.9,intX,intY)
    If intX>0 Then
        KeyPress 40,1
    End if
    //left
    Call FindPic(x,y,x+63,y+63,"left.bmp",0.9,intX,intY)
    If intX>0 Then
        KeyPress 37,1
    End if
    //right
    Call FindPic(x,y,x+63,y+63,"right.bmp",0.9,intX,intY)
    If intX>0 Then
        KeyPress 39,1
    End if
    IfColor 31+x,29+y,"0000E5",2 Then
        //rup
        Call FindPic(x,y,x+63,y+63,"rup.bmp",0.9,intX,intY)
        If intX>0 Then
            KeyPress 40,1
        End if
        //downn
        Call FindPic(x,y,x+63,y+63,"rdown.bmp",0.9,intX,intY)
        If intX>0 Then
            KeyPress 38,1
        End if
        //rleft
        Call FindPic(x,y,x+63,y+63,"rleft.bmp",0.9,intX,intY)
        If intX>0 Then
            KeyPress 39,1
        End if
        //rright
        Call FindPic(x,y,x+63,y+63,"rright.bmp",0.9,intX,intY)
        If intX>0 Then
            KeyPress 37,1
        End if
    End if
    //判断空格
            IfColor 405+MyArray(0),405+MyArray(1),"FFFFFF",2 Then
        IfColor 581+MyArray(0),374+MyArray(1),"E7BF67",2 Then
            Delay speed
            KeyPress 32,1
                End if
    End if
    //判断是否结束
    IfColor 218+MyArray(0),71+MyArray(1),"9B4C48",2 Then
        MoveTo 657+MyArray(0),63+MyArray(1)
        Delay 100
        LeftClick 1
        Delay 1000