Need help with avoice..

[Salik83]

hello guys,

i have some autovoice tcl, but i just want to add some ips so user wont get voice matching those ips.
or some code that will add user if global op or master type in channel .human nick and nick will automatically added to the channel +g list? :/ sorry for my bad english!

[Madalin]

The code for the ips that will wont be voiced

Code: Select all

bind join - "#channel *" onjoin:autovoice

set temp(excepts) [list "chanrank.com" "domain.com"]

proc onjoin:autovoice {nick uhost hand chan} {
	global temp

        if {$nick == $::botnick} { return }

	foreach i [split $temp(excepts)] { if {[string match -nocase "*$i*" [lindex [split $uhost @] 1]]} { return } }
}

The .human script

Code: Select all

bind PUB n .human human:pub

proc human:pub {nick uhost hand chan arg} {

	set who [lindex [split $arg] 0]

	if {![onchan $who $chan]} { putserv "PRIVMSG $chan :\002$nick\002 - $who is not on chan"; return }

	if {[validuser [nick2hand $who]]} {
		chattr [nick2hand $who] +g $chan

		putserv "PRIVMSG $chan :\002$nick\002 - Succesfully added \00312$who\003 to autovoice list"
	} else {
		adduser $who "*!*@[lindex [split [getchanhost $who $chan] @] 1]"
		chattr $who +g $chan

		putserv "PRIVMSG $chan :\002$nick\002 - Succesfully added \00312$who\003 to autovoice list"
	}
}