1.                                                                                     FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
  2.                                                                                     如果表达式 (hyzdX > 0 And hyzdy > 0 Then //有，进入) 为真,则
  3.                                                                                         鼠标移到 hyzdx , hyzdy
  4.                                                                                         延时500 //点击延时毫秒
  5.                                                                                         左键单击
  6.                                                                                         延时1000 //网络延时毫秒
  7.                                                                                         Call ksq() //跳转到子程序开始敲蛋
  8.                                                                                     否则如果(hyzdx < 0 and hyzdy < 0 Then)为真,则
  9.                                                                                         跳转到标记 f
  10.                                                                                         End If
  11.                                                                                         end if
  12.                                                                                         如果表达式 (var1 = 0 Then //用户允许敲蛋) 为真,则
  13.                                                                                             延时1000 //循环延时毫秒
  14.                                                                                             FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
  15.                                                                                             如果表达式 (hyzdX > 0 And hyzdy > 0 Then //有，进入) 为真,则
  16.                                                                                                 鼠标移到 hyzdx , hyzdy
  17.                                                                                                 延时500 //点击延时毫秒
  18.                                                                                                 左键单击
  19.                                                                                                 延时1000 //网络延时毫秒
  20.                                                                                                 Call ksq() //跳转到子程序开始敲蛋
  21.                                                                                             否则如果(hyzdx < 0 and hyzdy < 0 Then)为真,则
  22.                                                                                                 跳转到标记 f
  23.                                                                                                 End If
  24.                                                                                                 end if
  25.                                                                                                 如果表达式 (var1 = 0 Then //用户允许敲蛋) 为真,则
  26.                                                                                                     延时1000 //循环延时毫秒
  27.                                                                                                     FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
  28.                                                                                                     如果表达式 (hyzdX > 0 And hyzdy > 0 Then //有，进入) 为真,则
  29.                                                                                                         鼠标移到 hyzdx , hyzdy
  30.                                                                                                         延时500 //点击延时毫秒
  31.                                                                                                         左键单击
  32.                                                                                                         延时1000 //网络延时毫秒
  33.                                                                                                         Call ksq() //跳转到子程序开始敲蛋
  34.                                                                                                     否则如果(hyzdx < 0 and hyzdy < 0 Then)为真,则
  35.                                                                                                         跳转到标记 f
  36.                                                                                                         End If
  37.                                                                                                         end if
  38.                                                                                                         如果表达式 (var1 = 0 Then //用户允许敲蛋) 为真,则
  39.                                                                                                             延时1000 //循环延时毫秒
  40.                                                                                                             FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
  41.                                                                                                             如果表达式 (hyzdX > 0 And hyzdy > 0 Then //有，进入) 为真,则
  42.                                                                                                                 鼠标移到 hyzdx , hyzdy
  43.                                                                                                                 延时500 //点击延时毫秒
  44.                                                                                                                 左键单击
  45.                                                                                                                 延时1000 //网络延时毫秒
  46.                                                                                                                 Call ksq() //跳转到子程序开始敲蛋
  47.                                                                                                             否则如果(hyzdx < 0 and hyzdy < 0 Then)为真,则
  48.                                                                                                                 跳转到标记 f
  49.                                                                                                                 End If
  50.                                                                                                                 end if
  51.                                                                                                                 如果表达式 (var1 = 0 Then //用户允许敲蛋) 为真,则
  52.                                                                                                                     延时1000 //循环延时毫秒
  53.                                                                                                                     FindPic hyzdx,hyzdy+5,1366,768,"Attachment:\砸蛋标志.bmp",0.6,hyzdx,hyzdy //以上次的坐标为远点检测标志
  54.                                                                                                                     如果表达式 (hyzdX > 0 And hyzdy > 0 Then //有，进入) 为真,则
  55.                                                                                                                         鼠标移到 hyzdx , hyzdy
  56.                                                                                                                         延时500 //点击延时毫秒
  57.                                                                                                                         左键单击
  58.                                                                                                                         延时1000 //网络延时毫秒
  59.                                                                                                                         Call ksq() //跳转到子程序开始敲蛋
  60.                                                                                                                     否则如果(hyzdx < 0 and hyzdy < 0 Then)为真,则
  61.                                                                                                                         跳转到标记 f
  62.                                                                                                                         End If
  63.                                                                                                                         end if
  64.                                                                                                                         //------------------是否进入下一页判断----------------
  65.                                                                                                                         标记 f
  66.                                                                                                                         如果表达式 (var5 > w Then) 为真,则
  67.                                                                                                                             如果表达式 (i > 0 and S < 2 Then) 为真,则
  68.                                                                                                                                 跳转到标记 a
  69.                                                                                                                             否则如果(i = 0 and s >= 2 Then)为真,则
  70.                                                                                                                                 鼠标移到 1000 , 700
  71.                                                                                                                                 延时1000毫秒
  72.                                                                                                                                 Call xyy()
  73.                                                                                                                                 End If
  74.                                                                                                                             否则
  75.                                                                                                                                 Call Plugin.Msg.Tips("用户设置偷好友资源页数已到") //用户提示
  76.                                                                                                                                 Call jss()
  77.                                                                                                                                 End If
  78.                                                                                                                                 End If
  79.                                                                                                                                 End If
  80.                                                                                                                                 子程序 hqjd() //子程序-收获鸡蛋（自己农场)
  81.                                                                                                                                     延时300毫秒
  82.                                                                                                                                     Call Plugin.Msg.Tips("开始收获鸡蛋") //用户提示
  83.                                                                                                                                     FindPic 0,0,1366,768,"Attachment:\jidansh.bmp",0.7,jdsX,jdsY
  84.                                                                                                                                     如果表达式 (jdsX > 0 And jdsY > 0 Then) 为真,则
  85.                                                                                                                                         鼠标移到 jdsx , jdsy
  86.                                                                                                                                         延时200毫秒
  87.                                                                                                                                         左键单击
  88.                                                                                                                                         Call Plugin.Msg.Tips("收获鸡蛋成功")//用户提示
  89.                                                                                                                                     否则
  90.                                                                                                                                         Call Plugin.Msg.Tips("没鸡蛋可收获") //用户提示
  91.                                                                                                                                         End If
  92.                                                                                                                                         End Sub
  93.                                                                                                                                         End Sub
  94.                                                                                                                                         子程序 js() //子程序-浇水
  95.                                                                                                                                             延时500 //延时执行子程序毫秒
  96.                                                                                                                                             Call Plugin.Msg.Tips("开始浇水") //用户提示
  97.                                                                                                                                             FindPic 0,0,1366,768,"Attachment:\点浇水.bmp",0.6,jsx,jsy //判断是否需要浇水
  98.                                                                                                                                             如果表达式 (jsx > 0 And jsy > 0 Then //发现目标) 为真,则
  99.                                                                                                                                                 鼠标移到 jsx+1 , jsy+1
  100.                                                                                                                                                 延时200//浇水延时毫秒