Explorando: ./tcl

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.

⬅️ Volver

Vista previa de: guest.tcl

##################################################### # ___ ___ __ # # | | |.---.-.| |_.-----.----.-----.-----. # # |- -|| _ || _| -__| _| _ |__ --| # # |___|___||___._||____|_____|__| |_____|_____| # # Powered: www.xateros.cl � irc.xateros.cl # # # ##################################################### bind join - "*cam*" badnick bind join - "*sex*" badnick bind join - "*vendo*" badnick bind join - "*busco*" badnick bind join - "*hot*" badnickban bind join - "*caliente*" badnick bind join - "*gay*" badnick bind join - "*lesbi*" badnick bind join - "*puto*" badnick bind join - "*puta*" badnick bind join - "*terrachat*" badnick bind join - "*pene*" badnick bind join - "*pago*" badnick bind join - "*traves*" badnick bind join - "*chup*" badnick bind join - "*pasivo*" badnick bind join - "*anon*" badnick bind join - "*guest*" badnick ################################ proc badnick {nick uhost hand chan} { putserv "KICK $chan $nick :\00311,2[\0030 Este tipo de nick NO esta aceptado en este canal \0038x \0030Cambia tu nick y vuelve a entrar!\00311 ]\003" putserv "MODE $chan +b $nick" #putserv "PRIVMSG $nick :Hola, $nick! ;)" #putserv "PRIVMSG $nick :Registre su nick por favor :)" #putserv "PRIVMSG $nick :Digitando: /register Una_Clave Tu@Mail.com" #putserv "PRIVMSG $nick :NOTA: si su nick esta registrado por favor identif�quese� #putserv "PRIVMSG $nick :Con el siguiente comando: /identify Su_Clave" #putserv "PRIVMSG $nick :Si no puede ingrese al canal #Ayuda GRACIAS!" } putlog "***********************************************" putlog " NO NICK TCL -C-A-R-G-A-D-O- powered: Sa|vador " putlog " TCL hecho para la red TerraChat IRC Networks " putlog " www.terrachat.cl - irc.terrachat.cl " putlog "***********************************************"

👁️ 4 vistas • 📥 0 descargas

⬆ Subir