KeyPress 50,1
    Delay 100
    KeyPress 51,1
    Delay 1000
    Gosub 判断血兰2
    IfColor 441,67,0201EA,0
        Delay 300
        Goto 技能2
    EndIf 
    Gosub 主程序2
Return 
Sub 判断血兰2
    Lx=14
    Rx=139
    hpy=74
    mpy=86
    Hcolor="574C3E"
    Mcolor="524539"
    VBSCall hpx=int(jhp/100*(Rx-Lx)+Lx)
    VBSCall mpx=int(jmp/100*(Rx-Lx)+Lx)
    IfColor Hpx,hpy,Hcolor,2
        KeyPress 112,1
        Delay 50
    EndIf 
    IfColor mpx,mpy,Mcolor,2
        KeyPress 113,1
        Delay 50
    EndIf 
Return