- 展开附件 .\script *.wav
- dim shj,byongct,bjsound,shg
- 用户定义变量 byongct=2 备用的锄头数目（在装备包从左向右依次排开）
- 用户定义变量 shj=10 检测背包情况间隔 单位"分
- 用户定义变量 shg=15 回挂机点时间间隔 单位"分
- 用户定义变量 bjsound=DropList{波形声音文件报警:1|机箱报警:2} 报警声音选择
- jt=now
- gj=now
- ctnum=0
- 鼠标移到 0 , 0
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1280,767,"Attachment:\主确定.bmp",0.8,zx,zy)
- 如果表达式 (zx>0 and zy>0) 为真,则
- 否则
- msgbox "无法检测到QQ幻想窗口@.@!",16,"检测错误"
- 脚本停止运行
- 条件结束
- 标记 记录挂机点
- 延时200毫秒
- 按住<Alt>
- 延时200毫秒
- 按键<M>
- 延时200毫秒
- 弹起<Alt>
- 延时800毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1280,767,"Attachment:\主确定.bmp",0.8,zx,zy)
- 延时300毫秒
- 如果表达式 (gwzx>0 and gwzy>0) 为真,则
- 延时200毫秒
- 按住<Alt>
- 延时200毫秒
- 按键<M>
- 延时200毫秒
- 弹起<Alt>
- 跳转到标记 search
- 否则
- 延时200毫秒
- 按住<Alt>
- 延时200毫秒
- 按键<M>
- 延时200毫秒
- 弹起<Alt>
- 跳转到标记 记录挂机点
- 条件结束
- 标记 search
- 延时200毫秒
- 如果 (zx-663-53,zy-28-452) 的颜色不等于 #22ffff 则
- 延时200毫秒
- 调用子程序 过神医
- 条件结束
- 延时200毫秒
- jcbbsj=DateDiff("s",jt,now)
- 如果表达式 (jcbbsj>=shj*60) 为真,则
- 调用子程序 检测背包
- jt=now
- 条件结束
- hgjdsj=DateDiff("s",gj,now)
- 如果表达式 (hgjdsj>=shg*60) 为真,则
- 调用子程序 回挂机点
- gj=now
- 条件结束
- 标记 检测状态
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1280,767,"Attachment:\主确定.bmp",0.8,zx,zy)
- 延时200毫秒
- 如果表达式 (x>0 and y>0) 为真,则
- 否则
- 延时200毫秒
- 按住<Alt>
- 延时200毫秒
- 按键<W>
- 延时200毫秒
- 弹起<Alt>
- 延时200毫秒
- 条件结束
- 标记 检测耐久
- 鼠标移到 zx-400 , zy
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1280,767,"Attachment:\主确定.bmp",0.8,zx,zy)
- 如果表达式 (bx>0 and by>0) 为真,则
- 按住<Alt>
- 延时200毫秒
- 按键<I>
- 延时200毫秒
- 弹起<Alt>
- 条件结束
- 延时500毫秒
- 如果 (zx-27,zy-74) 的颜色大约等于 #1122aa 则
- 调用子程序 换锄头
- 条件结束
- 跳转到标记 search
- 子程序 过神医
- 标记 s
- m=1
- 延时1200毫秒
- 如果表达式 (m<=2) 为真,则循环执行
- 延时200毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1280,767,"Attachment:\主确定.bmp",0.8,zx,zy)
- dian=rnd*10
- 如果表达式 (dian>=0 and dian<3+1/3) 为真,则
- 鼠标移到 shx-50 , shy+27
- 条件结束
- 如果表达式 (dian>3+1/3 and dian<(3+1/3)*2) 为真,则