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 开始
//===========================结束===========================
//===========================结束===========================
//*******下面是攻击子程序*******