1.                 如果表达式 (intX2>=0 and intY2>=0) 为真,则
  2.                     如果表达式 (intY2-intY>=20) 为真,则
  3.                         //近距离
  4.                         JL=0
  5.                     否则
  6.                         //中距离
  7.                         JL=1
  8.                     条件结束
  9.                 否则
  10.                     //远距离
  11.                     JL=2
  12.                 条件结束
  13.             条件结束
  14.         否则
  15.             JL=3
  16.         条件结束
  17.     条件结束
  18. 子程序结束,回到调用处
  19. 子程序 找自己
  20.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  21.     如果表达式 (intX>=0 and intY>=0) 为真,则
  22.         跳转到标记 结束找自己
  23.     否则
  24.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  25.         如果表达式 (intX>=0 and intY>=0) 为真,则
  26.             跳转到标记 结束找自己
  27.         否则
  28.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  29.             如果表达式 (intX>=0 and intY>=0) 为真,则
  30.                 跳转到标记 结束找自己
  31.             否则
  32.             条件结束
  33.         条件结束
  34.     条件结束
  35.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  36.     如果表达式 (intX>=0 and intY>=0) 为真,则
  37.         跳转到标记 结束找自己
  38.     否则
  39.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  40.         如果表达式 (intX>=0 and intY>=0) 为真,则
  41.             跳转到标记 结束找自己
  42.         否则
  43.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  44.             如果表达式 (intX>=0 and intY>=0) 为真,则
  45.                 跳转到标记 结束找自己
  46.             否则
  47.             条件结束
  48.         条件结束
  49.     条件结束
  50.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  51.     如果表达式 (intX>=0 and intY>=0) 为真,则
  52.         跳转到标记 结束找自己
  53.     否则
  54.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  55.         如果表达式 (intX>=0 and intY>=0) 为真,则
  56.             跳转到标记 结束找自己
  57.         否则
  58.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  59.             如果表达式 (intX>=0 and intY>=0) 为真,则
  60.                 跳转到标记 结束找自己
  61.             否则
  62.             条件结束
  63.         条件结束
  64.     条件结束
  65.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  66.     如果表达式 (intX>=0 and intY>=0) 为真,则
  67.         跳转到标记 结束找自己
  68.     否则
  69.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  70.         如果表达式 (intX>=0 and intY>=0) 为真,则
  71.             跳转到标记 结束找自己
  72.         否则
  73.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(461,314,473,330,"78DABE",1,0.9,intX,intY)
  74.             如果表达式 (intX>=0 and intY>=0) 为真,则
  75.                 跳转到标记 结束找自己
  76.             否则
  77.             条件结束
  78.         条件结束
  79.     条件结束
  80.     标记 结束找自己
  81. 子程序结束,回到调用处
  82. 子程序 备用充电
  83.     调用子程序 找自己
  84.     如果表达式 (intX>=0 and intY>=0) 为真,则
  85.     否则
  86.         跳转到标记 结束备用充电
  87.     条件结束
  88.     鼠标移到 intX+50 , intY+130
  89.     硬件模拟鼠标相对移动 -10 , 3
  90.     延时100毫秒
  91.     右键单击
  92.     延时1200毫秒
  93.     鼠标移到 intX+80 , intY+180
  94.     硬件模拟鼠标相对移动 -10 , -4
  95.     延时100毫秒
  96.     左键单击
  97.     延时1000毫秒
  98.     鼠标移到 520 , 354
  99.     延时100毫秒
  100.     左键单击