voice.tcl

[Alucard`68]

Alors j'ai mis ton code CrazyCat

de cette manière

tclcopier

set avchan "#LibertY-Land"
 
 
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
  }
 }
}
 
set exnicks "Alucard`68"
 
proc avjoin {nick uhost hand chan} {
   global avchan botnick exnicks
   if { [lsearch -nocase [split $exnicks] $nick] >= 0 } { return 0 }
}

cela ne fonctionne pas j'ai peu être mal inséré le code.

Cordialement.

Effectivement j'avais mal inséré le code je l'es inséré de cette manière:

tclcopier

set avchan "#LibertY-Land"
set exnicks "Alucard`68 Jessica"
 
 
bind join - * avjoin
 
proc avjoin {nick uhost hand chan} {
 global avchan botnick exnicks
 if { [lsearch -nocase [split $exnicks] $nick] >= 0 } { 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
  }
 }
}

Cela fonctionne parfaitement.
Merci CrazyCat pour ton aide

Cordialement.