//----------------------抓怪-------------------------
Sub 抓怪
    Plugin Window.SendKeyDown(cq,192)
    Delay 32
    Plugin Window.SendKeyUp(cq,192)
Return 
//---------------------打怪--------------------------
Sub 打怪
    Rem 打怪
    Plugin Window.SendKeyDown(cq,49)
    Delay 32
    Plugin Window.SendKeyUp(cq,49)
    Delay 2000
Return 
//--------------------第二次读经验-------------------
Sub 二次读经验
    Plugin jingyan2=Memory.Read16Bit(cq,&h007e85d8)
    If jingyan2=jingyan
        Goto 打怪
    EndIf 
Return 
//----------------------捡物---------------------------
Sub 捡物
    For 3
        Plugin Window.SendKeyDown(cq,32)
        Delay 32
        Plugin Window.SendKeyUp(cq,32)
    EndFor 
Return 
//----------------------开辅助------------------------
Sub 开辅助技能
    If DateDiff("s",t1,now)>=s1
        Delay 10
        Plugin Window.SendKeyDown(cq,key(0))
        Delay 32
        Plugin Window.SendKeyUp(cq,key(0))
        t1=now
    EndIf 
    If DateDiff("s",t2,now)>=s2
        Delay 10
        Plugin Window.SendKeyDown(cq,key(1))
        Delay 32
        Plugin Window.SendKeyUp(cq,key(1))
        t2=now
    EndIf 
    If DateDiff("s",t3,now)>=s3
        Delay 10
        Plugin Window.SendKeyDown(cq,key(2))
        Delay 32
        Plugin Window.SendKeyUp(cq,key(2))
        t3=now
    EndIf 
    Delay 10
Return 
//--------------------等待------------------------
Sub 等待
    Rem 等待
    WaitKey keyd
    If keyd<>35
        //等待按键End
        Goto 等待
    EndIf 
Return