bind join - * script:onJoin
proc script:onJoin {nick uhost hand chan} {
if {[string match "*Anon*" $nick] || [string match "*Guest*" $nick] || [string match "*Invitado*" $nick] || [string match "*Amigo*" $nick] || [string match "*TerraChat*" $nick]} {
putquick "NOTICE $nick ¡Hola!␂ $nick␂ Parece que tu apodo esta prohibido en␂ $chan␂"
putquick "NOTICE $nick Te pedimos amablemente que lo cambies en los próximos␂ 2 ␂minutos para mantener un ambiente agradable en el canal."
putquick "NOTICE $nick Si necesitas ayuda para cambiar tu apodo, no dudes en preguntar. Estamos aquí para ayudarte."
putquick "NOTICE $nick Tienes␂ 2 ␂minutos para realizar el cambio. Si no lo haces, lamentablemente tendraremos que expulsarte del canal."
after 120000 [list script:kick $chan $nick "Por favor, cambia tu apodo @ Ejemplo:␂ /nick Karina␂"]
}
}
proc script:kick {chan nick reason} {
putquick "KICK $chan $nick :$reason"
putquick "MODE $chan +b $nick!*@*"
}
putlog "== Anti: Guest - TerraChat - Invitado =="