MyArray = Split(XY, "|")
    X = Clng(MyArray(0)): Y = Clng(MyArray(1))
    If X>0 and  Y>0
        X=X-14:Y=Y-14
    Else 
        VBSCall FindColorEx(0,0,620,502,"52FB94",1,0.8,X,Y)
        If X>0 and  Y>0
            X=X-14:Y=Y-14
        Else 
            q=q+1
            Goto P
        EndIf 
    EndIf 
    Rem qq
    If r=1
        bx=0:by=0:X=0:Y=0
        Goto u8
    EndIf 
Return 
Sub 跳到目标点
    If bx>580 or by<70 or by>420
        If bx>580 and by<70
            MoveTo bx-80,by+50
        EndIf 
        If bx>580 and by>70
            MoveTo bx-80,by
        EndIf 
        If bx<580 and by<70
            MoveTo bx,by+50
        EndIf 
        If bx<580 and by>420
            MoveTo bx,by-50
        EndIf 
        If bx>580 and by>420
            MoveTo bx-50,by-50
        EndIf 
    Else 
        MoveTo bx,by
    EndIf 
    Delay 50
Return 
Sub ManManYiDong
    Gosub 跳到目标点
    Gosub 游戏鼠标定位
    Rem YiDong
    PianYiX = X-bx
    PianYiY = Y-by
    If PianYiX>-4 and PianYiX<4
        PianYiX =0
    EndIf 
    If PianYiY>-4 and PianYiY<4
        PianYiY =0
    EndIf 
    If PianYiX<>0 or PianYiY<>0
        YiDongX =0
        YiDongY =0
        If PianYiX<>0
            YiDongX = -abs(PianYiX)/PianYiX
        EndIf 
        If PianYiY<>0
            YiDongY = -abs(PianYiY)/PianYiY
        EndIf 
        MoveR YiDongX YiDongY
        PianYiX = PianYiX + YiDongX
        PianYiY = PianYiY + YiDongY
        Delay 1
        Gosub 游戏鼠标定位
        Goto YiDong
        //Call MessageBox(x&"|"&y&"|"&bx&"|"&by)
        Delay 30
    EndIf 
Return ManManYidong