- dim t
- dim t2
- dim t3
- t2=now
- 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\定位点.BMP",0.8,x,y)
- 响一声
- 延时1000毫秒
- 响一声
- //取得定位点
- 调用子程序 检查背包
- 标记 开始
- 调用子程序 死亡回城
- //Gosub 窗口状态
- //======================加状态技能部分======================
- 如果 (x+629,y+17) 的颜色不等于 #0 则
- //检查状态是否存在(这里抓的是游侠的罡气技能)
- 按键<6>
- //加第一个状态技能
- 延时1000毫秒
- 按键<7>
- //加第二个状态技能(按键7)
- 延时1000毫秒
- 按键<8>
- //加第三个状态技能(按键8)
- 延时1000毫秒
- 否则
- 延时20毫秒
- 条件结束
- //===========================结束===========================
- //=======================检查背包部分=======================
- 如果表达式 (datediff("s",t2,now)>=1800) 为真,则
- //如果时间超过30分钟,开始检查背包
- 标记 检查背包
- 按键<B>
- 延时1000毫秒
- 调用子程序 扔掉配方
- //下面是等待配方消失,大约130秒
- t=now
- 标记 不拾取攻击
- 如果 (x+228,y+24) 的颜色大约等于 #566bff 则
- //检查是否选中怪
- 调用子程序 攻击
- 否则
- 标记 寻怪_1
- 按键<Tab>
- 延时500毫秒
- //按tab选怪,可根据不同ping值调整延迟时间
- 跳转到标记 判断抢怪_1
- 条件结束
- 标记 判断抢怪_1
- 如果 (x+334,y+24) 的颜色大约等于 #566bff 则
- //如果怪物满血
- 调用子程序 攻击
- 否则
- 跳转到标记 寻怪_1
- 条件结束
- 如果表达式 (datediff("s",t,now)>=130) 为真,则
- //如果间隔时间大于等于130秒
- 循环 5 遍
- 调用子程序 加血
- 调用子程序 拾取物品
- 延时1000毫秒
- 循环结束
- //花大约10秒拾取刚才没有拾取的物品
- t2=now
- //重新计算检查背包计时
- 跳转到标记 开始
- 否则
- t2=now
- //重新计算检查背包计时
- 跳转到标记 不拾取攻击
- 条件结束
- 否则
- 延时10毫秒
- 条件结束
- //===========================结束===========================
- //=======================普通攻击部分=======================
- 如果 (x+228,y+24) 的颜色大约等于 #566bff 则
- //检查是否选中怪
- 调用子程序 攻击
- 调用子程序 拾取物品
- 否则
- 标记 寻怪
- 按键<Tab>
- 延时500毫秒
- //按tab选怪,可根据不同ping值调整延迟时间
- 条件结束
- 标记 判断抢怪
- 延时200毫秒
- 如果 (x+334,y+24) 的颜色大约等于 #566bff 则
- //如果怪物满血
- 调用子程序 攻击
- 调用子程序 拾取物品
- 否则
- 跳转到标记 寻怪
- 条件结束
- 跳转到标记 开始
- //===========================结束===========================
- //===========================结束===========================
- //*******下面是攻击子程序*******