egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-11-25T03:30:00-04:00 https://forum.eggheads.org/app.php/feed/topic/450 2001-11-25T03:30:00-04:00 2001-11-25T03:30:00-04:00 https://forum.eggheads.org/viewtopic.php?p=2020#p2020 <![CDATA[Anyone see the error?]]> danke

Statistics: Posted by Guest — Sun Nov 25, 2001 3:30 am

]]> 2001-11-25T03:19:00-04:00 2001-11-25T03:19:00-04:00 https://forum.eggheads.org/viewtopic.php?p=2019#p2019 <![CDATA[Anyone see the error?]]> Edit this line:
if {[matchattr $handle v $chan]} {

to:
if {[matchattr $handle |v $chan]} {

should be ok then.

Crypto

Statistics: Posted by Guest — Sun Nov 25, 2001 3:19 am

]]> 2001-11-25T01:07:00-04:00 2001-11-25T01:07:00-04:00 https://forum.eggheads.org/viewtopic.php?p=2015#p2015 <![CDATA[Anyone see the error?]]>

------
bind pub - !invite pub_invite
proc pub_invite {nick host handle channel arg} {
set arg [split $arg]
if {[llength $arg]==0} {
set who "[split $nick]"
} else {
set who "[lindex $arg 0]"
}
foreach chan [channels] {
set cmodes [lindex [channel info $chan] 0]
if {[string match [string tolower "*i*"] [string tolower $cmodes]]} {
if {[matchattr $handle v $chan]} {
putserv "INVITE [join $who] $chan"
}
}
}
}
putlog "Invite TCL loaded."

Statistics: Posted by Guest — Sun Nov 25, 2001 1:07 am

]]>