Code:

#### ++++ Author: MadaliN <madalinmen28@yahoo.com>### +++ Script name: TAG Voice## +++ Version 1.0 (2/6/2013)# Commands#!tagvoice -add#!tagvoice -del#!tagvoice -list## You have to use .chanset #channel +tagvoice so that the script will workbind PUB n !tagvoice tagvoice:pubbind JOIN - * tagvoice:joinsetudef flag tagvoiceproc tagvoice:join {nick uhost hand chan} {global tagvoiceif {[channel get $chan tagvoice] && [info exists tagvoice]} {foreach n [array names tagvoice] {if {[string match -nocase "$n*" $nick]} {pushmode $chan +v $nickputserv "PRIVMSG $chan :tag found.."}}}}proc tagvoice:pub {nick uhsot hand chan arg} {global tagvoiceswitch -exact -- [lindex [split $arg] 0] {add --add {if {[lindex [split $arg] 1] == ""} { putserv "PRIVMSG $chan :\002$nick\002 - You have to specify a TAG name"; return }set tagvoice([lindex [split $arg] 1]) "[unixtime]"tagvoice:saveputserv "PRIVMSG $chan :\002$nick\002 - You succesfully saved TAG \00312[lindex [split $arg] 1]"}del --del {if {[lindex [split $arg] 1] == ""} { putserv "PRIVMSG $chan :\002$nick\002 - You have to specify a TAG name"; return }if {![info exists tag([lindex [split $arg] 1])]} { putserv "PRIVMSG $chan :\002$nick\002 - TAG \00304[lindex [split $arg] 1]\003 doesnt exists"; return }unset -nocomplain tagvoice([lindex [split $arg] 1])tagvoice:saveputserv "PRIVMSG $chan :\002$nick\002 - You succesfully erased TAG \00304[lindex [split $arg] 1]"}list --list {if {![info exists tagvoice]} { putserv "PRIVMSG $chan :\002$nick\002 - There is no TAG added"; return }set list ""foreach n [array names tagvoice] { lappend list $n }putserv "PRIVMSG $chan :\002$nick\002 - TAG list: [join $list ", "]"}}}proc tagvoice:save {} {global tagvoiceset ofile [open tagvoice w]puts $ofile "array set tagvoice [list [array get tagvoice]]"close $ofile}catch {source tagvoice}putlog "+++ Succesfully loaded: \00312TAG Voice TCL Script"

Code:

setudef flag tagvoice bind join - {% ARG|*} voice:user bind nick - {% ARG|*} voice:user bind join - {% COL|*} voice:user bind nick - {% COL|*} voice:user bind join - {% CRC|*} voice:user bind nick - {% CRC|*} voice:user bind join - {% BOL|*} voice:user bind nick - {% BOL|*} voice:user bind join - {% BRA|*} voice:user bind nick - {% BRA|*} voice:user bind join - {% PAR|*} voice:user bind nick - {% PAR|*} voice:user bind join - {% URU|*} voice:user bind nick - {% URU|*} voice:user bind join - {% PER|*} voice:user bind nick - {% PER|*} voice:user bind join - {% VEN|*} voice:user bind nick - {% VEN|*} voice:user bind join - {% MEX|*} voice:user bind nick - {% MEX|*} voice:user bind join - {% ECU|*} voice:user bind nick - {% ECU|*} voice:user bind join - {% CHI|*} voice:user bind nick - {% CHI|*} voice:user bind nick - * devoice:user proc voice:user {nick uhost hand chan {nn ""}} {  if { ![channel get $chan tagvoice] } { return 0 }  if {$nn == ""} {set nn $nick}  if {![isvoice $nn $chan]} {   pushmode $chan +v $nn  } } proc devoice:user {nick uhost hand chan nn} {  if { ![channel get $chan tagvoice] } { return 0 }  if {![string match -nocase ARG|* $nn] && ![string match -nocase BRA|* $nn] && ![string match -nocase PAR|* $nn] && ![string match -nocase CHI|* $nn] &&  ![string match -nocase ECU|* $nn] &&  ![string match -nocase MEX|* $nn] &&  ![string match -nocase VEN|* $nn] && ![string match -nocase PER|* $nn] && ![string match -nocase URU|* $nn] && ![string match -nocase CRC|* $nn] && ![string match -nocase COL|* $nn] && ![string match -nocase BOL|* $nn] && [isvoice $nn $chan]} {   pushmode $chan -v $nn }  }