1. 用户定义变量 jibenshezi=DropList{★基本设置★:0}=0 基本设置
2. 用户定义变量 j=DropList{刷怪:0|捉妖:1|采集:2}=0 脚本任务
3. 用户定义变量 hong=50 加血设置%<
4. 用户定义变量 lan=30 加蓝设置%<
5. 用户定义变量 jiahong=DropList{喝药:0|休息:1}=0 加血方式
6. 用户定义变量 zydd=DropList{宁海县:0|石塘县:1|京城:2}=0 捉妖地图
7. 用户定义变量 huicdd=DropList{宁海县城:0|石塘县城:1|京城:2|沧浪云台:3}=0 回城点
8. 用户定义变量 qimen=DropList{否:0|是:1}=0 是否是奇门
9. 用户定义变量 xiamianshuaguai=DropList{★刷怪单独设置★:0}=0 刷怪单独设置
10. 用户定义变量 sfjianwu=DropList{否:0|是:1}=0 自动捡物
11. 用户定义变量 zdmai=DropList{关:0|倒数2排:2|倒数3排:3|倒数4排:4}=0 自动卖物
12. 用户定义变量 cyjianwu=1000 捡物迟延(毫秒)
13. 用户定义变量 caijidandu=DropList{★采集单独设置★:0}=0 采集单独设置
14. 用户定义变量 t1=5 采集一次的时间/秒
15. 用户定义变量 gjsl=5 工具的数量
16. 用户定义变量 njd=361 工具的耐久度
17. 用户定义变量 wpsl=1200 需要采集的数量
18. 用户定义变量 down=DropList{否:0|是:1}=0 完成后自动关机
19. //判断地图
20. 如果表达式 (zydd=0) 为真,则
21.     zyt="Attachment:\宁海县.bmp"
22. 否则如果(zydd=1)为真,则
23.     zyt="Attachment:\石塘县.bmp"
24. 否则如果(zydd=2)为真,则
25.     zyt="Attachment:\京城.bmp"
26. 条件结束
27. 如果表达式 (huicdd=0) 为真,则
28.     huic="Attachment:\宁海县城.bmp"
29. 否则如果(huicdd=1)为真,则
30.     huic="Attachment:\石塘县城.bmp"
31. 否则如果(huicdd=2)为真,则
32.     huic="Attachment:\京城城.bmp"
33. 否则如果(huicdd=3)为真,则
34.     huic="Attachment:\沧浪云台.bmp"
35. 条件结束
36. 调用插件命令 hwnd = Window.Find(0,"寻仙")
37. 调用插件命令 Window.Active(hwnd)
38. 调用插件命令 hwnd = Window.GetKeyFocusWnd()
39. 如果表达式 (hwnd = 0) 为真,则
40.     MessageBox"没有找到游戏窗口"
41.     跳转到标记 结束
42. 条件结束
43. //取得屏幕分辨率
44. 调用插件命令 w = Sys.GetScRX()
45. 调用插件命令 h = Sys.GetScRY()
46. //找小手
47. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
48. 如果表达式 (shoux=-1 or shouy=-1) 为真,则
49.     弹出窗口 "窗口被挡住了好像?请调整后重新启动脚本!"
50.     跳转到标记 结束
51. 条件结束
52. //确定练级地点
53. （VBScript语句） zhuo=shoux-82
54. （VBScript语句） you=shoux+531
55. （VBScript语句） shang=shouy+111
56. （VBScript语句） xia=shouy+496
57. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
58. 如果表达式 (ljx=-1 and ljy=-1) 为真,则
59.     弹出窗口 "脚本停止:没有找到蓝点,请确认已经打开大地图,并点了捉妖地点"
60.     跳转到标记 结束
61. 否则
62.     //关地图
63.     调用插件命令 Bkgnd.KeyPress(hwnd,77)
64.     延时1000毫秒
65.     //MessageBox "脚本成功启动!出玩吧,这里交给我了!"
66.     跳转到标记 确定红蓝
67. 条件结束
68. //确定红和蓝的颜色和坐标
69. 标记 确定红蓝
70. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
71. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
72. （VBScript语句） hongx=shoux-13
73. （VBScript语句） hongy=shouy+36
74. （VBScript语句） lanx=hongx
75. （VBScript语句） lany=shouy+47
76. 如果表达式 (j=0) 为真,则
77.     跳转到标记 刷怪部分
78. 否则如果(j=2)为真,则
79.     跳转到标记 采集部分
80. 否则
81.     跳转到标记 捉妖部分
82. 条件结束
83. //////////////////////////////////////////捉妖部分//////////////////////////////////////////////////////
84. //////////////////////////////////////////捉妖部分//////////////////////////////////////////////////////
85. //////////////////////////////////////////捉妖部分//////////////////////////////////////////////////////
86. 标记 捉妖部分
87. //去捉妖地点,按5键寻路去,如果到达目的地,开始打怪捉妖
88. 标记 去地点
89. 延时1000毫秒
90. //5键寻路
91. 调用插件命令 Bkgnd.KeyPress(hwnd,53)
92. 延时2000毫秒
93. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,w,h,"Attachment:\小手.bmp",0.8,shoux,shouy)
94. 如果表达式 (mddx>0 and mddy>0) 为真,则
95.     //如果是奇门
96.     如果表达式 (qimen=1) 为真,则
97.         //0招兵
98.         调用插件命令 Bkgnd.KeyPress(hwnd,48)
99.         延时7000毫秒
100.         （VBScript语句） starttime=timer