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

  1. if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }
  2. if {[lsearch -glob [utimers] "* adv *"] == -1} { utimer $timer adv }
  3.  
  4. proc adv {} {
  5. global time text timer
  6.  
  7. foreach chan [channels] { if { [botonchan $chan] && [isdynamic $chan] && ![channel get $chan silent] && $chan != $settings(suppchan) } {
  8. foreach mesaj $text { putserv "PRIVMSG $chan :$mesaj" }
  9. }}
  10. if {[lsearch -glob [utimers] "* adv *"] == -1} { utimer $timer adv }
  11. }
  12. proc join:member {nick uhost hand chan} {
  13. global settings
  14. set onjointext "\001ACTION \00304$nick is an $settings(suppchan) Member\003 \00308/\003 \00312$nick este un Membru $settings(suppchan)\003\001"
  15. if {[matchattr $hand M|-] && ![channel get $chan silent]} { puthelp "PRIVMSG $chan :$onjointext"}
  16. }
  17.  
  18. proc join:mem {nick uhost hand chan} {
  19. 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 {
  20. [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 {
  21. [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 {
  22. [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 {
  23. [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"}
  24. }
  25.