Delay hongT
            //补血延时
        EndIf 
    EndIf 
    Delay 10
    Rem 补蓝
    IfColor lan/100*(d-f)+f,e,A06812,2
        Delay 2000
        IfColor lan/100*(d-f)+f,e,A06812,2
            //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
            //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
            KeyPress chilan,1
            //按下补蓝快捷键
            Delay lanT
            //补蓝延时
        EndIf 
    EndIf 
    Delay 10
Return 人物补血补蓝
Sub 喂宠
    Plugin T2=Sys.GetTime()
    If T2-T1>=T3
        Delay 10
        VBSCall FindPic(0,0,1024,768,"Attachment:\召唤宠1024.bmp",0.8,x,y)
        If x>=0 and y>=0
            g=x-51
            h=y+24
            r=g-82
            Delay 10
            For wcc
                IfColor baoshi/100*85+r,h,9F6711,0
                    MoveTo g,h
                    Delay 300
                    RightClick 1
                    Delay 300
                    KeyPress weichongwu2 1
                    Delay 300
                    VBSCall FindPic(0,0,1024,768,"Attachment:\确定1024.bmp",0.8,x,y)
                    If x>=0 and y>=0
                        MoveTo x+10,y+10
                        Delay 400
                        LeftClick 1
                        Delay 400
                    Else 
                        MoveTo 500,400
                        Delay 10
                    EndIf 
                EndIf 
            EndFor 
        EndIf 
        Delay 100
        VBSCall FindPic(0,0,1024,768,"Attachment:\合体宠1024.bmp",0.8,x,y)
        If x>=0 and y>=0
            i=x-51
            j=y+29
            s=i-82
            Delay 50
            For wcc
                IfColor baoshi/100*85+s,j,9F6711,0
                    MoveTo i,j
                    Delay 300
                    RightClick 1
                    Delay 300
                    KeyPress weichongwu2,1
                    Delay 300
                    VBSCall FindPic(0,0,1024,768,"Attachment:\确定1024.bmp",0.8,x,y)
                    If x>=0 and y>=0
                        MoveTo x+10,y+10
                        Delay 400
                        LeftClick 1
                        Delay 400
                    Else 
                        MoveTo 500,400
                        Delay 10
                    EndIf 
                EndIf 
                Delay 100
            EndFor 
        EndIf 
        Delay 10
        T1=T2
    Else 
        Delay 100
    EndIf 
Return 喂宠
Sub 回定点
    Delay 100
    //Plugin T2=GetSysInfo.GetTime()
    VBSCall FindPic(0,0,1024,768,"Attachment:\自动寻径1024a.bmp",0.8,x,y)
    //区域找图  0,0,1024,768为区域范围  "神盾.bmp"为图片名（路径）  0.9为找图的相似度 x,y为找到图片后的坐标变量
    If x>=0 and y>=0
        MoveTo x,y
        Delay 800
        LeftClick 1
        Delay 800
        VBSCall FindPic(0,0,1024,768,"Attachment:\自动寻径1024d.bmp",0.8,x,y)
        //区域找图  0,0,1024,768为区域范围  "神盾.bmp"为图片名（路径）  0.9为找图的相似度 x,y为找到图片后的坐标变量
        If x>=0 and y>=0
            MoveTo x+3,y+3
            Delay 800