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