wrath/shaniqua-smeggdrop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

try chanlist this way

Browse Source
This commit is contained in:
Jon Doe 2020-09-27 16:29:08 +02:00 committed by Maciej Bonin
parent 51fcccf35d
commit e9f5f14d0b
3 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
procs/38714362bb3ac496ed47bdad1cb67a068883c25e
View File

@ -1 +0,0 @@
args {. {#nnnnnn}}

1
procs/_index
View File

@ -1,3 +1,2 @@
chanlist 38714362bb3ac496ed47bdad1cb67a068883c25e
testo444 b97b92d30ce8f6c872670f177fa384e61df3b004 testo444 b97b92d30ce8f6c872670f177fa384e61df3b004
testo4444 5a40678c150205d31ffbd01d683d1508fdb8bbd5 testo4444 5a40678c150205d31ffbd01d683d1508fdb8bbd5

1
stolen-treasure.tcl
View File

@ -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}"