EndIf 
    If JumpPoint=3
        Goto 跳转点制皮
    EndIf 
EndIf 
If ObjN(0)=0 or ObjN(3)>200
    Goto 跳转点制皮
EndIf 
Goto 初始化完成
//-------------------------- 子程序 主体 --------------------
Sub 走到指定坐标
    Gosub 读取坐标
    dx=abs(walktop(0)-pxy(0)):dy=abs(walktop(1)-pxy(1))
    While (dx>1 or dy>1)
        If abs(walktop(1)-pxy(1))>1
            If walktop(1)>pxy(1)
                tk=38
            Else 
                tK=40
            EndIf 
        Else 
            If abs(walktop(0)-pxy(0))>1
                If walktop(0)>pxy(0)
                    tK=39
                Else 
                    tK=37
                EndIf 
            EndIf 
        EndIf 
        KeyDown tk,1
        Delay 500
        KeyUp tk,0
        Gosub 取消PK
        Gosub 读取坐标
        dx=abs(walktop(0)-pxy(0)):dy=abs(walktop(1)-pxy(1))
    EndWhile 
Return 
Sub 走到采集点
    mark=0
    While mark=0
        Gosub 点击采集点
        t=Timer
        While ((Timer-t+86400) mod 86400)<tToGet and mark=0
            VBSCall FindPic(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
            If tx>0 and ty>0
                Delay 500
                KeyDown 40,1
                Delay 500
                KeyUp 40,1
                Delay 100
                KeyPress asc(keys(3)),1
                Delay 500
                KeyPress asc(keys(3)),1
                Delay 256
                mark=1
            EndIf 
            Gosub 取消PK
            Delay 100
        EndWhile 
        If mark=0
            Gosub 取消PK
            Gosub 读取坐标
            dx=abs(2476-pxy(0)):dy=abs(1733-pxy(1))
            If dx<30 and dy<30
                WalkToP(0)=2476:WalkToP(1)=1733
                Gosub 走到指定坐标
                VBSCall FindPic(776+cx,123+cy,cx+836,cy+182,"Attachment:\标识_狩猎.bmp",0.92,tx,ty)
                If tx>0 and ty>0
                    mark=1
                EndIf 
            Else 
                tToGet=30
            EndIf 
        EndIf 
    EndWhile 
    tToGet=160
Return 
Sub 检查数值
    Gosub 取消PK
    tx=cx+372:ty=cy+723:i=0:ptx=tx:pty=ty:clfont="E0E0E0"
    For 4
        ObjN(i)=0:k=1
        For 3
            Gosub 读取单个数字
            ObjN(i)=ObjN(i)+num*k
            k=k*10
            If ((num mod 2)=1 and num<>7) or num=0
                tx=tx-9
            Else 
                If num=4
                    tx=tx-11
                Else 
                    tx=tx-10
                EndIf 
            EndIf 
        EndFor 
        i=i+1
        tx=ptx+43*i
    EndFor 
Return