Script that shows monster HP! =O

[omegashin]

I myself don't like botting but I did soem cool stuff here.

Like HP of players, is ther a way we can see Monsters HP/??

[ShowerThoughts]

I don't use reflection but you could turn the exp information 32/40 exp would be 8/10 lifes.

[Brain]

you don't like botting but you're on a runescape autoing website?

[Lance]

haha i think he means hes more interested in makeing runescape aids, more than bots. right?

and yes there is, though i dont know it off the top of my head..

[kdj55]

Hes Probably here for the Community. Cause Everyone here is so tight =)
oh and Welcome Back!

[Naum]

It can be achieved easily, If you know the total HP, there would be a simple ratio of Red to Green.

[JPHamlett]

look in fight.scar



{************************************************* ******************************
Function FindAllHPBars(Sx, Sy, x1, y1, x2, y2: Integer): TBoxArray;
By: Cazax
Description: Finds all the HP bars (the TPAs of them) in the box formed by
x1, y1, x2, y2. Recommended to set Sx and Sy to MSCX and MSCY, so Result[0]
is your own Bar or the closest one to you.
************************************************** *****************************}
Function FindAllHPBars(Sx, Sy, x1, y1, x2, y2: Integer): TBoxArray;
Var
a, b : TPointArray;
ATPA : T2DPointArray;
H, I : Integer;
Begin
FindColorsSpiralTolerance(Sx, Sy, a, 10496, x1, y1, x2, y2, 0);
FindColorsSpiralTolerance(Sx, Sy, b, 198716, x1, y1, x2, y2, 0);
ATPA := TPAToATPAEx(CombineTPA(a, b), 55, 7);
H := High(ATPA);
SetLength(Result, Length(ATPA));
For I := 0 To H Do
Result[i] := GetTPABounds(ATPA[i]);
End;

{************************************************* ******************************
Function GetHits(Sx, Sy, x1, y1, x2, y2: Integer): TIntegerArray;
By: n3ss3s & Cazax
Description: Finds all HP percents of the HP bars in x1, y1, x2, y2.
READ THE DESCRIPTION OF FindAllHPBars!
************************************************** *****************************}
Function GetHitsIn(Sx, Sy, x1, y1, x2, y2: Integer): TIntegerArray;
Var
E: Extended;
I, H: Integer;
TBA : TBoxArray;
Begin
TBA := FindAllHPBars(Sx, Sy, x1, y1, x2, y2);
SetArrayLength(Result, GetArrayLength(TBA));
H := High(TBA);
For I := 0 To H Do
Begin
E := CountColorTolerance(56488, TBA[i].x1, TBA[i].y1, TBA[i].x2, TBA[i].y2, 43) / 60;
Result[i] := Round(100 * E);
End;
End;