Welcome script, invite operators to private channel

Release your script here.
State:
- Author
- What it does
- Perhaps a little guide.
- Also, if the snippet is of any use to the community, it has a chance of getting posted on the main page, so don't hesitate to submit/ask!

Welcome script, invite operators to private channel

Postby Cristian » Tue Jun 10, 2008 2:55 pm

Change:
    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"
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar

Re: Welcome script, invite operators to private channel

Postby Lukemob » Tue Jun 17, 2008 3:14 pm

I think many will find this script as useful. Good for TCL newbies
Lukemob
 


Return to TCL Scripting Release

Who is online

Users browsing this forum: No registered users and 0 guests

cron