1. //
2. //详细使用方法请看"脚本说明"
3. //下面是脚本的所有子程序列表,方便调用及修改主程序
4. //都是源码,看己看着改吧.
5. //
6. //寻仙全自动采集脚本［驭剑游侠］
7. //作者:Vrx1
8. //时间:2009.02.18
9. //按键:6.86
10. //
11. //++++++++++++++++++++++++ 子程序 列表 +++++++++++++++++++++
12. //
13. // 名称 功能及解释
14. //Sub 走到指定坐标 目的坐标存入WalkToP(0),WalkToP(1)
15. //Sub 打开购物窗口 打开小贩窗口
16. //Sub 走到小贩旁边 走到小贩边上
17. //Sub 走到采集点 走到2级狩猎点
18. //Sub 读取坐标 通过Pxy(0),Pxy(1)返回坐标值
19. //Sub 清理窗口 关闭所有窗口,并重新召唤宝宝
20. //Sub 开始采集 进行采集,直到工具用完
21. //Sub 检查数值 检查四个主要物品数量,存入ObjN(0-4)
22. //Sub 回宁海城 回到宁海制皮点
23. //Sub 开始制衣 制作游侠裤子
24. //Sub 打开宁海城地图
25. //Sub 打开宁海县地图
26. //Sub 读取单个坐标值
27. //Sub 检查背包空格
28. //Sub 读取单个数字
29. //Sub 打开背包
30. //Sub 关闭宝宝
31. //Sub 召唤宝宝
32. //Sub 开始制皮
33. //Sub 关闭窗口
34. //Sub 买弓箭
35. //Sub 买剪刀
36. //Sub 卖裤子
37. //Sub 取消PK
38. //
39. //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
40. //
41. 用户定义变量 JumpPoint=DropList{默认:0|小贩:1|采集:2|制皮:3}=0 脚本起点
42. 用户定义变量 KeySetting=123456 功能键(侍骑猎皮裤寻)
43. 用户定义变量 nGongJian=4 购买弓箭数量
44. //用Goto保证定义的变量全局有效,而且精简程序
45. // - - 不过按键好像全部都是全局变量
46. 跳转到标记 初始化开始
47. 标记 初始化完成
48. //
49. //++++++++++++++++++++++++++++　主程序　++++++++++++++++++++++++
50. //
51. 标记 脚本开始
52. 调用子程序 清理窗口
53. 调用子程序 召唤宝宝
54. 调用子程序 走到采集点
55. 标记 跳转点采集
56. 调用子程序 关闭宝宝
57. 调用子程序 开始采集
58. //如果采集过程中出意外(GoTo语句尽量不要放Sub里面)
59. 如果表达式 (ObjN(0)=-1) 为真,则
60.     如果表达式 (ObjN(3)<100) 为真,则
61.         tToGet=60
62.         跳转到标记 脚本开始
63.     条件结束
64. 条件结束
65. 标记 跳转点制皮
66. 调用子程序 清理窗口
67. 调用子程序 召唤宝宝
68. 调用子程序 回宁海城
69. 调用子程序 开始制皮
70. 调用子程序 关闭窗口
71. 标记 跳转点制裤子
72. 调用子程序 走到小贩旁边
73. 调用子程序 开始制衣
74. 调用子程序 买弓箭
75. 跳转到标记 脚本开始
76. 脚本停止运行
77. //
78. //+++++++++++++++++++++++++初始化部分++++++++++++++++++++++++
79. 标记 初始化开始
80. （VBScript语句） Dim ObjN(4),Keys(7),Pxy(2),WalkToP(2)
81. 调用插件命令 hwnd=Window.GetKeyFocusWnd()
82. 调用插件命令 CLRECT_STR=Window.GetClientRect(hwnd)
83. （VBScript语句） CLRECT_VAL=split(CLRECT_STR,"|")
84. （VBScript语句） cx=Cint(CLRECT_VAL(0)):cy=Cint(CLRECT_VAL(1))
85. （VBScript语句） num=0:tx=0:ty=0:clfont="E0E0E0":tToGet=160
86. （VBScript语句） ObjN(1)=0:ObjN(2)=0:ObjN(3)=0:ObjN(0)=0:isPacFull=0
87. （VBScript语句） KeySetting=UCase(KeySetting):num=1
88. //设置快捷键
89. 循环 6 遍
90.     keys(num)=mid(KeySetting,num,1)
91.     num=num+1
92. 循环结束
93. //跳转入主程序相应部分.
94. 调用子程序 检查数值
95. 如果表达式 (JumpPoint>0) 为真,则
96.     如果表达式 (JumpPoint=1) 为真,则
97.         跳转到标记 跳转点制裤子
98.     条件结束
99.     如果表达式 (JumpPoint=2) 为真,则
100.         跳转到标记 跳转点采集