LeftClick 1
                    Delay 2000
                EndIf 
                Gosub 检测
                LeftClick 1
            EndWhile 
        EndIf 
    EndIf 
    Gosub 检测
EndWhile 
Sub 检测
    GetLastKey aa
    If aa=Var4
        SaveMousePos 
        Gosub 加能量
    EndIf 
    If aa=Var5
        ww="磁化.bmp"
        SaveMousePos 
        Gosub 换发生器
    EndIf 
    If aa=Var6
        ww="高热.bmp"
        SaveMousePos 
        Gosub 换发生器
    EndIf 
    If aa=Var7
        ww="腐蚀.bmp"
        SaveMousePos 
        Gosub 换发生器
    EndIf 
    If aa=Var8
        SaveMousePos 
        Gosub 换导弹
    EndIf 
    If aa=Var9
        SaveMousePos 
        Gosub 换雷达
    EndIf 
    If aa=Var10
        SaveMousePos 
        Gosub 换隐身
    EndIf 
    If aa=Var11
        SaveMousePos 
        Gosub 换火箭
    EndIf 
    If aa=Var12
        SaveMousePos 
        Gosub 换修酒
    EndIf 
    If aa=Var13
        SaveMousePos 
        Gosub 换修
    EndIf 
    If aa=Var14
        SaveMousePos 
        Gosub 换炮
    EndIf 
Return 检测
Sub 加能量
    KeyPress 68,1
    For 10
        Delay 100
        VBSCall FindPic(10,10,xx-50,yy-100,"Attachment:\物品.bmp",0.9,x,y)
        If x>0 and y>0
            Delay 100
            VBSCall FindPic(x-20,y,x+256,y+333,"Attachment:\能量包.bmp",0.9,x1,y1)
            If x1>0 and y1>0
                MoveTo x1,y1+5
                RightClick 1
                Delay 200
                MoveTo x1+57,y1+80
                LeftClick 1
                MoveTo x+170,y+332
                LeftClick 1
                RestoreMousePos 
                MiddleClick 1
                KeyPress 68,1
                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
            VBSCall FindPic(x-20,y,x+256,y+333,ww,0.9,x1,y1)
            If x1>0 and y1>0
                MoveTo x1,y1+5
                LeftDoubleClick 1
                MoveTo x+170,y+332