IfColor 100+Ux,Uy+44,"4B4BDB",1 Then
KeyPress "L", 1
Else
End If
IfColor 206+Ux,44+Uy,"EF",0 Then
Else
Call 捡东西()
Call 加血()
Goto 选怪
End If
KeyPress "H", 1
Delay 300
KeyPress "I", 1
Delay 300
KeyPress "J", 1
IfColor 90+Ux,Uy+44,"4B4BDB",1 Then
KeyPress "N", 1
Else
End If
IfColor 206+Ux,44+Uy,"EF",0 Then
Else
Call 加血()
Call 捡东西()
Goto 选怪
End If
Goto 就打
End Sub
Sub 打我的怪()
FindPic 446+Ux,47+Uy,480+Ux,Uy+81,"Attachment:\自己.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call 攻击技能()
Else
Call 寻怪辅助()
End If
End Sub
Sub 寻怪辅助()
FindPic Ux,Uy+53,Ux+26,Uy+79,"Attachment:\战斗状态.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyDown "Num 4", 1
Delay 100
KeyUp "Num 4", 1
Else
n=n+1
If n>4 Then
n=0
KeyDown "Num 4", 1
Delay 500
KeyUp "Num 4", 1
End If
MoveTo 221+Ux, 297+Uy
Delay 200
LeftClick 1
End If
End Sub
Sub 捡东西()
KeyPress "Z", 1
Delay 1000
KeyPress "Z", 1
Delay 1000
k=k+1
If k mod 10 =0 Then
Goto 使用地图
End If
End Sub
Sub 战斗中打我的()
Rem 谁怕谁
KeyPress "Tab", 1
Delay 100
FindPic 446+Ux,47+Uy,480+Ux,Uy+81,"Attachment:\自己.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "W", 1
Delay 1000
KeyPress "G", 1
Delay 1000
KeyPress "F", 1
Delay 1000
KeyPress "T", 1
Delay 1000
Else
KeyDown "Num 4", 1
Delay 500
KeyUp "Num 4", 1
Delay 10
Goto 谁怕谁
End If
IfColor 206+Ux,44+Uy,"EF",0 Then
Else
Call 加血()
Delay 10
KeyPress "Z", 1
Delay 1000
KeyPress "Z", 1
Delay 1000
KeyPress "O", 1
Goto 到目的地
End If
Goto 谁怕谁
End Sub
Sub 加血()