LeftClick 1 EndIf If fighting=-1 //游戏Loading Delay 2000 EndIf If fighting=0 //非战斗时才找怪 GoingToPlace = False Gosub 什么地方Sub // //MapMonCr = Array(0,0) If place="樱舞仙境" //修正战斗中怪物无法点击错误. MapMonCr = Array(0,-20) //ElseIf place="玉蜂林" // MapMonCr = Array(0,30*Int(2*Rnd)) EndIf // //-------------------------------------------- //如当前地点不是打怪地图,则自动查找路径,并移动打怪地图 If place<>"" And MonsterPlace<>"" And place<>MonsterPlace // DecPlaceArr = WayToPlace(place, MonsterPlace, "") If debugon=350 And IsArray(DecPlaceArr) MsgBox Join(DecPlaceArr,">"),0,"途经地图" ElseIf debugon=350 And Not(IsArray(DecPlaceArr)) MsgBox "未找到到达目的地路径",0,"WayToPlace " & place & "," & MonsterPlace EndIf If IsArray(DecPlaceArr) ChangeContent "Tex1", Join(DecPlaceArr,"↓<br>") EndIf // If IsArray(DecPlaceArr) If UBound(DecPlaceArr)>=1 //开始移动时记录当前时间 If GToPlace<>DecPlaceArr(1) Or GToPlace="" GToPlace = DecPlaceArr(1) //MsgBox GToPlace & "|" & DecPlaceArr(1) //与上一次记录须到达地点值不同,则移动开始计时 Plugin GoPlaceTimeArr(0) = GetSysInfo.GetTime() Plugin GoPlaceTimeArr(1) = GetSysInfo.GetTime() GoPlaceTimeArr(2) = 0 EndIf VBS lRoadPointArr = Empty If place="梨阳湖北" And DecPlaceArr(1)="梨阳岛" //小地图路点 所需时间,座标XY ... lRoadPointArr = Array(5000,351,332,30000,295,392,180000,337,475) SelectPlace = 1 ElseIf place="梨阳湖北" And DecPlaceArr(1)="东玄城" lRoadPointArr = Array(5000,401,289,600000,584,224) SelectPlace = 0 ElseIf place="梨阳岛" And DecPlaceArr(1)="梨阳村" lRoadPointArr = Array(15000,328,281,600000,280,446) SelectPlace = 0 ElseIf place="梨阳岛" And DecPlaceArr(1)="梨阳湖北" lRoadPointArr = Array(15000,497,408,35000,595,222,600000,793,287) SelectPlace = 1 ElseIf place="梨阳岛" And DecPlaceArr(1)="塔克草原" lRoadPointArr = Array(15000,497,408,35000,595,222,600000,793,287) SelectPlace = 2 ElseIf place="梨阳村" And DecPlaceArr(1)="梨阳湖南" lRoadPointArr = Array(15000,433,363,600000,607,480) SelectPlace = 0 ElseIf place="梨阳村" And DecPlaceArr(1)="梨阳岛" lRoadPointArr = Array(15000,433,363,600000,439,199) SelectPlace = 0 ElseIf place="梨阳湖南" And DecPlaceArr(1)="玉蜂林" lRoadPointArr = Array(15000,421,239,600000,629,436) SelectPlace = 0 ElseIf place="梨阳湖南" And DecPlaceArr(1)="梨阳村" lRoadPointArr = Array(15000,421,239,600000,266,412) SelectPlace = 0 ElseIf place="玉蜂林" And DecPlaceArr(1)="君竹古道" lRoadPointArr = Array(15000,484,266,600000,625,377) SelectPlace = 0 ElseIf place="玉蜂林" And DecPlaceArr(1)="梨阳湖南" lRoadPointArr = Array(15000,484,266,600000,376,199) SelectPlace = 0 ElseIf place="塔克草原" And DecPlaceArr(1)="虚空沙海" lRoadPointArr = Array(18000,393,290,600000,250,285) SelectPlace = 0 ElseIf place="塔克草原" And DecPlaceArr(1)="梨阳岛" lRoadPointArr = Array(10000,393,290,30000,569,370, 600000, 629, 483) SelectPlace = 0 ElseIf place="虚空沙海" And DecPlaceArr(1)="塔克草原" lRoadPointArr = Array(15000,297,278,600000,294,213) SelectPlace = 0 ElseIf place="仙朵拉城" And DecPlaceArr(1)="樱舞仙境" lRoadPointArr = Array(10000,454,389,600000,623,401) SelectPlace = 0 ElseIf place="仙朵拉城" And DecPlaceArr(1)="朵拉雪地" lRoadPointArr = Array(10000,454,389,600000,248,199) SelectPlace = 0 ElseIf place="朵拉雪地" And DecPlaceArr(1)="天穹学院" lRoadPointArr = Array(5000,441,259,600000,621,214) SelectPlace = 0 ElseIf place="朵拉雪地" And DecPlaceArr(1)="灵舞学院" lRoadPointArr = Array(5000,441,259,600000,264,202) SelectPlace = 0