1. //get windows handle
2. dim c1,c2,c3,c4,c5,c6,c7,c8,y,a,username,password
3. username="账号"
4. password="密码"
5. 调用插件命令 hwnd=Window.MousePoint()
6. //get windows curscr
7. 调用插件命令 s = Window.GetClientRect(hwnd)
8. XYArray = Split(s, "|", -1, 1)
9. dx = XYArray(0)
10. dy = XYarray(1)
11. 标记 start
12. 调用子程序 piccheck
13. 如果表达式 (pic="游戏画面") 为真,则
14.     跳转到标记 click
15. 否则如果(pic="登陆画面")为真,则
16.     调用子程序 zhanghao
17.     跳转到标记 start
18. 否则如果(pic="更新数据")为真,则
19.     延时1000毫秒
20.     跳转到标记 start
21. 否则如果(pic="服务器选择")为真,则
22.     调用子程序 service
23.     跳转到标记 start
24. 否则如果(pic="角色选择")为真,则
25.     调用子程序 select
26.     跳转到标记 start
27. 否则如果(pic="出现错误")为真,则
28.     调用子程序 quxiao
29.     跳转到标记 start
30. 否则如果(pic="战斗画面")为真,则
31.     调用子程序 fight
32. 否则如果(pic="开始画面")为真,则
33.     调用子程序 quxiao
34. 否则
35.     调用子程序 quxiao
36.     跳转到标记 start
37. 条件结束
38. 标记 click
39. 调用子程序 quxiao
40. 调用子程序 buchong
41. 调用子程序 buchong
42. 延时110毫秒
43. 调用插件命令 Bkgnd.LeftClick(hwnd,420-dx,430-dy)
44. 延时110毫秒
45. 调用插件命令 Bkgnd.LeftClick(hwnd,260-dx,400-dy)
46. 延时110毫秒
47. 调用插件命令 Bkgnd.LeftClick(hwnd,260-dx,260-dy)
48. 延时110毫秒
49. 调用插件命令 Bkgnd.LeftClick(hwnd,380-dx,200-dy)
50. 延时110毫秒
51. 调用插件命令 Bkgnd.LeftClick(hwnd,500-dx,260-dy)
52. 延时110毫秒
53. 调用插件命令 Bkgnd.LeftClick(hwnd,500-dx,400-dy)
54. 延时110毫秒
55. 调用插件命令 Bkgnd.LeftClick(hwnd,380-dx,450-dy)
56. 延时110毫秒
57. 调用插件命令 Bkgnd.LeftClick(hwnd,380-dx,340-dy)
58. 延时110毫秒
59. //取消对话框
60. 调用插件命令 Bkgnd.LeftClick(hwnd,430-dx,430-dy)
61. 延时110毫秒
62. 调用插件命令 Bkgnd.LeftClick(hwnd,380-dx,340-dy)
63. 延时110毫秒
64. 调用插件命令 Bkgnd.LeftClick(hwnd,380-dx,340-dy)
65. 延时110毫秒
66. 跳转到标记 start
67. 子程序 buchong
68.     调用插件命令 Bkgnd.LeftClick(hwnd,405-dx,400-dy)
69.     延时100毫秒
70.     标记 buchongstart
71.     调用插件命令 c1=BkgndColor.GetPixelColor(hwnd,631-dx,121-dy)
72.     c1=hex(c1)
73.     //宠补红
74.     如果表达式 (c1<>"5959DE" and c1<>"5858DD" and c1<>"5959DD" and c1<>"5858DE" and c1<>"5959DE" and c1<>"5859DD" and c1<>"5859DE") 为真,则
75.         //Plugin Bkgnd.RightClick(hwnd,658-dx,628-dy)
76.         //Delay 800
77.         调用插件命令 Bkgnd.KeyPress(hwnd,55)
78.         延时2000毫秒
79.     条件结束
80.     //补红
81.     调用插件命令 c1=BkgndColor.GetPixelColor(hwnd,779-dx,121-dy)
82.     c1=hex(c1)
83.     如果表达式 (c1<>"5959DE" and c1<>"5858DD" and c1<>"5959DD" and c1<>"5858DE" and c1<>"5959DE" and c1<>"5859DD" and c1<>"5859DE") 为真,则
84.         //Plugin Bkgnd.RightClick(hwnd,445-dx,628-dy)
85.         //Delay 800
86.         调用插件命令 Bkgnd.KeyPress(hwnd,49)
87.         延时2000毫秒
88.     条件结束
89.     //补蓝
90.     调用插件命令 c1=BkgndColor.GetPixelColor(hwnd,779-dx,131-dy)
91.     c1=hex(c1)
92.     如果表达式 (c1<>"F18359" and c1<>"F18458" and c1<>"F18556") 为真,则
93.         //Plugin Bkgnd.RightClick(hwnd,482-dx,628-dy)
94.         //Delay 800
95.         调用插件命令 Bkgnd.KeyPress(hwnd,50)
96.         延时2000毫秒
97.     条件结束
98. 子程序结束,回到调用处
99. 子程序 fight
100.     延时1000毫秒