//血条查询Y1/605（稍微扩大了寻图范围，主要是水晶矿场右上角有个地方比较高，贴图不是在以前的位置了，上移了一点）
y1=587
//血条查询Y2
y2=615
//包裹查询Y1/575
b1=560
//包裹查询Y2
b2=605
//矿脉查询Y1/575
k1=560
//矿脉查询Y2
k2=595
UserVar c=DropList{关闭:0|开启:1}=0 路点检查
UserVar b=DropList{关闭:0|开启:1}=0 水晶矿场
UserVar a=DropList{山林矿场1层:1|山林矿场3层:3|山林矿场5层:5|关闭全地图寻矿:0}=3 采矿地点
VBS dim face,wx,wy,r,s,h,v,t,l,pt,n
v=0.12
l=1
pt=0
n=0
face=0
//像素/毫秒
//按1次行动键=按下85ms弹起！
//变量定义结束（face 面对方向；wx,wy 物品查询返回值；r 随机数；l 位置；p t上梯后，偏移时间）
If b=1
    a=0
EndIf 
While 1
    VBSCall FindPic(240,y1,1039,y2,"血.bmp",0.8,x,y)
    If x>=0 or y>=0
        x=x+21
        Rem 包查询
        VBSCall FindPic(240,b1,1039,b2,"包.bmp",0.8,wx,wy)
        If wx>=0 or wy>=0
            wx=wx+6
            //moveto wx,wy-200
            Gosub 拾取动作
            Goto 包查询
        Else 
            //无包，开始矿查询
            If b=1
                VBSCall FindColorEx(440,k1,839,k2,"57FFC8",1,0.7,wx,wy)
            Else 
                VBSCall FindPic(440,k1,839,k2,"矿.bmp",0.8,wx,wy)
            EndIf 
            If c=1
                wx=-1
                wy=-1
            EndIf 
            If wx>=0 or wy>=0
                Goto 找到矿脉
            Else 
                If b=1
                    VBSCall FindColorEx(240,k1,440,k2,"57FFC8",1,0.7,wx,wy)
                Else 
                    VBSCall FindPic(240,k1,440,k2,"矿.bmp",0.8,wx,wy)
                EndIf 
                If c=1
                    wx=-1
                    wy=-1
                EndIf 
                If wx>=0 or wy>=0
                    Goto 找到矿脉
                Else 
                    If b=1
                        VBSCall FindColorEx(839,k1,1039,k2,"57FFC8",1,0.7,wx,wy)
                    Else 
                        VBSCall FindPic(839,k1,1039,k2,"矿.bmp",0.8,wx,wy)
                    EndIf 
                    If c=1
                        wx=-1
                        wy=-1
                    EndIf 
                    If wx>=0 or wy>=0
                        Rem 找到矿脉
                        wx=wx+10
                        //MoveTo wx,wy-200
                        Gosub 挖矿
                        Rem 采矿跳转
                    Else 
                        If a=1
                            Gosub 山林矿场1层
                        ElseIf a=3
                            Gosub 山林矿场3层
                        ElseIf a=5
                            Gosub 山林矿场5层
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    Else 
        //血查询失败
        Randomize
        r=Rnd
        If r>=0.5
            //左移
            KeyDownH 37,1
            Delay 500
            KeyUpH 37,1