Rem 血条
//判断战斗是否结束
IfColor 910,19,4249FF,0
Delay 128
KeyPress 113,1
Delay 128
//战斗中加血
IfColor 103+((202-103)*per2/100),40,847500,0
Delay 500
KeyPress 115,1
EndIf
Delay 128
Goto 血条
Rem 打怪结束
EndIf
EndIf
Else
Goto 坐标小移动
EndIf
Else
//解决怪不在大地图视线中的问题
Rem 坐标小移动
xe=xb-512
ye=yb-384
de=(xe^2+ye^2)^0.5
xe1=(re*xe)/de+512
ye1=(re*ye)/de+384
MoveTo xe1,ye1
Delay 500
LeftClick 1
Delay 1500
EndIf
Else
//没怪随机移动
Randomize
xb3=Int((700-300)*Rnd+300)
yb3=Int((500-200)*Rnd+200)
MoveTo xb3,yb3
Delay 500
LeftClick 1
Delay 3000
EndIf
Gosub 定时技能
Gosub 休息
Delay 256
//范围打怪
If mb=1
//检测一次要3秒钟,为了提高效率,一分钟检测一次
If DateDiff("s",t2,now)>=60
t2=now
Gosub 范围检测
EndIf
EndIf
//死亡停止挂机
IfColor 103,34,847500,0
Goto 脚本结束
EndIf
Gosub 防止卡住
Goto 开始
Rem 脚本结束
EndScript
//脚本结束~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Rem 子函数
Sub 定时技能
If DateDiff("s",t3,now)>=kt1
t3=now
KeyPress 115,1
Delay 1000
EndIf
If DateDiff("s",t4,now)>=kt2
t4=now
KeyPress 116,1
Delay 1000
EndIf
Return 定时技能
Sub 防止卡住
If DateDiff("s",t1,now)>=30
Delay 256
nd=nd+1
t1=now
Gosub 获取坐标
xd=cint(z1)
yd=cint(z2)
md=nd mod 2
If md=0
xd1=xd
yd1=yd
EndIf
If md=1
xd2=xd
yd2=yd
EndIf
If xd1=xd2 and yd1=yd2
Delay 256
For 2
//随机移动一段距离
Randomize
xd3=Int((700-300)*Rnd+300)
yd3=Int((500-200)*Rnd+200)