//找颜色
    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