热血江湖按键精灵强化脚本辅助(热血江湖按键精灵脚本制作教程)

大家好！今天让小编来给大家介绍一下关于热血江湖按键精灵强化脚本辅助(热血江湖按键精灵脚本制作教程)的问题，以下是小编对此问题的归纳整理，大家一起来看看吧。

文章目录列表:

1.求热血江湖QD组队和单刷按键精灵脚本
2.热血江湖挂机脚本

求热血江湖QD组队和单刷按键精灵脚本

下载地址 http://bbs.vrbrothers.com/attachment.php?aid=1161

已验证可下，如果需要我发，请留言。

http://bbs.vrbrothers.com/viewthread.php?tid=21492&extra=page%3D3

原帖地址。仔细看看。

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★功能说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓

//*挂机时可以聊天，找怪时不能动鼠标，打怪时可以动。

//*自动打怪补红蓝,无药自动回城补充,有土符自动回保存练级点,不支持跑步回练级点.

//*采用边旋转边点脚下找怪，怪多怪少都不会偏离练级点,经比较,等怪时间少，效率高.

//*无药回城,无怪回城,包满回城,死亡回城,总回城次数达到设定会自动停止挂机。

//*组队时自动要GF，人数少于设定值（包括自己）自动回城，且改为单刷模式继续挂机。

//*回城物品自动存仓库,且先存剩余药品再取药；个人仓库满则自动停止挂机。

//*停止挂机后可选择自动关电脑（限为XP系统，且使用经典主题，1024X768分辩率）

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓

//*由于采用了图形分辨，请使用按键5.7以上版本。

//*回城点只做了两个，玄勃处经常人多，韦大宝容易被挡住，正派人士回柳正则好多了。

//*循环设为循环1次.[color=Red]Alt+F11[/color]开始，F12中止.

//*单人挂机时建议关闭组队和查看功能，关闭所有特效，在1024×768下使用.

//*F1为15级轻功([color=Blue]回城找NPC必须[/color])，F2技能，F3红，F4蓝，F5捡东西，F6回城符，F7单攻技能,F8为60轻功.

//*鼠标放人物脚下（[color=Blue]以左键点击人物不走动为准[/color]），然后再按F11开始.

[color=Blue]//*挂机时必须调整角度，以开挂找怪时鼠标点脚下人物不会移动为准，此角度即能找到仓库NPC。[/color]

//*仓库：1格红，2格蓝，3格符 [color=Red]最后一排的最后一格必须为空，否则会自动停挂或关机[/color]

//*包裹：1格红，2格蓝，3格符

//*土符放包裹第1排最后一格；五色放包裹2排。

[color=Blue]//*包裹右靠屏幕右侧,上靠小地图下侧,再小退一下游戏,以后的默认位置即为挂机正确位置[/color]

[color=Blue]//*退出游戏的设定窗口要右靠小地图，上靠屏幕顶边，才能正确退出游戏。[/color]

//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓

VBS huichengD=2

//补充回城点:1为玄勃韦大宝，2为柳正红凤凰

[color=Blue]VBS beidong=0

//第一击技能：1为单攻，0为群攻；[/color]

VBS fightT=12

//[color=Red]防卡设定[/color]，打某只怪超过fightT秒（[color=Red]平均打死一只怪的时间，非群刀则留一点余量即设为打死一只怪（包括WF怪）的最大时间[/color]）则判为发技能卡住了，会自动纠错

VBS wuguaiT=300

//找怪时旋转达到设定秒数还没找到，则自动回城；[/color]

VBS zudui=0

//组队时设为1，单刷时设为0

VBS duiyuanN=2

//组队时，队员人数少于此值（包括自己）则自动回城（2-8）

VBS duisanH=0

//设1为队散后继续挂机单刷，0为队散后回城打坐，停止挂机。

VBS wuse=0

//自动吃五色，1为激活，0为关闭。

[color=Blue]VBS hongBF0=60:hongBF1=40

//血量少于百分之多少时吃红设定，hongBF0为单刷情况，hongBF1为组队情况

