egghelp/eggheads community

lsearch help

2013-12-21T15:53:16-04:00

Code:

proc doJoinBinds {} {  # unbind any existing onjoin binds #  foreach jbind [binds fambot:onjoin] {    foreach {typ flg name hit prc} $jbind {  break  }    unbind $typ $flg $name $prc  }  # bind back the current 'family' channels #  foreach line [split [string trim $::family] "\n"] {    bind join - "[lindex [split [string trim $line]] 1] *" fambot:onjoin  }}doJoinBinds

Statistics: Posted by SpiKe^^ — Sat Dec 21, 2013 3:53 pm

lsearch help

2013-12-21T15:10:45-04:00

Maybe try this...

Code:

proc doJoinBinds {} {   foreach line [split [string trim $::family] "\n"] {      bind join - "[lindex [split [string trim $line]] 1] *" fambot:onjoin   }}doJoinBinds

Statistics: Posted by SpiKe^^ — Sat Dec 21, 2013 3:10 pm

inspired by beer.

2013-12-21T15:25:30-04:00

I'm learning a lot of tcl principles by looking at your beer.tcl script, but the lack of comments makes it difficult to decipher sometimes xD

Nice to hear you gather inspiration from my beer:)

Sorry there are few comments in the script, but at least it's short.
I would be glad to answer any specific questions you have about beer.
You can always contact me here, or at the contact info in beer.tcl

Statistics: Posted by SpiKe^^ — Sat Dec 21, 2013 2:33 pm

lsearch help

2013-12-21T14:32:10-04:00

could anyone tell me how I can bind all those chans to an onjoin event?

I tried

Code:

set famchans [split [string trim $family] "\n"]foreach famchan $famchans {  if {[llength $famchan]>"1"} {    bind join - "[lindex $famchan 1] *" fambot:onjoin  }}

but that doesn't replace the [lindex $famchan 1] and crashes the bot

Statistics: Posted by mrNobody — Sat Dec 21, 2013 2:32 pm

lsearch help

2013-12-21T14:22:41-04:00

Worth mentioning,
array set expects a valid list of key-value pairs as input. For a trivial case, you'll be able to craft lists by hand; though I generally recommend using the list command for building more complex lists. This is especially important if you have strings containing spaces or brackets/braces.

Code:

set family [list pubchan "#chan1 here" \  famchan "#chan2 {there}" \  capochan #otherchan \  topchan "We're on the top #chan" \]...

Statistics: Posted by nml375 — Sat Dec 21, 2013 2:22 pm

lsearch help

2013-12-21T14:14:37-04:00

oh very interesting nml! I'm gonna look into that as well.

Statistics: Posted by mrNobody — Sat Dec 21, 2013 2:14 pm

lsearch help

2013-12-21T14:11:53-04:00

Another option..

Code:

set family {   pubchan #chan1   famchan #chan2   capochan #chan3   topchan #chan4}proc test {nick host handle chan text} {  array set fam $::family  puthelp "PRIVMSG $chan :pubchan is $fam(pubchan), famchan is $fam(famchan), capochan is $fam(capochan), topchan is $fam(topchan)"}

Statistics: Posted by nml375 — Sat Dec 21, 2013 2:11 pm

lsearch help

2013-12-21T13:44:31-04:00

thnx spike, works flawlessly :)

I'm learning a lot of tcl principles by looking at your beer.tcl script, but the lack of comments makes it difficult to decipher sometimes xD

Statistics: Posted by mrNobody — Sat Dec 21, 2013 1:44 pm

lsearch help

2013-12-21T13:06:05-04:00

Code:

set family {    pubchan #chan1    famchan #chan2    capochan #chan3    topchan #chan4 } proc test {nick host handle chan args} {    global family    set fam [split [string trim $family] "\n"]    set pubchan [lindex [split [string trim [lsearch -inline $fam "*pubchan *"]]] 1]    set famchan [lindex [split [string trim [lsearch -inline $fam "*famchan *"]]] 1]    set capochan [lindex [split [string trim [lsearch -inline $fam "*capochan *"]]] 1]    set topchan [lindex [split [string trim [lsearch -inline $fam "*topchan *"]]] 1]    putserv "PRIVMSG $chan :pubchan is $pubchan, famchan is $famchan, capochan is $capochan, topchan is $topchan" }

Statistics: Posted by SpiKe^^ — Sat Dec 21, 2013 1:06 pm

Re: lsearch help

2013-12-21T12:55:40-04:00

...
How can I get all the values I want?

Experiment with:

Code:

set family [list {pubchan #chan1} {famchan #chan2} {capochan #chan3} {topchan #chan4} ]bind pub - "!mrnobody" mrnobodyproc mrnobody {nick host handle chan args} {global family        set pubchan [lindex [lsearch -inline $family "pubchan* *"] 1]        set famchan [lindex [lsearch -inline $family "famchan* *"] 1]        set capochan [lindex [lsearch -inline $family "capochan* *"] 1]        set topchan [lindex [lsearch -inline $family "topchan* *"] 1]        putserv "PRIVMSG $chan :pubchan is $pubchan, famchan is $famchan, capochan is $capochan, topchan is $topchan"     }

I hope this helps.

Statistics: Posted by willyw — Sat Dec 21, 2013 12:55 pm

lsearch help

2013-12-21T11:58:15-04:00

Okay, I'm almost afraid to make yet another topic :$ I used search and couldn't find an answer, so here we go:

I have this piece of code:

Code:

set family {pubchan #chan1famchan #chan2capochan #chan3topchan #chan4}proc test {nick host handle chan args} {global familyset family [split [string trim $family] "\n"]set pubchan [lindex [lsearch -inline $family "pubchan* *"] 1]set famchan [lindex [lsearch -inline $family "famchan* *"] 1]set capochan [lindex [lsearch -inline $family "capochan* *"] 1]set topchan [lindex [lsearch -inline $family "topchan* *"] 1]putserv "PRIVMSG $chan :pubchan is $pubchan, famchan is $famchan, capochan is $capochan, topchan is $topchan"}

Now that only works for pubchan, everything else returns an empty string. How can I get all the values I want?

Statistics: Posted by mrNobody — Sat Dec 21, 2013 11:58 am