Evaluated proc WORDOFGOD {{when "8 hours ago"}} {set ret ""; foreach {a b c d e} [split [n_r_r [clock scan $when]] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}

This commit is contained in:
radical_honesty on #flashsupport 2022-12-27 15:18:01 -08:00 committed by dupa dup
parent 9f37e44428
commit 3d13d6cc5c

View File

@ -1 +1 @@
{{when {8 hours ago}}} {set ret "";foreach {a b c d e} [split [n_r_r [clock scan "8 hours ago"]] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e$f" %x] % [llength $::english_words]]]}; return $ret} {{when {8 hours ago}}} {set ret ""; foreach {a b c d e} [split [n_r_r [clock scan $when]] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}