Evaluated proc nist_rand {{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [n_r_r $when]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}

This commit is contained in:
radical_honesty on #flashsupport 2022-12-26 18:03:34 -08:00 committed by dupa dup
parent 3432e3a495
commit 3e25591e6b

View File

@ -1 +1 @@
{{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [last [regexp -inline {<outputValue>(.*?)</outputValue>} [n_r_r $when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret} {{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [n_r_r $when]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}