1. 在调试状态下向调试窗口输出 "2秒过程开始获取句柄"
2. 延时1000毫秒
3. dim letu_hwnd,rect,letu_rect,x,y
4. 调用插件命令 letu_hwnd=Window.MousePoint()
5. 在调试状态下向调试窗口输出 letu_hwnd
6. 调用插件命令 rect=Window.GetClientRect(letu_hwnd)
7. letu_rect=split(rect,"|")
8. 在调试状态下向调试窗口输出 rect
9. //调用杀怪过程
10. 调用子程序 letu_kill_monst_sub
11. //结束脚本
12. 脚本停止运行
13. //杀怪过程
14. 子程序 letu_kill_monst_sub
15.     //定义杀怪屏幕区域和杀怪的颜色------用户变量
16.     dim letukillmonstxy
17.     用户定义变量 letu_kill_monst_left=400 //屏幕左边
18.     用户定义变量 letu_kill_monst_top=100 //屏幕上边
19.     用户定义变量 letu_kill_monst_right=1440 //屏幕右边
20.     用户定义变量 letu_kill_monst_bottom=700 //屏幕下边
21.     用户定义变量 letu_kill_monst_c="00A5FF" //怪的颜色
22.     //增加找到怪颜色点后的点击偏移
23.     用户定义变量 letu_kill_monst_py=10 //鼠标偏移
24.     i=0
25.     //调用提示窗口处理过程：取消乐土游戏中的提示窗口
26.     如果表达式 (1) 为真,则循环执行
27.         调用子程序 letu_ClearWindowSub
28.         //找怪
29.         调用插件命令 letuxy=Bkgnd.FindColor(letu_hwnd,letu_kill_monst_left-letu_rect(0),letu_kill_monst_top-letu_rect(1),letu_kill_monst_right-letu_rect(0),letu_kill_monst_bottom-letu_rect(1),letu_kill_monst_c)
30.         如果表达式 (letuxy<>"-1|-1") 为真,则
31.             letukillmonstxy=split(letuxy,"|")
32.             letu_kill_monst_x=letukillmonstxy(0)+letu_kill_monst_py
33.             letu_kill_monst_y=letukillmonstxy(1)+letu_kill_monst_py
34.             调用插件命令 Bkgnd.LeftClick(letu_hwnd, letu_kill_monst_x, letu_kill_monst_y)
35.             调用插件命令 Bkgnd.MoveTo(letu_hwnd, 400, 300)
36.             i=i+1 //作为移动控制参数
37.             在调试状态下向调试窗口输出 letuxy & "--------------" & i
38.             延时7000毫秒
39.             调用子程序 letu_yidong
40.         否则
41.             调用子程序 letu_yidong
42.         条件结束
43.         延时300毫秒
44.     循环结束
45. 子程序结束,回到调用处
46. 子程序 chiyao
47.     调用插件命令 htys=Bkgnd.GetPixelColor(hWnd,435,188)
48.     //后台取色
49.     如果表达式 (htys="EA5500") 为真,则
50.         调用外部VBScript子程序 MessageBox("Background Color has been found!")
51.         调用插件命令 Bkgnd.KeyPress(hWnd,123)
52.     否则
53.         调用外部VBScript子程序 MessageBox("Background Color has been found!")
54.         调用插件命令 Bkgnd.KeyPress(hWnd,123)
55.     条件结束
56.     //F3红，F4蓝
57.     （VBScript语句） hong=70
58.     //血量少于百分之多少（可自行设定）时，脚本自动吃红。
59.     （VBScript语句） lan=30
60.     //蓝少于百分之多少（可自行设定）时，脚本自动吃蓝。
61.     标记 start
62.     延时32毫秒
63.     //如果启动脚本后有点卡，则视情况调整此延时。
64.     标记 补红
65.     如果 (hong*1.28+21,5) 的颜色大约等于 #4a5373 则
66.         //如果设定位置处的颜色大约等于没血时的颜色
67.         按键<F3>
68.         //按键F3
69.         延时256毫秒
70.     条件结束
71.     标记 补蓝
72.     如果 (lan*1.28+21,18) 的颜色大约等于 #734b4a 则
73.         //如果设定位置处的颜色大约等于没蓝时的颜色
74.         按键<F4>
75.         //按键F4
76.         延时256毫秒
77.     条件结束
78. 子程序结束,回到调用处
79. 子程序 letu_yidong
80.     i1=i //移动 取i 是否被2整除 决定上下移动方向
81.     如果表达式 (i1 mod 2 =0) 为真,则
82.         调用插件命令 Bkgnd.Keydown(letu_hwnd,87)
83.         延时500毫秒
84.         调用子程序 letu_kill_monst_sub
85.     否则
86.         调用插件命令 Bkgnd.Keydown(letu_hwnd,83)
87.         延时500毫秒
88.         调用子程序 letu_kill_monst_sub
89.     条件结束
90. 子程序结束,回到调用处
91. //关闭：各种“提示”窗口，窗口宽度不变，确定按钮516一列颜色
92. 子程序 letu_ClearWindowSub
93.     dim Clear_Win_rect,Clear_Win_Color,Clear_Win_x,Clear_Win_y
94.     Clear_Win_x1=400
95.     Clear_Win_y1=200
96.     Clear_Win_y2=800
97.     调用插件命令 Clear_Win_rect=Bkgnd.FindColor(letu_hwnd,Clear_Win_x1,Clear_Win_y1-letu_rect(1),Clear_Win_x1+800,Clear_Win_y2-letu_rect(1),"717AD8")
98.     如果表达式 (Clear_Win_rect<>"-1|-1") 为真,则
99.         Clear_Win_xy=split(Clear_Win_rect,"|")
100.         Clear_Win_x=Clear_Win_xy(0)