您的位置: 首页 手游攻略 热血江湖脚本 热血江湖挂机脚本

热血江湖脚本 热血江湖挂机脚本

多多云手机就不错,它可以在手机和电脑上运行。游戏里装备分为武器、防具、饰品、坐骑等类型,装备划分为不同等级、不同品质、不同职业,玩家需选择本职业的装备佩戴。装备品质划分为白、绿、蓝、紫、橙色,装备品质越高属*越好。装备有不同的等级佩戴要求,而且还有职业的佩戴限制,非本职业的装备是无法佩戴。玩家直接将装备佩戴在身上,就可获得装备的属*效果。玩家要想获得各种装备,可完成主线任务、日常任务、挑战副本等方法获取。

家等了好久````

很多人都想要这个脚本!今天我发布出来与大家分享```希望大家能用的习惯

本脚本只适合挂主动区!自动检物。

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 x1<0 and y1<0

Delay 50

Goto继续

Else

Gosub打怪

EndIf

Return找怪开始

Sub打怪

Rem KG

KeyDown 120 1

Delay 80

KeyUp 120 1

Gosub补红蓝

KeyDown 114 1

Delay 100

KeyUp 114 1

Delay 50

Gosub补红蓝

VBSCall Call FindColor(150,150,750,650,"00107B",x1,y1)

If x1<0 and y1<0

Gosub补红蓝

Delay 200

MoveTo 1300 460

Delay 150

MoveTo 513 460

Delay 200

Goto挂机开始

Else

Goto KG

EndIf

Return打怪

Sub判断坐标

Gosub读取坐标

VBS mX2=MapX

VBS mY2=MapY

VBS MuBiaoY=mY1

VBS MuBiaoX=mX1

If Abs(mX1-mX2)+Abs(mY1-mY2)>20

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停止

1、Ctrl+1为默认的开启按键。

2、系统的颜色设置为32位。

3、对所有系统基本上都支持。

4、.能设置百分比加*6、10*,20*,30*,40*,50*,60*,70*,80*,90*很方面。

5、加入了对医生自动群疗的支持。

6、注:F3为红*,F4为蓝*,F5为群疗技能,请把相对的**放进快捷键内。

7、全新功能如下:这个版本为加强型,可窗口化游戏,也可全屏下使用,对游戏和系统的分辨率没要求了,人物的血条位置也没要求,想放在哪里就放哪里,对所有系统基本上都支持,都能正常。

8、加入了对医生自动群疗的支持。

9、注:F3为红*,F4为蓝*,F5为群疗技能,请把相对的**放进快捷键内。

本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体),仅供学习参考。 用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权,请联系我们反馈本站将在三个工作日内改正。