1.             左键单击
  2.         条件结束
  3.         如果表达式 (fighting=-1) 为真,则
  4.             //游戏Loading
  5.             延时2000毫秒
  6.         条件结束
  7.         如果表达式 (fighting=0) 为真,则
  8.             //非战斗时才找怪
  9.             GoingToPlace = False
  10.             调用子程序 什么地方Sub
  11.             //
  12.             //MapMonCr = Array(0,0)
  13.             如果表达式 (place="樱舞仙境") 为真,则
  14.                 //修正战斗中怪物无法点击错误.
  15.                 MapMonCr = Array(0,-20)
  16.                 //ElseIf place="玉蜂林"
  17.                 // MapMonCr = Array(0,30*Int(2*Rnd))
  18.             条件结束
  19.             //
  20.             //--------------------------------------------
  21.             //如当前地点不是打怪地图,则自动查找路径,并移动打怪地图
  22.             如果表达式 (place<>"" And MonsterPlace<>"" And place<>MonsterPlace) 为真,则
  23.                 //
  24.                 DecPlaceArr = WayToPlace(place, MonsterPlace, "")
  25.                 如果表达式 (debugon=350 And IsArray(DecPlaceArr)) 为真,则
  26.                     MsgBox Join(DecPlaceArr,">"),0,"途经地图"
  27.                 否则如果(debugon=350 And Not(IsArray(DecPlaceArr)))为真,则
  28.                     MsgBox "未找到到达目的地路径",0,"WayToPlace " & place & "," & MonsterPlace
  29.                 条件结束
  30.                 如果表达式 (IsArray(DecPlaceArr)) 为真,则
  31.                     ChangeContent "Tex1", Join(DecPlaceArr,"↓<br>")
  32.                 条件结束
  33.                 //
  34.                 如果表达式 (IsArray(DecPlaceArr)) 为真,则
  35.                     如果表达式 (UBound(DecPlaceArr)>=1) 为真,则
  36.                         //开始移动时记录当前时间
  37.                         如果表达式 (GToPlace<>DecPlaceArr(1) Or GToPlace="") 为真,则
  38.                             GToPlace = DecPlaceArr(1)
  39.                             //MsgBox GToPlace & "|" & DecPlaceArr(1)
  40.                             //与上一次记录须到达地点值不同,则移动开始计时
  41.                             调用插件命令 GoPlaceTimeArr(0) = GetSysInfo.GetTime()
  42.                             调用插件命令 GoPlaceTimeArr(1) = GetSysInfo.GetTime()
  43.                             GoPlaceTimeArr(2) = 0
  44.                         条件结束
  45.                         （VBScript语句） lRoadPointArr = Empty
  46.                         如果表达式 (place="梨阳湖北" And DecPlaceArr(1)="梨阳岛") 为真,则
  47.                             //小地图路点 所需时间,座标XY ...
  48.                             lRoadPointArr = Array(5000,351,332,30000,295,392,180000,337,475)
  49.                             SelectPlace = 1
  50.                         否则如果(place="梨阳湖北" And DecPlaceArr(1)="东玄城")为真,则
  51.                             lRoadPointArr = Array(5000,401,289,600000,584,224)
  52.                             SelectPlace = 0
  53.                         否则如果(place="梨阳岛" And DecPlaceArr(1)="梨阳村")为真,则
  54.                             lRoadPointArr = Array(15000,328,281,600000,280,446)
  55.                             SelectPlace = 0
  56.                         否则如果(place="梨阳岛" And DecPlaceArr(1)="梨阳湖北")为真,则
  57.                             lRoadPointArr = Array(15000,497,408,35000,595,222,600000,793,287)
  58.                             SelectPlace = 1
  59.                         否则如果(place="梨阳岛" And DecPlaceArr(1)="塔克草原")为真,则
  60.                             lRoadPointArr = Array(15000,497,408,35000,595,222,600000,793,287)
  61.                             SelectPlace = 2
  62.                         否则如果(place="梨阳村" And DecPlaceArr(1)="梨阳湖南")为真,则
  63.                             lRoadPointArr = Array(15000,433,363,600000,607,480)
  64.                             SelectPlace = 0
  65.                         否则如果(place="梨阳村" And DecPlaceArr(1)="梨阳岛")为真,则
  66.                             lRoadPointArr = Array(15000,433,363,600000,439,199)
  67.                             SelectPlace = 0
  68.                         否则如果(place="梨阳湖南" And DecPlaceArr(1)="玉蜂林")为真,则
  69.                             lRoadPointArr = Array(15000,421,239,600000,629,436)
  70.                             SelectPlace = 0
  71.                         否则如果(place="梨阳湖南" And DecPlaceArr(1)="梨阳村")为真,则
  72.                             lRoadPointArr = Array(15000,421,239,600000,266,412)
  73.                             SelectPlace = 0
  74.                         否则如果(place="玉蜂林" And DecPlaceArr(1)="君竹古道")为真,则
  75.                             lRoadPointArr = Array(15000,484,266,600000,625,377)
  76.                             SelectPlace = 0
  77.                         否则如果(place="玉蜂林" And DecPlaceArr(1)="梨阳湖南")为真,则
  78.                             lRoadPointArr = Array(15000,484,266,600000,376,199)
  79.                             SelectPlace = 0
  80.                         否则如果(place="塔克草原" And DecPlaceArr(1)="虚空沙海")为真,则
  81.                             lRoadPointArr = Array(18000,393,290,600000,250,285)
  82.                             SelectPlace = 0
  83.                         否则如果(place="塔克草原" And DecPlaceArr(1)="梨阳岛")为真,则
  84.                             lRoadPointArr = Array(10000,393,290,30000,569,370, 600000, 629, 483)
  85.                             SelectPlace = 0
  86.                         否则如果(place="虚空沙海" And DecPlaceArr(1)="塔克草原")为真,则
  87.                             lRoadPointArr = Array(15000,297,278,600000,294,213)
  88.                             SelectPlace = 0
  89.                         否则如果(place="仙朵拉城" And DecPlaceArr(1)="樱舞仙境")为真,则
  90.                             lRoadPointArr = Array(10000,454,389,600000,623,401)
  91.                             SelectPlace = 0
  92.                         否则如果(place="仙朵拉城" And DecPlaceArr(1)="朵拉雪地")为真,则
  93.                             lRoadPointArr = Array(10000,454,389,600000,248,199)
  94.                             SelectPlace = 0
  95.                         否则如果(place="朵拉雪地" And DecPlaceArr(1)="天穹学院")为真,则
  96.                             lRoadPointArr = Array(5000,441,259,600000,621,214)
  97.                             SelectPlace = 0
  98.                         否则如果(place="朵拉雪地" And DecPlaceArr(1)="灵舞学院")为真,则
  99.                             lRoadPointArr = Array(5000,441,259,600000,264,202)
  100.                             SelectPlace = 0