[Abandon] devoice auto au bout de X minutes

[Alucard`68]

Bonsoir,

Voila j'utilise le Voice-In de aliasangelius pour un salon je l'ai légèrement modifier (le temps pour le voice et monter a 50 mots au lieu de 5) voici le code

tclcopier

#*************************#
# Autovoice Intelligent.  #
#                         #
# Système de voice en NS  #
# Utilisation de msgcat   #
# Voice au bout de 5 mots #
#*************************#
 
namespace eval ::vin {
   
   # Nous vérifions si ya le package requis pour le msgcat.
   package require msgcat
   
   # Nous mettons la langue de msgcat en français.
   ::msgcat::mclocale fr
   
   # Salon de log.
   variable chanv "#Services"
   
   # Nous metons le setudef.
   setudef flag VV
   
   # Ici on met le temps en seconde pour que le bot Voice.
   variable voicejoin 180
   
   
   # Les messages de msgcat.
   ::msgcat::mcset fr ChanLog "\0031\[\0034Chan-Log\0031\]\0031"
   ::msgcat::mcset fr Vvoice "\037\0031A dit plus de 50 mots. Voice auto.\037\0031"
   ::msgcat::mcset fr Active1 "\037\0031Auto-Voice Activé !\037\0031"
   ::msgcat::mcset fr Active2 "\037\0034Auto-Voice déjà Activé !\037\0034"
   ::msgcat::mcset fr Desactive1 "\037\0031Auto-Voice Désactivé !"
   ::msgcat::mcset fr Desactive2 "\037\0034Auto-Voice déjà Désactivé !"
   ::msgcat::mcset fr Message1 "\037\0034Auto-Voice Activé sur\0031 :\037\0031"
   ::msgcat::mcset fr Message2 "\037\0034Auto-Voice Désactivé sur\0031 :\037\0031"
   
   # Procédure de voice.
   proc verif {nick chan} {
       if {[isop $nick $chan]} {return}
           if {[isvoice $nick $chan]} {return}
               putserv "mode $chan +v $nick"
   }
   
   # Procédure d'activation du TCL.
   bind pub o "!von" [namespace current]::von
   proc von { nick host hand chan arg } {
       if {[channel get $chan VV] == 0} {
           channel set $chan +VV
           putquick "PRIVMSG $chan :[::msgcat::mc Active1]"
           putserv "privmsg $::vin::chanv :[::msgcat::mc ChanLog] [::msgcat::mc Message1] \0034$chan\0034"
           } else {
               putquick "PRIVMSG $chan :[::msgcat::mc Active2]"
           }
   }
   
   # Procédure de désactivation du TCL.
   bind pub o "!voff" [namespace current]::voff
   proc voff { nick host hand chan arg } {
       if {[channel get $chan VV] != 0} {
           channel set $chan -VV
           putquick "PRIVMSG $chan :[::msgcat::mc Desactive1]"
           putserv "privmsg $::vin::chanv :[::msgcat::mc ChanLog] [::msgcat::mc Message2] \0034$chan\0034"
           } else {
               putquick "PRIVMSG $chan :[::msgcat::mc Desactive2]"
           }
   }
   
   # Procédure de detection des mots pour le voice.
   bind pubm - * [namespace current]::pub:pvoice
   proc pub:pvoice {nick host hand chan arg} {
       set arg [split $arg]
       if {$nick == $::botnick} {return}
       if {[channel get $chan VV]==0} { return; }
           if { [isvoice $nick $chan] } {
               return 0
           } else {
           if { [llength $arg] >= 50 } {
               utimer $::vin::voicejoin [list ::vin::verif $nick $chan]
               puthelp "privmsg $::vin::chanv :[::msgcat::mc ChanLog] \0034$nick \0034 [::msgcat::mc Vvoice]"
               } else {
                   return 0
               }
           }
   }
}
   putlog "\0031Auto-Voice Intelligent V1.0 by \002alias_angelius\002 \0034Chargé.\0034"

Donc voila j'aimerais que l'user soit devoice au bout de 30 minutes si il ne dit plus rien.
Et serait t'il possible d'avoir plutôt le voice sur tout les salons ou le bot se trouve sauf sur certain salon via un set par exemple

tclcopier

set chanexempt "#salon1 #salon2 #salon3"

et aussi une liste de pseudo a ne pas voice.
Le souci c'est que je ne vois pas du tout comment mi prendre j'aimerais un énorme coup de pouce pour i arriver.
PS : je n'ai rien tenter puisque je ne sais absolument pas comment mi prendre désolé.

Merci d'avance.

Bien à vous.

Bye.

Edit : Les modifications apportées pour le voice auto après 50 mots ne fonctionne pas
Merci de votre aide future.