UserVar Var1=DropList{6星O礼包:1|8星O礼包:2|12星XO礼包:3|19星XO礼包:4|25星XO礼包:5}=1 请选折磨石商店需要副宠星数
KeyPress 27,1
SaveMousePos 
LeftClick 1
Delay 300
MoveTo 321,338
Delay 500
LeftClick 1
For 10
    Rem zz
    VBSCall FindPic(0,0,1023,767,"Attachment:\主宝宝.bmp",0.9,intX,intY)
    If intX>0 and intY>0
        MoveTo intX , intY
    Else 
        Goto zz
    EndIf 
    MoveTo 748,70
    Delay 100
    LeftClick 1
    MoveTo 207,378
    LeftDown 1
    Delay 200
    LeftUp 1
    MoveTo 743,145
    Delay 100
    LeftClick 1
    Rem 44
    MoveTo 355,334
    LeftDown 1
    VBSCall FindPic(0,0,1027,763,"Attachment:\按键精灵一键抓图.bmp",0.7,intX,intY)
    If intX>0 , intY>0
        LeftUp 1
    Else 
        Goto 44
    EndIf 
    VBSCall FindPic(0,0,1023,767,"确定图片.bmp",0.7,intX,intY)
    If intX>0 and intY>0
        MoveTo intX , intY
        LeftClick 1
    EndIf 
    Delay 300
    VBSCall FindCenterColor(413,301,614,443,"1EA6F2",intX,intY)
    If intX>0 and intY>0
        MoveTo intX , intY
        LeftClick 1
    EndIf 
    Delay 100
    Rem 55
    VBSCall FindCenterColor(12,161,352,430,"39B6EF",intX,intY)
    If intX>0 and intY>0
        MoveTo intX , intY
        LeftClick 1
        MoveTo 705,99
        Delay 100
        LeftClick 1
        Rem 10
        IfColor 473,442,1ba2ec,0
            MoveTo 473 , 442
            LeftClick 1
        Else 
            Goto 10
        EndIf 
    Else 
        Goto 55
    EndIf 
EndFor 
MoveTo 578,678
Delay 200
LeftClick 1
Delay 1500
If Var1=1
    Rem 20
    VBSCall FindPic(0,0,1023,767,"Attachment:\6.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        MoveTo intX ,intY
    Else 
        MoveTo 449,502
        Delay 100
        LeftClick 1
        Delay 1000
        Goto 20
    EndIf 
ElseIf Var1=2
    Rem 21
    VBSCall FindPic(0,0,1023,767,"Attachment:\8.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        MoveTo intX ,intY
    Else 
        MoveTo 449,502
        Delay 100
        LeftClick 1
        Delay 1000
        Goto 21
    EndIf 
ElseIf Var1=3
    Rem 22
    VBSCall FindPic(0,0,1023,767,"Attachment:\12.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        MoveTo intX ,intY
    Else