1. Dim mhy
2. Dim mqx
3. Dim mmx
4. mhy=94
5. mqx=446
6. mmx=526
7. 调用插件命令 jb=Window.Find(0,"XYDClient")
8. 如果表达式 (jb>0) 为真,则
9.     调用插件命令 Window.Active(jb)
10. 否则
11.     调用外部VBScript子程序 MessageBox("没有起动游戏！")
12. 脚本停止运行
13. 条件结束
14. 如果 (11,631) 的颜色大约等于 #82d6 则
15.     鼠标移到 11 , 631
16.     延时1000毫秒
17.     左键单击
18. 条件结束
19. 如果 (233,631) 的颜色大约等于 #82d6 则
20.     鼠标移到 233 , 631
21.     延时1000毫秒
22.     左键单击
23. 条件结束
24. 鼠标移到 513 , 391
25. 延时500毫秒
26. 左键单击
27. 延时2000毫秒
28. 按键<1>
29. 延时1000毫秒
30. 鼠标移到 343 , 627
31. 延时1000毫秒
32. 左键单击
33. 延时3000毫秒
34. 左键单击
35. 标记 切换窗口
36. 调用插件命令 jb1=Window.Foreground()
37. 如果表达式 (jb<>jb1) 为真,则
38.     调用插件命令 Window.Active(jb)
39. 条件结束
40. 如果 (mqx,mhy) 的颜色大约等于 #212421 则
41.     鼠标移到 343 , 627
42.     延时1000毫秒
43.     左键单击
44.     延时3000毫秒
45.     左键单击
46.     延时3000毫秒
47.     左键单击
48.     延时1000毫秒
49. 条件结束
50. 如果 (mmx,mhy) 的颜色大约等于 #9c7500 则
51.     按键<2>
52.     延时500毫秒
53.     标记 找木桩
54.     调用外部VBScript子程序 MessageBox("没有起动游戏！")
55.     如果表达式 (gx>0) 为真,则
56.         gx=gx-2
57.         gy=gy-40
58.         鼠标移到 gx , gy
59.         延时2000毫秒
60.         右键单击
61.         延时2000毫秒
62.         右键单击
63.         延时2000毫秒
64.         右键单击
65.         延时2000毫秒
66.         右键单击
67.     条件结束
68. 条件结束
69. 延时30毫秒
70. 跳转到标记 切换窗口