Sub BUG死亡复活
    If (ColorCompare(GetPixelColor(534,444),"ffffff",15) and ColorCompare(GetPixelColor(563,448),"08a2ff",25))
        MoveTo 563,448
        LeftClick 1
        Delay 500
    EndIf 
Return 
Sub 游戏特殊BUG消除Fr
    //Framework程序Flash播放器有效
    KeyPress 67,1
Return 
Sub 宠物忠诚减10
    //宠物每死亡一次执行一次
    PetFidelity=PetFidelity-10
Return 
Sub 宠物忠诚回复
    //简单回复宠物忠诚,可能不完全回复!
    If PetFidelity<75
        rePF=0
        While rePF<11
            MoveTo 210,210
            LeftClick 1
            Delay 1500
            SetWaitColor=Array("C6CBFF",10000,767,231,0)
            Gosub 等待设定之类似颜色出现
            If SetWaitColor(4)>0
                MoveTo 588,289
                LeftClick 1
                Delay 1000
            EndIf 
            PetFidelity=100
            rePF=rePF+1
        EndWhile 
    EndIf 
Return 
Sub 检查宠物生命值是否为0
    PetHpIsZero=0
    If CharacherAtFont>0
        If HpPosUnknow(1)<=0
            If ColorCompare(GetPixelColor(PetHpPositionX+2,PetHpPositionY+3),"313031",20)
                PetHpIsZero=1
            EndIf 
        EndIf 
    Else 
        If HpPosUnknow(0)<=0
            If ColorCompare(GetPixelColor(CharacherHpPositionX+2,CharacherHpPositionY+3),"313031",20)
                PetHpIsZero=1
            EndIf 
        EndIf 
    EndIf 
Return 
//--------------------------------------------------------------
Sub 打开地图特征文件
    //
    //Dictionary结构:   Key:地图名称 Item:地图颜色特征数组
    //地图颜色特征数组: 自编号, 颜色1, 颜色2, 颜色3, 颜色4, 地图名称
    //文件存储(行):     自编号|颜色1|颜色2|颜色3|颜色4|地图名称
    //
    VBSBegin 
        Dim TmpStr, FileLineNO
        Set MapDataDy = CreateObject("Scripting.Dictionary")
        MapColorArray = Array("NO", "Color1", "Color2", "Color3", "Color4", "MapName")
        Set MapFOS = CreateObject("Scripting.FileSystemObject")
        If MapFOS.FileExists(".\..\MLXTMapColor.txt") Then
        '//读取文件内容到 MapDataDy
        Set RTxStream = MapFOS.OpenTextFile(".\..\MLXTMapColor.txt", 1, True)
        FileLineNO = 0
        Do while RTxStream.AtEndOfStream<>True
        TmpStr = RTxStream.ReadLine
        MapColorArray = Split(TmpStr, "|")
        MapColorArray(0) = FileLineNO		'重新编号
        If UBound(MapColorArray)=5 Then
        If Not(MapDataDy.Exists(MapColorArray(5))) Then
        MapDataDy.Add MapColorArray(5), MapColorArray
        CurLineNO = FileLineNO		'最后一行的编号
        End If
        End If
        FileLineNO = FileLineNO+1
        Loop
        RTxStream.Close
        Else
        Set RTxStream = MapFOS.OpenTextFile(".\..\MLXTMapColor.txt", 2, True)
        RTxStream.Close
        End If
        '
        '//设置用于添加数据函数
        Function AddMapColorLineToDy(ByVal Color1, ByVal Color2, ByVal Color3, ByVal Color4, ByVal MapName)
        Dim ColorArrayAdd
        If Not(MapDataDy.Exists(MapName)) Then
        CurLineNO = CurLineNO+1
        ColorArrayAdd = Array(CurLineNO, Color1, Color2, Color3, Color4, MapName)
        MapDataDy.Add MapName, ColorArrayAdd
        AddMapColorLineToDy = 1
        Else
        AddMapColorLineToDy = 0
        End If
        End Function
        '
        Function ColorStrFindPlace(ByVal Color1, ByVal Color2, ByVal Color3, ByVal Color4, ByVal ColorSimilar)
        Dim RowColorStr, intLoop, FoundBool, FoundBoolA, FoundBoolB, FoundBoolC, FoundBoolD, PlaceFound