tcl egg

bind raw * notice connection
proc connection {from keyword arg} {
global botnick
if {[string match -nocase "*Client connecting on port*" $arg]} {
set nick [lindex $arg 9]
set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]
set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]
putquick "PRIVMSG $nick Hola $nick! Bienvenido(a) a la Red Mas Grande -=- Irc.UnionLatina.Net -=- Espero que tu estadia sea placentera y hagas muchas amistades, Respeta las REGLAS de la Red, Gracias por tu visita y vuelve pronto :)"
putquick "PRIVMSG $nick - = - Irc.UnionLatina.Net - = -"
putquick "PRIVMSG $nick Si Tienes Alguna Duda Sobre Los Servicios Entra Canal #Ayuda Digita !Ayuda Que Gustosamente Los Opererarios te Ayudaran."
putquick "PRIVMSG $nick Si Tienes Alguna Duda Sobre Algun Nick/Servidor/Ban"
}
}