From a1abfedccd62251e9540afa882ed9e47e357e486 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Mon, 29 Jan 2024 22:32:57 +0100
Subject: global-functions: $RandomDelay: always scale to ms...

... to randomize in friction of unit.

This requires :tonsec from RouterOS 7.12.
---
 global-functions.rsc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'global-functions.rsc')

diff --git a/global-functions.rsc b/global-functions.rsc
index a2c50a5..9be7893 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -4,7 +4,7 @@
 #                         Michael Gisbers <michael@gisbers.de>
 # https://git.eworm.de/cgit/routeros-scripts/about/COPYING.md
 #
-# requires RouterOS, version=7.10beta5
+# requires RouterOS, version=7.12
 #
 # global functions
 # https://git.eworm.de/cgit/routeros-scripts/about/
@@ -878,12 +878,13 @@
 
   :global EitherOr;
   :global GetRandomNumber;
+  :global MAX;
 
   :if ($Time = 0) do={
     :return false;
   }
 
-  :delay ([ $GetRandomNumber $Time ] . [ $EitherOr $Unit "s" ]);
+  :delay ([ $MAX 10 [ $GetRandomNumber ([ :tonsec [ :totime ($Time . [ $EitherOr $Unit "s" ]) ] ] / 1000000) ] ] . "ms");
 }
 
 # check for required RouterOS version
-- 
cgit v1.2.3-54-g00ecf