1.     如果 ditu = "长安" 则
  2.         注释：地图等于长安
  3.     条件结束
  4.     调用 去东市
  5.     标记 走到点(子程序 长安去瑶池)
  6.     调用 识别地图
  7.     如果 x = 485 并且 y = 278 则
  8.         注释：核对坐标485,278BBBB
  9.     条件结束
  10.     调用 修正偏移(593,435)
  11.     延时 yc + 200 毫秒
  12.     令 T进入瑶池 = now
  13.     标记 进入瑶池(子程序 长安去瑶池)
  14.     令 dm_ret = dm.FindStr(0,0,800,627,"瑶池","08f448-000000",1.0,intX,intY)
  15.     如果 intX > 0 并且 intY > 0 则
  16.         注释：进入瑶池
  17.     条件结束
  18.     调用 修正偏移(intX,intY + 9)
  19.     延时 yc + 3000 毫秒
  20.     (语句无法识别，可能有错误): Else//进入瑶池
  21.     如果 DateDiff("s",T进入瑶池,now) > 7 则
  22.         令 T进入瑶池 = now
  23.         跳转到标记 走到点(子程序 长安去瑶池)
  24.     条件结束
  25.     延时 yc + 200 毫秒
  26.     跳转到标记 进入瑶池(子程序 长安去瑶池)
  27.     (语句无法识别，可能有错误): End If //进入瑶池
  28.     (语句无法识别，可能有错误): Else //核对坐标480,275AAA
  29.     调用 写坐标(485,278)
  30.     延时 yc + 4200 毫秒
  31.     跳转到标记 走到点(子程序 长安去瑶池)
  32.     (语句无法识别，可能有错误): End if//核对坐标480,275AAA
  33.     (语句无法识别，可能有错误): Else//地图等于长安
  34.     (语句无法识别，可能有错误): End If//地图等于长安
  35. 子程序结束
  36. 子程序 长安去阳关()
  37.     调用 识别地图
  38.     如果 ditu = "长安" 则
  39.         注释：地图等于长安
  40.     条件结束
  41.     如果 Sqr(abs(x - 256) * abs(x - 256) + abs(y - 22) * abs(y - 22)) < Sqr(abs(x - 480) * abs(x - 480) + abs(y - 275) * abs(y - 275)) 则
  42.         注释：/////查找离那个近
  43.         标记 到长安客栈去(子程序 长安去阳关)
  44.         调用 识别地图
  45.         如果 x = 256 并且 y = 22 则
  46.             注释：核对坐标256,22AAA
  47.         条件结束
  48.         跳转到标记 到长安客栈(子程序 长安去阳关)
  49.         (语句无法识别，可能有错误): Else //核对坐标256,22AAA
  50.         调用 写坐标(256,22)
  51.         延时 yc + 4000 毫秒
  52.         跳转到标记 到长安客栈去(子程序 长安去阳关)
  53.         (语句无法识别，可能有错误): End if//核对坐标256,22AAA
  54.         (语句无法识别，可能有错误): Else///////查找离那个近
  55.         标记 到长安东市去(子程序 长安去阳关)
  56.         调用 识别地图
  57.         如果 x = 480 并且 y = 275 则
  58.             注释：核对坐标256,22AAA
  59.         条件结束
  60.         跳转到标记 走到点(子程序 长安去阳关)
  61.         (语句无法识别，可能有错误): Else //核对坐标256,22AAA
  62.         调用 写坐标(480,275)
  63.         延时 yc + 4000 毫秒
  64.         跳转到标记 到长安东市去(子程序 长安去阳关)
  65.         (语句无法识别，可能有错误): End if//核对坐标256,22AAA
  66.         (语句无法识别，可能有错误): End If///////查找离那个近
  67.         标记 走到点(子程序 长安去阳关)
  68.         如果 x = 480 并且 y = 275 则
  69.             注释：核对坐标480,275AAA
  70.         条件结束
  71.         调用 修正偏移(663,235)
  72.         延时 yc + 500 毫秒
  73.         令 T长安客栈 = now
  74.         标记 长安客栈(子程序 长安去阳关)
  75.         令 dm_ret = dm.FindStr(0,0,800,627,"长安","08f448-000000",1.0,intX,intY)
  76.         如果 intX > 0 并且 intY > 0 则
  77.             注释：进入长安客栈
  78.         条件结束
  79.         调用 修正偏移(intX,intY + 9)
  80.         延时 yc + 3000 毫秒
  81.         令 t到长安客栈 = now
  82.         标记 到长安客栈(子程序 长安去阳关)
  83.         调用 识别地图
  84.         如果 x = 256 并且 y = 22 则
  85.             注释：核对坐标256,22AAA
  86.         条件结束
  87.         调用 修正偏移(265,160)
  88.         延时 yc + 500 毫秒
  89.         令 T阳关 = now
  90.         标记 阳关(子程序 长安去阳关)
  91.         令 dm_ret = dm.FindStr(0,0,800,627,"阳关","08f448-000000",1.0,intX,intY)
  92.         如果 intX > 0 并且 intY > 0 则
  93.             注释：进入阳关
  94.         条件结束
  95.         调用 修正偏移(intX,intY + 9)
  96.         延时 yc + 3000 毫秒
  97.         (语句无法识别，可能有错误): Else//进入阳关
  98.         如果 DateDiff("s",T阳关,now) > 11 则
  99.             令 阳关 = now
  100.             跳转到标记 阳关(子程序 长安去阳关)