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)