Repositorio IRC

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

set sahip ORATEGOD
set sahip2 ERRORGOD
set sahip3 Karina
 
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} { 
putserv "PRIVMSG $chan :Hola $nick!" 
 
} elseif {$nick==$sahip2} { 
putserv "PRIVMSG $chan :Wena $nick!" 
 
} elseif {$nick==$sahip3} { 
putserv "PRIVMSG $chan :Bienvenida $nick, mi tetoncita mas linda (*)(*)" 
 
;para los que no estan en la lista superior..
} else {
putserv "PRIVMSG $chan :Welcome $nick to $chan @ enjoy the channel!"
}
 
}

Explorando: ./tcl

Vista previa de: saludo.personal.tcl