Simba Code:
function randomWorld(Member: Boolean): Integer;
var
H : integer;
MemWorlds,
FreeWorlds : TIntegerArray;
begin
MemWorlds :=
[ 320,343,369,+
302,321,344,370,+
303,322,345,373,+
304, 346,374,+
305, 349,375,+
306,327,350,376,+
328,351,377,+
309,329,354,378,+
310,330,358, +
311,333,359, +
312,334,360, +
313, 361, +
314,336,362, +
365,386,+
317,338,366, +
318,341,367, +
319,342,368];
FreeWorlds :=
[301,308,316,335,381, +
382,383,384,385,393,394];
case Member of
True :
begin
H := Random(High(MemWorlds));
Result := MemWorlds[H];
end;
False :
begin
H := Random(High(FreeWorlds));
Result := FreeWorlds[H];
end;
end;
end;