Ok.. this thingy should check if a user has a +v on a channal .. and if the channal is +i invite the user.. but now it only invites if you have global +v.. anyone? =) (egg 1.6.6)
------
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."