SRL Archive - Jr. Member General Help and Discussion

//Uses const values to choose a world based on the current hop rotations
function RandomWorldSpEx(WorldChoice1, WorldChoice2, WorldChoice3, WorldChoice4 : Integer):Integer;
begin
  If Hops = 0 then//This can be removed if Hops +1 is called before this function is called
    begin
      Result := WorldChoice4;
    end else;
  If Hops = 1 then
    begin
      Result := WorldChoice1;
    end else;
  If Hops = 2 then
    begin
      Result := WorldChoice2;
    end else;
  If Hops = 3 then
    begin
      Result := WorldChoice3;
    end else
  If Hops = 4 then
    begin
      Result := WorldChoice4;
      Hops := 0;//After WorldChoice4, we then restart at WorldChoice1
      //Hops integer needs to be added after this function is called so you don't Worldchoice4 x2
      //Unless Hops = 0 if loop is removed and Hops +1 is called prior to this being called
    end else;
end;

function RandomWorldSpEx(WorldChoice1, WorldChoice2, WorldChoice3, WorldChoice4 : Integer):Integer;
begin
  case Hops of
    0: Result := WorldChoice4;
    1: Result := WorldChoice1;
    2: Result := WorldChoice2;
    3: Result := WorldChoice3;
    4:
    begin
      Result := WorldChoice4;
      hops := 0;
    end else
      writeln('Hops was not 0 , 1 , 2 , 3 or 4');
  end;
end;  

From: Officer Barbrady
Could use a simple case statement:

function RandomWorldSpEx(WorldChoice1, WorldChoice2, WorldChoice3, WorldChoice4 : Integer):Integer;
begin
  case Hops of
    0: Result := WorldChoice4;
    1: Result := WorldChoice1;
    2: Result := WorldChoice2;
    3: Result := WorldChoice3;
    4:
    begin
      Result := WorldChoice4;
      hops := 0;
    end else
      writeln('Hops was not 0 , 1 , 2 , 3 or 4');
  end;
end;  

From: Pakyakkistan
Totally skipped cases in Coh3ns tutorial, had to go over them so I even understood what was going on (used them before but never like this).
Thank you Officer.

function RandomWorldSpEx(choice:array[0..3] of integer):Integer;
var
  i:integer;
begin
  for i := 1 to 4 do
    if (hops = i) then
      exit(choice[i - 1])
    else if (i = 4) then
    begin
      hops := 0;
      exit(choice[3]);
    end;
end; 

From: Officer Barbrady
No Problem, if you really want to shorten it down…

function RandomWorldSpEx(choice:array[0..3] of integer):Integer;
var
  i:integer;
begin
  for i := 1 to 4 do
    if (hops = i) then
      exit(choice[i - 1])
    else if (i = 4) then
    begin
      hops := 0;
      exit(choice[3]);
    end;
end; 

Is this function supposed to choose a random world from the entered parameters?

(choice:array[0..3] of integer)

