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
    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+5,y+5
    LeftClick 1
    Delay 5000
    Rem 炼化
    Delay 100
    VBSCall FindPic(0,0,w,h,"Attachment:\蛋.bmp",0.8,x,y)
    Delay 500
    If x=-1 and y=-1
        Goto 买镜子
    EndIf 
    MoveTo x+5,y+5
    Delay 1000
    //按9炼化
    Plugin Bkgnd.KeyPress(hwnd,57)
    Delay 1000
    LeftClick 1
    VBSCall FindPic(0,0,w,h,"Attachment:\空背包.bmp",0.8,x,y)
    MoveTo x,y
    Delay 9000
    Goto 炼化
Else 
    Goto 鉴定
EndIf 
Rem 买镜子
Delay 100
VBSCall FindPic(0,0,w,h,"Attachment:\照妖镜.bmp",0.8,x,y)
If x>0 and y>0
    MoveTo x-20,y+14
    Delay 500
    If r=1
        RightClick 1
        Delay 1000
        RightClick 1
        Delay 1000
        Goto 修装备
    EndIf 
    If r=3
        RightClick 1
        Delay 1000
        RightClick 1
        Delay 1000
        RightClick 1
        Delay 1000
        Goto 修装备
    EndIf 
Else 
    Goto 买镜子
EndIf 
Rem 修装备
Delay 100
//关物品
Plugin Bkgnd.KeyPress(hwnd,66)
//打开大地图
Plugin Bkgnd.KeyPress(hwnd,77)
Delay 2000
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)