# Remove this line or save the file with a .pl extension... orgfree doesn't seem to like perl files #!/usr/bin/perl use LWP::Simple; @names=("stewbasic","Zezima"); @skills=("Attack","Defence","Strength","Hitpoints","Ranged","Prayer","Magic","Cooking","Woodcutting", "Fletching","Fishing","Firemaking","Crafting","Smithing","Mining","Herblore","Agility","Thieving", "Slayer","Farming","Runecrafting","Hunter","Construction","Summoning","Dungeoneering"); $str="\n\n"; @lvls=(); for($i=0;$i<99;++$i){push(@lvls,"");} $min=99; $max=1; for $n(@names){ $hs=get("http://hiscore.runescape.com/index_lite.ws?player=$n"); $i=0; while($hs=~/\n-?\d+,(-?\d+),-?\d+/g&&$i<=$#skills){ $l=$1; if($l>-1){ $lvls[$l-1].="$n:$skills[$i] "; if($l<$min){$min=$l;} if($l>$max){$max=$l;} } ++$i; } } for($i=$max;$i>=$min;--$i){ $str.="\n"; } $str.="

Level	".join("	",@names)."
$i"; for $n(@names){ $str.="	"; while($lvls[$i-1]=~/$n:([^ ]+)/g){$str.="$1 ";} } $str.="

\n"; open FILE,">stats.htm"; print FILE $str; close FILE; exec "stats.htm";