Delay 2000
            IfColor shoux+155,hongy,0000fa,2
            Else 
                Goto 捉妖
            EndIf 
            Goto 判断打怪
        Else 
            Rem 捉妖
            //按7键捉
            Plugin Bkgnd.KeyPress(hwnd,55)
            Delay 1000
            //没镜子了回城
            VBSCall FindPic(0,0,w,h,"Attachment:\照妖镜用完.bmp",0.8,zyjx,zyjy)
            //包满了就回城
            VBSCall FindPic(0,0,w,h,"Attachment:\包满.bmp",0.8,bmx,bmy)
            VBSCall FindPic(0,0,w,h,"Attachment:\不可捉.bmp",0.8,bkzx,bkzy)
            //R标记,是包满回城就只买一个照妖镜
            If bmx>0 and bmy>0
                r=1
                Goto 回城
            EndIf 
            If zyjx>0 and zyjy>0
                VBSCall FindPic(shoux+208,shouy+169,shoux+393,shouy+359,"Attachment:\照妖镜图.bmp",0.8,x,y)
                If x>0 and y>0
                    MoveTo x,y
                    Delay 500
                    LeftClick 1
                    Delay 6000
                    Goto 判断打怪
                Else 
                    r=3
                    Goto 回城
                EndIf 
            EndIf 
            If bkzx>0 and bkzy>0
                Goto 怪判断打怪
            EndIf 
            Delay 3000
            IfColor shoux+248,shouy+475,089a9f,2
            Else 
                Goto 判断打怪
            EndIf 
            Delay 3000
            Goto 判断打怪
        EndIf 
    Else 
        Goto 开始捉妖
    EndIf 
Else 
    Goto 选怪
EndIf 
//回城部份
Rem 回城
Delay 100
//打开大地图
Plugin Bkgnd.KeyPress(hwnd,77)
Delay 2000
MoveTo shoux+467,shouy+89
LeftClick 1
Delay 1000
Rem 选县城
VBSCall FindPic(0,0,w,h,huic,0.8,x,y)
If x>0 and y>0
    MoveTo x,y
    LeftClick 1
    Delay 1000
    Rem 找地图店铺
    VBSCall FindPic(0,0,w,h,"Attachment:\地图店铺.bmp",0.8,dpx,dpy)
    If dpx>0 and dpy>0
        MoveTo dpx-8,dpy+5
        LeftClick 1
        Delay 1000
        Rem 找杂货
        VBSCall FindPic(0,0,w,h,"Attachment:\地图杂货.bmp",0.8,zhahx,zhahy)
        If zhahx>0 and zhahy>0
            MoveTo zhahx,zhahy
            LeftClick 2
            //关地图
            Plugin Bkgnd.KeyPress(hwnd,77)
            Rem 寻路回去
            Delay 500
            //寻路回去
            Plugin Bkgnd.KeyPress(hwnd,53)
            Delay 2000
            VBSCall FindPic(0,0,w,h,"Attachment:\到达目的地.bmp",0.8,mddx,mddy)
            If mddx>0 and mddy>0
                Goto 点杂货
            EndIf 
            Delay 3000
            Goto 寻路回去
        Else 
            Goto 找地图店铺
        EndIf 
    Else 
        Goto 选县城
    EndIf 
Else 
    Goto 回城
EndIf 
Rem 点杂货