展开全部/f1红 f2 f3技能 f8回城卷
vbs dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r
vbs dim zhiye,zidongzhaoguai,zidongjianwu,xp
vbs m=85:n=10
vbs a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r="
vbs c=0:d=0
vbs dim jn1,jn2
vbs jn1=0:jn2=0
uservar zhiye=1 选择职业 0近战 1远战
uservar hp=50 红量多少时,补红
uservar zidongzhaoguai=1 0定点刷怪 1自动刷怪
uservar zidongjianwu=1 0不自动捡物 1自动捡物
uservar xp=1 选择使用哪种xp技能,从右到左1,2,3
rem 机战
gosub 找怪
gosub 攻击怪
gosub 补红
gosub 捡钱
gosub 捡熟练度
gosub 捡流星
gosub 捡粉红水晶
gosub 捡蓝水晶x
gosub 捡聚态水晶
gosub 检测xp
gosub 无弹回城
gosub 拒绝交易
gosub 同意组队
gosub 关闭推荐任务
gosub 关闭导师界面
delay 32
goto 机战
sub 找怪
if zidongzhaoguai=1
vbscall findcolorex(85,140,855,480,"303b8",1,0.8,x,y)
if x
delay 32
vbs c=c+1
if c>4
delay 225
moveto 510 500
leftclick 1
gosub 快速找怪
vbscall findcolorex(85,140,855,480,"303b8",1,0.8,x,y)
if x
delay 520
moveto 100 330
leftclick 1
gosub 快速找怪
vbscall findcolorex(85,140,855,480,"303b8",1,0.8,x,y)
if x
delay 520
moveto 510 200
leftclick 1
gosub 快速找怪
vbscall findcolorex(85,140,855,480,"303b8",1,0.8,x,y)
if x
delay 520
moveto 920 330
leftclick 1
gosub 快速找怪
endif
endif
endif
endif
endif
endif
return
sub 攻击怪
vbscall findcolorex(479,49,922,399,"303b8",1,0.8,x,y)
if x>=0 and y>=0
vbs c=0
moveto x-20 y+20
leftclick 1
delay 32
gosub 攻击
vbscall findcolorex(479,339,922,650,"303b8",1,0.8,x,y)
if x>=0 and y>=0
vbs c=0
moveto x-20 y-20
leftclick 1
delay 32
gosub 攻击
vbscall findcolorex(99,339,479,658,"303b8",1,0.8,x,y)
if x>=0 and y>=0
vbs c=0
moveto x+20 y-20
leftclick 1
delay 32
gosub 攻击
vbscall findcolorex(83,85,479,399,"303b8",1,0.8,x,y)
if x>=0 and y>=0
vbs c=0
moveto x+20 y+20
leftclick 1
delay 32
gosub 攻击
endif
endif
endif
endif
return
sub 攻击
vbscall findcolorex(35,100,920,510,"303b8",1,0.8,x,y)
if x>=0 and y>=0
moveto x+n y+m
rightclick 1
gosub 技能1
gosub 技能2
else
vbscall findcolorex(35,100,920,510,"303b8",1,0.8,x,y)
if x>=0 and y>=0
moveto x+n y+m-n
rightclick 1
endif
endif
return
sub 快速找怪
vbscall findcolorex(313,10,315,12,"0",1,0.8,x,y)
if x
keydown 17 1
leftclick 1
keyup 17 1
endif
return
sub 技能1
ifcolor 139 45 ae21 2
delay 32
vbs jn1=jn1+1
if jn1>=4
keypress 113 1
vbs jn1=0
endif
endif
return
sub 技能2
ifcolor 139 45 ae21 2
delay 32
vbs jn2=jn2+1
if jn2>=8
keypress 114 1
vbs jn2=0
endif
endif
return
sub 补红
ifcolor hp*1.13+121 31 313033 2
keypress 112 1
endif
return
sub 捡钱
if zidongjianwu=1
vbscall findcolorex(35,100,920,520,"45b0c9",1,0.8,x1,y1)
if x1>=0 and y1>=0
vbs a=x1:b=y1
vbscall findcolorex(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)
if x2>=0 and y2>=0
moveto a b
delay 32
leftclick 1
vbs a="":b="
endif
endif
endif
return
sub 捡熟练度
if zidongjianwu=1
vbscall findcolorex(35,100,920,520,"ad497f",1,0.8,x1,y1)
if x1>=0 and y1>=0
vbs e=x1:f=y1
vbscall findcolorex(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)
if x2>=0 and y2>=0
moveto e f
delay 32
leftclick 1
vbs e="":f="
endif
endif
endif
return
sub 捡流星
if zidongjianwu=1
vbscall findcolorex(35,100,920,520,"106d21",1,0.8,x1,y1)
if x1>=0 and y1>=0
vbs g=x1:h=y1
vbscall findcolorex(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)
if x2>=0 and y2>=0
moveto g h
delay 32
leftclick 1
vbs g="":h="
endif
endif
endif
return
sub 捡粉红水晶
if zidongjianwu=1
vbscall findcolorex(35,100,920,520,"8b16ab",1,0.8,x1,y1)
if x1>=0 and y1>=0
vbs i=x1:j=y1
vbscall findcolorex(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)
if x2>=0 and y2>=0
moveto i j
delay 32
leftclick 1
vbs i="":j="
endif
endif
endif
return
sub 捡蓝水晶
if zidongjianwu=1
vbscall findcolorex(35,100,920,520,"ffb783",1,0.8,x1,y1)
if x1>=0 and y1>=0
vbs k=x1:l=y1
vbscall findcolorex(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)
if x2>=0 and y2>=0
moveto k l
delay 32
leftclick 1
vbs k="":l="
endif
endif
endif
return
sub 捡聚态水晶
if zidongjianwu=1
vbscall findcolorex(35,100,920,520,"94f729",1,0.8,x1,y1)
if x1>=0 and y1>=0
vbs q=x1:r=y1
vbscall findcolorex(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)
if x2>=0 and y2>=0
moveto g h
delay 32
leftclick 1
vbs q="":r="
endif
endif
endif
return
sub 检测xp
vbscall findcolorex(800,500,900,550,"cdb886",1,0.8,x,y)
if x>=0 and y>=0
gosub xp1
gosub xp2
gosub xp3
endif
return
sub xp1
if xp=1
moveto 935 540
delay 32
leftclick 1
endif
return
sub xp2
if xp=2
moveto 881 547
delay 32
leftclick 1
endif
return
sub xp3
if xp=3
moveto 812 551
delay 32
leftclick 1
endif
return
sub 无弹回城
if zhiye=1
vbscall findcolorex(575,6,580,10,"101010",1,0.8,x,y)
if x
delay 32
vbs d=d+1
if d=6
keypress 119 1
endif
endif
endif
return
sub 拒绝交易
vbscall findcolorex(133,312,135,314,"ffffff",1,0.8,x1,y1)
vbscall findcolorex(311,389,313,391,"916e23",1,0.8,x2,y2)
vbscall findcolorex(326,233,328,235,"8b6ff",1,0.8,x3,y3)
if x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
moveto 312 390
delay 32
leftclick 1
endif
return
sub 同意组队
vbscall findcolorex(270,232,275,238,"c7ff",1,0.8,x1,y1)
vbscall findcolorex(220,393,225,396,"aeff",1,0.8,x2,y2)
if x1>=0 and y1>=0 and x2>=0 and y2>=0
moveto 223 394
delay 32
leftclick 1
endif
return
sub 关闭推荐任务
vbscall findcolorex(905,236,907,238,"c7ff",1,0.8,x1,y1)
vbscall findcolorex(605,234,607,236,"c3ff",1,0.8,x2,y2)
if x1>=0 and y1>=0 and x2>=0 and y2>=0
moveto 906 237
delay 32
leftclick 1
endif
return
sub 关闭导师界面
vbscall findcolorex(2**,180,271,182,"c3f7",1,0.8,x1,y1)
vbscall findcolorex(276,175,278,177,"dec7b5",1,0.8,x2,y2)
if x1>=0 and y1>=0 and x2>=0 and y2>=0
moveto 270 181
delay 32
leftclick 1
endif
return