1.                                                                                     MapPlaceDictionary.Add "曙光平原", Array("精灵城", "流火学院", "磐地学院")
  2.                                                                                     MapPlaceDictionary.Add "流火学院", Array("曙光平原")
  3.                                                                                     MapPlaceDictionary.Add "磐地学院", Array("曙光平原")
  4.                                                                                     MapPlaceDictionary.Add "沉睡森林", Array("精灵城", "云麓山脉")
  5.                                                                                     MapPlaceDictionary.Add "云麓山脉", Array("沉睡森林", "守护之地")
  6.                                                                                     MapPlaceDictionary.Add "守护之地", Array("云麓山脉", "古城遗迹")
  7.                                                                                     MapPlaceDictionary.Add "古城遗迹", Array("守护之地")
  8.                                                                                     '//
  9.                                                                                     Function WayToPlace(ByVal PlaceSource, ByVal PlaceDes, ByVal BackWayPlace)
  10.                                                                                     Dim ArrayOfPath, PlaceCount, Pla0ceArrayOfWayTo,ReachPlace
  11.                                                                                     Dim lpa, PlaceWayTo
  12.                                                                                     如果表达式 (MapPlaceDictionary.Exists(PlaceSource) Then) 为真,则
  13.                                                                                         PlaceArrayOfWayTo = MapPlaceDictionary.Item(PlaceSource)
  14.                                                                                         '//MsgBox PlaceArrayOfWayTo(0),0,UBound(PlaceArrayOfWayTo)
  15.                                                                                     否则
  16.                                                                                         Exit Function
  17.                                                                                         End If
  18.                                                                                         lpa=0
  19.                                                                                         PlaceCount = 0
  20.                                                                                         ReachPlace = False
  21.                                                                                         如果表达式 (PlaceSource = PlaceDes Then) 为真,则
  22.                                                                                             ReachPlace = True
  23.                                                                                             End If
  24.                                                                                             如果表达式 (lpa<=UBound(PlaceArrayOfWayTo) And Not(ReachPlace)) 为真,则循环执行
  25.                                                                                                 如果表达式 (PlaceArrayOfWayTo(lpa)<>BackWayPlace Then) 为真,则
  26.                                                                                                     ArrayOfPath = WayToPlace(PlaceArrayOfWayTo(lpa), PlaceDes, PlaceSource)
  27.                                                                                                     End If
  28.                                                                                                     如果表达式 (Not(IsEmpty(ArrayOfPath)) Then) 为真,则
  29.                                                                                                         ReachPlace = True
  30.                                                                                                         End If
  31.                                                                                                         lpa=lpa+1
  32.                                                                                                         Wend
  33.                                                                                                         如果表达式 (ReachPlace Then) 为真,则
  34.                                                                                                             如果表达式 (IsEmpty(ArrayOfPath) Then) 为真,则
  35.                                                                                                                 WayToPlace = Array(PlaceSource)
  36.                                                                                                             否则
  37.                                                                                                                 WayToPlace = JoinArray(Array(PlaceSource),ArrayOfPath)
  38.                                                                                                                 End If
  39.                                                                                                                 End If
  40.                                                                                                                 End Function
  41.                                                                                                                 '//
  42.                                                                                                                 Function JoinArray(ByVal Array1, ByVal Array2)
  43.                                                                                                                 Dim NewArrUbound, NewArr()
  44.                                                                                                                 如果表达式 (IsArray(Array1) And IsArray(Array2) Then) 为真,则
  45.                                                                                                                     NewArrUbound = UBound(Array1)+UBound(Array2)+1
  46.                                                                                                                     ReDim NewArr(NewArrUbound)
  47.                                                                                                                     循环 li=0 To NewArrUbound Step 1 遍
  48.                                                                                                                         如果表达式 (li<=UBound(Array1) Then) 为真,则
  49.                                                                                                                             NewArr(li) = Array1(li)
  50.                                                                                                                         否则
  51.                                                                                                                             NewArr(li) = Array2(li-UBound(Array1)-1)
  52.                                                                                                                             End If
  53.                                                                                                                             Next
  54.                                                                                                                             JoinArray = NewArr
  55.                                                                                                                         否则
  56.                                                                                                                             End If
  57.                                                                                                                             Erase NewArr
  58.                                                                                                                             End Function
  59.                                                                                                                         结束VBScript块
  60.                                                                                                                     子程序结束,回到调用处
  61.                                                                                                                     //---------------------------------------------------------------
  62.                                                                                                                     //
  63.                                                                                                                     //---------------------------------------------------------------
  64.                                                                                                                     子程序 移动到下一个地图
  65.                                                                                                                         Dim CurPlace, LastColorRec, MvColorRec, Tmpli, Tmplj, TmpP, EdgArr
  66.                                                                                                                         CurPlace = place
  67.                                                                                                                         LastColorRec = ""
  68.                                                                                                                         MvColorRec = ""
  69.                                                                                                                         Tmpli = 0
  70.                                                                                                                         Tmplj = 0
  71.                                                                                                                         TmpP = 0
  72.                                                                                                                         EdgArr = Array(0,0)
  73.                                                                                                                         如果表达式 (GoPlaceTimeArr(2)>180000) 为真,则
  74.                                                                                                                             //以下操作3分钟仍没到下个地图.重置计时,重走路点.
  75.                                                                                                                             GoPlaceTimeArr(2)=0
  76.                                                                                                                         条件结束
  77.                                                                                                                         //当战斗时退出循环...
  78.                                                                                                                         如果表达式 (fighting<=0 And CurPlace<>GToPlace And ColorCompare(GetPixelColor(623,151),"C6CBFF",15) And GoPlaceTimeArr(2)<180000) 为真,则循环执行
  79.                                                                                                                             //If fighting<=0 And CurPlace<>GToPlace And ColorCompare(GetPixelColor(623,151),"C6CBFF",15) And GoPlaceTimeArr(2)<180000
  80.                                                                                                                             调用插件命令 GoPlaceTimeArr(0) = GetSysInfo.GetTime()
  81.                                                                                                                             //
  82.                                                                                                                             //检查角色是否正在移动
  83.                                                                                                                             MvColorRec = GetPixelColor(496,698) & GetPixelColor(939,698)
  84.                                                                                                                             如果表达式 (LastColorRec=MvColorRec) 为真,则
  85.                                                                                                                                 LastColorRec = MvColorRec
  86.                                                                                                                                 //静止移动时操作移动
  87.                                                                                                                                 //
  88.                                                                                                                                 //按照有效移动时间计算当前路点
  89.                                                                                                                                 Tmplj = 0
  90.                                                                                                                                 TmpP = 0
  91.                                                                                                                                 RndAng = 6.2831853*Rnd
  92.                                                                                                                                 如果表达式 (Tmplj<UBound(lRoadPointArr)) 为真,则循环执行
  93.                                                                                                                                     如果表达式 (lRoadPointArr(TmpP)<=GoPlaceTimeArr(2)) 为真,则
  94.                                                                                                                                         TmpP = Tmplj
  95.                                                                                                                                     条件结束
  96.                                                                                                                                     Tmplj = Tmplj+3
  97.                                                                                                                                 循环结束
  98.                                                                                                                                 //
  99.                                                                                                                                 //点击小地图上的每一个路点
  100.                                                                                                                                 鼠标移到 lRoadPointArr(TmpP+1) , lRoadPointArr(TmpP+2)