| View previous topic :: View next topic |
| Author |
Message |
FIR[3] Voice
Joined: 26 Oct 2005 Posts: 2
|
Posted: Wed Oct 26, 2005 4:38 pm Post subject: Anouncement script |
|
|
| I need a script where I can devoice and deop everyone in the channel except for me and bot to make anouncements. Also a chanserv command to /msg chanserv LEVELS #channel SET autovoice 1. I also need the script to be able to !anounceoff to revoice everyone and I can manually op everyone again. |
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
Posted: Fri Oct 28, 2005 9:54 am Post subject: |
|
|
| Code: | bind pub n !announceon announce:on
bind pub n !announceoff announce:off
proc announce:on {nick uhost hand chan arg} {
foreach n [chanlist $chan] {
if {[isbotnick $n] || [matchattr [nick2hand $n] n]} {continue}
if {[isop $n $chan]} { pushmode $chan -o $n }
if {[isvoice $n $chan]} { pushmode $chan -v $n }
}
puthelp "PRIVMSG ChanServ :LEVELS $chan SET autovoice 1"
}
proc announce:off {nick uhost hand chan arg} {
foreach n [chanlist $chan] {
if {![isvoice $n $chan]} { pushmode $chan +v $n }
}
} |
_________________ Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
 |
|