LeftClick 1
        Delay 59
        KeyPress 88,1
        Delay 4200
    Else 
    EndIf 
Return 召唤宝宝
Sub 拾取
    For 10
        VBSCall FindPic(10,10,1000,750,"Attachment:\sgcqxz.bmp",0.3,x,y)
        If x>=0 and y>=0
            MoveTo x y
            Delay 50
            RightClick 1
        EndIf 
    EndFor 
Return 拾取
Sub 怪物星级
    IfColor x3,37,2f7fa9,2
        KeyPress 192,1
    Else 
        Goto 打怪开始
    EndIf 
Return 怪物星级
Sub 挂机点选择
    KeyPress 77,1
    //挂机地点大地图选择
    Delay 1000
    gjj=split(cstr(gj),",")
    MoveTo clng(gjj(0)),clng(gjj(1))
    Delay 1000
    LeftClick 1
    Delay 1000
    gww=split(cstr(gw),",")
    MoveTo clng(gww(0)),clng(gww(1))
    Delay 1000
    LeftClick 1
    Delay 200
    MoveTo 850,139
    Delay 200
    LeftClick 1
    Delay 200
    KeyPress 77,1
    Delay xgT
Return 挂机点选择
Sub 寻怪
    IfColor 490,37,2f7fa9,2
        Gosub 怪物星级
    Else 
        KeyPress 192,1
        Delay 200
    EndIf 
Return 寻怪
Sub 人物是否死亡
    VBSCall FindPic(870,1,947,21,"Attachment:\sgcqmd.bmp",0.6,x,y)
    If x>=0 and y>=0
        Goto 死亡返回
    EndIf 
    IfColor 113,35,110675,1
        Goto 死亡返回
    EndIf 
Return 人物是否死亡
Sub 自动组队
    IfColor 790,735,12ffff,2
        MoveTo 790,735
        Delay 500
        LeftClick 1
        Delay 100
        zdd=split(cstr(zd),",")
        MoveTo clng(zdd(0)),clng(zdd(1))
        Delay 200
        LeftClick 1
        Delay 200
    EndIf 
Return 自动组队
Sub 技能
    Gosub 拾取
    Gosub 人物是否死亡
    dim jn1time,jn2time
    jn1time=now
    jn2time=now
    IfColor 95,69,ffffff,1
        KeyPress jn8,1
    EndIf 
    KeyPress jn5,1
    KeyPress jn7,1
    KeyPress jn6,1
    If datediff("s",jn1time,now)>jngjh1
        //大于6秒就.....
        KeyPress jn7,1
        jn1time=now
    EndIf 
    If datediff("s",jn2time,now)>jngjh2
        //大于8秒就...
        KeyPress jn8,1
        jn2time=now
    EndIf 
    Delay 200
Return 技能
Sub 反外挂提示