Hwnd = Plugin.Window.MousePoint()
Call 大漠_绑定()
dm_ret = dm.SetDict(0, "新炫舞.txt")
dm_ret = dm.usedict(0)
Do

    dm_ret = dm.FindStrFast(150, 415, 500, 455, "2", "ffffff-202020", "0.9",x,y)
    If X > 0 Then 
        Delay 10
        按键查看 = dm.OcrEx(100,415,910,455,"ffffff-202020|c0ceea-202020|fefdfd-505050",0.9)
        Rem 开始
        按键 = split(按键查看,"|")
        For i = 1 To ubound(按键)
            坐标 = split(按键(i), ",")
            X坐标 = cint(坐标(0)) : Y坐标 = cint(坐标(1))
            按键a = dm.Ocr(x坐标-15,y坐标-10,x坐标+50,y坐标+40,"ffffff-202020|c0ceea-202020|fefdfd-505050",0.9)
            Rem aaa
            dm_ret = dm.FindColor(x坐标 - 10, y坐标 + 41, x坐标 + 10, y坐标 + 58, "a4eaf5-505050|ffc6b6-505050|ffffff-505050|fbdb43-505050", "1.0", 0,x,y)
            If x < 0 Then 
                Delay 1
                Goto aaa
            Else 
                if 按键a = "上" Then 
                    dm.KeyPress 38
                Elseif 按键a = "下" Then 
                    dm.KeyPress 40
                Elseif 按键a = "左" Then 
                    dm.KeyPress 37
                Elseif 按键a = "右" Then 
                    dm.KeyPress 39
                Elseif 按键a = "空格" Then 
                    dm.KeyPress 32
                End If
            End If
        Next       
    End If
    Delay 1
Loop
Function OCR(起点x, 起点y, 终点x, 终点y,色彩,模糊度)
    ocr = dm.Ocr(起点x, 起点y, 终点x, 终点y, 色彩,模糊度)
End Function
Sub OnScriptLoad()
    PutAttachment "C:\《Universe》\","EZ辅助.txt"
    PutAttachment "C:\《Universe》\新炫舞", "*.*"
End Sub
Sub OnScriptExit()
    dm_ret = dm.UnBindWindow()
    Call Plugin.msg.Tips("谢谢使用《Universe》辅助")
End Sub
Sub 大漠_绑定() 
    //-----------------------------分割线----------------------------------// 
    Call Plugin.msg.Tips("开始运行")    
    Set ws = createobject("Wscript.Shell")
    ws.run "regsvr32 C:\《Universe》\新炫舞\dm.dll /s"
    Set dm = createobject("dm.dmsoft")
    //-----------------------------判断是否高级绑定----------------------------------// 
    绑定模式2 = dm.bindwindow(hwnd,"dx","dx2","dx",0)
    base_path = dm.GetBasePath()
    Delay 1000
    dm_ret = dm.SetPath("C:\《Universe》\新炫舞")
    判定指定窗口是否已经被后台绑定 = dm.IsBind(hwnd)
    //---------------------优化用户环境结束 开始设置新炫舞环境--------------------------//
    dm_ret = dm.SetShowErrorMsg(0)
    dm_ret = dm.SetWindowState(hwnd,12)
    //----------------------------------字库选择//关闭输入法---------------------------------------//
End Sub
//制作：Universe
//日期：2011.10.10
//修改：2012.5.13