Delay 20
        Gosub 判断3
        Delay 20
        Gosub 判断4
        Delay 20
        Gosub 判断5
        Delay 20
        Gosub 判断6
        Delay 20
        Gosub 判断7
        Delay 20
        Gosub 判断8
        Delay 20
        Gosub 判断9
        Delay 50
        VBSCall quse9=GetPixelColor(686+ydlx,164+ydly)
        VBSCall quse10=GetPixelColor(685+ydlx,164+ydly)
        If quse9 = quse10
            Delay 20
            Goto 进入战斗
        Else 
            Delay 50
            Goto 战斗结束
        EndIf 
    EndIf 
    Rem 战斗结束
Return 进入战斗
Sub 判断1
    VBSCall FindColorEx(689+ydlx,324+ydly,726+ydlx,368+ydly,quse,0,xsd,x,y)
    m=721+ydlx-0.32*w
    If x<=m and y>=324+ydly and y<=368+ydly
        Gosub 读取人物坐标
    EndIf 
Return 判断1
Sub 判断2
    VBSCall FindColorEx(629+ydlx,364+ydly,669+ydlx,403+ydly,quse,0,xsd,x,y)
    m=661+ydlx-0.32*w
    If x<=m and y>=364+ydly and y<=403+ydly
        Gosub 读取人物坐标
    EndIf 
Return 判断2
Sub 判断3
    VBSCall FindColorEx(569+ydlx,404+ydly,606+ydlx,443+ydly,quse,0,xsd,x,y)
    m=601+ydlx-0.32*w
    If x<=m and y>=404+ydly and y<=443+ydly
        Gosub 读取人物坐标
    EndIf 
Return 判断3
Sub 判断4
    VBSCall FindColorEx(509+ydlx,444+ydly,545+ydlx,479+ydly,quse,0,xsd,x,y)
    m=541+ydlx-0.32*w
    If x<=m and y>=444+ydly and y<479+ydly
        Gosub 读取人物坐标
    EndIf 
Return 判断4
Sub 判断5
    VBSCall FindColorEx(689+ydlx,257+ydly,727+ydlx,303+ydly,quse,0,xsd,x,y)
    m=721+ydlx-0.32*z
    If x<=m and y>=257+ydly and y<=303+ydly
        Gosub 读取召唤兽坐标
    EndIf 
Return 判断5
Sub 判断6
    VBSCall FindColorEx(629+ydlx,296+ydly,665+ydlx,338+ydly,quse,0,xsd,x,y)
    m=661+ydlx-0.32*z
    If x<=m and y>=296+ydly and y<=338+ydly
        Gosub 读取召唤兽坐标
    EndIf 
Return 判断6
Sub 判断7
    VBSCall FindColorEx(569+ydlx,334+ydly,604+ydlx,372+ydly,quse,0,xsd,x,y)
    m=601+ydlx-0.32*z
    If x<=m and y>=334+ydly and y<=372+ydly
        Gosub 读取召唤兽坐标
    EndIf 
Return 判断7
Sub 判断8
    VBSCall FindColorEx(509+ydlx,371+ydly,547+ydlx,412+ydly,quse,0,xsd,x,y)
    m=541+ydlx-0.32*z
    If x<=m and y>=371+ydly and y<=412+ydly
        Gosub 读取召唤兽坐标
    EndIf 
Return 判断8
Sub 判断9
    VBSCall FindColorEx(449+ydlx,409+ydly,487+ydlx,451+ydly,quse,0,xsd,x,y)
    m=481+ydlx-0.32*z
    If x<=m and y>=409+ydly and y<=451+ydly
        Gosub 读取召唤兽坐标
        Goto 点怪
    Else 
        Gosub 点怪
    EndIf 
Return 判断9
Sub 补血补蓝
    Rem 补血
    VBSCall hpsp=GetPixelColor(303+ydlx,189+ydly)
    VBSCall FindColorEx(246+ydlx,163+ydly,310+ydlx,169+ydly,hpsp,0,0.9,xx,yy)
    n=308+ydlx-0.6*j
    If xx<=n and yy>163+ydly and yy<169+ydly
        Gosub 读取补血蓝坐标