Exit(Choice[i - 1];//Exit is used as result? And what does [i - 1] mean? Subtracting 1 from i/hops variable?

From: Pakyakkistan
Now you're getting me somewhere(Getting me further and touching on things that confuse the hell out of me). Was going to ask about array option… Now time for the questions!

(choice:array[0..3] of integer)

I'm assuming this would then make it have a variable amount of choices? This would require calling the array of choices prior, right?

Exit(Choice[i - 1];//Exit is used as result? And what does [i - 1] mean? Subtracting 1 from i/hops variable?

And yes and no, uses worlds specified in the const values to hop in a cycle from 1-4. (one I posted and the case one you showed me anyway, IDK the differences between this one and the last tho (arrays flipping confuse me, make me feel like things are changing)

function func5:integer;
begin
  result := 5;
  if (blah blah blah) then
    doSomething;
end;

function func6:integer;
begin
  exit(5);
  // code after this line is unreachable because of the exit
end;  

function RandomWorldSpEx(choice:array[0..3] of integer):Integer;
var
  i:integer;
begin
  for i := 1 to 4 do
    if (hops = i) then
    begin
      result := choice[i - 1];
      exit;
    end
    else if (i = 4) then
    begin
      hops := 0;
      result := choice[3];
      exit;
    end;
end;

var
  choices:array[0..3] of integer;

begin
  choices := [0, 4, 5, 3];
  writeln(choices[0]);
  writeln(choices[1]);
  writeln(choices[2]);
end.     

var
  choices:array of integer;

begin
  choices := [0, 4, 5, 3];
  writeln(choices[0]);
  writeln(choices[1]);
  writeln(choices[2]);
end.    

setLength(choices, 5);

for i := 1 to 4 do

  for i := 0 to 3 do

From: Officer Barbrady

So I hope that gave you a basic understanding of the code lol

function RandomWorldSpEx(choice:array[0..3] of integer):Integer;
begin
  result := 0;
  if ((hops > 0) and (hops < high(choice))) then
    result := choice[hops - 1]
end;

From: Brandon
@Officer Barbrady; Get rid of the for loop.. There is no need to iterate the entire array to check if hops == i..

function RandomWorldSpEx(choice:array[0..3] of integer):Integer;
begin
  result := 0;
  if ((hops > 0) and (hops < high(choice))) then
    result := choice[hops - 1]
end;

From: Brandon
@Officer Barbrady; Get rid of the for loop.. There is no need to iterate the entire array to check if hops == i..

function RandomWorldSpEx(choice:array[0..3] of integer):Integer;
begin
  result := 0;
  if ((hops > 0) and (hops < high(choice))) then
    result := choice[hops - 1]
end;

if((hops > -1) and (hops < high(choice)))

From: Pakyakkistan
That makes sense… Could you call

if((hops > -1) and (hops < high(choice)))

?

if((hops >= 0) and (hops < high(choice)))

function RandomWorldSpEx(choice:array[0..3] of integer):Integer;
begin
  hops := hops mod 4;
  result := choice[hops]
end;

function RandomWorldSpEx(choice:array[0..3] of integer):Integer;
begin
  result := choice[hops mod 4]
end;

function RandomWorldSpEx(choice:array of integer):Integer;
begin
  result := choice[hops mod Length(choice)]
end;

From: masterBB

e: more foolproof

function RandomWorldSpEx(choice:array of integer):Integer;
begin
  result := choice[hops mod Length(choice)]
end;

Maybe make the word choice plural?

If (hops = high(choice)) then
hops = 0;

From: Pakyakkistan
what does 'Mod length' do?

Hops must be reset or it won't cycle. It would just, hop 4 times, and then the script would basically break. Resetting of hops would just be

If (hops = high(choice)) then
hops = 0;

Right? (hops only is 0 when the script starts, since I don't have it add a world hop until its actually hopped, that is why 0 = Choice 4, the end of the world cycle)

What do you mean make the world choice plural? :confused:

E: Also, if I use an array for choices, would this allow me call as many world choices as I wish in my cycle? Where do I need to declare the choice array? In its own function? Constants?

From: masterBB
Mod is like when you learned to divide you often had bits left.
7 / 4 = 1 and 3 left
20 / 3 = 6 and 2 left
It is that bit which is left. So hops mod 4 would return:
[INDENT][table="width: 500"]
[tr]
[td]hops[/td]
[td]hops mod 4[/td]
[/tr]
[tr]
[td]1[/td]
[td]1[/td]
[/tr]
[tr]
[td]2[/td]
[td]2[/td]
[/tr]
[tr]
[td]3[/td]
[td]3[/td]
[/tr]
[tr]
[td]4[/td]
[td]0[/td]
[/tr]
[tr]
[td]5[/td]
[td]1[/td]
[/tr]
[tr]
[td]6[/td]
[td]2[/td]
[/tr]
[tr]
[td]7[/td]
[td]3[/td]
[/tr]
[tr]
[td]8[/td]
[td]0[/td]
[/tr]
[/table][/INDENT]

So it would work without resetting. Though if you want to reset it you can use:
hops := hops mod 4

The plural of choice is choices, to indicate the variable/parameter got more then one value.

e:
Yes, you can use as much worlds as you pass to the function:
RandomWorldSpEx([200, 201, 202, 205, 209]);

function RandomWorldSpEx(WArray: TIntegerArray):Integer;
begin
  If hops = NumOfWorlds then Hops := 0;
  if ((hops >= Low(WArray)) and (hops <= high(WArray)+1)) then
    result := WArray[hops-1];
end;