- 用户定义变量 Var1=30 "开枪频率"
- 用户定义变量 Var2=1 "单次开枪子弹数量"
- 用户定义变量 Var3=0 "第一枪延迟"
- 用户定义变量 Var4=55 "压枪延迟"
- 注释:定义变量
- (语句无法识别,可能有错误): DimEnv iWidth ,iHeight //int 屏幕分辨率
- (语句无法识别,可能有错误): DimEnv iFD //开枪频率
- 令 iFD = Var1
- (语句无法识别,可能有错误): DimEnv iFN //几发连射
- 令 iFN = Var2
- (语句无法识别,可能有错误): DimEnv iFFD //第一枪延迟
- 令 iFFD = Var3
- (语句无法识别,可能有错误): DimEnv iND //压枪延迟
- 令 iND = Var4
- 注释:调用主函数
- 调用 Main()
- 注释:**Main
- 注释:程序入口主函数
- 子程序 Main()
- 注释:int 四个角的坐标
- 定义变量 iLT, iRT, iLB, iRB
- 注释:临时对象
- 定义变量 vTemp
- 定义变量 bCanShoot
- 定义变量 sStr
- 注释:得到分辨率(四个坐标)
- 令 sStr = getParameter()
- 注释:把返回的坐标分割成数组
- 令 vTemp = Split(sStr,"|",- 1 ,1)
- 令 iLT = vTemp(0)
- 令 iRT = vTemp(1)
- 令 iLB = vTemp(2)
- 令 iRB = vTemp(3)
- 注释:启用设置开枪频率线程
- 启动线程 setFireDelay
- 注释:循环脚本
- 循环当 True 时
- 延时 1 毫秒
- 注释:搜索射程内的敌人
- 令 bCanShoot = findFoe(iLT,iRT,iLB,iRB)
- 注释:进入射程
- 如果 bCanShoot 则
- 注释:第一枪延迟
- 延时 iFFD 毫秒
- 注释:射击
- 调用 shootFoe()
- 注释:如果没有命中就压枪
- 如果 ifBingo() 则
- 延时 iND 毫秒
- 条件结束
- 条件结束
- 循环结束
- 子程序结束
- 注释:**Function
- 注释:功能:判断屏幕分辨率
- 注释:返回:四个坐标的字符串
- 函数 getParameter()
- (语句无法识别,可能有错误): Dim iLT,iRT,iLB,iRB //int 四个角的坐标
- (语句无法识别,可能有错误): iWidth = Plugin.Sys.GetScRX() //得到屏幕的宽度
- (语句无法识别,可能有错误): iHeight = Plugin.Sys.GetScRY() //得到屏幕的高度
- 如果 iWidth = 800 则
- 令 iLT = 0
- 令 iRT = 0
- 令 iLB = 0
- 令 iRB = 0
- 否则如果 iWidth = 1024 则
- (语句无法识别,可能有错误): iLT=112 //加上坐标偏移
- 令 iRT = 84
- 令 iLB = 112
- 令 iRB = 84
- 否则如果 iWidth = 1280 则
- (语句无法识别,可能有错误): iLT=240 //加上坐标偏移
- 令 iRT = 100
- 令 iLB = 240
- 令 iRB = 100
- 条件结束
- (语句无法识别,可能有错误): iLT=iLT+380 //LeftTop 左上角
- (语句无法识别,可能有错误): iRT=iRT+345 //RightTop 右上角
- (语句无法识别,可能有错误): iLB=iLB+420 //LeftBottom 左下角
- (语句无法识别,可能有错误): iRB=iRB+355 //RightBottom 右下角
- (语句无法识别,可能有错误): getParameter=iLT&"|"&iRT&"|"&iLB&"|"&iRB //返回字符串
- 函数结束
- 注释:**Function
- 注释:功能:判断射程内是否有敌人
- 注释:返回:是True,否False
- 函数 findFoe(iLT,iRT,iLB,iRB)
- (语句无法识别,可能有错误): Dim sColor(3) //Array(string) 用于存放颜色的数组
- (语句无法识别,可能有错误): Dim i //int 循环变量
- (语句无法识别,可能有错误): Dim iX,iY //int 得到颜色的坐标
- (语句无法识别,可能有错误): Dim bHave //boolean 是否找到敌人
- 注释:初始化颜色
- 令 sColor(0) = "3239A0"
- 令 sColor(1) = "2A3EB8"
- 令 sColor(2) = "1849F0"
- 令 sColor(3) = "1849F0"
- (语句无法识别,可能有错误): bHave=false //初始化
- 注释:找颜色
- 循环 i 从 0 到 3,步长 1
- 调用 按 从中心找 的方式查找颜色 sColor(i),把找到的坐标保存到 (iX, iY),指定区域(左:iLT 上:iRT 右:iLB 下:iRB),相似度 0.7
- 如果 iX > 0 并且 iY > 0 则