pic(11)="Attachment:\y11.bmp"
    pic(12)="Attachment:\y12.bmp"
    pic(13)="Attachment:\y13.bmp"
    pic(14)="Attachment:\y14.bmp"
    pic(15)="Attachment:\y15.bmp"
ElseIf z=0
    z1="Attachment:\草药.bmp"
    z2="Attachment:\药罐.bmp"
    pic(0)="Attachment:\c0.bmp"
    pic(1)="Attachment:\c1.bmp"
    pic(2)="Attachment:\c2.bmp"
    pic(3)="Attachment:\c3.bmp"
    pic(4)="Attachment:\c4.bmp"
    pic(5)="Attachment:\c5.bmp"
    pic(6)="Attachment:\c6.bmp"
    pic(7)="Attachment:\c7.bmp"
    pic(8)="Attachment:\c8.bmp"
    pic(9)="Attachment:\c9.bmp"
    pic(10)="Attachment:\c10.bmp"
    pic(11)="Attachment:\c11.bmp"
    pic(12)="Attachment:\c12.bmp"
    pic(13)="Attachment:\c13.bmp"
    pic(14)="Attachment:\c14.bmp"
    pic(15)="Attachment:\c15.bmp"
EndIf 
//------------[赋值完毕]-----------------
Rem {打开包裹}
VBSCall FindPic(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
If bbx=-1 and bby=-1
    KeyDown 18,1
    Delay 100
    KeyPress 69,1
    Delay 100
    KeyUp 18,1
    //打开包裹
    Str="包裹未打开，打开包裹"
    Gosub 日志记录
    Goto {打开包裹}
Else 
    Str="物品栏的位置是"&bbx&","&bby&""
    Gosub 日志记录
EndIf 
Delay 100
MoveTo bbx+60,bby+160
Delay 1000
LeftDoubleClick 1
Delay 2000
Rem 检查包裹
VBSCall FindPic(0,0,643,510,"Attachment:\【包裹】.bmp",0.9,bx,by)
//检查包裹是否开启
If bx>0 and by>0
    Str="包裹的位置是"&bx&","&by&""
    Gosub 日志记录
Else 
    x10=bbx+60:y10=bby+160
    MoveTo x10,y10
    Delay 1000
    LeftDoubleClick 1
    Delay 2000
    VBSCall cob=GetPixelColor(bx,by)
    Str="包裹的颜色是"&cob&""
    Gosub 日志记录
    Delay 2000
    Goto 检查包裹
EndIf 
Delay 100
MoveTo bbx+60,bby+160
Delay 1000
LeftDoubleClick 1
Delay 2000
KeyPress 27,1
//------------[定位完毕]-----------------
Rem 开始采集
MoveTo 5,31
Delay 100
Str="赋值和定位完毕,准备采集"
Gosub 日志记录
VBSCall FindPic(0,0,645,509,z1,0.8,x,y)
If x>0 and y>0
    Str="找到资源，走到资源旁边"
    Gosub 日志记录
    MoveTo x-40 y-20
    Delay 100
    LeftClick 1
    Goto 再次寻找
Else 
    Str="找不到资源，尝试自动生成"
    Gosub 日志记录
    VBSCall FindPic(0,0,645,509,z2,0.8,kx,ky)
    If kx>0 and ky>0
        MoveTo kx ky
        Delay 100
        LeftClick 1
        Str="自动生成成功"
        Gosub 日志记录
        Delay 2000
        Goto 开始采集
    Else 
        Str="找不到生矿器，脚本结束"
        Gosub 日志记录