#!/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