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 怪点装备老板
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
    //处理卖物品
    If zdmai>=2
        MoveTo shoux+505,shouy+416
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+532,shouy+416
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+571,shouy+416
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+605,shouy+416
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+636,shouy+416
        Delay 500
        RightClick 1