求热血江湖 QD定点挂机按键精灵.
发布网友
发布时间：2022-10-19 07:36
共4个回答
热心网友
时间：2024-10-20 12:22
[General]
Description=热血江湖之打手组队单刷全自动挂机5.0版
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=0
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★功能说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*挂机时可以聊天，找怪时不能动鼠标，打怪时可以动。
//*自动打怪补红蓝,无药自动回城补充,有土符自动回保存练级点,不支持跑步回练级点.
//*为保存回城时的安全快速，所有回城均先使用回城符，再使用土符到仓库。
//*采用边旋转边点脚下找怪，怪多怪少都不会偏离练级点,经比较,等怪时间少，效率高.
//*无药回城,无怪回城,包满回城,死亡回城,总回城次数达到设定会自动停止挂机。
//*组队时自动要GF，人数少于设定值（包括自己）自动回城。
//*队散回城后，可改为单刷模式继续挂机（没吃金银符无此功能）。
//*回城物品自动存仓库,且先存剩余药品再取药；个人仓库满则自动停止挂机。
//*停止挂机后可选择自动关电脑（限为XP系统，1024X768分辩率）
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*由于采用了图形分辨，请使用按键5.7以上版本。
//*循环设为循环1次.Alt+F11开始，F12中止.
//*单人挂机时建议关闭组队和查看功能，关闭所有特效，在1024×768下使用.
//*回城点:玄勃，柳正(直接回城符)，柳善，三邪（土符定点）。
//*回城点为柳善，必须先用土符在柳善仓库NPC面前保存为保存点4。
//*F1为60级轻功,F2技能,F3红,F4蓝,F5捡东西,F6回城符,F7单攻,F8为15级轻功(回城找NPC必须)
//*非群刀F2放单技能，beidong设为0后F7任意放其它。
//*挂机时必须调整角度，以开挂找怪时鼠标点脚下人物不会移动为准，此角度才能找到仓库NPC。
//*仓库：1格红,2格蓝,3格符；最后一排最后一格不能放东西。
//*包裹：1格红,2格蓝,3格符，4格宠物书，5格宠物肉，6格土符，其它地方切勿放回城符。
//*五色放包裹2 ，3排。存东西从第二排开始，五色不会存。
//*包裹右靠屏幕右侧,上靠小地图下侧,再小退一下游戏,以后的默认位置即为挂机正确位置
//*退出游戏的设定窗口要右靠小地图，上靠屏幕顶边，才能正确退出游戏。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓★快捷键自定义★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//数字1-8分别代表快捷键F1-F8，请不要设成其它的，也不要有重复设置。
VBS kjF1=1
//60级轻功，默认设1即为F1
VBS kjF2=2
//群技能或单技能（其它职业）或普砍图标（小号），默认设2即为F2
VBS kjF3=3
//红位置，默认设3即为F3
VBS kjF4=4
//蓝位置，默认设4即为F4
VBS kjF5=5
//捡取小手位置，默认设5即为F5
VBS kjF6=6
//回城符，默认设6即为F6
VBS kjF7=7
//单技能位置（只打第一下，可空），默认设7即为F7
VBS kjF8=8
//15级轻功，默认设8即为F8
//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
VBS huichengD=3
//补充回城点:1为玄勃韦大宝，2为柳正红凤凰
VBS beidong=0
//打怪第一击技能，1为（群攻/单攻/普砍），0为单攻，可空着。
VBS gjfs=1
//技能挂机设为1，平砍挂机设为0（F7空）。
VBS jianqu=1
//捡东西开关，1开，2关。
VBS fightT=30
//防卡设定，打某只怪超过fightT秒（平均打死一只怪的时间，非群刀则留一点余量即设为打死一只怪（包括WF怪）的最大时间）则判为发技能卡住了，会自动纠错。
VBS wuguaiT=300
//找怪时旋转达到设定秒数还没找到，则自动回城。
VBS zui=0
//组队时设为1，单反时设为0
VBS iyuanN=2
//组队时，队员人数少于此值（包括自己）则自动回城（2-8）
VBS isanH=0
//设1为队散后继续挂机单刷，0为队散后回城打坐，停止挂机。
VBS wuse=0
//自动吃五色，1为激活，0为关闭。
VBS hongBF0=85:hongBF1=40
//血量少于百分之多少时吃红设定，hongBF0为单刷情况，hongBF1为组队情况
VBS lanBF=30
//蓝少于百分之多少（可自行设定）时，脚本自动吃蓝。
VBS dihui=10
//低血回城%设置,不想要此功能就把它尽量设低点吧~
VBS hongN0=600:hongN1=600
//回城补充红药数量(N0和N1分别对应单刷和组队，红蓝差不多同时吃完为最好，无红自动回城)
VBS lanN0=185:lanN1=185
//回城补充蓝药数量(N0和N1分别对应单刷和组队，红蓝差不多同时吃完为最好，无蓝自动回城)
VBS fuN=10
//回城补充回城符数量,必须大于设定的停挂总回城次数。
VBS baoman=0
//包裹满则自动回城，1为激活，0为关闭。
VBS hcN=10
//总回城次数(应为设定挂机时间内正常的回城补充次数,出现异常提早达到则自动停止挂机)
VBS jyF=1
//吃了金银F或玄武F的请设为1，没吃的（无队散回城改单刷功能）请设为0。
VBS tufu=2
//有土符，且吃了金银F的设为2，没吃的设为1；无土符，设为0。
VBS baocunD0=1:baocunD1=4
//有土符时,1为回到保存的第1个练级点,2为第2个,依此类推,(D0为单刷时，D1为有组时).
VBS guanji=0
//自动停止挂机时，1为回城后自动退出游戏关闭电脑（XP系统）,0为待在城里打坐。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Rem 开始挂机
Gosub 快捷键设置
VBS dim savestring,filename
VBS filename="打手全自动挂机日志.txt"
VBS savestring="开始挂机。。。
Gosub 写入日志
VBS huicheng=0
//回城次数初始化
VBS fx=516:fy=465
//既容易打怪，又能找到仓库NPC的挂机角度下，人物脚下的坐标。
Delay 32
Rem 开始战斗
VBS savestring="开始战斗。。。"
Gosub 写入日志
VBS t1=time
//找怪时间记时
Rem 旋转找怪
VBS attack=0
//攻击次数清零
Gosub 补红蓝
KeyPress kjjF8 1
Delay 32
If baoman=1
Gosub 包满回城
EndIf
If jyF=1
Gosub 死亡回城
EndIf
Gosub 无药回城
For 9
MoveTo fx fy
SaveMousePos
MoveTo 0 384
Delay 224
RestoreMousePos
Delay 16
LeftClick 1
KeyPress 116,1
Delay 10
Gosub 补红蓝
Gosub 无药回城
Delay 16
VBSCall Call FindCenterColor(350,200,674,450,"1028ff",x1,y1)
If x1>0 and y1>0
VBS youguai=1
Goto 停转打怪
EndIf
EndFor
VBS youguai=0
Rem 停转打怪
If youguai=1
//有怪
VBS t1=time
//找怪时间重新记时
Gosub 补红蓝
If beidong=1
For 2
KeyPress kjjF7 1
//第一击为单攻技能,江湖中出连续技能了，怕发不出来就多按几次吧
KeyPress 116,1
Delay 64
EndFor
Else
For 2
KeyPress kjjF2 1
//第一击为群攻技能,江湖中出连续技能了，怕发不出来就多按几次吧
KeyPress 116,1
Delay 64
EndFor
EndIf
VBS t2=time
//技能攻击记时
Rem 技能攻击
Delay 32
VBSCall FindPic(200,100,850,650,"nf\血条L.bmp",0.8,x1,y1)
Delay 32
VBSCall FindPic(350,200,674,450,"nf\血条R.bmp",0.9,x2,y2)
//检测怪的血条
If (x1>0 and y1>0) or (x2>0 and y2>0)
//有血条，怪存在
For 2
KeyPress kjjF2 1
//使用技能攻击
Delay 64
//技能延时
EndFor
Gosub 补红蓝
KeyPress kjjF8 1
Delay 64
//打怪时每3秒捡一次东西
Rem 捡东西
For 5
KeyPressH 116,1
Delay 10
KeyPress 116,1
Delay 10
KeyDown 116,1
Delay 10
KeyUp 116,1
Delay 10
KeyPress kjjF5 1
//捡东西，循环遍数越大，捡取距离越长（2-5足够了）。
Delay 10
EndFor
Gosub 无药回城
If wuse=1
Gosub 自动五色
EndIf
If DateDiff("s",t2,time)>=fightT
//攻击超过时间，发技能卡住了
SayString 卡...
KeyPress 13 1
Delay 128
VBS t2=time
//技能攻击重新记时
Gosub 补红蓝
If gjfs=0
MoveTo fx fy+15
Delay 16
LeftClick 1
Delay 16
MoveTo fx fy-15
Delay 16
LeftClick 1
//移动鼠标到脚下来回点一下,主要用于平砍挂机的。
Delay 128
EndIf
Goto 旋转找怪
EndIf
Goto 技能攻击
//循环技能攻击
EndIf
For 2
KeyPress kjjF2 1
//在这里加按F2，可在最后打一下空血怪
Gosub 补红蓝
Delay 256
//加个循环延时可解决77，88技能打怪后的走动问题。可根据情况自行调整循环遍数
EndFor
Goto 旋转找怪
ElseIf youguai=0
If DateDiff("s",t1,time)>=wuguaiT
//如果连续找不到怪超过设定时间（被引离练级点或回练级点失败或死亡自动回城）
SayString 米怪了...
KeyPress 13 1
Delay 128
VBS t1=time
//无怪时间重新记时
KeyPress kjjF6 1
Delay 6000
VBS savestring="出现异常，设定时间内搜索无怪，回城纠错。。。"
Gosub 写入日志
Delay 6000
Gosub 回城补充
EndIf
Goto 旋转找怪
EndIf
Goto 旋转找怪
//无怪，怪卡住或死亡，重新开始下一轮循环
Rem 停止挂机
Delay 3000
VBS savestring="停止挂机。。。"
Gosub 写入日志
SayString ...
KeyPress 13 1
Delay 128
KeyDown 17 1
KeyPress 67 1
KeyUp 17 1
Delay 3000
If guanji=1
For 3
KeyPress 27 1
Delay 128
EndFor
MoveTo 799 386
Delay 128
LeftClick 1
//结束游戏
Delay 1000
MoveTo 481 181
Delay 128
LeftClick 1
//确认
Delay 30000
VBS savestring="退出游戏，关闭电脑。。。"
Gosub 写入日志
VBSCall Call RunApp("Shutdown.exe -s -t 30")
EndIf
EndScript
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub 补红蓝
Rem 低血回城
IfColor dihui*1.28+21 5 4a5373 2
KeyPress kjjF6 1
//保命要紧，先按回城再说
Delay 3000
If jyF=1
Gosub 死亡回城
EndIf
Delay 6000
VBS savestring="低血回城。。。"
Gosub 写入日志
Delay 6000
Gosub 回城补充
EndIf
Rem 补红
If zui=0
IfColor hongBF0*1.28+21 5 4a5373 2
KeyPress kjjF3 1
Delay 128
EndIf
Else
IfColor hongBF1*1.28+21 5 4a5373 2
KeyPress kjjF3 1
Delay 128
EndIf
EndIf
Rem 补蓝
IfColor lanBF*1.28+21 18 734b4a 2
//吃蓝也改为百分比设置
KeyPress kjjF4 1
Delay 128
EndIf
Return 补红蓝
Sub 自动五色
VBSCall FindPic(950,410,1015,710,"nf\五色1.bmp",0.9,wsx1,wsy1)
VBSCall FindPic(950,410,1015,710,"nf\五色2.bmp",0.9,wsx2,wsy2)
VBSCall FindPic(950,410,1015,710,"nf\五色3.bmp",0.9,wsx3,wsy3)
VBSCall FindPic(950,410,1015,710,"nf\五色4.bmp",0.9,wsx4,wsy4)
VBSCall FindPic(950,410,1015,710,"nf\五色5.bmp",0.9,wsx5,wsy5)
If wsx1<0 and wsy1<0 and wsx2<0 and wsy2<0 and wsx3<0 and wsy3<0 and wsx4<0 and wsy4<0 and wsx5<0 and wsy5<0
KeyPress 9 1
Delay 128
Gosub 补红蓝
VBSCall FindPic(780,370,1010,455,"nf\五色0.bmp",0.9,wsX,wsY)
If wsX>0 and wsY>0
MoveTo wsX wsY
Delay 64
RightClick 1
Delay 64
VBS savestring="吃五色。。。"
Gosub 写入日志
EndIf
Gosub 补红蓝
KeyPress 9 1
Delay 64
EndIf
EndIf
Return 自动五色
Sub 无药回城
If kjF3>0 and kjF3<5
VBS kjF_hx=596
For kjF3
VBS kjF_hx=kjF_hx+37
EndFor
ElseIf kjF3>4 and kjF3<9
VBS kjF_hx=753
For kjF3
VBS kjF_hx=kjF_hx+37
EndFor
EndIf
If kjF4>0 and kjF4<5
VBS kjF_lx=596
For kjF4
VBS kjF_lx=kjF_lx+37
EndFor
ElseIf kjF4>4 and kjF4<9
VBS kjF_lx=753
For kjF4
VBS kjF_lx=kjF_lx+37
EndFor
EndIf
IfColor kjF_hx 746 b5ffe7 2
SayString 买红。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress kjjF6 1
Delay 6000
VBS savestring="无红回城。。。"
Gosub 写入日志
Gosub 回城补充
Delay 6000
EndIf
IfColor kjF_lx 746 b5ffe7 2
SayString 买蓝。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress kjjF6 1
Delay 6000
VBS savestring="无蓝回城。。。"
Gosub 写入日志
Delay 6000
Gosub 回城补充
EndIf
Return 无药回城
Sub 包满回城
KeyPress 9 1
Delay 256
IfColor 977 537 000000 2
KeyPress 9 1
Delay 32
Else
SayString 存。。。
Delay 64
KeyPress 13 1
Delay 512
KeyPress kjjF6 1
Delay 6000
VBS savestring="包满回城。。。"
Gosub 写入日志
Delay 6000
KeyPress 9 1
Delay 128
Gosub 回城补充
EndIf
Return 包满回城
Sub 死亡回城
VBSCall FindPic(515,230,630,260,"nf\取消.bmp",0.9,sihuiX,sihuiY)
If sihuiX>0 and sihuiY>0
MoveTo sihuiX+10 sihuiY+5
LeftClick 1
Delay 6000
VBS savestring="角色死亡，选择回城。。。"
Gosub 写入日志
Delay 6000
KeyPress kjjF6 1
Delay 8000
Gosub 回城补充
EndIf
Return 死亡回城
Sub 回城补充
SayString ""回LS
Delay 100
Gosub 写入日志
Rem 回柳善
Delay 128
KeyPress 9 1
IfColor 812,565,73AAC6,2
Delay 512
MoveTo 977 369
Delay 128
RightClick 1
Delay 256
MoveTo 555 460
Delay 128
LeftClick 1
Delay 5000
Else
Goto 回柳善
Delay 128
EndIf
Goto 寻找仓库
Delay 1000
EndFor
Rem 寻找仓库
For 12
MoveTo 514 465
SaveMousePos
MoveTo 0 384
Delay 200
RestoreMousePos
Delay 100
LeftClick 1
EndFor
IfColor 424,561,73b6d6,2
Goto 开始补充
Delay 64
Else
Goto 寻找仓库
EndIf
EndIf
Delay 128
Delay 64
Rem 开始补充
Gosub 写入日志
VBS dki=0
Delay 128
Delay 512
VBS ge=0:pai=0
Rem 存物品
VBS savestring="存入物品。。。"
Gosub 写入日志
For 5
VBS ge=0
For 6
VBS wu_x=33*ge+812
VBS wu_y=33*pai+402
IfColor 600 543 081810 2
If pai>0
IfColor wu_x wu_y 081410 2
//第3排开始检查，如果该格无物品，去取药
Goto 取药
EndIf
EndIf
VBSCall FindPic(wu_x-17,wu_y-17,wu_x+17,wu_y+17,"nf\五色0.bmp",0.9,ws_x,ws_y)
If ws_x>0 and ws_y>0
//如果该格物品为五色,跳过
VBS ge=ge+1
//横格依次加1
Else
MoveTo wu_x wu_y
Delay 128
LeftClick 1
Delay 512
MoveTo 600 543
Delay 512
LeftClick 1
Delay 512
MoveTo 700 390
Delay 512
VBS ge=ge+1
//下一格
EndIf
Else
VBS savestring="个人仓库满，停止挂机。。。"
Gosub 写入日志
Goto 停止挂机
EndIf
EndFor
VBS pai=pai+1
//下一排
EndFor
//存完，去取药
Delay 1000
Rem 取药
VBS cunyao=0
//先把剩余药品存入仓库，防止因超重而取不了药
VBS savestring="存入剩余药品。。。"
Gosub 写入日志
For 3
MoveTo 812+33*cunyao 369
Delay 128
LeftClick 1
Delay 512
MoveTo 600 543
Delay 512
LeftClick 1
Delay 512
SayString 1000
Delay 128
KeyPress 13 1
Delay 512
VBS cunyao=cunyao+1
EndFor
VBS quyao=0
//仓库第1排第1格红，第2格蓝，第3格符，先买了放好
VBS savestring="取出药品。。。"
Gosub 写入日志
If zui=0
VBS hongN=hongN0
VBS lanN=lanN0
Else
VBS hongN=hongN1
VBS lanN=lanN1
EndIf
For 3
VBS yao_x=429+33*quyao
VBS yao_y=241
MoveTo yao_x yao_y
Delay 128
LeftClick 1
Delay 512
MoveTo 812 369
Delay 512
LeftClick 1
Delay 512
If quyao=0
//取红
SayString hongN
VBS backsay=hongN
Delay 256
KeyPress 13 1
Delay 512
VBS quyao=quyao+1
ElseIf quyao=1
//取蓝
SayString lanN
VBS backsay=lanN
Delay 256
KeyPress 13 1
Delay 512
VBS quyao=quyao+1
Else
//取符
SayString fuN
VBS backsay=fuN
Delay 256
KeyPress 13 1
Delay 512
EndIf
EndFor
Rem 补充结束
VBS savestring="补充结束。。。"
Gosub 写入日志
MoveTo 510 584
Delay 256
LeftClick 1
//关闭仓库
Delay 512
If tufu=0
//无土符
KeyPress 9 1
Delay 128
VBS savestring="无土符，停止挂机。。。"
Gosub 写入日志
Goto 停止挂机
ElseIf tufu=1
VBS savestring="有土符,使用土符返回练级地点。。。"
Gosub 写入日志
MoveTo 977 369
Delay 128
RightClick 1
Delay 256
MoveTo 513 407
Delay 128
LeftClick 1
Delay 3000
For 8
KeyPress kjjF3 1
Delay 800
EndFor
KeyPress 9 1
Delay 128
Goto 开始战斗
Else
//使用土符移动到保存的第baocunD个练级点
VBS savestring="有土符,使用土符返回练级地点。。。"
Gosub 写入日志
MoveTo 977 369
Delay 128
RightClick 1
Delay 256
If zui=0
VBS baocunD=baocunD0
Else
VBS baocunD=baocunD1
EndIf
VBS baocun=-1
For baocunD
VBS baocun=baocun+1
EndFor
MoveTo 516 349+38*baocun
Delay 128
LeftClick 1
Delay 3000
For 6
KeyPress kjjF3 1
Delay 800
EndFor
KeyPress 9 1
Delay 128
Goto 开始战斗
EndIf
Return 回城补充
Sub 快捷键设置
VBS kjjF1=111
For kjF1
VBS kjjF1=kjjF1+1
EndFor
VBS kjjF2=111
For kjF2
VBS kjjF2=kjjF2+1
EndFor
VBS kjjF3=111
For kjF3
VBS kjjF3=kjjF3+1
EndFor
VBS kjjF4=111
For kjF4
VBS kjjF4=kjjF4+1
EndFor
VBS kjjF5=111
For kjF5
VBS kjjF5=kjjF5+1
EndFor
VBS kjjF6=111
For kjF6
VBS kjjF6=kjjF6+1
EndFor
VBS kjjF7=111
For kjF7
VBS kjjF7=kjjF7+1
EndFor
VBS kjjF8=111
For kjF8
VBS kjjF8=kjjF8+1
EndFor
Return 快捷键设置
Sub 写入日志
VBS dim file,f1,fileexist,savestring,filename
VBS Const ForWriting=2
VBS Const ForAppending=8
VBS set file = CreateObject("Scripting.FileSystemObject")
VBS fileexist=file.FileExists(filename)
If fileexist=-1
Goto append
EndIf
VBS Set f1 =file.CreateTextFile(filename,ForWriting)
VBS f1.Close
Rem append
VBS Set f1 =file.OpenTextFile(filename,ForAppending)
VBS savestring=Cstr(Year(Now))+"年"+Cstr(Month(Now))+"月"+Cstr(Day(Now))+"日"+Cstr(Hour(Now))+"时"+Cstr(Minute(Now))+"分"+Cstr(Second(Now))+"秒 "+savestring
VBS f1.WriteLine(savestring)
VBS f1.Close
Return 写入日志
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
//【脚本经过修改、测试】
//【创作日期】//
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
热心网友
时间：2024-10-20 12:22
介绍:绝对定点打怪(抢地方全靠他)杀了一个杀下一个,可以设置先单技能后群技能杀怪.自动补给!超级稳定!
看了博客再回,不好你鄙视我!
http://xhypolice.bokee.com/
热心网友
时间：2024-10-20 12:23
热心网友
时间：2024-10-20 12:24
