While i=0 

        IfColor xgwsx+1,xgwsy-1,"C8E0D0",0 Then
            i= 1
        Else
            IfColor xgwsx+1,xgwsy,"C8E0D0",0 Then
                i= 1
            Else

                Delay 100
                xgwsx =xgwsx-3

            End If
        End If

    Wend 
    jssbx=xgwsx
    jssby=xgwsy

    call 测位数x()

End sub



sub 回挂机点()
 

        
    moveto 1005+w1,199+h1
    Delay 1000

    LeftClick 1

        
    Delay 1000

    FindPic 0,0,1024,768,"寻.bmp",0.8,zdslX,zdslY
    If zdslX > 0 And zdslY > 0 Then
        MoveTo zdslx,zdsly
        Delay 100

    End If

    //x坐标
    mover -42,356
    Delay 100  
    LeftClick 1 
    Delay 100
    SayString dcgzzbx
    Delay 100
    //Y坐标
    mover 30,0
    Delay 100 
    LeftClick 1 
    Delay 100
    SayString dcgzzby
        
    // 自动寻路
    Delay 100
    mover 92,0 
    Delay 100
    LeftClick 1 
    moveto zcw,zch
    Delay 30 
    LeftClick 1
    
    

    Delay zzzzzz
    

    
    Call 优先打近身怪()

    
End sub