1.     .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex3" & """" & "></td>" & Chr(13)
  2.     .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex4" & """" & "></td>" & Chr(13)
  3.     .write "</tr> " & Chr(13)
  4.     .write "<tr> " & Chr(13)
  5.     .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex5" & """" & "></td>" & Chr(13)
  6.     .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex6" & """" & "></td>" & Chr(13)
  7.     .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex7" & """" & "></td>" & Chr(13)
  8.     .write "<td width=75 valign=" & """" & "top" & """" & " id=" & """" & "Tex8" & """" & "></td>" & Chr(13)
  9.     .write "</tr> " & Chr(13)
  10.     .write "</table>" & Chr(13)
  11.     .write "" & Chr(13)
  12.     .write "<br>" & Chr(13)
  13.     .write "</BODY>" & Chr(13)
  14.     End With
  15.     End Function
  16.     '//
  17.     '//修改状态窗口内容的函数
  18.     Function ChangeContent(ByVal id, ByVal Text)
  19.     StateWindow.document.getElementById(id).innerHTML = "<font size=2>" & Text & "</font>"
  20.     End Function
  21.     '//
  22. 结束VBScript块
  23. 延时1000毫秒
  24. //ShowStateWin
  25. //ChangeContent "Tex1", "状态窗口"
  26. //ChangeContent "Tex2", "启动成功"
  27. //======================∧∧∧状态窗口∧∧∧======================
  28. //
  29. //-------------------∨∨∨设置自定义函数∨∨∨-------------------
  30. 调用子程序 设置自定义函数
  31. //颜色相减 ColorSubtract( 颜色字符串1, 颜色字符串2 ) 返回差值数组
  32. //16进制转换成数字 HexValueToLng( 16进制字符串 )
  33. //颜色比较 ColorCompare( 颜色字符串1, 颜色字符串2, 相似度0-255 ) 返回值: 相似:颜色平均差值 | 不相似:False
  34. //-------------------∧∧∧设置自定义函数∧∧∧-------------------
  35. //
  36. //------------------∨∨∨打开地图特征文件∨∨∨------------------
  37. //此部分功能:
  38. // 根据地图的颜色特征,录入、保存到文件、识别地图
  39. // 1.Sub 打开地图特征文件 - 将特征文件、函数载入内存
  40. // 2.Sub 保存地图特征文件 - 保存特征数据到文件
  41. //
  42. //定义全局变量,以便此部分Sub使用
  43. Dim MapDataDy, MapDyKey, MapDyItem, MapColorArray,CurLineNO
  44. Dim MapFOS, RTxStream, WTxStream
  45. //
  46. //将特征文件、函数载入内存
  47. 调用子程序 打开地图特征文件
  48. //
  49. //添加地图特征数据的函数
  50. //AddMapColorLineToDy(ByVal 颜色1, ByVal 颜色2, ByVal 颜色3, ByVal 颜色4, ByVal 地图名称)
  51. //
  52. //根据颜色识别地图的函数
  53. //ColorStrFindPlace(ByVal 颜色1, ByVal 颜色2, ByVal 颜色3, ByVal 颜色4, 相似度0~255)
  54. //------------------∧∧∧打开地图特征文件∧∧------------------
  55. //
  56. //---------------------∨∨∨自动寻路∨∨∨---------------------
  57. //此部分功能:保存到达目的地的途径地图到数组
  58. //存在BUG:地图结构只能为树状,环形或网状结构会卡死!!!
  59. // 可在WayToPlace函数中增加寻路充许最大深度(未完整)
  60. //全局定义,以便此部分Sub使用
  61. Dim MapPlaceDictionary
  62. //
  63. 调用子程序 设置寻路函数
  64. //
  65. //此函数返回一个从源地点到达目标地点的数组
  66. //WayToPlace(源地点, 目标地点, [内部使用变量,应设为""])
  67. //
  68. //此函数连接两个数级
  69. //JoinArray(数组1, 数组2)
  70. //---------------------∧∧∧自动寻路∧∧∧---------------------
  71. //
  72. //----------------------∨∨∨----------------------
  73. //1.设定的数组:lRoadPointArr
  74. //2.当执行Gosub 移动到下一个地图 按照所设数组执行移动到下个地图的操作
  75. //移动到下个地图所须变量,此脚本各个地方使用
  76. Dim lRoadPointArr, GoPlaceTimeArr, GToPlace, SelectPlace, GoingToPlace
  77. //计算移动到下个地图的时间数组,Array(前次记录时间,最次记录时间,共用时间)
  78. GoPlaceTimeArr = Array(0,0,0)
  79. GToPlace = ""
  80. //在NPC对话框中第N个选择,传送地点
  81. SelectPlace = 0
  82. GoingToPlace = False
  83. //----------------------∧∧∧----------------------
  84. //
  85. //----------------------∨∨∨----------------------
  86. //找雪兽
  87. 如果表达式 (Not(IsNumeric(LRCatchPet))) 为真,则
  88.     LRCatchPet = 0
  89. 条件结束
  90. 如果表达式 (LRCatchPet>24) 为真,则
  91.     LRCatchPet = 20
  92. 条件结束
  93. // Array(目标数目, 已抓,抓宠操作,淬毒之钉键位)
  94. LRCatchPetArr = Array(LRCatchPet, 0, 0, 2)
  95. ExistPet = Array(-1,0,0)
  96. //宝宝特征数组 IfColor x,y,color,条件... ... 怪物位置,所在地图
  97. ScrPetFArr = Array(253,256,"dedfde",0,315,408,"ffffff",0,316,408,"ffffff",1,2,"冰石雪原")
  98. //ScrPetFArr = Array(253,256,"dedfde",0,315,408,"ffffff",0,316,408,"ffffff",0,2,"冰石雪原")
  99. //----------------------∧∧∧----------------------
  100. Dim mlxthw