1.             条件结束
  2.         条件结束
  3.         //VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\战斗地图判断.bmp",0.9,zdbintX,zdbintY)
  4.     循环结束
  5.     调用子程序 HPandMP
  6. 子程序结束,回到调用处
  7. //====================结束自动打怪==============================
  8. //====================村长任务==============================
  9. 子程序 村长任务汇总
  10.     标记 村长任务大循环
  11.     jsdt="稻香村"
  12.     调用子程序 检查当前地图
  13.     如果表达式 (ksdt<>jsdt) 为真,则
  14.         调用子程序 自动寻路
  15.     条件结束
  16.     调用子程序 村长任务之领取任务
  17.     调用子程序 村长任务之完成任务
  18.     跳转到标记 村长任务大循环
  19. 子程序结束,回到调用处
  20. 子程序 村长任务之完成任务
  21.     cc=0
  22.     如果表达式 (cc<5) 为真,则循环执行
  23.         调用子程序 清空屏幕对话框
  24.         czX=rw(czrw-1,0)
  25.         czY=rw(czrw-1,1)
  26.         如果表达式 (czrw=10 or czrw=13) 为真,则
  27.             调用子程序 检查当前地图
  28.             如果表达式 (ksdt<>jsdt) 为真,则循环执行
  29.                 调用子程序 自动寻路
  30.                 调用子程序 检查当前地图
  31.             循环结束
  32.         条件结束
  33.         调用子程序 打开小地图
  34.         鼠标移到 czX , czY
  35.         左键单击
  36.         延时100毫秒
  37.         调用子程序 关闭小地图
  38.         ntime=2
  39.         调用子程序 角色是否移动
  40.         调用子程序 自动打怪
  41.         调用子程序 清空屏幕对话框
  42.         鼠标移到 X3+770 , Y3+740
  43.         左键单击
  44.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  45.         调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  46.         如果表达式 (ccbintX>0 or ccaintX>0) 为真,则
  47.             cc=cc+1
  48.         否则
  49.             cc=6
  50.         条件结束
  51.     循环结束
  52. 子程序结束,回到调用处
  53. 子程序 村长任务之领取任务
  54.     标记 领取任务
  55.     调用子程序 清空屏幕对话框
  56.     调用子程序 打开小地图
  57.     鼠标移到 X3+555 , Y3+390
  58.     左键单击
  59.     延时100毫秒
  60.     调用子程序 关闭小地图
  61.     ntime=2
  62.     调用子程序 角色是否移动
  63.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  64.     如果表达式 (rw1intX>0 and rw1intY>0) 为真,则
  65.         鼠标移到 rw1intX , rw1intY
  66.         左键单击
  67.         延时300毫秒
  68.     条件结束
  69.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  70.     如果表达式 (rw2intX>0 and rw2intY>0) 为真,则
  71.         鼠标移到 rw2intX , rw2intY
  72.         左键单击
  73.         延时50毫秒
  74.     条件结束
  75.     调用子程序 清空屏幕对话框
  76.     鼠标移到 X3+770 , Y3+740
  77.     左键单击
  78.     标记 村长任务之跳转一
  79.     调用子程序 村长任务之查看任务列表
  80.     如果表达式 (rwintX>0 and rwintY>0) 为真,则
  81.     否则
  82.         跳转到标记 领取任务
  83.     条件结束
  84. 子程序结束,回到调用处
  85. 子程序 村长任务之查看任务列表
  86.     标记 点击任务列表1
  87.     调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  88.     如果表达式 (ccaintX>0 and ccaintY>0) 为真,则
  89.         鼠标移到 X3+537 , Y3+543
  90.         左键单击
  91.         按住 <Ctrl>
  92.         按键 <A>
  93.         弹起 <Ctrl>
  94.         调用子程序 村长任务之判断任务人
  95.         延时100毫秒
  96.     否则
  97.         循环 5 遍
  98.             调用外部VBScript子程序 在屏幕区域里查找图形(X1,Y1,X2,Y2,"Attachment:\起始定位图片.bmp",0.9,intX,intY)
  99.             如果表达式 (ccbintX>0 and ccbintY>0) 为真,则
  100.                 鼠标移到 ccbintX , ccbintY