Get skills lite

[jhildy]

i found the light version of the hiscore rankings for runescape and remade my getskill functions. They are in numbers however and i dont feel like retyping what the skills are for each number but im sure you can find out. This takes much less computing power since there is such smaller of a string to trim then before. I also have added getrank getlvl and getxp so it is easy to get each one when you need it. Here you go.

program New;
var s: array [0..23] of string;
var site,temps: string;
var ii: integer;

Function GetStat(Number: integer): String;
var i: integer;
begin
for i:=0 to number do
begin
temps:=left(site,1);
s[i]:=temps+between(temps,chr(10),site);
delete(site,pos(temps,site),pos(chr(10),site))
end;
result:= s[number];
end;

Function Getplayerrank(Player: string;Skill: integer): String;
var ss,sss: string;
begin
site:=getpage('http://hiscore.runescape.com/index_lite.ws?player='+Player)
ss:=Getstat(Skill);
sss:=left(ss,1)
Result:=sss+Between(sss,',',ss);
end;

Function Getplayerlvl(Player: string;Skill: integer): String;
var ss: string;
begin
site:=getpage('http://hiscore.runescape.com/index_lite.ws?player='+Player)
ss:=getstat(skill);
delete(ss,1,pos(',',ss))
delete(ss,pos(',',ss),10)
result:=ss;
end;

Function Getplayerxp(player: string;skill: integer): string;
var ss:string;
begin
site:=getpage('http://hiscore.runescape.com/index_lite.ws?player='+Player)
ss:=getstat(skill);
delete(ss,1,pos(',',ss))
delete(ss,1,pos(',',ss));
result:=ss;
end;

[R0b0t1]

Nice. Something faster FTW. You might want to turn it into a .DLL?


I might, but I'm to lazy.

[jhildy]

ehh im also lazy. it took me around 2 months to actually complete this haha.