SRL Archive - SRL Archives

type Activeworld = record
WorldNumber:integer;
Active:boolean;
Member:boolean;
end;

var
MyWorlds:array[0..131] of ActiveWorld;

procedure DeclareWorlds;

begin
MyWorlds[0].WorldNumber:=1;
MyWorlds[0].Active:=true;
MyWorlds[0].Member:=false;

MyWorlds[1].WorldNumber:=2;
MyWorlds[1].Active:=true;
MyWorlds[1].Member:=true;

MyWorlds[2].WorldNumber:=3;
MyWorlds[2].Active:=true;
MyWorlds[2].Member:=false;

MyWorlds[3].WorldNumber:=4;
MyWorlds[3].Active:=true;
MyWorlds[3].Member:=false;

MyWorlds[4].WorldNumber:=5;
MyWorlds[4].Active:=true;
MyWorlds[4].Member:=false;

MyWorlds[5].WorldNumber:=6;
MyWorlds[5].Active:=true;
MyWorlds[5].Member:=true;

MyWorlds[6].WorldNumber:=7;
MyWorlds[6].Active:=true;
MyWorlds[6].Member:=false;

MyWorlds[7].WorldNumber:=8;
MyWorlds[7].Active:=true;
MyWorlds[7].Member:=false;

MyWorlds[8].WorldNumber:=9;
MyWorlds[8].Active:=true;
MyWorlds[8].Member:=true;


MyWorlds[9].WorldNumber:=10;
MyWorlds[9].Active:=true;
MyWorlds[9].Member:=false;

MyWorlds[10].WorldNumber:=11;
MyWorlds[10].Active:=true;
MyWorlds[10].Member:=false;

MyWorlds[11].WorldNumber:=12;
MyWorlds[11].Active:=true;
MyWorlds[11].Member:=true;

MyWorlds[12].WorldNumber:=13;
MyWorlds[12].Active:=true;
MyWorlds[12].Member:=false;

MyWorlds[13].WorldNumber:=14;
MyWorlds[13].Active:=true;
MyWorlds[13].Member:=true;

MyWorlds[14].WorldNumber:=15;
MyWorlds[14].Active:=true;
MyWorlds[14].Member:=true;

MyWorlds[15].WorldNumber:=16;
MyWorlds[15].Active:=true;
MyWorlds[15].Member:=true;

MyWorlds[16].WorldNumber:=17;
MyWorlds[16].Active:=true;
MyWorlds[16].Member:=true;

MyWorlds[17].WorldNumber:=18;
MyWorlds[17].Active:=true;
MyWorlds[17].Member:=true;

MyWorlds[18].WorldNumber:=19;
MyWorlds[18].Active:=true;
MyWorlds[18].Member:=true;

MyWorlds[19].WorldNumber:=20;
MyWorlds[19].Active:=true;
MyWorlds[19].Member:=true;

MyWorlds[20].WorldNumber:=21;
MyWorlds[20].Active:=true;
MyWorlds[20].Member:=true;

MyWorlds[21].WorldNumber:=22;
MyWorlds[21].Active:=true;
MyWorlds[21].Member:=true;

MyWorlds[22].WorldNumber:=23;
MyWorlds[22].Active:=true;
MyWorlds[22].Member:=true;

MyWorlds[23].WorldNumber:=24;
MyWorlds[23].Active:=true;
MyWorlds[23].Member:=true;

MyWorlds[24].WorldNumber:=25;
MyWorlds[24].Active:=true;
MyWorlds[24].Member:=true;

MyWorlds[25].WorldNumber:=26;
MyWorlds[25].Active:=true;
MyWorlds[25].Member:=true;

MyWorlds[26].WorldNumber:=27;
MyWorlds[26].Active:=true;
MyWorlds[26].Member:=true;

MyWorlds[27].WorldNumber:=28;
MyWorlds[27].Active:=true;
MyWorlds[27].Member:=true;

MyWorlds[28].WorldNumber:=29;
MyWorlds[28].Active:=true;
MyWorlds[28].Member:=true;

MyWorlds[29].WorldNumber:=30;
MyWorlds[29].Active:=true;
MyWorlds[29].Member:=true;

MyWorlds[30].WorldNumber:=31;
MyWorlds[30].Active:=true;
MyWorlds[30].Member:=true;

MyWorlds[31].WorldNumber:=32;
MyWorlds[31].Active:=true;
MyWorlds[31].Member:=true;

MyWorlds[32].WorldNumber:=33;
MyWorlds[32].Active:=true;
MyWorlds[32].Member:=true;

MyWorlds[33].WorldNumber:=34;
MyWorlds[33].Active:=true;
MyWorlds[33].Member:=true;

