.write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex3" & """" & "></td>" & Chr(13)
    .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex4" & """" & "></td>" & Chr(13)
    .write "</tr> " & Chr(13)
    .write "<tr> " & Chr(13)
    .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex5" & """" & "></td>" & Chr(13)
    .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex6" & """" & "></td>" & Chr(13)
    .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex7" & """" & "></td>" & Chr(13)
    .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex8" & """" & "></td>" & Chr(13)
    .write "</tr> " & Chr(13)
    .write "</table>" & Chr(13)
    .write "" & Chr(13)
    .write "<br>" & Chr(13)
    .write "</BODY>" & Chr(13)
    End With
    End Function
    '//
    '//修改状态窗口内容的函数
    Function ChangeContent(ByVal id, ByVal Text)
    StateWindow.document.getElementById(id).innerHTML = "<font size=2>" & Text & "</font>"
    End Function
    '//
VBSEnd 
Delay 1000
//ShowStateWin
//ChangeContent "Tex1", "状态窗口"
//ChangeContent "Tex2", "启动成功"
//======================∧∧∧状态窗口∧∧∧======================
//
//-------------------∨∨∨设置自定义函数∨∨∨-------------------
Gosub 设置自定义函数
//颜色相减 ColorSubtract( 颜色字符串1, 颜色字符串2 ) 返回差值数组
//16进制转换成数字 HexValueToLng( 16进制字符串 )
//颜色比较 ColorCompare( 颜色字符串1, 颜色字符串2, 相似度0-255 ) 返回值: 相似:颜色平均差值 | 不相似:False
//-------------------∧∧∧设置自定义函数∧∧∧-------------------
//
//------------------∨∨∨打开地图特征文件∨∨∨------------------
//此部分功能:
//    根据地图的颜色特征,录入、保存到文件、识别地图
//    1.Sub 打开地图特征文件  -  将特征文件、函数载入内存
//    2.Sub 保存地图特征文件  -  保存特征数据到文件
//
//定义全局变量,以便此部分Sub使用
Dim MapDataDy, MapDyKey, MapDyItem, MapColorArray,CurLineNO
Dim MapFOS, RTxStream, WTxStream
//
//将特征文件、函数载入内存
Gosub 打开地图特征文件
//
//添加地图特征数据的函数
//AddMapColorLineToDy(ByVal 颜色1, ByVal 颜色2, ByVal 颜色3, ByVal 颜色4, ByVal 地图名称)
//
//根据颜色识别地图的函数
//ColorStrFindPlace(ByVal 颜色1, ByVal 颜色2, ByVal 颜色3, ByVal 颜色4, 相似度0~255)
//------------------∧∧∧打开地图特征文件∧∧------------------
//
//---------------------∨∨∨自动寻路∨∨∨---------------------
//此部分功能:保存到达目的地的途径地图到数组
//存在BUG:地图结构只能为树状,环形或网状结构会卡死!!!
//        可在WayToPlace函数中增加寻路充许最大深度(未完整)
//全局定义,以便此部分Sub使用
Dim MapPlaceDictionary
//
Gosub 设置寻路函数
//
//此函数返回一个从源地点到达目标地点的数组
//WayToPlace(源地点, 目标地点, [内部使用变量,应设为""])
//
//此函数连接两个数级
//JoinArray(数组1, 数组2)
//---------------------∧∧∧自动寻路∧∧∧---------------------
//
//----------------------∨∨∨----------------------
//1.设定的数组:lRoadPointArr
//2.当执行Gosub 移动到下一个地图 按照所设数组执行移动到下个地图的操作
//移动到下个地图所须变量,此脚本各个地方使用
Dim lRoadPointArr, GoPlaceTimeArr, GToPlace, SelectPlace, GoingToPlace
//计算移动到下个地图的时间数组,Array(前次记录时间,最次记录时间,共用时间)
GoPlaceTimeArr = Array(0,0,0)
GToPlace = ""
//在NPC对话框中第N个选择,传送地点
SelectPlace = 0
GoingToPlace = False
//----------------------∧∧∧----------------------
//
//----------------------∨∨∨----------------------
//找雪兽
If Not(IsNumeric(LRCatchPet))
    LRCatchPet = 0
EndIf 
If LRCatchPet>24
    LRCatchPet = 20
EndIf 
//              Array(目标数目,   已抓,抓宠操作,淬毒之钉键位)
LRCatchPetArr = Array(LRCatchPet, 0,   0,       2)
ExistPet = Array(-1,0,0)
//宝宝特征数组 IfColor x,y,color,条件...               ...                怪物位置,所在地图
ScrPetFArr = Array(253,256,"dedfde",0,315,408,"ffffff",0,316,408,"ffffff",1,2,"冰石雪原")
//ScrPetFArr = Array(253,256,"dedfde",0,315,408,"ffffff",0,316,408,"ffffff",0,2,"冰石雪原")
//----------------------∧∧∧----------------------
Dim mlxthw