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}     }   } }