- xx=659
- yy=296
- 调用子程序 gopos
- 延时25000毫秒
- 调用子程序 找商人
- // ==============================================================
- i=10
- 调用子程序 卖东西
- // 交票再来
- 鼠标移到 x+50 , y-65
- 延时1000毫秒
- 左键单击
- 延时2000毫秒
- 跳转到标记 再来
- // ==============================================================
- 子程序 买东西
- 标记 找包
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
- 如果表达式 (x>0 and y>0) 为真,则
- 延时1000毫秒
- 否则
- 跳转到标记 找包
- 条件结束
- 标记 打开商店
- 鼠标移到 x+50 , y+9
- 延时1000毫秒
- 左键单击
- 延时3000毫秒
- // 买大米,94银的时候买
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
- 如果表达式 (x6>0 and y6>0) 为真,则
- 鼠标移到 x6-80 , y6-5
- 延时500毫秒
- 否则
- 跳转到标记 打开商店
- 条件结束
- 标记 买
- 左键单击
- // 检查是否操作过快,是否商品列表已经改变
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
- 如果表达式 (x7>0 and y7>0) 为真,则
- 跳转到标记 打开商店
- 条件结束
- // 检查是否用完商票,是否买够
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
- 如果表达式 (x8>0 and y8>0) 为真,则
- 延时500毫秒
- 否则
- 跳转到标记 买
- 条件结束
- 子程序结束,回到调用处
- 子程序 卖东西
- 标记 找包1
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
- 如果表达式 (x>0 and y>0) 为真,则
- 延时1000毫秒
- 否则
- 跳转到标记 找包1
- 条件结束
- 标记 打开商店1
- 鼠标移到 x+50 , y+9
- 延时1000毫秒
- 左键单击
- 延时3000毫秒
- // 卖大米,94银的时候卖
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
- 如果表达式 (x9>0 and y9>0) 为真,则
- 鼠标移到 830 , 455
- 延时2000毫秒
- 否则
- 跳转到标记 打开商店1
- 条件结束
- j=0
- 循环 i 遍
- j=j+1
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
- 如果表达式 (x10>0 and y10>0) 为真,则
- 跳转到标记 打开商店1
- 条件结束
- 右键单击
- 延时1000毫秒
- 如果表达式 ((j Mod 5)=0) 为真,则
- 鼠标相对移动 -136 , 34
- 否则
- 鼠标相对移动 34 , 0
- 条件结束
- 延时2000毫秒
- 循环结束
- 子程序结束,回到调用处
- 子程序 gopos
- 按键<Tab>
- 标记 区域
- 延时2000毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
- 如果表达式 (x2>0 and y2>0) 为真,则
- 延时1000毫秒
- 鼠标移到 xx , yy
- 延时1000毫秒
- 左键单击
- 延时10000毫秒