VBS dim intX
VBS intX=1
While intX>0
    VBSCall FindPic(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        MoveTo intX+40,intY+60
        LeftClick 1
        Delay 500
    EndIf 
    VBSCall FindPic(0,50,1023,767,"左兹1.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        MoveTo intX+40,intY+60
        LeftClick 1
        Delay 500
    EndIf 
    VBSCall FindPic(0,50,1023,767,"张道凌1.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        MoveTo intX+40,intY+60
        LeftClick 1
        Delay 500
    EndIf 
    VBSCall FindPic(0,50,1023,767,"姜子牙1.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        MoveTo intX+40,intY+60
        LeftClick 1
        Delay 500
    EndIf 
    For 10
        VBSCall FindPic(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY)
        If intX<0 and intY<0
            VBSCall FindPic(0,50,1023,767,"周一仙1.bmp",0.9,intX,intY)
            MoveTo intX+40,intY+60
            LeftClick 1
            Delay 500
        Else 
            MoveTo intX+40,intY+60
            LeftClick 1
            Delay 500
            MoveR 120,0
            LeftClick 1
            Delay 500
            MoveR 120,0
            LeftClick 1
            Delay 500
            MoveR 120,0
            LeftClick 1
            Delay 500
        EndIf 
        MoveR 0,200
    EndFor 
    VBSCall FindPic(0,50,1023,767,"一键卖出1.bmp",0.9,intX,intY)
    MoveTo intX+40,intY+20
    LeftClick 1
    Delay 500
    While intX>45
        VBSCall FindPic(0,50,1023,767,"一键拾取.bmp",0.9,intX,intY)
        MoveTo intX+40,intY+20
        LeftClick 1
        Delay 2000
        VBSCall FindPic(0,50,1023,767,"一键合成.bmp",0.9,intX,intY)
        MoveTo intX+40,intY+20
        LeftClick 1
        Delay 500
        VBSCall FindPic(0,50,1023,767,"确认.bmp",0.9,intX,intY)
        MoveTo intX+40,intY+20
        LeftClick 1
        Delay 500
        VBSCall FindPic(0,50,1023,767,"一键拾取.bmp",0.9,intX,intY)
    EndWhile 
    VBS intX=1
EndWhile 
EndScript