1.                 左键单击
  2.                 延时100毫秒
  3.                 跳转到标记 点击任务列表1
  4.             否则
  5.                 鼠标移到 X3+660 , Y3+430
  6.                 左键单击
  7.                 延时100毫秒
  8.             条件结束
  9.             调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  10.             如果表达式 (ccaintX>0 and ccaintY>0) 为真,则
  11.                 跳转到标记 点击任务列表1
  12.             条件结束
  13.         循环结束
  14.         调用子程序 清空屏幕对话框
  15.     条件结束
  16.     调用子程序 清空屏幕对话框
  17. 子程序结束,回到调用处
  18. 子程序 村长任务之判断任务人
  19.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  20.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  21.         czrw=1
  22.         跳转到标记 任务对象判断结束
  23.     条件结束
  24.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  25.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  26.         czrw=2
  27.         跳转到标记 任务对象判断结束
  28.     条件结束
  29.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  30.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  31.         czrw=3
  32.         跳转到标记 任务对象判断结束
  33.     条件结束
  34.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  35.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  36.         czrw=4
  37.         跳转到标记 任务对象判断结束
  38.     条件结束
  39.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  40.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  41.         czrw=5
  42.         跳转到标记 任务对象判断结束
  43.     条件结束
  44.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  45.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  46.         czrw=6
  47.         跳转到标记 任务对象判断结束
  48.     条件结束
  49.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  50.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  51.         czrw=7
  52.         跳转到标记 任务对象判断结束
  53.     条件结束
  54.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  55.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  56.         czrw=8
  57.         跳转到标记 任务对象判断结束
  58.     条件结束
  59.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  60.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  61.         czrw=9
  62.         跳转到标记 任务对象判断结束
  63.     条件结束
  64.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  65.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  66.         jsdt="李纨小屋"
  67.         czrw=10
  68.         跳转到标记 任务对象判断结束
  69.     条件结束
  70.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  71.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  72.         czrw=11
  73.         跳转到标记 任务对象判断结束
  74.     条件结束
  75.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  76.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  77.         czrw=12
  78.         跳转到标记 任务对象判断结束
  79.     条件结束
  80.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  81.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  82.         jsdt="稻田"
  83.         czrw=13
  84.         跳转到标记 任务对象判断结束
  85.     条件结束
  86.     标记 任务对象判断结束
  87. 子程序结束,回到调用处
  88. //====================结束村长任务==============================
  89. //====================自动寻路==============================
  90. 子程序 自动寻路
  91.     标记 自动寻路开始
  92.     //起始地图。开始ksdt，结束jsdt。
  93.     // **************** ksdt="开始地图":jsdt="结束地图"************
  94.     //b是开始地点所在数组的序列位置、e是结束地点所在数组的序列位置
  95.     b=0:e=0:i=80
  96.     //得到结束地点在数组中的位置
  97.     如果表达式 (i>0) 为真,则循环执行
  98.         如果表达式 (zdxl(i,2)=jsdt) 为真,则
  99.             e=i
  100.             跳转到标记 extWhileA