#Hey my name is VeNuM ( on efnet )  This is my First Tcl
#So Dont Bitch at me how shity it is :)
#It has Auto VOice Commands  So like  FIgure them out or something
#If u need any help with it   e-mail me at
#magic@all-net.net    venum@cyberdude.com   venum@tsd.lick-my.org
#or   vengence@indy.net    oh or   aaron15@juno.com :)  t
#thats all of them
#welp Enjoy or something


bind pub m !addvoice pub_do_aus
bind pub m !devoice pub_do_rus

#Add a nick to the voice lists.
proc pub_do_aus {nick host handle channel testes} {
global ver
set who [lindex $testes 0]
set mhost [maskhost [getchanhost $who $channel]]
if {$who == ""} {
putserv "NOTICE $nick :Usage: !Addvoice <Nick to add to the disicipline>"
return 1
}
if {[matchattr $who +v]} {
putserv "NOTICE $nick :$who Cannot be set to this mode Because he is already Voiced."
return 1
}
adduser $who [maskhost [getchanhost $who $channel]]
chattr $who +v
putserv "MODE $channel -+vv $who"

putserv "NOTICE $nick :$who has been added to my Voice Lists."
putserv "NOTICE $who :$who, You've been added Voice Lists!."
putserv "NOTICE $who :I'll not even tell u what u can do with +v cuzz i dont know:) ."
putserv "NOTICE $who :        Disicipliner $ver by VeNuM"
return 1
}
#End of pub_do_aus






#Remove the voiced user.
proc pub_do_rus {nick host handle channel testes} {
global ver
set who [lindex $testes 0]
set mhost [maskhost [getchanhost $who $channel]]
if {$who == ""} {
putserv "NOTICE $nick :Usage: !DeVoice <Nick to add to the disicipline>"
return 1
}


chattr $who -v
deluser  $who
putserv "MODE $channel -v $who"

putserv "NOTICE $nick :$who has been removed from my voice lists."
putserv "NOTICE $who :$who, You've been readded to LamAh Lists Dumbass!=)."
putserv "NOTICE $who :$nick Took you off so thank him ."
putserv "NOTICE $who : Disicipliner $ver by VeNuM"
return 1
}
#End of pub_do_rus


set flag1 v
bind join v * join_auto_op
proc join_auto_op {n uh h c } { putserv "MODE $c +v $n" }

putlog "Disicipliner $ver by VeNuM"