global-functions: $GetRandomNumber: use $HexToNum

1 files changed, 2 insertions, 11 deletions

diff --git a/global-functions b/global-functions
index 14b045e..654642e 100644
--- a/global-functions
+++ b/global-functions
@@ -416,18 +416,9 @@
   }
 
   :global GetRandom20CharHex;
+  :global HexToNum;
 
-  :local Num;
-  :local 40CharHex ([ $GetRandom20CharHex ] . [ $GetRandom20CharHex ]);
-
-  :for I from=0 to=39 do={
-    :local Char [ :pick $40CharHex $I ];
-    :if ($Char~"[0-9]") do={
-      :set Num ($Num . $Char);
-    }
-  }
-
-  :return ([ :tonum [ :pick $Num 0 18 ] ] % $Max);
+  :return ([ $HexToNum [ :pick [ $GetRandom20CharHex ] 0 15 ] ] % $Max);
 }
 
 # convert from hex (string) to num