| View previous topic :: View next topic |
| Author |
Message |
Ecimo
Voice
Joined: 27 Dec 2005
Posts: 5
|
 Posted: Mon Mar 13, 2006 1:06 pm Post subject: Stupid pushmode |
 |
|
Bug 1:
the proc demute is the problem can some help me there?
«11:15:43» {@Mulle^:#game-fair.dk} !mute l0rn|Mortar^off l0rn|RR^Off
«11:15:44» « Mode » {[Game-Fair]} sets {-vv l0rn|Mortar^off l0rn|RR^Off}
«11:17:43» « Mode » {[Game-Fair]} sets {+v l0rn|Mortar^off}
| Code: | set mutedhosts ""
bind join -|- * myavoice
bind PUB -|- !mute mymute
bind PUB -|- !demute demute2
proc myavoice {n u h c} {
if {![string equal -nocase $c "#game-fair.dk"]} {return}
global mutedhosts
if {[lsearch -exact $mutedhosts $u] == -1} {
pushmode $c +v $n
} else { puthelp "PRIVMSG $c :\002$n\002 (\002*!*$u\002) have been a bad boy, You have to wait 2 mins." }
}
proc mymute {n u h c a} {
if {![string equal -nocase $c "#game-fair.dk"] || ![isop $n $c]} {return}
global mutedhosts
foreach v [split $a] {
if {[onchan $v $c]} {
lappend mutedhosts [set uh [getchanhost $v $c]]
pushmode $c -v $v
utimer 120 [list demute $v $uh $c]
}
}
}
proc demute2 {n u h c a} {
if {![string equal -nocase $c "#game-fair.dk"] || ![isop $n $c] || ![onchan $a $c]} {return}
foreach v [split $a] {
demute $v [getchanhost $v $c] $c
}
}
proc demute {n h c} {
global mutedhosts
if {[set pos [lsearch -exact $mutedhosts $h]] == -1} {return}
while {[set pos [lsearch -exact $mutedhosts $h]] != -1} {
set mutedhosts [lreplace $mutedhosts $pos $pos]]
}
if {[onchan $n $c]} {
pushmode $c +v $n
} {
foreach curuser [chanlist $c] {
if {[getchanhost $curuser] == $h && ![isvoice $curuser $c]} {pushmode $c +v $curuser}
}
}
} |
|
|
| Back to top |
|
 |
spock
Master
Joined: 12 Dec 2002
Posts: 319
|
| Posted: Mon Mar 13, 2006 5:06 pm Post subject: |
|
|
do they by any chance have the same u@h ?
_________________
photon? |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
