Sub 技能补红
    IfColor 50*0.79+187,41,292984,2
        KeyPress 57,1
    EndIf 
Return 
Sub 血少休息
    IfColor 20*0.79+187,41,292984,2
        If XueShaoXiuXi=1
            m=m+1
            Delay 125
            If m>=8
                KeyPress 72,1
                Delay 32
                MoveTo 554,307
                LeftClick 1
                m=0
                Gosub 血少休息结束
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 血少休息结束
    IfColor 90*0.79+187,41,292984,2
        KeyPress 72,1
        Delay 32
        MoveTo 554,307
        LeftClick 1
    EndIf 
Return 
Sub 无怪休息
    VBSCall FindColorEx(498,28,500,30,"fffbef",1,0.8,x,y)
    If x<0 and y<0
        If WuGuaiXiuXi=1
            Delay 125
            n=n+1
            If n>=20
                KeyPress 72,1
                Delay 32
                MoveTo 554,307
                LeftClick 1
                n=0
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 无红回城
    VBSCall FindColorEx(166,70,170,72,"ff",1,0.8,x,y)
    If x>=0 and y>=0
        If WuHongHuiCheng=1
            Delay 125
            Time1=Time1+1
            If Time1=3
                KeyPress 189,1
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 无蓝回城
    VBSCall FindColorEx(318,70,322,72,"d63900",1,0.8,x,y)
    If x>=0 and y>=0
        If WuLanHuiCheng=1
            Delay 125
            Time2=Time2+1
            If Time2=3
                KeyPress 189,1
            EndIf 
        EndIf 
    EndIf 
Return