From: M_A_I_N_FTW
omg ty, must took you a while
well i wasnt finished
US West 1
US West 2
US West 3
UK 2
jolt9 w12 m
jolt5 w52 f
jolt10 w67 f
jolt11 w68 f
jolt12 w69 m
US West 5
UK 1
world11 w11 f
mn2 w15 f
mn3 w16 f
mn4 w23 m
mn5 w24 m
mn1 w71 m
world80 w80 f
mn6 w81 f
world82 w82 m
world83 w83 m
world84 w84 m
world92 w92 m
mn8 w105 f
mn9 w106 f
Canada East
US East 2
at6 w44 m
at7 w101 f
at8 w102 f
at9 w103 m
at10 w104 m
US Central 3
US Central 2
Netherlands 1
ams2 w50 f
ams3 w51 f
ams5 w53 m
ams7 w141 f
US Central 1
US West 4
US East 1
ny9 w38 f
ny10 w39 m
ny11 w40 f
ny12 w41 f
ny13 w45 m
ny14 w46 m
ny1 w85 f
ny2 w86 f
ny5 w88 m
ny6 w89 m
ny7 w90 f
ny8 w91 m
US East 3
mi1 w93 f
mi2 w94 f
mi3 w95 f
mi4 w96 f
mi5 w97 m
mi6 w98 m
mi7 w99 m
Australia
au1 w107 f
au2 w108 f
au3 w109 f
au4 w110 m
au5 w111 m
au6 w112 m
Sweden
swe1 w117 f
swe2 w118 f
swe3 w119 f
swe5 w121 m
swe7 w123 f
swe8 w124 m
Canada West
jlv9 w125 f
jlv2 w126 f
jlv3 w127 f
jlv4 w128 f
jlv5 w129 m
jlv6 w130 m
jlv7 w131 m
jlv8 w132 m
jlv18 w145 m
jlv10 w152 f
jlv11 w153 f
jlv12 w154 f
jlv13 w155 f
jlv15 w157 m
jlv16 w158 m
jlv17 w159 m
Finland
hel1 w133 f
hel2 w134 f
hel4 w136 f
hel5 w137 m
hel6 w138 m
hel7 w149 f
hel9 w151 m
Netherlands 2
me5 w10 f
me6 w25 f
me10 w54 m
me2 w142 f
me3 w143 m
me4 w144 m
US Central 2
United States 1
world3 w3 f
world6 w6 m
world33 w33 f
world34 w34 f
world35 w35 f
world36 w36 m
world43 w43 f
world55 w55 f
world57 w57 f
world58 w58 m
world59 w59 m
world74 w74 f
world75 w75 f
world76 w76 m
world77 w77 m
world78 w78 m
world79 w79 m
world87 w87 f
United States 2
world4 w4 f
world5 w5 f
world13 w13 f
world14 w14 f
world17 w17 f
world18 w18 m
world19 w19 f
world20 w20 f
world37 w37 f
world61 w61 f
world62 w62 f
world63 w63 f
world64 w64 m
world65 w65 m
world66 w66 m
world72 w72 f
world113 w113 f
world114 w114 m
world115 w115 m
world116 w116 m
United States 3
world1 w1 f
world2 w2 m
world7 w7 f
world8 w8 f
world9 w9 m
world21 w21 f
world22 w22 m
world26 w26 m
world27 w27 m
world28 w28 m
world29 w29 f
world30 w30 f
world31 w31 m
world32 w32 f
world42 w42 m
world47 w47 f
world48 w48 m
world56 w56 m
world70 w70 m
world100 w100 m
here is the code that generated this…
program New;
var i,i2:Integer; monetary,locational,dataloader:String;
procedure worldInfoUpdate();
Begin
dataloader:= GetPage('http://www.runescape.com/slj.ws?hires.x=36&hires.y=223&plugin=0');
end;
function worldInfo(worldnum,askedmfdata:Integer):String;
var
winfo: array [0..7] of String; rawimf,tempwfstr:String; iwf:Integer;
begin
if(Length(dataloader)=0) then worldInfoUpdate;
rawimf:= Between('e('+inttostr(worldnum)+',',');',dataloader);
winfo[0]:=inttostr(worldnum);
for iwf := 1 to 7 do
begin
tempwfstr:=rawimf;
delete(tempwfstr, pos(',',rawimf), 255);
winfo[iwf]:=tempwfstr;
delete(rawimf, pos(',',rawimf)-Length(tempwfstr), 1+Length(tempwfstr));
end;
if(Length(winfo[1])=0) then
begin
//writeln('error: connection failiure or RS update');
winfo[askedmfdata]:= '"null"';
end;
Result:= winfo[askedmfdata];
end;
Function formatWorldLocation(fwlnum:Integer):String;
begin
case (inttostr(i2)) of
'0' : Result:= 'US West 1';
'1' : Result:= 'US West 2';
'2' : Result:= 'US West 3';
'3' : Result:= 'UK 2';
'4' : Result:= 'US West 5';
'5' : Result:= 'UK 1';
'6' : Result:= 'Canada East';
'7' : Result:= 'US East 2';
'8' : Result:= 'US Central 3';
'9' : Result:= 'US Central 2';
'10' : Result:= 'Netherlands 1';
'11' : Result:= 'US Central 1';
'12' : Result:= 'US West 4';
'13' : Result:= 'US East 1';
'14' : Result:= 'US East 3';
'15' : Result:= 'Australia';
'16' : Result:= 'Sweden';
'17' : Result:= 'Canada West';
'18' : Result:= 'Finland';
'19' : Result:= 'Netherlands 2';
'20' : Result:= 'US Central 2';
'21' : Result:= 'United States 1';
'22' : Result:= 'United States 2';
'23' : Result:= 'United States 3';
else Result:= 'Unknown';
end;
end;
begin
cleardebug;
i:=1;
i2:=0;
for i2 := 0 to 23 do
begin
locational:= formatWorldLocation(i2);
writeln(locational);
for i := 1 to 159 do
begin
if not (worldInfo(i,0) = '"null"')then
begin
if (worldInfo(i,1) = '1') then monetary:='m' else monetary:='f';
if(inttostr(i2)=worldInfo(i,7)) then
writeln(Replace((' '+worldInfo(i,5)+' '+'w'+worldInfo(i,0)+' '+monetary),'"',''));
end;
end;
writeln('');
end;
end.
done. rep me if you think i helped you.