ScriptCore3.Random

function Random(Min, Max: Integer): Integer
 Min: minimum value inclusive that can be generated
 Max: maximum value exclusive that can be generated
 Result: generated number

Description

This function will generate a pseudo-random number between Min and Max - 1

Example

Below script kills random player in game and grants user a kill (if killed an enemy).

var
  i: integer;
  id: byte;

function OnCommand(P: TActivePlayer; Command: string): Boolean;
begin
  Result := FALSE;
  if Command = '/killrandom' then
    if not P.Alive then
      P.WriteConsole('You can use this only when alive',$FF0000)
    else
    begin
      repeat
        id := Random(1,32+1);
      until Players[id].Active;
      Players[id].Damage(P.ID,1000);
      Players[id].WriteConsole('Random kill by '+P.Name,$FF0000);
    end;
end;

begin
  for i:=1 to 32 do
    Players[i].OnCommand := @OnCommand;
end.