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 技能二