mixster
2009-12-27 10:38:44
Been broken, not sure for how long, thankfully it seems RS hasn't changed worlds or the like, just the layout and made some bits a bit more concise.
As you can see, I've added other language support. Since only English has activities apart from quick chat, don't need any translations and quick chats are accurate thanks to a little class identifier. To ensure nothing else is broken, I've made it so you toggle the language by changing a global const (and relevant const's for the supported languages), thus requiring no parameters for the function itself and a possible basis for further foreign language server support in the future.
It's also much more accurate since they've now altered the display, so 100% recognition of server locations and activities is now what it offers. The 100% doesn't mean all servers though as ones with activities no longer show their location, so I've defaulted it to Activity.
To the best of my knowledge it all works correctly, but if you spot anything dodgy I'll try to fix it asap :)
For any Dev's viewing, may be time to update the world record array thingy ma jig as the PvP and Lootshare booleans are a bit redundant and should instead use an Activity check as well as possibly a stored array of all activities and some method of turning them into const's for scripts to use.
const
LG_ENGLISH = 0;
LG_GERMAN = 1;
LG_FRENCH = 2;
LG_PORTUGUESE = 3;
LANG = LG_ENGLISH;
{*******************************************************************************
procedure UpdateWorlds;
by: mixster; Edits by Nava2
Description: Parses the worlds page into Worlds.INI
*******************************************************************************}
function UpdateWorlds: Boolean;
var
worldList: TWorldArray;
str, Path: string;
tsa, tsb: TStringArray;
W, I, H, Time: Integer;
begin
try
Result := True;
Path := AppPath + 'Includes\SRL\SRL\misc\Worlds.INI';
Writeln('NOTE: Attempting to update the Worlds.INI, please allow the script to access this file.');
Time := GetTimeRunning;
W := RewriteFile(Path, False);
CloseFile(W);
if LANG = LG_ENGLISH then
str := ''
else
str := 'l=' + IntToStr(LANG) + '/';
str := GetPage('http://www.runescape.com/' + str + 'slu.ws?order=WMPLA');
Delete(str, 1, Pos('<a href="?order=MWPLA">', str));
Delete(str, 1, Pos('<tr', str) + 3);
tsa := srl_Explode(str, '<tr');
H := High(tsa);
SetLength(worldList, H + 1);
for I := 0 to H do
with worldList[I] do
begin
tsb := srl_Explode(tsa[I], '<td');
if High(tsb) < 5 then
begin
Writeln('Skipping world "' + IntToStr(I + 1) + '" because explosion didn''t return enough values');
Continue;
end;
PlayerNo := StrToIntDef(Between('>', '<', tsb[2]), 2000);
if (Between('"', '"', tsb[3]) = 'a') or (Between('"', '"', tsb[3]) = 'a d') then
begin
Location := 'Activity';
Activity := Between('>', '<', tsb[3]);
end
else
begin
Location := Between('>', '<', tsb[3]);
Activity := '';
end;
Prefix := Between('http://', '.runescape', tsb[1]);
if Prefix = '' then
Prefix := Replace(Lowercase(Between('>' + #10, #10 + #10, tsb[1])), ' ', '');
Number := StrToIntDef(Replace(Prefix, 'world', ''), -1);
if Number = -1 then
begin
Writeln('Invalid world number produced: ' + Prefix);
Writeln('Assuming has suffix, trying again');
str := Replace(Prefix, 'world', '');
Number := StrToIntDef(Copy(str, 1, Length(str) - 1), -1);
if Number = -1 then
Writeln('Failed to gather a world number')
else
Writeln('Succeeded, got ' + IntToStr(Number));
end;
LootShare := Between('"', '"', tsb[4]) = 'd';
QuickChat := Activity = 'Quick Chat';
PvP := Activity = 'PvP World';
Members := Between('"', '"', tsb[5]) = 'm';
end;
//Writeln('Writing to the INI File. T: ' + IntToStr(GetTimeRunning - W));
WriteINI('Worlds', 'Count', IntToStr(High(worldList) + 1), Path);
WriteINI('Worlds', 'High', IntToStr(worldList[High(worldList)].Number) + #13#10, Path);
H := High(worldList);
for I := 0 to H do
with worldList[I] do
begin
Str := 'World' + IntToStr(Number);
DeleteINI(Str, '', Path);
WriteINI(Str, 'Prefix', Prefix, Path);
WriteINI(Str, 'Activity', Activity, Path);
//WriteINI(Str, 'Type', BoolToStr(Members), Path);
if (Members) then
WriteINI(Str, 'Type', 'Members', Path)
else
WriteINI(Str, 'Type', 'Free', Path);
//WriteINI(Str, 'Flag', fla + 'Flag', Path);
WriteINI(Str, 'Location', Location, Path);
WriteINI(Str, 'LootShare', BoolToStr(LootShare), Path);
WriteINI(Str, 'QuickChat', BoolToStr(QuickChat), Path);
WriteINI(Str, 'PvP', BoolToStr(PvP) + #13#10, Path);
end;
Writeln('Parsed Worlds Page into Worlds.INI. Took ' + IntToStr(GetTimeRunning - Time) + ' ms.');
except
Result := False;
//SRL_Warn('UpdateWorlds', ExceptionToString(ExceptionType, ExceptionParam), Warn_AllVersions);
end;
end;
As you can see, I've added other language support. Since only English has activities apart from quick chat, don't need any translations and quick chats are accurate thanks to a little class identifier. To ensure nothing else is broken, I've made it so you toggle the language by changing a global const (and relevant const's for the supported languages), thus requiring no parameters for the function itself and a possible basis for further foreign language server support in the future.
It's also much more accurate since they've now altered the display, so 100% recognition of server locations and activities is now what it offers. The 100% doesn't mean all servers though as ones with activities no longer show their location, so I've defaulted it to Activity.
To the best of my knowledge it all works correctly, but if you spot anything dodgy I'll try to fix it asap :)
For any Dev's viewing, may be time to update the world record array thingy ma jig as the PvP and Lootshare booleans are a bit redundant and should instead use an Activity check as well as possibly a stored array of all activities and some method of turning them into const's for scripts to use.