【新破天一剑】自动打怪补血v1.0版 [复制链接]

//<>---------------------------------------功能说明
//功能：自动找怪；自动打怪；自动捡物；血少于50%自动补血；

//<>---------------------------------------鼠标攻击的形状特征码

您所在的用户组无法下载或查看附件

Shape1=1223392300

//<>---------------------------------------屏幕中心点X坐标
x=400
//<>---------------------------------------屏幕中心点Y坐标
y=300
//其他初始值
xh=0
yd=1

//<>---------------------------------------圈数
n=5
//<>---------------------------------------间距
k=50

//<>---------------------------------------渐开线初始值
x1=x
y1=y
x2=x
y2=y
x3=x
y3=y
x4=x
y4=y
x1=x1-k
x2=x2+k
x3=x3+k
x4=x4-k
y1=y1-k
y2=y2-k
y3=y3+k
y4=y4+k

//<>---------------------------------------渐开线扫描怪物
j=0
While x1 < x2
MoveToEx x1,y1
Delay 45

Shape2 = GetCursorShape(0)
//移动到x1,y1延时1毫秒后再次取x1,y1点的鼠标特征码并赋值到Shape2
If Shape2=Shape1 Then
//打怪代码
gosub 打怪过程中
//打完怪后再重新开始搜索
Goto 开始搜怪
End If
j=j+1
x1=x1+n*j
wend
j=0
While y2 < y3
MoveToEx x2,y2
Delay 45

Shape2 = GetCursorShape(0)
If Shape2=Shape1 Then
gosub 打怪过程中
Goto 开始搜怪
End If
j=j+1
y2=y2+n*j
wend
j=0
While x3 > x4
MoveToEx x3,y3
Delay 45

Shape2 = GetCursorShape(0)
If Shape2=Shape1 Then
gosub 打怪过程中
Goto 开始搜怪
End If
j=j+1
x3=x3-n*j
wend
j=0
While y4 > y1
MoveToEx x4,y4
Delay 45

Shape2 = GetCursorShape(0)
If Shape2=Shape1 Then
gosub 打怪过程中
Goto 开始搜怪
End If
j=j+1
y4=y4-n*j
wend
k=k+30
KeyPress 18, 1
Gosub 补血
if k<200
Goto 开始搜怪
End If

//<>---------------------------------------搜索2次后,无怪,人物走动换位置
xh=xh+1
//MessageBox xh
If xh>2
If yd=1
MoveToEx x-250,y+5
yd=yd+1
Else
MoveToEx x+250,y+5
yd=yd-1
EndIf
LeftDown 1
Delay 2000
LeftUp 1
xh=0
EndIf

sub 打怪过程中
LeftClick 2
//等待6秒打怪时间
n=0
While n<6
Delay 1000
Gosub 补血
n=n+1
Wend
//捡物3次
n=0
While n<3
KeyPress 18, 1
Delay 300
n=n+1
Wend
End Sub

Sub 补血

您所在的用户组无法下载或查看附件

//血少于为50%时补血
IfColor 415,45,&H211CF7,2
else
KeyPress 112,1
Delay 100
End If
End sub