1. 用户定义变量 Var1=30 "开枪频率"
2. 用户定义变量 Var2=1 "单次开枪子弹数量"
3. 用户定义变量 Var3=0 "第一枪延迟"
4. 用户定义变量 Var4=55 "压枪延迟"
5. 注释：定义变量
6. (语句无法识别，可能有错误): DimEnv iWidth ,iHeight //int 屏幕分辨率
7. (语句无法识别，可能有错误): DimEnv iFD //开枪频率
8. 令 iFD = Var1
9. (语句无法识别，可能有错误): DimEnv iFN //几发连射
10. 令 iFN = Var2
11. (语句无法识别，可能有错误): DimEnv iFFD //第一枪延迟
12. 令 iFFD = Var3
13. (语句无法识别，可能有错误): DimEnv iND //压枪延迟
14. 令 iND = Var4
15. 注释：调用主函数
16. 调用 Main()
17. 注释：**Main
18. 注释：程序入口主函数
19. 子程序 Main()
20.     注释：int 四个角的坐标
21.     定义变量 iLT, iRT, iLB, iRB
22.     注释：临时对象
23.     定义变量 vTemp
24.     定义变量 bCanShoot
25.     定义变量 sStr
26.     注释：得到分辨率(四个坐标)
27.     令 sStr = getParameter()
28.     注释：把返回的坐标分割成数组
29.     令 vTemp = Split(sStr,"|",- 1 ,1)
30.     令 iLT = vTemp(0)
31.     令 iRT = vTemp(1)
32.     令 iLB = vTemp(2)
33.     令 iRB = vTemp(3)
34.     注释：启用设置开枪频率线程
35.     启动线程 setFireDelay
36.     注释：循环脚本
37.     循环当 True 时
38.         延时 1 毫秒
39.         注释：搜索射程内的敌人
40.         令 bCanShoot = findFoe(iLT,iRT,iLB,iRB)
41.         注释：进入射程
42.         如果 bCanShoot 则
43.             注释：第一枪延迟
44.             延时 iFFD 毫秒
45.             注释：射击
46.             调用 shootFoe()
47.             注释：如果没有命中就压枪
48.             如果 ifBingo() 则
49.                 延时 iND 毫秒
50.             条件结束
51.         条件结束
52.     循环结束
53. 子程序结束
54. 注释：**Function
55. 注释：功能:判断屏幕分辨率
56. 注释：返回:四个坐标的字符串
57. 函数 getParameter()
58.     (语句无法识别，可能有错误): Dim iLT,iRT,iLB,iRB //int 四个角的坐标
59.     (语句无法识别，可能有错误): iWidth = Plugin.Sys.GetScRX() //得到屏幕的宽度
60.     (语句无法识别，可能有错误): iHeight = Plugin.Sys.GetScRY() //得到屏幕的高度
61.     如果 iWidth = 800 则
62.         令 iLT = 0
63.         令 iRT = 0
64.         令 iLB = 0
65.         令 iRB = 0
66.     否则如果 iWidth = 1024 则
67.         (语句无法识别，可能有错误): iLT=112 //加上坐标偏移
68.         令 iRT = 84
69.         令 iLB = 112
70.         令 iRB = 84
71.     否则如果 iWidth = 1280 则
72.         (语句无法识别，可能有错误): iLT=240 //加上坐标偏移
73.         令 iRT = 100
74.         令 iLB = 240
75.         令 iRB = 100
76.     条件结束
77.     (语句无法识别，可能有错误): iLT=iLT+380 //LeftTop 左上角
78.     (语句无法识别，可能有错误): iRT=iRT+345 //RightTop 右上角
79.     (语句无法识别，可能有错误): iLB=iLB+420 //LeftBottom 左下角
80.     (语句无法识别，可能有错误): iRB=iRB+355 //RightBottom 右下角
81.     (语句无法识别，可能有错误): getParameter=iLT&"|"&iRT&"|"&iLB&"|"&iRB //返回字符串
82. 函数结束
83. 注释：**Function
84. 注释：功能:判断射程内是否有敌人
85. 注释：返回:是True,否False
86. 函数 findFoe(iLT,iRT,iLB,iRB)
87.     (语句无法识别，可能有错误): Dim sColor(3) //Array(string) 用于存放颜色的数组
88.     (语句无法识别，可能有错误): Dim i //int 循环变量
89.     (语句无法识别，可能有错误): Dim iX,iY //int 得到颜色的坐标
90.     (语句无法识别，可能有错误): Dim bHave //boolean 是否找到敌人
91.     注释：初始化颜色
92.     令 sColor(0) = "3239A0"
93.     令 sColor(1) = "2A3EB8"
94.     令 sColor(2) = "1849F0"
95.     令 sColor(3) = "1849F0"
96.     (语句无法识别，可能有错误): bHave=false //初始化
97.     注释：找颜色
98.     循环 i 从 0 到 3，步长 1
99.         调用 按 从中心找 的方式查找颜色 sColor(i)，把找到的坐标保存到 (iX, iY)，指定区域（左：iLT 上：iRT 右：iLB 下：iRB），相似度 0.7
100.         如果 iX > 0 并且 iY > 0 则