dim color(9),wwaqw(9),s,x,y,i,x1,y1,x2,y2,x3,y3,color1(9),color2(12)
color(0)="Attachment:\导弹0.bmp":color(1)="Attachment:\导弹1.bmp":color(2)="Attachment:\导弹2.bmp":color(3)="Attachment:\导弹3.bmp"
color(4)="Attachment:\导弹4.bmp":color(5)="Attachment:\导弹5.bmp":color(6)="Attachment:\导弹6.bmp":color(7)="Attachment:\导弹7.bmp"
color(8)="Attachment:\导弹8.bmp":color(9)="Attachment:\导弹9.bmp"
wwaqw(1)="Attachment:\雷达1.bmp":wwaqw(2)="Attachment:\雷达2.bmp":wwaqw(3)="Attachment:\雷达3.bmp":wwaqw(4)="Attachment:\雷达4.bmp"
wwaqw(5)="Attachment:\雷达5.bmp":wwaqw(6)="Attachment:\雷达6.bmp":wwaqw(7)="Attachment:\雷达7.bmp":wwaqw(8)="Attachment:\雷达8.bmp":wwaqw(9)="Attachment:\雷达9.bmp"
color1(1)="Attachment:\隐身1.bmp":color1(2)="Attachment:\隐身2.bmp":color1(3)="Attachment:\隐身3.bmp":color1(4)="Attachment:\隐身4.bmp"
color1(5)="Attachment:\隐身5.bmp":color1(6)="Attachment:\隐身6.bmp":color1(7)="Attachment:\隐身7.bmp":color1(8)="Attachment:\隐身8.bmp":color1(9)="Attachment:\隐身9.bmp"
color2(1)="Attachment:\AR1.bmp":color2(2)="Attachment:\AR2.bmp":color2(3)="Attachment:\AR3.bmp":color2(4)="Attachment:\AR4.bmp"
color2(5)="Attachment:\AR5.bmp":color2(6)="Attachment:\AR6.bmp":color2(7)="Attachment:\AR7.bmp":color2(8)="Attachment:\AR8.bmp"
color2(9)="Attachment:\AR9.bmp":color2(10)="Attachment:\AR10.bmp":color2(11)="Attachment:\AR11.bmp":color2(12)="Attachment:\AR12.bmp"
q=1
s=0
i=1
w=1
aaaa=0
UserVar Var3=DropList{选择1检东西:1|选择2不检东西:2}=1 选择是否检东西1为检，2为不检
UserVar Var2=DropList{炮导:1|炮:2|导:3}=1 炮导为1,炮为2,导为3
Plugin xx=GetSysInfo.GetScreenResolutionX()
Plugin yy=GetSysInfo.GetScreenResolutionY()
UserVar Var4=98 输入加能量快键码(默认小键盘2号键)
UserVar Var5=103 输入换磁化快键码(默认小键盘7号键)
UserVar Var6=104 输入换高热快键码(默认小键盘8号键)
UserVar Var7=105 输入换腐化快键码(默认小键盘9号键)
UserVar Var8=100 输入换导弹快键码(默认小键盘4号键)
UserVar Var9=101 输入换雷达快键码(默认小键盘5号键)
UserVar Var10=102 输入换隐身快键码(默认小键盘6号键)
UserVar Var11=97 输入换火箭快键码(默认小键盘1号键)
UserVar Var12=96 输入换修酒快键码(默认小键盘0号键)
UserVar Var13=38 输入换830修快键码(默认箭头向上键)
UserVar Var14=40 输入换830炮快键码(默认箭头向下键)
Var4=cint(Var4)
Var5=cint(Var5)
Var6=cint(Var6)
Var7=cint(Var7)
Var8=cint(Var8)
Var9=cint(Var9)
Var10=cint(Var10)
Var11=cint(Var11)
Var12=cint(Var12)
Var13=cint(Var13)
Var14=cint(Var14)
If Var3=1
    Z=69
EndIf 
If Var2=1
    zz=123
EndIf 
For -1
    Rem ww
    KeyPress 90,1
    KeyPress Z,1
    VBSCall FindPic(263,41,741,306,"Attachment:\死亡.bmp",0.9,x2,y2)
    If x2>=0 and y2>=0
        MoveTo x2-79,y2-35
        LeftClick 1
        Delay 2000
    EndIf 
    Delay 10
    Gosub 检测
    GetLastClick wwaqw1
    If wwaqw1=32773 or wwaqw1=32774 or wwaqw1=32775
        Gosub 检测
        Goto ww
    Else 
        If wwaqw1=32769 or wwaqw1=32770 or wwaqw1=32771
            For -1
                Gosub 检测
                If Var2=1
                    LeftClick 1
                    KeyPress 50,1
                    LeftClick 1
                    KeyPress 49,1
                    LeftClick 1
                    LeftClick 1
                    Goto as
                EndIf 
                If Var2=2
                    KeyPress 49,1
                    LeftClick 1
                    Goto as
                EndIf 
                If Var2=3
                    KeyPress 50,1
                    LeftClick 1
                EndIf 
                Rem as
                KeyPress 90,1
                KeyPress Z,1
                Gosub 检测
                For 10
                    GetLastClick wwaq
                    If wwaq=32773 or wwaq=32774 or wwaq=32775
                        Goto ww
                    EndIf 
                EndWhile 
                VBSCall FindPic(263,41,741,306,"Attachment:\死亡.bmp",0.9,x2,y2)
                Delay 10
                If x2>=0 and y2>=0
                    MoveTo x2-79,y2-35