1.             //翻页时网络延时，等待1秒。
  2.             调用子程序 yanchi
  3.         否则
  4.             dng=100
  5.         条件结束
  6.     条件结束
  7. 子程序结束,回到调用处
  8. 子程序 [toucai]
  9.     //再查找一次看是否有可偷的菜。
  10.     yjse="FFFFFC"
  11.     调用子程序 [shaomiao]
  12.     如果表达式 (intX>0 or intY >0) 为真,则
  13.         调用子程序 yanchi
  14.         调用插件命令 Bkgnd.KeyPress(HwndEx, 82)
  15.         延时10毫秒
  16.         调用插件命令 Bkgnd.LeftClick(HwndEx, 650, 570)
  17.         延时100毫秒
  18.         调用插件命令 Bkgnd.LeftClick(HwndEx, 295, 203)
  19.         调用子程序 yanchi
  20.         调用子程序 jiankang
  21.     否则
  22.         跳转到标记 bye
  23.     条件结束
  24.     调用子程序 dengdai
  25.     wait=0
  26.     标记 [denghou]
  27.     wait=wait+1
  28.     调用子程序 [shaomiao]
  29.     如果表达式 (intX>0 or intY >0) 为真,则
  30.         延时500毫秒
  31.         如果表达式 (wait>60) 为真,则
  32.             跳转到标记 bye
  33.         条件结束
  34.     否则
  35.         延时600毫秒
  36.         跳转到标记 bye
  37.     条件结束
  38.     跳转到标记 [denghou]
  39.     标记 bye
  40. 子程序结束,回到调用处
  41. 子程序 [shaomiao]
  42.     //查找有无收菜的颜色
  43.     //下面这句按从中间到四周的顺序查找窗口句柄(变量：Hwnd)窗口的指定的矩形区域内指定颜色
  44.     调用插件命令 XY = Bkgnd.FindCenterColor(HwndEx, 905, 144+32*(dng-1), 927, 158+32*(dng-1), yjse)
  45.     //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
  46.     MyArray = Split(XY, "|")
  47.     //下面这句将字符串转换成数值
  48.     intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
  49. 子程序结束,回到调用处
  50. 子程序 dengdai
  51.     Randomize
  52.     dengdai=int((1500 -900 + 1) * rnd + 900)
  53.     延时dengdai毫秒
  54. 子程序结束,回到调用处
  55. 子程序 yanchi
  56.     Randomize
  57.     yanchi=int((500 -300 + 1) * rnd + 300)
  58.     延时yanchi毫秒
  59. 子程序结束,回到调用处
  60. 子程序 [tanchuang]
  61.     调用插件命令 XY = Bkgnd.FindCenterColor(HwndEx,463,387,482,396, "FFFFFF")
  62.     //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
  63.     MyArray = Split(XY, "|")
  64.     //下面这句将字符串转换成数值
  65.     intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
  66.     如果表达式 (intX>0 and intY >0) 为真,则
  67.         调用插件命令 Bkgnd.LeftClick(HwndEx,intX,intY)
  68.         调用子程序 yanchi
  69.     条件结束
  70. 子程序结束,回到调用处
  71. 子程序 [touqu]
  72.     smcs=0
  73.     标记 [youce]
  74.     //再查找一次看是否有可偷的
  75.     调用子程序 [shaomiao]
  76.     如果表达式 (intX>0 or intY >0) 为真,则
  77.         调用插件命令 Bkgnd.KeyPress(HwndEx, 82)
  78.         延时10毫秒
  79.         调用插件命令 Bkgnd.LeftClick(HwndEx,449,521)
  80.         延时100毫秒
  81.         //下面这句按从中间到四周的顺序查找窗口句柄(变量：HwndEx)窗口的指定的矩形区域内指定颜色
  82.         调用插件命令 XY = Bkgnd.FindCenterColor(HwndEx, 515,167, 641, 219, "E9A95B")
  83.         //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
  84.         MyArray = Split(XY, "|")
  85.         //下面这句将字符串转换成数值
  86.         intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
  87.         如果表达式 (intX>0 and intY >0) 为真,则
  88.             调用插件命令 Bkgnd.LeftClick(HwndEx,intX ,intY )
  89.             延时10毫秒
  90.             调用插件命令 Bkgnd.MoveTo(HwndEx,690,480)
  91.             调用子程序 yanchi
  92.             调用子程序 [tanchuang]
  93.         否则
  94.             跳转到标记 [zuoce]
  95.         条件结束
  96.     否则
  97.         跳转到标记 bye
  98.     条件结束
  99.     跳转到标记 [youce]
  100.     标记 [zuoce]