1.     如果 (220,128) 的颜色不等于 #99ccdd 则
  2.         延时500毫秒
  3.         按键<F8>
  4.         延时200毫秒
  5.     否则
  6.     条件结束
  7. 子程序结束,回到调用处
  8. 子程序 拒绝请求
  9.     调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
  10.     如果表达式 (x>=0 and y>=0) 为真,则
  11.         鼠标移到 x+5 , y+3
  12.         延时200毫秒
  13.         左键单击
  14.     条件结束
  15. 子程序结束,回到调用处
  16. 子程序 防御
  17.     如果 (283,107) 的颜色不等于 #5566ff 则
  18.         延时1000毫秒
  19.         按键`
  20.         延时1000毫秒
  21.         鼠标移到 294 , 439
  22.         延时1000毫秒
  23.         左键单击
  24.         延时1000毫秒
  25.         按键`
  26.         延时30000毫秒
  27.         跳转到标记 继续挖矿
  28.     否则
  29.     条件结束
  30. 子程序结束,回到调用处
  31. 子程序 叫卖
  32.     按键<Enter>
  33.     延时500毫秒
  34.     SayExpression mai
  35.     延时300毫秒
  36.     按键<Enter>
  37. 子程序结束,回到调用处
  38. 子程序 丢垃圾
  39.     延时500毫秒
  40.     按键<B>
  41.     延时500毫秒
  42.     调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
  43.     如果表达式 (x>=0 and y>=0) 为真,则
  44.         鼠标移到 x+195 , y+200
  45.         保存鼠标位置
  46.     条件结束
  47.     bao1=x-45
  48.     bao2=y+168
  49.     bao3=x+193
  50.     bao4=y+340
  51.     延时1000毫秒
  52.     调用子程序 丢
  53.     鼠标滚轮滚动 -7
  54.     延时1000毫秒
  55.     调用子程序 丢
  56.     鼠标滚轮滚动 -7
  57.     延时1000毫秒
  58.     调用子程序 丢
  59.     鼠标滚轮滚动 14
  60.     延时1000毫秒
  61.     按键<B>
  62.     延时2000毫秒
  63.     子程序 丢
  64.         i=0
  65.         循环 3 遍
  66.             标记 是否还有
  67.             x=-1
  68.             y=-1
  69.             调用外部VBScript子程序 xi=得到指定点的颜色(885,221)
  70.             如果表达式 (x>=0 and y>=0) 为真,则
  71.                 鼠标移到 x+5 , y+5
  72.                 延时200毫秒
  73.                 左键单击
  74.                 延时200毫秒
  75.                 鼠标移到 130 , 215
  76.                 延时200毫秒
  77.                 左键单击
  78.                 延时500毫秒
  79.                 恢复鼠标位置
  80.                 跳转到标记 是否还有
  81.             条件结束
  82.             i=i+1
  83.         循环结束
  84.         延时200毫秒
  85.     子程序结束,回到调用处
  86. 子程序结束,回到调用处
  87. 循环 1 遍
  88. 循环结束