1. 用户定义变量 z=DropList{草药:0|异品:1|毛皮:2|矿石:3}=3 请选择采集的资源类型
2. 用户定义变量 d1=5 需要存包的材料等级下限(请视宠物采集等级合理修改)
3. 用户定义变量 d2=9 需要存包的材料等级上限(请视宠物采集等级合理修改)
4. 用户定义变量 geshu=3 采集中断时一次性补体力药水个数，如果体力上限为150，可设置为3
5. 用户定义变量 MaiShu="30" 自动买宠物药的数量
6. 用户定义变量 Sf=DropList{是:0|否:1}=0 是否补充回程符
7. 用户定义变量 Ys=2 遇卡延时
8. 用户定义变量 Jg=4 状态检查间隔（秒）
9. //--------------------[声明变量]
10. Dim fso,t1,t2,file1,Str
11. Dim z1,z2
12. Dim pic(15)
13. Dim Rest,Rest2,MyRest,MyRest2,MyRest3
14. //--------------------[调用插件]
15. set fso=CreateObject("Scripting.FileSystemObject")
16. 调用插件命令 sh=Window.Foreground()
17. 调用插件命令 Window.Move(sh,0,0)
18. 延时100毫秒
19. //--------------------[建立txt]---
20. 调用插件命令 t1=Sys.GetTime()
21. 调用插件命令 Rest=File.ExistFile("c:/水浒Q传全自动采集："&t1&".txt")
22. //检查是否有日志文件
23. 如果表达式 (Rest=0) 为真,则
24.     set myfile=fso.CreateTextFile("c:/水浒Q传全自动采集："&t1&".txt")
25.     //创建日志文件
26. 条件结束
27. 调用插件命令 Text=Window.GetText(sh)
28. MyRest=InStr(1,Text,"[",1)
29. MyRest2=Mid(Text,MyRest)
30. //取得角色信息
31. Str=" [角色信息]"
32. 调用插件命令 DBsoft.WriteTXT(Str,"c:/水浒Q传全自动采集："&t1&".txt",2)
33. Str=MyRest2
34. 调用插件命令 DBsoft.WriteTXT(Str,"c:/水浒Q传全自动采集："&t1&".txt",2)
35. 如果表达式 (z=0) 为真,则
36.     MyRest3="草药"
37. 否则如果(z=1)为真,则
38.     MyRest3="异品"
39. 否则如果(z=2)为真,则
40.     MyRest3="毛皮"
41. 否则如果(z=3)为真,则
42.     MyRest3="矿石"
43. 条件结束
44. Str="采集种类:"&MyRest3&" 存包下限："&d1&" 存包上限："&d2&""
45. 调用插件命令 DBsoft.WriteTXT(Str,"c:/水浒Q传全自动采集："&t1&".txt",2)
46. 延时100毫秒
47. 调用插件命令 DBsoft.WriteTXT("---------------------------------------","c:/水浒Q传全自动采集："&t1&".txt",2)
48. //--------------------[间隔线]------
49. 如果表达式 (z=3) 为真,则
50.     z1="Attachment:\矿石.bmp"
51.     z2="Attachment:\矿罐.bmp"
52.     pic(0)="Attachment:\k0.bmp"
53.     pic(1)="Attachment:\k1.bmp"
54.     pic(2)="Attachment:\k2.bmp"
55.     pic(3)="Attachment:\k3.bmp"
56.     pic(4)="Attachment:\k4.bmp"
57.     pic(5)="Attachment:\k5.bmp"
58.     pic(6)="Attachment:\k6.bmp"
59.     pic(7)="Attachment:\k7.bmp"
60.     pic(8)="Attachment:\k8.bmp"
61.     pic(9)="Attachment:\k9.bmp"
62.     pic(10)="Attachment:\k10.bmp"
63.     pic(11)="Attachment:\k11.bmp"
64.     pic(12)="Attachment:\k12.bmp"
65.     pic(13)="Attachment:\k13.bmp"
66.     pic(14)="Attachment:\k14.bmp"
67.     pic(15)="Attachment:\k15.bmp"
68. 否则如果(z=2)为真,则
69.     z1="Attachment:\毛皮.bmp"
70.     z2="Attachment:\毛皮罐.bmp"
71.     pic(0)="Attachment:\m0.bmp"
72.     pic(1)="Attachment:\m1.bmp"
73.     pic(2)="Attachment:\m2.bmp"
74.     pic(3)="Attachment:\m3.bmp"
75.     pic(4)="Attachment:\m4.bmp"
76.     pic(5)="Attachment:\m5.bmp"
77.     pic(6)="Attachment:\m6.bmp"
78.     pic(7)="Attachment:\m7.bmp"
79.     pic(8)="Attachment:\m8.bmp"
80.     pic(9)="Attachment:\m9.bmp"
81.     pic(10)="Attachment:\m10.bmp"
82.     pic(11)="Attachment:\m11.bmp"
83.     pic(12)="Attachment:\m12.bmp"
84.     pic(13)="Attachment:\m13.bmp"
85.     pic(14)="Attachment:\m14.bmp"
86.     pic(15)="Attachment:\m15.bmp"
87. 否则如果(z=1)为真,则
88.     z1="Attachment:\异品.bmp"
89.     z2="Attachment:\异品罐.bmp"
90.     pic(0)="Attachment:\y0.bmp"
91.     pic(1)="Attachment:\y1.bmp"
92.     pic(2)="Attachment:\y2.bmp"
93.     pic(3)="Attachment:\y3.bmp"
94.     pic(4)="Attachment:\y4.bmp"
95.     pic(5)="Attachment:\y5.bmp"
96.     pic(6)="Attachment:\y6.bmp"
97.     pic(7)="Attachment:\y7.bmp"
98.     pic(8)="Attachment:\y8.bmp"
99.     pic(9)="Attachment:\y9.bmp"
100.     pic(10)="Attachment:\y10.bmp"