##################~~~~~~~~~~~~~~~##################
## ______ __ ##
## / ____/___ _____ _____/ /________ ____ ##
## / __/ / __ `/ __ `/ __ / ___/ __ \/ __ \ ##
## / /___/ /_/ / /_/ / /_/ / / / /_/ / /_/ / ##
## /_____/\__, /\__, /\__,_/_/ \____/ .___/ ##
## /____//____/ by SycLonE /_/_ ##
## / __ )_________ ______(_) / ##
## / __ / ___/ __ `/ ___/ / / ##
## / /_/ / / / /_/ (__ ) / / ##
## /_____/_/ \__,_/____/_/_/ ##
## _______________________________ ##
## http://eggdrop.mariodias.com.br ##
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ##
## Nome : onjoin.tcl ##
## Desc : Manda mensagem pra quem entra no canal ##
## Autor: Desconhecido ##
## ##
##################~~~~~~~~~~~~~~~##################
# Este script apenas manda uma mensagem de
# saudação para todos que entram no canal.
# Em geral se usa isso para mandar as regras do canal.
# Mas pode ser configurado para não mandar
# para os ops.
# Coloque esta variavel em 1 se voce quiser que o
# mande a mensagem mesmo para os ops
set saudar_ops 0
# Coloque aqui o nome do canal
set canal #uo
# Coloque aqui a mensagem
set #uo_msg "$nick 4seja Bem Vindo ao canal 12# Uo"
set #uo_msg "0,4S har ds Par ceir os:"
set #uo_msg "12,0Real Shard RunUO FreeShard 10#RealShard"
set #uo_msg "12,0Dimensions FreeShard 10#Dimensions"
## Não precisa editar nada a partir daqui, mas se vc quiser
## esteja a vontade
bind join - $canal* msg_canal
proc msg_canal {nick host hand chan} {
global saudar_ops canal_msg botnick
if { $nick == $botnick } {
# Se for o join do bot claro q não
# precisa mandar nada
return 1
}
if { $saudar_ops == 0 && [matchattr $hand o] } {
# Se a pessoa for op e nao for para saudar ops nao faz nada
# Se vc quiser q o botão nao saude ninguem q tenha
# acesso a party line por exemplo basta mudar o
# [matchattr $hand o] para [matchattr $hand p]
return 1
}
# Observe o uso do puthelp (para evitar q o bot provoque flood num
# join em massa como na volta de um netsplit) e do notice (para
# evitar janelinhas enchendo o saco dos usuarios
puthelp "PRIVMSG $nick :$canal_msg"
}