1. xx=659
  2. yy=296
  3. 调用子程序 gopos
  4. 延时25000毫秒
  5. 调用子程序 找商人
  6. // ==============================================================
  7. i=10
  8. 调用子程序 卖东西
  9. // 交票再来
  10. 鼠标移到 x+50 , y-65
  11. 延时1000毫秒
  12. 左键单击
  13. 延时2000毫秒
  14. 跳转到标记 再来
  15. // ==============================================================
  16. 子程序 买东西
  17.     标记 找包
  18.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  19.     如果表达式 (x>0 and y>0) 为真,则
  20.         延时1000毫秒
  21.     否则
  22.         跳转到标记 找包
  23.     条件结束
  24.     标记 打开商店
  25.     鼠标移到 x+50 , y+9
  26.     延时1000毫秒
  27.     左键单击
  28.     延时3000毫秒
  29.     // 买大米,94银的时候买
  30.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  31.     如果表达式 (x6>0 and y6>0) 为真,则
  32.         鼠标移到 x6-80 , y6-5
  33.         延时500毫秒
  34.     否则
  35.         跳转到标记 打开商店
  36.     条件结束
  37.     标记 买
  38.     左键单击
  39.     // 检查是否操作过快,是否商品列表已经改变
  40.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  41.     如果表达式 (x7>0 and y7>0) 为真,则
  42.         跳转到标记 打开商店
  43.     条件结束
  44.     // 检查是否用完商票,是否买够
  45.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  46.     如果表达式 (x8>0 and y8>0) 为真,则
  47.         延时500毫秒
  48.     否则
  49.         跳转到标记 买
  50.     条件结束
  51. 子程序结束,回到调用处
  52. 子程序 卖东西
  53.     标记 找包1
  54.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  55.     如果表达式 (x>0 and y>0) 为真,则
  56.         延时1000毫秒
  57.     否则
  58.         跳转到标记 找包1
  59.     条件结束
  60.     标记 打开商店1
  61.     鼠标移到 x+50 , y+9
  62.     延时1000毫秒
  63.     左键单击
  64.     延时3000毫秒
  65.     // 卖大米,94银的时候卖
  66.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  67.     如果表达式 (x9>0 and y9>0) 为真,则
  68.         鼠标移到 830 , 455
  69.         延时2000毫秒
  70.     否则
  71.         跳转到标记 打开商店1
  72.     条件结束
  73.     j=0
  74.     循环 i 遍
  75.         j=j+1
  76.         调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  77.         如果表达式 (x10>0 and y10>0) 为真,则
  78.             跳转到标记 打开商店1
  79.         条件结束
  80.         右键单击
  81.         延时1000毫秒
  82.         如果表达式 ((j Mod 5)=0) 为真,则
  83.             鼠标相对移动 -136 , 34
  84.         否则
  85.             鼠标相对移动 34 , 0
  86.         条件结束
  87.         延时2000毫秒
  88.     循环结束
  89. 子程序结束,回到调用处
  90. 子程序 gopos
  91.     按键<Tab>
  92.     标记 区域
  93.     延时2000毫秒
  94.     调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
  95.     如果表达式 (x2>0 and y2>0) 为真,则
  96.         延时1000毫秒
  97.         鼠标移到 xx , yy
  98.         延时1000毫秒
  99.         左键单击
  100.         延时10000毫秒