From 9f37e44428d671b8dfb3085794a87c9cf973538d Mon Sep 17 00:00:00 2001 From: radical_honesty on #flashsupport Date: Tue, 27 Dec 2022 15:17:29 -0800 Subject: [PATCH] Evaluated proc WORDOFGOD {{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} --- procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e b/procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e index 371145d..668d7f2 100644 --- a/procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e +++ b/procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e @@ -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 "8 hours ago"]] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e$f" %x] % [llength $::english_words]]]}; return $ret}