//找颜色 For i=0 to 3 step 1 Call FindColorEx(iLT,iRT,iLB,iRB,sColor(i),1,0.7,iX,iY) If iX>0 And iY>0 bHave=true //找到了 KeyPress 44, 1 Goto rHave //跳出 End If Next Rem rHave findFoe=bHave//Return 函数返回值 End Function //**Function //功能:判断是否没有命中敌人 //返回:是True,否False Function noBingo() Dim iX,iY //int 得到颜色的坐标 Call FindColorEx(iWidth/2-5,iHeight/2-5,iWidth/2+5,iHeight+5,"7E7EC0",1,0.7,iX,iY) If iX > 0 Then noBingo=True Else noBingo=False End If End Function //**Sub //功能:射击 Sub shootFoe() LeftClick iFN //左键单击 * 次 Delay iFD //延迟 * 毫秒 End Sub //**Sun //参数(字符串,秒,第几行) //功能:显示字符串 Sub showStr(str,n,row) For n*100 Delay 1 Call Plugin.Msg.ShowScrTXT(0, (row-1)*19, 120, 19, str, "0000FF") Next End Sub //**Sun //功能:设置开枪延迟 //# 多线程启动 Sub setFireDelay() Dim key While True key=WaitKey() If key=37 iFD=iFD-1 //缩小开枪延迟 Call showStr("开枪频率为"&iFD&"毫秒",5,1) ElseIf key=39 //方向键 右 iFD=iFD+1 //增加开枪延迟 Call showStr("开枪频率为"&iFD&"毫秒",5,1) ElseIf key=38 //方向键 右 iFD=iFD+5 //增加开枪延迟 Call showStr("开枪频率为"&iFD&"毫秒",5,1) ElseIf key=40 //方向键 右 iFD=iFD-5 //增加开枪延迟 Call showStr("开枪频率为"&iFD&"毫秒",5,1) End If Wend End Sub