LeftClick 1
            Delay 128
        EndIf 
        MoveTo 60+cx,545+cy
        Delay 96
        LeftClick 1
        Delay 128
        Delay 1000
        tx=1:ty=1
        While tx>0 and ty>0
            Gosub 取消PK
            MoveTo 60+cx,545+cy
            Delay 96
            LeftClick 1
            Delay 5000
            VBSCall FindPic(388+cx,593+cy,cx+491,cy+634,"Attachment:\标识_制皮进度条.bmp",0.8,tx,ty)
        EndWhile 
        Gosub 检查数值
        If ObjN(3)>24
            Gosub 关闭窗口
            Gosub 回宁海城
        EndIf 
    EndWhile 
Return 
Sub 回宁海城
    t=Timer:mark=0
    While mark=0
        Gosub 打开宁海城地图
        MoveTo cx+370,cy+398
        Delay 96
        LeftClick 1
        Delay 1000
        KeyPress asc(keys(6)),1
        KeyPress asc("M"),1
        t=Timer
        While ((Timer-t+86400) mod 86400)<180 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 1000
                KeyDown 38,1
                Delay 128
                KeyUp 38,1
                mark=1
            EndIf 
            Delay 500
        EndWhile 
        If mark=0
            Gosub 关闭宝宝
            Gosub 召唤宝宝
        EndIf 
        Gosub 取消PK
    EndWhile 
Return 
Sub 召唤宝宝
    KeyDown 40,1
    Delay 128
    KeyUp 40,1
    Delay 1000
    KeyPress asc(keys(1)),1
    Delay 6000
    KeyPress asc(keys(2)),1
    Delay 6000
Return 
Sub 关闭宝宝
    tx=1:ty=1
    While tx>=0 and ty>=0
        VBSCall FindPic(300+cx,cy,cx+810,cy+20,"Attachment:\宠物_关闭.bmp",0.8,tx,ty)
        If tx>=0 and ty>=0
            MoveTo tx+8,ty+8
            Delay 256
            LeftClick 1
            Delay 3000
        EndIf 
        Delay 100
    EndWhile 
Return 
Sub 点击采集点
    KeyPress asc("7"),1
    Gosub 打开宁海县地图
    MoveTo cx+213,cy+248
    Delay 96
    LeftClick 1
    Delay 1000
    KeyPress asc(keys(6))
    Delay 1000
    KeyPress asc("M")
Return 
Sub 读取单个数字
    IfColor tx+1,ty+1,clfont,2
        IfColor tx+5,ty+3,clfont,2
            IfColor tx+1,ty+8,clfont,2
                IfColor tx+4,ty+4,clfont,2
                    num=3
                Else 
                    num=0
                EndIf 
            Else 
                num=9
            EndIf 
        Else