1.     脚本停止运行
  2. 条件结束
  3. 条件结束
  4. 标记 再次寻找
  5. 延时2500毫秒
  6. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  7. 如果表达式 (x>0 and y>0) 为真,则
  8.     Str="找到资源，开始采集"
  9.     调用子程序 日志记录
  10.     鼠标移到 x , y
  11.     延时100毫秒
  12.     左键单击
  13. 否则
  14.     Str="未再次找到资源，尝试重新寻找”
  15.     调用子程序 日志记录
  16. 条件结束
  17. 延时1500毫秒
  18. 标记 检查状态
  19. 如果 (500,563) 的颜色大约等于 #804800 则
  20.     //已改
  21.     Str="正在采集…………"
  22.     调用子程序 日志记录
  23.     延时Jg*1000毫秒
  24.     跳转到标记 检查状态
  25. 否则
  26.     调用子程序 喝体力药
  27.     延时100毫秒
  28.     调用子程序 筛材料
  29.     延时100毫秒
  30.     调用子程序 检查包满
  31.     延时1000毫秒
  32.     跳转到标记 开始采集
  33. 条件结束
  34. 脚本停止运行
  35. //----------------------[主程序完结]-------
  36. 子程序 喝体力药
  37.     延时100毫秒
  38.     按住<Alt>
  39.     延时100毫秒
  40.     按键<E>
  41.     延时100毫秒
  42.     弹起<Alt>
  43.     延时1000毫秒
  44.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  45.     如果表达式 (x>0 and y>0) 为真,则
  46.         Str="采集中断，吃"&geshu&"个药水"
  47.         调用子程序 日志记录
  48.         鼠标移到 x , y
  49.         延时100毫秒
  50.         右键单击
  51.         延时100毫秒
  52.     否则
  53.         Str="未找到宠物药去卖矿"
  54.         调用子程序 日志记录
  55.         调用子程序 卖矿
  56.         Str="卖矿完毕，继续采集!!!!!!!"
  57.         调用子程序 日志记录
  58.         跳转到标记 开始采集
  59.     条件结束
  60.     按键<Esc>
  61. 子程序结束,回到调用处
  62. 子程序 筛材料
  63.     Str="开始筛选材料"
  64.     调用子程序 日志记录
  65.     延时100毫秒
  66.     按住<Alt>
  67.     延时100毫秒
  68.     按键<E>
  69.     延时100毫秒
  70.     弹起<Alt>
  71.     延时1000毫秒
  72.     如果 (bx,by) 的颜色大约等于 #cob 则
  73.         Str="包裹已打开"
  74.         调用子程序 日志记录
  75.     否则
  76.         Str="包裹未打开，准备打开"
  77.         调用子程序 日志记录
  78.         x10=bbx+60:y10=bby+160
  79.         鼠标移到 x10 , y10
  80.         延时1000毫秒
  81.         左键双击
  82.         延时100毫秒
  83.     条件结束
  84.     延时100毫秒
  85.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  86.     i=d1
  87.     如果表达式 (i<d2+1) 为真,则循环执行
  88.         循环 3 遍
  89.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  90.             如果表达式 (x>0 and y>0) 为真,则
  91.                 鼠标移到 x , y
  92.                 延时100毫秒
  93.                 左键按下
  94.                 yx=(bx-x)/100:yy=(by+280-y)/100
  95.                 循环 100 遍
  96.                     鼠标相对移动 yx , yy
  97.                     延时1毫秒
  98.                 循环结束
  99.                 延时23毫秒
  100.                 延时500毫秒