UserVar z=DropList{草药:0|异品:1|毛皮:2|矿石:3}=3 请选择采集的资源类型
UserVar d1=5 需要存包的材料等级下限(请视宠物采集等级合理修改)
UserVar d2=9 需要存包的材料等级上限(请视宠物采集等级合理修改)
UserVar geshu=3 采集中断时一次性补体力药水个数，如果体力上限为150，可设置为3
UserVar MaiShu="30" 自动买宠物药的数量
UserVar Sf=DropList{是:0|否:1}=0 是否补充回程符
UserVar Ys=2 遇卡延时
UserVar Jg=4 状态检查间隔（秒）
//--------------------[声明变量]
Dim fso,t1,t2,file1,Str
Dim z1,z2
Dim pic(15)
Dim Rest,Rest2,MyRest,MyRest2,MyRest3
//--------------------[调用插件]
set fso=CreateObject("Scripting.FileSystemObject")
Plugin sh=Window.Foreground()
Plugin Window.Move(sh,0,0)
Delay 100
//--------------------[建立txt]---
Plugin t1=Sys.GetTime()
Plugin Rest=File.ExistFile("c:/水浒Q传全自动采集："&t1&".txt")
//检查是否有日志文件
If Rest=0
    set myfile=fso.CreateTextFile("c:/水浒Q传全自动采集："&t1&".txt")
    //创建日志文件
EndIf 
Plugin Text=Window.GetText(sh)
MyRest=InStr(1,Text,"[",1)
MyRest2=Mid(Text,MyRest)
//取得角色信息
Str="                      [角色信息]"
Plugin DBsoft.WriteTXT(Str,"c:/水浒Q传全自动采集："&t1&".txt",2)
Str=MyRest2
Plugin DBsoft.WriteTXT(Str,"c:/水浒Q传全自动采集："&t1&".txt",2)
If z=0
    MyRest3="草药"
ElseIf z=1
    MyRest3="异品"
ElseIf z=2
    MyRest3="毛皮"
ElseIf z=3
    MyRest3="矿石"
EndIf 
Str="采集种类:"&MyRest3&"    存包下限："&d1&"    存包上限："&d2&""
Plugin DBsoft.WriteTXT(Str,"c:/水浒Q传全自动采集："&t1&".txt",2)
Delay 100
Plugin DBsoft.WriteTXT("---------------------------------------","c:/水浒Q传全自动采集："&t1&".txt",2)
//--------------------[间隔线]------
If z=3
    z1="Attachment:\矿石.bmp"
    z2="Attachment:\矿罐.bmp"
    pic(0)="Attachment:\k0.bmp"
    pic(1)="Attachment:\k1.bmp"
    pic(2)="Attachment:\k2.bmp"
    pic(3)="Attachment:\k3.bmp"
    pic(4)="Attachment:\k4.bmp"
    pic(5)="Attachment:\k5.bmp"
    pic(6)="Attachment:\k6.bmp"
    pic(7)="Attachment:\k7.bmp"
    pic(8)="Attachment:\k8.bmp"
    pic(9)="Attachment:\k9.bmp"
    pic(10)="Attachment:\k10.bmp"
    pic(11)="Attachment:\k11.bmp"
    pic(12)="Attachment:\k12.bmp"
    pic(13)="Attachment:\k13.bmp"
    pic(14)="Attachment:\k14.bmp"
    pic(15)="Attachment:\k15.bmp"
ElseIf z=2
    z1="Attachment:\毛皮.bmp"
    z2="Attachment:\毛皮罐.bmp"
    pic(0)="Attachment:\m0.bmp"
    pic(1)="Attachment:\m1.bmp"
    pic(2)="Attachment:\m2.bmp"
    pic(3)="Attachment:\m3.bmp"
    pic(4)="Attachment:\m4.bmp"
    pic(5)="Attachment:\m5.bmp"
    pic(6)="Attachment:\m6.bmp"
    pic(7)="Attachment:\m7.bmp"
    pic(8)="Attachment:\m8.bmp"
    pic(9)="Attachment:\m9.bmp"
    pic(10)="Attachment:\m10.bmp"
    pic(11)="Attachment:\m11.bmp"
    pic(12)="Attachment:\m12.bmp"
    pic(13)="Attachment:\m13.bmp"
    pic(14)="Attachment:\m14.bmp"
    pic(15)="Attachment:\m15.bmp"
ElseIf z=1
    z1="Attachment:\异品.bmp"
    z2="Attachment:\异品罐.bmp"
    pic(0)="Attachment:\y0.bmp"
    pic(1)="Attachment:\y1.bmp"
    pic(2)="Attachment:\y2.bmp"
    pic(3)="Attachment:\y3.bmp"
    pic(4)="Attachment:\y4.bmp"
    pic(5)="Attachment:\y5.bmp"
    pic(6)="Attachment:\y6.bmp"
    pic(7)="Attachment:\y7.bmp"
    pic(8)="Attachment:\y8.bmp"
    pic(9)="Attachment:\y9.bmp"
    pic(10)="Attachment:\y10.bmp"