LeftClick 1
                MiddleClick 1
                KeyPress 68,1
                RestoreMousePos 
                Goto ww
            EndIf 
            KeyPress 68,1
            Goto ww
        EndIf 
    EndFor 
    KeyPress 68,1
    Goto ww
Return 换发生器
Sub 换导弹
    For 10
        KeyPress 68,1
        Delay 100
        VBSCall FindPic(10,10,xx-50,yy-100,"Attachment:\物品.bmp",0.9,x,y)
        If x>0 and y>0
            Delay 100
            For 9
                VBSCall FindPic(x-20,y,x+256,y+333,color(s),0.9,xx1,yy1)
                If xx1>=0 and yy1>=0
                    MoveTo xx1+2,yy1+8
                    LeftDoubleClick 1
                    s=0
                    MoveTo x+170,y+332
                    LeftClick 1
                    MiddleClick 1
                    KeyPress 68,1
                    RestoreMousePos 
                    Goto ww
                EndIf 
                s=s+1
            EndFor 
        EndIf 
        KeyPress 68,1
        Goto ww
    EndFor 
    KeyPress 68,1
    Goto ww
Return 换导弹
Sub 换雷达
    For 10
        KeyPress 68,1
        Delay 100
        VBSCall FindPic(10,10,xx-50,yy-100,"Attachment:\物品.bmp",0.9,x,y)
        If x>0 and y>0
            Delay 100
            For 8
                VBSCall FindPic(x-20,y,x+256,y+333,wwaqw(i),0.9,xxx1,yyy1)
                If xxx1>=0 and yyy1>=0
                    MoveTo xxx1+2,yyy1+8
                    LeftDoubleClick 1
                    MoveTo x+170,y+332
                    LeftClick 1
                    MiddleClick 1
                    KeyPress 68,1
                    i=1
                    RestoreMousePos 
                    Goto ww
                EndIf 
                i=i+1
            EndFor 
            KeyPress 68,1
            Goto ww
        EndIf 
    EndFor 
    KeyPress 68,1
    Goto ww
Return 换雷达
Sub 换隐身
    For 9
        KeyPress 68,1
        Delay 100
        VBSCall FindPic(10,10,xx-50,yy-100,"Attachment:\物品.bmp",0.9,x,y)
        If x>0 and y>0
            Delay 100
            For 8
                VBSCall FindPic(x-20,y,x+256,y+333,color1(q),0.9,x1,y1)
                If x1>0 and y1>0
                    MoveTo x1+2,y1+8
                    LeftDoubleClick 1
                    Delay 10
                    MoveTo x+170,y+332
                    LeftClick 1
                    MiddleClick 1
                    KeyPress 68,1
                    q=1
                    RestoreMousePos 
                    Goto ww
                EndIf 
                q=q+1
            EndFor 
            KeyPress 68,1
            Goto ww
        EndIf 
    EndFor 
    KeyPress 68,1
    Goto ww