- ##### BINDS #######################
- #– JOIN
- # modifier ci-dessous #chan par le vrai nom du chan
- bind join – “#chan *!*@*” perso:join_autovoice
- ##### PROCS ####################
- ##——- perso:join_autovoice
- proc perso:join_autovoice {nick userhost handle chan} {
- if {![botisop $chan]} { return 0 }
- if {![isvoice $nick $chan] && ![isop $nick $chan]} {
- set num [expr int(rand()*5)+(1&&5)+5]
- utimer $num [list perso:voice $chan $nick]
- }
- return 0
- }
- ##——- perso:voice
- proc perso:voice {chan nick} {
- if {![botisop $chan]} { return 0 }
- if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
- putserv “MODE $chan +v $nick”
- }
- return 0
- }