UCase(Color1)
        UCase(Color2)
        UCase(Color3)
        UCase(Color4)
        While Len(Color1)<6
        ColorStr = "0" & ColorStr
        Wend
        While Len(Color2)<6
        ColorStr = "0" & ColorStr
        Wend
        While Len(Color3)<6
        ColorStr = "0" & ColorStr
        Wend
        While Len(Color4)<6
        ColorStr = "0" & ColorStr
        Wend
        PlaceFound = ""
        '//遍历所有行比较
        MapDyKey = MapDataDy.Keys
        MapDyItem = MapDataDy.Items
        intLoop = MapDataDy.Count-1
        While intLoop>=0 and PlaceFound=""
        FoundBoolA = ColorCompare(Color1,MapDyItem(intLoop)(1),ColorSimilar)>0
        FoundBoolB = ColorCompare(Color2,MapDyItem(intLoop)(2),ColorSimilar)>0
        FoundBoolC = ColorCompare(Color3,MapDyItem(intLoop)(3),ColorSimilar)>0
        FoundBoolD = ColorCompare(Color4,MapDyItem(intLoop)(4),ColorSimilar)>0
        FoundBool = FoundBoolA And FoundBoolB And FoundBoolC And FoundBoolD
        If FoundBool Then
        PlaceFound = MapDyItem(intLoop)(5)
        End If
        intLoop = intLoop-1
        Wend
        ColorStrFindPlace = PlaceFound
        End Function
    VBSEnd 
Return 
//
//此脚本不需用上
Sub 保存地图特征文件
    VBSBegin 
        Dim TmpStrW
        '//创建文件 或 打开文件
        Set WTxStream = MapFOS.OpenTextFile(".\..\MLXTMapColor.txt", 2, True)
        '//复制已经存在部分
        MapDyKey = MapDataDy.Keys
        MapDyItem = MapDataDy.Items
        TmpStrW = ""
        For intLoop = 0 To MapDataDy.Count-1
        TmpStrW = MapDyItem(intLoop)(0) & "|" & MapDyItem(intLoop)(1) & "|"
        TmpStrW = TmpStrW & MapDyItem(intLoop)(2) & "|" & MapDyItem(intLoop)(3) & "|"
        TmpStrW = TmpStrW & MapDyItem(intLoop)(4) & "|" & MapDyItem(intLoop)(5)
        WTxStream.WriteLine TmpStrW
        Next
        '//新加入数据,去掉重复部分
        WTxStream.Close
    VBSEnd 
Return 
//---------------------------------------------------------------
//
//---------------------------------------------------------------
Sub 设置寻路函数
    VBSBegin 
        Set MapPlaceDictionary = CreateObject("Scripting.Dictionary")
        '//43个地点             地点名称           可通向的地方...
        MapPlaceDictionary.Add "出云村", 	Array("出云东郊", "云台原野")
        MapPlaceDictionary.Add "出云东郊", 	Array("出云村", "东玄城")
        MapPlaceDictionary.Add "云台原野", 	Array("出云村", "禅意静地")
        MapPlaceDictionary.Add "禅意静地", 	Array("云台原野")
        MapPlaceDictionary.Add "东玄城", 	Array("出云东郊", "梨阳湖北")
        MapPlaceDictionary.Add "梨阳湖北", 	Array("东玄城", "梨阳岛")
        MapPlaceDictionary.Add "梨阳岛", 	Array("梨阳湖北", "塔克草原", "梨阳村")
        MapPlaceDictionary.Add "塔克草原", 	Array("梨阳岛", "虚空沙海")
        MapPlaceDictionary.Add "虚空沙海", 	Array("塔克草原")
        MapPlaceDictionary.Add "梨阳村", 	Array("梨阳岛", "梨阳湖南")
        MapPlaceDictionary.Add "梨阳湖南", 	Array("梨阳村", "玉蜂林")
        MapPlaceDictionary.Add "玉蜂林", 	Array("梨阳湖南", "君竹古道")
        MapPlaceDictionary.Add "君竹古道", 	Array("玉蜂林", "奇石幻地", "铃兰盘地")
        MapPlaceDictionary.Add "奇石幻地", 	Array("君竹古道")
        MapPlaceDictionary.Add "铃兰盘地", 	Array("君竹古道", "伏魔谷")
        MapPlaceDictionary.Add "伏魔谷", 	Array("铃兰盘地", "迷之光屿")
        MapPlaceDictionary.Add "迷之光屿", 	Array("伏魔谷", "神遗幻境")
        MapPlaceDictionary.Add "神遗幻境", 	Array("迷之光屿", "圣约之地")
        MapPlaceDictionary.Add "圣约之地", 	Array("神遗幻境", "眷顾之城")
        MapPlaceDictionary.Add "眷顾之城", 	Array("圣约之地")
        MapPlaceDictionary.Add "庞贝城", 	Array("云天绿洲", "禁忌平原")
        MapPlaceDictionary.Add "禁忌平原", 	Array("庞贝城", "愤怒谷道")
        MapPlaceDictionary.Add "愤怒谷道", 	Array("禁忌平原", "止风峡谷")
        MapPlaceDictionary.Add "止风峡谷", 	Array("愤怒谷道", "登云高地")
        MapPlaceDictionary.Add "登云高地", 	Array("止风峡谷")
        MapPlaceDictionary.Add "云天绿洲", 	Array("庞贝城", "撩云学院", "天曙学院")
        MapPlaceDictionary.Add "天曙学院", 	Array("云天绿洲")
        MapPlaceDictionary.Add "撩云学院", 	Array("云天绿洲")
        MapPlaceDictionary.Add "仙朵拉城", 	Array("朵拉雪地", "樱舞仙境")
        MapPlaceDictionary.Add "朵拉雪地", 	Array("仙朵拉城", "灵舞学院", "天穹学院")
        MapPlaceDictionary.Add "灵舞学院", 	Array("朵拉雪地")
        MapPlaceDictionary.Add "天穹学院", 	Array("朵拉雪地")
        MapPlaceDictionary.Add "樱舞仙境", 	Array("仙朵拉城", "冰石雪原")
        MapPlaceDictionary.Add "冰石雪原", 	Array("樱舞仙境", "雪域梅林")
        MapPlaceDictionary.Add "雪域梅林", 	Array("冰石雪原")
        MapPlaceDictionary.Add "精灵城", 	Array("曙光平原", "沉睡森林")