For i = 450 to 270 Step -1
x = 100 * Cos(i * 3.141592654 / 180)
y = 100 * Sin(i * 3.141592654 / 180)
MoveTo x + 798, y + 455
Delay 50
Next
Function 环形血条保护(百分比)
最终角度 = 95 + (170 * 百分比 / 100)
x = 68 * Cos(最终角度 * 3.141592654 / 180)
y = 68 * Sin(最终角度 * 3.141592654 / 180)
GetColor = GetPixelColor(x + 1030, y + 633)
If GetColor <> "0000FF" Then
KeyPress "D", 1
End If
MoveTo x + 1030, y + 633
End Function
Do
环形血条保护 10
Loop