| View previous topic :: View next topic |
| Author |
Message |
Keen
Voice
Joined: 28 Jan 2009
Posts: 10
|
 Posted: Tue Sep 08, 2009 11:20 pm Post subject: +m mode when no op avaible on chanel |
 |
|
| Hello i need a tcl sciprt that will give +m mode to the channel whenn all ops left the channel. Because some users swears when there is no op on channels. Thank you and sorry for my bad english. |
|
| Back to top |
|
 |
tomekk
Master
Joined: 28 Nov 2008
Posts: 255
Location: Oswiecim / Poland
|
| Posted: Sat Sep 12, 2009 11:26 am Post subject: |
|
|
try:
| Code: | # tomekk, http://forum.egghelp.org/viewtopic.php?t=17169
# if you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)
# .chanset #channel_name +mops
# and later .save
############################################################################
bind part - "*" check_chan_ops
bind sign - "*" check_chan_ops
setudef flag mops
proc check_chan_ops { nick uhost hand chan msg } {
global botnick
if {![channel get $chan mops]} {
return
}
set channel_users [chanlist $chan]
set is_any_op 0
foreach chan_user $channel_users {
if {($chan_user != $nick) && ($chan_user != $botnick)} {
if {[isop $chan_user $chan]} {
set is_any_op 1
break
}
}
}
if {$is_any_op == 0} {
pushmode $chan +m
}
}
putlog "m-when-zero-ops.tcl ver 0.1 by tomekk loaded"
|
comment:
| Quote: | # iif you want to use this script on your chan, type in eggdrop console (via telnet or DCC chat)
# .chanset #channel_name +mops
# and later .save |
This script check only parts and signs, not net-splits. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
