MoveTo 689 231
Delay 20
MoveTo x+42 y+32
Delay 100
LeftClick 1
Rem s1
VBSCall FindColorEx(601,72,780,250,"fffbb1",1,0.8,colx,coly)
Delay 100
If colx>=0 and coly>=0
    Goto s1
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 "无法确定人物所在地图！@..@!"
EndIf 
MoveTo 689 231
Delay 20
MoveTo x+41 y+37
Delay 100
LeftClick 1
Rem s2
VBSCall FindColorEx(601,72,780,250,"fffbb1",1,0.8,colx,coly)
Delay 100
If colx>=0 and coly>=0
    Goto s2
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 "无法确定人物所在地图！@..@!"
EndIf 
MoveTo 689 231
Delay 20
MoveTo x+39 y+40
Delay 100
LeftClick 1
Rem s3
VBSCall FindColorEx(601,72,780,250,"fffbb1",1,0.8,colx,coly)
Delay 100
If colx>=0 and coly>=0
    Goto s3
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 "无法确定人物所在地图！@..@!"
EndIf 
MoveTo 689 231
Delay 20
MoveTo x+36  y+43
Delay 100
LeftClick 1
Rem s4
VBSCall FindColorEx(601,72,780,250,"fffbb1",1,0.8,colx,coly)
Delay 100
If colx>=0 and coly>=0
    Goto s4
Else 
    Gosub 开始淘金
    //
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 
MoveTo 689 231
Delay 20
MoveTo x+42 y-11
Delay 100
LeftClick 1
Rem 检测1
VBSCall FindColorEx(601,72,780,250,"fffbb1",1,0.8,colx,coly)
Delay 100
If colx>=0 and coly>=0
    Goto 检测1
EndIf 
Goto 小地图确定位置
Sub 开始淘金
    For num
        KeyPress jw,1
        Delay 20
        Rem mouse
        VBSCall shape=GetCursorShape(0)
        If shape=536838208