- (语句无法识别,可能有错误): bHave=true //找到了
- (键盘)按 Print Screen 键, 1次
- (语句无法识别,可能有错误): Goto rHave //跳出
- 条件结束
- 循环结束
- 标记 rHave(函数 findFoe)
- (语句无法识别,可能有错误): findFoe=bHave//Return 函数返回值
- 函数结束
- 注释:**Function
- 注释:功能:判断是否没有命中敌人
- 注释:返回:是True,否False
- 函数 noBingo()
- (语句无法识别,可能有错误): Dim iX,iY //int 得到颜色的坐标
- 调用 按 从中心找 的方式查找颜色 "7E7EC0",把找到的坐标保存到 (iX, iY),指定区域(左:iWidth / 2 - 5 上:iHeight / 2 - 5 右:iWidth / 2 + 5 下:iHeight + 5),相似度 0.7
- 如果 iX > 0 则
- 令 noBingo = True
- 否则
- 令 noBingo = False
- 条件结束
- 函数结束
- 注释:**Sub
- 注释:功能:射击
- 子程序 shootFoe()
- (语句无法识别,可能有错误): LeftClick iFN //左键单击 * 次
- (语句无法识别,可能有错误): Delay iFD //延迟 * 毫秒
- 子程序结束
- 注释:**Sun
- 注释:参数(字符串,秒,第几行)
- 注释:功能:显示字符串
- 子程序 showStr(str,n,row)
- 循环 n * 100 次
- 延时 1 毫秒
- 调用 Msg.ShowScrTXT(0,(row - 1) * 19,120,19,str,"0000FF")
- 循环结束
- 子程序结束
- 注释:**Sun
- 注释:功能:设置开枪延迟
- 注释:# 多线程启动
- 子程序 setFireDelay()
- 定义变量 key
- 循环当 True 时
- 令 key = (键盘)等待按任意键
- 如果 key = 37 则
- 令 iFD = iFD - 1
- 注释:缩小开枪延迟
- 调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
- (语句无法识别,可能有错误): ElseIf key=39 //方向键 右
- (语句无法识别,可能有错误): iFD=iFD+1 //增加开枪延迟
- 调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
- (语句无法识别,可能有错误): ElseIf key=38 //方向键 右
- (语句无法识别,可能有错误): iFD=iFD+5 //增加开枪延迟
- 调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
- (语句无法识别,可能有错误): ElseIf key=40 //方向键 右
- (语句无法识别,可能有错误): iFD=iFD-5 //增加开枪延迟
- 调用 showStr("开枪频率为" & iFD & "毫秒",5,1)
- 条件结束
- 循环结束
- 子程序结束