If mddx>0 and mddy>0
            Goto 点装备老板
        EndIf 
        Delay 3000
        Goto 寻路去装备店
    Else 
        Goto 找店铺
    EndIf 
Else 
    Goto 修装备
EndIf 
Rem 点装备老板
VBSCall FindPic(0,0,w,h,"Attachment:\衣修装备.bmp",0.8,x,y)
If x>0 and y>0
    MoveTo x+26,y+120
    Delay 1000
    VBSCall Shape=GetCursorShape(0)
    If Shape=922059533
        LeftClick 1
        Goto 点全修
    Else 
        Goto 翻
    EndIf 
Else 
    Rem 翻
    MoveTo mddx-50,mddy
    Delay 1000
    RightDown 1
    Delay 1000
    MoveTo mddx+50,mddy
    Delay 1000
    RightUp 1
    Delay 3000
    Goto 点装备老板
EndIf 
Rem 点全修
Delay 2000
VBSCall FindPic(0,0,w,h,"Attachment:\全修.bmp",0.8,x,y)
If x>0 and y>0
    MoveTo x+46,y+12
    Delay 1000
    LeftClick 1
    Delay 1000
Else 
    Goto 点全修
EndIf 
//关物品
Plugin Bkgnd.KeyPress(hwnd,66)
Delay 500
Rem 出城捉妖
Delay 100
//打开大地图
Plugin Bkgnd.KeyPress(hwnd,77)
Delay 2000
MoveTo shoux+310,shouy+89
LeftClick 1
Delay 1000
Rem 选大地图
VBSCall FindPic(0,0,w,h,zyt,0.8,x,y)
If x>0 and y>0
    MoveTo x,y
    LeftClick 1
    Delay 1000
    MoveTo ljx,ljy
    LeftClick 2
    Delay 1000
    //关大地图
    Plugin Bkgnd.KeyPress(hwnd,77)
    Goto 去地点
Else 
    Goto 出城捉妖
EndIf 
///////////////////////////////////////刷怪部分//////////////////////////////////////////////
///////////////////////////////////////刷怪部分//////////////////////////////////////////////
///////////////////////////////////////刷怪部分//////////////////////////////////////////////
Rem 刷怪部分
Rem 怪去地点
Delay 1000
//5键寻路
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
    //如果是奇门
    If qimen=1
        //0招兵
        Plugin Bkgnd.KeyPress(hwnd,48)
        Delay 7000
        VBS starttime=timer
    EndIf 
    //标记,没找到怪番
    a=0
    m=0
    Goto 怪开始刷怪
EndIf 
Delay 3000
//没到循环寻路
Goto 怪去地点
Rem 怪开始刷怪
//判断是否是在捉妖