SRL Archive - Other Scripts

In Only 48 Lines Too >.<

Script:

program Highscores;
type
 SkillInfo = record
  rank,level,exp,pagesource : string;
 end;
var
  shtml : string;
  Stats: Array[1..22] of SkillInfo;
  i : integer;
const
  Username = 'Zezima';

function GetSkillNameFromNumber(number : integer) : String;
var
  SkillName : Array Of String;
begin
  SkillName := ['','Attack', 'Defence', 'Strength', 'Hitpoints', 'Ranged',
   'Prayer', 'Magic', 'Cooking', 'Woodcutting', 'Fletching', 'Fishing',
   'Firemaking', 'Crafting', 'Smithing', 'Mining', 'Herblore', 'Agility',
   'Thieving','Slayer','Farming','Runecraft','Construction']
  Result := SkillName[Number]
end;

function GetSkillLevel(skill, source : string) : SkillInfo;
begin
  Result.pagesource := source;
  Result.rank := Between('>' + skill + '</a></td> <td align="right">','</td> <td align="right">',Result.PageSource);
  Result.level := Between('>' + skill + '</a></td> <td align="right">' + Result.Rank + '</td> <td align="right">','</td> <td align="right">',Result.PageSource)
  Result.Exp := Between('>' + skill + '</a></td> <td align="right">' + Result.Rank + '</td> <td align="right">' + Result.Level +  '</td> <td align="right">', '</td>',Result.PageSource);
end;

procedure WritelnSkills(SkillName : string;SkillNumber : integer);
begin
  Writeln('::::::::::::::' + SkillName + ':::::::::::::');
  Stats[SkillNumber] := GetSkillLevel(SkillName,shtml)
  Writeln('::Rank: ' + Stats[SkillNumber].Rank);
  Writeln('::Level: ' + Stats[SkillNumber].Level);
  Writeln('::Exp: ' + Stats[SkillNumber].Exp);
end;

begin
  ClearDebug;
  Writeln('Loading Source...');
  shtml := GetPage('http://hiscore-web.runescape.com/lang/en/aff/runescape/hiscorepersonal.ws?user1=' + Username);
  Writeln('====' + Username + '''s Stats====')
  for i := 1 to 22 do
    WritelnSkills(GetSkillNameFromNumber(i),i);
end.

From Debug Box:

Loading Source...
====Zezima's Stats====
::::::::::::::Attack:::::::::::::
::Rank: 13
::Level: 99
::Exp: 54,776,310
::::::::::::::Defence:::::::::::::
::Rank: 39
::Level: 99
::Exp: 30,993,858
::::::::::::::Strength:::::::::::::
::Rank: 38
::Level: 99
::Exp: 29,839,696
::::::::::::::Hitpoints:::::::::::::
::Rank: 12
::Level: 99
::Exp: 46,123,155
::::::::::::::Ranged:::::::::::::
::Rank: 19
::Level: 99
::Exp: 33,297,914
::::::::::::::Prayer:::::::::::::
::Rank: 61
::Level: 99
::Exp: 13,223,880
::::::::::::::Magic:::::::::::::
::Rank: 24
::Level: 99
::Exp: 22,919,541
::::::::::::::Cooking:::::::::::::
::Rank: 6
::Level: 99
::Exp: 157,949,844
::::::::::::::Woodcutting:::::::::::::
::Rank: 145
::Level: 99
::Exp: 21,024,354
::::::::::::::Fletching:::::::::::::
::Rank: 37
::Level: 99
::Exp: 39,088,904
::::::::::::::Fishing:::::::::::::
::Rank: 106
::Level: 99
::Exp: 17,181,574
::::::::::::::Firemaking:::::::::::::
::Rank: 89
::Level: 99
::Exp: 14,020,080
::::::::::::::Crafting:::::::::::::
::Rank: 46
::Level: 99
::Exp: 13,287,313
::::::::::::::Smithing:::::::::::::
::Rank: 29
::Level: 99
::Exp: 17,105,208
::::::::::::::Mining:::::::::::::
::Rank: 95
::Level: 99
::Exp: 15,115,645
::::::::::::::Herblore:::::::::::::
::Rank: 27
::Level: 99
::Exp: 13,491,339
::::::::::::::Agility:::::::::::::
::Rank: 39
::Level: 99
::Exp: 13,174,702
::::::::::::::Thieving:::::::::::::
::Rank: 79
::Level: 99
::Exp: 15,340,343
::::::::::::::Slayer:::::::::::::
::Rank: 31
::Level: 99
::Exp: 13,343,765
::::::::::::::Farming:::::::::::::
::Rank: 21
::Level: 99
::Exp: 13,704,883
::::::::::::::Runecraft:::::::::::::
::Rank: 47
::Level: 99
::Exp: 13,116,225
::::::::::::::Construction:::::::::::::
::Rank: 11
::Level: 99
::Exp: 13,110,376
Successfully executed

W00t!

Im Making It Into A Form As Im Typing (Well after i post this :) )

wow, you and Kane seem to be shitting these functions out :p

Good Job

i love username := readln('fuck you');

Nice!

its very nice, its better then opening the whole runescape website just to see one username

Haha, wonder if it could find stats of banned accounts :P

btw, this doesnt work anymore, got to do a bit of updating, not now tho.

another great rs monkey production