Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
#################################
## NO usuarios TerraChat?????? ##
##      12:38 05/01/2016       ##
#################################

bind join - * new:talk
bind nick - * new:talk

proc new:talk {nick uhost hand chan {newnick ""}} {
    global logo
    if {![botisop $chan]} {return 0}
    if {$newnick != ""} {set nick $newnick}
    if {[string match "TerraChat*" [string tolower $nick]]} { puthelp "PRIVMSG $nick :Hola $nick. Eres nuevo en TerraChat??."
    puthelp "PRIVMSG $nick :00,00."
    puthelp "PRIVMSG $nick :TerraChat ofrece poder registrar tu nick para que nadie mas pueda usarlo."
    puthelp "PRIVMSG $nick :Si quieres registrar tu nick, escribe /msg NickServ Clave Email."
    puthelp "PRIVMSG $nick :Te dejo un ejemplo /msg NickServ miclave985217 fulano_79@gmail.com"
    puthelp "PRIVMSG $nick :00,00."
    puthelp "PRIVMSG $nick :Cada vez que ingreses al chat escribe /identify Clave para poder identificar tu nick."
    puthelp "PRIVMSG $nick :Te dejo un ejemplo /identify miclave985217 (Asi el servidor reconocera que eres tu el due�o del nick."
    if {[string match "*M*" [getchanmode $chan]]} {
    puthelp "PRIVMSG $nick :$chan esta bloqueado en el modo +M y debe registrar su nick e identificarse, si quieres hablar en $chan."}
    puthelp "PRIVMSG $nick :00,00."
    puthelp "PRIVMSG $nick :(este es un mensaje automatico, mas informacion en el canal #Ayuda :)"
    puthelp "PRIVMSG $nick : - $logo -"
}
}
putlog "#################################"
putlog "## NO usuarios TerraChat?????? ##"
putlog "#################################"
Explorando: ./tcl

Vista previa de: terrachat.tcl
