View

tcl eggdrop : autovoice tlm à retardement dans #chan

  1. ##### BINDS #######################
  2. #– JOIN
  3. # modifier ci-dessous #chan par le vrai nom du chan
  4. bind join“#chan *!*@*” perso:join_autovoice
  5. ##### PROCS ####################
  6. ##——- perso:join_autovoice
  7. proc perso:join_autovoice {nick userhost handle chan} {
  8.         if {![botisop $chan]} { return 0 }
  9.         if {![isvoice $nick $chan] && ![isop $nick $chan]} {
  10.                 set num [expr int(rand()*5)+(1&&5)+5]
  11.                 utimer $num [list perso:voice $chan $nick]
  12.         }
  13.         return 0
  14. }
  15. ##——- perso:voice
  16. proc perso:voice {chan nick} {
  17.         if {![botisop $chan]} { return 0 }
  18.         if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
  19.                 putserv “MODE $chan +v $nick”
  20.         }
  21.         return 0
  22. }

You may also like