UserVar Var1=30 "开枪频率"
UserVar Var2=1 "单次开枪子弹数量"
UserVar Var3=0 "第一枪延迟"
UserVar Var4=55 "压枪延迟"
//定义变量
DimEnv iWidth  ,iHeight        //int 屏幕分辨率
DimEnv iFD //开枪频率
iFD=Var1 
DimEnv iFN //几发连射
iFN=Var2 
DimEnv iFFD //第一枪延迟
iFFD=Var3
DimEnv iND //压枪延迟
iND=Var4
//调用主函数
Call Main() 
//**Main
//程序入口主函数
Sub Main()
    //int 四个角的坐标
    Dim iLT,iRT,iLB,iRB        
    //临时对象
    Dim vTemp        
    Dim bCanShoot
    Dim sStr
    //得到分辨率(四个坐标)
    sStr=getParameter() 
    //把返回的坐标分割成数组
    vTemp=Split(sStr, "|", -1, 1)
    
    iLT=vTemp(0)
    iRT=vTemp(1)
    iLB=vTemp(2)
    iRB=vTemp(3)
    //启用设置开枪频率线程
    BeginThread setFireDelay 
    
    //循环脚本
    While True
        Delay 1
        //搜索射程内的敌人
        bCanShoot=findFoe(iLT,iRT,iLB,iRB)
        //进入射程
        If bCanShoot
            //第一枪延迟
            Delay iFFD 
            //射击
            Call shootFoe()
            //如果没有命中就压枪
            If ifBingo()
                Delay iND
            End If
        End If
    Wend
End Sub
//**Function
//功能:判断屏幕分辨率
//返回:四个坐标的字符串
Function getParameter()
    Dim iLT,iRT,iLB,iRB        //int 四个角的坐标
    iWidth = Plugin.Sys.GetScRX() //得到屏幕的宽度
    iHeight = Plugin.Sys.GetScRY() //得到屏幕的高度
    If iWidth=800 Then
        iLT=0
        iRT=0
        iLB=0
        iRB=0
    ElseIf iWidth=1024 Then
        iLT=112 //加上坐标偏移
        iRT=84
        iLB=112
        iRB=84        
    ElseIf iWidth=1280 Then
        iLT=240 //加上坐标偏移
        iRT=100
        iLB=240
        iRB=100        
    End If
    iLT=iLT+380        //LeftTop 左上角
    iRT=iRT+345        //RightTop 右上角
    iLB=iLB+420        //LeftBottom 左下角
    iRB=iRB+355        //RightBottom 右下角
    getParameter=iLT&"|"&iRT&"|"&iLB&"|"&iRB        //返回字符串
End Function
//**Function
//功能:判断射程内是否有敌人
//返回:是True,否False
Function 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        //初始化