Join chan

[DnS]

a tu essayer comme ceci ?

tclcopier

#######################
## Secure Join Staff ##
#######################
 
set chekback "#test"
 
set vhost {
    NetAdmin.*****.org
    TechAdmin.*****.org
     BotAdmin.*****.org
}
 
bind join - "*" pub:join
proc pub:join { nick uhost handle channel } {
   global chekback vhost
   if [string equal -nocase $channel $chekback] {
      foreach host $vhost {
         if [string match -nocase $host $uhost] {
            return 1
         }
      }
      set raison " \00304$nick - \00302Vous n'êtes pas autorisé à être sur ce salon."
      putquick "KICK $channel $pseudo :$raison"
      putquick "MODE $channel +bb *!$uhost $pseudo*!*@*"
   }
}

peut etre ton poste TCL-Auto-sajoin-fonctionne-partiellement peut t'aider ?


Cordialement DnS