-
##### 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
-
}