1.             如果表达式 (x2>=0 and y2>=0) 为真,则
  2.                 鼠标移到 i , j
  3.                 延时32毫秒
  4.                 左键单击
  5.                 i="":j=""
  6.             条件结束
  7.         条件结束
  8.     条件结束
  9. 子程序结束,回到调用处
  10. 子程序 捡蓝水晶
  11.     如果表达式 (zidongjianwu=1) 为真,则
  12.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  13.         如果表达式 (x1>=0 and y1>=0) 为真,则
  14.             k=x1:l=y1
  15.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  16.             如果表达式 (x2>=0 and y2>=0) 为真,则
  17.                 鼠标移到 k , l
  18.                 延时32毫秒
  19.                 左键单击
  20.                 k="":l=""
  21.             条件结束
  22.         条件结束
  23.     条件结束
  24. 子程序结束,回到调用处
  25. 子程序 捡聚态水晶
  26.     如果表达式 (zidongjianwu=1) 为真,则
  27.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  28.         如果表达式 (x1>=0 and y1>=0) 为真,则
  29.             q=x1:r=y1
  30.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  31.             如果表达式 (x2>=0 and y2>=0) 为真,则
  32.                 鼠标移到 g , h
  33.                 延时32毫秒
  34.                 左键单击
  35.                 q="":r=""
  36.             条件结束
  37.         条件结束
  38.     条件结束
  39. 子程序结束,回到调用处
  40. 子程序 检测xp
  41.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  42.     如果表达式 (x>=0 and y>=0) 为真,则
  43.         调用子程序 xp1
  44.         调用子程序 xp2
  45.         调用子程序 xp3
  46.     条件结束
  47. 子程序结束,回到调用处
  48. 子程序 xp1
  49.     如果表达式 (xp=1) 为真,则
  50.         鼠标移到 935 , 540
  51.         延时32毫秒
  52.         左键单击
  53.     条件结束
  54. 子程序结束,回到调用处
  55. 子程序 xp2
  56.     如果表达式 (xp=2) 为真,则
  57.         鼠标移到 881 , 547
  58.         延时32毫秒
  59.         左键单击
  60.     条件结束
  61. 子程序结束,回到调用处
  62. 子程序 xp3
  63.     如果表达式 (xp=3) 为真,则
  64.         鼠标移到 812 , 551
  65.         延时32毫秒
  66.         左键单击
  67.     条件结束
  68. 子程序结束,回到调用处
  69. 子程序 无弹回城
  70.     如果表达式 (zhiye=1) 为真,则
  71.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  72.         如果表达式 (x<0 and y<0) 为真,则
  73.             延时32毫秒
  74.             d=d+1
  75.             如果表达式 (d=6) 为真,则
  76.                 按键<F8>
  77.             条件结束
  78.         条件结束
  79.     条件结束
  80. 子程序结束,回到调用处
  81. 子程序 拒绝交易
  82.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  83.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  84.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  85.     如果表达式 (x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0) 为真,则
  86.         鼠标移到 312 , 390
  87.         延时32毫秒
  88.         左键单击
  89.     条件结束
  90. 子程序结束,回到调用处
  91. 子程序 同意组队
  92.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  93.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(85,140,855,480,"303b8",1,0.8,x,y)
  94.     如果表达式 (x1>=0 and y1>=0 and x2>=0 and y2>=0) 为真,则
  95.         鼠标移到 223 , 394
  96.         延时32毫秒
  97.         左键单击
  98.     条件结束
  99. 子程序结束,回到调用处
  100. 子程序 关闭推荐任务