1. 子程序结束,回到调用处
  2. //买药子程序
  3. 子程序 卖物
  4.     延时500毫秒
  5.     鼠标移到 289 , 428
  6.     延时1000毫秒
  7.     左键单击
  8.     延时500毫秒
  9.     鼠标移到 777 , 215
  10.     延时1000毫秒
  11.     调用子程序 过滤1
  12.     循环 8 遍
  13.         延时50毫秒
  14.         鼠标移到 xc+1 , yc+35
  15.         延时200毫秒
  16.         调用子程序 过滤1
  17.     循环结束
  18.     循环 3 遍
  19.         延时50毫秒
  20.         鼠标移到 xc+36 , yc+2
  21.         延时200毫秒
  22.         调用子程序 过滤246
  23.         循环 8 遍
  24.             延时50毫秒
  25.             鼠标移到 xc+1 , yc-33
  26.             延时200毫秒
  27.             调用子程序 过滤246
  28.         循环结束
  29.         延时50毫秒
  30.         鼠标移到 xc+36 , yc+2
  31.         延时200毫秒
  32.         调用子程序 过滤357
  33.         循环 8 遍
  34.             延时50毫秒
  35.             鼠标移到 xc+1 , yc+34.5
  36.             延时200毫秒
  37.             调用子程序 过滤357
  38.         循环结束
  39.     循环结束
  40. 子程序结束,回到调用处
  41. //清包子程序，并调用物品过滤子程序
  42. 子程序 过滤1
  43.     延时50毫秒
  44.     调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  45.     延时50毫秒
  46.     如果 (xc,yc) 的颜色不等于 #4249c6 则
  47.         如果 (xc,yc) 的颜色不等于 #632008 则
  48.             如果 (xc,yc) 的颜色不等于 #c65542 则
  49.                 如果 (xc,yc) 的颜色不等于 #008aad 则
  50.                     如果 (xc,yc) 的颜色不等于 #c6d3ce 则
  51.                         左键单击
  52.                         延时50毫秒
  53.                     条件结束
  54.                 条件结束
  55.             条件结束
  56.         条件结束
  57.     条件结束
  58. 子程序结束,回到调用处
  59. //过滤背包从到下第一排的物品
  60. 子程序 过滤246
  61.     延时50毫秒
  62.     调用外部VBScript子程序 得到鼠标当前位置(xd,yd)
  63.     延时50毫秒
  64.     如果 (xc,yc) 的颜色不等于 #2130de 则
  65.         如果 (xc,yc) 的颜色不等于 #000cde 则
  66.             如果 (xc,yc) 的颜色不等于 #1010a5 则
  67.                 如果 (xc,yc) 的颜色不等于 #842410 则
  68.                     如果 (xc,yc) 的颜色不等于 #d63c63 则
  69.                         如果 (xc,yc) 的颜色不等于 #d6967b 则
  70.                             如果 (xc,yc) 的颜色不等于 #d63829 则
  71.                                 如果 (xc,yc) 的颜色不等于 #d60000 则
  72.                                     如果 (xc,yc) 的颜色不等于 #a52408 则
  73.                                         如果 (xc,yc) 的颜色不等于 #b5cfbd 则
  74.                                             如果 (xc,yc) 的颜色不等于 #425d42 则
  75.                                                 如果 (xc,yc) 的颜色不等于 #84928c 则
  76.                                                     如果 (xc,yc) 的颜色不等于 #42499c 则
  77.                                                         如果 (xc,yc) 的颜色不等于 #315594 则
  78.                                                             如果 (xc,yc) 的颜色不等于 #009ac6 则
  79.                                                                 左键单击
  80.                                                                 延时100毫秒
  81.                                                             条件结束
  82.                                                         条件结束
  83.                                                     条件结束
  84.                                                 条件结束
  85.                                             条件结束
  86.                                         条件结束
  87.                                     条件结束
  88.                                 条件结束
  89.                             条件结束
  90.                         条件结束
  91.                     条件结束
  92.                 条件结束
  93.             条件结束
  94.         条件结束
  95.     条件结束
  96. 子程序结束,回到调用处
  97. //过滤背包246排的物品
  98. 子程序 过滤357
  99.     延时50毫秒
  100.     调用外部VBScript子程序 得到鼠标当前位置(xd,yd)