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 11
                VBSCall FindPic(x-20,y,x+256,y+333,color2(w),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
                    w=1
                    RestoreMousePos 
                    Goto ww
                EndIf 
                w=w+1
            EndFor 
            KeyPress 68,1
            Goto ww
        EndIf 
    EndFor 
    KeyPress 68,1
    Goto ww
Return 换火箭
Sub 换修酒
    KeyPress 68,1
    Delay 100
    For 9
        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 150
                MoveTo x1+37,y1+76
                LeftClick 1
                MoveTo x+170,y+332
                LeftClick 1
                MiddleClick 1
                KeyPress 68,1
                Goto ww
            EndIf 
            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
            VBSCall FindPic(x-20,y,x+256,y+333,"Attachment:\830修.bmp",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
                RestoreMousePos 
                Goto ww
            EndIf 
            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
            VBSCall FindPic(x-20,y,x+256,y+333,"Attachment:\830炮.bmp",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