try chanlist this way
This commit is contained in:
parent
51fcccf35d
commit
e9f5f14d0b
@ -1 +0,0 @@
|
|||||||
args {. {#nnnnnn}}
|
|
@ -1,3 +1,2 @@
|
|||||||
chanlist 38714362bb3ac496ed47bdad1cb67a068883c25e
|
|
||||||
testo444 b97b92d30ce8f6c872670f177fa384e61df3b004
|
testo444 b97b92d30ce8f6c872670f177fa384e61df3b004
|
||||||
testo4444 5a40678c150205d31ffbd01d683d1508fdb8bbd5
|
testo4444 5a40678c150205d31ffbd01d683d1508fdb8bbd5
|
||||||
|
@ -138,6 +138,7 @@ proc steveburger {} {. Someone should make a burger filled with real shit instea
|
|||||||
proc swingler_todo {} {. [subst [join [string repeat {[swingler_list_item] } 5] \n]]}
|
proc swingler_todo {} {. [subst [join [string repeat {[swingler_list_item] } 5] \n]]}
|
||||||
proc anagrams_for word {lines [string map {<br> {}} [string trim [lindex [regexp -inline {:\n</b><br>(.*?)<!--} [~http://wordsmith.org/anagram/anagram.cgi?[? anagram $word t 1000 a n]]] end]]]}
|
proc anagrams_for word {lines [string map {<br> {}} [string trim [lindex [regexp -inline {:\n</b><br>(.*?)<!--} [~http://wordsmith.org/anagram/anagram.cgi?[? anagram $word t 1000 a n]]] end]]]}
|
||||||
proc feminism {} {return "yo gurl what kinda feminism u into? i'm all about about the [oxfordjoin [concat [lrange $::feminisms 0 end-1] [list "don't forget the [lindex $::feminisms end] too!"]]]"}
|
proc feminism {} {return "yo gurl what kinda feminism u into? i'm all about about the [oxfordjoin [concat [lrange $::feminisms 0 end-1] [list "don't forget the [lindex $::feminisms end] too!"]]]"}
|
||||||
|
proc chanlist args { cache::get irc chanlist }
|
||||||
proc v%chanlist {c {flags {}}} {
|
proc v%chanlist {c {flags {}}} {
|
||||||
global botnick
|
global botnick
|
||||||
lsearch -not -all -inline -regexp [subst "\[[concat chanlist ${c} ${flags}]\]"] "(?iq)${botnick}"
|
lsearch -not -all -inline -regexp [subst "\[[concat chanlist ${c} ${flags}]\]"] "(?iq)${botnick}"
|
||||||
|
Loading…
x
Reference in New Issue
Block a user