Delay 1000
        MoveTo shoux+670,shouy+416
        Delay 500
        RightClick 1
        Delay 1000
        //倒数第二排
        MoveTo shoux+505,shouy+383
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+532,shouy+383
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+571,shouy+383
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+605,shouy+383
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+636,shouy+383
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+670,shouy+383
        Delay 500
        RightClick 1
        Delay 1000
    EndIf 
    If zdmai>=3
        MoveTo shoux+505,shouy+350
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+532,shouy+350
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+571,shouy+350
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+605,shouy+350
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+636,shouy+350
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+670,shouy+350
        Delay 500
        RightClick 1
        Delay 1000
    EndIf 
    If zdmai>=4
        MoveTo shoux+505,shouy+316
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+532,shouy+316
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+571,shouy+316
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+605,shouy+316
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+636,shouy+316
        Delay 500
        RightClick 1
        Delay 1000
        MoveTo shoux+670,shouy+316
        Delay 500
        RightClick 1
        Delay 1000
    EndIf 
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