1. //牧师用的（主要是给宠物加血的技能，改下就能通用了） 打两星一下的怪
2. //F1xp技能 F2血 F3蓝 按键1放普通攻击 按键2放牛一点的技能
3. //电脑主题要是XP经典主题 不然找不到图 窗口不要被挡住
4. 延时1000毫秒
5. （VBScript语句） dim sj,buxue,bulan
6. 用户定义变量 sj=500
7. 用户定义变量 buxue=30000 补血延时默认30秒
8. 用户定义变量 bulan=30000 补蓝延时默认30秒
9. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
10. 如果表达式 (x>=0 and y>=0) 为真,则
11.     鼠标移到 x+30 , y+10
12.     延时sj毫秒
13.     左键按下
14.     延时sj毫秒
15.     鼠标移到 35 , 14
16.     延时sj毫秒
17.     左键弹起
18. 否则
19.     弹出窗口 "窗口"
20. 条件结束
21. 鼠标移到 929 , 50
22. 延时sj毫秒
23. 左键单击
24. 调用插件命令 sgcq=Window.GetKeyFocusWnd()
25. BeginThread "拾取"
26. BeginThread "补血补蓝"
27. BeginThread "检测验证码"
28. //Rem 开始
29. 调用插件命令 window.SendKeyPress(sgcq,192)
30. //按键`
31. 延时300毫秒
32. //查找星 定位
33. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
34. //查找第二颗星
35. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
36. 如果表达式 (x1>=0 and y1>=0) 为真,则
37.     //查找第三颗星 打两星以下
38.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
39.     如果表达式 (x2>=0 and y2>=0) 为真,则
40.         跳转到标记 开始
41.     否则
42.         循环 5 遍
43.             调用插件命令 window.SendKeyPress(sgcq,50)
44.             //按键2
45.             延时6000毫秒
46.         循环结束
47.     条件结束
48. 条件结束
49. 标记 查看打完怪没
50. 调用插件命令 window.SendKeyPress(sgcq,49)
51. //按键1
52. ///////////////////////////////////////////////////////////////////血很低停止外挂
53. 延时sj毫秒
54. 如果 (130,56) 的颜色不等于 #15149a 则
55.     如果 (130,56) 的颜色大约等于 #b0b52 则
56.         延时sj毫秒
57.     否则
58.         跳转到标记 停止
59.     条件结束
60. 条件结束
61. ///////////////////////////////////////////////////////////////////宠物血
62. 延时sj毫秒
63. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
64. 如果 (xc+28,yc+3) 的颜色不等于 #1A12E2 则
65.     如果 (xc+28,yc+3) 的颜色大约等于 #e0a78 则
66.         延时sj毫秒
67.     否则
68.         鼠标移到 xc+28 , yc+3
69.         延时sj毫秒
70.         左键单击
71.         调用插件命令 window.SendKeyPress(sgcq,113)
72.         //按键F2
73.         跳转到标记 开始
74.     条件结束
75. 条件结束
76. 延时300毫秒
77. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
78. 如果表达式 (x>=0 and y>=0) 为真,则
79.     跳转到标记 查看打完怪没
80. 否则
81.     跳转到标记 开始
82. 条件结束
83. 子程序 拾取
84.     如果表达式 (1) 为真,则循环执行
85.         延时10000毫秒
86.         循环 3 遍
87.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
88.             如果表达式 (xa>=0 and ya>=0) 为真,则
89.                 鼠标移到 xa+3 , ya+3
90.                 延时100毫秒
91.                 右键单击
92.             条件结束
93.             延时100毫秒
94.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
95.             如果表达式 (xa>=0 and ya>=0) 为真,则
96.                 鼠标移到 xa+3 , ya+3
97.                 延时100毫秒
98.                 右键单击
99.             条件结束
100.             延时100毫秒