UserVar monsterx=415 怪物血条左边界X
UserVar monstery=27 怪物血条上边界Y
UserVar waku=0 挖矿(有怪不杀)启动(1)停止(0)
UserVar kuangsy=315D08 矿石颜色(一)与(二)不同
UserVar kuangsj=948600 矿石颜色(二)与(一)不同
UserVar done=0 定位杀怪启动(1)不定(2)停止(0)
UserVar dwguan=1 定位自动关大地图启动(1)不关(0)
UserVar daditx=241 大地图方框左上角点位置X
UserVar dadity=123 大地图方框左上角点位置Y
UserVar litime=30 定位时间间隔(秒S)
UserVar movee=0 找怪时向前跑动(1)(2)(3)(4)步
UserVar coor=9C69FF 大地图红心特殊颜色(定位必需)
UserVar limits=5 定位范围(推荐3~10)
//远距离
For 3
    MouseWheel -10
    Delay 128
EndFor 
//屏幕方向状态
fangx=0
If waku=1
    figtabz=1
    done=0
    MessageBox "定位无效，挖矿不杀怪，脚本作者：linlx"
EndIf 
Rem 判断
If done=1
    //开地图
    VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
    If cox<=0
        Gosub 开关地图
        VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,cox,coy)
    EndIf 
    If cox>0
        strtime=time
        //关地图
        If dwguan=1
            Gosub 开关地图
            VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
            If xx1>0
                Gosub 开关地图
            EndIf 
        EndIf 
        MoveTo 62,384
        Delay 128
        RightDown 1
        Delay 128
    Else 
        MessageBox "定位大地图坐标没设置好或定位颜色不对"
        done=0
        Goto 判断
    EndIf 
ElseIf done=2
    MoveTo 62,384
    Delay 128
    RightDown 1
    Delay 128
EndIf 
zhuangtime=time
Rem 开始
randomize
//启动休息
UserVar xiuxi=1 定位休息启动(1)随时休息(2)关闭(0)
UserVar HOME=36 休息按键(如果是USB键盘必须修改)
UserVar lifc=0000FF 人物血条颜色
UserVar life=60 血少于(%)开始休息
lifeb=int(83*life/100)
UserVar pick=4 拣东西按键
pick=asc(pick)
//拣东西
For 2
    KeyDown pick,1
    Delay 64
    KeyUp pick,2
    Delay 8
EndFor 
//挖矿
If waku=1
    i=0
    Gosub 挖矿
EndIf 
//转屏
If figtabz=1
    MoveTo 512,384
    Delay 128
    RightDown 1
    Delay 128
    MoveTo 518,384
    Delay 128
    RightUp 2
    Delay 128
    Goto 开始
EndIf 
//杀怪必须
UserVar monster=0000F7 怪物血颜色
UserVar ika=15 杀怪防卡住(单位：循环)
UserVar yongj=3 (连用)一技(1)二技(2)三技(3)四技(4)五技(5)
UserVar fight1=3 技能一(必须是平打)
fight1=asc(fight1)
UserVar fight2=5 技能二