1.         循环开始
  2.             延时 200 毫秒
  3.             令 XY = Bkgnd.FindColor(Hwnd,482,335,530,347,"00FFFF")
  4.             令 ZB = InStr(XY,"|")
  5.             令 X = Clng(Left(XY,ZB - 1))
  6.             令 Y = Clng(Right(XY,Len(XY) - ZB))
  7.             延时 200 毫秒
  8.             如果 X > 0 则
  9.                 延时 fr 毫秒
  10.                 调用 Bkgnd.MoveTo(Hwnd,507,339)
  11.                 调用 Bkgnd.LeftClick(Hwnd,507,339)
  12.                 延时 200 毫秒
  13.             条件结束
  14.             注释：交任务3
  15.             延时 200 毫秒
  16.             令 XY = Bkgnd.FindColor(Hwnd,630,367,632,370,"7D6F04")
  17.             令 ZB = InStr(XY,"|")
  18.             令 X = Clng(Left(XY,ZB - 1))
  19.             令 Y = Clng(Right(XY,Len(XY) - ZB))
  20.             延时 200 毫秒
  21.             如果 X > 0 则
  22.                 延时 200 毫秒
  23.                 调用 Bkgnd.MoveTo(Hwnd,631,368)
  24.                 调用 Bkgnd.LeftClick(Hwnd,631,368)
  25.                 延时 200 毫秒
  26.             条件结束
  27.             注释：交任务5
  28.             延时 200 毫秒
  29.             令 XY = Bkgnd.FindColor(Hwnd,603,306,605,309,"7D6F04")
  30.             令 ZB = InStr(XY,"|")
  31.             令 X = Clng(Left(XY,ZB - 1))
  32.             令 Y = Clng(Right(XY,Len(XY) - ZB))
  33.             延时 200 毫秒
  34.             如果 X > 0 则
  35.                 延时 200 毫秒
  36.                 调用 Bkgnd.MoveTo(Hwnd,604,307)
  37.                 调用 Bkgnd.LeftClick(Hwnd,604,307)
  38.                 延时 200 毫秒
  39.                 跳出循环
  40.             条件结束
  41.             令 JRW = JRW + 1
  42.             如果 JRW = 4 则
  43.                 跳转到标记 交经验任务(子程序 无限经验)
  44.             条件结束
  45.         循环结束
  46.         延时 200 毫秒
  47.         令 XY = Bkgnd.FindColor(Hwnd,824,240,840,245,"FFF000")
  48.         令 ZB = InStr(XY,"|")
  49.         令 X = Clng(Left(XY,ZB - 1))
  50.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  51.         延时 200 毫秒
  52.         如果 X > 0 则
  53.             退出子程序
  54.         条件结束
  55.     循环结束
  56. 子程序结束
  57. 子程序 大地图()
  58.     标记 大地图(子程序 大地图)
  59.     延时 200 毫秒
  60.     令 XY = Bkgnd.FindColor(Hwnd,631,286,651,295,"FFFFFF")
  61.     令 ZB = InStr(XY,"|")
  62.     令 X = Clng(Left(XY,ZB - 1))
  63.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  64.     延时 200 毫秒
  65.     如果 X > 0 则
  66.         延时 200 毫秒
  67.         调用 Bkgnd.MoveTo(Hwnd,642,289)
  68.         调用 Bkgnd.LeftClick(Hwnd,642,289)
  69.         延时 200 毫秒
  70.     否则
  71.         延时 200 毫秒
  72.         调用 Bkgnd.MoveTo(Hwnd,970,482)
  73.         调用 Bkgnd.LeftClick(Hwnd,970,482)
  74.         延时 200 毫秒
  75.         跳转到标记 大地图(子程序 大地图)
  76.     条件结束
  77. 子程序结束