Okay, with a bit of help from Widget, i managed to make an "hp above heads" script, but it only works if the player's MAX HP is above 55.
the script outputs looks something like this:
SCAR Code:
user1
max hp is: 76
current hp is: 70
hp ratio is: 96
Now what i need someone to teach me/do it for me and share the script credits 50/50 is how to draw some text to the SMART window, just like this http://www.villavu.com/forum/showthread.php?t=33699 or JuKKa's Air Crafter.
Okay, here is the code, its a bit messy, and dont look at standars lol:
SCAR Code:
program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include srl/srl.scar}
{.Include SRL\SRL\Reflection\Reflection.Scar}
const
//SMART setup
WorldNumber = 119;
Signed = true;//true/false
UseSMART = false;//
function GetPlayersMaxHp(player:string):integer;
var
page: string;
begin
page := GetPage('http://hiscore.runescape.com/hiscorepersonal.ws?user1=' + player);
page := Between('Hitpoints','<tr',page);
page := Between('</td>','</tr>',page);
page := Between('</td>','d>',page);
page := Between('<td class="alL">','</t',page);
if page = '' then
begin
result := 1;
exit;
end;
result := strtoint(page);
end;
procedure theplayer;
var
Me : array of Tplayer;
i, o : integer;
u: string;
begin
Me := Getplayers;
for i := 0 to High(Me) do
begin
Writeln(Me[i].Name);
Writeln('ratio '+inttostr(Me[i].HpRatio));
u := Me[i].Name;
o := GetPlayersMaxHp(u);
Writeln('Max HP IS: '+inttostr(o));
Writeln('Current HP is: '+inttostr(o * Me[i].HpRatio / 100));
wait(200+random(100));
end;
end;
begin
SmartSetupEx(worldnumber, false, signed, false);
// while not SmartReady do wait(100);
wait(10000);
SetTargetDC(SmartGetDC);
SetupSRL;
theplayer;
end.