EndScript 
EndIf 
EndIf 
Rem 再次寻找
Delay 2500
VBSCall FindPic(0,0,645,509,z1,0.8,x,y)
If x>0 and y>0
    Str="找到资源，开始采集"
    Gosub 日志记录
    MoveTo x y
    Delay 100
    LeftClick 1
Else 
    Str="未再次找到资源，尝试重新寻找”
    Gosub 日志记录
EndIf 
Delay 1500
Rem 检查状态
IfColor 500,563,804800,2
    //已改
    Str="正在采集…………"
    Gosub 日志记录
    Delay Jg*1000
    Goto 检查状态
Else 
    Gosub 喝体力药
    Delay 100
    Gosub 筛材料
    Delay 100
    Gosub 检查包满
    Delay 1000
    Goto 开始采集
EndIf 
EndScript 
//----------------------[主程序完结]-------
Sub 喝体力药
    Delay 100
    KeyDown 18,1
    Delay 100
    KeyPress 69,1
    Delay 100
    KeyUp 18,1
    Delay 1000
    VBSCall FindPic(0,0,1024,768,"Attachment:\宠物药水.bmp",0.8,x,y)
    If x>0 and y>0
        Str="采集中断，吃"&geshu&"个药水"
        Gosub 日志记录
        MoveTo x y
        Delay 100
        RightClick geshu
        Delay 100
    Else 
        Str="未找到宠物药去卖矿"
        Gosub 日志记录
        Gosub 卖矿
        Str="卖矿完毕，继续采集!!!!!!!"
        Gosub 日志记录
        Goto 开始采集
    EndIf 
    KeyPress 27,1
Return 
Sub 筛材料
    Str="开始筛选材料"
    Gosub 日志记录
    Delay 100
    KeyDown 18,1
    Delay 100
    KeyPress 69,1
    Delay 100
    KeyUp 18,1
    Delay 1000
    IfColor bx,by,cob,2
        Str="包裹已打开"
        Gosub 日志记录
    Else 
        Str="包裹未打开，准备打开"
        Gosub 日志记录
        x10=bbx+60:y10=bby+160
        MoveTo x10,y10
        Delay 1000
        LeftDoubleClick 1
        Delay 100
    EndIf 
    Delay 100
    VBSCall FindPic(0,0,643,510,"Attachment:\宠物.bmp",0.9,cx,cy)
    i=d1
    While i<d2+1
        For 3
            VBSCall FindPic(cx-182,cy+49,cx+48,cy+254,pic(i),1,x,y)
            If x>0 and y>0
                MoveTo x,y
                Delay 100
                LeftDown 1
                yx=(bx-x)/100:yy=(by+280-y)/100
                For 100
                    MoveR yx,yy
                    Delay 1
                EndFor 
                Delay 23
                Delay 500