SayString "5分钟之内要组我哦，不然我就要回城啦。。。"
        Delay 256
        KeyPress 13,1
        Delay 128
        KeyPress kjjF7,1
        Delay 256
        savestring="队伍人数过少，自动退组。。。"
        Gosub 写入日志
        Gosub 待组状态
    EndIf 
EndIf 
Return 是否退组
Sub 待组状态
    t3=timer
    //待组开始计时
    Rem 待组
    Delay 512
    If (timer-t3)>daizuT
        KeyPress kjjF6,1
        Delay 5000
        Delay 5000
        savestring="等待超过5分钟无人组队，停止挂机。。。"
        Gosub 写入日志
        Goto 停止挂机
    EndIf 
    VBSCall FindPic(300,150,700,400,"Attachment:\组队.bmp",0.9,zuX,zuY)
    If zuX>0 and zuY>0
        MoveTo zuX+5,zuY+2
        Delay 64
        LeftClick 1
        Delay 512
        savestring="重组成功，继续群疗。。。"
        Gosub 写入日志
        Gosub 等待起群
    EndIf 
    Goto 待组
Return 待组状态
Sub 等待起群
    duiyuan=-2
    For qunliaoN
        duiyuan=duiyuan+1
    EndFor 
    t4=timer
    Rem 群疗
    Delay 512
    If (timer-t4)>daizuT
        KeyPress kjjF6,1
        Delay 5000
        Delay 5000
        Goto 停止挂机
    EndIf 
    VBSCall FindPic(0,42+28*duiyuan,20,70+28*duiyuan,"Attachment:\队员.bmp",0.8,ZDx,ZDy)
    If ZDx>0 and ZDy>0
        For 2
            KeyPress kjjF1,1
            Delay 128
        EndFor 
        Delay 3200
        Goto 开始挂机
    EndIf 
Return 等待起群
Sub 死亡回城
    Delay 128
    VBSCall FindPic(515,230,630,260,"Attachment:\取消.bmp",0.9,sihuiX,sihuiY)
    If sihuiX>0 and sihuiY>0
        MoveTo sihuiX+10,sihuiY+5
        LeftClick 1
        Delay 6000
        savestring="角色死亡，选择回城。。。"
        Gosub 写入日志
        Delay 6000
        KeyPress kjjF6,1
        Delay 8000
        Gosub 回城补充
    EndIf 
Return 死亡回城
Sub 垂直视角
    For 2
        MoveTo 512,384
        RightDown 1
        Delay 128
        MoveR 0,300
        Delay 256
        RightUp 1
        Delay 128
    EndFor 
Return 垂直视角
Sub 倾斜视角
    MoveTo 512,500
    RightDown 1
    Delay 128
    MoveR 0,-116
    Delay 256
    RightUp 1
    Delay 128
Return 倾斜视角
Sub 回城补充
    huicheng=huicheng+1
    no_npc2=1
    If huicheng>=hcN