source: trollforge/lenny/invitebot.tcl @ 79

#!/usr/local/bin/tclsh

package require irc

::irc::config logger 1
::irc::config debug 1

set server "efnet.demon.co.uk"
set nick "gnaaa"
set chan_from "#xbox"
set chan_to "#hugelol"

set nicks ""

set c [::irc::connection]

# End of motd
$c registerevent 376 {

        cmd-join $::chan_to
        cmd-join $::chan_from
}

# Nicks list
$::c registerevent 353 {
 
        foreach n [split [msg] " "] {
 
                regsub {^[@]} $n {} n
                regsub {^[+]} $n {} n
 
                lappend ::nicks $n
        }
}

proc broadcast_msg {} {

    $::c invite $::chan_to [lindex $::nicks 0]

        set ::nicks [lrange $::nicks 1 end]
        
        if {[llength $::nicks]} {

                after 1000 broadcast_msg
        }
}

# Do it
$c registerevent 366 {

    broadcast_msg
}

# Connect
$c connect $server
$c user $nick h d e
$c nick $nick

vwait forever