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