1.         //初始化角度
  2.         n=0
  3.         //设置第一圈半径
  4.         r=8
  5.         //设置画圆圈数
  6.         循环 8 遍
  7.             如果表达式 (n<3.1415926*2) 为真,则循环执行
  8.                 //画圆公式
  9.                 x=x0+r*cos(n)
  10.                 y=y0-r*sin(n)
  11.                 鼠标移到 x , y
  12.                 延时100毫秒
  13.                 调用外部VBScript子程序 color1=得到指定点的颜色(665,610) //成熟，图标闪动
  14.                 如果表达式 (shape=shape2) 为真,则
  15.                     跳转到标记 收
  16.                 条件结束
  17.                 延时10毫秒
  18.                 //l/r：点距除以半径，取得2点间相对圆心的角度
  19.                 //能有效控制扫描点的密度，2点间的距离就比较平均
  20.                 n=n+l/r
  21.             循环结束
  22.             //画完一圈后重置角度
  23.             n=0
  24.             //画完一圈后半径递增rr
  25.             r=r+rr
  26.             如果表达式 (r=20*7+8) 为真,则
  27.                 如果表达式 (shape<>shape2) 为真,则
  28.                     跳转到标记 全部收完
  29.                 条件结束
  30.             条件结束
  31.         循环结束
  32.         跳转到标记 找作物
  33.         标记 收
  34.         鼠标移到 x , y
  35.         延时256毫秒
  36.         左键按下
  37.         延时100毫秒
  38.         左键弹起
  39.         延时6000毫秒
  40.         // Rem 没收完
  41.         //VBSCall Shape=GetCursorShape(0)
  42.         // IfColor 504 307 78ebfd 2
  43.         //IfColor 505 307 010244 2
  44.         延时50毫秒
  45.         鼠标移到 475 , 310
  46.         左键单击
  47.         延时1000毫秒
  48.         // Goto 收完
  49.         // Else
  50.         延时1000毫秒
  51.         // Goto 没收完
  52.         // EndIf
  53.         // EndIf
  54.         标记 收完
  55.     循环结束
  56.     //Goto 找作物
  57.     标记 全部收完
  58. 子程序结束,回到调用处