Hwnd = Plugin.Window.Find(0, "《天龙八部OL》")
sRect = Plugin.Window.GetClientRect(Hwnd)
dim MyArray 
MyArray =Split(sRect,"|")
L = CLng(MyArray(0)) : T = CLng(MyArray(1))
R = CLng(MyArray(2)) : B = CLng(MyArray(3))

Rem 脚本开始

Call 打怪()

Call 人物加血()

Call 宝宝加血()

Goto 脚本开始

Sub 打怪()
Delay 200
KeyDown "Ctrl", 1
Delay 200
KeyPress "Tab", 1
Delay 200
KeyUp "Ctrl", 1
Delay 200
KeyPress "F1", 1
Delay 200
End Sub

Sub 人物加血()
Delay 200
IfColor L+165,t+34,"393939",0 Then
KeyPress "F2", 1
Else
End If
End Sub

Sub 宝宝加血()
Delay 200
IfColor L+184,T+83,"383838",0 Then
KeyPress "F3", 1
Else
End If
End Sub