Tags: tcl,autovoice

Sort by: Date / Title /

  1. tcl eggdrop : autovoice tlm à retardement dans #chan
    1 year ago by huelce
    1. ##### BINDS #######################
    2.  
    3. #-- JOIN
    4. # modifier ci-dessous #chan par le vrai nom du chan
    5. bind join - "#chan *!*@*" perso:join_autovoice
    6.  
    7. ##### PROCS ####################
    8.  
    9. ##------- perso:join_autovoice
    10.  
    11. proc perso:join_autovoice {nick userhost handle chan} {
    12.         if {![botisop $chan]} { return 0 }
    13.  
    14.         if {![isvoice $nick $chan] && ![isop $nick $chan]} {
    15.                 set num [expr int(rand()*5)+(1&&5)+5]
    16.                 utimer $num [list perso:voice $chan $nick]
    17.         }
    18.         return 0
    19. }
    20.  
    21. ##------- perso:voice
    22.  
    23. proc perso:voice {chan nick} {
    24.         if {![botisop $chan]} { return 0 }
    25.  
    26.         if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
    27.                 putserv "MODE $chan +v $nick"
    28.         }
    29.         return 0
    30. }
    View source | 0

First / Previous / Next / Last / Page 1 of 1 (1 posteets)