dim t dim t2 dim t3 t2=now VBSCall FindPic(0,0,1024,768,"Attachment:\定位点.BMP",0.8,x,y) Beep Delay 1000 Beep //取得定位点 Gosub 检查背包 Rem 开始 Gosub 死亡回城 //Gosub 窗口状态 //======================加状态技能部分====================== IfColor x+629,y+17,0,1 //检查状态是否存在(这里抓的是游侠的罡气技能) KeyPress 54,1 //加第一个状态技能 Delay 1000 KeyPress 55,1 //加第二个状态技能(按键7) Delay 1000 KeyPress 56,1 //加第三个状态技能(按键8) Delay 1000 Else Delay 20 EndIf //===========================结束=========================== //=======================检查背包部分======================= If datediff("s",t2,now)>=1800 //如果时间超过30分钟,开始检查背包 Rem 检查背包 KeyPress 66,1 Delay 1000 Gosub 扔掉配方 //下面是等待配方消失,大约130秒 t=now Rem 不拾取攻击 IfColor x+228,y+24,566bff,2 //检查是否选中怪 Gosub 攻击 Else Rem 寻怪_1 KeyPress 9,1 Delay 500 //按tab选怪,可根据不同ping值调整延迟时间 Goto 判断抢怪_1 EndIf Rem 判断抢怪_1 IfColor x+334,y+24,566bff,2 //如果怪物满血 Gosub 攻击 Else Goto 寻怪_1 EndIf If datediff("s",t,now)>=130 //如果间隔时间大于等于130秒 For 5 Gosub 加血 Gosub 拾取物品 Delay 1000 EndFor //花大约10秒拾取刚才没有拾取的物品 t2=now //重新计算检查背包计时 Goto 开始 Else t2=now //重新计算检查背包计时 Goto 不拾取攻击 EndIf Else Delay 10 EndIf //===========================结束=========================== //=======================普通攻击部分======================= IfColor x+228,y+24,566bff,2 //检查是否选中怪 Gosub 攻击 Gosub 拾取物品 Else Rem 寻怪 KeyPress 9,1 Delay 500 //按tab选怪,可根据不同ping值调整延迟时间 EndIf Rem 判断抢怪 Delay 200 IfColor x+334,y+24,566bff,2 //如果怪物满血 Gosub 攻击 Gosub 拾取物品 Else Goto 寻怪 EndIf Goto 开始 //===========================结束=========================== //===========================结束=========================== //*******下面是攻击子程序*******