EndIf 
    VBSCall FindColorEx(246+ydlx,175+ydly,310+ydlx,181+ydly,hpsp,0,0.9,xx,yy)
    n=308+ydlx-0.6*jj
    If xx<=n and yy>175+ydly and yy<181+ydly
        Gosub 读取补血蓝坐标
    EndIf 
    VBSCall FindColorEx(356+ydlx,163+ydly,393+ydlx,169+ydly,hpsp,0,0.9,xx,yy)
    n=391+ydlx-0.35*k
    If xx<=n and yy>163+ydly and yy<169+ydly
        Gosub 读取补血蓝坐标
    EndIf 
    VBSCall FindColorEx(356+ydlx,175+ydly,393+ydlx,181+ydly,hpsp,0,0.9,xx,yy)
    n=391+ydlx-0.35*kk
    If xx<=n and yy>175+ydly and yy<181+ydly
        Gosub 读取补血蓝坐标
    EndIf 
Return 补血补蓝
Sub 判断是否选头像
    IfColor 460,245,ffff00,0
        VBSCall RunApp(tixing)
    Else 
        IfColor 460,245,f8fc00,0
            VBSCall RunApp(tixing)
        EndIf 
    EndIf 
Return 判断是否选头像
Sub 碰盗贼
    IfColor 321+ydlx,451+ydly,ffff,2
        MoveTo 321+ydlx,451+ydly
    EndIf 
Return 碰盗贼
Sub 组队
    IfColor 402+ydlx,403+ydly,20e498,2
        MoveTo 458+ydlx,428+ydly
        Delay 20
        LeftClick 1
    Else 
        IfColor 402+ydlx,403+ydly,21e79c,2
            MoveTo 458+ydlx,428+ydly
            Delay 20
            LeftClick 1
        EndIf 
    EndIf 
Return 组队
Sub 读取人物坐标
    MoveTo x,y
    Delay 300
    MoveR rwx,rwy
    Delay 150
    KeyPress 113,1
    Delay 200
    LeftDoubleClick 1
Return 读取人物坐标
Sub 读取召唤兽坐标
    MoveTo x,y
    Delay 300
    MoveR zhsx,zhsy
    Delay 150
    KeyPress 113,1
    Delay 200
    LeftDoubleClick 1
    RightClick 1
Return 读取召唤兽坐标
Sub 读取补血蓝坐标
    Delay 200
    MoveTo xx,yy
    Delay 500
    LeftDoubleClick 1
Return 读取补血蓝坐标
Sub 点怪
    Rem 点怪
    Rem 判断回合是否结束
    VBSCall chongfu=GetPixelColor(506+ydlx,621+ydly)
    VBSCall FindColor(785+ydlx,422+ydly,788+ydlx,226+ydly,chongfu,q,r)
    If q>0 and r>0
        Delay 100
        MoveTo 495+ydlx,160+ydly
        Delay 10
        LeftDoubleClick 1
        For 4
            MoveR -60,40
            Delay 10
            LeftDoubleClick 1
        EndFor 
        Delay 10
        MoveTo 495+ydlx,195+ydly
        Delay 10
        LeftDoubleClick 1
        For 4
            MoveR -60,40
            Delay 10
            LeftDoubleClick 1
        EndFor 
        MoveTo 550+ydlx,220+ydly
        Delay 10
        LeftDoubleClick 1
        For 4
            MoveR -60,40
            Delay 10
            LeftDoubleClick 1