1. 注释： ***** ***** Function ***** ***** //
2. 注释：**Function
3. 注释：功能:判断屏幕分辨率
4. 注释：返回:四个坐标的字符串
5. 函数 getParameter()
6.     (语句无法识别，可能有错误): Dim iLT,iRT,iLB,iRB //int 四个角的坐标
7.     (语句无法识别，可能有错误): iWidth = Plugin.Sys.GetScRX() //得到屏幕的宽度
8.     (语句无法识别，可能有错误): iHeight = Plugin.Sys.GetScRY() //得到屏幕的高度
9.     如果 iWidth = 800 则
10.         令 iLT = 0
11.         令 iRT = 0
12.         令 iLB = 0
13.         令 iRB = 0
14.     否则如果 iWidth = 1024 则
15.         (语句无法识别，可能有错误): iLT=112 //加上坐标偏移
16.         令 iRT = 84
17.         令 iLB = 112
18.         令 iRB = 84
19.     否则如果 iWidth = 1280 则
20.         (语句无法识别，可能有错误): iLT=240 //加上坐标偏移
21.         令 iRT = 100
22.         令 iLB = 240
23.         令 iRB = 100
24.     条件结束
25.     (语句无法识别，可能有错误): iLT=iLT+380 //LeftTop 左上角
26.     (语句无法识别，可能有错误): iRT=iRT+345 //RightTop 右上角
27.     (语句无法识别，可能有错误): iLB=iLB+420 //LeftBottom 左下角
28.     (语句无法识别，可能有错误): iRB=iRB+355 //RightBottom 右下角
29.     (语句无法识别，可能有错误): getParameter=iLT&"|"&iRT&"|"&iLB&"|"&iRB //返回字符串
30. 函数结束
31. 注释：**Function
32. 注释：功能:判断射程内是否有敌人
33. 注释：返回:是True,否False
34. 函数 findFoe(iLT,iRT,iLB,iRB)
35.     (语句无法识别，可能有错误): Dim sColor(3) //Array(string) 用于存放颜色的数组
36.     (语句无法识别，可能有错误): Dim i //int 循环变量
37.     (语句无法识别，可能有错误): Dim iX,iY //int 得到颜色的坐标
38.     (语句无法识别，可能有错误): Dim bHave //boolean 是否找到敌人
39.     注释：初始化颜色
40.     令 sColor(0) = "3239A0"
41.     令 sColor(1) = "2A3EB8"
42.     令 sColor(2) = "1849F0"
43.     令 sColor(3) = "1849F0"
44.     (语句无法识别，可能有错误): bHave=false //初始化
45.     注释：找颜色
46.     循环 i 从 0 到 3，步长 1
47.         调用 按 从中心找 的方式查找颜色 sColor(i)，把找到的坐标保存到 (iX, iY)，指定区域（左：iLT 上：iRT 右：iLB 下：iRB），相似度 0.8
48.         如果 iX > 0 并且 iY > 0 则
49.             (语句无法识别，可能有错误): bHave=true //找到了
50.             （键盘）按 Print Screen 键, 1次
51.             (语句无法识别，可能有错误): Goto rHave //跳出
52.         条件结束
53.     循环结束
54.     标记 rHave(函数 findFoe)
55.     (语句无法识别，可能有错误): findFoe=bHave//Return 函数返回值
56. 函数结束
57. 注释：**Function
58. 注释：功能:判断是否没有命中敌人
59. 注释：返回:是True,否False
60. 函数 noBingo()
61.     (语句无法识别，可能有错误): Dim iX,iY //int 得到颜色的坐标
62.     调用 按 从中心找 的方式查找颜色 "7E7EC0"，把找到的坐标保存到 (iX, iY)，指定区域（左：iWidth / 2 - 5 上：iHeight / 2 - 5 右：iWidth / 2 + 5 下：iHeight + 5），相似度 0.8
63.     如果 iX > 0 则
64.         令 noBingo = True
65.     否则
66.         令 noBingo = False
67.     条件结束
68. 函数结束
69. 注释： ***** ***** Sub ***** ***** //
70. 注释：**Sub
71. 注释：功能:射击
72. 子程序 shootFoe()
73.     (语句无法识别，可能有错误): LeftClick iFN //左键单击 * 次
74.     (语句无法识别，可能有错误): Delay iFD //延迟 * 毫秒
75. 子程序结束
76. 注释：**Sun
77. 注释：参数(字符串,秒,第几行)
78. 注释：功能:显示字符串
79. 子程序 showStr(str,n,row)
80.     循环 n * 100 次
81.         延时 1 毫秒
82.         调用 Msg.ShowScrTXT(0,(row - 1) * 19,120,19,str,"0000FF")
83.     循环结束
84. 子程序结束
85. 注释：**Sun
86. 注释：功能:设置开枪延迟
87. 注释：# 多线程启动
88. 子程序 setFireDelay()
89.     定义变量 key
90.     循环当 True 时
91.         令 key = （键盘）等待按任意键
92.         如果 key = 37 则
93.             (语句无法识别，可能有错误): iFD=iFD-1 //缩小开枪延迟
94.             调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
95.             (语句无法识别，可能有错误): ElseIf key=39 //方向键 右
96.             (语句无法识别，可能有错误): iFD=iFD+1 //增加开枪延迟
97.             调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
98.             (语句无法识别，可能有错误): ElseIf key=38 //方向键 右
99.             (语句无法识别，可能有错误): iFD=iFD+5 //增加开枪延迟
100.             调用 showStr("开枪频率为" & iFD & "毫秒",5,1)