1. 用户定义变量 AddXue=0.8 加红设置
2. 用户定义变量 AddLan=0.8 加蓝设置
3. 调用插件命令 hwnd = Window.Foreground()
4. 调用插件命令 CLRECT_STR=Window.GetClientRect(hwnd)
5. //Plugin Window.Active(hwnd)
6. （VBScript语句） CLRECT_VAL=split(CLRECT_STR,"|")
7. （VBScript语句） cx=Cint(CLRECT_VAL(0)):cy=Cint(CLRECT_VAL(1))
8. （VBScript语句） tx=cx:ty=cy:clfont="0916EB"
9. （VBScript语句） gxx=cx+418:gxy=cy+32:gxc="1111BB":gxl=107
10. （VBScript语句） rxx=cx+59+95*AddXue:rxy=cy+566
11. 标记 开始
12. 调用子程序 关闭窗口
13. （VBScript语句） CenterX=cx+400:CenterY=cy+300:n=1:sTime=timer
14. 标记 找怪
15. 调用子程序 关闭窗口
16. 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(cx+0,cy+0,cx+800,cy+560,clfont,1,0.8,tx,ty)
17. 如果表达式 (tx>=0 and ty>=0) 为真,则
18.     //IfColor tx,ty,clfont,2
19.     鼠标移到 tx+30 , ty+30
20.     延时100毫秒
21.     //RightClick 1
22.     //Delay 100
23.     调用子程序 加状态
24.     调用子程序 加血
25.     左键单击
26.     延时100毫秒
27.     跳转到标记 打怪
28. 否则
29.     按键<E>
30.     延时100毫秒
31.     跳转到标记 找怪
32. 条件结束
33. ///////////////////////加状态////////////////////////////
34. 子程序 加状态
35.     //Plugin Window.SendKeyPress(hwnd,53)
36.     按键<3>
37.     延时1100毫秒
38.     按键<4>
39.     延时1100毫秒
40. 子程序结束,回到调用处
41. ////////////////////////加血//////////////////////////////
42. 子程序 加血
43.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(cx+0,cy+0,cx+800,cy+560,clfont,1,0.8,tx,ty)
44.     如果表达式 (x>=0 and y>=0) 为真,则
45.         // VBSCall FindColorEx(rxxx,rxy-2,rxxx+4,rxy+2,rxc,1,0.8,x,y)
46.         // If x>=0 and y>=0
47.         //IfColor rxx+rxl*AddXue,rxy,rxc,2
48.         按键<1>
49.         //KeyPress 50,1
50.         延时100毫秒
51.     条件结束
52.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(cx+0,cy+0,cx+800,cy+560,clfont,1,0.8,tx,ty)
53.     如果表达式 (x>=0 and y>=0) 为真,则
54.         //IfColor rxx+rxl*AddLan,rly+11,rxc,2
55.         按键<2>
56.         //KeyPress 51,1
57.         延时100毫秒
58.     条件结束
59. 子程序结束,回到调用处
60. ////////////////////////打怪//////////////////////////////
61. 标记 打怪
62. （VBScript语句） nTime=timer
63. 如果表达式 (nTime-sTime>70) 为真,则
64.     调用子程序 加状态
65.     sTime=timer
66. 条件结束
67. 调用子程序 加血
68. 按键<F1>
69. 延时1000毫秒
70. 按键<F2>
71. 延时1000毫秒
72. 按键<F3>
73. 延时1000毫秒
74. 按键<F4>
75. 延时100毫秒
76. 超级模拟按键<Z>
77. 延时100毫秒
78. 如果 (gxx,gxy) 的颜色大约等于 #gxc 则
79.     跳转到标记 打怪
80. 否则
81.     跳转到标记 开始
82. 条件结束
83. 子程序 关闭窗口
84.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(cx+0,cy+0,cx+800,cy+560,clfont,1,0.8,tx,ty)
85.     如果表达式 (x>=0 and y>=0) 为真,则
86.         超级模拟鼠标移动 x+3 , y+3
87.         延时96毫秒
88.         左键单击
89.         延时100毫秒
90.     条件结束
91.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(cx+0,cy+0,cx+800,cy+560,clfont,1,0.8,tx,ty)
92.     如果表达式 (x>=0 and y>=0) 为真,则
93.         超级模拟鼠标移动 x+3 , y+3
94.         延时96毫秒
95.         左键单击
96.         延时100毫秒
97.     条件结束
98.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(cx+0,cy+0,cx+800,cy+560,clfont,1,0.8,tx,ty)
99.     如果表达式 (x>=0 and y>=0) 为真,则
100.         超级模拟鼠标移动 x+3 , y+3