1.         情况 "甘草":
  2.             令 map = "梅岭"
  3.         情况 "鳄鱼帮打手":
  4.             令 map = "南海"
  5.         情况 "凌忆慈":
  6.             令 map = "琼州"
  7.         情况 "曹延惠":
  8.             令 map = "敦煌"
  9.         情况 "大脸":
  10.             令 map = "剑阁"
  11.         情况 "方光智":
  12.             令 map = "无量山"
  13.         情况 "白景武":
  14.             令 map = "南诏"
  15.         情况 "阿雨":
  16.             令 map = "苗疆"
  17.         情况 "阿支":
  18.             令 map = "石林"
  19.         情况 "简丁":
  20.             令 map = "洱海"
  21.         情况 "古鲁拉":
  22.             令 map = "玉溪"
  23.         情况 "长毛雪怪":
  24.             令 map = "苍山"
  25.         情况 :
  26.             令 map = "镜湖"
  27.         选择结束
  28.     结束VBScript块
  29.     注释：遍历商线地图
  30.     令 k = UBound(MyArray)
  31.     循环 UBound(MyArray) 次
  32.         令 k = k - 1
  33.         令 a = MyArray(k)
  34.         如果 a = map 则
  35.             注释：当前地图赋值
  36.             令 inmap = MyArray(k)
  37.             注释：下一地图赋值
  38.             令 tomap = MyArray(k - 1)
  39.         条件结束
  40.     循环结束
  41.     注释：移动下一地图
  42.     令 dm_ret = dm.FindStr(400,100,800,600,tomap,"ffffff-1b1008",1.0,intX,intY)
  43.     延时 100 毫秒
  44.     dm.moveto(intX + 10,intY + 5)
  45.     延时 100 毫秒
  46.     dm.LeftClick()
  47.     延时 100 毫秒
  48.     dm.LeftClick()
  49.     注释：跑路延时
  50.     延时 5000 毫秒
  51.     注释：加速判断F1
  52.     如果 Varo2 = 1 则
  53.         令 t0 = dm.GetTime()
  54.         令 T = t0 - t1
  55.         如果 T / 1000 - 1 > Varo3 则
  56.             dm.KeyPress(112)
  57.             延时 50 毫秒
  58.             令 t1 = dm.GetTime()
  59.             延时 50 毫秒
  60.         条件结束
  61.     条件结束
  62.     注释：判断进入镜湖地图
  63.     令 dm_ret = dm.FindPic(200,200,800,600,"进入镜湖.bmp","000000",0.9,0,intX,intY)
  64.     如果 intX > 0 并且 intY > 0 则
  65.         dm.moveto(intX + 20,intY + 10)
  66.         延时 100 毫秒
  67.         dm.LeftClick()
  68.         延时 500 毫秒
  69.     条件结束
  70.     注释：判断场景切换
  71.     令 dm_ret = dm.FindPic(200,200,800,600,"场景切换.bmp","000000",0.9,0,intX,intY)
  72.     如果 intX > 0 并且 intY > 0 则
  73.         延时 5000 毫秒
  74.     条件结束
  75.     注释：判断到达目的地
  76.     令 dm_ret = dm.FindPic(0,0,800,600,"城市.bmp","000000",0.9,0,intX,intY)
  77.     如果 intX > 0 并且 intY > 0 则
  78.         延时 1000 毫秒
  79.     否则
  80.         跳转到标记 返回帮派寻路(子程序 返回己方帮派)
  81.     条件结束
  82. 子程序结束
  83. 注释：====================进入己方城市脚本======================
  84. 子程序 进入已方城市()
  85.     令 tomap = MyArray(0)
  86.     令 dm_ret = dm.FindPic(0,0,800,600,"城市.bmp","000000",0.9,0,intX,intY)
  87.     如果 intX > 0 并且 intY > 0 则
  88.         延时 50 毫秒
  89.     否则
  90.     条件结束
  91.     如果 tomap = "城市1" 则
  92.         dm.MoveTo(intX + 90,intY + 10)
  93.         延时 100 毫秒
  94.         dm.LeftClick()
  95.         延时 100 毫秒
  96.     否则如果 tomap = "城市2" 则
  97.         dm.MoveTo(intX + 90,intY + 35)
  98.         延时 100 毫秒
  99.         dm.LeftClick()
  100.         延时 100 毫秒