- 如果表达式 (dkX>0 and dkY>0) 为真,则
- //确认是否找到,防止NPC被人挡住产生误动作
- 跳转到标记 开始补充
- 否则
- 跳转到标记 没找到仓库NPC
- 条件结束
- 否则
- 标记 没找到仓库NPC
- no_npc=no_npc+1
- 如果表达式 (no_npc>50) 为真,则
- 按键#kjjF6
- 延时3000毫秒
- savestring="转5圈仍找不到仓库,出错重新回城寻找。。。"
- 调用子程序 写入日志
- no_npc=0
- no_npc2=no_npc2+1
- 如果表达式 (huchengD=3) 为真,则
- 跳转到标记 回柳善
- 否则
- 跳转到标记 寻找仓库
- 条件结束
- 条件结束
- 如果表达式 (no_npc2>=fuN) 为真,则
- savestring="寻找仓库出现异常,停止挂机。。。"
- 调用子程序 写入日志
- 跳转到标记 停止挂机
- 条件结束
- 鼠标移到 fx , fy
- 保存鼠标位置
- 鼠标移到 0 , 384
- 延时300毫秒
- 恢复鼠标位置
- 延时64毫秒
- //换个方向继续寻找
- 跳转到标记 寻找仓库
- 条件结束
- 标记 开始补充
- savestring="找到仓库。。。"
- 调用子程序 写入日志
- dki=0
- 标记 点开仓库
- 鼠标移到 510 , 464+dki
- 延时128毫秒
- 左键单击
- 延时512毫秒
- dki=dki+1
- 如果表达式 (dki>5) 为真,则
- dki=0
- 条件结束
- 调用外部VBScript子程序 Call 运行一个外部程序("Shutdown.exe -s -t 30")
- //再次检查仓库是否被打开
- 如果表达式 (dkX>0 and dkY>0) 为真,则
- 跳转到标记 点开仓库
- //没打开,继续点
- 条件结束
- ge=0:pai=0
- 标记 存物品
- savestring="存入物品。。。"
- 调用子程序 写入日志
- 循环 5 遍
- ge=0
- 循环 6 遍
- wu_x=33*ge+812
- wu_y=33*pai+402
- 如果 (600,543) 的颜色大约等于 #081810 则
- 如果 (wu_x,wu_y) 的颜色大约等于 #081410 则
- //第3排开始检查,如果该格无物品,去取药
- 跳转到标记 取药
- 条件结束
- 调用外部VBScript子程序 Call 运行一个外部程序("Shutdown.exe -s -t 30")
- 如果表达式 (ws_x>0 and ws_y>0) 为真,则
- //如果该格物品为五色,跳过
- ge=ge+1
- //横格依次加1
- 否则
- 鼠标移到 wu_x , wu_y
- 延时128毫秒
- 左键单击
- 延时512毫秒
- 鼠标移到 600 , 543
- 延时512毫秒
- 左键单击
- 延时512毫秒
- 鼠标移到 700 , 390
- 延时512毫秒
- ge=ge+1
- //下一格
- 条件结束
- 否则
- savestring="个人仓库满,停止挂机。。。"
- 调用子程序 写入日志
- 跳转到标记 停止挂机
- 条件结束
- 循环结束
- pai=pai+1
- //下一排
- 循环结束
- //存完,去取药
- 延时1000毫秒
- 标记 取药