SCAR Code:
{*******************************************************************************
function RandomWorld(Members, PvP: Boolean): Integer;
by: Narcle & mixster
Description: Returns a random world by paramaters.
*******************************************************************************}
function RandomWorld(Members, PvP: Boolean): Integer;
var
i, H: integer;
wArray: TWorldArray;
begin
if Length(WorldArray) < 1 then
LoadWorldArrays;
H := High(WorldArray);
for i := 0 to H do
if (WorldArray[i].Members = Members) and (WorldArray[i].PvP = PvP) then
begin
SetArrayLength(wArray, Length(wArray)+1);
wArray[High(wArray)] := WorldArray[i];
end;
Result := wArray[random(High(wArray)+1)].Number;
end;