MyWorlds[34].WorldNumber:=35;
MyWorlds[34].Active:=true;
MyWorlds[34].Member:=true;

MyWorlds[35].WorldNumber:=36;
MyWorlds[35].Active:=true;
MyWorlds[35].Member:=true;

MyWorlds[36].WorldNumber:=37;
MyWorlds[36].Active:=true;
MyWorlds[36].Member:=true;

MyWorlds[37].WorldNumber:=38;
MyWorlds[37].Active:=true;
MyWorlds[37].Member:=true;

MyWorlds[38].WorldNumber:=39;
MyWorlds[38].Active:=true;
MyWorlds[38].Member:=true;

MyWorlds[39].WorldNumber:=40;
MyWorlds[39].Active:=true;
MyWorlds[39].Member:=true;

MyWorlds[40].WorldNumber:=41;
MyWorlds[40].Active:=true;
MyWorlds[40].Member:=true;

MyWorlds[41].WorldNumber:=42;
MyWorlds[41].Active:=true;
MyWorlds[41].Member:=true;

MyWorlds[42].WorldNumber:=43;
MyWorlds[42].Active:=true;
MyWorlds[42].Member:=true;

MyWorlds[43].WorldNumber:=44;
MyWorlds[43].Active:=true;
MyWorlds[43].Member:=true;

MyWorlds[44].WorldNumber:=45;
MyWorlds[44].Active:=true;
MyWorlds[44].Member:=true;

MyWorlds[45].WorldNumber:=46;
MyWorlds[45].Active:=true;
MyWorlds[45].Member:=true;

MyWorlds[46].WorldNumber:=47;
MyWorlds[46].Active:=true;
MyWorlds[46].Member:=true;

MyWorlds[47].WorldNumber:=48;
MyWorlds[47].Active:=true;
MyWorlds[47].Member:=true;

MyWorlds[48].WorldNumber:=49;
MyWorlds[48].Active:=true;
MyWorlds[48].Member:=true;

MyWorlds[49].WorldNumber:=50;
MyWorlds[49].Active:=true;
MyWorlds[49].Member:=true;

MyWorlds[50].WorldNumber:=51;
MyWorlds[50].Active:=true;
MyWorlds[50].Member:=true;

MyWorlds[51].WorldNumber:=52;
MyWorlds[51].Active:=true;
MyWorlds[51].Member:=true;

MyWorlds[52].WorldNumber:=53;
MyWorlds[52].Active:=true;
MyWorlds[52].Member:=true;

MyWorlds[53].WorldNumber:=54;
MyWorlds[53].Active:=true;
MyWorlds[53].Member:=true;

MyWorlds[54].WorldNumber:=55;
MyWorlds[54].Active:=true;
MyWorlds[54].Member:=true;

MyWorlds[55].WorldNumber:=56;
MyWorlds[55].Active:=true;
MyWorlds[55].Member:=true;

MyWorlds[56].WorldNumber:=57;
MyWorlds[56].Active:=true;
MyWorlds[56].Member:=true;

MyWorlds[57].WorldNumber:=58;
MyWorlds[57].Active:=true;
MyWorlds[57].Member:=true;

MyWorlds[58].WorldNumber:=59;
MyWorlds[58].Active:=true;
MyWorlds[58].Member:=true;

MyWorlds[59].WorldNumber:=60;
MyWorlds[59].Active:=true;
MyWorlds[59].Member:=true;

MyWorlds[60].WorldNumber:=61;
MyWorlds[60].Active:=true;
MyWorlds[60].Member:=true;

MyWorlds[61].WorldNumber:=62;
MyWorlds[61].Active:=true;
MyWorlds[61].Member:=true;


MyWorlds[62].WorldNumber:=63;
MyWorlds[62].Active:=true;
MyWorlds[62].Member:=true;

MyWorlds[63].WorldNumber:=64;
MyWorlds[63].Active:=true;
MyWorlds[63].Member:=true;

MyWorlds[64].WorldNumber:=65;
MyWorlds[64].Active:=true;
MyWorlds[64].Member:=true;

MyWorlds[65].WorldNumber:=66;
MyWorlds[65].Active:=true;
MyWorlds[65].Member:=true;

MyWorlds[66].WorldNumber:=67;
MyWorlds[66].Active:=true;
MyWorlds[66].Member:=true;

MyWorlds[67].WorldNumber:=68;
MyWorlds[67].Active:=true;
MyWorlds[67].Member:=true;

MyWorlds[68].WorldNumber:=69;
MyWorlds[68].Active:=true;
MyWorlds[68].Member:=true;

