1. i = 0
2. n = 1
3. pos = 0
4. pos2= 0
5. Dim OnePoint_XY(100)
6. CurShape_Kuang = 1372817910
7. 调用插件命令 hwnd = Window.Find("CJSH WndClass",0)
8. 调用插件命令 ExistCjsh = Window.IsWindow(hwnd)
9. 如果表达式 (ExistCjsh = 0) 为真,则
10.     MessageBox"警告：未发现成吉思汗窗口！"
11. 否则
12.     调用插件命令 Window.SetClientSize(hwnd, 800, 600)
13.     延时2000毫秒
14.     调用插件命令 Window.Move(hwnd, 0, 0)
15.     调用插件命令 Window.SetText(hwnd,"成吉思汗正在采集！！！")
16.     MessageBox"成吉思汗自动采集现在开始，按确定键继续"
17. 条件结束
18. 用户定义变量 Var_List=DropList{自定义采集坐标:-1|哲别村初级矿:133,39;139,53;182,25;210,31;189,32;160,28| 哲别村中级矿:171,77;181,77;190,79;192,69;236,55;234,36;221,31|哲别村高级 矿:209,50;214,59;198,72;216,75;222,83;229,68|哲别村圣徒 矿:161,136;166,161;166,178;167,211;148,191;138,178|哲别村马 蜂:174,235;175,233;176,219;187,214;182,204;184,193|哲别村碧血蟾 蜍:201,199;207,190;194,182;206,170;204,158;212,163;219,136|哲别村吸血蝙 蝠:229,126;208,122;222,114;225,104;229,101;231,91|哲别村牛虻:221,127;201,127;200,115;197,99|哲别村甘 草:60,66;50,76;37,89;22,90;19,80;|哲别村红花:54,63;62,54;30,31;23,48;43,66;57,49|哲别村茯 苓:19,132;23,144;36,148;27,182;33,191;27,202|哲别村伸筋藤:74,39;80,45;93,58;108,64;118,54|哲别村防风 :70,179;76,192;101,197;115,181;81,197|哲别村朱 砂:83,163;87,176;101,175;113,160;106,164;116,178;106,171|哲别村天 麻:93,116;116,146;124,103;114,90;127,73;116,73|哲别村桂枝:82,200;78,216;115,218;119,205;74,204}=0 内 置的几个采集点
19. 用户定义变量 EveryPoint = 设置各采集点坐标(自定义采集点，坐标之间用分号（;）隔开，这个坐标就是你想采集的 坐标~~一定要改的)：
20. 如果表达式 (Var_List <> -1) 为真,则
21.     CurrentPlantPoint = Var_List
22. 否则
23.     CurrentPlantPoint = EveryPoint
24. 条件结束
25. OnePoint = Split(CurrentPlantPoint, ";", -1, 1)
26. PointCount = UBound(OnePoint)+1
27. 循环 PointCount 遍
28.     temp = Split(OnePoint(pos), ",", -1, 1)
29.     OnePoint_XY(pos2) = temp(0)
30.     OnePoint_XY(pos2+1) = temp(1)
31.     pos = pos + 1
32.     pos2 = pos2 + 2
33. 循环结束
34. 标记 下一个矿点
35. 循环 PointCount 遍
36.     如果表达式 (i/2 = PointCount) 为真,则
37.         i = 0
38.     条件结束
39.     n = 1
40.     x = 402
41.     y = 320
42.     设置模拟方式
43.     调用插件命令 Window.Active(hwnd)
44.     延时500毫秒
45.     按键 <M>
46.     延时1000毫秒
47.     CurrentX = OnePoint_XY(i)*2.13725+26
48.     CurrentY = OnePoint_XY(i+1)*2.13725+66
49.     超级模拟鼠标移动 CurrentX , CurrentY
50.     延时1000毫秒
51.     左键双击
52.     延时1000毫秒
53.     按键 <M>
54.     延时1000毫秒
55.     调用插件命令 sTime1 = Sys.GetTime()
56.     调用外部VBScript子程序 得到鼠标当前位置(MouseX,MouseY)
57.     标记 对比颜色
58.     调用外部VBScript子程序 得到鼠标当前位置(MouseX,MouseY)
59.     延时500毫秒
60.     调用外部VBScript子程序 得到鼠标当前位置(MouseX,MouseY)
61.     如果表达式 (CurColor <> NewColor) 为真,则
62.         调用插件命令 sTime2 = Sys.GetTime()
63.         如果表达式 (sTime2 - sTime1 <15000) 为真,则
64.             跳转到标记 对比颜色
65.         否则
66.         条件结束
67.     条件结束
68.     循环 15 遍
69.         循环 n 遍
70.             如果表达式 (n mod 2 = 1) 为真,则
71.                 y = y + 15
72.             否则
73.                 y = y - 15
74.             条件结束
75.             如果表达式 (CurShape_Kuang = GetCursorShape(0)) 为真,则
76.                 左键单击
77.                 延时6000毫秒
78.                 i = i + 2
79.                 跳转到标记 下一个矿点
80.             条件结束
81.             超级模拟鼠标移动 x , y
82.             延时20毫秒
83.         循环结束
84.         循环 n 遍
85.             如果表达式 (n mod 2 = 1) 为真,则
86.                 x = x - 15
87.             否则
88.                 x = x + 15
89.             条件结束
90.             如果表达式 (CurShape_Kuang = GetCursorShape(0)) 为真,则
91.                 左键单击
92.                 延时6000毫秒
93.                 i = i + 2
94.                 跳转到标记 下一个矿点
95.             条件结束
96.             超级模拟鼠标移动 x , y
97.             延时20毫秒
98.         循环结束
99.         n = n + 1
100.     循环结束