egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2013-02-06T09:52:14-04:00 https://forum.eggheads.org/app.php/feed/topic/19333 2013-02-06T09:52:14-04:00 2013-02-06T09:52:14-04:00 https://forum.eggheads.org/viewtopic.php?p=100915#p100915 <![CDATA[TAG Voice]]>

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 work bind PUB n !tagvoice tagvoice:pub bind JOIN - * tagvoice:join setudef flag tagvoice proc tagvoice:join {nick uhost hand chan} {    global tagvoice    if {[channel get $chan tagvoice] && [info exists tagvoice]} {       foreach n [array names tagvoice] {          if {[string match -nocase "$n*" $nick]} {             pushmode $chan +v $nick             putserv "PRIVMSG $chan :tag found.."          }       }    } } proc tagvoice:pub {nick uhsot hand chan arg} {    global tagvoice    switch -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:save          putserv "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:save          putserv "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 tagvoice    set 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"

Statistics: Posted by Madalin — Wed Feb 06, 2013 9:52 am

]]>