ScriptCore3.Random

2020-04-14T17:32:10Z

Rhpot03:

'''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).
<syntaxhighlight lang="pascal">
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.
</syntaxhighlight>

[[Category:Functions]]

Soldat Community Wiki - User contributions [en]

ScriptCore3.Random