SRL Archive - SRL Archives

I expected SRL to have these, but they weren't there, so… I made them :D.

{*******************************************************************************
Function IsWorldFree(World: Integer): Boolean;
By: Bullzeye95
Description: Returns true if the specified world is a free world.
*******************************************************************************}

Function IsWorldFree(World: Integer): Boolean;
begin
  case World of
    1: Result:= True;
    2: Result:= False;
    3: Result:= True;
    4: Result:= True;
    5: Result:= True;
    6: Result:= False;
    7: Result:= True;
    8: Result:= True;
    9: Result:= False;
    10: Result:= True;
    11: Result:= True;
    12: Result:= False;
    13: Result:= True;
    14: Result:= True;
    15: Result:= True;
    16: Result:= True;
    17: Result:= True;
    18: Result:= False;
    19: Result:= True;
    20: Result:= True;
    21: Result:= True;
    22: Result:= False;
    23: Result:= False;
    24: Result:= False;
    25: Result:= True;
    26: Result:= False;
    27: Result:= False;
    28: Result:= False;
    29: Result:= True;
    30: Result:= True;
    31: Result:= False;
    32: Result:= True;
    33: Result:= True;
    34: Result:= True;
    35: Result:= True;
    36: Result:= False;
    37: Result:= True;
    38: Result:= True;
    39: Result:= False;
    40: Result:= True;
    41: Result:= True;
    42: Result:= False;
    43: Result:= True;
    44: Result:= False;
    45: Result:= False;
    46: Result:= False;
    47: Result:= True;
    48: Result:= False;
    49: Result:= True;
    50: Result:= True;
    51: Result:= True;
    52: Result:= True;
    53: Result:= False;
    54: Result:= False;
    55: Result:= True;
    56: Result:= False;
    57: Result:= True;
    58: Result:= False;
    59: Result:= False;
    60: Result:= False;
    61: Result:= True;
    62: Result:= True;
    63: Result:= True;
    64: Result:= False;
    65: Result:= False;
    66: Result:= False;
    67: Result:= True;
    68: Result:= True;
    69: Result:= False;
    70: Result:= False;
    71: Result:= False;
    72: Result:= True;
    73: writeln('World does not exist');
    74: Result:= True;
    75: Result:= True;
    76: Result:= False;
    77: Result:= False;
    78: Result:= False;
    79: Result:= False;
    80: Result:= True;
    81: Result:= True;
    82: Result:= False;
    83: Result:= False;
    84: Result:= False;
    85: Result:= True;
    86: Result:= True;
    87: Result:= True;
    88: Result:= False;
    89: writeln('World does not exist');
    90: Result:= True;
    91: Result:= False;
    92: Result:= False;
    93: Result:= True;
    94: Result:= True;
    95: Result:= True;
    96: Result:= True;
    97: Result:= False;
    98: Result:= False;
    99: Result:= False;
    100: Result:= False;
    101: Result:= True;
    102: Result:= True;
    103: Result:= False;
    104: Result:= False;
    105: Result:= True;
    106: Result:= True;
    107: Result:= True;
    108: Result:= True;
    109: Result:= True;
    110: Result:= False;
    111: Result:= False;
    112: Result:= False;
    113: Result:= True;
    114: Result:= False;
    115: Result:= False;
    116: Result:= False;
    117: Result:= True;
    118: Result:= True;
    119: Result:= True;
    120: Result:= False;
    121: Result:= False;
    122: writeln('World does not exist');
    123: writeln('World does not exist');
    124: Result:= False;
    125: Result:= True;
    126: Result:= True;
    127: Result:= True;
    128: Result:= True;
    129: Result:= False;
    130: Result:= False;
    131: Result:= False;
    132: Result:= False;
    133: Result:= True;
    134: Result:= True;
    135: Result:= True;
    136: Result:= True;
    137: Result:= False;
    138: Result:= False;
    139: writeln('World does not exist');
    140: writeln('World does not exist');
    141: Result:= True;
    142: Result:= True;
    143: Result:= False;
    144: Result:= False;
  end;
end;

{*******************************************************************************
Function IsWorldMembers(World: Integer): Boolean;
By: Bullzeye95
Description: Returns true if the specified world is a members world.
*******************************************************************************}
Function IsWorldMembers(World: Integer): Boolean;
begin
  Result:= not(IsWorldFree(World));
end;

You can't do "result := Writeln('blahblahblah')". It gives a type mismatch error. Other then that, pretty good.

P.S. Easier way - Find the world. If the color is silver, it's free. If it's yellow, its members ;)

Yeah, but I was going to make something in my LoginPlayer that checks if RS was updated, then gets the world on the world switcher, switches to the opposite world, then back to that world.

EDIT: Haha how stupid of me! Sorry :p

Nice work, this can come in handy when I wanna make a script that I want to use world switching with.