1. 注释：*************************颜色质量********************************************
2. 令 Dev = Sys.GetScDep()
3. 如果 Dev <> 32 则
4.     弹出窗口 "您的系统颜色质量不是32位，请调整!否则脚本可能不能正常运行!"
5. 条件结束
6. 注释：*************************释放图片******************************************
7. 注释：查找按键小精灵的句柄
8. 注释：Hwnd=Plugin.Window.Find(0, "蜀山精灵")
9. 注释：获取按键精灵路径
10. 注释：sPath = Plugin.Window.GetExePath(Hwnd)
11. 注释：路径长度
12. 注释：sPathLength = Len(sPath)
13. 注释：返回相对路径
14. 注释：sPathLeft = Left(sPath,sPathLength-8)
15. 注释：设置图片文件
16. 注释：sPathImage = sPathLeft & "Images"
17. 注释：释放附件中的图片
18. 注释：PutAttachment sPathImage, "*.bmp"
19. 令 sPathImage = "e:\蜀山\"
20. 延时 500 毫秒
21. 注释：获取游戏句柄
22. 令 Hwnd = Window.MousePoint()
23. 延时 500 毫秒
24. BGCP2.TransformWindow((Hwnd))
25. 令 djcs = 1
26. 注释：***************************程序开始**********************************
27. 标记 主程序
28. 令 st = now
29. 令 h = hour(now)
30. 令 m = minute(now)
31. 令 t = now
32. 令 t1 = (t - st) * 86400
33. 如果 t1 > 900 并且 djcs < 16 则
34.     调用 斗剑()
35. 条件结束
36. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "\发动攻击.bmp",10,1,x,y)
37. 如果 x + y > 0 则
38.     调用 打怪()
39. 条件结束
40. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "阵图窗口.bmp",10,0.9,x,y)
41. 如果 x + y > 0 则
42.     调用 阵图()
43. 条件结束
44. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "决战窗口.bmp",10,0.8,x,y)
45. 如果 x + y > 0 则
46.     调用 决战()
47. 条件结束
48. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "副本.bmp",10,0.9,x,y)
49. 如果 x + y > 0 则
50.     调用 副本()
51. 条件结束
52. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "副本选择.bmp",10,0.9,x,y)
53. 如果 x + y > 0 则
54.     调用 闯关()
55. 条件结束
56. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "锁妖塔标志.bmp",10,0.9,x,y)
57. 如果 x + y > 0 则
58.     调用 锁妖塔()
59. 条件结束
60. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "\阵营图标.bmp",10,0.9,x,y)
61. 如果 x + y > 0 或者 h = 20 则
62.     调用 阵营战()
63. 条件结束
64. 如果 h = 20 或者 m = 40 则
65.     调用 帮派战()
66. 条件结束
67. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "抽奖.bmp",10,0.9,x,y)
68. 如果 x + y > 0 则
69.     调用 领奖()
70. 条件结束
71. BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "确定.bmp",10,0.9,x,y)
72. 如果 x + y > 0 则
73.     延时 300 毫秒
74.     调用 Bkgnd.LeftClick(Hwnd,x + 31,y + 14)
75. 条件结束
76. 延时 300 毫秒
77. 跳转到标记 主程序
78. 注释：*********************************挂机子程序********************************
79. 注释：*********************************决战之地副本子程序****************************************
80. 子程序 决战()
81.     BGCP2.FindPicture(Hwnd,0,0,1440,900,sPathImage & "决战窗口.bmp",10,0.9,x,y)
82.     如果 x + y > 0 则
83.         BGCP2.FindPicture(Hwnd,x - 250,y,x + 342,y + 400,sPathImage & "进入战场.bmp",10,1,x1,y1)
84.         如果 x1 + y1 > 0 则
85.             延时 300 毫秒
86.             调用 Bkgnd.LeftClick(Hwnd,x1 + 33,y1 + 13)
87.             延时 2000 毫秒
88.         条件结束
89.         标记 决战之地战斗(子程序 决战)
90.         BGCP2.FindPicture(Hwnd,x - 250,y,x + 342,y + 400,sPathImage & "开始战斗.bmp",10,1,x1,y1)
91.         如果 x1 + y1 > 0 则
92.             延时 300 毫秒
93.             调用 Bkgnd.LeftClick(Hwnd,x1 + 33,y1 + 13)
94.         条件结束
95.         延时 300 毫秒
96.         BGCP2.FindPicture(Hwnd,x - 250,y,x + 342,y + 400,sPathImage & "决战通关.bmp",10,1,x1,y1)
97.         如果 x1 + y1 > 0 则
98.             调用 关闭()
99.             退出子程序
100.         条件结束