1. 按住<Alt>
  2. 按键<Tab>
  3. 弹起<Alt>
  4. 延时20000毫秒
  5. 跳转到标记 到NPC面前
  6. 否则
  7.     延时5毫秒
  8.     跳转到标记 继续
  9. 条件结束
  10. 标记 继续
  11. 延时500毫秒
  12. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  13. 如果表达式 (x>=0 and y>=0) 为真,则
  14.     鼠标移到 x , y
  15.     延时50毫秒
  16.     左键单击
  17.     延时50毫秒
  18.     鼠标移到 44 , 243
  19.     左键单击
  20.     延时50毫秒
  21.     跳转到标记 向下走
  22. 否则
  23.     跳转到标记 点养猪致富
  24. 条件结束
  25. 标记 点养猪致富
  26. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  27. 如果表达式 (x>=0 and y>=0) 为真,则
  28.     鼠标移到 x , y
  29.     延时50毫秒
  30.     左键单击
  31.     延时50毫秒
  32.     鼠标移到 44 , 243
  33.     左键单击
  34.     延时50毫秒
  35.     跳转到标记 向下走
  36. 否则
  37.     跳转到标记 猪崽领取
  38. 条件结束
  39. 标记 猪崽领取
  40. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  41. 如果表达式 (x>=0 and y>=0) 为真,则
  42.     鼠标移到 x , y
  43.     延时50毫秒
  44.     左键单击
  45.     延时50毫秒
  46.     鼠标移到 44 , 243
  47.     左键单击
  48.     延时50毫秒
  49.     跳转到标记 向下走
  50. 否则
  51.     跳转到标记 点后悔有期
  52. 条件结束
  53. 标记 点后悔有期
  54. 延时1000毫秒
  55. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  56. 如果表达式 (x>=0 and y>=0) 为真,则
  57.     鼠标移到 x , y
  58.     延时50毫秒
  59.     左键单击
  60.     跳转到标记 采集
  61. 否则
  62.     跳转到标记 点NPC
  63. 条件结束
  64. 标记 采集
  65. 鼠标移到 938 , 75
  66. 延时50毫秒
  67. 左键单击
  68. 延时50毫秒
  69. 按键<B>
  70. 延时17000毫秒
  71. 按键<B>
  72. 延时3000毫秒
  73. //开始搜索猪圈 （已经跑到采集地点了）
  74. //--------------------------------------------------------对猪圈点第一次
  75. 标记 搜索猪圈
  76. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  77. （VBScript语句） x0=fx/2:n=1:y0=fy/2
  78. 如果表达式 (n<77) 为真,则循环执行
  79.     （VBScript语句） x=x0+4*(cos(n)+n*sin(n))
  80.     （VBScript语句） y=y0+3*(sin(n)-n*cos(n))
  81.     鼠标移到 x , y
  82.     延时100毫秒
  83.     （VBScript语句） n=n+0.8
  84.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  85.     Shape1 = 507365973
  86.     如果表达式 (shape = shape1) 为真,则
  87.         延时1毫秒
  88.         跳转到标记 开始采集
  89.     条件结束
  90.     按键<A>
  91. 循环结束
  92. （VBScript语句） x1=fx/2:n=77:y1=fy/2
  93. 如果表达式 (n>1) 为真,则循环执行
  94.     （VBScript语句） x=x1+4*(cos(n)+n*sin(n))
  95.     （VBScript语句） y=y1+3*(sin(n)-n*cos(n))
  96.     鼠标移到 x , y
  97.     延时100毫秒
  98.     （VBScript语句） n=n-0.8
  99.     Shape1 = 507365973
  100.     如果表达式 (shape = shape1) 为真,则