//If ColorCompare(GetPixelColor(PetHpPositionX+1,PetHpPositionY),"dedfde",15)
        If HpPosUnknow(1)=0
            //以上后排生命槽位置检查过正确,不需再检查.
            If ColorCompare(GetPixelColor(PetHpPositionX+petmppercent,PetHpPositionY+10),"AD3031",15)
                //检查MP值是否足够
                BackMpLow=0
            Else 
                BackMpLow=1
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 检查战斗后宠物生命值
    IfColor 136,239,9cffff,2
        PetHpLow=1
    EndIf 
Return 
Sub 检查战斗后角色生命法力值
    Bhplow=0
    Bmplow=0
    If Bhppercent>0
        If ColorCompare(GetPixelColor(140+Bhppercent,169),"9cffff",15)
            Bhplow=1
        EndIf 
    EndIf 
    If Bmppercent>0
        If ColorCompare(GetPixelColor(140+Bmppercent,180),"9cffff",15)
            Bmplow=1
        EndIf 
    EndIf 
Return 
Sub 检查战斗中是否有精英怪物
    VBSCall FindColor(85,188,443,461,"00FF00",ElitePositionX,ElitePositionY)
    If ElitePositionX>0
        EliteMonster=1
    EndIf 
Return 
Sub 移动小地图
    //IfColor 706,263,c6cbff,2
    If ColorCompare(GetPixelColor(706,263),"C6CBFF",15)
        MoveTo 333,263
        LeftDown 1
        Delay 300
        MoveTo 250,152
        LeftUp 1
        Delay 150
        MoveMapCount=MoveMapCount+1
    EndIf 
Return 
Sub 脚本结束Sub
    EndScript 
Return 
//=================VBS==================
Sub 设置自定义函数
    VBSBegin 
        'a=ColorSubtract("04FAB6", "2C73FF")
        'MessageBox a(0) & "|" & a(1) & "|" & a(2)
        'b=HexToLng("04")
        'MessageBox b
        '
        '颜色差值
        Function ColorSubtract(ByVal Color1, ByVal Color12)
        dim colorrgb
        dim TempStrC1, TempStC2
        Color1=UCase(Color1)
        Color12=UCase(Color12)
        colorrgb=Array(0,0,0)
        If (Len(Color1)=6 and Len(Color12))=6 Then
        For m_c1=1 to 5 Step 2
        TempStrC1=Mid(Color1, m_c1, 2)
        TempStrC2=Mid(Color12, m_c1, 2)
        colorrgb((m_c1-1)/2)=Abs(HexValueToLng(TempStrC1)-HexValueToLng(TempStrC2))
        'MessageBox m_c1 & "|" & ((m_c1-1)/2) & "|" & colorrgb((m_c1-1)/2)
        Next
        ColorSubtract=colorrgb
        Else
        ColorSubtract=-1
        End If
        End Function
        '
        '09-06-03 16进制转成10进制函数.
        Function HexValueToLng(ByVal HexStr)
        UCase(HexStr)
        If Len(HexStr)<=6 then
        HexValueToLng=CLng("&H" & HexStr)
        Else
        HexValueToLng=-1
        End If
        End Function
        '
        '颜色比较 ColorCompare(HEX颜色1, HEX颜色2, 最大差值0~255)
        Function ColorCompare(ByVal Color1, ByVal Color2, ByVal Different)
        dim ColorCompareArray
        dim ColorDifferentValue
        ColorCompareArray=ColorSubtract(Color1, Color2)
        ColorDifferentValue=Fix((ColorCompareArray(0)+ColorCompareArray(1)+ColorCompareArray(2))/3)
        If (ColorDifferentValue<=Different) Then
        If ColorDifferentValue=0 then
        ColorCompare=1
        Else