lugin Hwnd = Window.MousePoint()
Plugin Rect = Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
UserVar jxbfb=80 加血百分比
UserVar jlbfb=80 加蓝百分比
UserVar jcbfb=80 加宠百分比
Dim xzbz(2),yzbz(2)
xzbz(0)=Ux+81+128*jxbfb/100
yzbz(0)=Uy+35
xzbz(1)=Ux+81+128*jlbfb/100
yzbz(1)=Uy+41
xzbz(2)=Ux+105+94*jcbfb/100
yzbz(2)=Uy+78
IfColor xzbz(0),yzbz(0),262224,2
    Delay 50
    KeyPress 119,1
EndIf 
Delay 50
IfColor xzbz(1),yzbz(1),262224,2
    KeyPress 120,1
EndIf 
Delay 50
IfColor xzbz(2),yzbz(2),262224,2
    KeyPress 121,1
EndIf 
Delay 50
Goto 2