voice.tcl

[Alucard`68]

Bonjour,

alors j'ai trouver un code qui permet de voice automatiquement les personne qui arrivent sur mon salon.

se que j'aimerais ajouter à se code c'est une liste de pseudo qui ne seront pas voice.

voila le code:

tclcopier

## allvoice.tcl
##  - voices everyone in a channel when they join

 
# What channels should this work on?
#  - note, "" is for all channels
set avchan "#Mon-Salon"

## Begin the code
 
bind join - * avjoin
 
proc avjoin {nick uhost hand chan} {
 global avchan botnick
 if {$nick == $botnick} {return 0}
 if {$avchan == "" && [botisop $chan]} {
  pushmode $chan +v $nick
  return 0
 }
 set chan [string tolower $chan]
 foreach i [string tolower $avchan] {
  if {$i == $chan && [botisop $chan]} {
   pushmode $chan +v $nick
   return 0
  }
 }
}

Merci d'avance pour votre aide future.

Cordialement.