1. dim hong,lan,bbhong,bblan,paodong
2. //声明变量
3. 用户定义变量 hong=70 血量<hong%时，自动吃红。
4. 用户定义变量 lan=30 蓝量<lan%时，自动吃蓝。
5. 用户定义变量 bbhong=70 血量<hong%时，召唤兽自动吃红。
6. 用户定义变量 bblan=30 蓝量<lan%时，召唤兽自动吃蓝。
7. 用户定义变量 p=1 遇敌方式（1跑动其它跟随）
8. 调用插件命令 tl=Window.Foreground()
9. 调用插件命令 Window.Move(tl,0,0)
10. 标记 开始
11. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
12. 如果表达式 (x>0 and y>0) 为真,则
13.     //如果某处的颜色=什么，可以是战斗内和战斗外不同的颜色，x和y是坐标，color1,是颜色
14.     调用子程序 战斗
15.     //调用战斗的子程序
16. 否则
17.     //Gosub 检查验证
18.     //调用检查验证的子程序
19.     调用子程序 点掉自动
20.     延时100毫秒
21.     //延时防卡
22.     调用子程序 检查红蓝
23.     //调用检查红蓝子程序
24.     延时100毫秒
25.     //延时防卡
26.     调用子程序 遇怪
27.     //调用遇怪子程序
28. 条件结束
29. 跳转到标记 开始
30. //回到开头继续循环
31. -------------------战斗子程序-----------------------
32. 子程序 战斗
33.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
34.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
35.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
36.     如果表达式 (zx>0 or zzx>0) 为真,则
37.         跳转到标记 回去
38.     否则如果(x>0 and y>0)为真,则
39.         鼠标移到 x-3 , y-5
40.         延时100毫秒
41.         左键单击
42.         延时100毫秒
43.         鼠标移到 9 , 34
44.     否则
45.         调用子程序 等待
46.         //调用等待子程序，等待战斗指令框出现
47.         延时100毫秒
48.         //延时防卡
49.     条件结束
50.     标记 回去
51. 子程序结束,回到调用处
52. //子程序完结回到调用处
53. 子程序 等待
54.     延时2000毫秒
55.     //写上你等待的时间（单位：毫秒）
56. 子程序结束,回到调用处
57. //子程序完结回到调用处
58. -------------------判断验证子程序-----------------------
59. 子程序 检查验证
60.     //写上你的判断验证语句这里以找色函数为例
61.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
62.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
63.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
64.     //多色寻找验证框
65.     如果表达式 (x>0 and y>0) 为真,则
66.         如果表达式 (x2>0 and y2>0) 为真,则
67.             如果表达式 (x3>0 and y3>0) 为真,则
68.                 延时10毫秒
69.                 strSoundFile = "C:\WINDOWS\Media\ringin.wav"
70.                 Set objShell = CreateObject("Wscript.Shell")
71.                 strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
72.                 objShell.Run strCommand, 0, True
73.                 //上面这些语句的效果就是发出丁零零一声，引用自晨风大大的脚本
74.             条件结束
75.         条件结束
76.     条件结束
77. 子程序结束,回到调用处
78. //子程序完结回到调用处
79. //-------------------点掉自动---------------
80. 子程序 点掉自动
81.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
82.     如果表达式 (x>0 and y>0) 为真,则
83.         //如果某处的颜色=什么，是战斗指令框的颜色（就是点防御啊法术什么的），x和y是坐标，color2是颜色
84.         鼠标移到 x+3 , y+3
85.         延时100毫秒
86.         左键单击
87.         延时100毫秒
88.         鼠标移到 9 , 34
89.         //可以把上面这段改成自己想要的战斗命令，这里以Alt+A为例，按两次是为了把召唤兽算进
90.     否则
91.         //调用等待子程序，等待战斗指令框出现
92.         延时100毫秒
93.         //延时防卡
94.     条件结束
95.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
96.     如果表达式 (x>0 and y>0) 为真,则
97.         //如果某处的颜色=什么，是战斗指令框的颜色（就是点防御啊法术什么的），x和y是坐标，color2是颜色
98.         鼠标移到 x+3 , y+3
99.         延时100毫秒
100.         左键单击