VBSCall FindPic(155,257,164,268,"Attachment:\sgcqwg.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo 885,741
        LeftClick 1
        MoveTo 512,400
        LeftClick 1
        Delay 1000
        VBSCall FindPic(407,238,617,398,"Attachment:\sgcqwgg.bmp",0.9,x,y)
        If x>=0 and y>=265
            MoveTo x,y-20
            Delay 600
            LeftClick 2
        Else 
            MoveTo x,y+30
            Delay 600
            LeftClick 2
        EndIf 
    EndIf 
Return 反外挂提示
Sub 游戏设置
    MoveTo 885,738
    Delay 300
    LeftClick 1
    Delay 300
    MoveTo 512,300
    Delay 300
    LeftClick 1
    Delay 300
    MoveTo 538,420
    Delay 300
    LeftClick 1
    Delay 300
    MoveTo 546,606
    Delay 300
    LeftClick 1
    Delay 300
    MoveTo 885,738
    Delay 500
    LeftClick 1
    Delay 500
    MoveTo 511,336
    Delay 500
    LeftClick 1
    Delay 500
    VBSCall FindPic(312,217,346,379,"Attachment:\sgcqgg.bmp",0.7,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        Delay 100
        LeftClick 1
        Delay 300
    EndIf 
    VBSCall FindPic(312,217,346,379,"Attachment:\sgcqgg.bmp",0.7,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        Delay 100
        LeftClick 1
        Delay 300
    EndIf 
    VBSCall FindPic(312,217,346,379,"Attachment:\sgcqgg.bmp",0.7,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        Delay 100
        LeftClick 1
        Delay 300
    EndIf 
    VBSCall FindPic(312,217,346,379,"Attachment:\sgcqgg.bmp",0.7,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        Delay 100
        LeftClick 1
        Delay 300
    EndIf 
    VBSCall FindPic(312,217,346,379,"Attachment:\sgcqgg.bmp",0.7,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        Delay 100
        LeftClick 1
        Delay 300
    EndIf 
    VBSCall FindPic(312,217,346,379,"Attachment:\sgcqgg.bmp",0.7,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        Delay 100
        LeftClick 1
        Delay 300
    EndIf 
    MoveTo 576,600
    LeftClick 1
Return 游戏设置
Sub 死亡复活
    VBSCall FindPic(501,130,603,165,"Attachment:\sgcqsw.bmp",0.5,x,y)
    If x>=0 and y>=0
        Delay 10000
        MoveTo x,y
        Delay 100
        LeftClick 1
        Delay 5000
    EndIf 
    VBSCall FindPic(870,1,947,21,"Attachment:\sgcqmd.bmp",0.6,x,y)
    If x>=0 and y>=0