热血江湖按键精灵求热血江湖 QD定点挂机按键精灵.

求热血江湖喊话按键精灵脚本.要编好的

[General] Description=无敌命令 BeginHotkey=45 BeginHotkeyMod=8 PauseHotkey=0 PauseHotkeyMod=0 Hotkey=123 HotkeyMod=0 RunOnce=0 EnableWindow= Enable=1 AutoRun=0 [Repeat] Type=0 Number=1 [Relative] SetupOCXFile= [Comment] Content= [Script] UserVar Var1=/燆Γε?Здравствуйте!?鹆 无敌命令 UserVar Var2=30 输入速度（单位：毫秒） Rem start Delay Var2 SayString Var1 Delay 20 KeyPress 13,1 Goto start 方法:新建一个文本,把上面的文字复制,保存,然后放在按键精灵script 目录下即可,30毫秒喊一下,可以更改。

资源来于： /Software/Catalog186/6518.html

求热血江湖挂机的按键精灵

下面是我朋友做的群刀脚本，超级好用，现在n多人都在用这个脚本：

[General]
Description=群刀半自动练级
BeginHotkey=121
beginHotkeyMod=4
RunOnce=0
Enable=0
[Repeat]
Type=0
Number=1
[Comment]
Content=

[Script]
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*循环设为循环1次.F11开始，F12中止.
//*单人挂机时建议关闭组队和查看功能，关闭所有特效，在1024×768下使用.
//*F1为60级轻功，F2技能，F3红，F4蓝，F5捡东西，F6回城符，F7单攻技能,F8为15轻功.
//*群刀手动引怪时也能轻松了，点远处怪，则使用单攻技能，点身旁怪，则群攻。


//*动动鼠标，一直打6、7个怪不是问题，轻松+愉快啊
//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓
VBS hongBF=70
//血量少于百分之多少（可自行设定）时，脚本自动吃红。


VBS dihui=25
//血量少于百分之多少（可自行设定）时，脚本自动回城打坐。


//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
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 无药回城
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
//【脚本经过修改、测试】
//【创作日期】2006.7
//【脚本作者】逆风之帆(Email:951@)
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓

求热血江湖 QD定点挂机按键精灵.

逆风早期的QD辅助脚本就可以 　　[General] 　　Description=热血江湖之打手组队单刷全自动挂机5.0版 　　BeginHotkey=122 　　BeginHotkeyMod=0 　　PauseHotkey=0 　　PauseHotkeyMod=0 　　Hotkey=123 　　HotkeyMod=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 zudui=0 　　//组队时设为1，单反时设为0 　　VBS duiyuanN=2 　　//组队时，队员人数少于此值（包括自己）则自动回城（2-8） 　　VBS duisanH=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 zudui=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 zudui=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 zudui=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 写入日志 　　// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓 　　//【脚本经过修改、测试】 　　//【创作日期】// 　　// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