1.     pic(11)="Attachment:\y11.bmp"
  2.     pic(12)="Attachment:\y12.bmp"
  3.     pic(13)="Attachment:\y13.bmp"
  4.     pic(14)="Attachment:\y14.bmp"
  5.     pic(15)="Attachment:\y15.bmp"
  6. 否则如果(z=0)为真,则
  7.     z1="Attachment:\草药.bmp"
  8.     z2="Attachment:\药罐.bmp"
  9.     pic(0)="Attachment:\c0.bmp"
  10.     pic(1)="Attachment:\c1.bmp"
  11.     pic(2)="Attachment:\c2.bmp"
  12.     pic(3)="Attachment:\c3.bmp"
  13.     pic(4)="Attachment:\c4.bmp"
  14.     pic(5)="Attachment:\c5.bmp"
  15.     pic(6)="Attachment:\c6.bmp"
  16.     pic(7)="Attachment:\c7.bmp"
  17.     pic(8)="Attachment:\c8.bmp"
  18.     pic(9)="Attachment:\c9.bmp"
  19.     pic(10)="Attachment:\c10.bmp"
  20.     pic(11)="Attachment:\c11.bmp"
  21.     pic(12)="Attachment:\c12.bmp"
  22.     pic(13)="Attachment:\c13.bmp"
  23.     pic(14)="Attachment:\c14.bmp"
  24.     pic(15)="Attachment:\c15.bmp"
  25. 条件结束
  26. //------------[赋值完毕]-----------------
  27. 标记 {打开包裹}
  28. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  29. 如果表达式 (bbx=-1 and bby=-1) 为真,则
  30.     按住<Alt>
  31.     延时100毫秒
  32.     按键<E>
  33.     延时100毫秒
  34.     弹起<Alt>
  35.     //打开包裹
  36.     Str="包裹未打开，打开包裹"
  37.     调用子程序 日志记录
  38.     跳转到标记 {打开包裹}
  39. 否则
  40.     Str="物品栏的位置是"&bbx&","&bby&""
  41.     调用子程序 日志记录
  42. 条件结束
  43. 延时100毫秒
  44. 鼠标移到 bbx+60 , bby+160
  45. 延时1000毫秒
  46. 左键双击
  47. 延时2000毫秒
  48. 标记 检查包裹
  49. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  50. //检查包裹是否开启
  51. 如果表达式 (bx>0 and by>0) 为真,则
  52.     Str="包裹的位置是"&bx&","&by&""
  53.     调用子程序 日志记录
  54. 否则
  55.     x10=bbx+60:y10=bby+160
  56.     鼠标移到 x10 , y10
  57.     延时1000毫秒
  58.     左键双击
  59.     延时2000毫秒
  60.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  61.     Str="包裹的颜色是"&cob&""
  62.     调用子程序 日志记录
  63.     延时2000毫秒
  64.     跳转到标记 检查包裹
  65. 条件结束
  66. 延时100毫秒
  67. 鼠标移到 bbx+60 , bby+160
  68. 延时1000毫秒
  69. 左键双击
  70. 延时2000毫秒
  71. 按键<Esc>
  72. //------------[定位完毕]-----------------
  73. 标记 开始采集
  74. 鼠标移到 5 , 31
  75. 延时100毫秒
  76. Str="赋值和定位完毕,准备采集"
  77. 调用子程序 日志记录
  78. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  79. 如果表达式 (x>0 and y>0) 为真,则
  80.     Str="找到资源，走到资源旁边"
  81.     调用子程序 日志记录
  82.     鼠标移到 x-40 , y-20
  83.     延时100毫秒
  84.     左键单击
  85.     跳转到标记 再次寻找
  86. 否则
  87.     Str="找不到资源，尝试自动生成"
  88.     调用子程序 日志记录
  89.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,643,510,"Attachment:\【定位】.bmp",0.9,bbx,bby)
  90.     如果表达式 (kx>0 and ky>0) 为真,则
  91.         鼠标移到 kx , ky
  92.         延时100毫秒
  93.         左键单击
  94.         Str="自动生成成功"
  95.         调用子程序 日志记录
  96.         延时2000毫秒
  97.         跳转到标记 开始采集
  98.     否则
  99.         Str="找不到生矿器，脚本结束"
  100.         调用子程序 日志记录