.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