Sub 检测XI 是否已满
    VBSCall FindColorEx(704,641,909,695,"1372f4,0",1,0.9,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        Delay 200
        LeftClick 1
        Gosub 刷XP
    EndIf 
Return 检测XI 是否已满
Sub 刷XP
    For 93
        KeyPress 52,1
        Delay 200
        MoveTo 514,429
        Delay 100
        RightClick 1
        Delay 220
        Gosub 判断经验球
    EndFor 
    Gosub 回城买随即
Return 刷XP
Sub 回城买随即
    KeyPress 50,1
    Delay 2000
    KeyPress 49,1
    Delay 2000
Return 回城买随即
Sub 判断经验球
    IfColor 145,72,92621f,0
        Delay 100
        KeyPress 51,1
        KeyUp 51,1
    EndIf 
Return 判断经验球