SRL Archive - Scripting Help

Which master can tell me how to add in simba code switching the world?
procedure declarePlayers;
var a:integer;
begin
world:=[2,4,5,6,9,10,12,14,15,16,18,21,22,23,24,25,26,27,28,31,32,35,36,37,39,40,42,44,45,46,49,50,51,52,53,54,56,58,59,60,62,63,64,65,66,67,68,69,70,71,72,73,74,76,77,78,79,82,83,84,85,87,88,89,91,92,96,97,98,99,100,103,104,105,106,115,116,117,119,123,124,134,138,139];
setLength(players, 1);
a:= world[strtoint(ReadINI(Account, 'world', 'C:\Account.ini'))-1];
with players[0] do
begin
loginName := ReadINI(Account, 'name', 'C:\Account.ini');
bankPin := '';
password := ReadINI(Account, 'pass', 'C:\Account.ini');
integers[0] := 2;//slot containing food to cook
extendeds[0]:= 210;//exp per item
isActive := true;
isMember := true;
world := 1;
end;

Check out the worldSwitcher snippet in my siggy