For 3
        VBSCall FindPic(10,10,1000,750,"sgcqxz.bmp",0.4,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(498,127,556,164,"sgcqsw.bmp",0.8,x,y)
    If x>0 and y>0
        Delay 3000
        MoveTo x,y
        LeftClick 1
        Delay 5000
        KeyPress 9,1
        Delay 500
        MoveTo 745,215
        Delay 100
        LeftClick 1
        Delay 5000
        MoveTo 56,396
        Delay 100
        LeftClick 1
        Delay 100
        MoveTo 745,215
        Delay 100
        LeftClick 1
        Delay 100
        MoveTo 56,376
        Delay 200
        LeftClick 1
        Delay 200
        KeyPress 27,1
        Delay 200
        MoveTo 677,264
        Delay 200
        LeftClick 1
        Delay 200
        MoveTo 697,598
        Delay 200
        LeftClick 1
        Delay 5000
        Goto 死亡返回
    Else 
        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 自动组队