Posted to tcl by rmax at Fri Apr 25 08:57:56 GMT 2008view pretty

        if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }
        if {[lsearch -glob [utimers] "* adv *"] == -1} { utimer $timer adv }

proc adv {} {
        global time text timer

        foreach chan [channels] { if { [botonchan $chan] && [isdynamic $chan] && ![channel get $chan silent] && $chan != $settings(suppchan) } {
                foreach mesaj $text { putserv "PRIVMSG $chan :$mesaj" }
        }}
if {[lsearch -glob [utimers] "* adv *"] == -1} { utimer $timer adv }
}
proc join:member {nick uhost hand chan} {
global settings
set onjointext "\001ACTION \00304$nick is an $settings(suppchan) Member\003 \00308/\003 \00312$nick este un Membru $settings(suppchan)\003\001"
if {[matchattr $hand M|-] && ![channel get $chan silent]} { puthelp "PRIVMSG $chan :$onjointext"}
}

proc join:mem {nick uhost hand chan} {
if { [channel get $chan onjoin] && [matchattr $hand -|N $chan]} {puthelp "PRIVMSG $chan :\001ACTION \00304$nick is an $chan Manager\003 \00308/\003 \00312$nick este un Manager $chan\003\001"} elseif {
     [channel get $chan onjoin] && [matchattr $hand -|n $chan]} {puthelp "PRIVMSG $chan :\001ACTION \00304$nick is an $chan Owner\003 \00308/\003 \00312$nick este un Owner $chan\003\001"} elseif {
     [channel get $chan onjoin] && [matchattr $hand -|m $chan]} {puthelp "PRIVMSG $chan :\001ACTION \00304$nick is an $chan Master\003 \00308/\003 \00312$nick este un Master $chan\003\001"} elseif {
     [channel get $chan onjoin] && [matchattr $hand -|o $chan]} {puthelp "PRIVMSG $chan :\001ACTION \00304$nick is an $chan Oper\003 \00308/\003 \00312$nick este un Oper $chan\003\001"} elseif {
     [channel get $chan onjoin] && [matchattr $hand -|v $chan]} {puthelp "PRIVMSG $chan :\001ACTION \00304$nick is an $chan Voicer\003 \00308/\003 \00312$nick este un Voicer $chan\003\001"}
}