Delay 100
        KeyPressH Yc,1
        Delay 100
    Else 
        Goto 蓝运气
    EndIf 
Return 
//------------------[锁怪]
Sub 锁怪
    KeyPressH 9,1
    Delay 1500
Return 
//----------------[首发技能]
Sub 首发技能
    If Sf=1
        Goto 下面1
    Else 
        KeyPressH Sf,1
        Delay Yc1
    EndIf 
    Rem 下面1
Return 
//-------------------[打怪]
Sub 打怪
    Rem 打怪
    KeyPressH Wl,1
    Delay 1000
    VBSCall FindPic(539,12,571,68,"Attachment:\怪是否死.bmp",0.9,x,y)
    If x>0 and y>0
        Goto 打怪
    EndIf 
Return 
//-------------------[勇气]
Sub 勇气
    If DateDiff("m",t1,now)>=30
        Delay 10
        KeyPressH Yq2,1
        t2=now
        Delay 1000
    EndIf 
Return 
//----------------[拾取]
Sub 拾取
    For 3
        KeyPressH J,1
        Delay 1000
    EndFor 
Return 
//---------------[检查验证]
Sub 检查验证
    VBSCall FindPic(287,53,792,573,"Attachment:\反外挂检测.bmp",0.9,x,y)
    If x>0 and y>0
        For 5
            Beep 
            Delay 1
        EndFor 
    EndIf 
Return