MoveTo x,y
    LeftClick 1
    Delay 1000
    MoveTo ljx,ljy
    LeftClick 2
    Delay 1000
    //关大地图
    Plugin Bkgnd.KeyPress(hwnd,77)
    Goto 怪去地点
Else 
    Goto 怪出城刷怪
EndIf 
//////////////////////////////////////////////////采集部分//////////////////////////////////////////////
//////////////////////////////////////////////////采集部分//////////////////////////////////////////////
//////////////////////////////////////////////////采集部分//////////////////////////////////////////////
Rem 采集部分
Delay 2000
VBS starttime=timer
VBS sj1=t1*njd*gjsl
VBS sj2=t1*wpsl
If sj1>sj2
    msg="本次采集完成!脚本结束!"
    t=sj2
Else 
    msg="采集工具已经消耗完,脚本结束!"
    t=sj1
EndIf 
MessageBox"现在可以最小化窗口了哟!"
If t1>0 and njd>0
    Rem 采集
    VBS stoptime=timer
    VBS it=stoptime-starttime
    Delay 1000
    Plugin Bkgnd.KeyPress(hwnd,56)//8键放工具
    Delay 1000
    Plugin Bkgnd.KeyPress(hwnd,55)//7键放技能
    Delay 1000
    If it>=t
        If down=1
            VBSCall RunApp("shutdown.exe -f -s -t 1")
        EndIf 
        MessageBox(msg)
        Goto 结束
    EndIf 
    Goto 采集
Else 
    MessageBox"设置错误"
EndIf 
Rem 休息
Delay 2000
VBSCall FindPic(0,0,w,h,"Attachment:\双刀.bmp",0.8,x,y)
If x>0 and y>0
    Plugin Bkgnd.KeyPress(hwnd,9)
    Delay 1000
    Goto 怪判断打怪
EndIf 
IfColor hongx+100,hongy,hongc,2
    //如果是捉妖
    If j=1
        Goto 开始捉妖
    Else 
        Goto 怪开始刷怪
    EndIf 
EndIf 
Delay 2000
Goto 休息
Rem 结束
EndScript