Else 
            j=0
        EndIf 
    EndWhile 
    // 宠物加蓝
    While k=1
        VBSCall ReadMemory(&h0327FE24,1,p)
        If p<patmp
            KeyPress 50,1
            Gosub 宠物加血鼠标动作
        Else 
            k=0
        EndIf 
    EndWhile 
    //宠物喂食
    If count>=pateat
        KeyPress 52,1
        Gosub 宠物加血鼠标动作
        count=0
    EndIf 
Return 加血
Sub 加血鼠标动作
    MoveTo 873,119
    Delay 200
    LeftClick 1
    Delay 500
Return 加血鼠标动作
Sub 宠物加血鼠标动作
    MoveTo 707,106
    Delay 200
    LeftClick 1
    Delay 500
Return 宠物加血鼠标动作