Return 组队交易检测
//********************************************
//                  补红蓝
//********************************************
Sub 补红
    Delay 10
    KeyPressH 55,1
    //按下补小血快捷键
    Delay 200
    //补血延时
    IfColor hong1/100*((x-676)-(x-885))+(x-885),y+11,color(0),2
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的颜色值。
        Delay 10
    Else 
        KeyPressH 56,1
        //按下补大血快捷键
        Delay 200
        //补血延时
        //--------------------
        Gosub 复活检测
        Gosub 血少离开
        //---------------------
    EndIf 
EndIf 
Return 补红
//-------------------------
Sub 血少离开
    Delay 10
    IfColor hong2/100*((x-676)-(x-885))+(x-885),y+11,color(0),2
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的颜色值。
        Delay 10
    Else 
        VBSCall FindColorEx(x-539,y+33,x-331,y+43,color(2),1,0.6,x1,y1)
        If x1>0 and y1>0
            //还在打怪
            KeyPressH 56,1
            Delay 32
            KeyDownH 68,1
            Delay 300
            KeyUpH 68,1
            KeyDownH 87,1
            Delay 4000
            KeyUpH 87,1
            Delay 32
        Else 
            KeyPressH 187,1
            //坐下休息
            Delay 5000
        EndIf 
    EndIf 
Return 血少离开
//-------------------------------------------
Sub 补蓝
    Delay 10
    KeyPressH 57,1
    //按下补蓝快捷键
    Delay 200
    //补蓝延时
Return 补蓝
//*************************************
//       找怪部份
//*************************************
Sub 移动和找怪
    Delay 10
    //找怪
    If Z=1
        KeyDownH 87,1
        Delay 1500
        KeyUpH 87 1
        KeyPressH 32,1
        KeyDownH 87,1
        Delay 2000
        KeyUpH 87 1
        Delay 2
        KeyPressH 9,1
        VBSCall FindColorEx(x-539,y+33,x-331,y+43,color(2),1,0.6,x1,y1)
        If x1>0 and y1>0
            KeyPressH 49,1
            //找到怪,攻击
            Goto 找到怪
        Else 
            Delay 500
            KeyDownH 83,1
            Delay 200
            KeyUpH 83 1
            //后退一点
            KeyDownH 68,1
            Delay 250
            KeyUpH 68,1
            //转方向
            KeyPressH 9,1
        EndIf 
    EndIf 
    Rem 找到怪
Return 移动和找怪
//**************************************
//    打怪和血少保护
//*************************************