ScriptCore3.Random - Revision history

Rhpot03 at 17:32, 14 April 2020

2020-04-14T17:32:10Z

Mighty: /* Example */

2013-08-22T15:47:16Z

‎Example

Mighty: /* Example */

2013-08-22T15:36:15Z

‎Example

Mighty: new page

2013-08-22T15:35:25Z

new page

New page

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

==Description==
This function will generate a pseudo-random number between ''Min'' and ''Max''

==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
begin
repeat
id := Random(1,32);
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]]

@@ Line 1: / Line 1: @@
   '''function Random(Min, Max: Integer): Integer'''
-   Min: minimum value that can be generated
+   Min: minimum value inclusive that can be generated
-   Max: maximum value 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''
+This function will generate a pseudo-random number between ''Min'' and ''Max - 1''
 ==Example==
@@ Line 23: / Line 23: @@
      begin
        repeat
-         id := Random(1,32);
+         id := Random(1,32+1);
        until Players[id].Active;
        Players[id].Damage(P.ID,1000);

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

@@ Line 11: / Line 11: @@
 <syntaxhighlight lang="pascal">
 var
-	i: integer;
+  i: integer;
-	id: byte;
+  id: byte;
 function OnCommand(P: TActivePlayer; Command: string): Boolean;
 begin
-	Result := FALSE;
+  Result := FALSE;
-	if Command = '/killrandom' then
+  if Command = '/killrandom' then
-	begin
+  begin
-		repeat
+    repeat
-			id := Random(1,32);
+      id := Random(1,32);
-		until Players[id].Active;
+    until Players[id].Active;
-		Players[id].Damage(P.ID,1000);
+    Players[id].Damage(P.ID,1000);
-		Players[id].WriteConsole('Random kill by '+P.Name,$FF0000);
+    Players[id].WriteConsole('Random kill by '+P.Name,$FF0000);
-	end;
+  end;
 end;
 begin
-	for i:=1 to 32 do
+  for i:=1 to 32 do
-		Players[i].OnCommand := @OnCommand;
+    Players[i].OnCommand := @OnCommand;
 end.
 </syntaxhighlight>
 [[Category:Functions]]