If j=1
    Goto 开始捉妖
EndIf 
Delay 100
//如果是奇门
If qimen=1
    VBS stoptime=timer
    If stoptime-starttime>=600
        Plugin Bkgnd.KeyPress(hwnd,48)
        Delay 7000
        VBS starttime=timer
    EndIf 
EndIf 
//加血
IfColor hongx+hong,hongy,hongc,2
    Goto 怪加蓝
Else 
    If jiahong=0
        //按4加红
        Plugin Bkgnd.KeyPress(hwnd,52)
    Else 
        Goto 休息
    EndIf 
EndIf 
Rem 怪加蓝
IfColor lanx+lan,lany,lanc,2
    Goto 怪选怪
Else 
    //按6加蓝
    Plugin Bkgnd.KeyPress(hwnd,54)
EndIf 
Rem 怪选怪
m=m+1
If m>=3
    MoveTo mddx-100,mddy
    Delay 1000
    RightDown 1
    Delay 1000
    MoveTo mddx+150,mddy
    Delay 1000
    RightUp 1
    m=0
    a=a+1
EndIf 
If a>=5
    a=0
    Goto 怪出城刷怪
EndIf 
Delay 1000
//TAB选怪
Plugin Bkgnd.KeyPress(hwnd,9)
Delay 1000
//判断是否满血.不抢怪
IfColor shoux+215,hongy,0000fa,2
    Rem 怪判断打怪
    //取消决斗
    VBSCall FindPic(0,0,w,h,"Attachment:\取消决斗.bmp",0.8,x,y)
    If x>0 and y>0
        MoveTo x,y
        Delay 1000
        LeftClick 1
    EndIf 
    //死亡
    VBSCall FindPic(0,0,w,h,"Attachment:\死亡.bmp",0.8,x,y)
    If x>0 and y>0
        MoveTo x,y
        Delay 1000
        LeftClick 1
        Delay 3000
        Goto 怪回城
    EndIf 
    //判断是否空血
    IfColor shoux+108,hongy,0000fa,2
        m=0
        Delay 100
        Plugin Bkgnd.KeyPress(hwnd,49)
        Delay 1000
        Plugin Bkgnd.KeyPress(hwnd,50)
        Delay 1000
        Plugin Bkgnd.KeyPress(hwnd,51)
        Delay 1000
        Goto 怪判断打怪
    Else 
        //捡物
        If sfjianwu=1
            Plugin Bkgnd.KeyPress(hwnd,90)
            Plugin Bkgnd.KeyPress(hwnd,90)
            Delay 1000
            If zdmai>0
                VBSCall FindPic(0,0,w,h,"Attachment:\包满.bmp",0.8,bmx,bmy)
                If bmx>0 and bmy>0
                    Goto 怪回城
                EndIf 
            EndIf 
            Delay cyjianwu
        EndIf 
        Goto 怪开始刷怪
    EndIf 
Else 
    Goto 怪选怪