- 延时192毫秒
- 循环结束
- 条件结束
- 标记 有矿
- 按住#pick
- 延时64毫秒
- 弹起#pick
- 延时192毫秒
- 调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
- 如果表达式 (xx<=0) 为真,则
- 调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
- 条件结束
- 如果表达式 (xx>0) 为真,则
- 鼠标移到 xx , yy
- 延时32毫秒
- 循环 2 遍
- 左键按下
- 延时64毫秒
- 左键弹起
- 延时8毫秒
- 循环结束
- 鼠标移到 650 , 384
- 循环 4 遍
- 按住#pick
- 延时64毫秒
- 弹起#pick
- 延时192毫秒
- 循环结束
- 调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
- 如果表达式 (xx1<=0) 为真,则
- 调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
- 条件结束
- 如果表达式 (xx1>0) 为真,则
- xx=xx1:yy=yy1
- 如果表达式 (abs(xx1-xx)<=10) 为真,则
- 调用子程序 挖矿中
- 条件结束
- 条件结束
- 跳转到标记 有矿
- 条件结束
- 子程序结束,回到调用处
- //**********************
- 子程序 挖矿中
- 标记 继续挖矿
- i=0
- 鼠标移到 xx , yy
- 延时32毫秒
- 循环 2 遍
- 左键按下
- 延时64毫秒
- 左键弹起
- 延时8毫秒
- 循环结束
- 鼠标移到 20 , 384
- 循环 2 遍
- 按住#pick
- 延时64毫秒
- 弹起#pick
- 延时192毫秒
- 循环结束
- 调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
- 如果表达式 (xx1<0) 为真,则
- 调用外部VBScript子程序 在屏幕区域里查找颜色(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
- 条件结束
- 如果表达式 (xx1>0) 为真,则
- 跳转到标记 继续挖矿
- 条件结束
- //拣东西
- 调用子程序 捡东西
- 子程序结束,回到调用处
- //***********************
- 子程序 开关地图
- 按住<M>
- 延时512毫秒
- 弹起<M>
- 延时512毫秒
- 子程序结束,回到调用处