0Andy>0ThenDelay200ElseflashEndIfIf(Abs(a-x)>10orAbs(b-y)>10)andkey" />
//已默认浮标为目标3秒后监测浮标跳动,需打开自动拾取,最好角度人物左侧45°,仰角30度以下
Dim a, b, x, y,key
flash
Rem re
FindColorEx 2,605,1919,1071,"1748FF",1,0.8,x,y
If x > 0 And y > 0 Then
Delay 200
Else
flash
End If
If (Abs(a - x) > 10 or Abs(b - y) > 10) and key = 1 Then
MoveTo x, y
Delay 200
RightClick 1
Delay 1000
flash
Goto re
End If
a = x
b = y
key = 1
Goto re
Sub OnScriptExit()
//Call Plugin.File.WriteFileEx("G:\Log.txt", pos)
End Sub
Sub flash
key = 0
KeyPress "J", 1
Delay 3000
End Sub