MyWorlds[69].WorldNumber:=70;
MyWorlds[69].Active:=true;
MyWorlds[69].Member:=true;

MyWorlds[70].WorldNumber:=71;
MyWorlds[70].Active:=true;
MyWorlds[70].Member:=true;

MyWorlds[71].WorldNumber:=72;
MyWorlds[71].Active:=true;
MyWorlds[71].Member:=true;

MyWorlds[72].WorldNumber:=73;
MyWorlds[72].Active:=true;
MyWorlds[72].Member:=true;

MyWorlds[73].WorldNumber:=74;
MyWorlds[73].Active:=true;
MyWorlds[73].Member:=true;

MyWorlds[74].WorldNumber:=75;
MyWorlds[74].Active:=true;
MyWorlds[74].Member:=true;

MyWorlds[75].WorldNumber:=76;
MyWorlds[75].Active:=true;
MyWorlds[75].Member:=true;

MyWorlds[76].WorldNumber:=77;
MyWorlds[76].Active:=true;
MyWorlds[76].Member:=true;

MyWorlds[77].WorldNumber:=78;
MyWorlds[77].Active:=true;
MyWorlds[77].Member:=true;

MyWorlds[78].WorldNumber:=79;
MyWorlds[78].Active:=true;
MyWorlds[78].Member:=true;

MyWorlds[79].WorldNumber:=80;
MyWorlds[79].Active:=true;
MyWorlds[79].Member:=true;

MyWorlds[80].WorldNumber:=81;
MyWorlds[80].Active:=true;
MyWorlds[80].Member:=true;

MyWorlds[81].WorldNumber:=82;
MyWorlds[81].Active:=true;
MyWorlds[81].Member:=true;

MyWorlds[82].WorldNumber:=83;
MyWorlds[82].Active:=true;
MyWorlds[82].Member:=true;

MyWorlds[83].WorldNumber:=84;
MyWorlds[83].Active:=true;
MyWorlds[83].Member:=true;

MyWorlds[84].WorldNumber:=85;
MyWorlds[84].Active:=true;
MyWorlds[84].Member:=true;

MyWorlds[85].WorldNumber:=86;
MyWorlds[85].Active:=true;
MyWorlds[85].Member:=true;

MyWorlds[86].WorldNumber:=87;
MyWorlds[86].Active:=true;
MyWorlds[86].Member:=true;

MyWorlds[87].WorldNumber:=88;
MyWorlds[87].Active:=true;
MyWorlds[87].Member:=true;

MyWorlds[88].WorldNumber:=89;
MyWorlds[88].Active:=true;
MyWorlds[88].Member:=true;

MyWorlds[89].WorldNumber:=90;
MyWorlds[89].Active:=true;
MyWorlds[89].Member:=true;

MyWorlds[90].WorldNumber:=91;
MyWorlds[90].Active:=true;
MyWorlds[90].Member:=true;

MyWorlds[91].WorldNumber:=92;
MyWorlds[91].Active:=true;
MyWorlds[91].Member:=true;

MyWorlds[92].WorldNumber:=93;
MyWorlds[92].Active:=true;
MyWorlds[92].Member:=true;

MyWorlds[93].WorldNumber:=94;
MyWorlds[93].Active:=true;
MyWorlds[93].Member:=true;

MyWorlds[94].WorldNumber:=95;
MyWorlds[94].Active:=true;
MyWorlds[94].Member:=true;

MyWorlds[95].WorldNumber:=96;
MyWorlds[95].Active:=true;
MyWorlds[95].Member:=true;


MyWorlds[96].WorldNumber:=97;
MyWorlds[96].Active:=true;
MyWorlds[96].Member:=true;

MyWorlds[97].WorldNumber:=98;
MyWorlds[97].Active:=true;
MyWorlds[97].Member:=true;

MyWorlds[98].WorldNumber:=99;
MyWorlds[98].Active:=true;
MyWorlds[98].Member:=true;

MyWorlds[99].WorldNumber:=100;
MyWorlds[99].Active:=true;
MyWorlds[99].Member:=true;

MyWorlds[100].WorldNumber:=101;
MyWorlds[100].Active:=true;
MyWorlds[100].Member:=true;

MyWorlds[101].WorldNumber:=102;
MyWorlds[101].Active:=true;
MyWorlds[101].Member:=true;

MyWorlds[102].WorldNumber:=103;
MyWorlds[102].Active:=true;
MyWorlds[102].Member:=true;

MyWorlds[103].WorldNumber:=104;
MyWorlds[103].Active:=true;
MyWorlds[103].Member:=true;

