UserVar jw=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121}  淘金快捷键设定
UserVar se 筛子更换间隔时间"分（筛子放在背包的第一行放3个除手中已装备的）
UserVar sa 检查背包是否已满间隔时间"分
UserVar num=2 原地淘金次数
UserVar d=DropList{音乐报警} 包满、无备用筛子
setime=now:satime=now
gh=1
PutAttachment c:\ *.wav
Rem 窗口位置移动
Plugin hd=Window.Foreground()
Plugin Window.Move(hd,0,0)
Delay 300
Rem 小地图确定位置
MoveTo 689 231
Delay 50
VBSCall FindPic(0,0,1024,768,"attachment:\signz.bmp",0.7,x,y)
Delay 20
If x>=0 and y>=0
    Goto 淘金走动
EndIf 
VBSCall FindPic(0,0,1024,768,"attachment:\signs.bmp",0.7,x,y)
Delay 20
If x>=0 and y>=0
    Goto 淘金走动
Else 
    msgbox "无法确定人物所在地图！@..@!"
EndScript 
EndIf 
Rem 淘金走动
//msgbox x&"|"&y
n=0
While n<=5
    MoveTo x+15-n*6 y-18
    Delay 100
    LeftClick 1
    MoveTo 689 231
    Rem search
    VBSCall FindColorEx(601,72,780,250,"fffbb1",1,0.8,colx,coly)
    Delay 100
    If colx>=0 and coly>=0
        Goto search
    Else 
        Gosub 开始淘金
        //淘金
    EndIf 
    VBSCall FindPic(0,0,1024,768,"attachment:\signs.bmp",0.7,x,y)
    Delay 20
    If x>=0 and y>=0
    Else 
        msgbox "无法确定人物所在地图！@..@!"
        KeyPress 90,1
        Goto search
    EndIf 
    n=n+1
EndWhile 
Rem 更换区域
VBSCall FindPic(0,0,1024,768,"attachment:\signs.bmp",0.7,x,y)
Delay 20
If x>=0 and y>=0
Else 
    msgbox "无法确定人物所在地图！@..@!"
EndIf 
MoveTo 689 231
Delay 20
MoveTo x+42 y-11
Delay 100
LeftClick 1
Rem 检测
VBSCall FindColorEx(601,72,780,250,"fffbb1",1,0.8,colx,coly)
Delay 100
If colx>=0 and coly>=0
    Goto 检测
Else 
    VBSCall FindPic(0,0,1024,768,"attachment:\signs.bmp",0.7,x,y)
    Delay 20
    If x>=0 and y>=0
    Else 
        msgbox "无法确定人物所在地图！@..@!"
    EndIf 
    MoveTo 689 231
    Delay 20
    MoveTo x+41 y+24
    Delay 100
    LeftClick 1
    Rem 二次检测
    VBSCall FindColorEx(601,72,780,250,"fffbb1",1,0.8,colx,coly)
    Delay 100
    If colx>=0 and coly>=0
        Goto 二次检测
    Else 
        Goto 二次淘金
    EndIf 
EndIf 
Rem 二次淘金
VBSCall FindPic(0,0,1024,768,"attachment:\signs.bmp",0.7,x,y)
Delay 20
If x>=0 and y>=0
Else 
    msgbox "无法确定人物所在地图！@..@!"
EndIf