MoveTo xd3,yd3
                Delay 500
                LeftClick 1
                Delay 3000
            EndFor 
        EndIf 
    EndIf 
Return 防止卡住
Sub 休息
    IfColor 103+((202-103)*per1/100),40,847500,0
        //怕空血怪不死补一刀
        Delay 3000
        KeyPress 45,1
        //休息的时间
        Delay 25000
    EndIf 
Return 休息
Sub 范围检测
    Delay 256
    Gosub 获取坐标
    xc=cint(z1)
    yc=cint(z2)
    xc1=xc-xa0
    yc1=yc-ya0
    dc=(xc1^2+yc1^2)^0.5
    If dc>ra
        Gosub 坐标移动
    EndIf 
Return 范围检测
Sub 坐标移动
    Rem 移动
    damax1=damax/na
    //获取当前人物坐标 xa ya
    Gosub 获取坐标
    xa=cint(z1)
    ya=cint(z2)
    xa1=xa-xa0
    ya1=ya-ya0
    da=(xa1^2+ya1^2)^0.5
    If da>damax
        xa2=xa1*(damax/da)
        ya2=ya1*(damax/da)
        Delay 128
        MoveTo 512-(xa2*12.43),384+(ya2*12.43)
        Delay 500
        LeftClick 1
        //如果点到怪延时20秒
        Delay 500
        IfColor 910,19,4249FF,0
            Delay 20000
        EndIf 
        //移动时间
        Delay 1500
        Goto 移动
    EndIf 
    If da<=damax and da>damax1
        Delay 128
        MoveTo 512-(xa1*12.43),384+(ya1*12.43)
        Delay 500
        LeftClick 1
        Delay 256
        IfColor 910,135,4249FF,0
            Delay 20000
        EndIf 
        Delay 3000
        Goto 移动
    EndIf 
    Rem 移动结束
Return 坐标移动
Sub 获取坐标
    Delay 100
    //横坐标判断
    z1=0
    z2=0
    x=962
    y=100
    Gosub 数字判断
    z1=z1+txt*100
    x=x+d
    Gosub 数字判断
    z1=z1+txt*10
    x=x+d
    Gosub 数字判断
    z1=z1+txt
    //中间有个逗号数字间隔变大
    x=x+18
    //纵坐标判断
    Gosub 数字判断
    z2=z2+txt*100
    x=x+d
    Gosub 数字判断
    z2=z2+txt*10
    x=x+d
    Gosub 数字判断
    z2=z2+txt
Return 获取坐标
Sub 数字判断
    txt=0
    Gosub [0]
    Gosub [1]