MyWorlds[104].WorldNumber:=105;
MyWorlds[104].Active:=true;
MyWorlds[104].Member:=true;

MyWorlds[105].WorldNumber:=106;
MyWorlds[105].Active:=true;
MyWorlds[105].Member:=true;

MyWorlds[106].WorldNumber:=107;
MyWorlds[106].Active:=true;
MyWorlds[106].Member:=true;

MyWorlds[107].WorldNumber:=108;
MyWorlds[107].Active:=true;
MyWorlds[107].Member:=true;

MyWorlds[108].WorldNumber:=109;
MyWorlds[108].Active:=true;
MyWorlds[108].Member:=true;

MyWorlds[109].WorldNumber:=110;
MyWorlds[109].Active:=true;
MyWorlds[109].Member:=true;

MyWorlds[110].WorldNumber:=111;
MyWorlds[110].Active:=true;
MyWorlds[110].Member:=true;

MyWorlds[111].WorldNumber:=112;
MyWorlds[111].Active:=true;
MyWorlds[111].Member:=true;

MyWorlds[112].WorldNumber:=113;
MyWorlds[112].Active:=true;
MyWorlds[112].Member:=true;

MyWorlds[113].WorldNumber:=114;
MyWorlds[113].Active:=true;
MyWorlds[113].Member:=true;

MyWorlds[114].WorldNumber:=115;
MyWorlds[114].Active:=true;
MyWorlds[114].Member:=true;

MyWorlds[115].WorldNumber:=116;
MyWorlds[115].Active:=true;
MyWorlds[115].Member:=true;

MyWorlds[116].WorldNumber:=117;
MyWorlds[116].Active:=true;
MyWorlds[116].Member:=true;

MyWorlds[117].WorldNumber:=118;
MyWorlds[117].Active:=true;
MyWorlds[117].Member:=true;

MyWorlds[118].WorldNumber:=119;
MyWorlds[118].Active:=true;
MyWorlds[118].Member:=true;

MyWorlds[119].WorldNumber:=120;
MyWorlds[119].Active:=true;
MyWorlds[119].Member:=true;

MyWorlds[120].WorldNumber:=121;
MyWorlds[120].Active:=true;
MyWorlds[120].Member:=true;

MyWorlds[121].WorldNumber:=122;
MyWorlds[121].Active:=true;
MyWorlds[121].Member:=true;

MyWorlds[122].WorldNumber:=123;
MyWorlds[122].Active:=true;
MyWorlds[122].Member:=true;

MyWorlds[123].WorldNumber:=124;
MyWorlds[123].Active:=true;
MyWorlds[123].Member:=true;

MyWorlds[124].WorldNumber:=125;
MyWorlds[124].Active:=true;
MyWorlds[124].Member:=true;

MyWorlds[125].WorldNumber:=126;
MyWorlds[125].Active:=true;
MyWorlds[125].Member:=true;

MyWorlds[126].WorldNumber:=127;
MyWorlds[126].Active:=true;
MyWorlds[126].Member:=true;

MyWorlds[127].WorldNumber:=128;
MyWorlds[127].Active:=true;
MyWorlds[127].Member:=true;

MyWorlds[128].WorldNumber:=129;
MyWorlds[128].Active:=true;
MyWorlds[128].Member:=true;

MyWorlds[129].WorldNumber:=130;
MyWorlds[129].Active:=true;
MyWorlds[129].Member:=true;

MyWorlds[130].WorldNumber:=131;
MyWorlds[130].Active:=true;
MyWorlds[130].Member:=true;

MyWorlds[131].WorldNumber:=132;
MyWorlds[131].Active:=true;
MyWorlds[131].Member:=true;
end;

//chooses a random world, if Current is false, Active is amde false, Members false for non-member worlds only and
//Active for choosing active worlds only
//made by iloveit8... boreas basicly did it;) he told me how to....


procedure RandomWorld(Current, Members, Active : Boolean);
 var
  WhichWorld:integer;
begin
 if(Active) then
  begin
   if(Members=true)then
    begin
     repeat
      WhichWorld:=random(131);
     until(MyWorlds[WhichWorld].Active);
     SCSSLoadWorld(MyWorlds[WhichWorld].WorldNumber,true)
     if not(current) then MyWorlds[WhichWorld].Active:=false;
   end else
   begin
     repeat
      WhichWorld:=random(131);
     until((MyWorlds[WhichWorld].Active = true)and(MyWorlds[WhichWorld].Member = false));
     SCSSLoadWorld(MyWorlds[WhichWorld].WorldNumber,true)
     if not(current) then MyWorlds[WhichWorld].Active:=false;
   end;
  end else
  begin
   if(Members=true)then
    begin
      WhichWorld:=random(131);
      SCSSLoadWorld(MyWorlds[WhichWorld].WorldNumber,true)
     if not(current) then MyWorlds[WhichWorld].Active:=false;
   end else
   begin
     repeat
      WhichWorld:=random(131);
     until(MyWorlds[WhichWorld].Member = false);
     SCSSLoadWorld(MyWorlds[WhichWorld].WorldNumber,true)
     if not(current) then MyWorlds[WhichWorld].Active:=false;
   end;
  end;
 wait(30000);
