End sub





Sub 当前坐标()



    If z=0 then
        dcgzzbx=jswbx
        dcgzzby=jswby
        z=z+1
    Else 

        Delay 30
        fwgzslx = dcgzzbx - jswbx
        fwgzsly = dcgzzby - jswby
        If fwgzslx > fwgzsl then

            Call 返回挂机坐标()
        end if

        If fwgzsly > fwgzsl then

            Call 返回挂机坐标()
        End if
    end if
    Delay 30
    Call 优先打近身怪()
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
    
    zzzz=(fwgzsly+fwgzslx)/4

    Delay zzzz
    

    
    Call 优先打近身怪()	
    
End sub
    


Sub 测x个位数()

    //x个位数得到x坐标个位数的坐标

   
    xgwsx=927+w1
    xgwsy=179+h1

    MoveTo xgwsx,xgwsy
    i=0  
    Delay 30