- 子程序 捡包
- Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
- l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
- 如果表达式 (x0-a1>=a2-x0) 为真,则
- n=a1
- 否则
- n=x0-(a2-x0)
- 条件结束
- 标记 开始搜索
- v=l
- i=m
- x1=x0:y1=y0-v
- 如果表达式 (x1>=n) 为真,则循环执行
- k1=0:k2=v
- 循环 2 遍
- 循环 i 遍
- x1=x1+k1:y1=y1+k2
- 如果表达式 (x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2) 为真,则
- 鼠标移到 x1 , y1
- 延时2毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
- 如果表达式 (shape=d) 为真,则
- 延时50毫秒
- 右键单击
- 延时400毫秒
- 跳转到标记 开始
- 条件结束
- 条件结束
- 循环结束
- k1=v:k2=0
- 循环结束
- i=i+1:v=v*(-1)
- 循环结束
- 跳转到标记 开始
- 子程序结束,回到调用处