家等了好久```` 很多人都想要这个脚本!今天我发布出来与大家分享```希望大家能用的习惯 本脚本只适合挂主动区!自动检物。 VBS dim mX1,mY1,mX2,mY2 Gosub 补红蓝 Gosub 读取坐标 VBS mX1=MapX VBS mY1=MapY SayExpression "("+CStr(mX1)+","+CStr(mY1)+")"+".准备好了没" Rem 挂机开始 Gosub 补红蓝 Gosub 判断坐标 Gosub 找怪开始 KeyPress 120 1 Delay 100 Goto 挂机开始 Sub 找怪开始 Rem 继续 Gosub 补红蓝 KeyDown 120 1 Delay 80 KeyUp 120 1 MoveTo 1300 460 Delay 150 MoveTo 1300 460 Delay 140 MoveTo 513 460 Delay 20 LeftClick 1 Delay 100 KeyDown 114 1 Delay 100 KeyUp 114 1 Delay 50 Gosub 补红蓝 VBSCall Call FindColor(150,150,750,650,"1028FF",x1,y1) If x120 Gosub 自动行走 EndIf Return 判断坐标 Sub 读取坐标 VBS MapX,MapY VBS x=876:y=24 VBS MapXY="" VBS i=0:j=0:k=0 For 12 Delay 16 Gosub 读取数字 Rem 读取完毕 If txt="]" Goto 输出坐标 EndIf VBS MapXY=MapXY&txt VBS x=x+6 EndFor Rem 输出坐标 VBS i=InStr(MapXY, ".") If txt="]" and i>1 VBS MapX=Clng(Left(MapXY, i - 1)) VBS MapY=Clng(Mid(MapXY, i + 1)) EndIf Return 读取坐标 Sub 读取数字 IfColor x+1 y+4 0002BD 2 IfColor x+3 y+4 0002BD 2 IfColor x+5 y+4 0002BD 2 VBS txt="-" Goto 读取完毕 EndIf EndIf EndIf IfColor x+2 y+8 0002BD 2 IfColor x+3 y+8 0002BD 2 Else VBS txt="." Goto 读取完毕 EndIf EndIf IfColor x+2 y 0002BD 2 VBS txt="]" Goto 读取完毕 EndIf IfColor x+1 y+4 0002BD 2 IfColor x+1 y+5 0002BD 2 IfColor x+5 y+4 0002BD 2 VBS txt="0" Goto 读取完毕 EndIf EndIf EndIf IfColor x+2 y+2 0002BD 2 VBS txt="1" Goto 读取完毕 EndIf IfColor x+1 y+8 0002BD 2 IfColor x+5 y+8 0002BD 2 VBS txt="2" Goto 读取完毕 EndIf EndIf IfColor x+1 y+7 0002BD 2 IfColor x+2 y+4 0002BD 2 Else IfColor x+3 y+4 0002BD 2 VBS txt="3" Goto 读取完毕 EndIf EndIf EndIf IfColor x+2 y+3 0002BD 2 IfColor x+4 y+3 0002BD 2 VBS txt="4" Goto 读取完毕 EndIf EndIf IfColor x+1 y+1 0002BD 2 IfColor x+1 y+7 0002BD 2 VBS txt="5" Goto 读取完毕 EndIf EndIf IfColor x+4 y+2 0002BD 2 IfColor x+4 y+3 0002BD 2 Else VBS txt="6" Goto 读取完毕 EndIf EndIf IfColor x+1 y+1 0002BD 2 IfColor x+4 y+3 0002BD 2 VBS txt="7" Goto 读取完毕 EndIf EndIf IfColor x+1 y+4 0002BD 2 Else IfColor x+1 y+5 0002BD 2 IfColor x+5 y+5 0002BD 2 VBS txt="8" Goto 读取完毕 EndIf EndIf EndIf IfColor x+1 y+4 0002BD 2 IfColor x+2 y+7 0002BD 2 IfColor x+5 y+4 0002BD 2 VBS txt="9" Goto 读取完毕 EndIf EndIf EndIf Return 读取数字 Sub 自动行走 VBS FangX=0 VBS YDR=160 Gosub 补红蓝 MoveTo 512 460 Delay 100 Gosub 读取坐标 VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) Rem 移动 Gosub 补红蓝 If JuLi1>20 Rem 方向右 If FangX=0 MoveTo 512+YDR 460 LeftClick 1 Delay 20 Gosub 补红蓝 Delay 200 KeyDown 120 1 Delay 50 KeyUp 120 1 Delay 200 Gosub 补红蓝 Gosub 读取坐标 VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) If JuLi2<JuLi1 VBS FangX=0 VBS JuLi1=JuLi2 Goto 移动 Else VBS FangX=1 VBS JuLi1=JuLi2 Goto 移动 EndIf EndIf Rem 方向下 If FangX=1 MoveTo 512 460+YDR LeftClick 1 Delay 20 Gosub 补红蓝 Delay 200 KeyDown 120 1 Delay 50 KeyUp 120 1 Delay 200 Gosub 补红蓝 Gosub 读取坐标 VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) If JuLi2<JuLi1 VBS FangX=1 VBS JuLi1=JuLi2 Goto 移动 Else VBS FangX=2 VBS JuLi1=JuLi2 Goto 移动 EndIf EndIf Rem 方向左 If FangX=2 MoveTo 512-YDR 460 LeftClick 1 Delay 20 Gosub 补红蓝 Delay 200 KeyDown 120 1 Delay 50 KeyUp 120 1 Delay 200 Gosub 补红蓝 Gosub 读取坐标 VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) If JuLi2<JuLi1 VBS FangX=2 VBS JuLi1=JuLi2 Goto 移动 Else VBS FangX=3 VBS JuLi1=JuLi2 Goto 移动 EndIf EndIf Rem 方向上 If FangX=3 MoveTo 512 460-YDR LeftClick 1 Delay 20 Gosub 补红蓝 Delay 200 KeyDown 120 1 Delay 50 KeyUp 120 1 Delay 200 Gosub 补红蓝 Gosub 读取坐标 VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) If JuLi2<JuLi1 VBS FangX=3 VBS JuLi1=JuLi2 Goto 移动 Else VBS FangX=0 VBS JuLi1=JuLi2 Goto 移动 EndIf EndIf EndIf Return 自动行走 Sub 补红蓝 IfColor 81 10 42415A 2 KeyPress 112 1 Delay 400 EndIf Delay 10 IfColor 46 24 524139 2 KeyPress 115 1 Delay 400 EndIf Delay 10 Return 补红蓝 我的取名是综合挂机 F1红,F3技能,F4蓝,F9捡东西 F11启动,F12停止 |