end;

thanks to boreas… BIG thanks to boreas

You should write another function, that keeps track of the 10 (or some number) last used worlds, and makes them false. Then when you use another world, the 10th one (or whatever the earliest used was) becomes active, they all move down one spot, and the one just used goes in the 1 spot. This is so that you don't go back to a world too soon. Otherwise the above doesn't do much more than a load random world function that freddy already wrote (SCSSLoadRandomWorld).

you are still able to 'filter' out worlds by putting .active to false… but yeah good idea, im gonna try that:)

Yea that's I mean, without a filtering function, this doesn't do anything.

How about an INI file retrieved by the latest SRL INI file of the worlds from the web, similar to the txt file in the arga folder, and then you can add in the links, etc.

If you don't know what I'm talking about, here is an example of the text file in arga.

1=ul2\:free 
2=ul4\:members 
3=po3\:free 
4=po4\:free 
5=po5\:free 
6=po6\:members 
7=above2\:free 
8=above3\:free 
9=above4\:members 
10=jolt7\:free 
11=jolt8\:free 
12=jolt9\:members 
13=nl3\:free 
14=nl4\:free 
15=uk2\:free 
16=uk3\:free 
17=tor1\:free 
18=tor2\:members 
19=nl7\:free 
20=nl8\:free 
21=nl11\:free 
22=nl1\:members 
23=uk4\:members 
24=uk5\:members 
25=nl12\:free 
26=ul5\:members 
27=nl5\:members 
28=nl6\:members 
29=ul6\:free 
30=po7\:free 
31=po8\:free 
32=ul1\:free 
33=at1\:free 
34=at2\:free 
35=at3\:free 
36=at4\:members 
37=tor3\:free 
38=planet1\:free 
39=planet2\:free 
40=planet3\:free 
41=planet4\:members 
42=po2\:members 
43=sl11\:free 
44=at6\:members 
45=planet5\:free 
46=planet6\:members 
47=above5\:free 
48=above6\:members 
49=ams1\:free 
50=ams2\:free 
51=ams3\:free 
52=ams4\:free 
53=ams5\:members 
54=ams6\:members 
55=ch1\:free 
56=nl10\:free 
57=ch3\:free 
58=ch4\:members 
59=ch5\:members 
60=ch6\:members 
61=se1\:free 
62=se2\:free 
63=se3\:free 
64=se4\:members 
65=se5\:members 
66=se6\:members 
67=jolt10\:free 
68=jolt11\:free 
69=jolt12\:members 
70=sl10\:members 
71=uk7\:members 
72=sl1\:free 
73=sl2\:free 
74=sl3\:free 
75=sl4\:free 
76=sl5\:free 
77=sl6\:members 
78=sl7\:members 
79=sl8\:members 
80=jolt1\:free 
81=jolt2\:free 
82=jolt3\:free 
83=jolt4\:members 
84=jolt5\:members 
85=ny1\:free 
86=ny2\:free 
87=ny4\:free 
88=ny5\:members 
89=ny6\:members 
90=ny7\:free 
91=ny8\:members 
92=nl9\:free 
93=mi1\:free 
94=mi2\:free 
95=mi3\:free 
96=mi4\:free 
97=mi5\:free 
98=mi6\:members 
99=mi7\:members 
100=mi8\:members 
101=at7\:free 
102=at8\:free 
103=at9\:members 
104=at10\:members 
105=uk8\:free 
106=uk9\:free 
107=au1\:free 
108=au2\:free 
109=au3\:free 
110=au4\:members 
111=au5\:members 
112=au6\:members 
113=tor4\:free 
114=tor5\:members 
115=tor6\:members 
116=tor7\:members 
117=swe1\:free 
118=swe2\:free 
119=swe3\:free 
120=swe4\:members 
121=swe5\:members 
122=swe6\:free 
123=swe7\:members 
124=swe8\:members 
125=va1\:free 
126=va3\:free 
127=va4\:free 
128=va5\:free 
129=va6\:members 
130=va7\:members 
131=va8\:members 
132=va9\:members 

Short, sweet, and easy to manipulate using scar. :)