How do I randomize things?

[utkesmer]

I often try to learn new things by reading other scripts related to my issue. Nearly all scripts in forums are uploaded to soldatcentral.com, but as you all know it is gone now, so I can't find many to study.

I want to learn how can I randomize things. How I can select a random map? How I can select a random ID? How I can set a random password? I want to learn stuff like these. I hope you will help me.

I've tried to do something about selecting a random ID by using this topic.

Code: [Select]

function RandomID: integer;
var
a: array of integer;
x, y, z: integer;
begin
 for x := 1 to 32 do begin
      if GetPlayerStat(x, 'Active') then begin
           a[y] := x;
           y := y+1;
           SetArrayLength(a, y);
      end;
 end;
 z := NumPlayers;
 case Random(1, z+1) of
      1: Result := a[0]
      2: Result := a[1]
      3: Result := a[2]
      4: Result := a[3]
      5: Result := a[4]
      6: Result := a[5]
      .
      .   // Tried to do something like that but I don't know what to do here. :)
      .
      z: Result := a[z-1]
 end;
end;
Sorry for my grammar mistakes if there is any.

Thanks, Utku.

[DarkCrusade]

For random maps:
1) Load the maplist into a dynamic array
2) Create a random value between 1 and the length of the array
3) Load that map

For random ID:
1) Idle through the list of players (1 to 32). If an ID is active, put the ID into a dynamic array.
2) Same step as above
3) Success

1) Create an array containing all letters ("a" to "z" and "0" to "9")
2) Create random numbers, until the length of your choice is reached
3) Success

You do the coding

[utkesmer]

Did you read my script above for random ID? I tried to do same but I couldn't.

[iDante]

http://forums.soldat.pl/index.php?topic=31798.0

[dnmr]

http://forums.soldat.pl/index.php?topic=31798.0

soldatcentral is no more

[jrgp]

http://forums.soldat.pl/index.php?topic=31798.0

soldatcentral is no more

That's pretty douchy of enesce to just have soldatcentral redirect to his commercial software ad site without even giving a notice.

[utkesmer]

Thank you iDante, I am pretty sure it works perfectly but I couldn't understand how it exactly works.

And I made new one, seems it's going to work.

Code: [Select]

function RandomID: integer;
var
a: array of integer;
x, y: integer;
begin
 for x := 1 to 32 do begin
      if GetPlayerStat(x, 'Active') then begin
           a[y] := x;
           y := y+1;
           SetArrayLength(a, y);
      end;
 end;
 Result := a[Random(0, y)];
end;
It didn't, can you tell me what is wrong?

[DarkCrusade]

You try to save an integer into an array slot which is non-existant.

Just move "y:=y+1; SetArrayLength" before "a[y]:=x;"

[DorkeyDear]

@utkesmer:
Dynamic arrays start empty (in most cases). This means a has length 0. When the first time the code tries to do a[y] := whatever, it is trying to index the 0th index of a, which is not yet defined. You must set the length of the array (a) first, and then modify the value at an index in a.

Sometimes, when a function returns a variant value that is a boolean (such as GetPlayerStat), you cannot simply do if (...) then; you must do if (... = true) then. This could cause an issue (which I've experienced before). In your case, simply replace if GetPlayerStat(x, 'Active') then with if GetPlayerStat(x, 'Active') = true then.

Code: [Select]

function RandomID: integer;
var
a: array of integer;
x, y: integer;
begin
 for x := 1 to 32 do begin
      if GetPlayerStat(x, 'Active') = true then begin
           SetArrayLength(a, y + 1);
           a[y] := x;
           y := y+1;
      end;
 end;
 Result := a[Random(0, y)];
end;Notice how the order changed, and y changed to y+1 for setting the array length of a.
Try this (it is untested).

[utkesmer]

I got it and tested it. It works now. Thank you all, really.

But I didn't get the "= true" part.

if GetPlayerStat(x, 'Active') = if ( GetPlayerStat(x, 'Active') = true ) // and...
if not GetPlayerStat(x, 'Active') = if ( GetPlayerStat(x, 'Active') = false ) // Aren't they?

At least iDante says so:

Part IIX: Boolean Statements:
Good lord this drives me insane.
Would you do this?

Code: (Pascal) [Select]

if x > y = true then ...;
Lets say that x is greater than y. The computer evaluates it as "if true = true then ..." when it makes more sense for it to evaluate it as "if true then ..."
A boolean statement goes into the condition part of an if thing.
Therefore, DO NOT DO THIS:

Code: (Pascal) [Select]

var
     bool: boolean;
begin
     if bool = true then ...;
end;
THAT IS UGLY AND MEAN TO ME!

Code: (Pascal) [Select]

if bool then ...;
IS MUCH BETTER TY!
Same with stuff like this:

Code: (Pascal) [Select]

var i: integer;
begin
     for i := 1 to 32 do
          if GetPlayerStat(i, 'active') then ...;
end;
Note: "if GetPlayerStat(i, 'active') then ...;"
I see this written as "if GetPlayerStat(i, 'active) = true then ...;" over and over again and it bugs the living shneidikkies out of me.
Please for the love of good god's goldfish, get rid of those = true's.

Note: Some of GetPlayerStat's return values are borked, be sure to make sure things are working right.

Now lets say you want to test out whether that boolean statement is NOT true.

Code: (Pascal) [Select]

if not bool then ...;
not is the keyword to use here. This basically takes over = false. Its easier to read as well.

I can't understand why this could cause an issue.

Whatever, here is the function, "RandomID". It returns a random active player's ID.

Code: [Select]

function RandomID: integer;
var
a: array of integer;
x, y: integer;
begin
   for x := 1 to 32 do begin
      if GetPlayerStat(x, 'Active') = true then begin
         SetArrayLength(a, y + 1);
         [y] := x;
         y := y+1;
      end;
   end;
   Result := a[Random(0, y)];
end;
Thanks again DarkCrusade, iDante and DorkeyDear.

[iDante]

soldatcentral is no more

meh, the script is posted in the thread.

oh yeah, GetPlayerState sometimes doesn't return nice results, stick an = true onto the end of that thing. It really doesn't make sense and is dumb, but whatever.

[dnmr]

But I didn't get the "= true" part.

getplayerstat returns a variant, not a bool. So it can sometimes mess up and destroy your everything

[utkesmer]

Hmm, sorry then, you're right.

[EnEsCe]

That's pretty douchy of enesce to just have soldatcentral redirect to his commercial software ad site without even giving a notice.

No notice? It was on the front page of SoldatCentral since 23-09-10... 9+ months is plenty of notice.

And there is an index available for the old scripts here:
http://enesce.com/static/sc_scripts/

[utkesmer]

Code: [Select]

function RandomID(t: integer): integer;
var
a: array of integer;
x, y: integer;
begin

 if ( t = 0 ) then begin

      for x := 1 to 32 do begin

           if ( GetPlayerStat(x, 'Active') = true ) then begin

                SetArrayLength(a, y+1);

                a[y] := x;

                y := y+1;

           end;

      end;

 end else begin

      for x := 1 to 32 do begin

           if ( GetPlayerStat(x, 'Active') = true ) and ( GetPlayerStat(x, 'Team') = t ) then begin

                SetArrayLength(a, y+1);

                a[y] := x;

                y := y+1;

           end;

      end;

 end;

 Result := a[Random(0, y)];

end;
"Team" parameter is added. I was trying to write the "!balance" command. You know, when 5v3, take a random alpha player and make it join bravo team. So I needed team parameter for this. I tried, it is working. 0 means all players for team btw.