Welcome script, invite operators to private channel
Posted: Tue Jun 10, 2008 2:55 pmChange:
after your needs.
- Channel
flag
privatechannel
message
after your needs.
- Code: Select all
namespace eval welcome {
namespace eval variable {
variable channel "#channel"
variable flag "-|o"
variable privatechannel "#Private_channel"
variable message "Welcome message here."
}
bind JOIN - "$::welcome::variable::channel*" [namespace current]::join
proc join {nickname hostname handle channel} {
if {[matchattr $handle $::welcome::variable::flag $channel]} {
putserv "INVITE $nickname $::welcome::variable::privatechannel"
}
puthelp "Notice $nickname :$::welcome::variable::message"
}
}
putlog "\00304[string range [info script] 0 end]\00304 \002loaded\003\002. By Website: \002http://sp00fed.org\002"