Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
# colocolo.tcl - Responde al comando !colocolo con el himno de Colo-Colo

bind pubm - "#TRAFFIC-HELP !colocolo*" canal_pessego
bind join - "#TRAFFIC-HELP*" noticia2

proc noticia2 {nick uhost handle channel} {
global botnick
###########	puthelp "NOTICE $nick :12Oi, $nick. Pra saber mais sobre a doutrina pesseg�tica,digite 4!colocolo12 no canal."
}

proc canal_pessego {nick uhost hand chan text} {
	putlog "* $nick * !colocolo! ($chan)"
	set vaignorar "*!*@[string range $uhost [expr [string last "@" $uhost] + 1] [string length $uhost]]"
        newignore $vaignorar "Pessego-TCL" "Ignorado pra prevenir que floode o bot com v�rios comandos" 1


puthelp "PRIVMSG $nick :El himno de Colo Colo es un canto de amor y orgullo por el club. Fue escrito por"
puthelp "PRIVMSG $nick :Carlos Ulloa D�az en 1943 y es considerado uno de los himnos m�s populares del f�tbol chileno."
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :HIMNO DE COLO COLO"
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :Cantemos todos de arica a Magallanes"
puthelp "PRIVMSG $nick :Por Colo-Colo ejemplo de valor"
puthelp "PRIVMSG $nick :Por su hidalgu�a no hay nadie quien lo gane"
puthelp "PRIVMSG $nick :Porque defiende con gloria el tricolor"
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :Es Colo-Colo como el gran araucano"
puthelp "PRIVMSG $nick :Que va a la lucha tenaz sin descansar"
puthelp "PRIVMSG $nick :Porque el recuerdo de David Arellano"
puthelp "PRIVMSG $nick :Siempre lo gu�a por la senda triunfal"
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :Colo-Colo, Colo-Colo, el equipo que ha sabido ser campe�n"
puthelp "PRIVMSG $nick :Y en las lides deportivas pone siempre su chileno coraz�n"
puthelp "PRIVMSG $nick :Colo-Colo, Colo-Colo, representa nuestra raza sin igual"
puthelp "PRIVMSG $nick :Por su empuje y coraje en las canchas como el Colo-Colo no hay"
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :Es Colo-Colo valiente, fuerte y grande"
puthelp "PRIVMSG $nick :De sangre altiva y noble coraz�n"
puthelp "PRIVMSG $nick :Su nombre vibra desde el mar a los Andes"
puthelp "PRIVMSG $nick :Y hay en sus triunfos esfuerzo y emoci�n"
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :Laureles deja por todos los caminos"
puthelp "PRIVMSG $nick :Que virilmente luchando conquist�"
puthelp "PRIVMSG $nick :Antorcha inmensa de gloria es su destino"
puthelp "PRIVMSG $nick :Que alumbra siempre con fuego de campe�n"
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :1Colo-Colo, Colo-Colo, el equipo que ha sabido ser campe�n"
puthelp "PRIVMSG $nick :1Y en las lides deportivas pone siempre su chileno coraz�n"
puthelp "PRIVMSG $nick :1Colo-Colo, Colo-Colo, representa nuestra raza sin igual"
puthelp "PRIVMSG $nick :1Por su empuje y coraje en las canchas como Colo-Colo no hay"
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :"
puthelp "PRIVMSG $nick :--------------------------------------------------------"
puthelp "PRIVMSG $nick :=== Copyright � 2023 @ #COLO-COLO @ irc.TerraChat.cl ==="
}
Explorando: ./tcl

Vista previa de: colocolo.tcl
