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