//吃蓝就没这必要了吧，能及时补上，不浪费就行了~

VBS dihui=20

//低血回城%设置,不想要此功能就把它尽量设低点吧~[/color]

VBS hongN0=560:hongN1=100

//回城补充红药数量(N0和N1分别对应单刷和组队，红蓝差不多同时吃完为最好，无红自动回城)

VBS lanN0=100:lanN1=550

//回城补充蓝药数量(N0和N1分别对应单刷和组队，红蓝差不多同时吃完为最好，无蓝自动回城)

[color=Blue]VBS fuN=5

//回城补充回城符数量,必须大于设定的停挂总回城次数。[/color]

VBS baoman=0

//包裹满则自动回城，1为激活，0为关闭。

VBS hcN=3

//总回城次数([color=Blue]应为设定挂机时间内正常的回城补充次数,出现异常提早达到则自动停止挂机[/color])

VBS jyF=0

//吃了金银F或玄武F的请设为1，没吃的请设为0。

VBS tufu=1

//有土符，且吃了金银F的设为2，没吃的设为1；无土符，设为0。

VBS baocunD=1

//有土符时，1为回到保存的第1个练级点，2为第2个，依此类推。

VBS guanji=1

//自动停止挂机时，1为回城后自动退出游戏关闭电脑（XP系统）,0为待在城里打坐。

热血江湖挂机脚本

Rem 开始打怪

KeyPress 119

Delay 32

Gosub 补红蓝

Gosub 无药回城

For 3

KeyPress 118 1

//第一击为单攻技能,江湖中出连续技能了，怕发不出来就循环3次吧

Delay 128

EndFor

Rem 技能攻击

VBSCall Call FindCenterColor(350,220,674,460,"1028ff",x1,y1)

//检测怪的血条

If x1>0 and y1>0

//有血条，怪存在

For 3

KeyPress 113 1

//使用技能攻击，同理循环3次

Delay 128

EndFor

//技能延时

Gosub 补红蓝

For 3

KeyPress 116 1

Delay 128

EndFor

Gosub 无药回城

Goto 技能攻击

//循环技能攻击

EndIf

Goto 开始打怪

//无怪，怪卡住或死亡，重新开始下一轮循环

Rem 停止挂机

MoveTo 512 468

LeftClick 1

Delay 3000

KeyDown 17 1

KeyPress 67 1

KeyUp 17 1

Delay 3000

EndScript

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓

Sub 补红蓝

Rem 低血回城

IfColor dihui*1.28+21 5 4a5173 2

SayString 晕，差点挂了，我闪。。。

Delay 32

KeyPress 13 1

Delay 512

KeyPress 117 1

Delay 5000

Delay 5000

Goto 停止挂机

EndIf

Rem 补红

IfColor hongBF*1.28+21 5 4a5173 2

KeyPress 114 1

Delay 128

EndIf

Rem 补蓝

IfColor 57 22 4a3c39 2

KeyPress 115 1

Delay 256

EndIf

Return 补红蓝

Sub 无药回城

IfColor 706 749 b5ffe7 2

SayString 没红了，我再闪。。。

Delay 32

KeyPress 13 1

Delay 512

KeyPress 117 1

Delay 5000

Delay 5000

Goto 停止挂机

EndIf

IfColor 744 749 b5ffe7 2

SayString 没蓝了，我也闪。。。

Delay 32

KeyPress 13 1

Delay 512

KeyPress 117 1

Delay 5000

Delay 5000

Goto 停止挂机

EndIf

Return 无药回城

家等了好久````

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

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

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

以上就是本站小编整理的关于热血江湖按键精灵强化脚本辅助的相关知识，内容来源网络仅供参考，希望能帮助到大家。

Tags：

转载：感谢您对华县游戏网-传奇手游攻略大全网站平台的认可，以及对我们原创作品以及文章的青睐，非常欢迎各位朋友分享到个人站长或者朋友圈，但转载请说明文章出处“来源演示站”。/yxgl/34126.html

很赞哦！ ()