//>>>>>>>>>打怪.捡物.血气保护.死亡自动返程.定时关机,，防呆
//【使用说明】
//F10 开始挂机      F12 停止挂机
//1.屏幕与游戏分辩率请设置为1024*768 32位(游戏其它设置保持默认>>>>>>>全屏模式!!!
//2.技能按键放___________________________________________
//1~基本攻击 3~捡物 5~加攻技能(30分钟按一次)
//6~连击技能(不要说不懂什么叫连击技∶）
//F5~红药    F6~蓝药  F7~打坐
// 偶就不多加注释了,,,,,
VBS dim xie,xieo,xieb,lan,lano,lanb,i,t1,t2,j,gj,gg,x,y,xx,yy,jw,jjj
UserVar xieb=40 气血打坐回复/%
UserVar lanb=20 真气打坐回复/%
UserVar xiebo=20 吃红/%
UserVar lanbo=5 吃蓝/%
UserVar jw=0 0为不捡物 其它捡物次数
UserVar ti=180 多少分钟后关机
UserVar n=10 XX参数＾○＾(偶都不清楚)
UserVar m=40 XX参数＾○＾(建义不要改动)
VBS i=0
VBS gj=0
VBS t1=now
VBS t2=now
VBS tio=ti*60
VBS xie=123+xieb*1.17
VBS lan=123+lanb*1.17
VBS xieo=123+xiebo*1.17
VBS lano=123+lanbo*1.17
//-----------------主控-----------------------------
Delay 500
Gosub 记录挂机点
KeyPressH 53,1
Rem GOGO
Gosub 人物状态检测
Rem GGGG
VBS j=0
VBS jjj=0
Delay 300
If DateDiff("s",t1,now)>=1700
Delay 50
KeyPressH 53,1
VBS t1=now
EndIf
If DateDiff("s",t2,now)>=tio
Goto 关机
EndIf
IfColor xie,41,f8,1
Gosub 打坐回复
Else
IfColor lan,59,d56d22,1
Gosub 打坐回复
Else
Gosub 打怪
EndIf
EndIf
Goto GOGO
/
/---------------------------------------------------------------
Sub 打坐回复
Delay 20
KeyPressH 118,1
Rem 回复检测
Delay 400
If jjj>=m+5
VBS jjj=0
Gosub 人物状态检测
EndIf
IfColor 433,31,c0e10,0
KeyPressH 51,1
Delay 300
KeyPressH 54,1
Gosub 怪物检测
Else
IfColor 235,41,f8,0
Goto 002
Else
Goto 回复检测
Rem 002
IfColor 235,59,d56d22,0
KeyPressH 51,1
Gosub 打怪
Else
Goto 回复检测
EndIf
EndIf
EndIf
Return 打坐回复
Sub 打怪
Delay 200
IfColor 545,54,4141fd,0
KeyPressH 54,1
Gosub 怪物检测
Else
KeyPressH 9,1
EndIf
Return 打怪
Sub 怪物检测
Rem KKK
Delay 350
If j>=m
VBS j=0
KeyPressH 9,1
Gosub 人物状态检测
Goto ko
Else
If i>=n
KeyPressH 49,1vbs脚本怎么停止
VBS i=0
Gosub 检测血蓝值
Goto ko
Else
Rem ko
Delay 50
Gosub 检测血蓝值
IfColor 433,31,c0e10,0
VBS i=i+1
VBS j=j+1
Goto KKK
Else
If jw>=1
For jw
KeyPressH 51,1
Delay 500
KeyPressH 51,1
EndFor
Else
Delay 20
EndIf
EndIf
EndIf
EndIf
Return 怪物检测
Sub 检测血蓝值
Delay 300
IfColor xieo,41,f8,1
KeyPressH 116,1
Else
IfColor lano,59,d56d22,1
KeyPressH 117,1
EndIf
EndIf
Return 检测血蓝值
Sub 记录挂机点
KeyPressH 77,1
Rem jl
Delay 800
KeyPressH 9,1
Delay 800
VBSCall FindPic(250,120,776,646,"jx.BMP",0.9,x,y)
If x>=0 and y>=0
Delay 500
KeyPressH 77,1
Else
If gj>=8
KeyPressH 13,1
Delay 500
VBS gj=0
Delay 500
KeyPressH 77,1
Else
VBS gj=gj+1
Goto jl
EndIf
EndIf
Return 记录挂机点
Sub 返回挂机点
Delay 8000
KeyPressH 77,1
Delay 1200
MoveTo x+4,y+4
Delay 200
LeftClickH 1
Delay 500
MoveTo 100,100
Rem zz
Delay 1000
KeyPressH 9,1
Delay 3000
VBSCall FindPic(x-15,y-15,x+15,y+15,"jx.BMP",0.9,xx,yy)
If xx>=0 and yy>=0
KeyPressH 77,1
Goto GOGO
Else
Goto zz
EndIf
Return 返回挂机点
Sub 人物状态检测
IfColor 123,41,f8,1
Goto 0000
Else
Goto GGGG
Rem 0000
IfColor 123,59,d56d22,1
Delay 5000
MoveTo 513,391
Delay 300
LeftClickH 1
Delay 2000
Gosub 返回挂机点
Else
Goto GGGG
EndIf
EndIf
Return 人物状态检测
Rem 关机
Delay 500
VBSCall RunApp(" -s -t 40")
EndScript 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。