- UCase(Color1)
- UCase(Color2)
- UCase(Color3)
- UCase(Color4)
- 如果表达式 (Len(Color1)<6) 为真,则循环执行
- ColorStr = "0" & ColorStr
- Wend
- 如果表达式 (Len(Color2)<6) 为真,则循环执行
- ColorStr = "0" & ColorStr
- Wend
- 如果表达式 (Len(Color3)<6) 为真,则循环执行
- ColorStr = "0" & ColorStr
- Wend
- 如果表达式 (Len(Color4)<6) 为真,则循环执行
- ColorStr = "0" & ColorStr
- Wend
- PlaceFound = ""
- '//遍历所有行比较
- MapDyKey = MapDataDy.Keys
- MapDyItem = MapDataDy.Items
- intLoop = MapDataDy.Count-1
- 如果表达式 (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
- 如果表达式 (FoundBool Then) 为真,则
- PlaceFound = MapDyItem(intLoop)(5)
- End If
- intLoop = intLoop-1
- Wend
- ColorStrFindPlace = PlaceFound
- End Function
- 结束VBScript块
- 子程序结束,回到调用处
- //
- //此脚本不需用上
- 子程序 保存地图特征文件
- 开始VBScript块
- Dim TmpStrW
- '//创建文件 或 打开文件
- Set WTxStream = MapFOS.OpenTextFile(".\..\MLXTMapColor.txt", 2, True)
- '//复制已经存在部分
- MapDyKey = MapDataDy.Keys
- MapDyItem = MapDataDy.Items
- TmpStrW = ""
- 循环 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
- 结束VBScript块
- 子程序结束,回到调用处
- //---------------------------------------------------------------
- //
- //---------------------------------------------------------------
- 子程序 设置寻路函数
- 开始VBScript块
- 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("曙光平原", "沉睡森林")